Secondary index

Every secondary index file must be initialized with a header record having the minimum record length, 76 characters, all set to binary zeroes.

This is a sample of JCL that initializes the header record of a secondary index file. It can be run separately or added to the job that creates the VSAM files.

//*---------------------------------------------------------------*
//* PREPARE HEADER RECORD
//*---------------------------------------------------------------*
//INIT01   EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD *
 0       
/*
//SORTOUT  DD DSN=OPCDEV2.RES.SKIHDR,DISP=(NEW,CATLG),UNIT=SYSDA,
              DCB=(RECFM=F,LRECL=76,BLKSIZE=76),SPACE=(TRK,(1))
//DFSPARM  DD *
  RECORD TYPE=F
  SORT FIELDS=(1,1,CH,A)
  OUTREC FIELDS=(76X’00’)
//*---------------------------------------------------------------*
/* INITIALIZE SECONDARY INDEX
//*---------------------------------------------------------------*
//INIT02   EXEC PGM=IDCAMS
//SYSPRINT   DD SYSOUT=*
//SYSIN      DD *
             REPRO INDATASET(OPCDEV2.RES.SKIHDR)-
             OUTDATASET(OPCDEV2.RES.SKI0X)
//*---------------------------------------------------------------*
//* DELETE INPUT FILE
//*---------------------------------------------------------------*
//INIT03   EXEC PGM=IEFBR14
//SORTOUT    DD DSN=OPCDEV2.RES.SKIHDR,DISP=(OLD,DELETE,DELETE)