1 /* BEGIN mrds_tuple_info.incl.pl1 -- jaw 11/2/78 */
 2 
 3 /* HISTORY:
 4 
 5    Modified in March 1977 by O Friesen to hold allocated ptr and length
 6    82-10-29 Mike Kubicar : Made tuple_id aligned
 7 
 8 */
 9 
10 dcl 1 tuple_info aligned based (ti_ptr),
11     2 num_tuples fixed bin,                                 /* no. of tuples for which info given */
12     2 tuple (ti_ntuples_init refer (tuple_info.num_tuples)),
13       3 tuple_ptr ptr,                                      /* pointer to found tuple */
14       3 tuple_id bit (36) aligned,                          /* tuple id for  found tuple */
15       3 var_index fixed bin;                                /* index to tuple variable  */
16 
17 dcl  ti_ptr ptr;
18 dcl  ti_ntuples_init fixed bin;
19 
20 /* END mrds_tuple_info.incl.pl1 */
21