1 /* BEGIN vrm_key_list.incl.pl1 -- jaw, 1/17/79 */
 2 
 3 dcl 1 key_list aligned based (key_list_ptr),                /* list of keys for add_key or delete_key */
 4     2 number_of_keys fixed bin,                             /* no. keys in list */
 5     2 key_info (kl_number_of_keys refer (key_list.number_of_keys)),
 6       3 item_index fixed bin,                               /* attr. index or plink index */
 7       3 cand_key bit (1) unal,                              /* on if key is for candidate key */
 8       3 unique_val bit (1) unal,                            /* on if value must be unique */
 9       3 pad bit (34) unal,
10       3 vf_info,                                            /* info for vfile control orders */
11         4 input_key bit (1) unal,                           /* if key val supplied */
12         4 input_desc bit (1) unal,                          /* if desc. supplied */
13         4 reserved bit (34) unal,
14         4 vf_desc,                                          /* vfile_ descriptor */
15           5 comp_no fixed bin (17) unal,
16           5 offset bit (18) unal,
17         4 key char (256) var;
18 
19 dcl  key_list_ptr ptr;
20 dcl  kl_number_of_keys fixed bin;
21 
22 /* END vrm_key_list.incl.pl1 */