Create Backup Job JCL

The Backup Mission uses the skeleton member to create a backup 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 datasets that will be backed up.

Backup Job JCL

BROWSE -- CTDP.PROD.JOB(BKP0031D)     - 01.00 -------- LINE 00000000 COL 001 080

COMMAND ===>                                                  SCROLL ===> CSR

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

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

//*

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

//*               CONTROL-D BACKUP STEP                             *

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

//BACKUP   EXEC PGM=FDRDSF,REGION=OM

//SYSPRINT DD DSN=CTDP.PROD.BKPM90.BKPLIST,

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

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

//TAPE1    DD DSN=CTDP.BKP.D000428.T175218.LABEL1,

//            LABEL=(1,SL,RETPD=0031),UNIT=TAPE,DISP=(,PASS)

//SYSIN    DD *

   DUMP TYPE=DSF,MAXCARDS=9999

          SELECT  DSN=CTDP.R3.PO1000D.J17840.D1181409.S91.N002300

          SELECT  DSN=CTDP.R3.JAC3056.J17841.D1181419.S91.N004400

          SELECT  DSN=CTDP.R3.BL1140F.J17852.D1181452.S91.N006400

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

//*               CONTROL-D ANALYZE STEP                            *

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

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

//         PARM='17521805,BKPM90  '

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

//TAPE1    DD DSN=*.BACKUP.TAPE1,DISP=(OLD,CATLG),UNIT=(,,DEFER)

//SYSIN    DD DSN=CTDP.PROD.BKPM90.BKPLIST,

//          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=500000')

//SYSPRINT DD SYSOUT=*,HOLD=YES

//SYSABEND DD SYSOUT=*,HOLD=YES

//PRTDBG   DD SYSOUT=*,HOLD=YES

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

Once the JCL for the backup job has been written to the JOB library it is then ready for submission. Note that 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.