Primary index

Every primary index file must be initialized with a header record:

POS 1 - 8    blank
POS 9 - 16   '00010101'
POS 17 - 77  'b   (binary zeros)

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

//INIPKI   EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD *
        00010101
/*
//SORTOUT  DD DSN=OPCDEV2.RES.PKI0X,DISP=SHR
//DFSPARM  DD *
  RECORD TYPE=V
  SORT FIELDS=(1,16,CH,A)
  OUTREC FIELDS=(9:C'00010101',61Z)