1 
 2 /* BEGIN INCLUDE FILE ...   cobol_source_map.incl.pl1 */
 3 /* Last modified 06/22/78 by RAL to qualify size */
 4 /* Last modified June 17, 1974 by GM */
 5 
 6 dcl       1 source_map aligned based(p1),
 7             2 decl_vers fixed bin initial(1),
 8             2 size fixed bin,
 9             2 map (source_map.size) aligned,
10               3 pathname_relp bit(18) unaligned,
11               3 pathname_length bit(18) unaligned,
12               3 uid bit(36) aligned,
13               3 dtm fixed bin(71);
14 /*
15 1) decl_vers                  is the version number of the
16                               structure.
17 2) size                       is the number of entries in the map
18                               array; that is, the number of source
19                               segments used to generate thos object
20                               segment.
21 3) pathname_relp              is a pointer (relative to the base of
22                               the symbol block) to an aligned
23                               string containging the full absolute
24                               pathname of this source segment.
25 4) pathname_length            is the length of the above string.
26 5) uid                        is the unique identifier of this
27                               source segment at the time the object
28                               segment was generated.
29 6) dtm                        is the date-time modified of this
30                               source segment at the time the object
31                               segment was created.
32 */
33 /* END INCLUDE FILE ...   cobol_source_map.incl.pl1 */
34