Utilities and Procedures › CATVMFB - Back Up the Volume Master File › CATVMFB Procedure JCL

CATVMFB Procedure JCL

The following procedure is used to back up the Volume Master File. BUFNO is supplied to speed the reading of an unblocked VMF. Choose a size which is a factor or multiple of the number of blocks per track, for example, 48 for a 3380 device.

//*******************************************************
//*             **** PROCNAME=CATVMFB ***               *
//*******************************************************
//** PROCEDURE TO BACK UP CA TLMS VOLUME MASTER FILE    *
//*******************************************************
//CATVMFB PROC A='*',
// BKUPVMF='CAI.TLMS.BKUPVMF',
// BLKVMFB='8000',
// BUFNO='80',
// LOAD='CAI.CTAPLINK',
// OPTS='CAI.CTAPOPTN(TLMSIPO)',
// TAPE='TAPE',
// VMF='CAI.TLMS.VMF'
//*
//*******************************************************
//** EXECUTE VOLUME MASTER FILE UTILITY                 *
//*******************************************************
//BKUPVMF EXEC PGM=TLMSVMFU,PARM='++DUMP'
//*
//STEPLIB DD DSN=&LOAD,DISP=SHR
//*
//TLMSOPTS DD DSN=&OPTS,DISP=SHR
//*
//CAIVMF DD DSN=&VMF,DISP=SHR
//*
//CAIVMFS DD DSN=&VMF,DISP=SHR,
// DCB=(BUFNO=&BUFNO,OPTCD=C)
//*
//CAIBVMF DD DSN=&BKUPVMF,
// DISP=(NEW,CATLG,DELETE),
// DCB=(DSORG=PS,LRECL=500,BLKSIZE=&BLKVMFB,RECFM=FB),
// UNIT=&TAPE
//*
//SYSPRINT DD DCB=BLKSIZE=133,SYSOUT=&A
//*
//SYSOUT DD SYSOUT=&A
//*
//SYSUDUMP DD SYSOUT=&A
//*
//********************************************************