1 /*   BEGIN INCLUDE FILE rw_row_info.incl.pl1
 2 
 3      Written - Al Dupuis
 4 */
 5 /* format: off */
 6 %skip(1);
 7 dcl 1 row_info aligned based (row_info_ptr),
 8       2 version char (8) unaligned,
 9       2 value_ptr ptr,
10       2 value_length fixed bin (21),
11       2 number_of_columns fixed bin,
12       2 current_column_number fixed bin,
13       2 column (row_info_init_number_of_columns
14                 refer (row_info.number_of_columns)),
15         3 names char (128) varying,
16         3 descriptors bit (36),
17         3 lengths fixed bin (21),
18         3 indexes fixed bin (21);
19 %skip(1);
20 dcl row_info_init_number_of_columns fixed bin;
21 dcl row_info_ptr ptr;
22 %skip(1);
23 dcl row_value char (row_info.value_length) based (row_info.value_ptr);
24 %skip(1);
25 dcl row_value_as_an_array (row_info.value_length) char (1) based (row_info.value_ptr);
26 %skip(1);
27 dcl column_value char (row_info.column.lengths (row_info.current_column_number))
28      based (addr (row_value_as_an_array (row_info.column.indexes (row_info.current_column_number))));
29 %skip(1);
30 dcl ROW_INFO_VERSION_1 char (8) internal static options (constant) init ("rwri_001");
31 %skip(1);
32 /* END INCLUDE FILE rw_row_info.incl.pl1    */