1 /* BEGIN mrds_range.incl.pl1 -- jaw, 10/20/78 */
 2 
 3 /* Modified 83-04-22 by R. Harvey to add needed_bits */
 4 
 5 dcl 1 range aligned based (range_ptr),
 6     2 num_vars fixed bin,                                   /* number of tuple variables */
 7     2 tup_var (mrds_data_$max_tup_var refer (range.num_vars)), /* info for each tuple variable */
 8       3 name char (mrds_data_$max_id_len),                  /* name of tuple variable */
 9       3 temp_rel bit (1) unal,                              /* on if temporary relation */
10       3 used bit (1) unal,                                  /* 1 => this tuple variable is referenced by
11                                                                a -select clause. */
12       3 whole_tuple_selected bit (1) unal,                  /* the whole tuple variable is referenced in the select clause */
13       3 copy_for_current bit (1) unal,                      /* -current requests attributes not previously retrieved */
14       3 copied_for_current bit (1) unal,                    /* tuple copied during previous -current */
15       3 reserved bit (31) unal,                             /* reserved for future use */
16       3 rel_index fixed bin,                                /* index to assoc. relation */
17       3 stv_ptr ptr,                                        /* simple typed vector */
18       3 idl_ptr ptr,                                        /* id_list ptr */
19       3 needed_bits aligned,
20         4 attr (mrds_data_$max_attributes) bit (1) unal,
21       3 ri_ptr ptr;                                         /* pointer to rel info for assoc. relation */
22 
23 dcl  range_ptr ptr;
24 
25 /* END mrds_range.incl.pl1 */
26