Examples for running Online Pointer Checking for full-function databases

Use the following JCL examples to run the Online Pointer Checking function (pseudo online pointer check mode).

Subtopics:

Online pointer checking—without creating image copy data sets

The following JCL example is for running the Online Pointer Checking function (pseudo online pointer check mode). In this example, the databases are quiesced to make them temporarily unavailable, and FlashCopy® files are deleted at the end of the job.

Figure 1. JCL example for Online Pointer Checking—without creating image copy data sets
//        EXEC PGM=FABJMAIN
//STEPLIB DD DISP=SHR,DSN=HPIC.SHPSLMD0  <=== HPIC library
//        DD DISP=SHR,DSN=HPPC.SHPSLMD0  <=== HPPC library
//        DD DISP=SHR,DSN=ITB.SFOILOAD   <=== Tools Base
//        DD DISP=SHR,DSN=ITB.SGLXLOAD   <=== Tools Base
//        DD DISP=SHR,DSN=IMS.SDFSRESL   <=== IMS library
//        DD DISP=SHR,DSN=IMS.MDALIB     <=== IMS MDA library        
//*-------------------------------------------------------------------*
//* FOR IMS DATA SETS
//*-------------------------------------------------------------------*
//DFSRESLB DD DISP=SHR,DSN=IMS.SDFSRESL
//IMS      DD DISP=SHR,DSN=IMS.DBDLIB
//DFSPRINT DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//*-------------------------------------------------------------------*
//* REPORT DDs
//*-------------------------------------------------------------------*
//ICEPRINT DD SYSOUT=A
//PRIMAPRT DD SYSOUT=A
//STATIPRT DD SYSOUT=A
//VALIDPRT DD SYSOUT=A
//EVALUPRT DD SYSOUT=A
//SNAPPIT  DD SYSOUT=A
//SUMMARY  DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//*-------------------------------------------------------------------*
//* HPIC Keywords
//*-------------------------------------------------------------------*
//ICEIN    DD *
  GLOBAL   DBRC=Y,
           HDPC=Y,
           FASTIC=(PREF,FDUMP),
           TOIAUTO_Q=Y,
           SHDWDSN=&SHDWHLQ..&DBD..&DDN..IC,
           SHDWHLQ=SHADOW,
           DBALL=Y
  AIC      DBD=DBHDAM,ICOUT=%NO 
//*
In this example:
  • DBHDAM has index databases, and logical relationship with other databases.
  • DBALL=Y allows to omit the names of related databases.
This JCL runs an IMS HP Image Copy job, and goes through the following processes:
  1. The IMS HP Image Copy job starts for the IMS online databases.
  2. The TOIAUTO_Q=Y keyword causes IMS HP Image Copy to issue the database quiesce command to stop the databases.
  3. The FASTIC=(PREF,FDUMP) keyword causes IMS HP Image Copy to create FlashCopy files of the databases. The FlashCopy data set names are defined by SHDWDSN=&SHDWHLQ..&DBD..&DDN..IC and SHDWHLQ=SHADOW.
  4. The TOIAUTO_Q=Y keyword causes IMS HP Image Copy to restart the databases.
  5. The HDPC=Y and FASTIC=(PREF,FDUMP) keywords cause IMS HP Image Copy to run a HASH pointer check for the FlashCopy files.
  6. The FASTIC=(PREF,FDUMP) keyword causes IMS HP Image Copy to delete the FlashCopy files. The ICOUT=%NO keyword causes IMS HP Image Copy to not register the IC records to DBRC RECON data sets.
  7. IMS HP Image Copy job ends.

Online pointer checking—keeping FlashCopy files as image copies

The following JCL example is for running the Online Pointer Checking function (pseudo online pointer check mode). In this example, the IMS /DBRECOVERY command is issued to make the databases temporarily unavailable, and the FlashCopy files are kept as image copy data sets.

Figure 2. JCL example for Online Pointer Checking—keeping FlashCopy files as image copies
//       EXEC PGM=FABJMAIN 
//STEPLIB DD DISP=SHR,DSN=HPIC.SHPSLMD0  <=== HPIC library
//        DD DISP=SHR,DSN=HPPC.SHPSLMD0  <=== HPPC library
//        DD DISP=SHR,DSN=ITB.SFOILOAD   <=== Tools Base
//        DD DISP=SHR,DSN=ITB.SGLXLOAD   <=== Tools Base
//        DD DISP=SHR,DSN=IMS.SDFSRESL   <=== IMS library
//        DD DISP=SHR,DSN=IMS.MDALIB     <=== IMS MDA library        
//*-------------------------------------------------------------------*
//* FOR IMS DATA SETS
//*-------------------------------------------------------------------*
//DFSRESLB DD DISP=SHR,DSN=IMS.SDFSRESL
//IMS      DD DISP=SHR,DSN=IMS.DBDLIB
//DFSPRINT DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//*-------------------------------------------------------------------*
//* REPORT DDs
//*-------------------------------------------------------------------*
//ICEPRINT DD SYSOUT=A
//PRIMAPRT DD SYSOUT=A
//STATIPRT DD SYSOUT=A
//VALIDPRT DD SYSOUT=A
//EVALUPRT DD SYSOUT=A
//SNAPPIT  DD SYSOUT=A
//SUMMARY  DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//*-------------------------------------------------------------------*
//* HPIC Keywords
//*-------------------------------------------------------------------*
//ICEIN    DD *
  GLOBAL   DBRC=Y,
           HDPC=Y,
           FASTIC=(PREF,COPY),
           TOIAUTO=Y,
           NOTIFYMODE=COND,
           DSN=&ICHLQ..&DBD..&DDN..&DATE.,
           ICHLQ=ICHLQ,
           DBALL=Y
  AIC      DBD=DBHDAM,ICOUT=* 
