1 /* BEGIN INCLUDE FILE - dm_rcm_cursor.incl.pl1 */
 2 
 3 /* HISTORY:
 4 Written by Matthew Pierret, 04/05/82.
 5 Modified:
 6 08/19/82 by Matthew Pierret:  Version 2. Changed collection_id to
 7             bit (36) aligned.
 8 07/28/83 by Matthew Pierret: Changed name from dm_rm_cursor.incl.pl1 to
 9             dm_rcm_cursor.incl.pl1.
10 04/13/84 by Lee Baldwin:  Renamed pf_opening_id to file_opening_id to coincide
11             with the naming conventions used in the rcm_XX routines.
12 */
13 
14 /* format: style2,ind3 */
15      dcl     1 record_cursor        aligned based (record_cursor_ptr),
16                2 type               fixed bin (17) unaligned,
17                2 version            fixed bin (17) unaligned,
18                2 flags,
19                  3 position_is_valid
20                                     bit (1) unal,
21                  3 pad              bit (35) unal,
22                2 area_ptr           ptr,
23                2 file_opening_id    bit (36) aligned,
24                2 collection_id      bit (36) aligned,
25                2 record_id          bit (36) aligned,
26                2 record_check_value bit (36) aligned;
27 
28      dcl     record_cursor_ptr      ptr;
29      dcl     RECORD_CURSOR_VERSION_2
30                                     init (2) fixed bin int static options (constant);
31      dcl     RECORD_CURSOR_TYPE     init (1) fixed bin int static options (constant);
32      dcl     BEGINNING_OF_COLLECTION_RECORD_ID
33                                     init ("0"b) bit (36) aligned int static options (constant);
34 
35 /* END INCLUDE FILE - dm_rcm_cursor.incl.pl1 */