Extracting LISTCAT

0

Hello

could anyone please provide some information on generating the LISTCAT and CSD files, in the format required by Blu Insights

1 Answer
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
/*
//
AWS
answered 8 months ago
  • Thanks Arno

  • You welcome ;) Could you please accept the answer ?

You are not logged in. Log in to post an answer.

A good answer clearly answers the question and provides constructive feedback and encourages professional growth in the question asker.

Guidelines for Answering Questions