Example: Re-creating the sources from ACBs

The following figure shows example JCL for running a job that re-creates the IMS™ DBDGEN and PSBGEN control statements from the specified ACB library 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 PSB-type ACBs and the DBD-type ACBs that those PSB-type ACBs refer to. The second control statement specifies to re-create a source for the named DBD-type ACB. The third control statement specifies to re-create a source for the named PSB-type ACB.

All sources are printed in the SYSPUNCH data set.

Figure 1. Example of re-creating the sources from ACBs

//REVERS EXEC PGM=FABNRVRS,REGION=0M
//STEPLIB  DD DSN=HPS.SHPSLMD0,DISP=SHR
//ACBLIB   DD DSN=IMSVS.ACBLIB,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  ACB ALL
       DECODE  ACBDBD INCLUDE=HDAM01
       DECODE  ACBPSB INCLUDE=PSB01A
/*