Example for creating image copies with physical copy process

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

Creating image copies with physical copy process—dynamic allocation enabled

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

Figure 1. JCL example: Physical copy

//EXAMPLE7 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 UNIT=TAPE,VOLCNT=99,ICHLQ=IMSIC
  GROUP  DBDSGRP=DBDSGRP1,STACK=STACK1,FUNC=CRC
/*

The input image copy data sets of the data set group defined by the DBDS group (DBDSGRP=DBDSGRP1) are dynamically allocated by the Create Image Copy function by use of the IC records in the DBRC.

The output image copy data sets are also dynamically allocated, one for each data set group, by the Create Image Copy function. The data set name of each image copy is determined by IMS HP Image Copy as follows:

Image copy for DBDNAME=dbdname, DDNAME=ddname:
IMSIC.IC1.dbdname.ddname.Dyyddd.Thhmmss

where:

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

All image copies are allocated to one tape device through the nonspecific volume request and all image copy data sets are stacked into one stack STACK1 and created on one or more tape volumes (up to 99).