Sample JCL 2 - Using the BATCH DECODE command to decode a single PSB from an IMS catalog
The following sample JCL shows how to decode a single PSB from an IMS Catalog, writing the output to SYSOUT.
//DECO2 EXEC PGM=DLIGENTR
//STEPLIB DD DISP=SHR,DSN=BMC.LOADLIB
//IMS DD DISP=SHR,DSN=MY.DBDLIB
//BMCTRACE DD SYSOUT=*
//BMCMSG DD SYSOUT=*
//BMCPRINT DD SYSOUT=*
//PSBOUT DD SYSOUT=*
//RECON1 DD DISP=SHR,DSN=MY.RECON1
//RECON2 DD DISP=SHR,DSN=MY.RECON2
//RECON3 DD DISP=SHR,DSN=MY.RECON3
//* DISASSEMBLE A PSB FROM ITS CATALOG DEFINITION
//PLUSIN DD *
DECODE PSB(MYPSB1) SOURCE(CATALOG) DDL(Y)
//STEPLIB DD DISP=SHR,DSN=BMC.LOADLIB
//IMS DD DISP=SHR,DSN=MY.DBDLIB
//BMCTRACE DD SYSOUT=*
//BMCMSG DD SYSOUT=*
//BMCPRINT DD SYSOUT=*
//PSBOUT DD SYSOUT=*
//RECON1 DD DISP=SHR,DSN=MY.RECON1
//RECON2 DD DISP=SHR,DSN=MY.RECON2
//RECON3 DD DISP=SHR,DSN=MY.RECON3
//* DISASSEMBLE A PSB FROM ITS CATALOG DEFINITION
//PLUSIN DD *
DECODE PSB(MYPSB1) SOURCE(CATALOG) DDL(Y)
Related topic
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*