Examples for enabling Advanced Image Copy Services

Use the following examples to enable the Advanced Image Copy Services for the Image Copy function.

Subtopics:

Example 1: Creating image copies with the FASTIC=DUMP option

The following figure shows how to invoke FABJMAIN to run the Image Copy function using FASTIC=DUMP processing.

The example shows that the data set group (DDN=HDAMDD01 and HDAMDD02) of the input database (DBDE=HDAMDB01) will be dynamically allocated using the DFSMDA members. The output image copy data sets, one for each data set group, are also dynamically allocated. The image copies will be generated using the DFSMSdss API. Because FASTIC=(PREF,) is specified, the image copies will be created even if none of the Advanced Image Copy Services are available.

Figure 1. Creating image copies using FASTIC=DUMP processing
//EXAMPLE1   JOB     
//           EXEC PGM=FABJMAIN
//STEPLIB    DD DISP=SHR,DSN=HPS.HPSLMD0
//           DD DISP=SHR,DSN=IMS.SDFSRESL
//DFSRESLB   DD DISP=SHR,DSN=IMS.SDFSRESL
//IMS        DD DISP=SHR,DSN=IMS.DBDLIB
//IMSDALIB   DD DISP=SHR,DSN=IMS.EXAMPLE.MDALIB
//DFSPRINT   DD SYSOUT=*
//ICEPRINT   DD SYSOUT=*
//ICEIN      DD *
  GLOBAL   UNIT=TAPE,VOLCNT=99,ICHLQ=ICOUT.DBT,FASTIC=(PREF,DUMP)
  IC       DBD=HDAMDB01,DDN=HDAMDD01,ICOUT=*
  IC       DBD=HDAMDB01,DDN=HDAMDD02,ICOUT=*

Example 2: Creating image copies with the FASTIC=COPY option

The following figure shows how to invoke FABJMAIN to run the Image Copy function using FASTIC=COPY processing.

The example shows that the data set group (DDN=HDAMDD01 and HDAMDD02) of the input database (DBD=HDAMDB01) will be dynamically allocated using the DFSMDA members. The output image copy data sets, one for each data set group, are also dynamically allocated. The image copy data set names will be the following:

  • Image copy for HDAMDD01: ICOUT.DBT.HDAMDB01.HDAMDD01.FC1
  • Image copy for HDAMDD02: ICOUT.DBT.HDAMDB01.HDAMDD02.FC1

Because FASTIC=(REQ,) is specified, the image copies will be created only if one of the Advanced Image Copy Services is available.

Figure 2. Creating image copies using FASTIC=COPY processing
//EXAMPLE2   JOB     
//           EXEC PGM=FABJMAIN
//STEPLIB    DD     DISP=SHR,DSN=HPS.HPSLMD0
//           DD     DISP=SHR,DSN=IMS.SDFSRESL
//DFSRESLB   DD     DISP=SHR,DSN=IMS.SDFSRESL
//IMS        DD     DISP=SHR,DSN=IMS.DBDLIB
//IMSDALIB   DD     DISP=SHR,DSN=IMS.EXAMPLE.MDALIB
//DFSPRINT   DD     SYSOUT=*
//ICEPRINT   DD     SYSOUT=*
//ICEIN      DD     *
  GLOBAL     UNIT=SYSDA,VOLSER=HPICR0,ICHLQ=ICOUT.DBT,FASTIC=(REQ,COPY),
             DSN=&ICHLQ..&DBD..&DDN..FC1	 
  IC         DBD=HDAMDB01,DDN=HDAMDD01,ICOUT=*
  IC         DBD=HDAMDB01,DDN=HDAMDD02,ICOUT=*

Example 3: Creating image copies with the FASTIC=FDUMP option

The following figures show how to invoke FABJMAIN to run the Image Copy function using FASTIC=FDUMP processing.

The following figure is an example for creating shadow data sets on a specific volume using the SHDWVOLSER keyword.

Figure 3. Creating shadow data sets on a specific volume
//ICEIN    DD *
  GLOBAL DBRC=Y,
         HDPC=Y,
         DEDBPC=Y,
         COMP=Y,
         VIC=N,
         UNIT=SYSDA,
         VOLSER=DBT00B,
*
         FASTIC=(REQ,FDUMP),
         REGTIMESTMP=SAME,
*
         SPACE=(TRK,5,1,RLSE),
         DSN=&ICHLQ..&DBD..&DDN..IC1,
         DSN2=&ICHLQ..&DBD..&DDN..IC2,
         ICHLQ=TEMPDS
*
         SHDWDSN=&SHDWHLQ..&DBD..&DDN..SHDW,
         SHDWHLQ=TEMPDS,
         SHDWVOLSER=DBT00C,
         SHDWDELETE=EACH,
         SHDWTCTL=10
*
   IC    DBD=DBHDAM30,
         DDN=HDAMDD30,
         ICOUT=*
*
   IC    DBD=DEDBJN23,
         AREA=DB23AR0,
         ICOUT=*
   ...

The following figure is an example of creating shadow data sets with a specific SMS class using the SHDWMGMTCL keyword and the SHDWSTORCL keyword.

Figure 4. Creating shadow data sets with a specific SMS class
//ICEIN    DD  *
  GLOBAL  COMP=Y,
           COMPRTN=FABJCMP4,
           DBRC=Y,
           DEDBPC=Y,
           HDPC=Y,
           DSN=&ICHLQ..&DBD..&DDN..IC1,
           DSN2=&ICHLQ..&DBD..&DDN..IC2,
           ICHLQ=TEMPDS.RGV11040,
           HPIO=Y,
           ICOUT=(*,*),
*
           FASTIC=(PREF,FDUMP),
           REGTIMESTMP=DIFFER,
*
           DATACLAS=DCIC01,
           DATACLAS2=DCIC02,
           MGMTCLAS=MCIC01,
           MGMTCLAS2=MCIC02,
           STORCLAS=SCIC01,
           STORCLAS2=SCIC02,
           SPACE=(TRK,20,1),
*
           SHDWDSN=&SHDWHLQ..&DBD..&DDN..SHDW,
           SHDWHLQ=TEMPDS,
           SHDWDELETE=ALL,
           SHDWMGMTCL=SDWM01,
           SHDWSTORCL=SDWS01,
           SHDWTCTL=10
*
  ACIC     DBD=DBHDAM50,DDN=HDAMDD51
  ACIC     DBD=DBHDAM50,DDN=HDAMDD52
  ...