Sample JCL 1 - Using the BATCH DECODE command to decode a single DBD from a DBDLIB
The following JCL sample shows how to decode a single DBD from a DBDLIB, writing the output to SYSOUT.
//DECO1 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=*
//* DISASSEMBLE A DBD FROM ITS DBDLIB LOAD MODULE
//PLUSIN DD *
DECODE DBD(MYDBD1) SOURCE(IMS) DDL(N)
//STEPLIB DD DISP=SHR,DSN=BMC.LOADLIB
//IMS DD DISP=SHR,DSN=MY.DBDLIB
//BMCTRACE DD SYSOUT=*
//BMCMSG DD SYSOUT=*
//BMCPRINT DD SYSOUT=*
//* DISASSEMBLE A DBD FROM ITS DBDLIB LOAD MODULE
//PLUSIN DD *
DECODE DBD(MYDBD1) SOURCE(IMS) DDL(N)
Related topic
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*