Example for creating image copies with logical copy process

Use this example to run the Create Image Copy function to create image copies with the logical copy process.

Creating image copies with logical copy process—dynamic allocation enabled

The following is an example that shows how to invoke FABJMAIN to create image copies with the logical copy process. In this example, dynamic allocation is enabled.

Figure 1. JCL example: Logical copy

//EXAMPLE6 JOB
//         EXEC PGM=FABJMAIN
//STEPLIB  DD DISP=SHR,DSN=HPS.SHPSLMD0
//         DD DISP=SHR,DSN=IMS.SDFSRESL
//DFSRESLB DD DISP=SHR,DSN=IMS.SDFSRESL
//IMSDALIB DD DISP=SHR,DSN=IMS.EXAMPLE.MDALIB
//ICEPRINT DD SYSOUT=*
//ICERPRT  DD SYSOUT=*
//ICEDLIST DD SYSOUT=*
//ICEIN    DD *
  GLOBAL ICNMRULE=Y,ICHLQ=IMSIC
  CRC    DBD=HDAMDB01,DDN=HDAMDD01,ICOUT=(*,*,*),
         CRCTYPE=L,COMP=Y,COMPRTN=FABJCMP2
/*

The input image copy data set, compressed by FABJCMP1, is for the data set (DDN=HDAMDD01) of the database (DBD=HDAMDB01), and is dynamically allocated by the Create Image Copy function by use of the IC record in the DBRC.

The three output copies of the image copy data set are also dynamically allocated by the Create Image Copy function. The data set name of each copy is determined by IMS HP Image Copy as follows:

Primary output data set: IMSIC.IC1.HDAMDB01.HDAMDD01.Dyyddd.Thhmmss
Secondary output data set: IMSIC.IC2.HDAMDB01.HDAMDD01.Dyyddd.Thhmmss
Third output data set: IMSIC.IC3.HDAMDB01.HDAMDD01.Dyyddd.Thhmmss

where:

yyddd: Year and day.
hhmmss: Time in time stamp format.

The output image copy data sets are compressed by the FABJCMP2 routine.