Utilities and Procedures › CATVMFRS - Restore the Volume Master File › CATVMFRS Procedure JCL

CATVMFRS Procedure JCL

The following procedure is used to restore the Volume Master File.

//********************************************************
//*         **** PROCNAME=CATVMFRS ****                  *
//********************************************************
//* PROCEDURE TO RESTORE THE CA TLMS VOLUME MASTER FILE  *
//********************************************************
//CATVMFRS PROC A='*',
//		  BKUPVMF='CAI.TLMS.BKUPVMF',
//		  BUFNO='80',
//		  IDCK='CAI.CTAPOPTN(TLMSIDCK)',
//		  LOAD='CAI.CTAPLINK',
//		  OPTS='CAI.CTAPOPTN(TLMSIPO)',
//		  SORTLIB='SYS1.SORTLIB',
//		  SPCVMF='(CYL,(5,5))',
//		  WORK='SYSDA',
//		  VMF='CAI.TLMS.VMF'
//*
//*********************************************************
//**                EXECUTE VOLUME MASTER FILE UTILITY    *
//*********************************************************
//RESTOVMF	EXEC PGM=TLMSVMFU,PARM='++RESTORE'
//*
//STEPLIB	DD DSN=&LOAD,DISP=SHR
//*
//TLMSOPTS	DD DSN=&OPTS,DISP=SHR
//*
//SORTLIB	DD DSN=&SORTLIB,DISP=SHR
//*
//CAIVMF	DD DSN=&VMF,DISP=SHR
//*
//CAIVMFS	DD DSN=&VMF,DISP=SHR,
// 		   DCB=(BUFNO=&BUFNO,OPTCD=C)
//*
//CAIBVMF	DD DSN=&BKUPVMF,DISP=OLD
//*
//CAIIDCK	DD DSN=&IDCK,DISP=SHR
//*
//SORTWK01	DD UNIT=&WORK,SPACE=&SPCVMF
//*
//SYSPRINT	DD DCB=BLKSIZE=133,SYSOUT=&A
//*
//SYSOUT	DD SYSOUT=&A
//*
//SYSUDUMP	DD SYSOUT=&A
//*
//**************************************************