1 /* BEGIN INCLUDE FILE ... cobol_file_desc_1.incl.pl1 */
 2 /* Last Modified on Oct. 14, 1978 by FCH */
 3 
 4 dcl file_desc_1_type fixed bin static init(1) options(constant);
 5 dcl file_desc_1_ptr ptr;
 6 
 7 dcl 1 file_desc_1 based(file_desc_1_ptr),
 8     2 type fixed bin,
 9     2 alt_key_count fixed bin,
10     2 prime_key,
11     3  offset fixed bin,
12     3  size fixed bin,
13     2 alt_key(0 refer(file_desc_1.alt_key_count)),
14     3  offset fixed bin,
15     3  size fixed bin;
16 
17 /*
18 
19 FIELD               CONTENTS
20 
21 type                file type
22 alt_key_count       alternate_key_count
23 prime key           prime record key
24 alt_key             alternate record keys
25 offset              offset (in bytes) of key field in record
26 size                size (in bytes) of key field in record
27                     negative if duplicates legal
28 
29 */
30 
31 /* END INCLUDE FILE ... cobol_file_desc_1.incl.pl1 */