Example 2: Reorganizing UOWs that use IOVF CIs and generating an image copy

The following figure shows example JCL for reorganizing UOWs that use IOVF CIs and generating an image copy.

In this example:

RECON data sets are allocated dynamically by using the DFSMDA members in the IMSDALIB DD data set.
The input-and-output ADS that is to be reorganized is dynamically allocated. The allocation information (DD statement name and DS name of the ADS) is obtained from DBRC.
Because RDOVFFS=0 is specified, the UOWs that use IOVF CIs are reorganized.
After reorganizing, the image copy data set for the area is dynamically allocated by IMS HP Image Copy. The data set name of the image copy is determined by IMS HP Image Copy as follows: ICOUT.HFP.IC1.DEDBJN22.DB22AR0. For details, see IMS High Performance Image Copy User's Guide.
After creating the image copy, a NOTIFY.IC command is issued to DBRC.

Figure 1. Reorganizing UOWs that use IOVF CIs and generating an image copy

//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 
//IMSDALIB DD DISP=SHR,DSN=IMSVS.MDALIB 
//HFPRPTS  DD SYSOUT=* 
//HFPPRINT DD SYSOUT=* 
//HFPSYSIN DD * 
 GLOBAL
   DBRC=YES
 REORG
   DBD=DEDBJN22,
   IAREA=(DB22AR0),
   RDOVFFS=0,
   ICOUT=YES,
   ICNOTIFY=YES 
/* 
//ICEIN    DD * 
 GLOBAL    ICHLQ=ICOUT.HFP,
           UNIT=SYSDA,
           SPACE=(CYL,100,100)
/*
//ICERPRT  DD SYSOUT=*