イメージ復元ジョブは、以下を含んでいる JCL を使用して実行します。
//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
以下に、イメージ復元ユーティリティの実行に必要な JCL の完全な例を示します。ここでは、SYSIN データの最初の 8 バイトに定義される 5 つのデータベースが、DD 文で指定される場所から ES_IMSDAT 環境変数で指定される場所に復元されることを指定しています。
//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=* //