1
2
3
4
5
6
7
8 dcl 1 cross_reference(261120) aligned structure based(cref_base),
9 2 symbol fixed bin (18) unsigned unaligned,
10 2 line_no fixed bin(17) unaligned;
11
12 dcl 1 listing_info aligned structure based(cur_listing),
13 2 subprogram fixed bin (18) unsigned,
14 2 next fixed bin (18) unsigned,
15 2 first_line fixed bin (18) unsigned,
16 2 last_line fixed bin (18) unsigned,
17 2 first_cref fixed bin (18) unsigned,
18 2 last_cref fixed bin (18) unsigned,
19 2 first_error fixed bin (18) unsigned,
20 2 last_error fixed bin (18) unsigned;
21
22 dcl listing_seg(0:261119) fixed bin based(listing_base);
23
24 dcl 1 error_text aligned structure based,
25 2 next fixed bin (18) unsigned,
26 2 length fixed bin,
27 2 string char(error_text_length refer(error_text.length)) aligned;
28
29 dcl error_text_length fixed bin;
30
31 dcl 1 source_list (130560) aligned structure based (source_line_base),
32 2 file_number fixed bin (8) unaligned,
33 2 line_start fixed bin (21) unsigned unaligned,
34 2 unused_bits bit (6) unaligned,
35 2 line_length fixed bin (18) unsigned unaligned,
36 2 line_number_in_file fixed bin (18) unsigned unaligned;
37
38