1 /* BEGIN INCLUDE FILE ... linus_sort_info.incl.pl1
 2 
 3    Info structure used to provide sorting through linus.
 4    Written: Dave Schimke 2/25/83
 5 */
 6 %skip(3);
 7 dcl 1 sort_info based (sort_info_ptr),
 8       2 number_of_columns_to_sort fixed bin (17),
 9       2 columns (no_of_candidate_columns refer(sort_info.number_of_columns_to_sort)),
10         3 number fixed bin (17),
11         3 modes,
12           4 descending bit (1) unal,
13           4 non_case_sensitive bit (1) unal,
14           4 mbz1 bit(34) unal;
15 %skip(3);
16 dcl sort_info_ptr ptr;
17 dcl no_of_candidate_columns fixed bin;
18 %skip(3);
19 
20 /* END INCLUDE FILE linus_sort_info.incl.pl1 */