1 /* --------------- BEGIN include file rcp_registry.incl.pl1 --------------- */
 2 
 3 /* Written 05/04/78 by C. D. Tavares */
 4 
 5 dcl 1 registry_record aligned based (record_ptr),
 6     2 dynamic_info aligned,
 7       3 attributes (2) bit (72) aligned,
 8       3 (location_desc,
 9          comment_desc,
10          pad (2)) fixed bin (35) aligned,
11     2 acquisition_info aligned,
12       3 (owner_desc,
13          acs_path_desc,
14          aim_range_desc) fixed bin (35) aligned,
15       3 flags unaligned,
16         4 (usage_lock,
17            release_lock,
18            awaiting_clear,
19            user_alloc,
20            system,
21            free) bit (1) unaligned,
22         4 pad bit (12) unaligned,
23       3 reserver_chain bit (18) unaligned,
24       3 pad (2) fixed bin (35) aligned,
25     2 registration_info aligned,
26       3 uid bit (36) aligned,
27       3 (potential_attributes_desc,
28          potential_aim_range_desc,
29          charge_type_desc,
30          pad (2)) fixed bin (35) aligned,
31       3 name unaligned,
32         4 n fixed bin (8) unaligned,
33         4 string char (rr_strl refer (registry_record.name.n)) unaligned;
34 
35 dcl 1 registry_header aligned based (header_ptr),
36     2 rtde_size fixed bin (18),
37     2 rtde_copy (RTDE_SIZE refer (registry_header.rtde_size)) bit (36) aligned,
38     2 other aligned,
39       3 last_transaction_time fixed bin (71),
40       3 pad (18) bit (36) aligned;
41 
42 dcl RTDE_SIZE fixed bin (18);
43 
44 %include rtdt;
45 
46 dcl (record_ptr, header_ptr) pointer,
47      rr_strl fixed bin;
48 
49 /* ---------------- END include file rcp_registry.incl.pl1 ---------------- */