Example: Re-creating the sources from DBDs and PSBs

The following figure shows example JCL for running a job that re-creates the IMS™ DBDGEN and PSBGEN control statements from the DBD and PSB libraries and adds members that contain each source to the partitioned data sets that are specified by the DBDSRC DD statement and the PSBSRC DD statement.

The first control statement specifies to re-create the sources for all DBDs in the DBD library. The second control statement specifies to re-create the sources for all PSBs in the PSB library.

All sources are printed in the SYSPUNCH data set.

Figure 1. Example of re-creating the sources from DBDs and PSBs

//REVERS EXEC PGM=FABNRVRS
//STEPLIB  DD DSN=HPS.SHPSLMD0,DISP=SHR
//DBDLIB   DD DSN=IMSVS.DBDLIB,DISP=SHR
//PSBLIB   DD DSN=IMSVS.PSBLIB,DISP=SHR
//SYSOUT   DD SYSOUT=A
//SYSPUNCH DD SYSOUT=A
//DBDSRC   DD DSN=PDS.DBDSRC,DISP=SHR 
//PSBSRC   DD DSN=PDS.PSBSRC,DISP=SHR 
//SYSIN    DD *
       DECODE  DBD ALL
       DECODE  PSB ALL
/*