The following procedure is used to modify control data in the active VMF.
//***************************************************** //* **** PROCNAME=CATVMFSC **** * //***************************************************** //** PROCEDURE TO SET VALUES OF CONTROL FIELDS * //***************************************************** //* //CATVMFSC PROC A='*', // IDCK='CAI.CTAPOPTN(TLMSIDCK)', // LOAD='CAI.CTAPLINK', // OPTS='CAI.CTAPOPTN(TLMSIPO)', // VMF='CAI.TLMS.VMF' //* //***************************************************** //** EXECUTE VOLUME MASTER FILE UTILITY * //***************************************************** //SETCTL EXEC PGM=TLMSVMFU,PARM='++SETCTL ' //* //STEPLIB DD DSN=&LOAD,DISP=SHR //* //TLMSOPTS DD DSN=&OPTS,DISP=SHR //* //CAIVMF DD DSN=&VMF,DISP=OLD //* //CAIIDCK DD DSN=&IDCK,DISP=SHR //* //SYSPRINT DD DCB=BLKSIZE=133,SYSOUT=&A //* //SYSUDUMP DD SYSOUT=&A //* //****************************************************
|
Copyright © 2014 CA.
All rights reserved.
|
|