Example: Converting IMS control blocks to control statements

The following figure shows a JCL example for converting the runtime ACBs for databases and program views control blocks in the IMS™ directory to IMS DBDGEN and IMS PSBGEN control statements.

Figure 1. Example of converting ACBs in the IMS directory staging data set Start of change

//CATMANJ  JOB ..... 
//STEP     EXEC PGM=FABXCATM 
//STEPLIB  DD DSN=HPS.SHPSLMD0,DISP=SHR
//         DD DSN=IMS15.SDFSRESL,DISP=SHR
//         DD DSN=ITB.SGLXLOAD,DISP=SHR
//DFSRESLB DD DSN=IMS15.SDFSRESL,DISP=SHR
//IMS      DD DSN=PROD.PSBLIB,DISP=SHR
//         DD DSN=PROD.DBDLIB,DISP=SHR
//DFSVSAMP DD *
0512,9
1024,9
2048,9
4096,9
16384,9
32768,9
IOBF=(2048,4,N,N)
IOBF=(4096,4,N,N)
IOBF=(8192,4,N,N)
IOBF=(32000,4,N,N)
/*
//PROCLIB  DD DSN=IMS15.PROCLIB
//RECON1   DD DSN=PROD.RECON1,DISP=SHR
//RECON2   DD DSN=PROD.RECON2,DISP=SHR
//*
//FABXCRP0 DD SYSOUT=*
//FABXCRP1 DD SYSOUT=*
//FABXCSRC DD SYSOUT=*
//FABXPPRM DD * 
DLI,FABXCATM,DFSCPL00,,,,,,,,,,,Y,N,,,,,,,,,,,,,DFSDF=CAT
//FABXCIN DD *
  PROC   FUNC=DECODE,INPUT=DIRCTORY_STAGING
  OPTION COMMENT=YES,COMPRESS=YES
  DBD NAME=*               
  PSB NAME=*               
  END                      
/*