Utilities and Procedures › CATVMFMR - Merge Volume Master Files › CATVMFMR Procedure JCL

CATVMFMR Procedure JCL

The following procedure is used to merge the backups of two VMFs into a new VMF.

//******************************************************
//* ****          PROCNAME=CATVMFMR                *****
//******************************************************
//** PROCEDURE TO MERGE TWO VOLUME MASTER FILES        *
//******************************************************
//* Comments
//CATVMFMR PROC A='*',
// BKUPVMF='CAI.TLMS.BKUPVMF', (VMF - A)
// BUFNO='80',
// IDCK='CAI.CTAPOPTN(TLMSIDCK)',
// LOAD='CAI.CTAPLINK',
// OPTS='CAI.CTAPOPTN(TLMSIPO)',
// MERGE='CAI.TLMS.MRGE.VMF', (VMF - B)
// SORTLIB='SYS1.SORTLIB',
// SPCVMF='(CYL,(5,5))',
// WORK='SYSDA',
// VMF='CAI.TLMS.VMF' (New merged VMF file)
//*
//***************************************************
//**    EXECUTE VOLUME MASTER FILE UTILITY         **
//***************************************************
//MRGEVMF EXEC PGM=TLMSVMFU,PARM='++MERGE'
//*
//STEPLIB DD DSN=&LOAD,DISP=SHR
//*
//TLMSOPTS DD DSN=&OPTS,DISP=SHR
//*
//SORTLIB DD DSN=&SORTLIB,DISP=SHR
//*
//CAIVMF DD DSN=&VMF,DISP=OLD
//*
//CAIVMFS DD DSN=&VMF,DISP=SHR,
// DCB=(BUFNO=&BUFNO,OPTCD=C)
//*
//CAIBVMF DD DSN=&BKUPVMF,DISP=OLD
//*
//CAIMVMF DD DSN=&MERGE,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
//*
//****************************************************