Example 10: Unloading all areas of a DEDB that are registered with DBRC and creating their image copies

The following figure shows example JCL that is used to unload all areas of a DEDB that are registered with DBRC and to create their image copies.

In this example:
  • The input ADSs that are to be unloaded for all areas are dynamically allocated. The allocation information (DD statement name and DS name of the ADS) is obtained from DBRC.
  • The output unloaded segment records data set for each area is HPFP.USRFILE.areaname that is specified by the ODSNMASK='HPFP.USRFILE.&AREA' parameter, and is allocated dynamically. The data set must be preallocated and cataloged.
  • After unloading, the image copy data sets for all areas are dynamically allocated by IMS HP Image Copy. The data set name of each image copy is determined by IMS HP Image Copy as follows: ICOUT.HFP.IC1.DEDBJN22.areaname. For details, see the IMS High Performance Image Copy User's Guide.
Tips:
  • To take image copies of the areas that have pointer errors but to prevent the image copy data sets of those areas from being registered to DBRC by the NOTIFY.IC command, specify PTRCHK=BYPASS or PTRCHK=DETAIL, and ICNOTIFY=COND.
  • To take image copies of the areas that have key sequence errors but to prevent the image copy data sets of those areas from being registered to DBRC by the NOTIFY.IC command, specify KEYSEQCHK=BYPASS or KEYSEQCHK=WARNING, and ICNOTIFY=COND.
Figure 1. Unloading all areas of a DEDB that are registered with DBRC and creating their image copies
//HFP      EXEC PGM=HFPMAIN0
//STEPLIB  DD DISP=SHR,DSN=HPFP.SHFPLMD0
//         DD DISP=SHR,DSN=HPS.SHPSLMD0
//         DD DISP=SHR,DSN=IMSVS.SDFSRESL
//         DD DISP=SHR,DSN=IMSVS.PGMLIB
//IMSACB   DD DISP=SHR,DSN=IMSVS.ACBLIB
//RECON1   DD DISP=SHR,DSN=IMSVS.RECON1
//RECON2   DD DISP=SHR,DSN=IMSVS.RECON2
//RECON3   DD DISP=SHR,DSN=IMSVS.RECON3
//HFPRPTS  DD SYSOUT=*
//HFPPRINT DD SYSOUT=*
//HFPSYSIN DD *
 GLOBAL
   DBRC=YES
 UNLOAD
   DBD=DEDBJN22,
   IAREA=ALL,
   OAREA=ALL,
   ODSNMASK='HPFP.USRFILE.&AREA',
   ICOUT=YES
/*
//ICEIN    DD *
  GLOBAL   ICHLQ=ICOUT.HFP,
           UNIT=SYSDA,
           SPACE=(CYL,100,100)
/*
//ICERPRT  DD SYSOUT=*