Primary index

You must define one primary index for each data store and initialize it with a header record.

This is an example of JCL for the scratch and creation of the primary index file:

//DELPKI   EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
           DELETE OPCDEV.PKI0X CLUSTER PURGE
//*----------------------------------------------------------------
//DEFPKI   EXEC PGM=IDCAMS
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD *
           DEFINE CLUSTER(NAME(OPCDEV.PKI0X)-
           CYLINDERS(2,1)-
           VOLUMES(S25PRA)-
           KEYS(34,0)-
           RECORDSIZE(77,77)-
           CISZ(4096)-
           UNIQUE-
           INDEXED-
           SHR(1,3)-
           FREESPACE(10,10))