Utilities and Procedures › CATALOGB - Backup the Alternate Log File › CATALOGB Procedure JCL

CATALOGB Procedure JCL

The following procedure is used to back up the alternate log file.

//***************************************************************
//*             ****  PROCNAME=CATALOGB  ****                   *
//***************************************************************
//** PROCEDURE TO DUMP THE CA TLMS ALTERNATE LOG FILE TO BACKUP *
//***************************************************************
//*
//CATALOGB PROC A='*',
//             ALOG='CAI.TLMS.ALOG',
//             BKUPALOG='CAI.TLMS.BKUPALOG',
//             LOAD='CAI.CTAPLINK',
//             OPTS='CAI.CTAPOPTN(TLMSIPO)',
//             TAPE='TAPE'
//*
//BKUPALOG EXEC PGM=TLMSALOG
//*
//STEPLIB  DD  DSN=&LOAD.,DISP=SHR
//*
//TLMSOPTS DD  DSN=&OPTS.,DISP=SHR
//*
//CAIALOG  DD  DSN=&ALOG.,DISP=SHR
//*
//CAIBALOG DD  DSN=&BKUPALOG.,
//             DISP=(NEW,CATLG,DELETE),
//             UNIT=&TAPE.
//*
//SYSPRINT DD  DCB=BLKSIZE=133,SYSOUT=&A.
//*
//SYSUDUMP DD  SYSOUT=&A.
//*
//SYSIN    DD  DUMMY
//*
//**************************************************************