Example: Comparing IMS control blocks

The following figures 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 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=*
//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 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
//*
//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 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
//*
//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                      
/*