CASSPOOL includes six keyed indexes from which to choose. To select an index, move its corresponding 78-level field to the KEY-ID field. To illustrate this point, the following partial listing from mfpubcas.cpy shows the available indexes:
...
* ==============================================
03 KEY-DATA.
05 ()-key-id PIC x.
* available keys are:
78 78-KEY-IS-type value '1'.
* type, rec-class, rec-priorty, rec-version, job-nbr, job-seq
78 78-KEY-IS-job-NUMBER value '2'.
* job-nbr, job-seq
78 78-KEY-IS-type-job-name value '3'.
* type, job-name, job-nbr
78 78-KEY-IS-type-userid value '4'.
* type, userid, job-nbr
78 78-KEY-IS-type-job-nbr value '5'.
* type and job-nbr
78 78-KEY-IS-type-date value '6'.
* type, date, job-nbr
* ===========================================
...