1 /*        BEGIN INCLUDE FILE linus_display_arg_list.incl.pl1
 2 
 3           Shared structure between the linus_display request and
 4           its argument processor, linus_display_process_args.
 5 
 6           Al Dupuis - August 1983
 7 */
 8 /* format: off */
 9 %skip(3);
10 dcl 1 display_arg_results aligned,
11 
12       2 flags,
13         3 all_flag bit (1) aligned,               /* DEFAULT */
14         3 character_positions_flag bit (1) aligned,
15         3 debug_flag bit (1) aligned,
16         3 keep_report_flag bit (1) aligned,
17         3 keep_retrieval_flag bit (1) aligned,
18         3 long_flag bit (1) aligned,              /* DEFAULT */
19         3 new_report_flag bit (1) aligned,        /* DEFAULT */
20         3 new_retrieval_flag bit (1) aligned,     /* DEFAULT */
21         3 output_file_flag bit (1) aligned,
22         3 output_switch_flag bit (1) aligned,
23         3 truncate_flag bit (1) aligned,          /* DEFAULT */
24         3 pages_flag bit (1) aligned,
25         3 last_page_flag bit (1) aligned,
26         3 scroll_flag bit (1) aligned,
27         3 sort_flag bit (1) aligned,
28         3 temp_dir_flag bit (1) aligned,
29         3 time_flag bit (1) aligned,
30         3 window_flag bit (1) aligned,
31         3 passes_flag bit (1) aligned,
32 
33       2 pathnames,
34         3 output_switch_name char (32) unal,                /* -output_switch */
35         3 output_file_directory_name char (168) unal,       /* -output_file */
36         3 output_file_entry_name char (32) unal,            /* -output_file */
37         3 output_file_pathname char (168) unal,             /* -output_file */
38         3 temp_dir_pathname char (168) unal,                /* -temp_dir */
39         3 window_name char (32) unal,                       /* -window */
40 
41       2 miscellaneous,
42         3 left_margin_position fixed bin,         /* -character_positions */
43         3 right_margin_position fixed bin,        /* -character_positions */
44         3 number_of_passes fixed bin,             /* -passes */
45         3 sort_information_ptr ptr,               /* -sort */
46         3 scroll_info_ptr ptr,                    /* -scroll */
47         3 specified_pages (NUMBER_OF_ALLOWED_SPECIFIED_PAGES) bit (1) unal;     /* -pages */
48 %skip(1);
49 dcl NUMBER_OF_ALLOWED_SPECIFIED_PAGES static internal options (constant) init (10000);
50 /*        END INCLUDE FILE linus_display_arg_list.incl.pl1 */