1 
 2 /*  BEGIN INCLUDE FILE ...   cobol_linkage_header.incl.pl1  */
 3 
 4 /*  Last modified 07/19/78 by RAL to conform with MULTICS standard linkage map */
 5 /*  Last modified June 26, 1974 by AEG              */
 6 
 7 
 8 
 9 declare   1 linkage_header aligned based(link_base_ptr),
10             2 pad bit(36),
11             2 def_section_relp bit(18) unaligned,
12             2 first_reference_relp bit(18) unaligned,
13             2 obsolete_ptr ptr unal,
14             2 original_linkage_ptr ptr unal,
15             2 unused bit (72),
16             2 links_relp bit(18) unaligned,
17             2 linkage_section_length bit(18) unaligned,
18             2 object_seg bit(18) unaligned,
19             2 obsolete_length bit(18) unaligned;
20 
21 
22 /*
23 link_base_ptr                 is a pointer to the base of the
24                               linkage section and is an element
25                               of the structure   cobol_ located in
26                                 cobol_external_seg.
27 
28 pad                           is reserved for future use and
29                               must be zero.
30 
31 def_section_relp              is a pointer (relative to the base
32                               of the object segment) to the base
33                               of the definition section.
34 
35 first_reference_relp          is a pointer (relative to the base
36                               of the linkage section) to the
37                               array of first-reference traps.
38                               If the value of this item is "0"b
39                               then there are no first-reference
40                               traps.
41 
42 obsolete_ptr                  for historical reasons, linkage
43                               sections are sometimes threaded
44                               together to form a linkage list.
45                               This variable is a pointer to the
46                               next linkage section on the thread.
47                               This variable is described for
48                               completemess;  it is not intended
49                               for general use.
50 
51 original_linkage_ptr          is a pointer to the original link-
52                               age section within the object seg-
53                               ment.  It is used by the link un-
54                               snapping mechanism.  It is init-
55                               ialized by the linker.
56 
57 links_relp                    is a pointer (retative to the base
58                               of the linkage section) to the
59                               first link (the base of the link
60                               structure).
61 
62 linkage_section_length        is the length in words of the
63                               linkage section.
64 
65 object_seg                    is the segment number of the object
66                               segment.  It is initialized by the
67                               linker.
68 
69 obsolete_length               when several linkage sections are
70                               combined into a list, this item
71                               (in the first linkage section in
72                               the list) contains the length of
73                               the entire list.  See the above
74                               discussion under obsolete_ptr.
75                                                               */
76 /*  END INCLUDE FILE ...   cobol_linkage_header.incl.pl1                */
77