1 /* BEGIN INCLUDE FILE cobol_gk_info.incl.pl1 */
 2 /* Created on 02/01/79 by FCH */
 3 
 4 dcl gk_info_ptr ptr;
 5 dcl 1 gk_info based (gk_info_ptr),
 6     2  flags aligned,
 7     3   input_key bit(1) unal,
 8     3   input_desc bit(1) unal,
 9     3   desc_code fixed bin(2) unal,
10     3   position_specification unal,
11     4    current bit(1) unal,
12     4    rel_type fixed bin(2) unal,
13     4    head_size bit(9) unal,
14     3   reset_pos bit(1) unal,
15     3   mbz bit(8) unal,
16     3   version fixed bin(9) unal,
17     2  descriptor fixed bin(35),
18     2  key_length fixed bin(17),
19     2  key_string char(256 refer(gk_info.key_length));
20 dcl gk_info_version_0 static init(0);
21 
22 /*  END INCLUDE FILE ... cobol_gk_info.incl.pl1 */