1 /* BEGIN INCLUDE FILE... cmcs_key_dcls.incl.pl1 */
 2 
 3 /*
 4    This COBOL MCS include file gives the structure of the key fields used to access
 5    the message records in an indexed vfile.
 6 */
 7 
 8 /* Bob May, 5/31/77 */
 9 
10 dcl  key char (256) varying;                                /* used by iox_ */
11 
12 dcl 1 key_struc aligned,
13    (2 key_len init (8),
14     2 msg_no,
15     2 seg_no) fixed bin (35);
16 
17 dcl  based_key char (8) varying based (addr (key_struc));
18 
19 /* END INCLUDE FILE... cmcs_key_dcls.incl.pl1 */