1 /* BEGIN value_structures.incl.pl1 */
 2 
 3 dcl (match_info_ptr, value_list_info_ptr) ptr;
 4 dcl (alloc_name_count, alloc_pair_count) fixed bin;
 5 dcl (alloc_max_name_len, alloc_chars_len) fixed bin (21);
 6 
 7 dcl 1 match_info aligned based (match_info_ptr),
 8    2 version fixed bin,                                     /* = 1 */
 9    2 name_count fixed bin,
10    2 max_name_len fixed bin (21),
11    2 name_array (alloc_name_count refer (match_info.name_count)),
12     3 exclude_sw bit (1) unaligned,                         /* ON for -exclude, OFF for -match */
13     3 regexp_sw bit (1) unaligned,                          /* ON for regular exp. without the //, OFF for starname */
14     3 pad bit (34) unaligned,
15     3 name char (alloc_max_name_len refer (match_info.max_name_len)) varying;
16 
17 dcl 1 value_list_info aligned based (value_list_info_ptr),
18    2 version fixed bin,                                     /* = 1 */
19    2 pair_count fixed bin,
20    2 chars_len fixed bin (21),
21    2 pairs (alloc_pair_count refer (value_list_info.pair_count)),
22     3 type_switches bit (36),                               /* correspond to the selection switches arg */
23     3 (name_index, name_len) fixed bin (21),
24     3 (value_index, value_len) fixed bin (21),
25    2 chars char (alloc_chars_len refer (value_list_info.chars_len));
26 
27 dcl (match_info_version_1, value_list_info_version_1) fixed bin int static options (constant) init (1);
28 
29 /* END OF value_structures.incl.pl1 */