I had to do exactly the same thing last night to two of my catalogs, for the
exact same reason.
Here is a copy of the jcl I used.
You will have to come up w/ your correct space values.
In my case, each catalog had 200,000+ entries.
//TUCOKKKK JOB (10679),'S6 CAT BIGGER ',
// LINES=(999999,WARNING),
// CLASS=H,MSGCLASS=X,NOTIFY=TUCO,USER=TUCO,MSGLEVEL=(1,1)
/*ROUTE PRINT RMT0
//* =====>>> DSSSYS.TUCO.JCL( W$SYS006
//*
//*
//*
//*********************************************************************
//EXPORT EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//OUT DD DSN=TUCO.BACKUP.UCAT.VSYS006,
// DISP=(NEW,CATLG,DELETE),UNIT=3390,VOL=SER=BCBUT1,
// SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *
ALTER UCAT.VSYS006 LOCK
EXPORT UCAT.VSYS006 TEMPORARY OUTFILE(OUT)
//*
//*
//*
//*
//DELET EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//DD1 DD VOL=SER=SYS006,UNIT=3390,DISP=SHR
//SYSIN DD *
DELETE 'UCAT.VSYS006' UCAT FILE(DD1) RECOVERY
//*
//*
//*
//*
//DEFINE EXEC PGM=IDCAMS,REGION=1024K,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//UCATVOL DD UNIT=3390,VOL=SER=SYS006,DISP=SHR
//SYSIN DD *
DEFINE USERCATALOG (NAME(UCAT.VSYS006) CYL(210 10) -
VOL(SYS006) ICFCAT -
RECSZ(100 32400) SHR(3 4) -
STRNO(3) -
BUFND(4) BUFNI(4) ) -
DATA (CYLINDER(200 20) CISZ(4096)) -
INDEX (CYLINDER(10 10) CISZ(10240)) -
CATALOG(CATALOG.BCB.MAST.VBCBCAT)
//*
//*
//*
//IMPORT EXEC PGM=IDCAMS,COND=(0,NE)
//IN DD DSN=TUCO.BACKUP.UCAT.VSYS006,DISP=(OLD,KEEP,KEEP)
//SYSPRINT DD SYSOUT=*
//OTDD1 DD DSN=UCAT.VSYS006,
// DISP=OLD,VOL=SER=SYS006,AMP=AMORG,UNIT=3390
//SYSIN DD *
IMPORT INFILE(IN) OUTFILE(OTDD1) ALIAS INTOEMPTY LOCK -
CAT(UCAT.VSYS006)
//*
//*
//*
//DIAG EXEC PGM=IDCAMS,REGION=512K,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//CATALOG DD DSN=UCAT.VSYS006,DISP=SHR
//SYS006 DD DSN=SYS1.VVDS.VSYS006,DISP=SHR,UNIT=3390,
// VOL=SER=SYS006,
// AMP='AMORG'
//SYSIN DD *
DIAGNOSE ICFCATALOG INFILE(CATALOG) -
COMPAREDD(SYS006) LIST
//*
//*
//*
//*
//UNLOCK EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
ALTER UCAT.VSYS006 UNLOCK
//*
//*
//*
//*
//EXAMI EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//PRINT DD SYSOUT=*
//SYSIN DD *
ALTER UCAT.VSYS006 LOCK
VERIFY DATASET(UCAT.VSYS006)
EXAMINE NAME(UCAT.VSYS006) DATATEST
ALTER UCAT.VSYS006 UNLOCK
//
//
//
/s/ tuco bonno;
Graduate, College of Conflict Management;
University of SouthEast Asia;
"I partied on the Ho Chi Minh Trail - tiến lên !! "
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of
Sabo, Frank
Sent: Monday, 30 April, 2012 08:56 AM
To: [email protected]
Subject: Catalog Question
Hello everyone,
I just started receiving the following message on a catalog IEC361I CATALOG
CATLOG.MVS.VGEM913 (DATA) HAS REACHED 82% OF THE MAXIMUM EXTENTS
The messages are coming out about twice a month.
I am running z/OS 1.9
Can anyone tell me, what is the proper way to go about expanding the catalog.
I started looking on the internet but unable to find out exactly how to go
about it.
Thanks for any help that I can get.
Frank W Sabo Jr
101 Kappa Drive
Pittsburgh Pa 15238
412 967-3764
[email protected]
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
