1 
  2 /* BEGIN INCLUDE FILE ...   cobol_object_map.incl.pl1 */
  3 /* Last modified July 13, 1978 by FCH */
  4 /* Last modified July 5, 1974 by ORN */
  5 
  6 dcl 1 object_map aligned static,
  7      2 decl_vers fixed bin init(2),               /* [3.0-1] */
  8      2 identifier char(8) aligned init("obj_map "),
  9      2 text_relp bit(18) unaligned,
 10      2 text_length bit(18) unaligned,
 11      2 def_relp bit(18) unaligned,
 12      2 def_length bit(18) unaligned,
 13      2 link_relp bit(18) unaligned,
 14      2 link_length bit(18) unaligned,
 15      2 static_relp bit(18) unaligned init("0"b),  /* [3.0-1] */
 16      2 static_length bit(18) unaligned init("0"b),          /* [3.0-1] */
 17      2 symb_relp bit(18) unaligned,
 18      2 symb_length bit(18) unaligned,
 19      2 bmap_relp bit(18) unaligned init((18)"0"b),
 20      2 bmap_length bit(18) unaligned init((18)"0"b),
 21      2 entry_bound bit(18) unaligned init("0"b),  /* [3.0-1] */
 22      2 text_length_offset bit(18) unaligned init("0"b),     /* [3.0-1] */
 23      2 format aligned,
 24           3 bound bit(1) unaligned init("0"b),
 25           3 relocatable bit(1) unaligned init("1"b),
 26           3 procedure bit(1) unaligned init("1"b),
 27           3 standard bit(1) unaligned init("1"b),
 28           3 unused bit(14) unaligned init((14)"0"b),
 29 
 30      2 last_word aligned,
 31           3 object_map_relp bit(18) unaligned,
 32           3 unused bit(18) init((18)"0"b) unaligned;
 33 
 34 /*
 35 decl_vers           is the version number of the structure.
 36 
 37 identifier          is the constant "obj_map".
 38 
 39 text_relp           is a pointer (relative to the base of the
 40                     object segment) to the base of the text
 41                     section.
 42 
 43 text_length         is the length (in words) of the text section.
 44 
 45 def_relp            is a pointer (relative to the base of the
 46                     object segment) to the base of the definition
 47                     section.
 48 
 49 def_length          is the length (in words) of the definition
 50                     section.
 51 
 52 link_relp           is a pointer (relative to the base of the
 53                     object segment) to the base of the linkage
 54                     section.
 55 
 56 link_length         is the length (in words) of the linkage
 57                     section.
 58 
 59 static_relp         Offset relative to base of object seg
 60                     of base of linkage section
 61 
 62 static_length       Length in words of static section
 63 
 64 symb_relp           is a pointer (relative to the base of the
 65                     object segment) to the base of the symbol
 66                     section.
 67 
 68 symb_length         is the length (in words) of the symbol
 69                     section.
 70 
 71 bmap_relp           is a pointer (relative to the base of the
 72                     object segment) to the base of the break map
 73                     section.
 74 
 75 entry_bound         Offset of last gate entry
 76 
 77 text_link_offset    Offset of first text embedded link
 78 
 79 bmap_length         is the length (in words) of the break map
 80                     section.
 81 
 82 bound               is "1"b if the object segment is a bound
 83                     segment.
 84 
 85 relocatable         is "1"b is the object segment is relocatable;
 86                     that is, if it contains relocation
 87                     information.  This information (if present)
 88                     must be stored in the segment's first symbol
 89                     block.  See the MPM Subsystem Writers' Guide
 90                     section, The Structure of the Symbol Section.
 91 
 92 procedure           is "1"b if this is an executable object
 93                     segment.
 94 
 95 standard            is "1"b if the object segment is in standard
 96                     format.
 97 
 98 unused              is reserved for future use and must be "0"b.
 99 
100 
101 last_word           this is not part of the object map - however
102                     COBOL will always locate it as the word
103                     immediately following the object map, which
104                     is also the last word of the object segment.
105 object_map_relp     is a pointer (relative to the base of the
106                     object segment) to the base of the object map.
107 
108 unused              set to zeros.
109 */
110 
111 /* END INCLUDE FILE ...   cobol_object_map.incl.pl1 */
112