1 /* BEGIN INCLUDE FILE dm_rlm_cursor.incl.pl1 */ 2 3 /* HISTORY: 4 5 Written by Matthew Pierret, 05/19/83. 6 Modified: 7 06/24/83 by Lindsey L. Spratt: Changed to version 2. Added the current.flags 8 structure, to add the search_index_and_record_collection flag. 9 This flag is only meaningful when doing a relative search. It is 10 used by rlm_general_search to know what state the 11 internal_search_specification was left in (suitable for searching 12 the index or suitable for searching the records). 13 10/29/84 by Stanford S. Cox: Changed to not init version. 14 02/12/85 by S. Cox: Chg and_group_idx to fb17, current.flags.mbz to bit35. 15 */ 16 17 /* format: style2,ind3 */ 18 dcl 1 relation_cursor aligned based (relation_cursor_ptr), 19 2 version char (8), /* version of this structure */ 20 2 work_area_ptr ptr init (null), /* points to area in which cursor is allocated. */ 21 2 file_opening_id bit (36) aligned init ("0"b), 22 /* opening id of file in which relation resides */ 23 2 flags aligned, 24 3 current_state_is_consistent 25 bit (1) unal init ("0"b), 26 /* On if all values in current are insynch */ 27 3 mbz bit (35) unal init ("0"b), 28 /* must be zero */ 29 2 current, /* current position in search */ 30 3 and_group_idx fixed bin (17) aligned init (0), 31 /* in relation_search_specification */ 32 3 flags aligned, 33 4 search_index_and_record_collection 34 bit (1) unal init ("0"b), 35 4 mbz bit (35) unal init ("0"b), 36 3 collection_id bit (36) aligned init ("0"b), 37 /* that cursor is define over */ 38 3 specification_ptr 39 ptr init (null), /* points to index or record specification */ 40 3 cursor_ptr ptr init (null); /* points to index or record cursor */ 41 42 dcl relation_cursor_ptr ptr init (null); 43 dcl RELATION_CURSOR_VERSION_2 44 init ("relcrs02") char (8) aligned internal static options (constant); 45 46 /* END INCLUDE FILE dm_rlm_cursor.incl.pl1 */