An Image Restore job is run using JCL that includes the following:
//STOP01 EXEC PGM=MFDBUJCL,PARM='/STO DB BNKTXN' //SYSOUT DD SYSOUT=* //STOP02 EXEC PGM=MFDBUJCL,PARM='/STO DB BNKCUST' //SYSOUT DD SYSOUT=* //STOP03 EXEC PGM=MFDBUJCL,PARM='/STO DB BNKACC'
//IC EXEC PGM=MFDBUJCL,PARM='IMAGERESTORE'
//BNKIC1 DD DSN=BNKTXN.IC.GDG(0),DISP=OLD //BNKIC2 DD DSN=BNKTXNX1.IC.GDG(0),DISP=OLD //BNKIC3 DD DSN=BNKCUST.IC.GDG(0),DISP=OLD //BNKIC4 DD DSN=BNKACC.IC.GDG(0),DISP=OLD //BNKIC5 DD DSN=BNKTXNX2.IC.GDG(0),DISP=OLD
//SYSIN DD * BNKTXN BNKIC1 BNKTXNX1 BNKIC2 BNKCUST BNKIC3 BNKACC BNKIC4 BNKTXNX2 BNKIC5
The following is a complete example of the JCL required to execute the Image Restore utility. It specifies that five databases defined in the first eight bytes of SYSIN data are to be restored from the location specified by the DD statements to the location defined by the ES_IMSDAT environment variable:
//RUNGDG JOB 'IR',CLASS=A,MSGCLASS=A //* //STOP01 EXEC PGM=MFDBUJCL,PARM='/STO DB BNKTXN' //SYSOUT DD SYSOUT=* //STOP02 EXEC PGM=MFDBUJCL,PARM='/STO DB BNKCUST' //SYSOUT DD SYSOUT=* //STOP03 EXEC PGM=MFDBUJCL,PARM='/STO DB BNKACC' //SYSOUT DD SYSOUT=* //* //IC EXEC PGM=MFDBUJCL,PARM='IMAGERESTORE' //* //SYSOUT DD SYSOUT=* //BNKIC1 DD DSN=BNKTXN.IC.GDG(0),DISP=OLD //BNKIC2 DD DSN=BNKTXNX1.IC.GDG(0),DISP=OLD //BNKIC3 DD DSN=BNKCUST.IC.GDG(0),DISP=OLD //BNKIC4 DD DSN=BNKACC.IC.GDG(0),DISP=OLD //BNKIC5 DD DSN=BNKTXNX2.IC.GDG(0),DISP=OLD //SYSIN DD * BNKTXN BNKIC1 BNKTXNX1 BNKIC2 BNKCUST BNKIC3 BNKACC BNKIC4 BNKTXNX2 BNKIC5 /* //* //START01 EXEC PGM=MFDBUJCL,PARM='/STA DB BNKTXN' //SYSOUT DD SYSOUT=* //START04 EXEC PGM=MFDBUJCL,PARM='/STA DB BNKCUST' //SYSOUT DD SYSOUT=* //START05 EXEC PGM=MFDBUJCL,PARM='/STA DB BNKACC' //SYSOUT DD SYSOUT=* //