Utilities and Procedures › CATVMFRV - Recover the Volume Master File › CATVMFRV Procedure JCL

CATVMFRV Procedure JCL

The following procedure both restores and recovers the VMF to a newly initialized VMF file.

//*************************************************************
//*                    **** PROCNAME=CATVMFRV ****            *
//*************************************************************
//** RECOVER VOLUME MASTER FILE TO POINT OF FAILURE           *
//*************************************************************
//** CA TLMS VMF MUST BE REINITED (CATVMFI) BEFORE THIS STEP. *
//*************************************************************
//CATVMFRV PROC A='*',
//	  BKUPVMF='CAI.TLMS.BKUPVMF',
//	  BUFNO='80',
//	  IDCK='CAI.CTAPOPTN(TLMSIDCK)',
//	  LOAD='CAI.CTAPLINK',
//	  OPTS='CAI.CTAPOPTN(TLMSIPO)',
//	  SPCVMF='(CYL,(5,5))',
//	  SORTLIB='SYS1.SORTLIB',
//	  BKUPALOG='CAI.TLMS.BKUPALOG',
//	  VMF='CAI.TLMS.VMF',
//	  WORK='SYSDA'
//*
//*
//*******************************************************
//**			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
//*
//*
//****************************************************
//** REBUILD VOLUME MASTER TO POINT OF FAILURE       *
//** (USES BKUPALOG OR SMF)                          *
//****************************************************
//RECOVVMF	EXEC PGM=TLMSRECV,
//		    COND=(4,LT)
//*
//STEPLIB	DD DSN=&LOAD,DISP=SHR
//*
//SORTLIB	DD DSN=&SORTLIB,DISP=SHR
//*
//TLMSOPTS	DD DSN=&OPTS,DISP=SHR
//*
//CAIVMF	DD DSN=&VMF,DISP=SHR
//*
//CAIVMFS	DD DSN=&VMF,DISP=SHR
//*
//CAIBVMF	DD DSN=&BKUPVMF,DISP=OLD
//*
//VMFTRANS DD DSN=&BKUPALOG,DISP=OLD	BKUP ALOG OR SMF
//*
//SORTWK01 DD UNIT=&WORK,SPACE=&SPCVMF
//*
//SYSPRINT DD DCB=BLKSIZE=133,SYSOUT=&A
//*
//SYSOUT DD SYSOUT=&A
//*
//SYSUDUMP DD SYSOUT=&A
//*
//SYSIN DD DUMMY
//*
//**************************************************************