1 dcl       m fixed bin(15);
 2 dcl       pl1_stat_$source_seg fixed bin(8) ext static;
 3 dcl       pl1_stat_$last_source fixed bin(15) ext static;
 4 dcl       pl1_stat_$source_list_ptr ptr ext static;
 5 dcl       source_list(0:source_list_length) ptr based(pl1_stat_$source_list_ptr);
 6 dcl       source_list_length fixed bin(15) internal static initial(255) options(constant);
 7 
 8 dcl       1 source                      based(source_list(m)) aligned,
 9           2 node_type                   unal bit(9),
10           2 source_id                   unal structure,
11             3 file_number               bit(8),
12             3 line_number               bit(14),
13             3 statement_number          bit(5),
14           2 standard_object_info        aligned structure,
15             3 uid                       bit(36),
16             3 dtm                       fixed bin(71),
17           2 seg_ptr                     unal ptr,
18           2 name                        unal ptr,
19           2 source_length               unal fixed bin(24),
20           2 pathlen                     unal fixed bin(10),
21           2 pathname                    char(n refer(source.pathlen));