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))