1 /*  BEGIN INCLUDE FILE linus_report_info.incl.pl1
 2     Information needed to control the report environment.
 3     Al Dupuis - August 1983
 4 */
 5 /* format: off */
 6 %skip (1);
 7      dcl     1 report_control_info aligned  based (report_cip),
 8                2 flags,
 9                  3 report_is_paginated bit (1) unaligned,            /* paged or one continous stream */
10                  3 table_has_been_started bit (1) unaligned,         /* table clean up is necessary */
11                  3 table_is_full    bit (1) unaligned,               /* no more retrieves are necessary */
12                  3 report_has_been_started bit (1) unaligned,        /* report clean up is necessary */
13                  3 report_is_formatted bit (1) unaligned,            /* no more formatting is necessary */
14                  3 permanent_report bit (1) unaligned,               /* or disposable */
15                  3 permanent_table  bit (1) unaligned,               /* or disposable */
16                  3 report_has_just_been_completed bit (1) unaligned, /* used for printing timers */
17                  3 table_has_just_been_loaded bit (1) unaligned,     /* used for printing timers */
18                  3 multi_pass_mode bit (1) unaligned,                /* on if we are to do more than 1 pass */
19                  3 available        bit (26) unaligned,
20                2 format_options_flags,                               /* used to determine if value is default */
21                  3 general_report_default_value (NUMBER_OF_GENERAL_REPORT_OPTIONS_IN_TABLE) bit (1) unaligned,
22                  3 general_column_default_value (NUMBER_OF_GENERAL_COLUMN_OPTIONS_IN_TABLE) bit (1) unaligned,
23                2 value_seg_ptr      ptr,                             /* the options value seg */
24                2 name_value_area_ptr ptr,                            /* area for name-value allocations */
25                2 name_value_temp_seg_ptr ptr,                        /* temp seg for name-value space */
26                2 display_work_area_ptr ptr,                          /* display workspace */
27                2 report_temp_seg_ptr ptr,                            /* report workspace */
28                2 report_work_area_ptr ptr,                           /* report workspace */
29                2 format_report_info_ptr ptr,                         /* info needed to create a report */
30                2 input_string_temp_seg_ptr ptr,                      /* report workspace */
31                2 output_string_temp_seg_ptr ptr,                     /* report workspace */
32                2 editing_strings_temp_seg_ptr ptr,                   /* report workspace */
33                2 headers_temp_seg_ptr ptr,                           /* report workspace */
34                2 display_iocb_ptr   ptr,                             /* report is displayed through this */
35                2 selection_expression_identifier fixed bin,          /* current selection expression */
36                2 options_identifier fixed bin,                       /* current set of options */
37                2 report_identifier  fixed bin,                       /* current report */
38                2 retrieval_identifier fixed bin,                     /* current retrieval */
39                2 no_of_rows_retrieved fixed bin (35),                /* current no of rows */
40                2 no_of_formatted_pages fixed bin (21),               /* current no of pages */
41                2 number_of_passes fixed bin,                         /* number of times report will be formatted */
42                2 table_loading_time float bin (63),
43                2 table_sorting_time float bin (63),
44                2 table_deletion_time float bin (63),
45                2 report_setup_time  float bin (63),
46                2 report_formatting_time float bin (63),
47                2 report_display_time float bin (63),
48                2 report_deletion_time float bin (63),
49                2 ssu_evaluate_active_string_time float bin (63),
50                2 temp_dir_unique_id bit (36),               /* uid of temp dir */
51                2 temp_dir_name      char (168) unaligned;   /* the dir where we place the retrieved table and report */
52      dcl     report_cip             ptr init (null ());
53 
54 /*  END INCLUDE FILE linus_report_info.incl.pl1  */