//INDEXRPT JOB ()
//* -------------- MODIFY JOB CARD AS NEEDED -----------------
//*
//********************************************************
//*
//*  THIS JOB READS DATABASE FILES 1 AND 5 DIRECTLY
//*  AND PRODUCES A COUNT OF EACH RECORD TYPE,
//*  BOTH USED AND REUSABLE ARE COUNTED.
//*
//********************************************************
//*
//INDEXRPT EXEC PGM=INDEXRPT
//STEPLIB  DD  DISP=SHR,DSN=S2K.V1.LOAD
//SYSPRINT DD  SYSOUT=A
//FILE1    DD  DSN=S2K.R121.FOLS1,DISP=SHR
//FILE2    DD  DSN=S2K.R121.FOLS2,DISP=SHR
//FILE3    DD  DSN=S2K.R121.FOLS3,DISP=SHR
//FILE4    DD  DSN=S2K.R121.FOLS4,DISP=SHR
//REPORT   DD  SYSOUT=A
//ERRORS   DD  SYSOUT=A
//DUMPFILE DD  SYSOUT=A