Create Restore Job JCL

The restore mission uses the skeleton member to create a restore job in the Control-D JOB library (the backup job library). All variable values from the skeleton member are substituted. This job contains a list of all the CDAM data restored.

Restore Job JCL

EDIT ---- CTDP.PROD.JOB(RST0060M)    - 01.00 ------------------ COLUMNS 001 072

COMMAND ===>                                                  SCROLL ===> CSR

*********************************** TOP OF DATA ******************************

//M90RST JOB ,IOA,CLASS=A,MSGCLASS=X

//*

//*******************************************************************

//*                       RESTORE STEPS                             *

//*******************************************************************

//*

//RESTORE  EXEC PGM=FDRDSF,COND=EVEN,REGION=OM

//SYSPRINT DD DSN=CTDP.PROD.M90RST.RSTLIST,

//            DISP=(MOD,PASS),SPACE=(CYL,(1,1)),UNIT=SYSALLDA

//DISK1    DD UNIT=SYSALLDA,DISP=SHR,VOL=SER=FDSYM3

//TAPE1    DD DSN=CTDP.BKP.D000317.T175627.LABEL1,

//            UNIT=(TAPE,,DEFER),DISP=SHR

//SYSIN    DD  *

    RESTORE TYPE=DSF,MAXCARDS=9999

           RESTORE DSN=CTDP.R3.JGL1030.J08529.D0761755.S91.N002500

           RESTORE DSN=CTDP.R3.BL1140D.J08502.D0761542.S91.N000900

//*

//*******************************************************************

//*                 CONTROL-D ANALYZE STEP                          *

//*******************************************************************

//ANALYZE  EXEC PGM=CTDRSC,COND=EVEN,REGION=OM,

//            PARM='13470051,M90RST  '

//STEPLIB  DD DSN=IOAP.PROD.LOAD,DISP=SHR

//SYSIN    DD DSN=CTDP.PROD.M90RST.RSTLIST,

//          DISP=(OLD,DELETE)

//DAAMF    DD DISP=SHR,DSN=CTDP.PROD.Active Missions File

//DAAMF1   DD DISP=SHR,DSN=CTDP.PROD.Active Missions File

//DALOG    DD DISP=SHR,DSN=IOAP.PROD.LOG

//DAVACT   DD DSN=CTDP.PROD.ACTUSR,DISP=SHR,

//          AMP=('BUFSP=300000')

//DAVHST   DD DSN=CTDP.PROD.HSTUSR,DISP=SHR,

//          AMP=('BUFSP=300000')

//SYSPRINT DD SYSOUT=*,HOLD=YES

//SYSABEND DD SYSOUT=*,HOLD=YES

//PRTDBG   DD SYSOUT=*,HOLD=YES

//

********************************** BOTTOM OF DATA ****************************

Once the JCL for the restore job has been written to the JOB library it is then ready for submission.

Note: Because this library is used to create a new member (or replace an existing one), the library should be compressed on a regular basis to avoid any space problems.