The following procedure is used to reload the Volume Master File.
//********************************************************** //* **** PROCNAME=CATVMFRL **** * //********************************************************** //** PROCEDURE TO RELOAD CA TLMS VOLUME MASTER FILE * //********************************************************** //* //CATVMFRL PROC A='*', // BKUPVMF='CAI.TLMS.BKUPVMF', // BUFNO='80', // LOAD='CAI.CTAPLINK', // OPTS='CAI.CTAPOPTN(TLMSIPO)', // VMF='CAI.TLMS.VMF' //* //********************************************************** //** EXECUTE VOLUME MASTER FILE UTILITY * //********************************************************** //RELOAD EXEC PGM=TLMSVMFU,PARM='++RELOAD' //* //STEPLIB DD DSN=&LOAD,DISP=SHR //* //TLMSOPTS DD DSN=&OPTS,DISP=SHR //* //CAIVMFS DD DSN=&VMF,DISP=OLD, // DCB=(BUFNO=&BUFNO,OPTCD=C) //* //CAIBVMF DD DSN=&BKUPVMF,DISP=OLD //* //SYSPRINT DD DCB=BLKSIZE=133,SYSOUT=&A //* //SYSOUT DD SYSOUT=&A //* //SYSUDUMP DD SYSOUT=&A //* //*********************************************************
|
Copyright © 2014 CA.
All rights reserved.
|
|