1 /* BEGIN mdbm_rtrv_info.incl.pl1 -- jaw, 3/15/79 */
 2 
 3 /*
 4    HISTORY
 5 
 6    82-09-21 Davids: removed reference to the iocb_ind element which was the
 7    index in the rm_rel_info.iocb_ptr array of the iocb to be used and added
 8    the cursor_ptr element.
 9 
10    82-10-1  Woodka: changed tid_array to be bit (36) aligned instead of
11    bit (36) unaligned.
12 
13    82-10-22 Woodka : added first_seq_io bit and changed reserved to bit 32.
14 
15    82-10-26 Davids: added the record_collection_cursor_ptr element. This is
16    needed because the relation manager get_tuple_by_id entry requires a
17    record collection cursor.
18 
19    83-05-03 Mike Kubicar : deleted the unused fields: thd_type, seq_io,
20    seed_id, link_io, free_array and thd_ptr.  Added the maxtids field.
21 
22    83-05-31 Mike Kubicar : got rid of cursor_ptr and
23    record_collection_cursor_ptr.  Inserted the field relation_cursor_ptr.
24 
25 */
26 
27 dcl 1 rtrv_info aligned based (rti_ptr),                    /* info needed to retrieve a tuple */
28     2 ri_ptr ptr,                                           /* to rel_info */
29     2 relation_cursor_ptr ptr,                              /* pointer to cursor to use */
30     2 ntids fixed bin,                                      /* no of tuple ids in list */
31     2 ctid fixed bin,                                       /* current position in list */
32     2 maxtids fixed bin,                                    /* Maximum number of tids to search for */
33     2 first_seq_io bit (1) unal,                            /* on if first sequential i/o is to be done */
34     2 reserved bit (35) unal,
35     2 ta_ptr ptr;                                           /* to array of tuple ids */
36 
37 dcl  rti_ptr ptr;
38 
39 dcl  tid_array (ta_nids) bit (36) aligned  based (ta_ptr);  /* array of tuple ids */
40 
41 dcl  ta_nids fixed bin;
42 dcl  ta_ptr ptr;
43 
44 /* END mdbm_rtrv_info.incl.pl1 */
45