1
2
3 dcl 1 rtdt aligned based (rtdtp),
4 %include author;
5 2 version fixed bin,
6 2 installed_under_resource_mgt bit (1) aligned,
7 2 charge_type_table_ptr offset,
8 2 first_resource offset,
9 2 rtdt_area area (RTDT_area_len);
10
11 dcl 1 charge_type_table aligned based (cttp),
12 2 n_charge_types fixed bin,
13 2 charge_types (N_CHARGE_TYPES refer (charge_type_table.n_charge_types)) aligned char (32),
14 2 flagword fixed bin (35) aligned;
15
16 dcl 1 rtde aligned based (rtdep),
17 2 fixed_info aligned,
18 3 next_resource offset,
19 3 name char (32),
20 3 syn_to char (32),
21 3 precanon_proc char (64),
22 3 pad_1 (16) fixed bin (35),
23 3 flags unaligned,
24 4 (valid,
25 is_volume,
26 manual_clear,
27 addition_pending,
28 deletion_pending,
29 is_synonym) bit (1) unaligned,
30 4 pad bit (12) unaligned,
31 3 (process_limit,
32 default_time,
33 max_time,
34 advance_notice_time,
35 pad2,
36 n_exclusion_specs,
37 n_mates,
38 n_subtypes,
39 n_defined_attributes) fixed bin (17) unaligned,
40 3 pad_2 (8) fixed bin (35),
41 3 attributes_valid bit (72) aligned,
42 3 attributes_to_match bit (72) aligned,
43 3 attribute_names (72) char (12) aligned,
44 3 exclusion_specs (36) bit (72) aligned,
45 3 pad_3 (32) fixed bin (35),
46 3 registration_defaults aligned,
47 4 default_flags aligned,
48 5 (potential_attributes_given,
49 attributes_given,
50 aim_range_given,
51 charge_type_given) bit (1) unaligned,
52 5 pad bit (31) unaligned,
53 4 potential_attributes bit (72) aligned,
54 4 attributes bit (72) aligned,
55 4 aim_range (2) bit (72) aligned,
56 4 charge_type fixed bin,
57 4 pad_4 (8) fixed bin (35) aligned,
58 2 mates (N_MATES refer (rtde.n_mates)) char (32) aligned,
59
60 2 subtypes (N_SUBTYPES refer (rtde.n_subtypes)) aligned,
61 3 subtype_name char (32),
62 3 subtype_defaults like rtde.registration_defaults aligned;
63
64 dcl RTDT_version_3 fixed bin static options (constant) initial (3),
65 RTDT_version_2 fixed bin static options (constant) initial (2),
66
67 (N_MATES, N_SUBTYPES, N_CHARGE_TYPES) fixed bin,
68 RTDT_area_len fixed bin (18);
69
70 dcl (rtdep, rtdtp, cttp) pointer;
71
72