1 Answer
- Newest
- Most votes
- Most comments
2
To extract catalog information (LISTCAT), you should execute a command like LISTCAT CATALOG(catalogName) ALL OUTFILE(outputDatasetName) through IDCAMS.
For more detailed information: https://www.ibm.com/docs/en/zos/3.1.0?topic=commands-listcat
//LISTCAT JOB (ZZNS0000),
// CLASS=0CLASS=S,REGION=0M
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//*
/*JOBPARM BYTES=999999,LINES=9999
//* CICS
//*
//*********************************************************************
//* DELETE INPUT/OUTPUT FILE FOR LISTCAT UTILITY *
//*********************************************************************
//DELETE EXEC PGM=IDCAMS,REGION=1M
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE LISTCAT.OUTPUT NONVSAM <<-- output file, where info is stored
/*
//*
//*********************************************************************
//* DEFINE INPUT/OUTPUT DATASET FOR LISTCAT UTILITY *
//*********************************************************************
//DEFINE EXEC PGM=IEFBR14
//DD1 DD DISP=(NEW,CATLG,DELETE),
// DSN=LISTCAT.OUTPUT, <<-- output file, where info is stored
// VOL=SER=CIXH02,UNIT=3390,
// DCB=(DSORG=PS,BLKSIZE=80,RECFM=F,LRECL=80),
// SPACE=(CYL,(5,5))
//*
//*********************************************************************
//* EXEC LISTCAT TO EXTRACT CATALOG RESOURCE INTO SEQUENTIAL DATASET *
//*********************************************************************
//LISTCAT JOB ...
//STEP1 EXEC PGM=IDCAMS
//OUTDD DD DSN=LISTCAT.OUTPUT,UNIT=3480, <<-- output file, where info is stored
// VOL=SER=TAPE10,LABEL=(1,NL),DISP=(NEW,KEEP),
// DCB=(RECFM=VBA,LRECL=125,BLKSIZE=629)
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
LISTCAT CATALOG(YOURCAT) ALL OUTFILE(OUTDD) <<-- YOURCAT, your catalog where info is stored
To extract CICS System Definition (CSD) you should execute the command LIST ALL OBJECTS through DFHCSDUP program.
For more detailed information: https://www.ibm.com/docs/en/cics-ts/6.1?topic=commands-dfhcsdup-list-command
//CSD JOB (ZZNS0000),
// CLASS=0CLASS=S,REGION=0M
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//*
/*JOBPARM BYTES=999999,LINES=9999
//* CICS
//*
//*********************************************************************
//* DELETE INPUT/OUTPUT FILE FOR CSD UTILITY *
//*********************************************************************
//DELETE EXEC PGM=IDCAMS,REGION=1M
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE CICS410.DFHCSD.SEQ NONVSAM <<-- output file, where info is stored
/*
//*
//*********************************************************************
//* DEFINE INPUT/OUTPUT DATASET FOR CSD UTILITY *
//*********************************************************************
//DEFINE EXEC PGM=IEFBR14
//DD1 DD DISP=(NEW,CATLG,DELETE),
// DSN=CICS410.DFHCSD.SEQ, <<-- output file, where info is stored
// VOL=SER=CIXH02,UNIT=3390,
// DCB=(DSORG=PS,BLKSIZE=80,RECFM=F,LRECL=80),
// SPACE=(CYL,(5,5))
//*
//*********************************************************************
//* EXEC LIST ALL TO EXTRACT CSD RESOURCE INTO SEQUENTIAL DATASET *
//*********************************************************************
//CSDUP EXEC PGM=DFHCSDUP,REGION=4096K,
// PARM='CSD(READONLY),PAGESIZE(60),COMPAT'
//STEPLIB DD DSN=CICS410.SDFHLOAD,DISP=SHR <<-- your CICS loadlib that contains DFHCSDUP
// DD DSN=CICS410.SDFHAUTH,DISP=SHR <<-- your CICS loadlib that contains DFHCSDUP
//DFHCSD DD DSN=CICS410.DFHCSD,DISP=SHR <<-- your DFHCSD file
//SYSOUT DD SYSOUT=*
//SYSPRINT DD DSN=CICS410.DFHCSD.SEQ,DISP=SHR <<-- output file, where info is stored
//SYSIN DD *
LIST ALL OBJECTS
/*
//
answered 8 months ago
Relevant content
- asked 5 months ago
- asked 8 months ago
- AWS OFFICIALUpdated 5 months ago
- AWS OFFICIALUpdated 6 months ago
- AWS OFFICIALUpdated a year ago
Thanks Arno
You welcome ;) Could you please accept the answer ?