1 /*   BEGIN INCLUDE FILE rw_table_control_info.incl.pl1
 2 
 3      Written - Al Dupuis
 4 */
 5 /* format: off */
 6 %skip(1);
 7 dcl 1 row_ptrs aligned based (row_ptrs_ptr),
 8       2 number_of_ptrs_in_this_segment fixed bin (21),
 9       2 row_value_ptr (row_ptrs.number_of_ptrs_in_this_segment) ptr unaligned;
10 %skip(1);
11 dcl 1 table_control_info aligned based (table_control_ip),
12       2 row_count fixed bin (35),
13       2 number_of_components fixed bin,
14       2 maximum_number_of_rows_per_segment fixed bin (21),
15       2 current_segment_row_count fixed bin (21),
16       2 table_information_ptr ptr,
17       2 table_segments_info_ptr ptr,
18       2 msf_file_control_block_ptr ptr,
19       2 current_component_ptr ptr,
20       2 general_work_area_ptr ptr,
21       2 temp_seg_info_ptr ptr,
22       2 subsystem_control_info_ptr ptr,
23       2 msf_file_name char (32) unaligned,
24       2 msf_directory_name char (168) unaligned;
25 %skip(1);
26 dcl 1 table_segments_info aligned based (table_segments_ip),
27       2 maximum_number_of_segments fixed bin,
28       2 maximum_number_of_ptrs_per_segment fixed bin (21),
29       2 current_number_of_segments fixed bin,
30       2 segment_ptrs (tsi_init_maximum_number_of_segments refer
31         (table_segments_info.maximum_number_of_segments)) ptr;
32 %skip(1);
33 dcl row_ptrs_ptr ptr;
34 dcl table_segments_ip ptr;
35 dcl table_control_ip ptr;
36 dcl tsi_init_maximum_number_of_segments fixed bin (21);
37 %skip(1);
38 /* END INCLUDE FILE rw_table_control_info.incl.pl1    */