Utilities and Procedures › CATVMFXI - Initialize or Re-create the VMF Index File › CATVMFXI Procedure JCL

CATVMFXI Procedure JCL

The following procedure initializes the VMF index file:

//******************************************************
//*****             PROCNAME=CATVMFXI ****             *
//******************************************************
//**        PROCEDURE TO CREATE A VMF INDEX FILE       *
//******************************************************
//CATVMFXI PROC A='*',
//		  LOAD='CAI.CTAPLINK',
//		  OPTS='CAI.CTAPOPTN(TLMSIPO)',
//		  SORTLIB='SYS1.SORTLIB',
//		  VMF='CAI.TLMS.VMF',
//		  VMFIDX='CAI.TLMS.VMFINDEX',
//		  WORK='SYSDA'
//*
//*******************************************************
//IDCAMS	EXEC PGM=IDCAMS
//*
//SYSPRINT	DD SYSOUT=&A
//*
//SYSIN	DD DUMMY VSAM DEFINITION
//*
//******************************************************
//**           BUILD THE INDEX RECORDS                 *
//******************************************************
//VMFINDEX	EXEC PGM=TLMSVSUT,
//		    PARM='&PRM',
//		    COND=(0,NE)
//*
//STEPLIB	DD DSN=&LOAD,DISP=SHR
//*
//TLMSOPTS	DD DSN=&OPTS,DISP=SHR
//*
//CAIVMF	DD DSN=&VMF,DISP=SHR
//*
//CAIVMFXI	DD DSN=&VMFIDX,DISP=SHR
//*

//SORTLIB	DD DSN=&SORTLIB,DISP=SHR
//*
//SYSOUT	DD SYSOUT=&A
//*
//SYSPRINT	DD SYSOUT=&A
//*
//SORTWK01	DD UNIT=&WORK,SPACE=(CYL,(10))
//*
//SYSUDUMP	DD SYSOUT=&A
//*
//SYSIN	DD DUMMY
//*
//************************************************************