Below is a sample JCL for the Control-M/Tape New Day procedure. Note the order in which the various tasks are performed. Also note that the CTTTRB job is run both before and after backup of the Media Database to indicate the start and end of the backup procedure.
Figure 4 Sample JCL for New Day Procedure
//I610INDY JOB ,IOA610,MSGCLASS=X,CLASS=A
//*
//*
//*--------------------------------------------------------------
//*
//* CONTROL-M/TAPE DAILY JOB
//*--------------------------------------------------------------
//* THE BACKUP OF THE MEDIA DATABASE IS PERFORMED BY DFDSS.
//* THIS BACKUP INCLUDES ALL THE MEDIA DATABASE EXTENTS.
//* PLEASE CHANGE THE MEDIA DATABASE PREFIX IN SYSIN DD STATEMENT
//* OF THE CTTBKPM STEP.
//*
//* IN CASE YOU NEED TO RESTORE THE MEDIA DATABASE YOU HAVE
//* TO USE DFDSS WITH RESTORE STATEMENT.
//*--------------------------------------------------------------
//*
// JCLLIB ORDER=%ILPREFA%.PROCLIB
// INCLUDE MEMBER=IOASET%INSTID%
//*
//*--------------------------------------------------------------
//* CHECK CONTROL-M/TAPE OPERATION MODE
//*--------------------------------------------------------------
//*
//CTTCHK EXEC CTTINIT,
// PARM='MODE=CHECK'
//*
//*--------------------------------------------------------------
//* RELOAD CONTROL-M/TAPE RULES - THIS STEP IS OPTIONAL
//*--------------------------------------------------------------
//*
//CTTINIT EXEC CTTINIT,
// PARM='MODE=RELOAD,TBLT=RULE'
//*
//*--------------------------------------------------------------
//* CONTROL-M/TAPE RETENTION MANAGEMENT
//*--------------------------------------------------------------
//*
//CTTRTM EXEC CTTRTM,REGION=32M
//CTTRTM.SYSIN DD *
TYPERUN MODE=NORMAL
TYPERET MODE=REGULAR
REPORT NAME=SCRATCH,SUMMARY=YES
FIELDS ROWID,VOLSER,SLNAME,MEDIA,EXPDT,LACCDT,LOCATION,POOL,
DSNAME,EXPDS
SORTBY POOL/B,VOLSER
/*
//*
//*--------------------------------------------------------------
//* CONTROL-M/TAPE VAULTING MANAGEMENT
//*--------------------------------------------------------------
//*
//CTTVTM EXEC CTTVTM,REGION=32M
//CTTVTM.SYSIN DD *
TYPERUN MODE=NORMAL
TYPEVLT MODE=REGULAR
REPORT NAME=DISTRIB,SUMMARY=YES
FIELDS ROWID,VOLSER,DSNAME,TOSLOT,VOLSEQ,EXPDT,LBLTYP,CREJBN,CREDT
SORTBY FROMLOC/B,TOLOC/B,VOLSER
REPORT NAME=DISTRIB,SUMMARY=YES
FIELDS ROWID,TOLOC,VOLSER,FROMSLOT,TOSLOT,NEXTLOC
SORTBY FROMLOC/B,TOLOC,VOLSER
REPORT NAME=DISTRIB,SUMMARY=YES
FIELDS ROWID,FROMLOC,VOLSER,FROMSLOT,TOSLOT,NEXTLOC
SORTBY TOLOC/B,FROMLOC,VOLSER
/*
//*
//*--------------------------------------------------------------
//* UPDATE CONTROL-M/TAPE STACKING DATABASE FROM THE TRACE FILE
//*--------------------------------------------------------------
//*
//CTTSTK EXEC CTTSTK,SMFIN=NULLFILE,REGION=5M
//CTTSTK.SYSIN DD *
TYPERUN MODE=TRC
/*
//*
//*--------------------------------------------------------------
//* BACKUP CONTROL-M/TAPE MEDIA DATABASE AND TRACE FILE
//*--------------------------------------------------------------
//*
//CTTTRB1 EXEC CTTTRB,PARM='BKP=START'
//*
//CTTBKPM EXEC PGM=ADRDSSU
//SYSPRINT DD SYSOUT=*
//TAPE DD DISP=(,KEEP),UNIT=TAPE,
// DSN=&DBPREFT..MDBBKP
//SYSIN DD * <<== CHANGE CONTROL-M/TAPE MEDIA PREFIX
DUMP DATASET( -
INCLUDE(CTT.V610.MDBD.E*)) -
OUTDDNAM(TAPE) -
TOL(ENQF)
//*
//CTTBKPT EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=&DBPREFT..TRC
//SYSUT2 DD DISP=(,KEEP),UNIT=TAPE,
// DSN=&DBPREFT..TRCBKP
//SYSIN DD DUMMY
//*
//CTTTRB2 EXEC CTTTRB,PARM='BKP=END'
//*
//*--------------------------------------------------------------
//* ANALYZE THE MEDIA DATABASE
//*--------------------------------------------------------------
//*
//CTTIDB EXEC CTTIDB
//SYSIN DD *
TYPERUN MODE=UPDATE,USEDAYS=7
//*
//*--------------------------------------------------------------
//* ISSUE WARNING IF CTTDAY DID NOT FINISH SUCCESSFULLY
//*--------------------------------------------------------------
//*
// IF (CTTVTM.CTTVTM.RC >= 8 OR
// CTTRTM.CTTRTM.RC >= 8 OR
// CTTSTK.CTTSTK.RC >= 8 OR
// CTTIDB.CTTIDB.RC >= 8 OR
// CTTINIT.CTTINIT.RC >= 8 OR
// CTTBKPM.RC >= 8 OR
// CTTBKPT.RC >= 8 OR
// ABEND) THEN
//WARNING EXEC PGM=CTM35F
// INCLUDE MEMBER=&IOAENV
//SYSPRINT DD SYSOUT=*
//DA35F DD DISP=SHR,
// DSN=&OLPREFT..PARM(WARNDAY)
// ENDIF
//*---------------------------------------------------------------
//*
//
Parent Topic |