//*
In this example:
  • DBHDAM has index databases, and logical relationship with other databases.
  • DBALL=Y allows to omit the names of related databases.
This JCL runs an IMS HP Image Copy job, and goes through the following processes:
  1. The IMS HP Image Copy job starts for the IMS online databases.
  2. The TOIAUTO=Y keyword causes IMS HP Image Copy to issue the IMS /DBRECOVERY command to stop the databases.
  3. The FASTIC=(PREF,COPY) keyword causes IMS HP Image Copy to create FlashCopy files of the databases. The FlashCopy data set names are defined by DSN=&ICHLQ..&DBD..&DDN..&DATE., and ICHLQ=ICHLQ.
  4. The TOIAUTO=Y keyword causes IMS HP Image Copy to issue the IMS /START command to restart the databases.
  5. The HDPC=Y and FASTIC=(PREF,COPY) keywords cause IMS HP Image Copy to run a HASH pointer check for the FlashCopy files.
  6. The FASTIC=(PREF,COPY) and ICOUT=* keywords cause IMS HP Image Copy to keep the FlashCopy files as Fast Recovery image copy data sets. The ICOUT=* keyword causes IMS HP Image Copy to register the IC records to DBRC RECON data sets.
  7. The IMS HP Image Copy job ends.

Online pointer checking—creating image copy data sets in standard image copy format

The following JCL example is for running the Online Pointer Checking function (pseudo online pointer check mode). In this example, the IMS /DBDUMP command is used to make the databases temporarily unavailable, and image copy data sets in standard image copy format are created.

Figure 3. JCL example for Online Pointer Checking—creating image copy data sets in standard image copy format
//       EXEC PGM=FABJMAIN 
//STEPLIB DD DISP=SHR,DSN=HPIC.SHPSLMD0  <=== HPIC library
//        DD DISP=SHR,DSN=HPPC.SHPSLMD0  <=== HPPC library
//        DD DISP=SHR,DSN=ITB.SFOILOAD   <=== Tools Base
//        DD DISP=SHR,DSN=ITB.SGLXLOAD   <=== Tools Base
//        DD DISP=SHR,DSN=IMS.SDFSRESL   <=== IMS library
//        DD DISP=SHR,DSN=IMS.MDALIB     <=== IMS MDA library        
//*-------------------------------------------------------------------*
//* FOR IMS DATA SETS
//*-------------------------------------------------------------------*
//DFSRESLB DD DISP=SHR,DSN=IMS.SDFSRESL
//IMS      DD DISP=SHR,DSN=IMS.DBDLIB
//DFSPRINT DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//*-------------------------------------------------------------------*
//* REPORT DDs
//*-------------------------------------------------------------------*
//ICEPRINT DD SYSOUT=A
//PRIMAPRT DD SYSOUT=A
//STATIPRT DD SYSOUT=A
//VALIDPRT DD SYSOUT=A
//EVALUPRT DD SYSOUT=A
//SNAPPIT  DD SYSOUT=A
//SUMMARY  DD SYSOUT=A
//SYSUDUMP DD SYSOUT=A
//*-------------------------------------------------------------------*
//* HPIC Keywords
//*-------------------------------------------------------------------*
//ICEIN    DD *
  GLOBAL   DBRC=Y,
           HDPC=Y,
           FASTIC=(PREF,FDUMP),
           TOIAUTO=(Y,NO,DBD),
           NOTIFYMODE=COND,
            SHDWDSN=&SHDWHQ..&DBD..&DDN..IC,
           SHDWHLQ=SHADOW,
           DSN=&ICHLQ..&DBD..&DDN..&DATE.,
           ICHLQ=ICHLQ,
           DBALL=Y
  AIC      DBD=DBHDAM,ICOUT=* 
//*
In this example:
  • DBHDAM has index databases, and logical relationship with other databases.
  • DBALL=Y allows to omit the names of related databases.
This JCL runs an IMS HP Image Copy job, and goes through the following processes:
  1. The IMS HP Image Copy job starts for the IMS online databases.
  2. The TOIAUTO=(Y,NO,DBD) keyword causes IMS HP Image Copy to issue the IMS /DBDUMP command to stop the databases.
  3. The FASTIC=(PREF,FDUMP) keyword causes IMS HP Image Copy to create FlashCopy files of the databases. The FlashCopy data set names are defined by SHDWDSN=&SHDWHLQ..&DBD..&DDN..IC and SHDWHLQ=SHADOW.
  4. The TOIAUTO=(Y,NO,DBD) keyword causes IMS HP Image Copy to issue the IMS /START command to restart the databases.
  5. The HDPC=Y and FASTIC=(PREF,FDUMP) keywords cause IMS HP Image Copy to run a HASH pointer check for the FlashCopy files.
  6. The FASTIC=(PREF,FDUMP) and ICOUT=* keywords cause IMS HP Image Copy to create image copy data sets in the standard image copy format from the FlashCopy files. The ICOUT=* keyword causes IMS HP Image Copy to register the IC records to DBRC RECON data sets.
  7. The FASTIC=(PREF,FDUMP) keyword causes IMS HP Image Copy to delete the FlashCopy files.
  8. The IMS HP Image Copy job ends.