COMPILATION LISTING OF SEGMENT cobol_paste Compiled by: Multics PL/I Compiler, Release 31b, of April 24, 1989 Compiled at: Bull HN, Phoenix AZ, System-M Compiled on: 05/24/89 1000.1 mst Wed Options: optimize map 1 /****^ *********************************************************** 2* * * 3* * Copyright, (C) BULL HN Information Systems Inc., 1989 * 4* * * 5* * Copyright, (C) Honeywell Information Systems Inc., 1982 * 6* * * 7* * Copyright (c) 1972 by Massachusetts Institute of * 8* * Technology and Honeywell Information Systems, Inc. * 9* * * 10* *********************************************************** */ 11 12 13 14 15 /****^ HISTORY COMMENTS: 16* 1) change(89-04-23,Zimmerman), approve(89-04-23,MCR8060), 17* audit(89-05-05,RWaters), install(89-05-24,MR12.3-1048): 18* MCR8060 cobol_paste.pl1 Reformatted code to new Cobol standard. 19* END HISTORY COMMENTS */ 20 21 22 /* Modified on 04/08/81 by FCH, [4.4-2], COMMUNICATION mispelled, BUG481(TR9775) */ 23 /* Modified on 04/01/81 by FCH, fix decl for map_data_table, [4.4-1], BUG472(TR8896,8970) */ 24 /* Modified on 07/21/78 by RAL, [3.0-2], fix bad call to ioa_$rs */ 25 /* Modified on 07/14/78 by FCH, [3.0-1], cobol_object_map.incl.pl1 changed */ 26 /* Modified since Version 3.0 */ 27 28 /*{*/ 29 /* format: style3 */ 30 cobol_paste: 31 proc (value_ptr); 32 33 /* This is the final procedure called in the 34*fixup phase. It provides for the creation of the 35*object segment and produces the object map. 36*When this routine returns, the object segment 37*is complete and in the user's working directory 38*with proper access set. */ 39 40 41 /* DECLARATIONS */ 42 43 dcl relseg_ptr ptr; 44 dcl temp fixed bin (35); 45 dcl 1 relseg (4) based (relseg_ptr), 46 2 pt ptr, 47 2 maxoff fixed bin, 48 2 abscnt fixed bin; 49 dcl block_relp (4) bit (18); 50 51 dcl bytes char (262144) based (bptr); 52 dcl seg char (262144) based (segptr); 53 dcl long_mes char (100) aligned; 54 dcl short_mes char (8) aligned; 55 56 dcl (bptr, segptr) ptr; 57 dcl aclinfop ptr; 58 59 dcl i fixed bin; 60 dcl bc fixed bin (24); 61 dcl code fixed bin (35); 62 dcl woff fixed bin; 63 dcl (bpos, blen) fixed bin (21); 64 dcl (wlen, tlen) fixed bin; 65 66 67 dcl 1 map_data_table aligned based (cobol_$map_data_ptr), 68 2 no_source_stmts fixed bin aligned, 69 2 data (0 refer (map_data_table.no_source_stmts)), 70 3 line_no fixed bin unaligned, 71 3 text_addr fixed bin unaligned, /*[4.4-1]*/ 72 3 col fixed bin unal, /*[4.4-1]*/ 73 3 label bit unal; 74 75 dcl cobol_make_list entry (ptr, fixed bin); 76 dcl ioa_$rs entry options (variable); 77 dcl ioa_$rsnnl options (variable); 78 dcl hcs_$set_bc_seg entry (ptr, fixed bin (24), fixed bin (35)); 79 dcl cobol_call_op$get_op 80 entry (ptr); 81 dcl cobol_reloc$constants 82 entry (fixed bin, ptr); 83 dcl get_wdir_ entry returns (char (168) aligned); 84 dcl tssi_$get_segment entry (char (*), char (*) aligned, ptr, ptr, fixed bin (35)); 85 dcl tssi_$finish_segment 86 entry (ptr, fixed bin (24), bit (36) aligned, ptr, fixed bin (35)); 87 dcl tssi_$clean_up_segment 88 entry (ptr); 89 dcl convert_status_code_ 90 entry (fixed bin (35), char (8) aligned, char (100) aligned); 91 dcl signal_ entry (char (*), ptr, ptr); 92 dcl cleanup condition; 93 94 95 /*************************************/ 96 start: 97 aclinfop = null; 98 on cleanup call CL; 99 call tssi_$get_segment (get_wdir_ (), cobol_$obj_seg_name, segptr, aclinfop, code); 100 if code ^= 0 101 then go to multics_error; 102 103 call cobol_reloc$constants (value.con_len, relseg_ptr); 104 105 object_map.text_relp = (18)"0"b; 106 bptr = addrel (cobol_$con_end_ptr, -value.con_len + 1); 107 blen = 4 * value.con_len; 108 substr (seg, 1, blen) = substr (bytes, 1, blen); 109 bpos = blen + 1; 110 blen = 4 * value.code_len; 111 substr (seg, bpos, blen) = substr (cobol_$text_base_ptr -> bytes, 1, blen); 112 object_map.text_length = substr (unspec (value.text_len), 19, 18); 113 bpos = bpos + blen; 114 woff = value.text_len; 115 116 object_map.def_relp = substr (unspec (woff), 19, 18); 117 blen = 4 * value.def_len; 118 substr (seg, bpos, blen) = substr (cobol_$def_base_ptr -> bytes, 1, blen); 119 object_map.def_length = substr (unspec (value.def_len), 19, 18); 120 bpos = bpos + blen; 121 woff = woff + value.def_len; 122 123 if mod (woff, 2) = 1 124 then do; /* link section must begin on even word */ 125 126 substr (seg, bpos, 4) = (4)""; /* "\000" */ 127 bpos = bpos + 4; 128 woff = woff + 1; 129 130 end; 131 132 object_map.link_relp = substr (unspec (woff), 19, 18); 133 temp = fixed (object_map.link_relp) + 8; /* [3.0-1] */ 134 object_map.static_relp = substr (unspec (temp), 19, 18); 135 /* [3.0-1] */ 136 temp = fixed (linkage_header.links_relp) - 8; /* [3.0-1] */ 137 object_map.static_length = substr (unspec (temp), 19, 18); 138 /* [3.0-1] */ 139 blen = 4 * value.link_len; 140 substr (seg, bpos, blen) = substr (cobol_$link_base_ptr -> bytes, 1, blen); 141 object_map.link_length = substr (unspec (value.link_len), 19, 18); 142 bpos = bpos + blen; 143 woff = woff + value.link_len; 144 sym_ptr = addrel (segptr, woff); 145 146 object_map.symb_relp = substr (unspec (woff), 19, 18); 147 blen = 4 * value.sym_len; 148 substr (seg, bpos, blen) = substr (cobol_$sym_base_ptr -> bytes, 1, blen); 149 bpos = bpos + blen; 150 woff = woff + value.sym_len; 151 tlen = value.sym_len; 152 153 do i = 1 to 4; /* append relocation blocks */ 154 155 relptr = relseg.pt (i); 156 relinfo.decl_vers = 1; /*[3.0-1]*/ 157 wlen = 3 + divide (n_bits - 1, 36, 17, 0); 158 blen = 4 * wlen; 159 substr (seg, bpos, blen) = substr (relptr -> bytes, 1, blen); 160 block_relp (i) = substr (unspec (tlen), 19, 18); 161 bpos = bpos + blen; 162 woff = woff + wlen; 163 tlen = tlen + wlen; 164 165 end; 166 167 symbol_block_header.text_relocation_relp = block_relp (1); 168 symbol_block_header.def_relocation_relp = block_relp (2); 169 symbol_block_header.link_relocation_relp = block_relp (3); 170 symbol_block_header.symbol_relocation_relp = block_relp (4); 171 object_map.symb_length = substr (unspec (tlen), 19, 18); 172 symbol_block_header.block_size = object_map.symb_length; 173 174 object_map.last_word.object_map_relp = substr (unspec (woff), 19, 18); 175 substr (seg, bpos, 48) = substr (addr (object_map) -> bytes, 1, 48); 176 /* [3.0-1] */ 177 bc = 36 * (woff + 12); /* [3.0-1] */ 178 179 if fixed_common.options.xrn 180 then call print_map; 181 182 if fixed_common.options.obj 183 then call cobol_make_list (addrel (segptr, value.exec_off + value.con_len), value.code_len - value.exec_off); 184 185 call tssi_$finish_segment (segptr, bc, "1100"b, aclinfop, code); 186 187 if code ^= 0 188 then go to multics_error; 189 190 revert cleanup; 191 192 exit: 193 return; 194 195 CL: 196 proc; 197 198 call tssi_$clean_up_segment (aclinfop); 199 200 end CL; 201 202 /*************************************/ 203 204 /* print_map */ 205 print_map: 206 proc; 207 dcl char_off fixed bin (24), 208 char_string char (1048576) based (cobol_$list_ptr), 209 p ptr, 210 nl char (1), 211 print_line char (600) unal based; 212 213 dcl line_len fixed bin; 214 215 216 dcl 1 acc aligned based, 217 2 length fixed bin (8) unal, 218 2 string char (0 refer (acc.length)) unal; 219 220 dcl 1 type_pair aligned based, 221 2 type bit (18) unal, 222 2 trap_relp bit (18) unal, 223 2 segname_relp bit (18) unal, 224 2 offset_relp bit (18) unal; 225 226 dcl 1 exp_word aligned based, 227 2 type_pair_relp bit (18) unal, 228 2 expression bit (18) unal; 229 230 dcl auto_len fixed bin; 231 232 dcl operator_struc_ptr ptr; 233 dcl 1 operator_struc aligned based, 234 2 op_bits bit (200); 235 dcl op_space char (115); 236 dcl oper_name char (nsize) based (nptr) aligned; 237 dcl nsize fixed bin; 238 dcl nptr ptr; 239 dcl (i, j, k, l) fixed bin; 240 dcl cobol_operator_names_$cobol_operator_names_ 241 ext; 242 243 dcl 1 operator_names based (addr (cobol_operator_names_$cobol_operator_names_)), 244 2 first fixed bin, 245 2 last fixed bin, 246 2 first_special fixed bin, 247 2 last_special fixed bin, 248 2 no_special fixed bin, 249 2 name (0 refer (first):1 refer (last)), 250 3 namep bit (18), 251 3 len bit (18); 252 253 dcl mcode fixed bin (35); 254 255 dcl 1 link aligned based, 256 2 header bit (18) unal, 257 2 not_used bit (18) unal, 258 2 expr_relp bit (18) unal, 259 2 not_used1 char (18) unal; 260 261 dcl (str1, str2, str3, str4, str5) 262 char (132), 263 strlen fixed bin; 264 265 dcl no_links fixed bin, 266 fill char (1), 267 (object_len, text_len, def_len, link_len, symb_len, static_len) 268 fixed bin, 269 temp_ptr ptr, 270 seg_ptr ptr, 271 temp_name char (65), 272 link_ptr ptr; 273 274 start_print_map: 275 nl = " 276 "; 277 char_off = cobol_$list_off; 278 p = addr (substr (char_string, char_off, 1)); 279 p -> print_line = 280 nl || "STORAGE REQUIREMENTS FOR THIS PROGRAM." || nl || nl 281 || " Object Text Defs Link Symb Static" || nl; 282 char_off = char_off + 84; 283 p = addr (substr (char_string, char_off, 1)); 284 auto_len = fixed (object_map.link_relp) + 8; 285 text_len = fixed (object_map.text_relp); 286 def_len = fixed (object_map.def_relp); 287 link_len = fixed (object_map.link_relp); 288 symb_len = fixed (object_map.symb_relp); 289 static_len = fixed (object_map.link_relp) + 8; 290 call ioa_$rs ("Start^-^6o^-^6o^-^6o^-^6o^-^6o^-^6o", p -> print_line, line_len, text_len, text_len, def_len, 291 link_len, symb_len, static_len); 292 char_off = char_off + line_len; 293 p = addr (substr (char_string, char_off, 1)); 294 object_len = fixed (object_map_relp) + 10; 295 text_len = fixed (object_map.text_length); 296 def_len = fixed (object_map.def_length); 297 link_len = fixed (object_map.link_length); 298 symb_len = fixed (object_map.symb_length); 299 call ioa_$rs ("Length^-^6o^-^6o^-^6o^-^6o^-^6o^-^6o", p -> print_line, line_len, object_len, text_len, def_len, 300 link_len, symb_len, value.int_storage_len); 301 char_off = char_off + line_len; 302 p = addr (substr (char_string, char_off, 1)); 303 text_ptr = cobol_$text_base_ptr; 304 auto_len = fixed (substr (entry_seq.eax7, 1, 18)); 305 stat_ptr = addrel (cobol_$link_base_ptr, 8); 306 307 if cobol_$fs_charcnt = 0 308 then str1 = " FILE SECTION: No files defined" || nl; 309 else do; 310 if fixed_common.file_count ^= 1 311 then fill = "s"; 312 else fill = " "; 313 call ioa_$rs (" FILE SECTION:^-^-^d characters for record storage for ^d file^a (DATA:0->^o)", 314 str1, strlen, cobol_$fs_charcnt, fixed_common.file_count, fill, cobol_$fs_wdoff, 315 (cobol_$ws_wdoff - 1)); 316 end; 317 318 if cobol_$ws_charcnt = 0 319 then str2 = " WORKING-STORAGE SECTION: No data defined" || nl; 320 else do; 321 if cobol_$value_cnt ^= 1 322 then fill = "s"; 323 else fill = " "; 324 call ioa_$rs ( 325 " WORKING-STORAGE SECTION:^-^d characters for general storage with ^d item^a initialized (DATA:^o->^o)", 326 str2, strlen, cobol_$ws_charcnt, cobol_$value_cnt, fill, cobol_$ws_wdoff, 327 (cobol_$coms_wdoff - 1)); 328 end; 329 330 if cobol_$coms_charcnt = 0 331 then str3 = " COMMUNICATION SECTION: No data defined" || nl; 332 /*[4.4-2]*/ 333 else do; 334 if cobol_$cd_cnt ^= 1 335 then fill = "s"; 336 else fill = " "; 337 call ioa_$rs ( 338 " COMMUNICATION SECTION:^-^d characters for cd-area storage for ^d cd-name^a (DATA:^o->^o)", 339 str3, strlen, cobol_$coms_charcnt, cobol_$cd_cnt, fill, cobol_$coms_wdoff, stat.data_len); 340 end; 341 342 if cobol_$ls_charcnt = 0 343 then str4 = " LINKAGE SECTION: No parameters defined" || nl; 344 else do; 345 if fixed_common.number_of_ls_pointers ^= 1 346 then fill = "s"; 347 else fill = " "; 348 call ioa_$rs ( 349 " LINKAGE SECTION:^-^-^d character^a for argument storage for ^d parameter^a (allocated by caller)", 350 str4, strlen, cobol_$ls_charcnt, fill, fixed_common.number_of_ls_pointers, fill); 351 /* [3.0-2] */ 352 end; 353 354 if cobol_$cons_charcnt = 0 355 then call ioa_$rs ( 356 " CONSTANT SECTION:^-^-No constants defined explicitly; ^d words for constant storage (TEXT:0->^o)", 357 str5, strlen, value.con_len, value.con_len - 1); 358 else do; 359 call ioa_$rs ( 360 " CONSTANT SECTION:^-^-^d characters for explicit constants; ^d words for constant storage (TEXT:0->^o)", 361 str5, strlen, cobol_$cons_charcnt, value.con_len, value.con_len - 1); 362 end; 363 364 call ioa_$rs ( 365 "^/External procedure ^a uses ^d words of temporary storage^/^a^a^a^a^aTotal allocation required for cobol data is ^d words", 366 p -> print_line, line_len, fixed_common.prog_name, auto_len, str1, str2, str3, str4, str5, stat.data_len); 367 char_off = char_off + line_len; 368 p = addr (substr (char_string, char_off, 1)); 369 370 call cobol_call_op$get_op (operator_struc_ptr); 371 372 if substr (operator_struc_ptr -> op_bits, 1, operator_names.last + 1) 373 then ; 374 else do; 375 p -> print_line = nl || "THERE IS NO EXTERNAL OPERATOR CALLED BY THIS PROGRAM." || nl; 376 char_off = char_off + 55; 377 p = addr (substr (char_string, char_off, 1)); 378 goto ext_entry_label; 379 end; 380 381 p -> print_line = nl || "THE FOLLOWING EXTERNAL OPERATORS ARE CALLED BY THIS PROGRAM." || nl; 382 char_off = char_off + 62; 383 p = addr (substr (char_string, char_off, 1)); 384 j = 0; 385 op_space = (115)" "; 386 387 do i = operator_names.first to operator_names.last; 388 389 if substr (operator_struc_ptr -> op_bits, i + 1, 1) = "1"b 390 then do; 391 392 nptr = pointer (addr (operator_names.first), operator_names.namep (i)); 393 nsize = fixed (operator_names.len (i)); 394 substr (op_space, j * 23 + 1, nsize) = oper_name; 395 j = j + 1; 396 397 if j = 5 398 then do; 399 400 j = 0; 401 p -> print_line = substr (op_space, 1, 115) || nl; 402 char_off = char_off + 116; 403 p = addr (substr (char_string, char_off, 1)); 404 op_space = (115)" "; 405 406 end; 407 end; 408 end; 409 410 if j ^= 0 411 then do; 412 413 p -> print_line = substr (op_space, 1, j * 23) || nl; 414 char_off = char_off + j * 23 + 1; 415 p = addr (substr (char_string, char_off, 1)); 416 417 end; 418 419 ext_entry_label: 420 p -> print_line = nl || "THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM." || nl; 421 char_off = char_off + 60; 422 p = addr (substr (char_string, char_off, 1)); 423 no_links = cobol_$link_wd_off - 8 - value.int_storage_len; 424 no_links = divide (no_links, 2, 17, 0); 425 link_ptr = addrel (cobol_$link_base_ptr, linkage_header.links_relp); 426 j = 0; 427 op_space = (115)" "; 428 429 do i = 1 to no_links; 430 431 temp_ptr = addrel (cobol_$def_base_ptr, link_ptr -> link.expr_relp); 432 temp_ptr = addrel (cobol_$def_base_ptr, temp_ptr -> exp_word.type_pair_relp); 433 if temp_ptr -> type_pair.type = "000000000000000100"b 434 then do; 435 seg_ptr = addrel (cobol_$def_base_ptr, temp_ptr -> type_pair.segname_relp); 436 temp_ptr = addrel (cobol_$def_base_ptr, temp_ptr -> type_pair.offset_relp); 437 temp_name = (64)" "; 438 temp_name = temp_ptr -> acc.string || temp_name; 439 if temp_ptr ^= seg_ptr 440 then temp_name = seg_ptr -> acc.string || "$" || temp_name; 441 k = index (temp_name, " ") - 1; 442 l = divide (k, 23, 17, 0) + 1; 443 444 if (j + l > 5) 445 then do; 446 447 p -> print_line = substr (op_space, 1, j * 23) || nl; 448 char_off = char_off + j * 23 + 1; 449 p = addr (substr (char_string, char_off, 1)); 450 op_space = (115)" "; 451 j = 0; 452 453 end; 454 455 substr (op_space, j * 23 + 1, l * 23) = substr (temp_name, 1, l * 23); 456 j = j + l; 457 458 if j = 5 459 then do; 460 461 j = 0; 462 p -> print_line = op_space || nl; 463 char_off = char_off + 116; 464 p = addr (substr (char_string, char_off, 1)); 465 op_space = (115)" "; 466 467 end; 468 469 end; 470 471 link_ptr = addrel (link_ptr, 2); 472 473 end; 474 475 if j ^= 0 476 then do; 477 p -> print_line = substr (op_space, 1, j * 23) || nl; 478 char_off = char_off + j * 23 + 1; 479 480 end; 481 482 cobol_$list_off = char_off; 483 484 call hcs_$set_bc_seg (cobol_$list_ptr, 9 * (cobol_$list_off - 1), mcode); 485 486 exit_print_map: 487 return; 488 489 end print_map; 490 491 492 493 /*************************************/ 494 multics_error: 495 error_info.name = "cobol_paste"; 496 call convert_status_code_ (code, short_mes, long_mes); 497 call ioa_$rsnnl ("^a Can't create object segment ^a in directory ^a", error_info.message, 498 error_info.message_len, long_mes, cobol_$obj_seg_name, get_wdir_ ()); 499 call signal_ ("command_abort_", null, addr (error_info)); 500 501 abort: 502 return; 503 504 505 /***** Declaration for builtin function *****/ 506 507 dcl (substr, mod, binary, fixed, addr, addrel, rel, length, string, unspec, null, index) 508 builtin; 509 510 /***** End of declaration for builtin function *****/ 511 1 1 1 2 /* BEGIN INCLUDE FILE ... cobol_object_map.incl.pl1 */ 1 3 /* Last modified July 13, 1978 by FCH */ 1 4 /* Last modified July 5, 1974 by ORN */ 1 5 1 6 dcl 1 object_map aligned static, 1 7 2 decl_vers fixed bin init(2), /* [3.0-1] */ 1 8 2 identifier char(8) aligned init("obj_map "), 1 9 2 text_relp bit(18) unaligned, 1 10 2 text_length bit(18) unaligned, 1 11 2 def_relp bit(18) unaligned, 1 12 2 def_length bit(18) unaligned, 1 13 2 link_relp bit(18) unaligned, 1 14 2 link_length bit(18) unaligned, 1 15 2 static_relp bit(18) unaligned init("0"b), /* [3.0-1] */ 1 16 2 static_length bit(18) unaligned init("0"b), /* [3.0-1] */ 1 17 2 symb_relp bit(18) unaligned, 1 18 2 symb_length bit(18) unaligned, 1 19 2 bmap_relp bit(18) unaligned init((18)"0"b), 1 20 2 bmap_length bit(18) unaligned init((18)"0"b), 1 21 2 entry_bound bit(18) unaligned init("0"b), /* [3.0-1] */ 1 22 2 text_length_offset bit(18) unaligned init("0"b), /* [3.0-1] */ 1 23 2 format aligned, 1 24 3 bound bit(1) unaligned init("0"b), 1 25 3 relocatable bit(1) unaligned init("1"b), 1 26 3 procedure bit(1) unaligned init("1"b), 1 27 3 standard bit(1) unaligned init("1"b), 1 28 3 unused bit(14) unaligned init((14)"0"b), 1 29 1 30 2 last_word aligned, 1 31 3 object_map_relp bit(18) unaligned, 1 32 3 unused bit(18) init((18)"0"b) unaligned; 1 33 1 34 /* 1 35*decl_vers is the version number of the structure. 1 36* 1 37*identifier is the constant "obj_map". 1 38* 1 39*text_relp is a pointer (relative to the base of the 1 40* object segment) to the base of the text 1 41* section. 1 42* 1 43*text_length is the length (in words) of the text section. 1 44* 1 45*def_relp is a pointer (relative to the base of the 1 46* object segment) to the base of the definition 1 47* section. 1 48* 1 49*def_length is the length (in words) of the definition 1 50* section. 1 51* 1 52*link_relp is a pointer (relative to the base of the 1 53* object segment) to the base of the linkage 1 54* section. 1 55* 1 56*link_length is the length (in words) of the linkage 1 57* section. 1 58* 1 59*static_relp Offset relative to base of object seg 1 60* of base of linkage section 1 61* 1 62*static_length Length in words of static section 1 63* 1 64*symb_relp is a pointer (relative to the base of the 1 65* object segment) to the base of the symbol 1 66* section. 1 67* 1 68*symb_length is the length (in words) of the symbol 1 69* section. 1 70* 1 71*bmap_relp is a pointer (relative to the base of the 1 72* object segment) to the base of the break map 1 73* section. 1 74* 1 75*entry_bound Offset of last gate entry 1 76* 1 77*text_link_offset Offset of first text embedded link 1 78* 1 79*bmap_length is the length (in words) of the break map 1 80* section. 1 81* 1 82*bound is "1"b if the object segment is a bound 1 83* segment. 1 84* 1 85*relocatable is "1"b is the object segment is relocatable; 1 86* that is, if it contains relocation 1 87* information. This information (if present) 1 88* must be stored in the segment's first symbol 1 89* block. See the MPM Subsystem Writers' Guide 1 90* section, The Structure of the Symbol Section. 1 91* 1 92*procedure is "1"b if this is an executable object 1 93* segment. 1 94* 1 95*standard is "1"b if the object segment is in standard 1 96* format. 1 97* 1 98*unused is reserved for future use and must be "0"b. 1 99* 1 100* 1 101*last_word this is not part of the object map - however 1 102* COBOL will always locate it as the word 1 103* immediately following the object map, which 1 104* is also the last word of the object segment. 1 105*object_map_relp is a pointer (relative to the base of the 1 106* object segment) to the base of the object map. 1 107* 1 108*unused set to zeros. 1 109**/ 1 110 1 111 /* END INCLUDE FILE ... cobol_object_map.incl.pl1 */ 1 112 512 513 /* [3.0-1] */ 2 1 2 2 /* BEGIN INCLUDE FILE ... cobol_fixup_value.incl.pl1 */ 2 3 /* Last modified on Dec 18, 1974 by ORN */ 2 4 2 5 dcl value_ptr ptr; 2 6 dcl 1 value based(value_ptr) aligned, 2 7 2 con_len fixed bin aligned, 2 8 2 code_len fixed bin aligned, 2 9 2 text_len fixed bin aligned, 2 10 2 def_len fixed bin aligned, 2 11 2 link_len fixed bin aligned, 2 12 2 sym_len fixed bin aligned, 2 13 2 int_storage_len fixed bin aligned, 2 14 2 exec_off fixed bin aligned; 2 15 2 16 /* END INCLUDE FILE ... cobol_fixup_value.incl.pl1 */ 2 17 514 3 1 3 2 /* BEGIN INCLUDE FILE ... cobol_relinfo.incl.pl1 */ 3 3 /* Last modified July 1, 1974 by ORN */ 3 4 3 5 dcl relptr ptr; 3 6 dcl 1 relinfo aligned based(relptr), 3 7 2 decl_vers fixed bin, 3 8 2 n_bits fixed bin, 3 9 2 relbits bit(0 refer (relinfo.n_bits)) aligned; 3 10 3 11 /* 3 12*1) decl_vers is the version number of the 3 13* structure (initialized to 2). 3 14* 3 15*2) n_bits is the length (in bits) of the string 3 16* of relocation bits. 3 17* 3 18*3) relbits is the string of relocation bits. 3 19**/ 3 20 3 21 /* END INCLUDE FILE ... cobol_relinfo.incl.pl1 */ 3 22 515 4 1 4 2 /* BEGIN INCLUDE FILE ... cobol_sbh.incl.pl1 */ 4 3 /* Created by GM; Last modified July 17, 1974 by ORN */ 4 4 4 5 dcl sym_ptr ptr; 4 6 dcl 1 symbol_block_header aligned based(sym_ptr), 4 7 2 decl_vers fixed bin , 4 8 2 identifier char(8) aligned, 4 9 2 gen_version_number fixed bin, 4 10 2 gen_creation_time fixed bin(71), 4 11 2 object_creation_time fixed bin(71), 4 12 2 generator char(8) aligned, 4 13 2 gen_version_name_relp bit(18) unaligned, 4 14 2 gen_version_name_length bit(18) unaligned, 4 15 2 userid_relp bit(18) unaligned, 4 16 2 userid_length bit(18) unaligned, 4 17 2 comment_relp bit(18) unaligned, 4 18 2 comment_length bit(18) unaligned, 4 19 2 text_boundary bit(18) unaligned, 4 20 2 stat_boundary bit(18) unaligned, 4 21 2 source_map_relp bit(18) unaligned, 4 22 2 area_relp bit(18) unaligned, 4 23 2 section_relp bit(18) unaligned, 4 24 2 block_size bit(18) unaligned, 4 25 2 next_block_thread bit(18) unaligned, 4 26 2 text_relocation_relp bit(18) unaligned, 4 27 2 def_relocation_relp bit(18) unaligned, 4 28 2 link_relocation_relp bit(18) unaligned, 4 29 2 symbol_relocation_relp bit(18) unaligned, 4 30 2 default_truncate bit(18) unaligned, 4 31 2 optional_truncate bit(18) unaligned; 4 32 4 33 /* END INCLUDE FILE ... cobol_sbh.incl.pl1 */ 4 34 516 5 1 5 2 /* BEGIN INCLUDE FILE ... cobol_error_info.incl.pl1 */ 5 3 /* Last modified July 8, 1974 by ORN */ 5 4 5 5 dcl 1 error_info, 5 6 2 name char(32), 5 7 2 message_len fixed bin, 5 8 2 message char(128); 5 9 5 10 5 11 /* 5 12*name the name of the program signalling the error. 5 13* 5 14*message_len the number of valid characters in message. 5 15* 5 16*message the text of the message to be issued. 5 17**/ 5 18 5 19 /* END INCLUDE FILE ... cobol_error_info.incl.pl1 */ 5 20 517 6 1 6 2 /* BEGIN INCLUDE FILE ... cobol_.incl.pl1 */ 6 3 /* last modified Feb 4, 1977 by ORN */ 6 4 6 5 /* This file defines all external data used in the generator phase of Multics Cobol */ 6 6 6 7 /* POINTERS */ 6 8 dcl cobol_$text_base_ptr ptr ext; 6 9 dcl text_base_ptr ptr defined (cobol_$text_base_ptr); 6 10 dcl cobol_$con_end_ptr ptr ext; 6 11 dcl con_end_ptr ptr defined (cobol_$con_end_ptr); 6 12 dcl cobol_$def_base_ptr ptr ext; 6 13 dcl def_base_ptr ptr defined (cobol_$def_base_ptr); 6 14 dcl cobol_$link_base_ptr ptr ext; 6 15 dcl link_base_ptr ptr defined (cobol_$link_base_ptr); 6 16 dcl cobol_$sym_base_ptr ptr ext; 6 17 dcl sym_base_ptr ptr defined (cobol_$sym_base_ptr); 6 18 dcl cobol_$reloc_text_base_ptr ptr ext; 6 19 dcl reloc_text_base_ptr ptr defined (cobol_$reloc_text_base_ptr); 6 20 dcl cobol_$reloc_def_base_ptr ptr ext; 6 21 dcl reloc_def_base_ptr ptr defined (cobol_$reloc_def_base_ptr); 6 22 dcl cobol_$reloc_link_base_ptr ptr ext; 6 23 dcl reloc_link_base_ptr ptr defined (cobol_$reloc_link_base_ptr); 6 24 dcl cobol_$reloc_sym_base_ptr ptr ext; 6 25 dcl reloc_sym_base_ptr ptr defined (cobol_$reloc_sym_base_ptr); 6 26 dcl cobol_$reloc_work_base_ptr ptr ext; 6 27 dcl reloc_work_base_ptr ptr defined (cobol_$reloc_work_base_ptr); 6 28 dcl cobol_$pd_map_ptr ptr ext; 6 29 dcl pd_map_ptr ptr defined (cobol_$pd_map_ptr); 6 30 dcl cobol_$fixup_ptr ptr ext; 6 31 dcl fixup_ptr ptr defined (cobol_$fixup_ptr); 6 32 dcl cobol_$initval_base_ptr ptr ext; 6 33 dcl initval_base_ptr ptr defined (cobol_$initval_base_ptr); 6 34 dcl cobol_$initval_file_ptr ptr ext; 6 35 dcl initval_file_ptr ptr defined (cobol_$initval_file_ptr); 6 36 dcl cobol_$perform_list_ptr ptr ext; 6 37 dcl perform_list_ptr ptr defined (cobol_$perform_list_ptr); 6 38 dcl cobol_$alter_list_ptr ptr ext; 6 39 dcl alter_list_ptr ptr defined (cobol_$alter_list_ptr); 6 40 dcl cobol_$seg_init_list_ptr ptr ext; 6 41 dcl seg_init_list_ptr ptr defined (cobol_$seg_init_list_ptr); 6 42 dcl cobol_$temp_token_area_ptr ptr ext; 6 43 dcl temp_token_area_ptr ptr defined (cobol_$temp_token_area_ptr); 6 44 dcl cobol_$temp_token_ptr ptr ext; 6 45 dcl temp_token_ptr ptr defined (cobol_$temp_token_ptr); 6 46 dcl cobol_$token_block1_ptr ptr ext; 6 47 dcl token_block1_ptr ptr defined (cobol_$token_block1_ptr); 6 48 dcl cobol_$token_block2_ptr ptr ext; 6 49 dcl token_block2_ptr ptr defined (cobol_$token_block2_ptr); 6 50 dcl cobol_$minpral5_ptr ptr ext; 6 51 dcl minpral5_ptr ptr defined (cobol_$minpral5_ptr); 6 52 dcl cobol_$tag_table_ptr ptr ext; 6 53 dcl tag_table_ptr ptr defined (cobol_$tag_table_ptr); 6 54 dcl cobol_$map_data_ptr ptr ext; 6 55 dcl map_data_ptr ptr defined (cobol_$map_data_ptr); 6 56 dcl cobol_$ptr_status_ptr ptr ext; 6 57 dcl ptr_status_ptr ptr defined (cobol_$ptr_status_ptr); 6 58 dcl cobol_$reg_status_ptr ptr ext; 6 59 dcl reg_status_ptr ptr defined (cobol_$reg_status_ptr); 6 60 dcl cobol_$misc_base_ptr ptr ext; 6 61 dcl misc_base_ptr ptr defined (cobol_$misc_base_ptr); 6 62 dcl cobol_$misc_end_ptr ptr ext; 6 63 dcl misc_end_ptr ptr defined (cobol_$misc_end_ptr); 6 64 dcl cobol_$list_ptr ptr ext; 6 65 dcl list_ptr ptr defined (cobol_$list_ptr); 6 66 dcl cobol_$allo1_ptr ptr ext; 6 67 dcl allo1_ptr ptr defined (cobol_$allo1_ptr); 6 68 dcl cobol_$eln_ptr ptr ext; 6 69 dcl eln_ptr ptr defined (cobol_$eln_ptr); 6 70 dcl cobol_$diag_ptr ptr ext; 6 71 dcl diag_ptr ptr defined (cobol_$diag_ptr); 6 72 dcl cobol_$xref_token_ptr ptr ext; 6 73 dcl xref_token_ptr ptr defined (cobol_$xref_token_ptr); 6 74 dcl cobol_$xref_chain_ptr ptr ext; 6 75 dcl xref_chain_ptr ptr defined (cobol_$xref_chain_ptr); 6 76 dcl cobol_$statement_info_ptr ptr ext; 6 77 dcl statement_info_ptr ptr defined (cobol_$statement_info_ptr); 6 78 dcl cobol_$reswd_ptr ptr ext; 6 79 dcl reswd_ptr ptr defined (cobol_$reswd_ptr); 6 80 dcl cobol_$op_con_ptr ptr ext; 6 81 dcl op_con_ptr ptr defined (cobol_$op_con_ptr); 6 82 dcl cobol_$ntbuf_ptr ptr ext; 6 83 dcl ntbuf_ptr ptr defined (cobol_$ntbuf_ptr); 6 84 dcl cobol_$main_pcs_ptr ptr ext; 6 85 dcl main_pcs_ptr ptr defined (cobol_$main_pcs_ptr); 6 86 dcl cobol_$include_info_ptr ptr ext; 6 87 dcl include_info_ptr ptr defined (cobol_$include_info_ptr); 6 88 6 89 /* FIXED BIN */ 6 90 dcl cobol_$text_wd_off fixed bin ext; 6 91 dcl text_wd_off fixed bin defined (cobol_$text_wd_off); 6 92 dcl cobol_$con_wd_off fixed bin ext; 6 93 dcl con_wd_off fixed bin defined (cobol_$con_wd_off); 6 94 dcl cobol_$def_wd_off fixed bin ext; 6 95 dcl def_wd_off fixed bin defined (cobol_$def_wd_off); 6 96 dcl cobol_$def_max fixed bin ext; 6 97 dcl def_max fixed bin defined (cobol_$def_max); 6 98 dcl cobol_$link_wd_off fixed bin ext; 6 99 dcl link_wd_off fixed bin defined (cobol_$link_wd_off); 6 100 dcl cobol_$link_max fixed bin ext; 6 101 dcl link_max fixed bin defined (cobol_$link_max); 6 102 dcl cobol_$sym_wd_off fixed bin ext; 6 103 dcl sym_wd_off fixed bin defined (cobol_$sym_wd_off); 6 104 dcl cobol_$sym_max fixed bin ext; 6 105 dcl sym_max fixed bin defined (cobol_$sym_max); 6 106 dcl cobol_$reloc_text_max fixed bin(24) ext; 6 107 dcl reloc_text_max fixed bin(24) defined (cobol_$reloc_text_max); 6 108 dcl cobol_$reloc_def_max fixed bin(24) ext; 6 109 dcl reloc_def_max fixed bin(24) defined (cobol_$reloc_def_max); 6 110 dcl cobol_$reloc_link_max fixed bin(24) ext; 6 111 dcl reloc_link_max fixed bin(24) defined (cobol_$reloc_link_max); 6 112 dcl cobol_$reloc_sym_max fixed bin(24) ext; 6 113 dcl reloc_sym_max fixed bin(24) defined (cobol_$reloc_sym_max); 6 114 dcl cobol_$reloc_work_max fixed bin(24) ext; 6 115 dcl reloc_work_max fixed bin(24) defined (cobol_$reloc_work_max); 6 116 dcl cobol_$pd_map_index fixed bin ext; 6 117 dcl pd_map_index fixed bin defined (cobol_$pd_map_index); 6 118 dcl cobol_$cobol_data_wd_off fixed bin ext; 6 119 dcl cobol_data_wd_off fixed bin defined (cobol_$cobol_data_wd_off); 6 120 dcl cobol_$stack_off fixed bin ext; 6 121 dcl stack_off fixed bin defined (cobol_$stack_off); 6 122 dcl cobol_$max_stack_off fixed bin ext; 6 123 dcl max_stack_off fixed bin defined (cobol_$max_stack_off); 6 124 dcl cobol_$init_stack_off fixed bin ext; 6 125 dcl init_stack_off fixed bin defined (cobol_$init_stack_off); 6 126 dcl cobol_$pd_map_sw fixed bin ext; 6 127 dcl pd_map_sw fixed bin defined (cobol_$pd_map_sw); 6 128 dcl cobol_$next_tag fixed bin ext; 6 129 dcl next_tag fixed bin defined (cobol_$next_tag); 6 130 dcl cobol_$data_init_flag fixed bin ext; 6 131 dcl data_init_flag fixed bin defined (cobol_$data_init_flag); 6 132 dcl cobol_$seg_init_flag fixed bin ext; 6 133 dcl seg_init_flag fixed bin defined (cobol_$seg_init_flag); 6 134 dcl cobol_$alter_flag fixed bin ext; 6 135 dcl alter_flag fixed bin defined (cobol_$alter_flag); 6 136 dcl cobol_$sect_eop_flag fixed bin ext; 6 137 dcl sect_eop_flag fixed bin defined (cobol_$sect_eop_flag); 6 138 dcl cobol_$para_eop_flag fixed bin ext; 6 139 dcl para_eop_flag fixed bin defined (cobol_$para_eop_flag); 6 140 dcl cobol_$priority_no fixed bin ext; 6 141 dcl priority_no fixed bin defined (cobol_$priority_no); 6 142 dcl cobol_$compile_count fixed bin ext; 6 143 dcl compile_count fixed bin defined (cobol_$compile_count); 6 144 dcl cobol_$ptr_assumption_ind fixed bin ext; 6 145 dcl ptr_assumption_ind fixed bin defined (cobol_$ptr_assumption_ind); 6 146 dcl cobol_$reg_assumption_ind fixed bin ext; 6 147 dcl reg_assumption_ind fixed bin defined (cobol_$reg_assumption_ind); 6 148 dcl cobol_$perform_para_index fixed bin ext; 6 149 dcl perform_para_index fixed bin defined (cobol_$perform_para_index); 6 150 dcl cobol_$perform_sect_index fixed bin ext; 6 151 dcl perform_sect_index fixed bin defined (cobol_$perform_sect_index); 6 152 dcl cobol_$alter_index fixed bin ext; 6 153 dcl alter_index fixed bin defined (cobol_$alter_index); 6 154 dcl cobol_$list_off fixed bin ext; 6 155 dcl list_off fixed bin defined (cobol_$list_off); 6 156 dcl cobol_$constant_offset fixed bin ext; 6 157 dcl constant_offset fixed bin defined (cobol_$constant_offset); 6 158 dcl cobol_$misc_max fixed bin ext; 6 159 dcl misc_max fixed bin defined (cobol_$misc_max); 6 160 dcl cobol_$pd_map_max fixed bin ext; 6 161 dcl pd_map_max fixed bin defined (cobol_$pd_map_max); 6 162 dcl cobol_$map_data_max fixed bin ext; 6 163 dcl map_data_max fixed bin defined (cobol_$map_data_max); 6 164 dcl cobol_$fixup_max fixed bin ext; 6 165 dcl fixup_max fixed bin defined (cobol_$fixup_max); 6 166 dcl cobol_$tag_table_max fixed bin ext; 6 167 dcl tag_table_max fixed bin defined (cobol_$tag_table_max); 6 168 dcl cobol_$temp_token_max fixed bin ext; 6 169 dcl temp_token_max fixed bin defined (cobol_$temp_token_max); 6 170 dcl cobol_$allo1_max fixed bin ext; 6 171 dcl allo1_max fixed bin defined (cobol_$allo1_max); 6 172 dcl cobol_$eln_max fixed bin ext; 6 173 dcl eln_max fixed bin defined (cobol_$eln_max); 6 174 dcl cobol_$debug_enable fixed bin ext; 6 175 dcl debug_enable fixed bin defined (cobol_$debug_enable); 6 176 dcl cobol_$non_source_offset fixed bin ext; 6 177 dcl non_source_offset fixed bin defined (cobol_$non_source_offset); 6 178 dcl cobol_$initval_flag fixed bin ext; 6 179 dcl initval_flag fixed bin defined (cobol_$initval_flag); 6 180 dcl cobol_$date_compiled_sw fixed bin ext; 6 181 dcl date_compiled_sw fixed bin defined (cobol_$date_compiled_sw); 6 182 dcl cobol_$include_cnt fixed bin ext; 6 183 dcl include_cnt fixed bin defined (cobol_$include_cnt); 6 184 dcl cobol_$fs_charcnt fixed bin ext; 6 185 dcl fs_charcnt fixed bin defined (cobol_$fs_charcnt); 6 186 dcl cobol_$ws_charcnt fixed bin ext; 6 187 dcl ws_charcnt fixed bin defined (cobol_$ws_charcnt); 6 188 dcl cobol_$coms_charcnt fixed bin ext; 6 189 dcl coms_charcnt fixed bin defined (cobol_$coms_charcnt); 6 190 dcl cobol_$ls_charcnt fixed bin ext; 6 191 dcl ls_charcnt fixed bin defined (cobol_$ls_charcnt); 6 192 dcl cobol_$cons_charcnt fixed bin ext; 6 193 dcl cons_charcnt fixed bin defined (cobol_$cons_charcnt); 6 194 dcl cobol_$value_cnt fixed bin ext; 6 195 dcl value_cnt fixed bin defined (cobol_$value_cnt); 6 196 dcl cobol_$cd_cnt fixed bin ext; 6 197 dcl cd_cnt fixed bin defined (cobol_$cd_cnt); 6 198 dcl cobol_$fs_wdoff fixed bin ext; 6 199 dcl fs_wdoff fixed bin defined (cobol_$fs_wdoff); 6 200 dcl cobol_$ws_wdoff fixed bin ext; 6 201 dcl ws_wdoff fixed bin defined (cobol_$ws_wdoff); 6 202 dcl cobol_$coms_wdoff fixed bin ext; 6 203 dcl coms_wdoff fixed bin defined (cobol_$coms_wdoff); 6 204 6 205 /* CHARACTER */ 6 206 dcl cobol_$scratch_dir char (168) aligned ext; 6 207 dcl scratch_dir char (168) aligned defined (cobol_$scratch_dir); /* -42- */ 6 208 dcl cobol_$obj_seg_name char (32) aligned ext; 6 209 dcl obj_seg_name char (32) aligned defined (cobol_$obj_seg_name); /* -8- */ 6 210 6 211 /* BIT */ 6 212 dcl cobol_$xref_bypass bit(1) aligned ext; 6 213 dcl xref_bypass bit(1) aligned defined (cobol_$xref_bypass); /* -1- */ 6 214 dcl cobol_$same_sort_merge_proc bit(1) aligned ext; 6 215 dcl same_sort_merge_proc bit(1) aligned defined (cobol_$same_sort_merge_proc); /* -1- */ 6 216 6 217 6 218 /* END INCLUDE FILE ... cobol_incl.pl1*/ 6 219 6 220 518 7 1 7 2 /* BEGIN INCLUDE FILE ... cobol_fixed_common.incl.pl1 */ 7 3 /* Modified on 10/27/82 by FCH, [5.1-1], cobol_cln added to save last line num, BUG543(phx13643) */ 7 4 /* Modified on 07/31/80 by FCH, [4.3-1], use_reporting field added for Report Writer */ 7 5 /* Modified on 03/30/79 by FCH, [4.1-1], -card option added */ 7 6 /* Modified on 03/30/79 by FCH, [4.0-2], -svNM option added */ 7 7 /* Modified on 03/02/79 by FCH, [4.0-1], -levNM option added */ 7 8 /* Modified by RAL on 10/13/78, [4.0-0], Added option exp from fil2. */ 7 9 /* Modified by BC on 06/20/77, descriptor added. */ 7 10 /* Modified by BC on 06/02/77, init_cd_seg, init_cd_offset added. */ 7 11 /* Modified by BC on 1/21/77, options.profile added. */ 7 12 /* Modified by FCH on 7/6/76, sysin_fno & sysout_fno deleted, accept_device & display_device added */ 7 13 /* Modified by FCH on 5/20/77, comp_level added */ 7 14 7 15 7 16 /* THE SIZE OF THIS STRUCTURE IN BYTES, (EXCLUDING VARIABLE 7 17* LENGTH ENTITIES), FOR EACH HARDWARE IMPLEMENTATION IS: 7 18* 7 19* HARDWARE | SIZE (BYTES) 7 20* --------------------------------- 7 21* 645/6180 | 464 7 22* P7 | 396 7 23* --------------------------------- 7 24* */ 7 25 7 26 dcl 1 fixed_common based ( cobol_com_ptr), 7 27 2 prog_name char (30), 7 28 2 compiler_rev_no char (25), 7 29 2 phase_name char (6), 7 30 2 currency char (1), 7 31 2 fatal_no fixed bin, 7 32 2 warn_no fixed bin, 7 33 2 proc_counter fixed bin, 7 34 2 spec_tag_counter fixed bin, 7 35 2 file_count fixed bin, 7 36 2 filedescr_offsets (20) char (5), 7 37 2 perf_alter_info char (5), 7 38 2 another_perform_info char (5), 7 39 2 sort_in_info char (5), 7 40 2 odo_info char (5), 7 41 2 size_seg fixed bin, 7 42 2 size_offset fixed bin(24), 7 43 2 size_perform_info char (5), 7 44 2 rename_info char (5), 7 45 2 report_names char (5), 7 46 2 rw_buf_seg fixed bin, 7 47 2 rw_buf_offset fixed bin(24), 7 48 2 rw_buf_length fixed bin(24), 7 49 2 file_keys char (5), 7 50 2 search_keys char (5), 7 51 2 dd_seg_size fixed bin(24), 7 52 2 pd_seg_size fixed bin(24), 7 53 2 seg_limit fixed bin , 7 54 2 number_of_dd_segs fixed bin, 7 55 2 seg_info char (5), 7 56 2 number_of_ls_pointers fixed bin, 7 57 2 link_sec_seg fixed bin, 7 58 2 link_sec_offset fixed bin(24), 7 59 2 sra_clauses fixed bin, 7 60 2 fix_up_info char (5), 7 61 2 linage_info char (5), 7 62 2 first_dd_item char (5), 7 63 2 sort_out_info char (5), 7 64 2 db_info char (5), 7 65 2 realm_info char (5), 7 66 2 rc_realm_info char (5), 7 67 2 last_file_key char (5), 7 68 2 prog_coll_seq fixed bin, 7 69 2 init_cd_seg fixed bin, 7 70 2 init_cd_offset fixed bin(24), 7 71 2 input_error_exit fixed bin, 7 72 2 output_error_exit fixed bin, 7 73 2 i_o_error_exit fixed bin, 7 74 2 extend_error_exit fixed bin, 7 75 2 dummy15 fixed bin, 7 76 2 options, 7 77 3 cu bit (1), 7 78 3 st bit (1), 7 79 3 wn bit (1), 7 80 3 obs bit (1), 7 81 3 dm bit (1), 7 82 3 xrl bit (1), 7 83 3 xrn bit (1), 7 84 3 src bit (1), 7 85 3 obj bit (1), 7 86 3 exs bit (1), 7 87 3 sck bit (1), 7 88 3 rno bit (1), 7 89 3 u_l bit (1), 7 90 3 cnv bit (1), 7 91 3 cos bit (1), 7 92 3 fmt bit (1), 7 93 3 profile bit(1), 7 94 3 nw bit (1), 7 95 3 exp bit (1), /* [4.0-0] */ 7 96 3 card bit (1), /*[4.1-1]*/ 7 97 3 fil2 bit (5), 7 98 3 m_map bit (1), 7 99 3 m_bf bit (1), 7 100 3 m_fat bit (1), 7 101 3 m_wn bit (1), 7 102 3 m_obs bit(1), 7 103 3 pd bit(1), 7 104 3 oc bit(1), 7 105 2 supervisor bit (1), 7 106 2 dec_comma bit (1), 7 107 2 init_cd bit (1), 7 108 2 corr bit (1), 7 109 2 initl bit (1), 7 110 2 debug bit (1), 7 111 2 report bit (1), 7 112 2 sync_in_prog bit (1), 7 113 2 pd_section bit (1), 7 114 2 list_switch bit (1), 7 115 2 alpha_cond bit (1), 7 116 2 num_cond bit (1), 7 117 2 spec_sysin bit (1), 7 118 2 spec_sysout bit (1), 7 119 2 cpl_files bit (1), 7 120 2 obj_dec_comma bit (1), 7 121 2 default_sign_type bit (3), 7 122 2 use_debug bit(1), 7 123 2 syntax_trace bit(1), 7 124 2 comp_defaults, 7 125 3 comp bit(1), 7 126 3 comp_1 bit(1), 7 127 3 comp_2 bit(1), 7 128 3 comp_3 bit(1), 7 129 3 comp_4 bit(1), 7 130 3 comp_5 bit(1), 7 131 3 comp_6 bit(1), 7 132 3 comp_7 bit(1), 7 133 3 comp_8 bit(1), 7 134 2 disp_defaults, 7 135 3 disp bit(1), 7 136 3 disp_1 bit(1), 7 137 3 disp_2 bit(1), 7 138 3 disp_3 bit(1), 7 139 3 disp_4 bit(1), 7 140 3 disp_5 bit(1), 7 141 3 disp_6 bit(1), 7 142 3 disp_7 bit(1), 7 143 2 descriptor bit(2), 7 144 2 levsv bit(3), /*[4.0-1]*/ 7 145 2 use_reporting bit(1), /*[4.3-1]*/ 7 146 2 cd bit(1), /*[4.4-1]*/ 7 147 2 dummy17 bit(3), 7 148 2 lvl_rstr bit(32), 7 149 2 inst_rstr bit(32), 7 150 2 comp_level char(1), 7 151 2 dummy18 char(30), 7 152 2 object_sign char (1), 7 153 2 last_print_rec char (5), 7 154 2 coll_seq_info char (5), 7 155 2 sys_status_seg fixed bin, 7 156 2 sys_status_offset fixed bin(24), 7 157 2 compiler_id fixed bin, 7 158 2 date_comp_ln fixed bin, 7 159 2 compile_mode bit(36), 7 160 2 default_temp fixed bin, 7 161 2 accept_device fixed bin, 7 162 2 display_device fixed bin, 7 163 2 cobol_cln fixed bin, /*[5.1-1]*/ 7 164 2 alphabet_offset fixed bin; 7 165 7 166 7 167 7 168 /* END INCLUDE FILE ... cobol_fixed_common.incl.pl1 */ 7 169 519 8 1 8 2 /* BEGIN INCLUDE FILE ... cobol_ext_.incl.pl1 */ 8 3 /* Last modified on 06/17/76 by ORN */ 8 4 /* Last modified on 12/28/76 by FCH */ 8 5 /* Last modified on 12/01/80 by FCH */ 8 6 8 7 /* <<< SHARED EXTERNALS INCLUDE FILE >>> */ 8 8 8 9 8 10 dcl cobol_ext_$cobol_afp ptr ext; 8 11 dcl cobol_afp ptr defined ( cobol_ext_$cobol_afp); 8 12 dcl cobol_ext_$cobol_analin_fileno ptr ext; 8 13 dcl cobol_analin_fileno ptr defined ( cobol_ext_$cobol_analin_fileno); 8 14 dcl cobol_ext_$report_first_token ptr ext; 8 15 dcl report_first_token ptr defined( cobol_ext_$report_first_token); 8 16 dcl cobol_ext_$report_last_token ptr ext; 8 17 dcl report_last_token ptr defined ( cobol_ext_$report_last_token); 8 18 dcl cobol_ext_$cobol_eltp ptr ext; 8 19 dcl cobol_eltp ptr defined ( cobol_ext_$cobol_eltp); 8 20 dcl cobol_ext_$cobol_cmfp ptr ext; 8 21 dcl cobol_cmfp ptr defined ( cobol_ext_$cobol_cmfp); 8 22 dcl cobol_ext_$cobol_com_fileno ptr ext; 8 23 dcl cobol_com_fileno ptr defined ( cobol_ext_$cobol_com_fileno); 8 24 dcl cobol_ext_$cobol_com_ptr ptr ext; 8 25 dcl cobol_com_ptr ptr defined ( cobol_ext_$cobol_com_ptr); 8 26 dcl cobol_ext_$cobol_dfp ptr ext; 8 27 dcl cobol_dfp ptr defined ( cobol_ext_$cobol_dfp); 8 28 dcl cobol_ext_$cobol_hfp ptr ext; 8 29 dcl cobol_hfp ptr defined ( cobol_ext_$cobol_hfp); 8 30 dcl cobol_ext_$cobol_m1fp ptr ext; 8 31 dcl cobol_m1fp ptr defined ( cobol_ext_$cobol_m1fp); 8 32 dcl cobol_ext_$cobol_m2fp ptr ext; 8 33 dcl cobol_m2fp ptr defined ( cobol_ext_$cobol_m2fp); 8 34 dcl cobol_ext_$cobol_min1_fileno ptr ext; 8 35 dcl cobol_min1_fileno ptr defined ( cobol_ext_$cobol_min1_fileno); 8 36 dcl cobol_ext_$cobol_min2_fileno_ptr ptr ext; 8 37 dcl cobol_min2_fileno_ptr ptr defined ( cobol_ext_$cobol_min2_fileno_ptr); 8 38 dcl cobol_ext_$cobol_name_fileno ptr ext; 8 39 dcl cobol_name_fileno ptr defined ( cobol_ext_$cobol_name_fileno); 8 40 dcl cobol_ext_$cobol_name_fileno_ptr ptr ext; 8 41 dcl cobol_name_fileno_ptr ptr defined ( cobol_ext_$cobol_name_fileno_ptr); 8 42 dcl cobol_ext_$cobol_ntfp ptr ext; 8 43 dcl cobol_ntfp ptr defined ( cobol_ext_$cobol_ntfp); 8 44 dcl cobol_ext_$cobol_pdofp ptr ext; 8 45 dcl cobol_pdofp ptr defined ( cobol_ext_$cobol_pdofp); 8 46 dcl cobol_ext_$cobol_pfp ptr ext; 8 47 dcl cobol_pfp ptr defined ( cobol_ext_$cobol_pfp); 8 48 dcl cobol_ext_$cobol_rm2fp ptr ext; 8 49 dcl cobol_rm2fp ptr defined ( cobol_ext_$cobol_rm2fp); 8 50 dcl cobol_ext_$cobol_rmin2fp ptr ext; 8 51 dcl cobol_rmin2fp ptr defined ( cobol_ext_$cobol_rmin2fp); 8 52 dcl cobol_ext_$cobol_curr_in ptr ext; 8 53 dcl cobol_curr_in ptr defined ( cobol_ext_$cobol_curr_in); 8 54 dcl cobol_ext_$cobol_curr_out ptr ext; 8 55 dcl cobol_curr_out ptr defined ( cobol_ext_$cobol_curr_out); 8 56 dcl cobol_ext_$cobol_sfp ptr ext; 8 57 dcl cobol_sfp ptr defined ( cobol_ext_$cobol_sfp); 8 58 dcl cobol_ext_$cobol_w1p ptr ext; 8 59 dcl cobol_w1p ptr defined ( cobol_ext_$cobol_w1p); 8 60 dcl cobol_ext_$cobol_w2p ptr ext; 8 61 dcl cobol_w2p ptr defined ( cobol_ext_$cobol_w2p); 8 62 dcl cobol_ext_$cobol_w3p ptr ext; 8 63 dcl cobol_w3p ptr defined ( cobol_ext_$cobol_w3p); 8 64 dcl cobol_ext_$cobol_w5p ptr ext; 8 65 dcl cobol_w5p ptr defined ( cobol_ext_$cobol_w5p); 8 66 dcl cobol_ext_$cobol_w6p ptr ext; 8 67 dcl cobol_w6p ptr defined ( cobol_ext_$cobol_w6p); 8 68 dcl cobol_ext_$cobol_w7p ptr ext; 8 69 dcl cobol_w7p ptr defined ( cobol_ext_$cobol_w7p); 8 70 dcl cobol_ext_$cobol_x3fp ptr ext; 8 71 dcl cobol_x3fp ptr defined ( cobol_ext_$cobol_x3fp); 8 72 dcl cobol_ext_$cobol_rwdd ptr ext; 8 73 dcl cobol_rwdd ptr defined(cobol_ext_$cobol_rwdd); 8 74 dcl cobol_ext_$cobol_rwpd ptr ext; 8 75 dcl cobol_rwpd ptr defined(cobol_ext_$cobol_rwpd); 8 76 8 77 8 78 dcl cobol_ext_$cobol_fileno1 fixed bin(24)ext; 8 79 dcl cobol_fileno1 fixed bin(24)defined ( cobol_ext_$cobol_fileno1); 8 80 dcl cobol_ext_$cobol_options_len fixed bin(24)ext; 8 81 dcl cobol_options_len fixed bin(24)defined ( cobol_ext_$cobol_options_len); 8 82 dcl cobol_ext_$cobol_pdout_fileno fixed bin(24)ext; 8 83 dcl cobol_pdout_fileno fixed bin(24)defined ( cobol_ext_$cobol_pdout_fileno); 8 84 dcl cobol_ext_$cobol_print_fileno fixed bin(24)ext; 8 85 dcl cobol_print_fileno fixed bin(24)defined ( cobol_ext_$cobol_print_fileno); 8 86 dcl cobol_ext_$cobol_rmin2_fileno fixed bin(24)ext; 8 87 dcl cobol_rmin2_fileno fixed bin(24)defined ( cobol_ext_$cobol_rmin2_fileno); 8 88 dcl cobol_ext_$cobol_x1_fileno fixed bin(24)ext; 8 89 dcl cobol_x1_fileno fixed bin(24)defined ( cobol_ext_$cobol_x1_fileno); 8 90 dcl cobol_ext_$cobol_x2_fileno fixed bin(24)ext; 8 91 dcl cobol_x2_fileno fixed bin(24)defined ( cobol_ext_$cobol_x2_fileno); 8 92 dcl cobol_ext_$cobol_x3_fileno fixed bin(24)ext; 8 93 dcl cobol_x3_fileno fixed bin(24)defined ( cobol_ext_$cobol_x3_fileno); 8 94 8 95 dcl cobol_ext_$cobol_lpr char (5) ext; 8 96 dcl cobol_lpr char (5) defined ( cobol_ext_$cobol_lpr); /* -2- */ 8 97 dcl cobol_ext_$cobol_options char (120) ext; 8 98 dcl cobol_options char (120) defined ( cobol_ext_$cobol_options); /* -30- */ 8 99 8 100 dcl cobol_ext_$cobol_xlast8 bit (1) ext; 8 101 dcl cobol_xlast8 bit (1) defined ( cobol_ext_$cobol_xlast8); /* -1- */ 8 102 dcl cobol_ext_$report_exists bit (1) ext; 8 103 dcl report_exists bit (1) defined ( cobol_ext_$report_exists); 8 104 8 105 8 106 /* <<< END OF SHARED EXTERNALS INCLUDE FILE >>> */ 8 107 /* END INCLUDE FILE ... cobol_ext_.incl.pl1 */ 8 108 520 521 9 1 9 2 /* BEGIN INCLUDE FILE ... cobol_entry_seq.incl.pl1 */ 9 3 /* Created May 22, 1976 by BC. */ 9 4 9 5 declare parm_desc_ptr ptr; 9 6 9 7 declare 1 parm_desc aligned based(parm_desc_ptr), 9 8 2 n_args fixed bin unaligned, 9 9 2 descriptor_relp (0 refer(parm_desc.n_args)) bit(18) unaligned; 9 10 9 11 9 12 dcl text_ptr ptr; 9 13 9 14 dcl 1 entry_seq aligned based(text_ptr), 9 15 2 descr_relp_offset bit(18) unaligned, 9 16 2 reserved bit(18) unaligned, 9 17 2 def_relp bit(18) unaligned, /* set to offset of definition section */ 9 18 2 flags unaligned, 9 19 3 basic_indicator bit(1) unaligned, 9 20 3 revision_1 bit(1) unaligned, 9 21 3 has_descriptors bit(1) unaligned, 9 22 3 variable bit(1) unaligned, 9 23 3 function bit(1) unaligned, 9 24 3 pad bit(13) unaligned, 9 25 2 eax7 bit(36) aligned, /* addr field set to max stack size mod 16 */ 9 26 2 epp2 bit(36) aligned, /* preset */ 9 27 2 tsp2 bit(36) aligned, /* preset */ 9 28 2 zero_fill bit(18) unaligned, /* preset */ 9 29 2 trace_cntrl_relp bit(18) unaligned, /* set to 6 + length of internal static (32) */ 9 30 2 link_relp bit(18) unaligned, 9 31 2 block_relp bit(18) unaligned; 9 32 9 33 9 34 /* END INCLUDE FILE ... cobol_entry_seq.incl.pl1 */ 9 35 522 10 1 10 2 /* BEGIN INCLUDE FILE ... cobol_linkage_header.incl.pl1 */ 10 3 10 4 /* Last modified 07/19/78 by RAL to conform with MULTICS standard linkage map */ 10 5 /* Last modified June 26, 1974 by AEG */ 10 6 10 7 10 8 10 9 declare 1 linkage_header aligned based(link_base_ptr), 10 10 2 pad bit(36), 10 11 2 def_section_relp bit(18) unaligned, 10 12 2 first_reference_relp bit(18) unaligned, 10 13 2 obsolete_ptr ptr unal, 10 14 2 original_linkage_ptr ptr unal, 10 15 2 unused bit (72), 10 16 2 links_relp bit(18) unaligned, 10 17 2 linkage_section_length bit(18) unaligned, 10 18 2 object_seg bit(18) unaligned, 10 19 2 obsolete_length bit(18) unaligned; 10 20 10 21 10 22 /* 10 23*link_base_ptr is a pointer to the base of the 10 24* linkage section and is an element 10 25* of the structure cobol_ located in 10 26* cobol_external_seg. 10 27* 10 28*pad is reserved for future use and 10 29* must be zero. 10 30* 10 31*def_section_relp is a pointer (relative to the base 10 32* of the object segment) to the base 10 33* of the definition section. 10 34* 10 35*first_reference_relp is a pointer (relative to the base 10 36* of the linkage section) to the 10 37* array of first-reference traps. 10 38* If the value of this item is "0"b 10 39* then there are no first-reference 10 40* traps. 10 41* 10 42*obsolete_ptr for historical reasons, linkage 10 43* sections are sometimes threaded 10 44* together to form a linkage list. 10 45* This variable is a pointer to the 10 46* next linkage section on the thread. 10 47* This variable is described for 10 48* completemess; it is not intended 10 49* for general use. 10 50* 10 51*original_linkage_ptr is a pointer to the original link- 10 52* age section within the object seg- 10 53* ment. It is used by the link un- 10 54* snapping mechanism. It is init- 10 55* ialized by the linker. 10 56* 10 57*links_relp is a pointer (retative to the base 10 58* of the linkage section) to the 10 59* first link (the base of the link 10 60* structure). 10 61* 10 62*linkage_section_length is the length in words of the 10 63* linkage section. 10 64* 10 65*object_seg is the segment number of the object 10 66* segment. It is initialized by the 10 67* linker. 10 68* 10 69*obsolete_length when several linkage sections are 10 70* combined into a list, this item 10 71* (in the first linkage section in 10 72* the list) contains the length of 10 73* the entire list. See the above 10 74* discussion under obsolete_ptr. 10 75* */ 10 76 /* END INCLUDE FILE ... cobol_linkage_header.incl.pl1 */ 10 77 523 11 1 11 2 /* BEGIN INCLUDE FILE ... cobol_fixed_static.incl.pl1 */ 11 3 /* Last Modified May 5, 1977 by BC */ 11 4 11 5 /* This structure exists in the static data portion of the 11 6*linkage section of each cobol object segment. This 11 7*include file provides a "based" template for it. */ 11 8 11 9 /* This include file also contains internal static initialized 11 10*variables that define the offset of each field in this static 11 11*data portion of the linkage section from the 11 12*pointer upon which it is based. */ 11 13 11 14 11 15 /* WARNING: The fields in this structure,data_ptr 11 16*up to, but not including reserved, 11 17*must retain their positions in this structure forever. 11 18*No new fields not having space already allocated may be 11 19*defined as the position of the first link which follows 11 20*this fixed static area (to cobol_rts_) is in a fixed location 11 21*known to cobol_operators_. */ 11 22 dcl stat_ptr ptr; 11 23 dcl 1 stat based(stat_ptr) aligned, 11 24 2 data_ptr ptr aligned, 11 25 2 control_ptr ptr aligned, 11 26 2 file_info_ptr ptr aligned, 11 27 2 call_cnt fixed bin aligned, 11 28 2 data_len fixed bin aligned, 11 29 2 entry_pt_ptr ptr aligned, 11 30 2 prog_id_len fixed bin aligned, 11 31 2 prog_id char(65) aligned, 11 32 2 line_no (2) fixed bin aligned, 11 33 2 fo_flag fixed bin aligned, 11 34 2 fo_disp fixed bin aligned, 11 35 2 main_prog_sw fixed bin aligned, 11 36 2 sort_merge_sw fixed bin aligned, 11 37 2 ind_mask bit(36), /* overflow masking indicator bits. */ 11 38 2 pr3_save ptr, 11 39 2 pr5_save ptr, 11 40 2 user_output_ptr ptr, 11 41 2 error_output_ptr ptr, 11 42 2 user_input_ptr ptr, 11 43 2 error_con char(30) varying, 11 44 2 trace_control_word fixed bin aligned; 11 45 11 46 11 47 /* INTERNAL STATIC INITIALIZED VARIABLES THAT DEFINE THE 11 48*OFFSET OF EACH FIELD IN THE STATIC PORTION OF THE LINKAGE 11 49*SEGMENT. */ 11 50 11 51 dcl fixed_static_length fixed bin static options(constant) init(56); 11 52 dcl first_link_offset fixed bin static options(constant) init(64); 11 53 /*dcl stat_data_ptr_off fixed bin static options(constant) init(0); 11 54*/*dcl stat_control_ptr_off fixed bin static options(constant) init(2); 11 55*/*dcl stat_file_info_ptr_off fixed bin static options(constant) init(4); 11 56*/*dcl stat_call_cnt_off fixed bin static options(constant) init(6); 11 57*/*dcl stat_data_len_off fixed bin static options(constant) init(7); 11 58*/*dcl stat_entry_pt_ptr_off fixed bin static options(constant) init(8); 11 59*/*dcl stat_prog_id_len_off fixed bin static options(constant) init(10); 11 60*/*dcl stat_prog_id_off fixed bin static options(constant) init(11); 11 61*/*dcl stat_line_no_off fixed bin static options(constant) init(28); 11 62*/*dcl stat_fo_flag_off fixed bin static options(constant) init(30); 11 63*/*dcl stat_fo_disp_off fixed bin static options(constant) init(31); 11 64*/*dcl stat_main_prog_sw_off fixed bin static options(constant) init(32); 11 65*/*dcl stat_pr3_ptr_off fixed bin static options(constant) init(34); 11 66*/*dcl stat_pr5_ptr_off fixed bin static options(constant) init(36); 11 67*/*dcl stat_user_output_ptr_off fixed bin static options(constant) init(38); 11 68*/*dcl stat_error_output_ptr_off fixed bin static options(constant) init(40); 11 69*/*dcl stat_user_input_ptr_off fixed bin static options(constant) init(42); 11 70*/*dcl stat_error_con_off fixed bin static options(constant) init(44); 11 71*/*dcl stat_trace_control_word_off fixed bin static options(constant) init(53); 11 72*/**/ 11 73 11 74 /* END INCLUDE FILE ... cobol_fixed_static.incl.pl1 */ 11 75 524 525 end cobol_paste; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 05/24/89 0830.0 cobol_paste.pl1 >spec>install>MR12.3-1048>cobol_paste.pl1 512 1 03/27/82 0439.4 cobol_object_map.incl.pl1 >ldd>include>cobol_object_map.incl.pl1 514 2 03/27/82 0439.7 cobol_fixup_value.incl.pl1 >ldd>include>cobol_fixup_value.incl.pl1 515 3 03/27/82 0439.8 cobol_relinfo.incl.pl1 >ldd>include>cobol_relinfo.incl.pl1 516 4 11/11/82 1712.7 cobol_sbh.incl.pl1 >ldd>include>cobol_sbh.incl.pl1 517 5 03/27/82 0439.7 cobol_error_info.incl.pl1 >ldd>include>cobol_error_info.incl.pl1 518 6 11/11/82 1712.7 cobol_.incl.pl1 >ldd>include>cobol_.incl.pl1 519 7 11/11/82 1712.8 cobol_fixed_common.incl.pl1 >ldd>include>cobol_fixed_common.incl.pl1 520 8 03/27/82 0431.3 cobol_ext_.incl.pl1 >ldd>include>cobol_ext_.incl.pl1 522 9 11/11/82 1712.7 cobol_entry_seq.incl.pl1 >ldd>include>cobol_entry_seq.incl.pl1 523 10 03/27/82 0439.4 cobol_linkage_header.incl.pl1 >ldd>include>cobol_linkage_header.incl.pl1 524 11 10/10/83 1730.8 cobol_fixed_static.incl.pl1 >ldd>include>cobol_fixed_static.incl.pl1 NAMES DECLARED IN THIS COMPILATION. IDENTIFIER OFFSET LOC STORAGE CLASS DATA TYPE ATTRIBUTES AND REFERENCES (* indicates a set context) NAMES DECLARED BY DECLARE STATEMENT. acc based structure level 1 dcl 216 aclinfop 000146 automatic pointer dcl 57 set ref 96* 99* 185* 198* addr builtin function dcl 507 ref 175 278 283 293 302 368 372 377 383 387 387 392 392 392 393 403 415 422 449 464 499 499 addrel builtin function dcl 507 ref 106 144 182 182 305 425 431 432 435 436 471 auto_len 000264 automatic fixed bin(17,0) dcl 230 set ref 284* 304* 364* bc 000151 automatic fixed bin(24,0) dcl 60 set ref 177* 185* blen 000155 automatic fixed bin(21,0) dcl 63 set ref 107* 108 108 109 110* 111 111 113 117* 118 118 120 139* 140 140 142 147* 148 148 149 158* 159 159 161 block_relp 000104 automatic bit(18) array packed unaligned dcl 49 set ref 160* 167 168 169 170 block_size 17(18) based bit(18) level 2 packed packed unaligned dcl 4-6 set ref 172* bpos 000154 automatic fixed bin(21,0) dcl 63 set ref 109* 111 113* 113 118 120* 120 126 127* 127 140 142* 142 148 149* 149 159 161* 161 175 bptr 000142 automatic pointer dcl 56 set ref 106* 108 bytes based char(262144) packed unaligned dcl 51 ref 108 111 118 140 148 159 175 char_off 000256 automatic fixed bin(24,0) dcl 207 set ref 277* 278 282* 282 283 292* 292 293 301* 301 302 367* 367 368 376* 376 377 382* 382 383 402* 402 403 414* 414 415 421* 421 422 448* 448 449 463* 463 464 478* 478 482 char_string based char(1048576) packed unaligned dcl 207 set ref 278 283 293 302 368 377 383 403 415 422 449 464 cleanup 000160 stack reference condition dcl 92 ref 98 190 cobol_$cd_cnt 000110 external static fixed bin(17,0) dcl 6-196 set ref 334 337* cobol_$coms_charcnt 000100 external static fixed bin(17,0) dcl 6-188 set ref 330 337* cobol_$coms_wdoff 000116 external static fixed bin(17,0) dcl 6-202 set ref 324 337* cobol_$con_end_ptr 000056 external static pointer dcl 6-10 ref 106 cobol_$cons_charcnt 000104 external static fixed bin(17,0) dcl 6-192 set ref 354 359* cobol_$def_base_ptr 000060 external static pointer dcl 6-12 ref 118 431 432 435 436 cobol_$fs_charcnt 000074 external static fixed bin(17,0) dcl 6-184 set ref 307 313* cobol_$fs_wdoff 000112 external static fixed bin(17,0) dcl 6-198 set ref 313* cobol_$link_base_ptr 000062 external static pointer dcl 6-14 ref 136 136 140 305 425 425 425 cobol_$link_wd_off 000070 external static fixed bin(17,0) dcl 6-98 ref 423 cobol_$list_off 000072 external static fixed bin(17,0) dcl 6-154 set ref 277 482* 484 cobol_$list_ptr 000066 external static pointer dcl 6-64 set ref 278 283 293 302 368 377 383 403 415 422 449 464 484* cobol_$ls_charcnt 000102 external static fixed bin(17,0) dcl 6-190 set ref 342 348* cobol_$obj_seg_name 000120 external static char(32) dcl 6-208 set ref 99* 497* cobol_$sym_base_ptr 000064 external static pointer dcl 6-16 ref 148 cobol_$text_base_ptr 000054 external static pointer dcl 6-8 ref 111 303 cobol_$value_cnt 000106 external static fixed bin(17,0) dcl 6-194 set ref 321 324* cobol_$ws_charcnt 000076 external static fixed bin(17,0) dcl 6-186 set ref 318 324* cobol_$ws_wdoff 000114 external static fixed bin(17,0) dcl 6-200 set ref 313 324* cobol_call_op$get_op 000034 constant entry external dcl 79 ref 370 cobol_com_ptr defined pointer dcl 8-25 ref 179 182 310 313 345 348 364 cobol_ext_$cobol_com_ptr 000122 external static pointer dcl 8-24 ref 179 179 182 182 310 310 313 313 345 345 348 348 364 364 cobol_make_list 000024 constant entry external dcl 75 ref 182 cobol_operator_names_$cobol_operator_names_ 000124 external static fixed bin(17,0) dcl 240 set ref 372 387 387 392 392 393 cobol_reloc$constants 000036 constant entry external dcl 81 ref 103 code 000152 automatic fixed bin(35,0) dcl 61 set ref 99* 100 185* 187 496* code_len 1 based fixed bin(17,0) level 2 dcl 2-6 ref 110 182 con_len based fixed bin(17,0) level 2 dcl 2-6 set ref 103* 106 107 182 182 354* 354 359* 359 convert_status_code_ 000050 constant entry external dcl 89 ref 496 data_len 7 based fixed bin(17,0) level 2 dcl 11-23 set ref 337* 364* decl_vers based fixed bin(17,0) level 2 dcl 3-6 set ref 156* def_len 000607 automatic fixed bin(17,0) dcl 265 in procedure "print_map" set ref 286* 290* 296* 299* def_len 3 based fixed bin(17,0) level 2 in structure "value" dcl 2-6 in procedure "cobol_paste" ref 117 119 121 def_length 4(18) 000010 internal static bit(18) level 2 packed packed unaligned dcl 1-6 set ref 119* 296 def_relocation_relp 21 based bit(18) level 2 packed packed unaligned dcl 4-6 set ref 168* def_relp 4 000010 internal static bit(18) level 2 packed packed unaligned dcl 1-6 set ref 116* 286 eax7 2 based bit(36) level 2 dcl 9-14 ref 304 entry_seq based structure level 1 dcl 9-14 error_info 000172 automatic structure level 1 unaligned dcl 5-5 set ref 499 499 exec_off 7 based fixed bin(17,0) level 2 dcl 2-6 ref 182 182 182 exp_word based structure level 1 dcl 226 expr_relp 1 based bit(18) level 2 packed packed unaligned dcl 255 ref 431 file_count 24 based fixed bin(17,0) level 2 dcl 7-26 set ref 310 313* fill 000604 automatic char(1) packed unaligned dcl 265 set ref 310* 312* 313* 321* 323* 324* 334* 336* 337* 345* 347* 348* 348* first based fixed bin(17,0) level 2 dcl 243 set ref 387 392 392 393 fixed builtin function dcl 507 ref 133 136 284 285 286 287 288 289 294 295 296 297 298 304 393 fixed_common based structure level 1 unaligned dcl 7-26 get_wdir_ 000040 constant entry external dcl 83 ref 99 99 497 497 hcs_$set_bc_seg 000032 constant entry external dcl 78 ref 484 i 000150 automatic fixed bin(17,0) dcl 59 in procedure "cobol_paste" set ref 153* 155 160* i 000330 automatic fixed bin(17,0) dcl 239 in procedure "print_map" set ref 387* 389 392 393* 429* index builtin function dcl 507 ref 441 int_storage_len 6 based fixed bin(17,0) level 2 dcl 2-6 set ref 299* 423 ioa_$rs 000026 constant entry external dcl 76 ref 290 299 313 324 337 348 354 359 364 ioa_$rsnnl 000030 constant entry external dcl 77 ref 497 j 000331 automatic fixed bin(17,0) dcl 239 set ref 384* 394 395* 395 397 400* 410 413 414 426* 444 447 448 451* 455 456* 456 458 461* 475 477 478 k 000332 automatic fixed bin(17,0) dcl 239 set ref 441* 442 l 000333 automatic fixed bin(17,0) dcl 239 set ref 442* 444 455 455 456 last 1 based fixed bin(17,0) level 2 dcl 243 ref 372 387 last_word 13 000010 internal static structure level 2 dcl 1-6 len 5(18) based bit(18) array level 3 packed packed unaligned dcl 243 ref 393 length based fixed bin(8,0) level 2 packed packed unaligned dcl 216 ref 438 439 line_len 000263 automatic fixed bin(17,0) dcl 213 set ref 290* 292 299* 301 364* 367 link based structure level 1 dcl 255 link_base_ptr defined pointer dcl 6-15 ref 136 425 link_len 000610 automatic fixed bin(17,0) dcl 265 in procedure "print_map" set ref 287* 290* 297* 299* link_len 4 based fixed bin(17,0) level 2 in structure "value" dcl 2-6 in procedure "cobol_paste" ref 139 141 143 link_length 5(18) 000010 internal static bit(18) level 2 packed packed unaligned dcl 1-6 set ref 141* 297 link_ptr 000642 automatic pointer dcl 265 set ref 425* 431 471* 471 link_relocation_relp 21(18) based bit(18) level 2 packed packed unaligned dcl 4-6 set ref 169* link_relp 5 000010 internal static bit(18) level 2 packed packed unaligned dcl 1-6 set ref 132* 133 284 287 289 linkage_header based structure level 1 dcl 10-9 links_relp 6 based bit(18) level 2 packed packed unaligned dcl 10-9 ref 136 425 long_mes 000106 automatic char(100) dcl 53 set ref 496* 497* mcode 000334 automatic fixed bin(35,0) dcl 253 set ref 484* message 11 000172 automatic char(128) level 2 packed packed unaligned dcl 5-5 set ref 497* message_len 10 000172 automatic fixed bin(17,0) level 2 dcl 5-5 set ref 497* mod builtin function dcl 507 ref 123 n_bits 1 based fixed bin(17,0) level 2 dcl 3-6 ref 157 name 000172 automatic char(32) level 2 in structure "error_info" packed packed unaligned dcl 5-5 in procedure "cobol_paste" set ref 494* name 5 based structure array level 2 in structure "operator_names" packed packed unaligned dcl 243 in procedure "print_map" namep 5 based bit(18) array level 3 packed packed unaligned dcl 243 ref 392 nl 000262 automatic char(1) packed unaligned dcl 207 set ref 274* 279 279 279 279 307 318 330 342 375 375 381 381 401 413 419 419 447 462 477 no_links 000603 automatic fixed bin(17,0) dcl 265 set ref 423* 424* 424 429 nptr 000326 automatic pointer dcl 238 set ref 392* 394 nsize 000325 automatic fixed bin(17,0) dcl 237 set ref 393* 394 394 null builtin function dcl 507 ref 96 499 499 number_of_ls_pointers 105 based fixed bin(17,0) level 2 dcl 7-26 set ref 345 348* obj 133(08) based bit(1) level 3 packed packed unaligned dcl 7-26 ref 182 object_len 000605 automatic fixed bin(17,0) dcl 265 set ref 294* 299* object_map 000010 internal static structure level 1 dcl 1-6 set ref 175 object_map_relp 13 000010 internal static bit(18) level 3 packed packed unaligned dcl 1-6 set ref 174* 294 offset_relp 1(18) based bit(18) level 2 packed packed unaligned dcl 220 ref 436 op_bits based bit(200) level 2 dcl 233 ref 372 389 op_space 000270 automatic char(115) packed unaligned dcl 235 set ref 385* 394* 401 404* 413 427* 447 450* 455* 462 465* 477 oper_name based char dcl 236 ref 394 operator_names based structure level 1 unaligned dcl 243 operator_struc based structure level 1 dcl 233 operator_struc_ptr 000266 automatic pointer dcl 232 set ref 370* 372 389 options 133 based structure level 2 packed packed unaligned dcl 7-26 p 000260 automatic pointer dcl 207 set ref 278* 279 283* 290 293* 299 302* 364 368* 375 377* 381 383* 401 403* 413 415* 419 422* 447 449* 462 464* 477 print_line based char(600) packed unaligned dcl 207 set ref 279* 290* 299* 364* 375* 381* 401* 413* 419* 447* 462* 477* prog_name based char(30) level 2 packed packed unaligned dcl 7-26 set ref 364* pt based pointer array level 2 dcl 45 ref 155 relinfo based structure level 1 dcl 3-6 relptr 000166 automatic pointer dcl 3-5 set ref 155* 156 157 159 relseg based structure array level 1 unaligned dcl 45 relseg_ptr 000100 automatic pointer dcl 43 set ref 103* 155 seg based char(262144) packed unaligned dcl 52 set ref 108* 111* 118* 126* 140* 148* 159* 175* seg_ptr 000616 automatic pointer dcl 265 set ref 435* 439 439 segname_relp 1 based bit(18) level 2 packed packed unaligned dcl 220 ref 435 segptr 000144 automatic pointer dcl 56 set ref 99* 108 111 118 126 140 144 148 159 175 182 182 185* short_mes 000140 automatic char(8) dcl 54 set ref 496* signal_ 000052 constant entry external dcl 91 ref 499 stat based structure level 1 dcl 11-23 stat_ptr 000246 automatic pointer dcl 11-22 set ref 305* 337 364 static_len 000612 automatic fixed bin(17,0) dcl 265 set ref 289* 290* static_length 6(18) 000010 internal static bit(18) initial level 2 packed packed unaligned dcl 1-6 set ref 137* static_relp 6 000010 internal static bit(18) initial level 2 packed packed unaligned dcl 1-6 set ref 134* str1 000335 automatic char(132) packed unaligned dcl 261 set ref 307* 313* 364* str2 000376 automatic char(132) packed unaligned dcl 261 set ref 318* 324* 364* str3 000437 automatic char(132) packed unaligned dcl 261 set ref 330* 337* 364* str4 000500 automatic char(132) packed unaligned dcl 261 set ref 342* 348* 364* str5 000541 automatic char(132) packed unaligned dcl 261 set ref 354* 359* 364* string 0(09) based char level 2 packed packed unaligned dcl 216 ref 438 439 strlen 000602 automatic fixed bin(17,0) dcl 261 set ref 313* 324* 337* 348* 354* 359* substr builtin function dcl 507 set ref 108* 108 111* 111 112 116 118* 118 119 126* 132 134 137 140* 140 141 146 148* 148 159* 159 160 171 174 175* 175 278 283 293 302 304 368 372 377 383 389 394* 401 403 413 415 422 447 449 455* 455 464 477 sym_len 5 based fixed bin(17,0) level 2 dcl 2-6 ref 147 150 151 sym_ptr 000170 automatic pointer dcl 4-5 set ref 144* 167 168 169 170 172 symb_len 000611 automatic fixed bin(17,0) dcl 265 set ref 288* 290* 298* 299* symb_length 7(18) 000010 internal static bit(18) level 2 packed packed unaligned dcl 1-6 set ref 171* 172 298 symb_relp 7 000010 internal static bit(18) level 2 packed packed unaligned dcl 1-6 set ref 146* 288 symbol_block_header based structure level 1 dcl 4-6 symbol_relocation_relp 22 based bit(18) level 2 packed packed unaligned dcl 4-6 set ref 170* temp 000102 automatic fixed bin(35,0) dcl 44 set ref 133* 134 136* 137 temp_name 000620 automatic char(65) packed unaligned dcl 265 set ref 437* 438* 438 439* 439 441 455 temp_ptr 000614 automatic pointer dcl 265 set ref 431* 432* 432 433 435 436* 436 438 439 text_len 000606 automatic fixed bin(17,0) dcl 265 in procedure "print_map" set ref 285* 290* 290* 295* 299* text_len 2 based fixed bin(17,0) level 2 in structure "value" dcl 2-6 in procedure "cobol_paste" ref 112 114 text_length 3(18) 000010 internal static bit(18) level 2 packed packed unaligned dcl 1-6 set ref 112* 295 text_ptr 000244 automatic pointer dcl 9-12 set ref 303* 304 text_relocation_relp 20(18) based bit(18) level 2 packed packed unaligned dcl 4-6 set ref 167* text_relp 3 000010 internal static bit(18) level 2 packed packed unaligned dcl 1-6 set ref 105* 285 tlen 000157 automatic fixed bin(17,0) dcl 64 set ref 151* 160 163* 163 171 tssi_$clean_up_segment 000046 constant entry external dcl 87 ref 198 tssi_$finish_segment 000044 constant entry external dcl 85 ref 185 tssi_$get_segment 000042 constant entry external dcl 84 ref 99 type based bit(18) level 2 packed packed unaligned dcl 220 ref 433 type_pair based structure level 1 dcl 220 type_pair_relp based bit(18) level 2 packed packed unaligned dcl 226 ref 432 unspec builtin function dcl 507 ref 112 116 119 132 134 137 141 146 160 171 174 value based structure level 1 dcl 2-6 value_ptr parameter pointer dcl 2-5 ref 30 103 106 107 110 112 114 117 119 121 139 141 143 147 150 151 182 182 182 182 182 182 299 354 354 359 359 423 wlen 000156 automatic fixed bin(17,0) dcl 64 set ref 157* 158 162 163 woff 000153 automatic fixed bin(17,0) dcl 62 set ref 114* 116 121* 121 123 128* 128 132 143* 143 144 146 150* 150 162* 162 174 177 xrn 133(06) based bit(1) level 3 packed packed unaligned dcl 7-26 ref 179 NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. allo1_max defined fixed bin(17,0) dcl 6-171 allo1_ptr defined pointer dcl 6-67 alter_flag defined fixed bin(17,0) dcl 6-135 alter_index defined fixed bin(17,0) dcl 6-153 alter_list_ptr defined pointer dcl 6-39 binary builtin function dcl 507 cd_cnt defined fixed bin(17,0) dcl 6-197 cobol_$allo1_max external static fixed bin(17,0) dcl 6-170 cobol_$allo1_ptr external static pointer dcl 6-66 cobol_$alter_flag external static fixed bin(17,0) dcl 6-134 cobol_$alter_index external static fixed bin(17,0) dcl 6-152 cobol_$alter_list_ptr external static pointer dcl 6-38 cobol_$cobol_data_wd_off external static fixed bin(17,0) dcl 6-118 cobol_$compile_count external static fixed bin(17,0) dcl 6-142 cobol_$con_wd_off external static fixed bin(17,0) dcl 6-92 cobol_$constant_offset external static fixed bin(17,0) dcl 6-156 cobol_$data_init_flag external static fixed bin(17,0) dcl 6-130 cobol_$date_compiled_sw external static fixed bin(17,0) dcl 6-180 cobol_$debug_enable external static fixed bin(17,0) dcl 6-174 cobol_$def_max external static fixed bin(17,0) dcl 6-96 cobol_$def_wd_off external static fixed bin(17,0) dcl 6-94 cobol_$diag_ptr external static pointer dcl 6-70 cobol_$eln_max external static fixed bin(17,0) dcl 6-172 cobol_$eln_ptr external static pointer dcl 6-68 cobol_$fixup_max external static fixed bin(17,0) dcl 6-164 cobol_$fixup_ptr external static pointer dcl 6-30 cobol_$include_cnt external static fixed bin(17,0) dcl 6-182 cobol_$include_info_ptr external static pointer dcl 6-86 cobol_$init_stack_off external static fixed bin(17,0) dcl 6-124 cobol_$initval_base_ptr external static pointer dcl 6-32 cobol_$initval_file_ptr external static pointer dcl 6-34 cobol_$initval_flag external static fixed bin(17,0) dcl 6-178 cobol_$link_max external static fixed bin(17,0) dcl 6-100 cobol_$main_pcs_ptr external static pointer dcl 6-84 cobol_$map_data_max external static fixed bin(17,0) dcl 6-162 cobol_$map_data_ptr external static pointer dcl 6-54 cobol_$max_stack_off external static fixed bin(17,0) dcl 6-122 cobol_$minpral5_ptr external static pointer dcl 6-50 cobol_$misc_base_ptr external static pointer dcl 6-60 cobol_$misc_end_ptr external static pointer dcl 6-62 cobol_$misc_max external static fixed bin(17,0) dcl 6-158 cobol_$next_tag external static fixed bin(17,0) dcl 6-128 cobol_$non_source_offset external static fixed bin(17,0) dcl 6-176 cobol_$ntbuf_ptr external static pointer dcl 6-82 cobol_$op_con_ptr external static pointer dcl 6-80 cobol_$para_eop_flag external static fixed bin(17,0) dcl 6-138 cobol_$pd_map_index external static fixed bin(17,0) dcl 6-116 cobol_$pd_map_max external static fixed bin(17,0) dcl 6-160 cobol_$pd_map_ptr external static pointer dcl 6-28 cobol_$pd_map_sw external static fixed bin(17,0) dcl 6-126 cobol_$perform_list_ptr external static pointer dcl 6-36 cobol_$perform_para_index external static fixed bin(17,0) dcl 6-148 cobol_$perform_sect_index external static fixed bin(17,0) dcl 6-150 cobol_$priority_no external static fixed bin(17,0) dcl 6-140 cobol_$ptr_assumption_ind external static fixed bin(17,0) dcl 6-144 cobol_$ptr_status_ptr external static pointer dcl 6-56 cobol_$reg_assumption_ind external static fixed bin(17,0) dcl 6-146 cobol_$reg_status_ptr external static pointer dcl 6-58 cobol_$reloc_def_base_ptr external static pointer dcl 6-20 cobol_$reloc_def_max external static fixed bin(24,0) dcl 6-108 cobol_$reloc_link_base_ptr external static pointer dcl 6-22 cobol_$reloc_link_max external static fixed bin(24,0) dcl 6-110 cobol_$reloc_sym_base_ptr external static pointer dcl 6-24 cobol_$reloc_sym_max external static fixed bin(24,0) dcl 6-112 cobol_$reloc_text_base_ptr external static pointer dcl 6-18 cobol_$reloc_text_max external static fixed bin(24,0) dcl 6-106 cobol_$reloc_work_base_ptr external static pointer dcl 6-26 cobol_$reloc_work_max external static fixed bin(24,0) dcl 6-114 cobol_$reswd_ptr external static pointer dcl 6-78 cobol_$same_sort_merge_proc external static bit(1) dcl 6-214 cobol_$scratch_dir external static char(168) dcl 6-206 cobol_$sect_eop_flag external static fixed bin(17,0) dcl 6-136 cobol_$seg_init_flag external static fixed bin(17,0) dcl 6-132 cobol_$seg_init_list_ptr external static pointer dcl 6-40 cobol_$stack_off external static fixed bin(17,0) dcl 6-120 cobol_$statement_info_ptr external static pointer dcl 6-76 cobol_$sym_max external static fixed bin(17,0) dcl 6-104 cobol_$sym_wd_off external static fixed bin(17,0) dcl 6-102 cobol_$tag_table_max external static fixed bin(17,0) dcl 6-166 cobol_$tag_table_ptr external static pointer dcl 6-52 cobol_$temp_token_area_ptr external static pointer dcl 6-42 cobol_$temp_token_max external static fixed bin(17,0) dcl 6-168 cobol_$temp_token_ptr external static pointer dcl 6-44 cobol_$text_wd_off external static fixed bin(17,0) dcl 6-90 cobol_$token_block1_ptr external static pointer dcl 6-46 cobol_$token_block2_ptr external static pointer dcl 6-48 cobol_$xref_bypass external static bit(1) dcl 6-212 cobol_$xref_chain_ptr external static pointer dcl 6-74 cobol_$xref_token_ptr external static pointer dcl 6-72 cobol_afp defined pointer dcl 8-11 cobol_analin_fileno defined pointer dcl 8-13 cobol_cmfp defined pointer dcl 8-21 cobol_com_fileno defined pointer dcl 8-23 cobol_curr_in defined pointer dcl 8-53 cobol_curr_out defined pointer dcl 8-55 cobol_data_wd_off defined fixed bin(17,0) dcl 6-119 cobol_dfp defined pointer dcl 8-27 cobol_eltp defined pointer dcl 8-19 cobol_ext_$cobol_afp external static pointer dcl 8-10 cobol_ext_$cobol_analin_fileno external static pointer dcl 8-12 cobol_ext_$cobol_cmfp external static pointer dcl 8-20 cobol_ext_$cobol_com_fileno external static pointer dcl 8-22 cobol_ext_$cobol_curr_in external static pointer dcl 8-52 cobol_ext_$cobol_curr_out external static pointer dcl 8-54 cobol_ext_$cobol_dfp external static pointer dcl 8-26 cobol_ext_$cobol_eltp external static pointer dcl 8-18 cobol_ext_$cobol_fileno1 external static fixed bin(24,0) dcl 8-78 cobol_ext_$cobol_hfp external static pointer dcl 8-28 cobol_ext_$cobol_lpr external static char(5) packed unaligned dcl 8-95 cobol_ext_$cobol_m1fp external static pointer dcl 8-30 cobol_ext_$cobol_m2fp external static pointer dcl 8-32 cobol_ext_$cobol_min1_fileno external static pointer dcl 8-34 cobol_ext_$cobol_min2_fileno_ptr external static pointer dcl 8-36 cobol_ext_$cobol_name_fileno external static pointer dcl 8-38 cobol_ext_$cobol_name_fileno_ptr external static pointer dcl 8-40 cobol_ext_$cobol_ntfp external static pointer dcl 8-42 cobol_ext_$cobol_options external static char(120) packed unaligned dcl 8-97 cobol_ext_$cobol_options_len external static fixed bin(24,0) dcl 8-80 cobol_ext_$cobol_pdofp external static pointer dcl 8-44 cobol_ext_$cobol_pdout_fileno external static fixed bin(24,0) dcl 8-82 cobol_ext_$cobol_pfp external static pointer dcl 8-46 cobol_ext_$cobol_print_fileno external static fixed bin(24,0) dcl 8-84 cobol_ext_$cobol_rm2fp external static pointer dcl 8-48 cobol_ext_$cobol_rmin2_fileno external static fixed bin(24,0) dcl 8-86 cobol_ext_$cobol_rmin2fp external static pointer dcl 8-50 cobol_ext_$cobol_rwdd external static pointer dcl 8-72 cobol_ext_$cobol_rwpd external static pointer dcl 8-74 cobol_ext_$cobol_sfp external static pointer dcl 8-56 cobol_ext_$cobol_w1p external static pointer dcl 8-58 cobol_ext_$cobol_w2p external static pointer dcl 8-60 cobol_ext_$cobol_w3p external static pointer dcl 8-62 cobol_ext_$cobol_w5p external static pointer dcl 8-64 cobol_ext_$cobol_w6p external static pointer dcl 8-66 cobol_ext_$cobol_w7p external static pointer dcl 8-68 cobol_ext_$cobol_x1_fileno external static fixed bin(24,0) dcl 8-88 cobol_ext_$cobol_x2_fileno external static fixed bin(24,0) dcl 8-90 cobol_ext_$cobol_x3_fileno external static fixed bin(24,0) dcl 8-92 cobol_ext_$cobol_x3fp external static pointer dcl 8-70 cobol_ext_$cobol_xlast8 external static bit(1) packed unaligned dcl 8-100 cobol_ext_$report_exists external static bit(1) packed unaligned dcl 8-102 cobol_ext_$report_first_token external static pointer dcl 8-14 cobol_ext_$report_last_token external static pointer dcl 8-16 cobol_fileno1 defined fixed bin(24,0) dcl 8-79 cobol_hfp defined pointer dcl 8-29 cobol_lpr defined char(5) packed unaligned dcl 8-96 cobol_m1fp defined pointer dcl 8-31 cobol_m2fp defined pointer dcl 8-33 cobol_min1_fileno defined pointer dcl 8-35 cobol_min2_fileno_ptr defined pointer dcl 8-37 cobol_name_fileno defined pointer dcl 8-39 cobol_name_fileno_ptr defined pointer dcl 8-41 cobol_ntfp defined pointer dcl 8-43 cobol_options defined char(120) packed unaligned dcl 8-98 cobol_options_len defined fixed bin(24,0) dcl 8-81 cobol_pdofp defined pointer dcl 8-45 cobol_pdout_fileno defined fixed bin(24,0) dcl 8-83 cobol_pfp defined pointer dcl 8-47 cobol_print_fileno defined fixed bin(24,0) dcl 8-85 cobol_rm2fp defined pointer dcl 8-49 cobol_rmin2_fileno defined fixed bin(24,0) dcl 8-87 cobol_rmin2fp defined pointer dcl 8-51 cobol_rwdd defined pointer dcl 8-73 cobol_rwpd defined pointer dcl 8-75 cobol_sfp defined pointer dcl 8-57 cobol_w1p defined pointer dcl 8-59 cobol_w2p defined pointer dcl 8-61 cobol_w3p defined pointer dcl 8-63 cobol_w5p defined pointer dcl 8-65 cobol_w6p defined pointer dcl 8-67 cobol_w7p defined pointer dcl 8-69 cobol_x1_fileno defined fixed bin(24,0) dcl 8-89 cobol_x2_fileno defined fixed bin(24,0) dcl 8-91 cobol_x3_fileno defined fixed bin(24,0) dcl 8-93 cobol_x3fp defined pointer dcl 8-71 cobol_xlast8 defined bit(1) packed unaligned dcl 8-101 compile_count defined fixed bin(17,0) dcl 6-143 coms_charcnt defined fixed bin(17,0) dcl 6-189 coms_wdoff defined fixed bin(17,0) dcl 6-203 con_end_ptr defined pointer dcl 6-11 con_wd_off defined fixed bin(17,0) dcl 6-93 cons_charcnt defined fixed bin(17,0) dcl 6-193 constant_offset defined fixed bin(17,0) dcl 6-157 data_init_flag defined fixed bin(17,0) dcl 6-131 date_compiled_sw defined fixed bin(17,0) dcl 6-181 debug_enable defined fixed bin(17,0) dcl 6-175 def_base_ptr defined pointer dcl 6-13 def_max defined fixed bin(17,0) dcl 6-97 def_wd_off defined fixed bin(17,0) dcl 6-95 diag_ptr defined pointer dcl 6-71 eln_max defined fixed bin(17,0) dcl 6-173 eln_ptr defined pointer dcl 6-69 first_link_offset internal static fixed bin(17,0) initial dcl 11-52 fixed_static_length internal static fixed bin(17,0) initial dcl 11-51 fixup_max defined fixed bin(17,0) dcl 6-165 fixup_ptr defined pointer dcl 6-31 fs_charcnt defined fixed bin(17,0) dcl 6-185 fs_wdoff defined fixed bin(17,0) dcl 6-199 include_cnt defined fixed bin(17,0) dcl 6-183 include_info_ptr defined pointer dcl 6-87 init_stack_off defined fixed bin(17,0) dcl 6-125 initval_base_ptr defined pointer dcl 6-33 initval_file_ptr defined pointer dcl 6-35 initval_flag defined fixed bin(17,0) dcl 6-179 length builtin function dcl 507 link_max defined fixed bin(17,0) dcl 6-101 link_wd_off defined fixed bin(17,0) dcl 6-99 list_off defined fixed bin(17,0) dcl 6-155 list_ptr defined pointer dcl 6-65 ls_charcnt defined fixed bin(17,0) dcl 6-191 main_pcs_ptr defined pointer dcl 6-85 map_data_max defined fixed bin(17,0) dcl 6-163 map_data_ptr defined pointer dcl 6-55 map_data_table based structure level 1 dcl 67 max_stack_off defined fixed bin(17,0) dcl 6-123 minpral5_ptr defined pointer dcl 6-51 misc_base_ptr defined pointer dcl 6-61 misc_end_ptr defined pointer dcl 6-63 misc_max defined fixed bin(17,0) dcl 6-159 next_tag defined fixed bin(17,0) dcl 6-129 non_source_offset defined fixed bin(17,0) dcl 6-177 ntbuf_ptr defined pointer dcl 6-83 obj_seg_name defined char(32) dcl 6-209 op_con_ptr defined pointer dcl 6-81 para_eop_flag defined fixed bin(17,0) dcl 6-139 parm_desc based structure level 1 dcl 9-7 parm_desc_ptr automatic pointer dcl 9-5 pd_map_index defined fixed bin(17,0) dcl 6-117 pd_map_max defined fixed bin(17,0) dcl 6-161 pd_map_ptr defined pointer dcl 6-29 pd_map_sw defined fixed bin(17,0) dcl 6-127 perform_list_ptr defined pointer dcl 6-37 perform_para_index defined fixed bin(17,0) dcl 6-149 perform_sect_index defined fixed bin(17,0) dcl 6-151 priority_no defined fixed bin(17,0) dcl 6-141 ptr_assumption_ind defined fixed bin(17,0) dcl 6-145 ptr_status_ptr defined pointer dcl 6-57 reg_assumption_ind defined fixed bin(17,0) dcl 6-147 reg_status_ptr defined pointer dcl 6-59 rel builtin function dcl 507 reloc_def_base_ptr defined pointer dcl 6-21 reloc_def_max defined fixed bin(24,0) dcl 6-109 reloc_link_base_ptr defined pointer dcl 6-23 reloc_link_max defined fixed bin(24,0) dcl 6-111 reloc_sym_base_ptr defined pointer dcl 6-25 reloc_sym_max defined fixed bin(24,0) dcl 6-113 reloc_text_base_ptr defined pointer dcl 6-19 reloc_text_max defined fixed bin(24,0) dcl 6-107 reloc_work_base_ptr defined pointer dcl 6-27 reloc_work_max defined fixed bin(24,0) dcl 6-115 report_exists defined bit(1) packed unaligned dcl 8-103 report_first_token defined pointer dcl 8-15 report_last_token defined pointer dcl 8-17 reswd_ptr defined pointer dcl 6-79 same_sort_merge_proc defined bit(1) dcl 6-215 scratch_dir defined char(168) dcl 6-207 sect_eop_flag defined fixed bin(17,0) dcl 6-137 seg_init_flag defined fixed bin(17,0) dcl 6-133 seg_init_list_ptr defined pointer dcl 6-41 stack_off defined fixed bin(17,0) dcl 6-121 statement_info_ptr defined pointer dcl 6-77 string builtin function dcl 507 sym_base_ptr defined pointer dcl 6-17 sym_max defined fixed bin(17,0) dcl 6-105 sym_wd_off defined fixed bin(17,0) dcl 6-103 tag_table_max defined fixed bin(17,0) dcl 6-167 tag_table_ptr defined pointer dcl 6-53 temp_token_area_ptr defined pointer dcl 6-43 temp_token_max defined fixed bin(17,0) dcl 6-169 temp_token_ptr defined pointer dcl 6-45 text_base_ptr defined pointer dcl 6-9 text_wd_off defined fixed bin(17,0) dcl 6-91 token_block1_ptr defined pointer dcl 6-47 token_block2_ptr defined pointer dcl 6-49 value_cnt defined fixed bin(17,0) dcl 6-195 ws_charcnt defined fixed bin(17,0) dcl 6-187 ws_wdoff defined fixed bin(17,0) dcl 6-201 xref_bypass defined bit(1) dcl 6-213 xref_chain_ptr defined pointer dcl 6-75 xref_token_ptr defined pointer dcl 6-73 NAMES DECLARED BY EXPLICIT CONTEXT. CL 001340 constant entry internal dcl 195 ref 98 abort 001337 constant label dcl 501 cobol_paste 000543 constant entry external dcl 30 exit 001217 constant label dcl 192 exit_print_map 003313 constant label dcl 486 ext_entry_label 002710 constant label dcl 419 ref 378 multics_error 001220 constant label dcl 494 ref 100 187 print_map 001352 constant entry internal dcl 205 ref 179 start 000550 constant label dcl 96 start_print_map 001353 constant label dcl 274 NAMES DECLARED BY CONTEXT OR IMPLICATION. divide builtin function ref 157 424 442 pointer builtin function ref 392 STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 3716 4044 3317 3726 Length 4554 3317 126 473 376 14 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME cobol_paste 675 external procedure is an external procedure. on unit on line 98 74 on unit CL internal procedure shares stack frame of on unit on line 98. print_map internal procedure shares stack frame of external procedure cobol_paste. STORAGE FOR INTERNAL STATIC VARIABLES. LOC IDENTIFIER BLOCK NAME 000010 object_map cobol_paste STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME cobol_paste 000100 relseg_ptr cobol_paste 000102 temp cobol_paste 000104 block_relp cobol_paste 000106 long_mes cobol_paste 000140 short_mes cobol_paste 000142 bptr cobol_paste 000144 segptr cobol_paste 000146 aclinfop cobol_paste 000150 i cobol_paste 000151 bc cobol_paste 000152 code cobol_paste 000153 woff cobol_paste 000154 bpos cobol_paste 000155 blen cobol_paste 000156 wlen cobol_paste 000157 tlen cobol_paste 000166 relptr cobol_paste 000170 sym_ptr cobol_paste 000172 error_info cobol_paste 000244 text_ptr cobol_paste 000246 stat_ptr cobol_paste 000256 char_off print_map 000260 p print_map 000262 nl print_map 000263 line_len print_map 000264 auto_len print_map 000266 operator_struc_ptr print_map 000270 op_space print_map 000325 nsize print_map 000326 nptr print_map 000330 i print_map 000331 j print_map 000332 k print_map 000333 l print_map 000334 mcode print_map 000335 str1 print_map 000376 str2 print_map 000437 str3 print_map 000500 str4 print_map 000541 str5 print_map 000602 strlen print_map 000603 no_links print_map 000604 fill print_map 000605 object_len print_map 000606 text_len print_map 000607 def_len print_map 000610 link_len print_map 000611 symb_len print_map 000612 static_len print_map 000614 temp_ptr print_map 000616 seg_ptr print_map 000620 temp_name print_map 000642 link_ptr print_map THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. alloc_char_temp cat_realloc_chars call_ext_out_desc call_ext_out return_mac mdfx1 enable_op shorten_stack ext_entry int_entry THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. cobol_call_op$get_op cobol_make_list cobol_reloc$constants convert_status_code_ get_wdir_ hcs_$set_bc_seg ioa_$rs ioa_$rsnnl signal_ tssi_$clean_up_segment tssi_$finish_segment tssi_$get_segment THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. cobol_$cd_cnt cobol_$coms_charcnt cobol_$coms_wdoff cobol_$con_end_ptr cobol_$cons_charcnt cobol_$def_base_ptr cobol_$fs_charcnt cobol_$fs_wdoff cobol_$link_base_ptr cobol_$link_wd_off cobol_$list_off cobol_$list_ptr cobol_$ls_charcnt cobol_$obj_seg_name cobol_$sym_base_ptr cobol_$text_base_ptr cobol_$value_cnt cobol_$ws_charcnt cobol_$ws_wdoff cobol_ext_$cobol_com_ptr cobol_operator_names_$cobol_operator_names_ LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 30 000540 96 000550 98 000552 99 000570 100 000632 103 000634 105 000647 106 000652 107 000662 108 000665 109 000671 110 000673 111 000677 112 000705 113 000707 114 000710 116 000712 117 000715 118 000720 119 000726 120 000730 121 000731 123 000733 126 000740 127 000744 128 000746 132 000747 133 000752 134 000755 136 000760 137 000770 139 000772 140 000775 141 001003 142 001005 143 001006 144 001010 146 001014 147 001017 148 001022 149 001030 150 001031 151 001033 153 001034 155 001041 156 001045 157 001047 158 001054 159 001056 160 001063 161 001070 162 001072 163 001074 165 001075 167 001077 168 001103 169 001106 170 001111 171 001114 172 001117 174 001120 175 001123 177 001130 179 001134 182 001142 185 001173 187 001214 190 001216 192 001217 494 001220 496 001223 497 001236 499 001305 501 001337 195 001340 198 001341 200 001351 205 001352 274 001353 277 001355 278 001360 279 001366 282 001426 283 001431 284 001436 285 001443 286 001447 287 001452 288 001454 289 001457 290 001461 292 001525 293 001527 294 001537 295 001543 296 001546 297 001551 298 001554 299 001557 301 001627 302 001631 303 001641 304 001644 305 001650 307 001654 309 001672 310 001673 312 001703 313 001705 318 001754 320 001773 321 001774 323 002002 324 002004 330 002053 333 002072 334 002073 336 002101 337 002103 342 002147 344 002166 345 002167 347 002177 348 002201 354 002241 359 002304 364 002346 367 002426 368 002430 370 002440 372 002446 375 002461 376 002502 377 002505 378 002514 381 002515 382 002536 383 002541 384 002550 385 002551 387 002554 389 002563 392 002570 393 002602 394 002605 395 002613 397 002614 400 002620 401 002621 402 002635 403 002637 404 002646 408 002651 410 002653 413 002655 414 002673 415 002701 419 002710 421 002731 422 002734 423 002744 424 002753 425 002755 426 002765 427 002766 429 002771 431 003001 432 003011 433 003017 435 003023 436 003031 437 003037 438 003042 439 003060 441 003115 442 003126 444 003131 447 003134 448 003153 449 003161 450 003167 451 003172 455 003173 456 003203 458 003205 461 003210 462 003211 463 003225 464 003227 465 003236 471 003241 473 003243 475 003245 477 003247 478 003265 482 003273 484 003276 486 003313 ----------------------------------------------------------- Historical Background This edition of the Multics software materials and documentation is provided and donated to Massachusetts Institute of Technology by Group BULL including BULL HN Information Systems Inc. as a contribution to computer science knowledge. This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell BULL Inc., Groupe BULL and BULL HN Information Systems Inc. to the development of this operating system. Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970), renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for managing computer hardware properly and for executing programs. Many subsequent operating systems incorporated Multics principles. Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. . ----------------------------------------------------------- Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without fee is hereby granted,provided that the below copyright notice and historical background appear in all copies and that both the copyright notice and historical background and this permission notice appear in supporting documentation, and that the names of MIT, HIS, BULL or BULL HN not be used in advertising or publicity pertaining to distribution of the programs without specific prior written permission. Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc. Copyright 2006 by BULL HN Information Systems Inc. Copyright 2006 by Bull SAS All Rights Reserved