Sample JCL 3 - Using the BATCH DECODE command to decode DBDs using wildcard characters
The following sample JCL shows how to decode all DBDs that start with the letter A, writing the output to the corresponding members in SRC.PDS.
//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=*
//SRCLIB DD DISP=SHR,DSN=SRC.PDS
//* DISASSEMBLE A PSB FROM ITS CATALOG DEFINITION
//PLUSIN DD *
DECODE DBD(A*) SOURCE(IMS) 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=*
//SRCLIB DD DISP=SHR,DSN=SRC.PDS
//* DISASSEMBLE A PSB FROM ITS CATALOG DEFINITION
//PLUSIN DD *
DECODE DBD(A*) SOURCE(IMS) DDL(Y)
Related topic
Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*