1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 declare sthedr_$sthedr_ ext aligned;
18
19 declare (sthedr_$alm_creation_date, sthedr_$time_of_translation) ext fixed bin (71) aligned;
20
21 declare sthedr_$seg_name ext char (32) aligned;
22
23 declare 1 sthedr_$text_and_link_lengths ext aligned,
24 2 text_length bit (18) unaligned,
25 2 link_length bit (18) unaligned;
26
27 declare sthedr_$hdrlen ext fixed bin (26) aligned;
28
29
30
31 declare new_sthedr_$new_sthedr_ ext aligned;
32
33 declare (new_sthedr_$alm_creation_date, new_sthedr_$time_of_translation) ext fixed bin (71) aligned;
34
35 declare new_sthedr_$alm_version_name ext char (32) aligned;
36
37 declare new_sthedr_$user_id ext char (32) aligned;
38
39 declare new_sthedr_$comment ext char (64) aligned;
40
41 declare 1 new_sthedr_$text_and_link_boundaries ext aligned,
42 2 text_boundary bit (18) unaligned,
43 2 link_boundary bit (18) unaligned;
44
45 declare 1 new_sthedr_$source_and_area ext aligned,
46 2 source_map_offset bit (18) unaligned,
47 2 area_offset bit (18) unaligned;
48
49 declare 1 new_sthedr_$block_size ext aligned,
50 2 padding bit (18) unaligned,
51 2 block_size bit (18) unaligned;
52
53 declare 1 new_sthedr_$rel_bits_ptrs ext aligned,
54 2 padding bit (18) unaligned,
55 2 rel_text bit (18) unaligned,
56 2 rel_def bit (18) unaligned,
57 2 rel_link bit (18) unaligned,
58 2 rel_symbol bit (18) unaligned,
59 2 other_bits bit (18) unaligned;
60
61 declare 1 new_sthedr_$truncate_info ext aligned,
62 2 padding bit (18) unaligned,
63 2 default_truncate bit (18) unaligned,
64 2 optional_truncate bit (18) unaligned,
65 2 other_bits bit (18) unaligned;
66
67 declare new_sthedr_$hdrlen ext fixed bin (26) aligned;
68
69 declare new_sthedr_$relocinfo ext aligned;
70
71