1 /*   BEGIN INCLUDE FILE rw_table_info.incl.pl1
 2 
 3      Written - Al Dupuis
 4 */
 5 /* format: off */
 6 %skip(1);
 7 dcl 1 table_info aligned based (table_ip),
 8       2 version char (8),
 9       2 column_count fixed bin,
10       2 maximum_column_name_length fixed bin,
11       2 maximum_column_value_length fixed bin,
12       2 row_value_length fixed bin (21),
13       2 row_value_ptr ptr,
14       2 columns (ti_init_column_count refer (table_info.column_count)),
15         3 column_name char (69) varying,
16         3 column_data_type  bit (36),
17         3 column_length fixed bin (21),
18         3 column_index fixed bin (21);
19 %skip(1);
20 dcl table_ip ptr;
21 dcl ti_init_column_count fixed bin;
22 dcl TABLE_INFO_VERSION_1 char (8) internal static options (constant) init ("rwti_001");
23 %skip(1);
24 /* END INCLUDE FILE view_master_table_info.incl.pl1    */