I've not been able to do a DELETE CATALOG command for a long time. Each time I
must remove the catalog from the CATALOG address space. The DELETE CATALOG
command causes the catalog to be reloaded into the CATALOG address space.
So.... Rats.....
What I end up doing is moving the catalog to a throw-away volume, EXPORT
DISCONNECT, then initialize the volume.
I have a series of JCL to move a catalog to another volume.
//STEP0 EXEC PGM=IEFBR14
//DD1 DD DISP=(MOD,DELETE,DELETE),
// SPACE=(CYL,(1,1)),
// DSN=MSTITT.UCAT.BKUP
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DD1 DD DSN=MSTITT.UCAT.BKUP,DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(15,1))
//SYSIN DD *
EXPORT SYS1.ZOS24.MCAT OUTFILE(DD1) TEMPORARY
//STEP0 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
DELETE SYS1.ZOS24.MCAT RECOVERY USERCATALOG
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEF USERCATALOG(NAME(SYS1.ZOS24.MCAT) -
CYLINDERS(5 5) -
SHR(3 4) -
STORCLAS(NONSMS) -
VOLUME(Z24RES))
//STEP0 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DD1 DD DSN=MSTITT.UCAT.BKUP,DISP=OLD
//SYSIN DD *
IMPORT INFILE(DD1) OUTDATASET(SYS1.ZOS24.MCAT) -
OBJECTS(SYS1.ZOS24.MCAT VOLUMES(Z24RES)) -
INTOEMPTY -
ALIAS
Note-- Each step is a separate job.
If you have the catalog in a dataset, only the DEFINE/IMPORT is needed.
Try this for your catalog in question:
//STEP1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
IMPORT OBJECTS((CATALOG.GTU.MASTER DEVT(3390) VOL(SHR002))) CONNECT
DEFINE ALIAS(NAME(OS210) RELATE(CATALOG.GTU.MASTER))
Matthew
On Thu, 7 Aug 2025 18:46:06 +0000, Ferris, Gregg <[email protected]> wrote:
>Isnt it import reconnect?
>
>
>Gregg Ferris | Systsms Engineer IV (Contractor)
>
>Kentucky Farm Bureau Insurance
>Office: (502) 495-5000 x35273
>|Cell: (502) 797-5595
>-----Original Message-----
>From: IBM Mainframe Discussion List <[email protected]> On Behalf Of
>Steve Estle
>Sent: Thursday, August 7, 2025 2:33 PM
>To: [email protected]
>Subject: Cataloging / Deleting an orphan uncataloged ICF Catalog?
>
>Hey all storage mgmt experts...
>
>I have an orphan uncataloed ICF catalog that preferrably would like to get
>recataloged to use - can you do a DEFINE RECTALOG for an ICF catalog?
>
>If not, then I'm looking for the proper correct way of deleting an uncataloged
>ICF catalog via IDCAMs - or if can't do via IDCAMS - suggestions? - anyone
>know how to do that?
>
>Thank
,
>
>----------------------------------------------------------------------
>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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
