Example for IMS compatible JCL

Use this example to run the Image Copy function with IMS compatible JCL.

The following figure shows a sample procedure for DFSUDMP0.

Figure 1. Sample procedure of the Image Copy function

   //FABJIC  PROC DBRC=YES,                    DBRC PARAMETER
   //        HPIO=YES,                         HPIO PARAMETER
   //        DBTLIB=''                         HPIC LOAD LIBRARY
   //        RESLIB='IMSVS.SDFSRESL',          IMS RESLIB
   //        DBDLIB='IMSVS.DBDLIB',            IMS DBD LIBRARY
   //        DEFCTL='',       DEFCTL='DUMMY',  IF NOT USE HDPC HASH
   //        DBDEFC='HPS.DBDEFCTL',            INPUT DBDEFCTL DATA SET
   //        SORTEX='HPS.SORTEX',              OUTPUT SORTEX
   //        PRTBLK=6118,  (133*46)            BLKSIZE OF PRINT DATA SETS
   //        U=SYSDA,                          UNIT FOR WORK/OUTPUT D/S
   //        CYL='1,1'                         SPACE FOR WORK/OUTPUT D/S
   //*------------------------------------------------------------------*
   //ICEHASH  EXEC PGM=DFSUDMP0,PARM='DBRC=&DBRC,HPIO=&HPIO'
   //STEPLIB  DD DISP=SHR,DSN=&DBTLIB
   //         DD DISP=SHR,DSN=&RESLIB
   //*------------------------------------------------------------------*
   //* FOR IMS DATA SETS
   //*------------------------------------------------------------------*
   //DFSRESLB DD DISP=SHR,DSN=&RESLIB
   //IMS      DD DISP=SHR,DSN=&DBDLIB
   //SYSPRINT DD SYSOUT=A
   //*------------------------------------------------------------------*
   //* FOR HDPC HASH CHECK INPUT
   //*------------------------------------------------------------------*
   //DBDEFCTL DD &DEFCTL.DISP=SHR,DSN=&DBDEFC
   //*------------------------------------------------------------------*
   //* FOR HASH CHECK OUTPUT
   //*------------------------------------------------------------------*
   //SORTEX   DD DISP=(NEW,CATLG),DSN=&SORTEX,
   //            UNIT=&U,SPACE=(CYL,(&CYL))
   //*------------------------------------------------------------------*
   //* FOR HDPC HASH CHECK REPORTS
   //*------------------------------------------------------------------*
   //PRIMAPRT DD SYSOUT=*,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
   //STATIPRT DD SYSOUT=*,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
   //VALIDPRT DD SYSOUT=*,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
   //SNAPPIT  DD SYSOUT=*,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
   //*------------------------------------------------------------------*
   //* FOR WORK DATA SETS
   //*------------------------------------------------------------------*
   //FSESTAT  DD UNIT=&U,SPACE=(CYL,(&CYL))
   //*------------------------------------------------------------------*
   //* FOR DEDB PC HASH CHECK REPORTS
   //*------------------------------------------------------------------*
   //MSGOUT   DD SYSOUT=*,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
   //REPORTS  DD SYSOUT=*,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
   //VALIDPRT DD SYSOUT=*,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
   //SNAPDPIT DD SYSOUT=*,DCB=BLKSIZE=&PRTBLK,OUTLIM=0
   //*------------------------------------------------------------------*
   //* FOR DEDB PC HASH CHECK WORK DATA SETS
   //*------------------------------------------------------------------*
   //SORTIN   DD   UNIT=&U,SPACE=(CYL,(&CYL))
   //SORTOUT  DD   UNIT=&U,SPACE=(CYL,(&CYL))
   //SORTWK01 DD   UNIT=&U,SPACE=(CYL,(&CYL))