1 /*  BEGIN INCLUDE FILE   mode_string_info.incl.pl1                                                                      */
 2 
 3 /* Structure for parse_mode_string_ JRDavis 20 October 1980
 4    Last modified 12 January 1981 by J. Spencer Love for version 2, make char_value varying string */
 5 
 6 declare   mode_value_ptr                ptr,
 7           number_of_modes               fixed bin;
 8 
 9 declare   1 mode_string_info            aligned based (mode_string_info_ptr),
10             2 version                   fixed bin,
11             2 number                    fixed bin,
12             2 modes                     (number_of_modes refer (mode_string_info.number)) like mode_value;
13 
14 declare   mode_string_info_ptr          ptr;
15 
16 declare   1 mode_value                  aligned based (mode_value_ptr),
17             2 version                   fixed bin,
18             2 mode_name                 char (32) unaligned,
19             2 flags,
20               3 boolean_valuep          bit (1) unaligned,
21               3 numeric_valuep          bit (1) unaligned,
22               3 char_valuep             bit (1) unaligned,
23               3 boolean_value           bit (1) unaligned,
24               3 pad1                    bit (32) unaligned,
25             2 numeric_value             fixed bin (35),
26             2 char_value                char (32) varying,
27             2 code                      fixed bin (35),
28             2 pad2                      bit (36);
29 
30 declare   mode_string_info_version_2    fixed bin static options (constant) initial (2),
31           mode_value_version_3          fixed bin static options (constant) initial (3);
32 
33 /* END INCLUDE FILE   mode_string_info.incl.pl1                                                                         */