1 /* BEGIN INCLUDE FILE dm_rlm_idx_cursor_array.incl.pl1 */
 2 
 3 /* HISTORY:
 4 Written by Matthew Pierret, 03/02/83.
 5 Modified:
 6 10/30/84 by Stanford S. Cox: Changed to not init version.
 7 */
 8 
 9 /* format: style2,ind3 */
10 
11      dcl     1 index_cursor_array   aligned based (index_cursor_array_ptr),
12                2 version            char (8),
13                2 number_of_indices  fixed bin (35),
14                2 mbz                fixed bin (35) init (0),
15                2 cursor_ptr         (ica_number_of_indices refer (index_cursor_array.number_of_indices)) ptr;
16 
17      dcl     index_cursor_array_ptr ptr init (null);
18      dcl     ica_number_of_indices  fixed bin (35) init (0);
19      dcl     INDEX_CURSOR_ARRAY_VERSION_1
20                                     init ("ixcrsra1") char (8) aligned internal static options (constant);
21 
22 
23 /* END INCLUDE FILE dm_rlm_idx_cursor_array.incl.pl1 */