Example: Comparing IMS control blocks

The figures in this topic show JCL examples for the compare function.

The following example is for comparing an active ACB in the IMS directory with a staging ACB in the IMS directory staging data set.

Figure 1. Example of comparing an active ACB in the IMS directory with a staging ACB in the IMS directory staging data set

//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=*
//FABXCRP2 DD SYSOUT=*
//FABXPPRM DD * 
DLI,FABXCATM,DFSCPL00,,,,,,,,,,,Y,N,,,,,,,,,,,,,DFSDF=CAT
//FABXCIN DD *
  PROC   FUNC=COMPARE,INPUT1=DIRECTORY_ACTIVE,INPUT2=DIRECTORY_STAGING
  OPTION METADATA=NO,VERSION=NO
  REPORT COMPARE_LISTING=YES
  DBD NAME1=DBDHDAM,NAME2=DBDHDM2               
  PSB NAME1=*               
  END                      
/*

The following example is for comparing a DBD and multiple PSBs between the IMS directory and the ACB library.

Figure 2. Example of comparing active ACBs in the IMS directory with those in the ACB library

//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
//*
//ACBLIB   DD DSN=PROD.ACBLIB
//FABXCRP0 DD SYSOUT=*
//FABXCRP1 DD SYSOUT=*
//FABXCRP2 DD SYSOUT=*
//FABXPPRM DD * 
DLI,FABXCATM,DFSCPL00,,,,,,,,,,,Y,N,,,,,,,,,,,,,DFSDF=CAT
//FABXCIN DD *
  PROC   FUNC=COMPARE,INPUT1=DIRECTORY_ACTIVE,INPUT2=ACBLIB
  OPTION METADATA=NO
  REPORT COMPARE_LISTING=YES_ONLY_DIFF
  DBD NAME1=DBDHDAM,NAME2=DBDHDM2               
  PSB NAME1=*               
  END                      
/*

The following example is for comparing a staging ACB in the IMS directory staging data set with a DBD in the DBD library.

Figure 3. Example of comparing a staging ACB in the IMS directory staging data set with a DBD in the DBD library

//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
//*
//DBDLIB   DD DSN=PROD.DBDLIB
//FABXCRP0 DD SYSOUT=*
//FABXCRP1 DD SYSOUT=*
//FABXCRP2 DD SYSOUT=*
//FABXPPRM DD * 
DLI,FABXCATM,DFSCPL00,,,,,,,,,,,Y,N,,,,,,,,,,,,,DFSDF=CAT
//FABXCIN DD *
  PROC   FUNC=COMPARE,INPUT1=DIRECTORY_STAGING,INPUT2=DBDLIB
  OPTION VERSION=NO,RMNAME=NO
  REPORT COMPARE_LISTING=YES_ONLY_DIFF
  DBD NAME1=DBDHDAM               
  END                      
/*