COMPILATION LISTING OF SEGMENT cobol_ddact1 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 1003.5 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_ddact1.pl1 Reformatted code to new Cobol standard. 19* END HISTORY COMMENTS */ 20 21 22 /* Modified on 11/24/81 by FCH, [5.1-1], RECORD CONTAINS does not allow ZERO, BUG520(phx11821) */ 23 /* Modified on 07/09/79 by MHD, [4.0-1] commented out code that put type 17 tokens in name_table when DEBUG */ 24 /* 1/5/77, FCH, fixed bin decls standardized */ 25 /* Modified since version 2.0 */ 26 27 28 29 30 31 32 33 34 35 /* format: style3 */ 36 cobol_ddact1: 37 proc (an); 38 sv_ptr_auto = cobol_sv_ptr; 39 goto actlbl (an); 40 /********** action routines **********/ 41 42 /* set_wss_indicator */ 43 44 actlbl (50): /*action(5):*/ 45 substr (section_ind, 2, 1) = "1"b; 46 substr (vector_part, 1, 6) = "010000"b; 47 file_number = 0; 48 rdf_01_sav = null_key; 49 goto retrn; /* end_of_wss */ 50 51 actlbl (51): /*action(6):*/ 52 /****** not implemented ******/ 53 goto retrn; /* set_cns_indicator */ 54 55 actlbl (52): /*action(7):*/ 56 substr (section_ind, 3, 1) = "1"b; 57 58 substr (vector_part, 1, 6) = "001000"b; 59 rdf_01_sav = null_key; 60 goto retrn; 61 62 /* set_linkage_section_indicator */ 63 64 actlbl (53): /*action(9):*/ 65 substr (section_ind, 4, 1) = "1"b; 66 67 substr (vector_part, 1, 6) = "000100"b; 68 rdf_01_sav = null_key; 69 goto retrn; /* end_of_linkage_section */ 70 71 actlbl (54): /*action(10):*/ 72 /****** not implemented ******/ 73 go to retrn; 74 75 /*usage comp-n*/ 76 77 actlbl (55): /* usage is comp-6 */ 78 /*action(11):*/ 79 vector_map.bin_36 = "1"b; 80 vector_map.item_signed = "1"b; 81 go to retrn; 82 83 /* create_dummy_data_name */ 84 85 actlbl (56): /*action(13):*/ 86 dnl = 6; 87 88 save_dname = "FILLER"; 89 save_line = record.line; 90 save_column = record.column; 91 go to retrn; 92 93 /* set_77_elementary_bits */ 94 95 actlbl (57): /*action(15):*/ 96 vector_map.level_77 = "1"b; 97 98 offset_ct = 0; 99 ll77 = "1"b; /* set 77 exist bit */ 100 vector_map.elementary = "1"b; 101 h = 0; 102 go to retrn; /*item_size_77 */ 103 104 actlbl (58): /*action(16):*/ 105 call data_length; 106 107 if ^vector_map.picture_clause 108 then do; 109 bit32_1 = substr (vector_part, 9, 32) & pic_suff_bits_mask; 110 if bit32_1 = thirty_two_zeros 111 then vector_map.no_picture = "1"b; 112 end; 113 go to retrn; 114 115 /* conditioname_initialization */ 116 117 actlbl (59): /*action(19):*/ 118 ptr4 = addr (cobol_wkbuf2_tbl); 119 ptr4 -> cntbuf2 = 0; 120 121 conditioname.level = 88; 122 conditioname.size = cn_constant; 123 conditioname.line = numeric_lit.line; 124 conditioname.def_line = numeric_lit.line; 125 conditioname.column = numeric_lit.column; 126 conditioname.type = 11; 127 go to retrn; 128 129 130 131 data_length: 132 proc; 133 bit32_1 = substr (vector_part, 9, 32) & non_display_bits_mask; 134 135 if vector_map.item_signed & vector_map.numeric 136 then do; 137 138 if vector_map.sign_separate 139 | ((vector_map.ascii_packed_dec_b | vector_map.ascii_packed_dec_h) & vector_map.pic_has_s) 140 then go to incr_lnth; 141 else if bit32_1 = thirty_two_zeros /* if display */ 142 then if vector_map.sign_type = "000"b 143 then if fixed_common.default_sign_type = "011"b | fixed_common.default_sign_type = "100"b 144 then go to incr_lnth; 145 goto no_incr; 146 147 incr_lnth: 148 data_name.item_length = data_name.item_length + 1; 149 150 end; 151 no_incr: 152 if bit32_1 = thirty_two_zeros 153 then return; /* display data */ 154 155 if vector_map.bin_16 156 then do; 157 data_name.item_length = 2; 158 data_name.places_right = 0; 159 data_name.places_left = 5; 160 goto dl_end; 161 end; 162 if vector_map.bin_18 163 then do; 164 data_name.item_length = 2; 165 data_name.places_right = 0; 166 data_name.places_left = 6; 167 goto dl_end; 168 end; 169 if vector_map.bin_32 170 then do; 171 data_name.item_length = 4; 172 data_name.places_right = 0; 173 data_name.places_left = 10; 174 goto dl_end; 175 end; 176 if vector_map.bin_36 177 then do; 178 data_name.item_length = 4; 179 data_name.places_right = 0; 180 data_name.places_left = 11; 181 goto dl_end; 182 end; 183 184 /*test packed decimal*/ 185 if vector_map.ebcdic_packed_dec | vector_map.ascii_packed_dec_h | vector_map.ascii_packed_dec_b 186 then do; 187 data_name.item_length = divide (data_name.item_length + 1, 2, 15, 0); 188 goto dl_end; 189 end; 190 191 if vector_map.usage_index = "1"b 192 then data_name.item_length = 6; 193 dl_end: 194 vector_map.pic_integer = "1"b; 195 return; 196 end data_length; 197 198 199 200 201 202 diag: 203 proc; 204 205 message_ptr = addr (message_area); 206 message.size = 32; 207 message.line = record.line; 208 message.column = record.column; 209 message.type = 5; 210 message.run3 = 3; 211 message.info.para = "0"b; 212 message.info.rep = "0"b; 213 message.info.fillerx = "000000"b; 214 message.length = 0; 215 message.number = tf; 216 217 call cobol_c_list (message_ptr); 218 end diag; 219 220 221 222 /*set_usage_exist_bit */ 223 224 actlbl (60): /*action(24):*/ 225 vector_map.usage_clause = "1"b; 226 227 go to retrn; /* set_display_bit */ 228 229 actlbl (61): /* usage is display */ 230 /*action(25):*/ 231 vector_map.display = "1"b; 232 233 go to retrn; /*usage is comp*/ 234 235 actlbl (62): /* usage is comp */ 236 /*action(26):*/ 237 if fixed_common.comp_defaults.comp_5 238 then go to actlbl (73); 239 else if fixed_common.disp_defaults.disp 240 then go to actlbl (61); 241 else if fixed_common.comp_defaults.comp_6 242 then go to actlbl (55); 243 else if fixed_common.comp_defaults.comp_7 244 then go to actlbl (67); 245 else if fixed_common.comp_defaults.comp_1 246 then go to actlbl (63); 247 else if fixed_common.comp_defaults.comp_8 248 then go to actlbl (100); 249 else if fixed_common.comp_defaults.comp_2 250 then go to actlbl (64); 251 else if fixed_common.comp_defaults.comp_3 252 then go to actlbl (65); 253 else if fixed_common.comp_defaults.comp_4 254 then go to actlbl (66); 255 else go to actlbl (73); 256 257 258 /* usage comp-n */ 259 260 actlbl (63): /* usage is comp-1 */ 261 /*action(27):*/ 262 vector_map.bin_16 = "1"b; 263 264 vector_map.item_signed = "1"b; 265 go to retrn; /* usage comp-n */ 266 267 actlbl (64): /* usage is comp-2 */ 268 /*action(28):*/ 269 vector_map.bin_32 = "1"b; 270 271 vector_map.item_signed = "1"b; 272 go to retrn; /*usage comp-n */ 273 274 actlbl (65): /* usage is comp-3 */ 275 /*action(29):*/ 276 vector_map.ebcdic_packed_dec = "1"b; 277 278 go to retrn; /* usage comp-n */ 279 280 actlbl (66): /* usage is comp-4 */ 281 /*action(30):*/ 282 vector_map.ascii_packed_dec_h = "1"b; 283 go to retrn; /* usage comp-n */ 284 285 actlbl (67): /* usage is comp-7 */ 286 /*action(31):*/ 287 vector_map.bin_18 = "1"b; 288 vector_map.item_signed = "1"b; 289 go to retrn; /* set index_bit */ 290 291 actlbl (68): /*action(32):*/ 292 vector_map.usage_index = "1"b; 293 294 go to retrn; /* set_init_value_extension */ 295 296 actlbl (69): /*action(33):*/ 297 vector_map.value_clause = "1"b; 298 299 vector_map.inherit_value = "1"b; 300 initial_ptr = data_name.size + 1; 301 go to retrn; /* store_numeric_value */ 302 303 actlbl (70): /*action(34):*/ 304 vector_map.value_numeric = "1"b; 305 306 if numeric_lit.sign ^= " " 307 then vector_map.value_signed = "1"b; 308 309 call store_nv; 310 311 312 store_nv: 313 proc; 314 numinit.initype.numeric = "1"b; 315 316 if numeric_lit.rtdp = 0 317 then numinit.info.integer = "1"b; 318 319 numinit.info.floating = numeric_lit.info.floating; 320 numinit.info.filler = numeric_lit.info.filler; 321 numinit.expsign = numeric_lit.exp_sign; 322 numinit.explaces = numeric_lit.exp_places; 323 numinit.sign = numeric_lit.sign; 324 numinit.ltdp = numeric_lit.ltdp; 325 numinit.rtdp = numeric_lit.rtdp; 326 numinit.length = numeric_lit.length; 327 niv = nl; 328 numinit.literal = numeric_lit.literal; 329 end store_nv; 330 331 332 initial_ptr = data_name.size + 1; 333 data_name.size = data_name.size + niv_constant + numinit.length; 334 /* add value extention to size */ 335 fixbin7_1 = mod (data_name.size, 4); 336 if fixbin7_1 ^= 0 337 then fixbin7_1 = 4 - fixbin7_1; 338 data_name.size = data_name.size + fixbin7_1; 339 ptr1 = addr (dn_ptr -> any_item (data_name.size + 1)); 340 /* set ptr1 to next */ 341 go to retrn; /* store_alphanumeric_value */ 342 343 actlbl (71): /*action(35):*/ 344 vector_map.value_non_numeric = "1"b; 345 346 call store_av; 347 348 349 store_av: 350 proc; 351 alphainit.initype.non_numeric = "1"b; 352 alphainit.info.bit_string = alphanum_lit.info.bit_string; 353 alphainit.length = alphanum_lit.length; 354 aiv = al; 355 alphainit.string = alphanum_lit.string; 356 end store_av; 357 358 359 initial_ptr = data_name.size + 1; 360 initial_ptr = data_name.size + 1; 361 data_name.size = data_name.size + aiv_constant + alphainit.length; 362 fixbin7_1 = mod (data_name.size, 4); 363 if fixbin7_1 ^= 0 364 then fixbin7_1 = 4 - fixbin7_1; 365 data_name.size = data_name.size + fixbin7_1; 366 ptr1 = addr (dn_ptr -> any_item (data_name.size + 1)); 367 go to retrn; /* store_fig_con_value */ 368 369 actlbl (72): /*action(36):*/ 370 call store_fcv; 371 372 373 store_fcv: 374 proc; 375 alphainit.initype.fig_con = "1"b; 376 alphainit.info.fig_con_index = substr (unspec (rw.jump_index), 30, 7); 377 alphainit.length = 0; 378 end store_fcv; 379 380 381 if alphainit.info.fig_con_index = "0000001"b 382 then data_name.size = data_name.size + niv_constant + 1; 383 /*leave room for pic_val_comp to change extension to numeric type if data item numeric*/ 384 else data_name.size = data_name.size + aiv_constant + 1; 385 /*leave room for fixup phase to add one-byte literal string*/ 386 387 fixbin7_1 = mod (data_name.size, 4); 388 if fixbin7_1 ^= 0 389 then fixbin7_1 = 4 - fixbin7_1; 390 data_name.size = data_name.size + fixbin7_1; 391 392 ptr1 = addr (dn_ptr -> any_item (data_name.size + 1)); 393 394 if rw.jump_index = 1 395 then vector_map.fig_zero = "1"b; 396 397 go to retrn; /* usage comp-n */ 398 399 actlbl (73): /* usage is comp-5 */ 400 /*action(37):*/ 401 vector_map.ascii_packed_dec_b = "1"b; 402 go to retrn; /* sign_clause */ 403 404 actlbl (74): /*action(38):*/ 405 vector_map.sign_clause = "1"b; 406 407 go to retrn; /* sign_type_overpunch_right_trailing */ 408 409 actlbl (75): /*action(39):*/ 410 vector_map.sign_type = "001"b; 411 412 go to retrn; /* sign_type_overpunch_left_leading */ 413 414 actlbl (76): /*action(40):*/ 415 vector_map.sign_type = "010"b; 416 vector_map.sign_clause_occurred = "1"b; 417 go to retrn; 418 419 /* sign_type_separate_right */ 420 421 actlbl (77): /*action(41):*/ 422 vector_map.sign_type = "011"b; 423 vector_map.sign_separate = "1"b; 424 go to retrn; 425 426 /* sign_type_separate_left */ 427 428 actlbl (78): /*action(42):*/ 429 vector_map.sign_type = "100"b; 430 vector_map.sign_clause_occurred = "1"b; 431 vector_map.sign_separate = "1"b; 432 go to retrn; 433 434 /* set_sync_right */ 435 436 actlbl (79): 437 ; 438 439 actlbl (80): /*action(43):*/ 440 vector_map.sync_right = "1"b; 441 442 /*action(44):*/ 443 /*sync*/ 444 445 sync_rdf = "1"b; 446 fixed_common.sync_in_prog = "1"b; 447 448 if data_name.level = 77 449 then goto retrn; 450 451 /* set sync bit in 01 item */ 452 453 if data_name.level = 1 454 then do; 455 vector_map.sync_in_rec = "1"b; 456 goto retrn; 457 end; 458 459 if cobol_htbl.exp_redefining (1) 460 then rnt_key = rdf_01_sav; 461 else rnt_key = cobol_htbl.nt_rec (1); 462 463 call cobol_vdwf_dget (cobol_ntfp, fstatus, rnt_ptr, rnt_size, rnt_key); 464 465 rnt_ptr -> data_name.sync_in_rec = "1"b; 466 467 call cobol_vdwf_dput (cobol_ntfp, fstatus, rnt_ptr, rnt_size, rnt_key); 468 469 go to retrn; /* set_just_right */ 470 471 actlbl (81): /*action(45):*/ 472 vector_map.just_right = "1"b; 473 474 go to retrn; /* set_just_left */ 475 476 actlbl (82): /*action(46):*/ 477 go to retrn; /* set_bwz */ 478 479 actlbl (83): /*action(47):*/ 480 vector_map.bwz = "1"b; 481 482 go to retrn; 483 484 /* set_occurs_extension */ 485 486 actlbl (84): /*action(48):*/ 487 vector_map.occurs_clause = "1"b; 488 489 vector_map.subscripted = "1"b; 490 491 if data_name.occurs_ptr = 0 492 then data_name.occurs_ptr = data_name.size + 1; 493 494 ptr1 = addr (dn_ptr -> any_item (data_name.occurs_ptr)); 495 496 if h ^= 0 /*only under error condition*/ 497 then do; 498 temp_bin1 = data_name.size + 1; 499 fh = h; 500 rnt_key = cobol_htbl.nt_rec (fh); 501 502 call cobol_vdwf_dget (cobol_ntfp, fstatus, rnt_ptr, rnt_size, rnt_key); 503 504 save_ptr = dn_ptr; 505 dn_ptr = rnt_ptr; 506 507 if data_name.occurs_ptr = 0 508 then do; 509 dn_ptr = save_ptr; 510 odim = 0; 511 end; 512 else do; 513 pdn_occ_ptr = addr (dn_ptr -> any_item (data_name.occurs_ptr)); 514 odim = pdn_occ_ptr -> occurs.dimensions; 515 ptr1 = addr (save_ptr -> any_item (temp_bin1)); 516 temp_bin1 = occ_constant + occ_dim_constant * odim; 517 substr (ptr1 -> anystring, 1, temp_bin1) = substr (pdn_occ_ptr -> anystring, 1, temp_bin1); 518 519 /*copies parent's occurs extension onto child*/ 520 521 ptr1 -> occurs.keyed = 0; 522 dn_ptr = save_ptr; 523 end; 524 end; 525 odim = odim + 1; 526 occurs.dimensions = odim; 527 data_name.size = data_name.size + occ_constant + occ_dim_constant * odim; 528 529 fixbin7_1 = mod (data_name.size, 4); 530 if fixbin7_1 ^= 0 531 then fixbin7_1 = 4 - fixbin7_1; 532 data_name.size = data_name.size + fixbin7_1; 533 534 /*POST-RELEASE CHANGE*/ 535 keycount = 0; 536 index_ct = 0; 537 occurs.level.indexedno (odim) = 0; 538 go to retrn; 539 540 na48: 541 odim = odim + 1; 542 occurs.dimensions = odim; 543 544 if odim > 1 & vector_map.exp_redefining = "1"b 545 then data_name.size = data_name.size + occ_dim_constant; 546 else data_name.size = data_name.size + (occ_constant + occ_dim_constant * odim); 547 548 fixbin7_1 = mod (data_name.size, 4); 549 if fixbin7_1 ^= 0 550 then fixbin7_1 = 4 - fixbin7_1; 551 data_name.size = data_name.size + fixbin7_1; 552 occurs.keyed = 0; 553 index_ct = 0; 554 occurs.level.indexedno (odim) = 0; 555 go to retrn; /*occurs -integer-*/ 556 557 actlbl (85): /*action(49):*/ 558 /*[5.0-1]*/ 559 if record.type = 2 560 then save_occno = fixed (numeric_lit.literal); 561 else save_occno = 0; 562 occurs.level.max (odim) = save_occno; 563 go to retrn; 564 565 /*occurs -integer- to -integer-*/ 566 567 actlbl (86): /*action(50):*/ 568 occurs.level.min (odim) = occurs.level.max (odim);/*[5.0-1]*/ 569 if record.type = 2 570 then save_occno = fixed (numeric_lit.literal); 571 else save_occno = 0; 572 occurs.level.max (odim) = save_occno; 573 goto retrn; /*occurs ... depending on*/ 574 /* store obj_rec for odo & create odo_rec */ 575 576 actlbl (87): /*action(51):*/ 577 com2_ptr = addr (cobol_wkbuf2_tbl.wkbuf2); 578 ptr4 = addr (cobol_wkbuf2_tbl); 579 ptr4 -> cntbuf2 = 0; 580 581 odo_rec.info = "00000001"b; /*for occurs only*/ 582 odo_rec.next = null_key; 583 odo_rec.descr = null_key; 584 odo_rec.seg_no = 0; 585 odo_rec.offset_l = 0; 586 odo_rec.offset_r = 0; 587 odo_rec.descr = null_key; 588 odo_rec.seg_no = 0; 589 odo_rec.offset_l = 0; 590 odo_rec.offset_r = 0; 591 592 /* write odo_rec into common file */ 593 cm_ptr = com2_ptr; 594 cm_size = odo_rec_constant; 595 596 call cobol_vdwf_sput (cobol_cmfp, fstatus, cm_ptr, cm_size, cm_key); 597 598 /* store odo_rec record no in common into the do_rec in data_name item */ 599 600 data_name.do_rec = cm_key; 601 602 if h ^= 0 603 then do fh = h to 1 by -1; 604 cobol_htbl.do_rec (fh) = cm_key; 605 cobol_htbl.do_rec_valid (fh) = "1"b; 606 end; 607 608 if prior_odo_rec ^= null_key 609 then go to s_odo_next; 610 611 fixed_common.odo_info = cm_key; 612 prior_odo_rec = cm_key; 613 go to odo_obj; 614 615 s_odo_next: 616 rcm_key = prior_odo_rec; 617 618 call cobol_vdwf_dget (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 619 620 com2_ptr = cm_ptr; 621 odo_rec.next = cm_key; 622 623 call cobol_vdwf_dput (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 624 625 prior_odo_rec = cm_key; 626 627 /* create obj_rec for odo_rec */ 628 629 odo_obj: 630 com2_ptr = addr (cobol_wkbuf2_tbl.wkbuf2); 631 ptr4 = addr (cobol_wkbuf2_tbl); 632 ptr4 -> cntbuf2 = 0; 633 obj_rec.qual = null_key; 634 635 if record.type = 8 636 then do; /* odo name exists */ 637 638 obj_rec.size = user_word.word_size; 639 substr (obj_rec.name, 1, user_word.word_size) = substr (user_word.word, 1, user_word.word_size); 640 end; 641 else do; /* odo name missing or in error - use a dummy */ 642 643 obj_rec.size = 6; 644 obj_rec.name = "FILLER"; 645 end; 646 647 obj_rec.line = record.line; 648 obj_rec.column = record.column; 649 cm_ptr = com2_ptr; 650 cm_size = obj_rec_constant + obj_rec.size; 651 652 call cobol_vdwf_sput (cobol_cmfp, fstatus, cm_ptr, cm_size, cm_key); 653 654 prior_obj_rec = cm_key; 655 prior_qual_rec = null_key; /* store obj_rec record no into odo_rec */ 656 rcm_key = prior_odo_rec; 657 658 call cobol_vdwf_dget (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 659 660 com2_ptr = cm_ptr; 661 odo_rec.descr = cm_key; 662 663 call cobol_vdwf_dput (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 664 665 goto retrn; /* store_odo_do_rec */ 666 667 actlbl (88): /*action(52):*/ 668 vector_map.occurs_do = "1"b; 669 goto retrn; /* key_ascending*/ 670 671 actlbl (89): /*action(53):*/ 672 /*POST-RELEASE CHANGE: 1 line deleted*/ 673 vector_map.key_a = "1"b; 674 asc_des = 1; 675 go to retrn; /* key descending */ 676 677 actlbl (90): /*action(54):*/ 678 /*POST-RELEASE CHANGE: 1 line deleted*/ 679 vector_map.key_d = "1"b; 680 asc_des = 2; 681 go to retrn; /* store first key dn into common */ 682 683 actlbl (91): /*action(55):*/ 684 keycount = keycount + 1; 685 prior_qual_rec = null_key; 686 687 skey_ptr = addr (cobol_wkbuf2_tbl.wkbuf2); 688 skey_rec.next = null_key; 689 skey_rec.qual = null_key; 690 skey_rec.keyno = keycount; 691 skey_rec.asc_des = asc_des; 692 skey_rec.ref_line = user_word.line; 693 skey_rec.ref_column = user_word.column; 694 skey_rec.info = "00000000"b; 695 skey_rec.size = user_word.word_size; 696 697 substr (skey_rec.name, 1, user_word.word_size) = substr (user_word.word, 1, user_word.word_size); 698 699 cm_ptr = skey_ptr; 700 cm_size = skey_rec_constant + skey_rec.size; 701 702 call cobol_vdwf_sput (cobol_cmfp, fstatus, cm_ptr, cm_size, cm_key); 703 704 /* store key dn record no in common into data_name item */ 705 706 if prior_skey_rec ^= null_key 707 then go to s_next_key; 708 709 rcm_key = prior_occ_key; 710 711 call cobol_vdwf_dget (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 712 713 com2_ptr = cm_ptr; 714 occ_key.first_key = cm_key; 715 716 call cobol_vdwf_dput (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 717 718 prior_skey_rec = cm_key; 719 goto retrn; 720 721 s_next_key: 722 rcm_key = prior_skey_rec; 723 724 call cobol_vdwf_dget (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 725 726 skey_ptr = cm_ptr; 727 skey_rec.next = cm_key; 728 prior_skey_rec = cm_key; 729 goto retrn; 730 731 /* set_indexed_by_bit */ 732 733 actlbl (92): /*action(56):*/ 734 vector_map.indexed_by = "1"b; 735 736 go to retrn; /* generate_indexname_item */ 737 738 actlbl (93): /*action(57):*/ 739 index_ct = index_ct + 1; 740 741 if index_ct = 1 742 then do; 743 counter2 = counter2 + 1; 744 occurs.level.indexedno (odim) = counter2; 745 746 ptr4 = addr (cobol_wkbuf2_tbl); 747 ptr4 -> cntbuf2 = 0; 748 749 indexname.type = 10; 750 indexname.level = 99; 751 indexname.index_no = counter2; 752 indexname.min = occurs.level.min (odim); 753 indexname.max = occurs.level.max (odim); 754 end; 755 756 indexname.line = user_word.line; 757 indexname.def_line = user_word.line; 758 indexname.column = user_word.column; 759 indexname.name_size = user_word.word_size; 760 761 substr (indexname.name, 1, user_word.word_size) = substr (user_word.word, 1, user_word.word_size); 762 763 indexname.size = in_constant + indexname.name_size; 764 /* write index name item type=10 */ 765 rnt_size = indexname.size; 766 767 call cobol_vdwf_sput (cobol_ntfp, fstatus, w2_ptr, rnt_size, w_key); 768 769 ixix = ixix + 1; /*save key for later retrieval to set struc_length*/ 770 771 if ixix > 50 772 then do; 773 tf = 196; 774 call diag; 775 goto pre_end; 776 end; 777 778 ix_ino (ixix) = counter2; 779 ix_key (ixix) = w_key; 780 go to retrn; 781 782 /* rws_bit */ 783 784 actlbl (94): /*action(58):*/ 785 substr (section_ind, 6, 1) = "1"b; 786 787 fixed_common.report = "1"b; 788 go to retrn; /*pd_bit */ 789 790 actlbl (95): /*action(59):*/ 791 substr (section_ind, 7, 1) = "1"b; 792 793 go to retrn; /* eop_bit */ 794 795 actlbl (96): /*action(60):*/ 796 substr (section_ind, 8, 1) = "1"b; 797 798 go to retrn; /*set pre_end_sw for interpreter termination */ 799 800 actlbl (97): /*action(61):*/ 801 go to pre_end; 802 803 /*write to name table if unwritten item exists*/ 804 805 actlbl (98): /*action(62):*/ 806 if bnw ^= 0 807 then do; 808 rnt_size = data_name.size; 809 810 call cobol_vdwf_sput (cobol_ntfp, fstatus, dn_ptr, rnt_size, w_key); 811 812 bnw = 0; 813 end; 814 go to retrn; /* initialization */ 815 816 actlbl (99): /*action(3):*/ 817 /*generate TALLY*/ 818 ptr4 = addr (cobol_wkbuf1_tbl); 819 ptr4 -> cntbuf = 0; 820 dn_ptr = addr (cobol_wkbuf1_tbl); 821 822 data_name.type = 9; 823 data_name.level = 77; 824 data_name.item_length = 5; /* 5 is arbitrarily chosen */ 825 data_name.places_left = 5; 826 data_name.name_size = 13; 827 data_name.size = dn_constant + 13; 828 829 substr (data_name.name, 1, data_name.name_size) = "SYSTEM-STATUS"; 830 831 addr (data_name.file_section) -> bit72 = 832 "010000100100000001000000000100000000000000000000000010000000000000000100"b; 833 834 /*working-storage section,level 77,elementary,numeric,display,integer*/ 835 /*not user writable*/ 836 837 rnt_size = data_name.size; 838 839 call cobol_vdwf_sput (cobol_ntfp, fstatus, dn_ptr, rnt_size, w_key); 840 /*write SYSTEM-STATUS*/ 841 842 fixed_common.first_dd_item = w_key; /*for ddalloc file positioning*/ 843 844 substr (data_name.name, 1, data_name.name_size) = "TALLY"; 845 846 data_name.name_size = 5; 847 data_name.not_user_writable = "0"b; 848 data_name.size = dn_constant + 5; 849 rnt_size = data_name.size; 850 bnw = 1; /*buf needs write*/ 851 goto retrn; 852 853 854 actlbl (100): 855 vector_map.ascii_packed_dec_h = "1"b; 856 goto retrn; 857 858 pre_end: 859 pre_end_sw = "1"b; 860 go to retrn; 861 862 comp_end: 863 comp_end_sw = "1"b; 864 865 retrn: 866 return; 867 868 dcl an fixed bin; 869 dcl tf fixed bin; 870 dcl bit9 bit (9); 871 dcl bit32 bit (32); 872 dcl bit40 bit (40); 873 dcl fstatus bit (32); /*io return code*/ 874 dcl null_func ptr internal static init (null ()); 875 dcl null_key char (5) internal static init ("00000"); 876 dcl asc_des fixed bin internal static; 877 878 declare (addr, divide, mod, substr, unspec, fixed) 879 builtin; 880 881 1 1 1 2 /* BEGIN INCLUDE FILE ... cobol_spec_constants.incl.pl1 */ 1 3 /* last modified on 11/20/74 */ 1 4 dcl msg_constant fixed bin static internal init (32); 1 5 dcl pd_db_constant fixed bin static internal init (8); 1 6 dcl dn_constant fixed bin static internal init (112); 1 7 dcl niv_constant fixed bin static internal init (20); 1 8 dcl aiv_constant fixed bin static internal init (8); 1 9 dcl ed_constant fixed bin static internal init (20); 1 10 dcl occ_constant fixed bin static internal init (12); 1 11 dcl occ_dim_constant fixed bin static internal init (24); 1 12 dcl in_constant fixed bin static internal init (80); 1 13 dcl cn_constant fixed bin static internal init (52); 1 14 dcl fd_constant fixed bin static internal init (48); 1 15 dcl cd_constant fixed bin static internal init (64); 1 16 dcl linage_rec_constant fixed bin static internal init (64); 1 17 dcl linage_name_rec_constant fixed bin static internal init (32); 1 18 dcl qual_rec_constant fixed bin static internal init (20); 1 19 dcl occ_key_constant fixed bin static internal init (36); 1 20 dcl report_rec_constant fixed bin static internal init (28); 1 21 dcl obj_rec_constant fixed bin static internal init (24); 1 22 dcl rename_rec_constant fixed bin static internal init (48); 1 23 dcl odo_rec_constant fixed bin static internal init (32); 1 24 dcl skey_rec_constant fixed bin static internal init (44); 1 25 dcl fkey_constant fixed bin static internal init (84); 1 26 /* END INCLUDE FILE ... cobol_spec_constants.incl.pl! */ 1 27 882 2 1 2 2 /* BEGIN INCLUDE FILE ... cobol_special_dcls.incl.pl1 */ 2 3 /* last modified on 11/20/74 */ 2 4 dcl bits_per_char fixed bin static internal init (9); 2 5 dcl bits_per_word fixed bin static internal init (36); 2 6 dcl one_word_in_bits bit (36) static internal; 2 7 dcl chtbl (343) fixed bin(24) based(ptr4); 2 8 dcl cma (14) fixed bin(24) based(ptr4); 2 9 dcl cntbuf (250) fixed bin(24) based(ptr4); 2 10 dcl cntbuf2 (125) fixed bin(24) based(ptr4); 2 11 dcl chtbl_item (7) fixed bin(24) based; 2 12 /* END INCLUDE FILE ... cobol_special_dcls.incl.pl1 */ 2 13 883 3 1 3 2 /* BEGIN INCLUDE FILE ... cobol_ext_.incl.pl1 */ 3 3 /* Last modified on 06/17/76 by ORN */ 3 4 /* Last modified on 12/28/76 by FCH */ 3 5 /* Last modified on 12/01/80 by FCH */ 3 6 3 7 /* <<< SHARED EXTERNALS INCLUDE FILE >>> */ 3 8 3 9 3 10 dcl cobol_ext_$cobol_afp ptr ext; 3 11 dcl cobol_afp ptr defined ( cobol_ext_$cobol_afp); 3 12 dcl cobol_ext_$cobol_analin_fileno ptr ext; 3 13 dcl cobol_analin_fileno ptr defined ( cobol_ext_$cobol_analin_fileno); 3 14 dcl cobol_ext_$report_first_token ptr ext; 3 15 dcl report_first_token ptr defined( cobol_ext_$report_first_token); 3 16 dcl cobol_ext_$report_last_token ptr ext; 3 17 dcl report_last_token ptr defined ( cobol_ext_$report_last_token); 3 18 dcl cobol_ext_$cobol_eltp ptr ext; 3 19 dcl cobol_eltp ptr defined ( cobol_ext_$cobol_eltp); 3 20 dcl cobol_ext_$cobol_cmfp ptr ext; 3 21 dcl cobol_cmfp ptr defined ( cobol_ext_$cobol_cmfp); 3 22 dcl cobol_ext_$cobol_com_fileno ptr ext; 3 23 dcl cobol_com_fileno ptr defined ( cobol_ext_$cobol_com_fileno); 3 24 dcl cobol_ext_$cobol_com_ptr ptr ext; 3 25 dcl cobol_com_ptr ptr defined ( cobol_ext_$cobol_com_ptr); 3 26 dcl cobol_ext_$cobol_dfp ptr ext; 3 27 dcl cobol_dfp ptr defined ( cobol_ext_$cobol_dfp); 3 28 dcl cobol_ext_$cobol_hfp ptr ext; 3 29 dcl cobol_hfp ptr defined ( cobol_ext_$cobol_hfp); 3 30 dcl cobol_ext_$cobol_m1fp ptr ext; 3 31 dcl cobol_m1fp ptr defined ( cobol_ext_$cobol_m1fp); 3 32 dcl cobol_ext_$cobol_m2fp ptr ext; 3 33 dcl cobol_m2fp ptr defined ( cobol_ext_$cobol_m2fp); 3 34 dcl cobol_ext_$cobol_min1_fileno ptr ext; 3 35 dcl cobol_min1_fileno ptr defined ( cobol_ext_$cobol_min1_fileno); 3 36 dcl cobol_ext_$cobol_min2_fileno_ptr ptr ext; 3 37 dcl cobol_min2_fileno_ptr ptr defined ( cobol_ext_$cobol_min2_fileno_ptr); 3 38 dcl cobol_ext_$cobol_name_fileno ptr ext; 3 39 dcl cobol_name_fileno ptr defined ( cobol_ext_$cobol_name_fileno); 3 40 dcl cobol_ext_$cobol_name_fileno_ptr ptr ext; 3 41 dcl cobol_name_fileno_ptr ptr defined ( cobol_ext_$cobol_name_fileno_ptr); 3 42 dcl cobol_ext_$cobol_ntfp ptr ext; 3 43 dcl cobol_ntfp ptr defined ( cobol_ext_$cobol_ntfp); 3 44 dcl cobol_ext_$cobol_pdofp ptr ext; 3 45 dcl cobol_pdofp ptr defined ( cobol_ext_$cobol_pdofp); 3 46 dcl cobol_ext_$cobol_pfp ptr ext; 3 47 dcl cobol_pfp ptr defined ( cobol_ext_$cobol_pfp); 3 48 dcl cobol_ext_$cobol_rm2fp ptr ext; 3 49 dcl cobol_rm2fp ptr defined ( cobol_ext_$cobol_rm2fp); 3 50 dcl cobol_ext_$cobol_rmin2fp ptr ext; 3 51 dcl cobol_rmin2fp ptr defined ( cobol_ext_$cobol_rmin2fp); 3 52 dcl cobol_ext_$cobol_curr_in ptr ext; 3 53 dcl cobol_curr_in ptr defined ( cobol_ext_$cobol_curr_in); 3 54 dcl cobol_ext_$cobol_curr_out ptr ext; 3 55 dcl cobol_curr_out ptr defined ( cobol_ext_$cobol_curr_out); 3 56 dcl cobol_ext_$cobol_sfp ptr ext; 3 57 dcl cobol_sfp ptr defined ( cobol_ext_$cobol_sfp); 3 58 dcl cobol_ext_$cobol_w1p ptr ext; 3 59 dcl cobol_w1p ptr defined ( cobol_ext_$cobol_w1p); 3 60 dcl cobol_ext_$cobol_w2p ptr ext; 3 61 dcl cobol_w2p ptr defined ( cobol_ext_$cobol_w2p); 3 62 dcl cobol_ext_$cobol_w3p ptr ext; 3 63 dcl cobol_w3p ptr defined ( cobol_ext_$cobol_w3p); 3 64 dcl cobol_ext_$cobol_w5p ptr ext; 3 65 dcl cobol_w5p ptr defined ( cobol_ext_$cobol_w5p); 3 66 dcl cobol_ext_$cobol_w6p ptr ext; 3 67 dcl cobol_w6p ptr defined ( cobol_ext_$cobol_w6p); 3 68 dcl cobol_ext_$cobol_w7p ptr ext; 3 69 dcl cobol_w7p ptr defined ( cobol_ext_$cobol_w7p); 3 70 dcl cobol_ext_$cobol_x3fp ptr ext; 3 71 dcl cobol_x3fp ptr defined ( cobol_ext_$cobol_x3fp); 3 72 dcl cobol_ext_$cobol_rwdd ptr ext; 3 73 dcl cobol_rwdd ptr defined(cobol_ext_$cobol_rwdd); 3 74 dcl cobol_ext_$cobol_rwpd ptr ext; 3 75 dcl cobol_rwpd ptr defined(cobol_ext_$cobol_rwpd); 3 76 3 77 3 78 dcl cobol_ext_$cobol_fileno1 fixed bin(24)ext; 3 79 dcl cobol_fileno1 fixed bin(24)defined ( cobol_ext_$cobol_fileno1); 3 80 dcl cobol_ext_$cobol_options_len fixed bin(24)ext; 3 81 dcl cobol_options_len fixed bin(24)defined ( cobol_ext_$cobol_options_len); 3 82 dcl cobol_ext_$cobol_pdout_fileno fixed bin(24)ext; 3 83 dcl cobol_pdout_fileno fixed bin(24)defined ( cobol_ext_$cobol_pdout_fileno); 3 84 dcl cobol_ext_$cobol_print_fileno fixed bin(24)ext; 3 85 dcl cobol_print_fileno fixed bin(24)defined ( cobol_ext_$cobol_print_fileno); 3 86 dcl cobol_ext_$cobol_rmin2_fileno fixed bin(24)ext; 3 87 dcl cobol_rmin2_fileno fixed bin(24)defined ( cobol_ext_$cobol_rmin2_fileno); 3 88 dcl cobol_ext_$cobol_x1_fileno fixed bin(24)ext; 3 89 dcl cobol_x1_fileno fixed bin(24)defined ( cobol_ext_$cobol_x1_fileno); 3 90 dcl cobol_ext_$cobol_x2_fileno fixed bin(24)ext; 3 91 dcl cobol_x2_fileno fixed bin(24)defined ( cobol_ext_$cobol_x2_fileno); 3 92 dcl cobol_ext_$cobol_x3_fileno fixed bin(24)ext; 3 93 dcl cobol_x3_fileno fixed bin(24)defined ( cobol_ext_$cobol_x3_fileno); 3 94 3 95 dcl cobol_ext_$cobol_lpr char (5) ext; 3 96 dcl cobol_lpr char (5) defined ( cobol_ext_$cobol_lpr); /* -2- */ 3 97 dcl cobol_ext_$cobol_options char (120) ext; 3 98 dcl cobol_options char (120) defined ( cobol_ext_$cobol_options); /* -30- */ 3 99 3 100 dcl cobol_ext_$cobol_xlast8 bit (1) ext; 3 101 dcl cobol_xlast8 bit (1) defined ( cobol_ext_$cobol_xlast8); /* -1- */ 3 102 dcl cobol_ext_$report_exists bit (1) ext; 3 103 dcl report_exists bit (1) defined ( cobol_ext_$report_exists); 3 104 3 105 3 106 /* <<< END OF SHARED EXTERNALS INCLUDE FILE >>> */ 3 107 /* END INCLUDE FILE ... cobol_ext_.incl.pl1 */ 3 108 884 885 /* %include cobol_segdata_ddsyn; */ 4 1 4 2 /* BEGIN INCLUDE FILE ... cobol_ext_ddsyn.incl.pl1 */ 4 3 /* Last modified on 06/18/76 by ORN */ 4 4 4 5 /**********>UDD>L2COBOL>INCLUDE>A_COBOL_EXT_DDSYN INCLUDE FILE**********/ 4 6 dcl cobol_ext_ddsyn$cobol_sv_ptr ptr ext; 4 7 dcl cobol_sv_ptr ptr defined ( cobol_ext_ddsyn$cobol_sv_ptr); /*to shared_variables*/ 4 8 dcl 1 cobol_ext_ddsyn$cobol_wkbuf1_tbl ext like cobol_wkbuf1_tbl; 4 9 dcl 1 cobol_wkbuf1_tbl defined ( cobol_ext_ddsyn$cobol_wkbuf1_tbl), /* -250- */ 4 10 2 wkbuf1 char(1000); 4 11 dcl 1 cobol_ext_ddsyn$cobol_wkbuf2_tbl ext like cobol_wkbuf2_tbl; 4 12 dcl 1 cobol_wkbuf2_tbl defined ( cobol_ext_ddsyn$cobol_wkbuf2_tbl), /* -125- */ 4 13 2 wkbuf2 char(500); 4 14 dcl 1 cobol_ext_ddsyn$cobol_htbl (49) ext like cobol_htbl; 4 15 dcl 1 cobol_htbl (49) defined ( cobol_ext_ddsyn$cobol_htbl), /* -343- */ /*hierarchy table*/ 4 16 2 level fixed bin, /*level*/ 4 17 2 item_length fixed bin, /*byte length*/ 4 18 2 occno fixed bin, /*number of occurrences per OCCURS clause*/ 4 19 2 nt_rec char(5), /*write ads in NT*/ 4 20 2 do_rec char(5), /*write ads in COM for object of length or occurs DEPENDING*/ 4 21 2 minivector bit(18), /*store vector bits not in type9token for inheritance*/ 4 22 2 nt_rec_valid bit(1), /*set if nt_rec has been set*/ 4 23 2 do_rec_valid bit(1), /*set if do_rec has been set*/ 4 24 2 occurs_clause bit(1), /*set for item has OCCURS*/ 4 25 2 odo_switch bit(1), /*set for item has occurs depending clause*/ 4 26 2 occurs_ext bit(1), /*set for item has occurs extension*/ 4 27 2 switch_88 bit(1), /*set for item has associated level 88 items*/ 4 28 2 exp_redefining bit(1); /*set for subject of REDEFINES*/ 4 29 /* 4 30* 3 of_no_interest1 bit(4), 4 31* 3 value_clause bit(1), 4 32* 3 of_no_interest2 bit(4), 4 33* 3 inherit_value bit(1), 4 34* 3 code_set bit(1), 4 35* 3 assoc_with_pic_s bit(1), 4 36* 3 unused bit(6); 4 37**/ 4 38 /* END INCLUDE FILE ... cobol_ext_ddsyn.incl.pl1 */ 4 39 886 887 dcl bit32_1 bit (32); /*work field for usage bits testing*/ 888 dcl thirty_two_zeros bit (32) internal static init ("00000000000000000000000000000000"b); 889 dcl non_display_bits_mask 890 bit (32) init ("00000110000000000000111111100000"b) internal static; 891 dcl pic_suff_bits_mask bit (32) internal static init ("00000110000000000000000011100000"b); 892 /*masks out all but picture_sufficient usage bits*/ 893 dcl sv_ptr_auto ptr; 894 dcl 1 shared_var based (sv_ptr_auto), 5 1 5 2 /* BEGIN INCLUDE FILE ... cobol_shared_var.incl.pl1 */ 5 3 2 min_ptr ptr, 5 4 2 ft_ptr ptr, 5 5 2 skey_ptr ptr, 5 6 2 linage_ptr ptr, 5 7 2 fkey_ptr ptr, 5 8 2 rnt_ptr ptr, 5 9 2 modnt_ptr ptr, 5 10 2 ptr1 ptr, 5 11 2 save_ptr ptr, 5 12 2 save_ptr1 ptr, /*used only for cond value thru clause*/ 5 13 2 ptr3 ptr, 5 14 2 ptr2 ptr, 5 15 2 dn_ptr ptr, /*to type9 token, usually in wkbuf1*/ 5 16 2 w2_ptr ptr, /*to various tokens and records in wkbuf2*/ 5 17 2 cdtoken_ptr ptr, /* ptr to cd token */ 5 18 2 save_w2 ptr, 5 19 2 com2_ptr ptr, 5 20 2 cm_ptr ptr, 5 21 2 ptr5 ptr, 5 22 2 ptr4 ptr, 5 23 2 ptr_to_char_tbl ptr, 5 24 2 fd_clauses_ptr ptr, 5 25 2 nt_fno fixed bin(24), 5 26 2 temp_bin1 fixed bin(24), 5 27 2 temp_bin2 fixed bin(24), 5 28 2 offset_ct fixed bin(24), 5 29 2 save_offsets(49) fixed bin(24), 5 30 2 bnw fixed bin, /*indicates wkbuf1 contains unwritten type9*/ 5 31 2 nl fixed bin, 5 32 2 al fixed bin, 5 33 2 nsa_index fixed bin, 5 34 2 nsa_index_last_fd fixed bin, 5 35 2 nsa_work_index fixed bin, 5 36 2 name_string_index fixed bin, 5 37 2 ul fixed bin, 5 38 2 rnt_size fixed bin, 5 39 2 min_size_r fixed bin, 5 40 2 niv fixed bin, 5 41 2 aiv fixed bin, 5 42 2 odim fixed bin, 5 43 2 index_ct fixed bin, 5 44 2 sn fixed bin, 5 45 2 h fixed bin, 5 46 2 fh fixed bin, 5 47 2 hh fixed bin, 5 48 2 keycount fixed bin, 5 49 2 save_h fixed bin, 5 50 2 save_block_desc fixed bin, 5 51 2 save_block_min fixed bin, 5 52 2 save_block_max fixed bin, 5 53 2 save_record_min fixed bin, 5 54 2 save_record_max fixed bin, 5 55 2 save_line fixed bin, 5 56 2 save_line_for66 fixed bin, 5 57 2 save_occno fixed bin, 5 58 2 dnl fixed bin , 5 59 2 nt_size fixed bin, 5 60 2 cm_size fixed bin, 5 61 2 rdf_size fixed bin , 5 62 2 counter1 fixed bin , 5 63 2 counter2 fixed bin , 5 64 2 file_number fixed bin , 5 65 2 cd_index fixed bin, 5 66 2 cdno fixed bin, 5 67 2 save_cdo fixed bin, 5 68 2 rnm_obj12 fixed bin, 5 69 2 ixix fixed bin, 5 70 2 no_of_88s fixed bin, /*consecutive type11 tokens beginning at save_wkey*/ 5 71 2 ix_ino (50) fixed bin, 5 72 2 asc_des fixed bin, 5 73 2 next_level fixed bin, 5 74 2 save_level fixed bin, 5 75 2 rdf_level fixed bin, 5 76 2 save_column fixed bin, 5 77 2 cd_size(12) fixed bin, 5 78 2 nsa_name_index (256) fixed bin, 5 79 2 nsa_name_length (256) fixed bin, 5 80 2 name_string char(300), 5 81 2 transltble(256) char(1), 5 82 2 one_char_of_zero_bits char(1), 5 83 2 cd_name(12) char(32), 5 84 2 save_dname char(30), 5 85 5 86 2 ch_str char(128) varying, 5 87 2 rdf_tbl (49) char(30) varying, 5 88 2 stopper char(1), 5 89 2 cm_key char(5), 5 90 2 rnt_key char(5), 5 91 2 mod_key char(5), 5 92 2 w_key char(5), 5 93 2 rcm_key char(5), 5 94 2 save_fd char(5), 5 95 2 save_wkey char(5), 5 96 2 save_77 char(5), 5 97 2 save_01 char(5), 5 98 2 save_11 char(5), 5 99 2 rdf_01_sav char(5) , 5 100 2 save_01_for66 char(5), 5 101 2 prior_odo_rec char(5), 5 102 2 prior_obj_rec char(5), 5 103 2 prior_report_rec char(5), 5 104 2 prior_qual_rec char(5), 5 105 2 prior_occ_key char(5), 5 106 2 prior_linage_name_rec char(5), 5 107 2 prior_skey_rec char(5), 5 108 2 prior_rename_rec char(5), 5 109 2 prior_fkey_rec char(5), 5 110 2 ix_key (50) char(5), 5 111 2 fd_clauses bit(36), /*must be byte aligned*/ 5 112 2 cd_clauses bit(12), 5 113 2 mask1x bit(32), /*ba*/ 5 114 2 mask2x bit(32), /*ba*/ 5 115 2 mask3x bit(32), /*ba*/ 5 116 2 inftble (32) bit(8), /*ba*/ 5 117 2 prectble (32) bit(32), /*ba*/ 5 118 2 E_tbl bit(64), /*ba*/ 5 119 2 vector_part bit(128), /*ba*/ 5 120 2 nsa_lbl_rec (256) bit(1), /*ba*/ 5 121 2 nsa_cancelled (256) bit(1), 5 122 2 ll01 bit(1), 5 123 2 ll77 bit(1), 5 124 2 cd_initial bit(1), 5 125 2 min_eof bit(1), 5 126 2 csline bit(40), /*ba*/ 5 127 2 section_ind bit(8), /*ba*/ 5 128 2 sync_rdf bit(1), 5 129 2 sign_type_temp bit(3), 5 130 2 save_switch_88 bit(1), 5 131 2 pre_end_sw bit(1), 5 132 2 comp_end_sw bit(1), 5 133 2 qual_sw bit(1), 5 134 2 file_key_area(128) fixed bin(35), 5 135 2 prev_qual_key char(5), 5 136 2 common_key char(5), 5 137 2 com_status bit(32), 5 138 2 file_key_size fixed bin, 5 139 2 key_qual_size fixed bin, 5 140 2 label_field_num fixed bin, 5 141 2 tf fixed bin, 5 142 2 all_ind fixed bin, 5 143 2 file_ptr ptr, 5 144 2 work_ptr ptr, 5 145 2 qual_ptr ptr, 5 146 2 save_lev_line fixed bin, 5 147 2 save_lev_col fixed bin; 5 148 /* END INCLUDE FILE ... cobol_shared_var.incl.pl1 */ 5 149 895 6 1 6 2 /* BEGIN INCLUDE FILE ... cobol_non_static.incl.pl1 */ 6 3 6 4 dcl i fixed bin; 6 5 dcl j fixed bin; 6 6 dcl k fixed bin; 6 7 dcl l fixed bin; 6 8 dcl message_area char(56); /*for building type5 tokens as diagnostics*/ 6 9 dcl message_ptr ptr; 6 10 dcl 1 record based (min_ptr), 6 11 /*header*/ 6 12 2 size fixed bin, 6 13 2 line fixed bin, 6 14 2 column fixed, 6 15 2 type fixed, 6 16 2 filler1 fixed, 6 17 2 filler2 fixed bin, 6 18 2 info, 6 19 3 para bit(1), 6 20 3 rep bit(1), 6 21 3 filler3 bit(6), 6 22 2 body char(0 refer(record.size)); 6 23 dcl 1 rw based (min_ptr), 6 24 /* header */ 6 25 2 size fixed bin, 6 26 2 line fixed bin, 6 27 2 column fixed bin, 6 28 2 type fixed, /* =1 */ 6 29 /* body */ 6 30 2 key fixed bin, 6 31 2 class, 6 32 3 filler4 bit(2), 6 33 3 fig_con bit(1), 6 34 3 terminator bit(1), 6 35 3 end_dec bit(1), 6 36 3 filler5 bit(3), 6 37 3 section_header bit(1), 6 38 3 fs_ind bit(1), 6 39 3 fd_clause bit(1), 6 40 3 dd_clause bit(1), 6 41 3 cd_input bit(1), 6 42 3 cd_output bit(1), 6 43 3 cset_name bit(1), 6 44 3 filler6 bit(11), 6 45 2 jump_index fixed; 6 46 dcl 1 numeric_lit based(min_ptr), 6 47 /* header */ 6 48 2 size fixed bin, 6 49 2 line fixed bin, 6 50 2 column fixed bin, 6 51 2 type fixed, /* =2 */ 6 52 /* body */ 6 53 2 info, 6 54 3 integer bit(1), 6 55 3 floating bit(1), 6 56 3 filler bit(6), 6 57 2 sign char(1), 6 58 2 exp_sign char(1), 6 59 2 exp_places fixed, 6 60 2 ltdp fixed, 6 61 2 rtdp fixed, 6 62 2 length fixed bin, 6 63 2 literal char(nl); 6 64 dcl 1 alphanum_lit based(min_ptr), 6 65 /* header */ 6 66 2 size fixed bin, 6 67 2 line fixed bin, 6 68 2 column fixed, 6 69 2 type fixed, /* =3 */ 6 70 /*body */ 6 71 2 info, 6 72 3 bit_string bit(1), 6 73 3 filler8 bit(7), 6 74 2 length fixed bin, 6 75 2 string char(al); 6 76 dcl 1 picture based(min_ptr), 6 77 /* header */ 6 78 2 size fixed bin, 6 79 2 line fixed bin, 6 80 2 column fixed, 6 81 2 type fixed, /* =4 */ 6 82 /* body */ 6 83 2 length fixed, 6 84 2 string char(0 refer(picture.length)); 6 85 dcl 1 message based(message_ptr), 6 86 /* header */ 6 87 2 size fixed bin, 6 88 2 line fixed bin, 6 89 2 column fixed, 6 90 2 type fixed, /* =5 */ 6 91 /* body */ 6 92 2 run3 fixed, 6 93 2 number fixed bin, 6 94 2 info, 6 95 3 para bit(1), 6 96 3 rep bit(1), 6 97 3 fillerx bit(34), 6 98 2 length fixed bin, 6 99 2 image char(0 refer(message.length)); 6 100 6 101 dcl 1 user_word based (min_ptr), 6 102 /* header */ 6 103 2 size fixed bin, 6 104 2 line fixed bin, 6 105 2 column fixed bin, 6 106 2 type fixed, /* =8 */ 6 107 /* body */ 6 108 2 info bit(8), 6 109 2 word_size fixed bin, 6 110 2 word char(0 refer(user_word.word_size)); 6 111 dcl fdn char(1000) based(dn_ptr); 6 112 dcl pdn_occ_ptr ptr; 6 113 dcl 1 numinit based (ptr1), 6 114 2 initype, 6 115 3 numeric bit(1), 6 116 3 non_numeric bit(1), 6 117 3 fig_con bit(1), 6 118 3 all_lit bit(1), 6 119 3 single bit(1), 6 120 3 thru1 bit(1), 6 121 3 thru2 bit(1), 6 122 3 filler12 bit(1), 6 123 2 info, 6 124 3 integer bit(1), 6 125 3 floating bit(1), 6 126 3 filler bit(6), 6 127 2 sign char(1), 6 128 2 expsign char(1), 6 129 2 explaces fixed, 6 130 2 ltdp fixed, 6 131 2 rtdp fixed, 6 132 2 length fixed, 6 133 2 literal char(0 refer(numinit.length)); 6 134 dcl 1 alphainit based(ptr1), 6 135 2 initype, 6 136 3 numeric bit(1), 6 137 3 non_numeric bit(1), 6 138 3 fig_con bit(1), 6 139 3 all_lit bit(1), 6 140 3 single bit(1), 6 141 3 thru1 bit(1), 6 142 3 thru2 bit(1), 6 143 3 filler14 bit(1), 6 144 2 info, 6 145 3 bit_string bit(1), 6 146 3 fig_con_index bit(7), 6 147 2 length fixed bin, 6 148 2 string char(0 refer(alphainit.length)); 6 149 dcl 1 editor based (ptr1), 6 150 2 fixed_insert fixed, 6 151 2 float_insert fixed, 6 152 2 start_supress fixed, 6 153 2 max_supress fixed, 6 154 2 length fixed bin, 6 155 2 ecm char(0 refer(editor.length)); 6 156 dcl 1 debug based (ptr1), 6 157 2 info bit(8), 6 158 2 prioity char (2), 6 159 2 proc_num fixed bin; 6 160 dcl 1 indexname based (w2_ptr), 6 161 2 size fixed bin, 6 162 2 line fixed bin, 6 163 2 column fixed bin, 6 164 2 type fixed, /* type = 10 */ 6 165 2 string_ptr ptr, 6 166 2 prev_rec ptr, 6 167 2 info bit(8), 6 168 2 def_line fixed bin, 6 169 2 level fixed bin, 6 170 2 seg_num fixed bin, 6 171 2 offset fixed bin(24), 6 172 2 index_no fixed bin, 6 173 2 min fixed bin, 6 174 2 max fixed bin, 6 175 2 struc_length fixed bin, 6 176 2 csdwx fixed bin, 6 177 2 cswd fixed bin(24), 6 178 2 name_size fixed, 6 179 2 name char(31); 6 180 dcl 1 conditioname based(w2_ptr), 6 181 2 size fixed bin, 6 182 2 line fixed bin, 6 183 2 column fixed bin, 6 184 2 type fixed, /* type = 11 */ 6 185 2 string_ptr ptr, 6 186 2 prev_rec ptr, 6 187 2 info bit(8), 6 188 2 def_line fixed bin, 6 189 2 level fixed bin, 6 190 2 numlits fixed bin, 6 191 2 name_size fixed bin, 6 192 2 name char(31); 6 193 dcl 1 source based(min_ptr), 6 194 2 size fixed bin, 6 195 2 line fixed bin, 6 196 2 column fixed, 6 197 2 type fixed, /* =6 */ 6 198 /* body */ 6 199 2 info fixed, 6 200 2 length fixed, 6 201 2 image char(sn); 6 202 /* fs_ind bit (1,1) */ 6 203 /* wss_ind bit (2,1) */ 6 204 /* cns_ind bit(3,1) */ 6 205 /* ls_ind bit(4,1) */ 6 206 /* cms_ind bit(5,1) */ 6 207 /* rws_ind bit (6,1) */ 6 208 /* pd_ind bit (7,1) */ 6 209 /* end_ind bit (8,1) */ 6 210 dcl ffh fixed bin; 6 211 /* file section data */ 6 212 dcl 1 fd_ind based(fd_clauses_ptr), 6 213 2 recording_mode bit(1), 6 214 2 block_contain bit(1), 6 215 2 record_contain bit(1), 6 216 2 label_record bit(1), 6 217 2 data_record bit(1), 6 218 2 report_is bit(1), 6 219 2 linage_is bit(1), 6 220 2 value_of bit(1), 6 221 2 linage_type, 6 222 3 body bit(1), 6 223 3 footing bit(1), 6 224 3 top bit(1), 6 225 3 bottom bit(1), 6 226 2 label_type, 6 227 3 omitted bit(1), 6 228 3 standard bit(1), 6 229 3 user_spec bit(1) ; 6 230 /* communication section data */ 6 231 dcl fixbin7_1 fixed; 6 232 dcl fixbin15 fixed bin; 6 233 dcl fixbin31 fixed bin(24); 6 234 dcl bit3 bit(3); 6 235 dcl bit8 bit(8); 6 236 dcl bit12 bit(12); 6 237 dcl char1 char(1); 6 238 dcl char4 char(4); 6 239 dcl char12 char(12); 6 240 dcl vectora(128) bit(1) based(ptr5); 6 241 dcl 1 vectord based(ptr5), 6 242 2 descr bit(72), 6 243 2 minivector bit(18), 6 244 2 filler bit(38); 6 245 dcl 1 vector_map based(ptr5), 6 246 2 file_section bit(1), /*1*/ 6 247 2 working_storage bit(1), /*2*/ 6 248 2 constant_section bit(1), /*3*/ 6 249 2 linkage_section bit(1), /*4*/ 6 250 2 communication_section bit(1), /*5*/ 6 251 2 report_section bit(1), /*6*/ 6 252 2 level_77 bit(1), /*7*/ 6 253 2 level_01 bit(1), /*8*/ 6 254 2 non_elementary bit(1), /*9*/ 6 255 2 elementary bit(1), /*10*/ 6 256 2 filler_item bit(1), /*11*/ 6 257 2 s_of_rdf bit(1), /*12*/ 6 258 2 o_of_rdf bit(1), /*13*/ 6 259 2 bin_18 bit(1), /*14*/ 6 260 2 bin_36 bit(1), /*15*/ 6 261 2 pic_has_l bit(1), /*16*/ 6 262 2 pic_is_do bit(1), /*17*/ 6 263 2 numeric bit(1), /*18*/ 6 264 2 numeric_edited bit(1), /*19*/ 6 265 2 alphanum bit(1), /*20*/ 6 266 2 alphanum_edited bit(1), /*21*/ 6 267 2 alphabetic bit(1), /*22*/ 6 268 2 alphabetic_edited bit(1), /*23*/ 6 269 2 pic_has_p bit(1), /*24*/ 6 270 2 pic_has_ast bit(1), /*25*/ 6 271 2 item_signed bit(1), /*26*/ 6 272 2 sign_separate bit(1), /*27*/ 6 273 2 display bit(1), /*28*/ 6 274 2 comp bit(1), /*29*/ 6 275 2 ascii_packed_dec_h bit(1), /*30*/ 6 276 2 ascii_packed_dec_b bit(1), /*31*/ 6 277 2 ebcdic_packed_dec bit(1), /*32*/ 6 278 2 bin_16 bit(1), /*33*/ 6 279 2 bin_32 bit(1), /*34*/ 6 280 2 usage_index bit(1), /*35*/ 6 281 2 just_right bit(1), /*36*/ 6 282 2 just_left bit(1), /*37*/ 6 283 2 sync_right bit(1), /*38*/ 6 284 2 temporary bit(1), /*39*/ 6 285 2 bwz bit(1), /*40*/ 6 286 2 variable_length bit(1), /*41*/ 6 287 2 subscripted bit(1), /*42*/ 6 288 2 occurs_do bit(1), /*43*/ 6 289 2 key_a bit(1), /*44*/ 6 290 2 key_d bit(1), /*45*/ 6 291 2 indexed_by bit(1), /*46*/ 6 292 2 value_numeric bit(1), /*47*/ 6 293 2 value_non_numeric bit(1), /*48*/ 6 294 2 value_signed bit(1), /*49*/ 6 295 2 sign_type bit(3), /*50*/ 6 296 2 pic_integer bit(1), /*53*/ 6 297 2 ast_when_zero bit(1), /*54*/ 6 298 2 label_record bit(1), /*55*/ 6 299 2 label bit(1), /*56*/ 6 300 2 sign_clause_occurred bit(1), /*57*/ 6 301 2 subject_of_keyis bit(1), /*58*/ 6 302 2 exp_redefining bit(1), /*59*/ 6 303 2 sync_in_rec bit(1), /*60*/ 6 304 2 filler61 bit(4), /*61*/ 6 305 2 sum_counter bit(1), /*65*/ 6 306 2 occurs_clause bit(1), /*66*/ 6 307 2 linage_counter bit(1), /*67*/ 6 308 2 rnm_01 bit(1), /*68*/ 6 309 2 aligned bit(1), /*69*/ 6 310 2 not_user_writable bit(1), /*70*/ 6 311 2 reserved bit(2), /*71*/ 6 312 2 pic_unsigned bit(1), /*73*/ 6 313 2 picture_clause bit(1), /*74*/ 6 314 2 sign_clause bit(1), /*75*/ 6 315 2 code_set_class1 bit(1), /*76*/ 6 316 2 value_clause bit(1), /*77*/ 6 317 2 usage_clause bit(1), /*78*/ 6 318 2 no_picture bit(1), /*79*/ 6 319 2 elem_no_value bit(1), /*80*/ 6 320 2 fig_zero bit(1), /*81*/ 6 321 2 inherit_value bit(1), /*82*/ 6 322 2 code_set bit(1), /*83*/ 6 323 2 assoc_with_signed_num_display bit(1), /*84*/ 6 324 2 pic_has_s bit(1), /*85*/ 6 325 2 filler5 bit(5); /*86*/ 6 326 /*inheritable properties masks for description bits*/ 6 327 dcl mask_descr bit(72) internal static init( 6 328 "111111000001011000000000001111111110000001000100011100000000000000000100"b); 6 329 /*inheritable properties mask for vector description bits 73-90(stored in htab entry)*/ 6 330 dcl mask_minivector bit(18) internal static init("100100000110000000"b); 6 331 /*upward inheritable properties mask for vector description bits 73-90*/ 6 332 dcl mask_minivector_reverse bit(18) internal static init("000000000001000000"b); 6 333 dcl any_item(1000) char(1) based; 6 334 dcl anystring char(1000) based; 6 335 dcl vectemp bit(128); 6 336 dcl ptr6 ptr; 6 337 dcl 1 vectempd based(ptr6), 6 338 2 descr bit(72), 6 339 2 minivector bit(18), 6 340 2 filler bit(38); 6 341 /* file section data */ 6 342 /***** picture processing data *****/ 6 343 dcl cobol_c_list entry(ptr) ext; 6 344 dcl cobol_ctbin entry(ptr,ptr,ptr,fixed bin) ext; 6 345 dcl bit8_1 bit(8); 6 346 dcl cobol_pic_val_comp entry(ptr,ptr) ext returns(fixed bin); 6 347 dcl cobol_compare_values entry(ptr,ptr,fixed bin(24),ptr) ext returns(fixed bin); 6 348 dcl character_tbl(7) char(1) internal static; 6 349 dcl ptr7 ptr; 6 350 dcl ptr8 ptr; 6 351 dcl ptr9 ptr; 6 352 dcl bit72 bit(72) based; 6 353 dcl ptr10 ptr; 6 354 dcl cobol_swf_get entry(ptr,bit(32),ptr,fixed bin) ext; 6 355 dcl cobol_vdwf_dget entry(ptr,bit(32),ptr,fixed bin,char(5)) ext; 6 356 dcl cobol_vdwf_dput entry(ptr,bit(32),ptr,fixed bin,char(5)) ext; 6 357 dcl cobol_vdwf_sput entry(ptr,bit(32),ptr,fixed bin,char(5)) ext; 6 358 dcl cobol_vdwf_sget entry(ptr,bit(32),ptr,fixed bin,char(5)) ext; 6 359 dcl htbl_minivector_bs bit(18) based(ptr7); 6 360 6 361 /* END INCLUDE FILE ... cobol_non_static.incl.pl1 */ 6 362 896 7 1 7 2 /* BEGIN INCLUDE FILE ... cobol_type9.incl.pl1 */ 7 3 /* Last modified on 11/19/76 by ORN */ 7 4 7 5 /* 7 6*A type 9 data name token is entered into the name table by the data 7 7*division syntax phase for each data name described in the data division. 7 8*The replacement phase subsequently replaces type 8 user word references 7 9*to data names in the procedure division minpral file with the corresponding 7 10*type 9 tokens from the name table. 7 11**/ 7 12 7 13 /* dcl dn_ptr ptr; */ 7 14 7 15 /* BEGIN DECLARATION OF TYPE9 (DATA NAME) TOKEN */ 7 16 dcl 1 data_name based (dn_ptr), 8 1 8 2 /* begin include file ... cobol_TYPE9.incl.pl1 */ 8 3 /* Last modified on 06/19/77 by ORN */ 8 4 /* Last modified on 12/28/76 by FCH */ 8 5 8 6 /* header */ 8 7 2 size fixed bin, 8 8 2 line fixed bin, 8 9 2 column fixed bin, 8 10 2 type fixed bin, 8 11 /* body */ 8 12 2 string_ptr ptr, 8 13 2 prev_rec ptr, 8 14 2 searched bit (1), 8 15 2 duplicate bit (1), 8 16 2 saved bit (1), 8 17 2 debug_ind bit (1), 8 18 2 filler2 bit (3), 8 19 2 used_as_sub bit (1), 8 20 2 def_line fixed bin, 8 21 2 level fixed bin, 8 22 2 linkage fixed bin, 8 23 2 file_num fixed bin, 8 24 2 size_rtn fixed bin, 8 25 2 item_length fixed bin(24), 8 26 2 places_left fixed bin, 8 27 2 places_right fixed bin, 8 28 /* description */ 8 29 2 file_section bit (1), 8 30 2 working_storage bit (1), 8 31 2 constant_section bit (1), 8 32 2 linkage_section bit (1), 8 33 2 communication_section bit (1), 8 34 2 report_section bit (1), 8 35 2 level_77 bit (1), 8 36 2 level_01 bit (1), 8 37 2 non_elementary bit (1), 8 38 2 elementary bit (1), 8 39 2 filler_item bit (1), 8 40 2 s_of_rdf bit (1), 8 41 2 o_of_rdf bit (1), 8 42 2 bin_18 bit (1), 8 43 2 bin_36 bit (1), 8 44 2 pic_has_l bit (1), 8 45 2 pic_is_do bit (1), 8 46 2 numeric bit (1), 8 47 2 numeric_edited bit (1), 8 48 2 alphanum bit (1), 8 49 2 alphanum_edited bit (1), 8 50 2 alphabetic bit (1), 8 51 2 alphabetic_edited bit (1), 8 52 2 pic_has_p bit (1), 8 53 2 pic_has_ast bit (1), 8 54 2 item_signed bit(1), 8 55 2 sign_separate bit (1), 8 56 2 display bit (1), 8 57 2 comp bit (1), 8 58 2 ascii_packed_dec_h bit (1), /* as of 8/16/76 this field used for comp8. */ 8 59 2 ascii_packed_dec bit (1), 8 60 2 ebcdic_packed_dec bit (1), 8 61 2 bin_16 bit (1), 8 62 2 bin_32 bit (1), 8 63 2 usage_index bit (1), 8 64 2 just_right bit (1), 8 65 2 compare_argument bit (1), 8 66 2 sync bit (1), 8 67 2 temporary bit (1), 8 68 2 bwz bit (1), 8 69 2 variable_length bit (1), 8 70 2 subscripted bit (1), 8 71 2 occurs_do bit (1), 8 72 2 key_a bit (1), 8 73 2 key_d bit (1), 8 74 2 indexed_by bit (1), 8 75 2 value_numeric bit (1), 8 76 2 value_non_numeric bit (1), 8 77 2 value_signed bit (1), 8 78 2 sign_type bit (3), 8 79 2 pic_integer bit (1), 8 80 2 ast_when_zero bit (1), 8 81 2 label_record bit (1), 8 82 2 sign_clause_occurred bit (1), 8 83 2 okey_dn bit (1), 8 84 2 subject_of_keyis bit (1), 8 85 2 exp_redefining bit (1), 8 86 2 sync_in_rec bit (1), 8 87 2 rounded bit (1), 8 88 2 ad_bit bit (1), 8 89 2 debug_all bit (1), 8 90 2 overlap bit (1), 8 91 2 sum_counter bit (1), 8 92 2 exp_occurs bit (1), 8 93 2 linage_counter bit (1), 8 94 2 rnm_01 bit (1), 8 95 2 aligned bit (1), 8 96 2 not_user_writable bit (1), 8 97 2 database_key bit (1), 8 98 2 database_data_item bit (1), 8 99 2 seg_num fixed bin, 8 100 2 offset fixed bin(24), 8 101 2 initial_ptr fixed bin, 8 102 2 edit_ptr fixed bin, 8 103 2 occurs_ptr fixed bin, 8 104 2 do_rec char(5), 8 105 2 bitt bit (1), 8 106 2 byte bit (1), 8 107 2 half_word bit (1), 8 108 2 word bit (1), 8 109 2 double_word bit (1), 8 110 2 half_byte bit (1), 8 111 2 filler5 bit (1), 8 112 2 bit_offset bit (4), 8 113 2 son_cnt bit (16), 8 114 2 max_red_size fixed bin(24), 8 115 2 name_size fixed bin, 8 116 2 name char(0 refer(data_name.name_size)); 8 117 8 118 8 119 8 120 /* end include file ... cobol_TYPE9.incl.pl1 */ 8 121 7 17 7 18 /* END DECLARATION OF TYPE9 (DATA NAME) TOKEN */ 7 19 7 20 /* END INCLUDE FILE ... cobol_type9.incl.pl1 */ 7 21 897 9 1 9 2 /* BEGIN INCLUDE FILE ... cobol_occurs.incl.pl1 */ 9 3 /* Last Modified on 01/19/77 by ORN */ 9 4 9 5 dcl 1 occurs based (ptr1), 10 1 10 2 /* begin include file ... cobol_OCCURS.incl.pl1 */ 10 3 /* Last modified on 12/28/76 by FCH */ 10 4 10 5 2 keyed fixed bin, 10 6 2 key_number fixed bin, 10 7 2 dimensions fixed bin, 10 8 2 level (3), 10 9 3 indexedno fixed bin, 10 10 3 min fixed bin, 10 11 3 max fixed bin, 10 12 3 struclength fixed bin, 10 13 3 cswdx fixed bin, 10 14 3 cswd fixed bin(24); 10 15 10 16 /* end include file ... cobol_OCCURS.incl.pl1 */ 10 17 9 6 9 7 9 8 /* END INCLUDE FILE ... cobol_occurs.incl.pl1 */ 9 9 898 11 1 11 2 /* BEGIN INCLUDE FILE ... cobol_obj_rec.incl.pl1 */ 11 3 11 4 dcl 1 obj_rec based(com2_ptr), 11 5 2 qual char(5), 11 6 2 line fixed bin, 11 7 2 column fixed bin, 11 8 2 repl fixed bin, 11 9 2 size fixed bin, 11 10 2 name char(31); 11 11 11 12 /* END INCLUDE FILE ... cobol_obj_rec.incl.pl1 */ 11 13 899 12 1 12 2 /* BEGIN INCLUDE FILE ... cobol_odo_rec.incl.pl1 */ 12 3 dcl 1 odo_rec based(com2_ptr), 12 4 2 next char(5), 12 5 2 descr char(5), 12 6 2 seg_no fixed bin, 12 7 2 offset_l fixed bin(24), 12 8 2 offset_r fixed bin(24), 12 9 2 info bit(8); 12 10 /* END INCLUDE FILE ... cobol_odo_rec.incl.pl1 */ 12 11 900 13 1 13 2 /* BEGIN INCLUDE FILE ... cobol_occ_key_rec.incl.pl1 */ 13 3 13 4 dcl 1 occ_key based(com2_ptr), 13 5 2 next char(5), 13 6 2 first_key char(5), 13 7 2 rec_no char(5), 13 8 2 ntble fixed bin, 13 9 2 lineno fixed bin, 13 10 2 info bit(8); 13 11 13 12 /* END INCLUDE FILE ... cobol_occ_key_rec.incl.pl1 */ 13 13 901 14 1 14 2 /* BEGIN INCLUDE FILE ... cobol_skey_rec.incl.pl1 */ 14 3 dcl 1 skey_rec based(skey_ptr), 14 4 2 next char(5), 14 5 2 qual char(5), 14 6 2 keyno fixed bin, 14 7 2 asc_des fixed bin, 14 8 2 ref_line fixed bin, 14 9 2 ref_column fixed bin, 14 10 2 info bit(8), 14 11 2 size fixed bin, 14 12 2 name char(31); 14 13 /* END INCLUDE FILE ... cobol_skey_rec.incl.pl1 */ 14 14 902 15 1 15 2 /* BEGIN INCLUDE FILE ... cobol_fixed_common.incl.pl1 */ 15 3 /* Modified on 10/27/82 by FCH, [5.1-1], cobol_cln added to save last line num, BUG543(phx13643) */ 15 4 /* Modified on 07/31/80 by FCH, [4.3-1], use_reporting field added for Report Writer */ 15 5 /* Modified on 03/30/79 by FCH, [4.1-1], -card option added */ 15 6 /* Modified on 03/30/79 by FCH, [4.0-2], -svNM option added */ 15 7 /* Modified on 03/02/79 by FCH, [4.0-1], -levNM option added */ 15 8 /* Modified by RAL on 10/13/78, [4.0-0], Added option exp from fil2. */ 15 9 /* Modified by BC on 06/20/77, descriptor added. */ 15 10 /* Modified by BC on 06/02/77, init_cd_seg, init_cd_offset added. */ 15 11 /* Modified by BC on 1/21/77, options.profile added. */ 15 12 /* Modified by FCH on 7/6/76, sysin_fno & sysout_fno deleted, accept_device & display_device added */ 15 13 /* Modified by FCH on 5/20/77, comp_level added */ 15 14 15 15 15 16 /* THE SIZE OF THIS STRUCTURE IN BYTES, (EXCLUDING VARIABLE 15 17* LENGTH ENTITIES), FOR EACH HARDWARE IMPLEMENTATION IS: 15 18* 15 19* HARDWARE | SIZE (BYTES) 15 20* --------------------------------- 15 21* 645/6180 | 464 15 22* P7 | 396 15 23* --------------------------------- 15 24* */ 15 25 15 26 dcl 1 fixed_common based ( cobol_com_ptr), 15 27 2 prog_name char (30), 15 28 2 compiler_rev_no char (25), 15 29 2 phase_name char (6), 15 30 2 currency char (1), 15 31 2 fatal_no fixed bin, 15 32 2 warn_no fixed bin, 15 33 2 proc_counter fixed bin, 15 34 2 spec_tag_counter fixed bin, 15 35 2 file_count fixed bin, 15 36 2 filedescr_offsets (20) char (5), 15 37 2 perf_alter_info char (5), 15 38 2 another_perform_info char (5), 15 39 2 sort_in_info char (5), 15 40 2 odo_info char (5), 15 41 2 size_seg fixed bin, 15 42 2 size_offset fixed bin(24), 15 43 2 size_perform_info char (5), 15 44 2 rename_info char (5), 15 45 2 report_names char (5), 15 46 2 rw_buf_seg fixed bin, 15 47 2 rw_buf_offset fixed bin(24), 15 48 2 rw_buf_length fixed bin(24), 15 49 2 file_keys char (5), 15 50 2 search_keys char (5), 15 51 2 dd_seg_size fixed bin(24), 15 52 2 pd_seg_size fixed bin(24), 15 53 2 seg_limit fixed bin , 15 54 2 number_of_dd_segs fixed bin, 15 55 2 seg_info char (5), 15 56 2 number_of_ls_pointers fixed bin, 15 57 2 link_sec_seg fixed bin, 15 58 2 link_sec_offset fixed bin(24), 15 59 2 sra_clauses fixed bin, 15 60 2 fix_up_info char (5), 15 61 2 linage_info char (5), 15 62 2 first_dd_item char (5), 15 63 2 sort_out_info char (5), 15 64 2 db_info char (5), 15 65 2 realm_info char (5), 15 66 2 rc_realm_info char (5), 15 67 2 last_file_key char (5), 15 68 2 prog_coll_seq fixed bin, 15 69 2 init_cd_seg fixed bin, 15 70 2 init_cd_offset fixed bin(24), 15 71 2 input_error_exit fixed bin, 15 72 2 output_error_exit fixed bin, 15 73 2 i_o_error_exit fixed bin, 15 74 2 extend_error_exit fixed bin, 15 75 2 dummy15 fixed bin, 15 76 2 options, 15 77 3 cu bit (1), 15 78 3 st bit (1), 15 79 3 wn bit (1), 15 80 3 obs bit (1), 15 81 3 dm bit (1), 15 82 3 xrl bit (1), 15 83 3 xrn bit (1), 15 84 3 src bit (1), 15 85 3 obj bit (1), 15 86 3 exs bit (1), 15 87 3 sck bit (1), 15 88 3 rno bit (1), 15 89 3 u_l bit (1), 15 90 3 cnv bit (1), 15 91 3 cos bit (1), 15 92 3 fmt bit (1), 15 93 3 profile bit(1), 15 94 3 nw bit (1), 15 95 3 exp bit (1), /* [4.0-0] */ 15 96 3 card bit (1), /*[4.1-1]*/ 15 97 3 fil2 bit (5), 15 98 3 m_map bit (1), 15 99 3 m_bf bit (1), 15 100 3 m_fat bit (1), 15 101 3 m_wn bit (1), 15 102 3 m_obs bit(1), 15 103 3 pd bit(1), 15 104 3 oc bit(1), 15 105 2 supervisor bit (1), 15 106 2 dec_comma bit (1), 15 107 2 init_cd bit (1), 15 108 2 corr bit (1), 15 109 2 initl bit (1), 15 110 2 debug bit (1), 15 111 2 report bit (1), 15 112 2 sync_in_prog bit (1), 15 113 2 pd_section bit (1), 15 114 2 list_switch bit (1), 15 115 2 alpha_cond bit (1), 15 116 2 num_cond bit (1), 15 117 2 spec_sysin bit (1), 15 118 2 spec_sysout bit (1), 15 119 2 cpl_files bit (1), 15 120 2 obj_dec_comma bit (1), 15 121 2 default_sign_type bit (3), 15 122 2 use_debug bit(1), 15 123 2 syntax_trace bit(1), 15 124 2 comp_defaults, 15 125 3 comp bit(1), 15 126 3 comp_1 bit(1), 15 127 3 comp_2 bit(1), 15 128 3 comp_3 bit(1), 15 129 3 comp_4 bit(1), 15 130 3 comp_5 bit(1), 15 131 3 comp_6 bit(1), 15 132 3 comp_7 bit(1), 15 133 3 comp_8 bit(1), 15 134 2 disp_defaults, 15 135 3 disp bit(1), 15 136 3 disp_1 bit(1), 15 137 3 disp_2 bit(1), 15 138 3 disp_3 bit(1), 15 139 3 disp_4 bit(1), 15 140 3 disp_5 bit(1), 15 141 3 disp_6 bit(1), 15 142 3 disp_7 bit(1), 15 143 2 descriptor bit(2), 15 144 2 levsv bit(3), /*[4.0-1]*/ 15 145 2 use_reporting bit(1), /*[4.3-1]*/ 15 146 2 cd bit(1), /*[4.4-1]*/ 15 147 2 dummy17 bit(3), 15 148 2 lvl_rstr bit(32), 15 149 2 inst_rstr bit(32), 15 150 2 comp_level char(1), 15 151 2 dummy18 char(30), 15 152 2 object_sign char (1), 15 153 2 last_print_rec char (5), 15 154 2 coll_seq_info char (5), 15 155 2 sys_status_seg fixed bin, 15 156 2 sys_status_offset fixed bin(24), 15 157 2 compiler_id fixed bin, 15 158 2 date_comp_ln fixed bin, 15 159 2 compile_mode bit(36), 15 160 2 default_temp fixed bin, 15 161 2 accept_device fixed bin, 15 162 2 display_device fixed bin, 15 163 2 cobol_cln fixed bin, /*[5.1-1]*/ 15 164 2 alphabet_offset fixed bin; 15 165 15 166 15 167 15 168 /* END INCLUDE FILE ... cobol_fixed_common.incl.pl1 */ 15 169 903 16 1 16 2 /* BEGIN INCLUDE FILE ... cobol_fd_token.incl.pl1 */ 16 3 /* last modified on 2/21/74 */ 16 4 dcl 1 fd_token based(w2_ptr), 17 1 17 2 /* BEGIN INCLUDE FILE ... cobol_FD_TOKEN.incl.pl1 */ 17 3 17 4 2 size fixed bin, 17 5 2 line fixed bin, 17 6 2 column fixed bin, 17 7 2 type fixed bin, /* FD =12 SD =16 */ 17 8 2 string_ptr ptr, 17 9 2 prev_rec ptr, 17 10 2 info bit(8), 17 11 2 def_line fixed bin, 17 12 2 file_no fixed bin, 17 13 2 name_size fixed bin, 17 14 2 name char(31); 17 15 17 16 /* END INCLUDE FILE ... cobol_FD_TOKEN.incl.pl1 */ 17 17 16 5 16 6 /* END INCLUDE FILE ... cobol_fd_token.incl.pl1 */ 16 7 904 18 1 18 2 /* BEGIN INCLUDE FILE ... cobol_file_table.incl.pl1 */ 18 3 /* <<< INCLUDE FILE FOR FILE TABLE IN COMMON >>> */ 18 4 18 5 /* Modified on 09/30/80 by FCH, [4.4-1], density is 6250 is supported */ 18 6 /* Modified on 12/05/78 by RAL, [3.0-3], added dupl_alt from dummy102 */ 18 7 /* Modified on 11/21/78 by RAL, [3.0-2], added space for abs_record_offset from filler */ 18 8 /* Modified on 10/26/78 by RAL, [3.0-1], added space for file_desc_1 table offset from filler */ 18 9 /* <<< LAST MODIFIED ON 06-02-77 by GM >>> */ 18 10 /* <<< LAST MODIFIED ON 05-31-77 by GM >>> */ 18 11 /* <<< LAST MODIFIED ON 06-30-76 by GM >>> */ 18 12 /* <<< LAST MODIFIED ON 06-07-76 by GM >>> */ 18 13 /* <<< LAST MODIFIED ON 11-29-74 by orn >>> */ 18 14 18 15 /* 18 16*A file table is created in variable common for each file selected in the 18 17*environment division. The fields of a given file table provide information 18 18*about the specific file for which the file table is generated. The 18 19*addresses which may be contained in the various "info" fields of the file 18 20*table are addresses in variable common. 18 21**/ 18 22 18 23 /* THE FILE TABLE STRUCTURE */ 18 24 18 25 dcl 1 file_table based (ft_ptr), 18 26 2 next char (5), 18 27 2 ifn char (16), 18 28 2 attach_options_info char(5), /*06/02/77*/ 18 29 2 replacement_info char(5), /*06/02/77*/ 18 30 2 file_id_info char(5), /*05/31/77*/ 18 31 2 retention_info char(5), /*05/31/77*/ 18 32 2 filler0 char (3) , /* [3.0-1] */ 18 33 2 file_desc_1_offset fixed bin (24), /* [3.0-1] */ 18 34 2 abs_record_offset fixed bin (24), /* [3.-02] */ 18 35 2 filler char(5), /* this area is available.*/ 18 36 2 padding_char char (1), 18 37 2 banner_char char (1), 18 38 2 file_status_info char (5), 18 39 2 extra_status_info char (5), 18 40 2 cat_id_info char (5), 18 41 2 r_key_info char (5), 18 42 2 alt_key_info char (5), 18 43 2 rec_do_info char (5), 18 44 2 label_info char (5), 18 45 2 data_info char (5), 18 46 2 report_info char (5), 18 47 2 linage_info char (5), 18 48 2 optional bit (1), /*06/07/76*/ 18 49 2 external bit (1), 18 50 2 file_status bit (1), 18 51 2 extra_status bit (1), 18 52 2 sysin bit (1), 18 53 2 sysout bit (1), 18 54 2 move_mode bit (1), 18 55 2 locate_mode bit (1), 18 56 2 fixed_recs bit (1), 18 57 2 variable_recs bit (1), 18 58 2 spanned_recs bit (1), /*06/07/76*/ 18 59 2 interchange bit (1), /*06/07/76*/ 18 60 2 relative_key bit (1), 18 61 2 record_key bit (1), 18 62 2 even_parity bit (1), 18 63 2 odd_parity bit (1), 18 64 2 padding bit (1), 18 65 2 banner bit (1), 18 66 2 random bit (1), 18 67 2 no_file_lockout bit (1), 18 68 2 no_write_check bit (1), 18 69 2 no_resident_index bit (1), 18 70 2 same_file bit (1), 18 71 2 sort_file bit (1), 18 72 2 rec_do bit (1), 18 73 2 linage bit (1), 18 74 2 code_set_clause bit (1), 18 75 /* history */ 18 76 2 close bit (1), 18 77 2 delete bit (1), 18 78 2 open_in bit (1), 18 79 2 open_out bit (1), 18 80 2 open_io bit (1), 18 81 2 open_ext bit (1), 18 82 2 read bit (1), 18 83 2 release bit (1), 18 84 2 return_bit bit (1), 18 85 2 rewrite bit (1), 18 86 2 sort bit (1), 18 87 2 start bit (1), 18 88 2 use_error bit (1), 18 89 2 write bit (1), 18 90 2 read_next bit (1), 18 91 2 read_key bit (1), 18 92 2 accept bit (1), 18 93 2 display bit (1), 18 94 2 unequal_recs bit (1), 18 95 2 dummy_sysin bit (1), 18 96 2 dummy_sysout bit (1), 18 97 2 file_no fixed bin, 18 98 2 uca_offset fixed bin(24), 18 99 2 cra_seg fixed bin, 18 100 2 cra_offset fixed bin(24), 18 101 2 max_cra_size fixed bin(24), 18 102 2 catalogued fixed bin, 18 103 2 organization fixed bin, 18 104 2 org_qual fixed bin, 18 105 2 access fixed bin, 18 106 2 buffers fixed bin, 18 107 2 device fixed bin, 18 108 2 record_prefix fixed bin, /*06/07/76*/ 18 109 2 alternate_keys fixed bin, 18 110 2 record_format fixed bin, 18 111 2 label_format fixed bin, 18 112 2 key_location fixed bin, 18 113 2 key_size fixed bin, 18 114 2 temporary fixed bin, 18 115 2 address_format fixed bin, 18 116 2 same_area_clause fixed bin, 18 117 2 same_rec_clause fixed bin, 18 118 2 same_sort_clause fixed bin, 18 119 2 mult_clause_no fixed bin, 18 120 2 mult_position_no fixed bin, 18 121 2 block_desc fixed bin, 18 122 2 block_min fixed bin(24), 18 123 2 block_max fixed bin(24), 18 124 2 rec_min fixed bin(24), 18 125 2 rec_max fixed bin(24), 18 126 2 label_count fixed bin, 18 127 2 ifn_size fixed bin, 18 128 2 data_count fixed bin, 18 129 2 report_count fixed bin, 18 130 2 code_set fixed bin, 18 131 2 error_exit fixed bin, 18 132 2 prefix_size fixed bin, 18 133 2 blocked bit (1), 18 134 2 variable bit (1), 18 135 2 unbannered bit (1), 18 136 2 prefix_clause bit (1), 18 137 2 symbolic bit (1), 18 138 2 address_format_bit bit (1), 18 139 2 bsn bit(1), /*06/07/76*/ 18 140 2 process_area bit(1), /*06/07/76*/ 18 141 2 dupl_alt bit (1), /* [3.0-3] */ 18 142 2 dummy102 bit (23), 18 143 2 name_size fixed bin, 18 144 2 name char(32), 18 145 2 id char(32), 18 146 2 temp bit(1) , 18 147 2 perm bit(1) , 18 148 2 attach bit(1) , 18 149 2 detach bit(1) , 18 150 2 fsb , /* file state block */ 18 151 3 seg fixed bin(24), /* internal addr */ 18 152 3 off fixed bin(24), 18 153 2 tape, 18 154 3 density bit(1) , /* 0-hi 1-lo */ 18 155 3 retain bit(1), /* 0 not retained across attachment, 1 retained */ 18 156 3 force bit(1), /* 0 check retention date, 1 no check */ 18 157 3 protect bit(1) , /* 0-no 1-yes */ 18 158 3 den_6250 bit(1), /* 0-no 1-yes */ /*[4.4-1]*/ 18 159 2 cat_nm char(200), 18 160 2 ao_len fixed bin(24), /* attach options */ 18 161 2 ao_string char(256), 18 162 2 output_mode fixed bin, /* 0 not specified 18 163* 1 generation 18 164* 2 modification 18 165* 3 replacement literal 18 166* 4 replacement dataname */ 18 167 2 om_len fixed bin, /* length of output mode */ 18 168 2 om_string char(17), 18 169 2 tape_device fixed bin, /* 0 not specified 18 170* 1 integer 18 171* 2 dataname */ 18 172 2 tape_device_num fixed bin, 18 173 2 tape_device_key char(5), 18 174 2 add_cat_key char(5); 18 175 18 176 18 177 /* END INCLUDE FILE ... cobol_file_table.incl.pl1 */ 18 178 905 906 end cobol_ddact1; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 05/24/89 0832.8 cobol_ddact1.pl1 >spec>install>MR12.3-1048>cobol_ddact1.pl1 882 1 03/27/82 0439.4 cobol_spec_constants.incl.pl1 >ldd>include>cobol_spec_constants.incl.pl1 883 2 03/27/82 0439.8 cobol_special_dcls.incl.pl1 >ldd>include>cobol_special_dcls.incl.pl1 884 3 03/27/82 0431.3 cobol_ext_.incl.pl1 >ldd>include>cobol_ext_.incl.pl1 886 4 03/27/82 0439.7 cobol_ext_ddsyn.incl.pl1 >ldd>include>cobol_ext_ddsyn.incl.pl1 895 5 03/27/82 0439.8 cobol_shared_var.incl.pl1 >ldd>include>cobol_shared_var.incl.pl1 896 6 03/27/82 0439.3 cobol_non_static.incl.pl1 >ldd>include>cobol_non_static.incl.pl1 897 7 03/27/82 0439.9 cobol_type9.incl.pl1 >ldd>include>cobol_type9.incl.pl1 7-17 8 11/11/82 1712.7 cobol_TYPE9.incl.pl1 >ldd>include>cobol_TYPE9.incl.pl1 898 9 03/27/82 0439.7 cobol_occurs.incl.pl1 >ldd>include>cobol_occurs.incl.pl1 9-6 10 03/27/82 0439.6 cobol_OCCURS.incl.pl1 >ldd>include>cobol_OCCURS.incl.pl1 899 11 03/27/82 0439.7 cobol_obj_rec.incl.pl1 >ldd>include>cobol_obj_rec.incl.pl1 900 12 03/27/82 0439.7 cobol_odo_rec.incl.pl1 >ldd>include>cobol_odo_rec.incl.pl1 901 13 03/27/82 0439.7 cobol_occ_key_rec.incl.pl1 >ldd>include>cobol_occ_key_rec.incl.pl1 902 14 03/27/82 0439.8 cobol_skey_rec.incl.pl1 >ldd>include>cobol_skey_rec.incl.pl1 903 15 11/11/82 1712.8 cobol_fixed_common.incl.pl1 >ldd>include>cobol_fixed_common.incl.pl1 904 16 03/27/82 0439.7 cobol_fd_token.incl.pl1 >ldd>include>cobol_fd_token.incl.pl1 16-5 17 03/27/82 0439.6 cobol_FD_TOKEN.incl.pl1 >ldd>include>cobol_FD_TOKEN.incl.pl1 905 18 11/11/82 1712.7 cobol_file_table.incl.pl1 >ldd>include>cobol_file_table.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. addr builtin function dcl 878 ref 117 205 339 366 392 494 513 515 576 578 629 631 687 746 816 820 831 aiv 154 based fixed bin(17,0) level 2 dcl 894 set ref 354* aiv_constant constant fixed bin(17,0) initial dcl 1-8 ref 361 384 al 143 based fixed bin(17,0) level 2 dcl 894 ref 354 355 alphainit based structure level 1 unaligned dcl 6-134 alphanum_lit based structure level 1 unaligned dcl 6-64 an parameter fixed bin(17,0) dcl 868 ref 36 39 any_item based char(1) array packed unaligned dcl 6-333 set ref 339 366 392 494 513 515 anystring based char(1000) packed unaligned dcl 6-334 set ref 517* 517 asc_des 4 based fixed bin(17,0) level 2 in structure "skey_rec" dcl 14-3 in procedure "cobol_ddact1" set ref 691* asc_des 000010 internal static fixed bin(17,0) dcl 876 in procedure "cobol_ddact1" set ref 674* 680* 691 ascii_packed_dec_b 0(30) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 138 185 399* ascii_packed_dec_h 0(29) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 138 185 280* 854* bin_16 0(32) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 155 260* bin_18 0(13) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 162 285* bin_32 0(33) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 169 267* bin_36 0(14) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 77* 176 bit32_1 000102 automatic bit(32) packed unaligned dcl 887 set ref 109* 110 133* 141 151 bit72 based bit(72) packed unaligned dcl 6-352 set ref 831* bit_string 0(08) based bit(1) level 3 in structure "alphainit" packed packed unaligned dcl 6-134 in procedure "cobol_ddact1" set ref 352* bit_string 4 based bit(1) level 3 in structure "alphanum_lit" packed packed unaligned dcl 6-64 in procedure "cobol_ddact1" ref 352 bnw 141 based fixed bin(17,0) level 2 dcl 894 set ref 805 812* 850* bwz 1(03) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 479* cm_key 2632(09) based char(5) level 2 packed packed unaligned dcl 894 set ref 596* 600 604 611 612 621 625 652* 654 661 702* 714 718 727 728 cm_ptr 42 based pointer level 2 dcl 894 set ref 593* 596* 618* 620 623* 649* 652* 658* 660 663* 699* 702* 711* 713 716* 724* 726 cm_size 177 based fixed bin(17,0) level 2 dcl 894 set ref 594* 596* 618* 623* 650* 652* 658* 663* 700* 702* 711* 716* 724* cn_constant constant fixed bin(17,0) initial dcl 1-13 ref 122 cntbuf based fixed bin(24,0) array dcl 2-9 set ref 819* cntbuf2 based fixed bin(24,0) array dcl 2-10 set ref 119* 579* 632* 747* cobol_c_list 000030 constant entry external dcl 6-343 ref 217 cobol_cmfp defined pointer dcl 3-21 set ref 596* 618* 623* 652* 658* 663* 702* 711* 716* 724* cobol_com_ptr defined pointer dcl 3-25 ref 141 141 235 239 241 243 245 247 249 251 253 446 611 787 842 cobol_ext_$cobol_cmfp 000012 external static pointer dcl 3-20 ref 596 596 618 618 623 623 652 652 658 658 663 663 702 702 711 711 716 716 724 724 cobol_ext_$cobol_com_ptr 000014 external static pointer dcl 3-24 ref 141 141 141 141 235 235 239 239 241 241 243 243 245 245 247 247 249 249 251 251 253 253 446 446 611 611 787 787 842 842 cobol_ext_$cobol_ntfp 000016 external static pointer dcl 3-42 ref 463 463 467 467 502 502 767 767 810 810 839 839 cobol_ext_ddsyn$cobol_htbl 000026 external static structure array level 1 unaligned dcl 4-14 set ref 459 459 461 461 500 500 604* 604 605* 605 cobol_ext_ddsyn$cobol_sv_ptr 000020 external static pointer dcl 4-6 ref 38 38 cobol_ext_ddsyn$cobol_wkbuf1_tbl 000022 external static structure level 1 packed packed unaligned dcl 4-8 ref 816 816 820 820 cobol_ext_ddsyn$cobol_wkbuf2_tbl 000024 external static structure level 1 packed packed unaligned dcl 4-11 ref 117 117 576 576 578 578 629 629 631 631 687 687 746 746 cobol_htbl defined structure array level 1 unaligned dcl 4-15 cobol_ntfp defined pointer dcl 3-43 set ref 463* 467* 502* 767* 810* 839* cobol_sv_ptr defined pointer dcl 4-7 ref 38 cobol_vdwf_dget 000032 constant entry external dcl 6-355 ref 463 502 618 658 711 724 cobol_vdwf_dput 000034 constant entry external dcl 6-356 ref 467 623 663 716 cobol_vdwf_sput 000036 constant entry external dcl 6-357 ref 596 652 702 767 810 839 cobol_wkbuf1_tbl defined structure level 1 packed packed unaligned dcl 4-9 set ref 816 820 cobol_wkbuf2_tbl defined structure level 1 packed packed unaligned dcl 4-12 set ref 117 578 631 746 column 2 based fixed bin(17,0) level 2 in structure "user_word" dcl 6-101 in procedure "cobol_ddact1" ref 693 758 column 3 based fixed bin(17,0) level 2 in structure "obj_rec" dcl 11-4 in procedure "cobol_ddact1" set ref 648* column 2 based fixed bin(17,0) level 2 in structure "numeric_lit" dcl 6-46 in procedure "cobol_ddact1" ref 125 column 2 based fixed bin(17,0) level 2 in structure "message" dcl 6-85 in procedure "cobol_ddact1" set ref 208* column 2 based fixed bin(17,0) level 2 in structure "conditioname" dcl 6-180 in procedure "cobol_ddact1" set ref 125* column 2 based fixed bin(17,0) level 2 in structure "indexname" dcl 6-160 in procedure "cobol_ddact1" set ref 758* column 2 based fixed bin(17,0) level 2 in structure "record" dcl 6-10 in procedure "cobol_ddact1" ref 90 208 648 com2_ptr 40 based pointer level 2 dcl 894 set ref 576* 581 582 583 584 585 586 587 588 589 590 593 620* 621 629* 633 638 639 643 644 647 648 649 650 660* 661 713* 714 comp_1 134(18) based bit(1) level 3 packed packed unaligned dcl 15-26 ref 245 comp_2 134(19) based bit(1) level 3 packed packed unaligned dcl 15-26 ref 249 comp_3 134(20) based bit(1) level 3 packed packed unaligned dcl 15-26 ref 251 comp_4 134(21) based bit(1) level 3 packed packed unaligned dcl 15-26 ref 253 comp_5 134(22) based bit(1) level 3 packed packed unaligned dcl 15-26 ref 235 comp_6 134(23) based bit(1) level 3 packed packed unaligned dcl 15-26 ref 241 comp_7 134(24) based bit(1) level 3 packed packed unaligned dcl 15-26 ref 243 comp_8 134(25) based bit(1) level 3 packed packed unaligned dcl 15-26 ref 247 comp_defaults 134(17) based structure level 2 packed packed unaligned dcl 15-26 comp_end_sw 3057(26) based bit(1) level 2 packed packed unaligned dcl 894 set ref 862* conditioname based structure level 1 unaligned dcl 6-180 counter2 202 based fixed bin(17,0) level 2 dcl 894 set ref 743* 743 744 751 778 data_name based structure level 1 unaligned dcl 7-16 def_line 11 based fixed bin(17,0) level 2 in structure "conditioname" dcl 6-180 in procedure "cobol_ddact1" set ref 124* def_line 11 based fixed bin(17,0) level 2 in structure "indexname" dcl 6-160 in procedure "cobol_ddact1" set ref 757* default_sign_type 134(12) based bit(3) level 2 packed packed unaligned dcl 15-26 ref 141 141 descr 1(09) based char(5) level 2 packed packed unaligned dcl 12-3 set ref 583* 587* 661* dimensions 2 based fixed bin(17,0) level 2 dcl 9-5 set ref 514 526* 542* disp 134(26) based bit(1) level 3 packed packed unaligned dcl 15-26 ref 239 disp_defaults 134(26) based structure level 2 packed packed unaligned dcl 15-26 display 0(27) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 229* divide builtin function dcl 878 ref 187 dn_constant constant fixed bin(17,0) initial dcl 1-6 ref 827 848 dn_ptr 30 based pointer level 2 dcl 894 set ref 147 147 157 158 159 164 165 166 171 172 173 178 179 180 187 187 191 300 300 332 332 333 333 335 338 338 339 339 359 359 360 360 361 361 362 365 365 366 366 381 381 384 384 387 390 390 392 392 448 453 491 491 491 494 494 498 504 505* 507 509* 513 513 522* 527 527 529 532 532 544 544 546 546 548 551 551 600 808 810* 820* 822 823 824 825 826 827 829 829 831 837 839* 844 844 846 847 848 849 dnl 175 based fixed bin(17,0) level 2 dcl 894 set ref 85* do_rec 30 based char(5) level 2 in structure "data_name" packed packed unaligned dcl 7-16 in procedure "cobol_ddact1" set ref 600* do_rec 4(09) defined char(5) array level 2 in structure "cobol_htbl" packed packed unaligned dcl 4-15 in procedure "cobol_ddact1" set ref 604* do_rec_valid 6(01) defined bit(1) array level 2 packed packed unaligned dcl 4-15 set ref 605* ebcdic_packed_dec 0(31) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 185 274* elementary 0(09) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 100* exp_places 5 based fixed bin(17,0) level 2 dcl 6-46 ref 322 exp_redefining 1(22) based bit(1) level 2 in structure "vector_map" packed packed unaligned dcl 6-245 in procedure "cobol_ddact1" ref 544 exp_redefining 6(06) defined bit(1) array level 2 in structure "cobol_htbl" packed packed unaligned dcl 4-15 in procedure "cobol_ddact1" ref 459 exp_sign 4(18) based char(1) level 2 packed packed unaligned dcl 6-46 ref 321 explaces 1 based fixed bin(17,0) level 2 dcl 6-113 set ref 322* expsign 0(27) based char(1) level 2 packed packed unaligned dcl 6-113 set ref 321* fh 161 based fixed bin(17,0) level 2 dcl 894 set ref 499* 500 602* 604 605* fig_con 0(02) based bit(1) level 3 packed packed unaligned dcl 6-134 set ref 375* fig_con_index 0(09) based bit(7) level 3 packed packed unaligned dcl 6-134 set ref 376* 381 fig_zero 2(08) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 394* file_number 203 based fixed bin(17,0) level 2 dcl 894 set ref 47* file_section 21 based bit(1) level 2 packed packed unaligned dcl 7-16 set ref 831 filler 0(10) based bit(6) level 3 in structure "numinit" packed packed unaligned dcl 6-113 in procedure "cobol_ddact1" set ref 320* filler 4(02) based bit(6) level 3 in structure "numeric_lit" packed packed unaligned dcl 6-46 in procedure "cobol_ddact1" ref 320 fillerx 6(02) based bit(34) level 3 packed packed unaligned dcl 6-85 set ref 213* first_dd_item 113(18) based char(5) level 2 packed packed unaligned dcl 15-26 set ref 842* first_key 1(09) based char(5) level 2 packed packed unaligned dcl 13-4 set ref 714* fixbin7_1 000130 automatic fixed bin(17,0) dcl 6-231 set ref 335* 336 336* 336 338 362* 363 363* 363 365 387* 388 388* 388 390 529* 530 530* 530 532 548* 549 549* 549 551 fixed builtin function dcl 878 ref 557 569 fixed_common based structure level 1 unaligned dcl 15-26 floating 0(09) based bit(1) level 3 in structure "numinit" packed packed unaligned dcl 6-113 in procedure "cobol_ddact1" set ref 319* floating 4(01) based bit(1) level 3 in structure "numeric_lit" packed packed unaligned dcl 6-46 in procedure "cobol_ddact1" ref 319 fstatus 000101 automatic bit(32) packed unaligned dcl 873 set ref 463* 467* 502* 596* 618* 623* 652* 658* 663* 702* 711* 716* 724* 767* 810* 839* h 160 based fixed bin(17,0) level 2 dcl 894 set ref 101* 496 499 602 602 in_constant constant fixed bin(17,0) initial dcl 1-12 ref 763 index_ct 156 based fixed bin(17,0) level 2 dcl 894 set ref 536* 553* 738* 738 741 index_no 15 based fixed bin(17,0) level 2 dcl 6-160 set ref 751* indexed_by 1(09) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 733* indexedno 3 based fixed bin(17,0) array level 3 dcl 9-5 set ref 537* 554* 744* indexname based structure level 1 unaligned dcl 6-160 info 6 based structure level 2 in structure "message" packed packed unaligned dcl 6-85 in procedure "cobol_ddact1" info 0(08) based structure level 2 in structure "numinit" packed packed unaligned dcl 6-113 in procedure "cobol_ddact1" info 6 based bit(8) level 2 in structure "odo_rec" packed packed unaligned dcl 12-3 in procedure "cobol_ddact1" set ref 581* info 0(08) based structure level 2 in structure "alphainit" packed packed unaligned dcl 6-134 in procedure "cobol_ddact1" info 7 based bit(8) level 2 in structure "skey_rec" packed packed unaligned dcl 14-3 in procedure "cobol_ddact1" set ref 694* info 4 based structure level 2 in structure "numeric_lit" packed packed unaligned dcl 6-46 in procedure "cobol_ddact1" info 4 based structure level 2 in structure "alphanum_lit" packed packed unaligned dcl 6-64 in procedure "cobol_ddact1" inherit_value 2(09) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 299* initial_ptr 25 based fixed bin(17,0) level 2 dcl 7-16 set ref 300* 332* 359* 360* initype based structure level 2 in structure "alphainit" packed packed unaligned dcl 6-134 in procedure "cobol_ddact1" initype based structure level 2 in structure "numinit" packed packed unaligned dcl 6-113 in procedure "cobol_ddact1" integer 0(08) based bit(1) level 3 packed packed unaligned dcl 6-113 set ref 316* item_length 16 based fixed bin(24,0) level 2 dcl 7-16 set ref 147* 147 157* 164* 171* 178* 187* 187 191* 824* item_signed 0(25) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 80* 135 264* 271* 288* ix_ino 212 based fixed bin(17,0) array level 2 dcl 894 set ref 778* ix_key 2664(18) based char(5) array level 2 packed packed unaligned dcl 894 set ref 779* ixix 210 based fixed bin(17,0) level 2 dcl 894 set ref 769* 769 771 778 779 jump_index 6 based fixed bin(17,0) level 2 dcl 6-23 ref 376 394 just_right 0(35) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 471* key_a 1(07) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 671* key_d 1(08) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 677* keycount 163 based fixed bin(17,0) level 2 dcl 894 set ref 535* 683* 683 690 keyed based fixed bin(17,0) level 2 dcl 9-5 set ref 521* 552* keyno 3 based fixed bin(17,0) level 2 dcl 14-3 set ref 690* length 1 based fixed bin(17,0) level 2 in structure "alphainit" dcl 6-134 in procedure "cobol_ddact1" set ref 353* 355 361 377* length 10 based fixed bin(17,0) level 2 in structure "numeric_lit" dcl 6-46 in procedure "cobol_ddact1" ref 326 length 5 based fixed bin(17,0) level 2 in structure "alphanum_lit" dcl 6-64 in procedure "cobol_ddact1" ref 353 length 4 based fixed bin(17,0) level 2 in structure "numinit" dcl 6-113 in procedure "cobol_ddact1" set ref 326* 328 333 length 7 based fixed bin(17,0) level 2 in structure "message" dcl 6-85 in procedure "cobol_ddact1" set ref 214* level 12 based fixed bin(17,0) level 2 in structure "conditioname" dcl 6-180 in procedure "cobol_ddact1" set ref 121* level 12 based fixed bin(17,0) level 2 in structure "data_name" dcl 7-16 in procedure "cobol_ddact1" set ref 448 453 823* level 12 based fixed bin(17,0) level 2 in structure "indexname" dcl 6-160 in procedure "cobol_ddact1" set ref 750* level 3 based structure array level 2 in structure "occurs" unaligned dcl 9-5 in procedure "cobol_ddact1" level_77 0(06) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 95* line 1 based fixed bin(17,0) level 2 in structure "user_word" dcl 6-101 in procedure "cobol_ddact1" ref 692 756 757 line 2 based fixed bin(17,0) level 2 in structure "obj_rec" dcl 11-4 in procedure "cobol_ddact1" set ref 647* line 1 based fixed bin(17,0) level 2 in structure "numeric_lit" dcl 6-46 in procedure "cobol_ddact1" ref 123 124 line 1 based fixed bin(17,0) level 2 in structure "conditioname" dcl 6-180 in procedure "cobol_ddact1" set ref 123* line 1 based fixed bin(17,0) level 2 in structure "record" dcl 6-10 in procedure "cobol_ddact1" ref 89 207 647 line 1 based fixed bin(17,0) level 2 in structure "indexname" dcl 6-160 in procedure "cobol_ddact1" set ref 756* line 1 based fixed bin(17,0) level 2 in structure "message" dcl 6-85 in procedure "cobol_ddact1" set ref 207* literal 11 based char level 2 in structure "numeric_lit" packed packed unaligned dcl 6-46 in procedure "cobol_ddact1" ref 328 557 569 literal 5 based char level 2 in structure "numinit" packed packed unaligned dcl 6-113 in procedure "cobol_ddact1" set ref 328* ll77 3056(05) based bit(1) level 2 packed packed unaligned dcl 894 set ref 99* ltdp 6 based fixed bin(17,0) level 2 in structure "numeric_lit" dcl 6-46 in procedure "cobol_ddact1" ref 324 ltdp 2 based fixed bin(17,0) level 2 in structure "numinit" dcl 6-113 in procedure "cobol_ddact1" set ref 324* max 17 based fixed bin(17,0) level 2 in structure "indexname" dcl 6-160 in procedure "cobol_ddact1" set ref 753* max 5 based fixed bin(17,0) array level 3 in structure "occurs" dcl 9-5 in procedure "cobol_ddact1" set ref 562* 567 572* 753 message based structure level 1 unaligned dcl 6-85 message_area 000106 automatic char(56) packed unaligned dcl 6-8 set ref 205 message_ptr 000124 automatic pointer dcl 6-9 set ref 205* 206 207 208 209 210 211 212 213 214 215 217* min 4 based fixed bin(17,0) array level 3 in structure "occurs" dcl 9-5 in procedure "cobol_ddact1" set ref 567* 752 min 16 based fixed bin(17,0) level 2 in structure "indexname" dcl 6-160 in procedure "cobol_ddact1" set ref 752* min_ptr based pointer level 2 dcl 894 ref 89 90 123 124 125 207 208 306 316 319 320 321 322 323 324 325 326 328 352 353 355 376 394 557 557 569 569 635 638 639 639 639 647 648 692 693 695 697 697 697 756 757 758 759 761 761 761 mod builtin function dcl 878 ref 335 362 387 529 548 name 11 based char(31) level 2 in structure "skey_rec" packed packed unaligned dcl 14-3 in procedure "cobol_ddact1" set ref 697* name 24 based char(31) level 2 in structure "indexname" packed packed unaligned dcl 6-160 in procedure "cobol_ddact1" set ref 761* name 34 based char level 2 in structure "data_name" packed packed unaligned dcl 7-16 in procedure "cobol_ddact1" set ref 829* 844* name 6 based char(31) level 2 in structure "obj_rec" packed packed unaligned dcl 11-4 in procedure "cobol_ddact1" set ref 639* 644* name_size 33 based fixed bin(17,0) level 2 in structure "data_name" dcl 7-16 in procedure "cobol_ddact1" set ref 826* 829 829 844 844 846* name_size 23 based fixed bin(17,0) level 2 in structure "indexname" dcl 6-160 in procedure "cobol_ddact1" set ref 759* 763 next based char(5) level 2 in structure "skey_rec" packed packed unaligned dcl 14-3 in procedure "cobol_ddact1" set ref 688* 727* next based char(5) level 2 in structure "odo_rec" packed packed unaligned dcl 12-3 in procedure "cobol_ddact1" set ref 582* 621* niv 153 based fixed bin(17,0) level 2 dcl 894 set ref 327* niv_constant constant fixed bin(17,0) initial dcl 1-7 ref 333 381 nl 142 based fixed bin(17,0) level 2 dcl 894 ref 327 328 557 569 no_picture 2(06) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 110* non_display_bits_mask 000064 constant bit(32) initial packed unaligned dcl 889 ref 133 non_numeric 0(01) based bit(1) level 3 packed packed unaligned dcl 6-134 set ref 351* not_user_writable 22(33) based bit(1) level 2 packed packed unaligned dcl 7-16 set ref 847* nt_rec 3 defined char(5) array level 2 packed packed unaligned dcl 4-15 ref 461 500 null_key 000066 constant char(5) initial packed unaligned dcl 875 ref 48 59 68 582 583 587 608 633 655 685 688 689 706 number 5 based fixed bin(17,0) level 2 dcl 6-85 set ref 215* numeric 0(17) based bit(1) level 2 in structure "vector_map" packed packed unaligned dcl 6-245 in procedure "cobol_ddact1" ref 135 numeric based bit(1) level 3 in structure "numinit" packed packed unaligned dcl 6-113 in procedure "cobol_ddact1" set ref 314* numeric_lit based structure level 1 unaligned dcl 6-46 numinit based structure level 1 unaligned dcl 6-113 obj_rec based structure level 1 unaligned dcl 11-4 obj_rec_constant constant fixed bin(17,0) initial dcl 1-21 ref 650 occ_constant constant fixed bin(17,0) initial dcl 1-10 ref 516 527 546 occ_dim_constant constant fixed bin(17,0) initial dcl 1-11 ref 516 527 544 546 occ_key based structure level 1 unaligned dcl 13-4 occurs based structure level 1 unaligned dcl 9-5 occurs_clause 1(29) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 486* occurs_do 1(06) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 667* occurs_ptr 27 based fixed bin(17,0) level 2 dcl 7-16 set ref 491 491* 494 507 513 odim 155 based fixed bin(17,0) level 2 dcl 894 set ref 510* 514* 516 525* 525 526 527 537 540* 540 542 544 546 554 562 567 567 572 744 752 753 odo_info 61(27) based char(5) level 2 packed packed unaligned dcl 15-26 set ref 611* odo_rec based structure level 1 unaligned dcl 12-3 odo_rec_constant constant fixed bin(17,0) initial dcl 1-23 ref 594 offset_ct 57 based fixed bin(24,0) level 2 dcl 894 set ref 98* offset_l 4 based fixed bin(24,0) level 2 dcl 12-3 set ref 585* 589* offset_r 5 based fixed bin(24,0) level 2 dcl 12-3 set ref 586* 590* para 6 based bit(1) level 3 packed packed unaligned dcl 6-85 set ref 211* pdn_occ_ptr 000126 automatic pointer dcl 6-112 set ref 513* 514 517 pic_has_s 2(12) based bit(1) level 2 packed packed unaligned dcl 6-245 ref 138 pic_integer 1(16) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 193* pic_suff_bits_mask 000063 constant bit(32) initial packed unaligned dcl 891 ref 109 picture_clause 2(01) based bit(1) level 2 packed packed unaligned dcl 6-245 ref 107 places_left 17 based fixed bin(17,0) level 2 dcl 7-16 set ref 159* 166* 173* 180* 825* places_right 20 based fixed bin(17,0) level 2 dcl 7-16 set ref 158* 165* 172* 179* pre_end_sw 3057(25) based bit(1) level 2 packed packed unaligned dcl 894 set ref 858* prior_obj_rec 2652(18) based char(5) level 2 packed packed unaligned dcl 894 set ref 654* prior_occ_key 2656(09) based char(5) level 2 packed packed unaligned dcl 894 ref 709 prior_odo_rec 2651(09) based char(5) level 2 packed packed unaligned dcl 894 set ref 608 612* 615 625* 656 prior_qual_rec 2655 based char(5) level 2 packed packed unaligned dcl 894 set ref 655* 685* prior_skey_rec 2660(27) based char(5) level 2 packed packed unaligned dcl 894 set ref 706 718* 721 728* ptr1 16 based pointer level 2 dcl 894 set ref 314 316 319 320 321 322 323 324 325 326 328 333 339* 351 352 353 355 361 366* 375 376 377 381 392* 494* 515* 517 521 526 537 542 552 554 562 567 567 572 744 752 753 ptr4 46 based pointer level 2 dcl 894 set ref 117* 119 578* 579 631* 632 746* 747 816* 819 ptr5 44 based pointer level 2 dcl 894 ref 77 80 95 100 107 110 135 135 138 138 138 138 141 155 162 169 176 185 185 185 191 193 224 229 260 264 267 271 274 280 285 288 291 296 299 303 306 343 394 399 404 409 414 416 421 423 428 430 431 439 455 471 479 486 489 544 667 671 677 733 854 qual based char(5) level 2 in structure "obj_rec" packed packed unaligned dcl 11-4 in procedure "cobol_ddact1" set ref 633* qual 1(09) based char(5) level 2 in structure "skey_rec" packed packed unaligned dcl 14-3 in procedure "cobol_ddact1" set ref 689* rcm_key 2637(09) based char(5) level 2 packed packed unaligned dcl 894 set ref 615* 618* 623* 656* 658* 663* 709* 711* 716* 721* 724* rdf_01_sav 2646(27) based char(5) level 2 packed packed unaligned dcl 894 set ref 48* 59* 68* 459 record based structure level 1 unaligned dcl 6-10 ref_column 6 based fixed bin(17,0) level 2 dcl 14-3 set ref 693* ref_line 5 based fixed bin(17,0) level 2 dcl 14-3 set ref 692* rep 6(01) based bit(1) level 3 packed packed unaligned dcl 6-85 set ref 212* report 134(02) based bit(1) level 2 packed packed unaligned dcl 15-26 set ref 787* rnt_key 2633(18) based char(5) level 2 packed packed unaligned dcl 894 set ref 459* 461* 463* 467* 500* 502* rnt_ptr 12 based pointer level 2 dcl 894 set ref 463* 465 467* 502* 505 rnt_size 151 based fixed bin(17,0) level 2 dcl 894 set ref 463* 467* 502* 765* 767* 808* 810* 837* 839* 849* rtdp 7 based fixed bin(17,0) level 2 in structure "numeric_lit" dcl 6-46 in procedure "cobol_ddact1" ref 316 325 rtdp 3 based fixed bin(17,0) level 2 in structure "numinit" dcl 6-113 in procedure "cobol_ddact1" set ref 325* run3 4 based fixed bin(17,0) level 2 dcl 6-85 set ref 210* rw based structure level 1 unaligned dcl 6-23 save_column 300 based fixed bin(17,0) level 2 dcl 894 set ref 90* save_dname 1670(09) based char(30) level 2 packed packed unaligned dcl 894 set ref 88* save_line 172 based fixed bin(17,0) level 2 dcl 894 set ref 89* save_occno 174 based fixed bin(17,0) level 2 dcl 894 set ref 557* 561* 562 569* 571* 572 save_ptr 20 based pointer level 2 dcl 894 set ref 504* 509 515 522 section_ind 3057(12) based bit(8) level 2 packed packed unaligned dcl 894 set ref 44* 55* 64* 784* 790* 795* seg_no 3 based fixed bin(17,0) level 2 dcl 12-3 set ref 584* 588* shared_var based structure level 1 unaligned dcl 894 sign 0(18) based char(1) level 2 in structure "numinit" packed packed unaligned dcl 6-113 in procedure "cobol_ddact1" set ref 323* sign 4(09) based char(1) level 2 in structure "numeric_lit" packed packed unaligned dcl 6-46 in procedure "cobol_ddact1" ref 306 323 sign_clause 2(02) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 404* sign_clause_occurred 1(20) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 416* 430* sign_separate 0(26) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 138 423* 431* sign_type 1(13) based bit(3) level 2 packed packed unaligned dcl 6-245 set ref 141 409* 414* 421* 428* size based fixed bin(17,0) level 2 in structure "message" dcl 6-85 in procedure "cobol_ddact1" set ref 206* size based fixed bin(17,0) level 2 in structure "indexname" dcl 6-160 in procedure "cobol_ddact1" set ref 763* 765 size 5 based fixed bin(17,0) level 2 in structure "obj_rec" dcl 11-4 in procedure "cobol_ddact1" set ref 638* 643* 650 size based fixed bin(17,0) level 2 in structure "conditioname" dcl 6-180 in procedure "cobol_ddact1" set ref 122* size based fixed bin(17,0) level 2 in structure "data_name" dcl 7-16 in procedure "cobol_ddact1" set ref 300 332 333* 333 335 338* 338 339 359 360 361* 361 362 365* 365 366 381* 381 384* 384 387 390* 390 392 491 498 527* 527 529 532* 532 544* 544 546* 546 548 551* 551 808 827* 837 848* 849 size 10 based fixed bin(17,0) level 2 in structure "skey_rec" dcl 14-3 in procedure "cobol_ddact1" set ref 695* 700 skey_ptr 4 based pointer level 2 dcl 894 set ref 687* 688 689 690 691 692 693 694 695 697 699 700 726* 727 skey_rec based structure level 1 unaligned dcl 14-3 skey_rec_constant constant fixed bin(17,0) initial dcl 1-24 ref 700 string 6 based char level 2 in structure "alphanum_lit" packed packed unaligned dcl 6-64 in procedure "cobol_ddact1" ref 355 string 2 based char level 2 in structure "alphainit" packed packed unaligned dcl 6-134 in procedure "cobol_ddact1" set ref 355* subscripted 1(05) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 489* substr builtin function dcl 878 set ref 44* 46* 55* 58* 64* 67* 109 133 376 517* 517 639* 639 697* 697 761* 761 784* 790* 795* 829* 844* sv_ptr_auto 000104 automatic pointer dcl 893 set ref 38* 44 46 47 48 55 58 59 64 67 68 77 80 85 88 89 89 90 90 95 98 99 100 101 107 109 110 117 119 121 122 123 123 124 124 125 125 126 133 135 135 138 138 138 138 141 147 147 155 157 158 159 162 164 165 166 169 171 172 173 176 178 179 180 185 185 185 187 187 191 191 193 207 208 224 229 260 264 267 271 274 280 285 288 291 296 299 300 300 303 306 306 314 316 316 319 319 320 320 321 321 322 322 323 323 324 324 325 325 326 326 327 327 328 328 328 332 332 333 333 333 335 338 338 339 339 339 343 351 352 352 353 353 354 354 355 355 355 359 359 360 360 361 361 361 362 365 365 366 366 366 375 376 376 377 381 381 381 384 384 387 390 390 392 392 392 394 394 399 404 409 414 416 421 423 428 430 431 439 445 448 453 455 459 459 461 463 463 463 465 467 467 467 471 479 486 489 491 491 491 494 494 494 496 498 498 499 499 500 500 502 502 502 504 504 505 505 507 509 509 510 513 513 514 515 515 515 516 516 517 517 517 521 522 522 525 525 526 526 527 527 527 529 532 532 535 536 537 537 540 540 542 542 544 544 544 544 546 546 546 548 551 551 552 553 554 554 557 557 557 557 561 562 562 562 567 567 567 567 569 569 569 569 571 572 572 572 576 578 579 581 582 583 584 585 586 587 588 589 590 593 593 594 596 596 596 600 600 602 602 602 604 604 605 608 611 612 612 615 615 618 618 618 620 620 621 621 623 623 623 625 625 629 631 632 633 635 638 638 639 639 639 639 643 644 647 647 648 648 649 649 650 650 652 652 652 654 654 655 656 656 658 658 658 660 660 661 661 663 663 663 667 671 677 683 683 685 687 688 689 690 690 691 692 692 693 693 694 695 695 697 697 697 697 699 699 700 700 702 702 702 706 709 709 711 711 711 713 713 714 714 716 716 716 718 718 721 721 724 724 724 726 726 727 727 728 728 733 738 738 741 743 743 744 744 744 746 747 749 750 751 751 752 752 752 753 753 753 756 756 757 757 758 758 759 759 761 761 761 761 763 763 765 765 767 767 767 769 769 771 778 778 778 779 779 779 784 790 795 805 808 808 810 810 810 812 816 819 820 822 823 824 825 826 827 829 829 831 837 837 839 839 839 842 844 844 846 847 848 849 849 850 854 858 862 sync_in_prog 134(03) based bit(1) level 2 packed packed unaligned dcl 15-26 set ref 446* sync_in_rec 22(23) based bit(1) level 2 in structure "data_name" packed packed unaligned dcl 7-16 in procedure "cobol_ddact1" set ref 465* sync_in_rec 1(23) based bit(1) level 2 in structure "vector_map" packed packed unaligned dcl 6-245 in procedure "cobol_ddact1" set ref 455* sync_rdf 3057(20) based bit(1) level 2 packed packed unaligned dcl 894 set ref 445* sync_right 1(01) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 439* temp_bin1 55 based fixed bin(24,0) level 2 dcl 894 set ref 498* 515 516* 517 517 tf 000100 automatic fixed bin(17,0) dcl 869 set ref 215 773* thirty_two_zeros constant bit(32) initial packed unaligned dcl 888 ref 110 141 151 type 3 based fixed bin(17,0) level 2 in structure "conditioname" dcl 6-180 in procedure "cobol_ddact1" set ref 126* type 3 based fixed bin(17,0) level 2 in structure "message" dcl 6-85 in procedure "cobol_ddact1" set ref 209* type 3 based fixed bin(17,0) level 2 in structure "data_name" dcl 7-16 in procedure "cobol_ddact1" set ref 822* type 3 based fixed bin(17,0) level 2 in structure "record" dcl 6-10 in procedure "cobol_ddact1" ref 557 569 635 type 3 based fixed bin(17,0) level 2 in structure "indexname" dcl 6-160 in procedure "cobol_ddact1" set ref 749* unspec builtin function dcl 878 ref 376 usage_clause 2(05) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 224* usage_index 0(34) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 191 291* user_word based structure level 1 unaligned dcl 6-101 value_clause 2(04) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 296* value_non_numeric 1(11) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 343* value_numeric 1(10) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 303* value_signed 1(12) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 306* vector_map based structure level 1 packed packed unaligned dcl 6-245 vector_part 3034(12) based bit(128) level 2 packed packed unaligned dcl 894 set ref 46* 58* 67* 109 133 w2_ptr 32 based pointer level 2 dcl 894 set ref 121 122 123 124 125 126 749 750 751 752 753 756 757 758 759 761 763 763 765 767* w_key 2636 based char(5) level 2 packed packed unaligned dcl 894 set ref 767* 779 810* 839* 842 wkbuf2 defined char(500) level 2 packed packed unaligned dcl 4-12 set ref 576 629 687 word 6 based char level 2 packed packed unaligned dcl 6-101 ref 639 697 761 word_size 5 based fixed bin(17,0) level 2 dcl 6-101 ref 638 639 639 639 695 697 697 697 759 761 761 761 NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. bit12 automatic bit(12) packed unaligned dcl 6-236 bit3 automatic bit(3) packed unaligned dcl 6-234 bit32 automatic bit(32) packed unaligned dcl 871 bit40 automatic bit(40) packed unaligned dcl 872 bit8 automatic bit(8) packed unaligned dcl 6-235 bit8_1 automatic bit(8) packed unaligned dcl 6-345 bit9 automatic bit(9) packed unaligned dcl 870 bits_per_char internal static fixed bin(17,0) initial dcl 2-4 bits_per_word internal static fixed bin(17,0) initial dcl 2-5 cd_constant internal static fixed bin(17,0) initial dcl 1-15 char1 automatic char(1) packed unaligned dcl 6-237 char12 automatic char(12) packed unaligned dcl 6-239 char4 automatic char(4) packed unaligned dcl 6-238 character_tbl internal static char(1) array packed unaligned dcl 6-348 chtbl based fixed bin(24,0) array dcl 2-7 chtbl_item based fixed bin(24,0) array dcl 2-11 cma based fixed bin(24,0) array dcl 2-8 cobol_afp defined pointer dcl 3-11 cobol_analin_fileno defined pointer dcl 3-13 cobol_com_fileno defined pointer dcl 3-23 cobol_compare_values 000000 constant entry external dcl 6-347 cobol_ctbin 000000 constant entry external dcl 6-344 cobol_curr_in defined pointer dcl 3-53 cobol_curr_out defined pointer dcl 3-55 cobol_dfp defined pointer dcl 3-27 cobol_eltp defined pointer dcl 3-19 cobol_ext_$cobol_afp external static pointer dcl 3-10 cobol_ext_$cobol_analin_fileno external static pointer dcl 3-12 cobol_ext_$cobol_com_fileno external static pointer dcl 3-22 cobol_ext_$cobol_curr_in external static pointer dcl 3-52 cobol_ext_$cobol_curr_out external static pointer dcl 3-54 cobol_ext_$cobol_dfp external static pointer dcl 3-26 cobol_ext_$cobol_eltp external static pointer dcl 3-18 cobol_ext_$cobol_fileno1 external static fixed bin(24,0) dcl 3-78 cobol_ext_$cobol_hfp external static pointer dcl 3-28 cobol_ext_$cobol_lpr external static char(5) packed unaligned dcl 3-95 cobol_ext_$cobol_m1fp external static pointer dcl 3-30 cobol_ext_$cobol_m2fp external static pointer dcl 3-32 cobol_ext_$cobol_min1_fileno external static pointer dcl 3-34 cobol_ext_$cobol_min2_fileno_ptr external static pointer dcl 3-36 cobol_ext_$cobol_name_fileno external static pointer dcl 3-38 cobol_ext_$cobol_name_fileno_ptr external static pointer dcl 3-40 cobol_ext_$cobol_options external static char(120) packed unaligned dcl 3-97 cobol_ext_$cobol_options_len external static fixed bin(24,0) dcl 3-80 cobol_ext_$cobol_pdofp external static pointer dcl 3-44 cobol_ext_$cobol_pdout_fileno external static fixed bin(24,0) dcl 3-82 cobol_ext_$cobol_pfp external static pointer dcl 3-46 cobol_ext_$cobol_print_fileno external static fixed bin(24,0) dcl 3-84 cobol_ext_$cobol_rm2fp external static pointer dcl 3-48 cobol_ext_$cobol_rmin2_fileno external static fixed bin(24,0) dcl 3-86 cobol_ext_$cobol_rmin2fp external static pointer dcl 3-50 cobol_ext_$cobol_rwdd external static pointer dcl 3-72 cobol_ext_$cobol_rwpd external static pointer dcl 3-74 cobol_ext_$cobol_sfp external static pointer dcl 3-56 cobol_ext_$cobol_w1p external static pointer dcl 3-58 cobol_ext_$cobol_w2p external static pointer dcl 3-60 cobol_ext_$cobol_w3p external static pointer dcl 3-62 cobol_ext_$cobol_w5p external static pointer dcl 3-64 cobol_ext_$cobol_w6p external static pointer dcl 3-66 cobol_ext_$cobol_w7p external static pointer dcl 3-68 cobol_ext_$cobol_x1_fileno external static fixed bin(24,0) dcl 3-88 cobol_ext_$cobol_x2_fileno external static fixed bin(24,0) dcl 3-90 cobol_ext_$cobol_x3_fileno external static fixed bin(24,0) dcl 3-92 cobol_ext_$cobol_x3fp external static pointer dcl 3-70 cobol_ext_$cobol_xlast8 external static bit(1) packed unaligned dcl 3-100 cobol_ext_$report_exists external static bit(1) packed unaligned dcl 3-102 cobol_ext_$report_first_token external static pointer dcl 3-14 cobol_ext_$report_last_token external static pointer dcl 3-16 cobol_fileno1 defined fixed bin(24,0) dcl 3-79 cobol_hfp defined pointer dcl 3-29 cobol_lpr defined char(5) packed unaligned dcl 3-96 cobol_m1fp defined pointer dcl 3-31 cobol_m2fp defined pointer dcl 3-33 cobol_min1_fileno defined pointer dcl 3-35 cobol_min2_fileno_ptr defined pointer dcl 3-37 cobol_name_fileno defined pointer dcl 3-39 cobol_name_fileno_ptr defined pointer dcl 3-41 cobol_options defined char(120) packed unaligned dcl 3-98 cobol_options_len defined fixed bin(24,0) dcl 3-81 cobol_pdofp defined pointer dcl 3-45 cobol_pdout_fileno defined fixed bin(24,0) dcl 3-83 cobol_pfp defined pointer dcl 3-47 cobol_pic_val_comp 000000 constant entry external dcl 6-346 cobol_print_fileno defined fixed bin(24,0) dcl 3-85 cobol_rm2fp defined pointer dcl 3-49 cobol_rmin2_fileno defined fixed bin(24,0) dcl 3-87 cobol_rmin2fp defined pointer dcl 3-51 cobol_rwdd defined pointer dcl 3-73 cobol_rwpd defined pointer dcl 3-75 cobol_sfp defined pointer dcl 3-57 cobol_swf_get 000000 constant entry external dcl 6-354 cobol_vdwf_sget 000000 constant entry external dcl 6-358 cobol_w1p defined pointer dcl 3-59 cobol_w2p defined pointer dcl 3-61 cobol_w3p defined pointer dcl 3-63 cobol_w5p defined pointer dcl 3-65 cobol_w6p defined pointer dcl 3-67 cobol_w7p defined pointer dcl 3-69 cobol_x1_fileno defined fixed bin(24,0) dcl 3-89 cobol_x2_fileno defined fixed bin(24,0) dcl 3-91 cobol_x3_fileno defined fixed bin(24,0) dcl 3-93 cobol_x3fp defined pointer dcl 3-71 cobol_xlast8 defined bit(1) packed unaligned dcl 3-101 debug based structure level 1 unaligned dcl 6-156 ed_constant internal static fixed bin(17,0) initial dcl 1-9 editor based structure level 1 unaligned dcl 6-149 fd_constant internal static fixed bin(17,0) initial dcl 1-14 fd_ind based structure level 1 packed packed unaligned dcl 6-212 fd_token based structure level 1 unaligned dcl 16-4 fdn based char(1000) packed unaligned dcl 6-111 ffh automatic fixed bin(17,0) dcl 6-210 file_table based structure level 1 unaligned dcl 18-25 fixbin15 automatic fixed bin(17,0) dcl 6-232 fixbin31 automatic fixed bin(24,0) dcl 6-233 fkey_constant internal static fixed bin(17,0) initial dcl 1-25 htbl_minivector_bs based bit(18) packed unaligned dcl 6-359 i automatic fixed bin(17,0) dcl 6-4 j automatic fixed bin(17,0) dcl 6-5 k automatic fixed bin(17,0) dcl 6-6 l automatic fixed bin(17,0) dcl 6-7 linage_name_rec_constant internal static fixed bin(17,0) initial dcl 1-17 linage_rec_constant internal static fixed bin(17,0) initial dcl 1-16 mask_descr internal static bit(72) initial packed unaligned dcl 6-327 mask_minivector internal static bit(18) initial packed unaligned dcl 6-330 mask_minivector_reverse internal static bit(18) initial packed unaligned dcl 6-332 msg_constant internal static fixed bin(17,0) initial dcl 1-4 null_func internal static pointer initial dcl 874 occ_key_constant internal static fixed bin(17,0) initial dcl 1-19 one_word_in_bits internal static bit(36) packed unaligned dcl 2-6 pd_db_constant internal static fixed bin(17,0) initial dcl 1-5 picture based structure level 1 unaligned dcl 6-76 ptr10 automatic pointer dcl 6-353 ptr6 automatic pointer dcl 6-336 ptr7 automatic pointer dcl 6-349 ptr8 automatic pointer dcl 6-350 ptr9 automatic pointer dcl 6-351 qual_rec_constant internal static fixed bin(17,0) initial dcl 1-18 rename_rec_constant internal static fixed bin(17,0) initial dcl 1-22 report_exists defined bit(1) packed unaligned dcl 3-103 report_first_token defined pointer dcl 3-15 report_last_token defined pointer dcl 3-17 report_rec_constant internal static fixed bin(17,0) initial dcl 1-20 source based structure level 1 unaligned dcl 6-193 vectemp automatic bit(128) packed unaligned dcl 6-335 vectempd based structure level 1 packed packed unaligned dcl 6-337 vectora based bit(1) array packed unaligned dcl 6-240 vectord based structure level 1 packed packed unaligned dcl 6-241 NAMES DECLARED BY EXPLICIT CONTEXT. actlbl 000000 constant label array(50:100) dcl 44 ref 39 235 239 241 243 245 247 249 251 253 255 cobol_ddact1 000107 constant entry external dcl 36 comp_end 002531 constant label dcl 862 data_length 002535 constant entry internal dcl 131 ref 104 diag 002735 constant entry internal dcl 202 ref 774 dl_end 002731 constant label dcl 193 ref 160 167 174 181 188 incr_lnth 002617 constant label dcl 147 ref 138 141 na48 001156 constant label dcl 540 no_incr 002621 constant label dcl 151 ref 145 odo_obj 001552 constant label dcl 629 ref 613 pre_end 002525 constant label dcl 858 ref 775 800 retrn 002534 constant label dcl 865 ref 49 51 60 69 71 81 91 102 113 127 227 233 265 272 278 283 289 294 301 341 367 397 402 407 412 417 424 432 448 456 469 474 476 482 538 555 563 573 665 669 675 681 719 729 736 780 788 793 798 814 851 856 860 s_next_key 002140 constant label dcl 721 ref 706 s_odo_next 001467 constant label dcl 615 ref 608 store_av 003050 constant entry internal dcl 349 ref 346 store_fcv 003075 constant entry internal dcl 373 ref 369 store_nv 002775 constant entry internal dcl 312 ref 309 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 3302 3342 3131 3312 Length 4140 3131 40 561 150 2 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME cobol_ddact1 316 external procedure is an external procedure. data_length internal procedure shares stack frame of external procedure cobol_ddact1. diag internal procedure shares stack frame of external procedure cobol_ddact1. store_nv internal procedure shares stack frame of external procedure cobol_ddact1. store_av internal procedure shares stack frame of external procedure cobol_ddact1. store_fcv internal procedure shares stack frame of external procedure cobol_ddact1. STORAGE FOR INTERNAL STATIC VARIABLES. LOC IDENTIFIER BLOCK NAME 000010 asc_des cobol_ddact1 STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME cobol_ddact1 000100 tf cobol_ddact1 000101 fstatus cobol_ddact1 000102 bit32_1 cobol_ddact1 000104 sv_ptr_auto cobol_ddact1 000106 message_area cobol_ddact1 000124 message_ptr cobol_ddact1 000126 pdn_occ_ptr cobol_ddact1 000130 fixbin7_1 cobol_ddact1 THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. call_ext_out return_mac mdfx1 ext_entry any_to_any_truncate_ THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. cobol_c_list cobol_vdwf_dget cobol_vdwf_dput cobol_vdwf_sput THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. cobol_ext_$cobol_cmfp cobol_ext_$cobol_com_ptr cobol_ext_$cobol_ntfp cobol_ext_ddsyn$cobol_htbl cobol_ext_ddsyn$cobol_sv_ptr cobol_ext_ddsyn$cobol_wkbuf1_tbl cobol_ext_ddsyn$cobol_wkbuf2_tbl LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 36 000104 38 000114 39 000117 44 000122 46 000124 47 000126 48 000127 49 000132 51 000133 55 000134 58 000136 59 000140 60 000143 64 000144 67 000146 68 000150 69 000153 71 000154 77 000155 80 000162 81 000165 85 000166 88 000170 89 000173 90 000176 91 000200 95 000201 98 000205 99 000206 100 000210 101 000213 102 000214 104 000215 107 000216 109 000224 110 000232 113 000236 117 000237 119 000241 121 000254 122 000257 123 000261 124 000264 125 000266 126 000270 127 000272 224 000273 227 000277 229 000300 233 000305 235 000306 239 000313 241 000316 243 000321 245 000324 247 000327 249 000332 251 000335 253 000340 255 000343 260 000344 264 000350 265 000353 267 000354 271 000360 272 000363 274 000364 278 000370 280 000371 283 000375 285 000376 288 000402 289 000405 291 000406 294 000412 296 000413 299 000417 300 000422 301 000426 303 000427 306 000433 309 000444 332 000445 333 000452 335 000457 336 000462 338 000465 339 000467 341 000473 343 000474 346 000500 359 000501 360 000506 361 000511 362 000516 363 000521 365 000524 366 000526 367 000532 369 000533 381 000534 384 000546 387 000551 388 000555 390 000560 392 000562 394 000566 397 000576 399 000577 402 000603 404 000604 407 000610 409 000611 412 000615 414 000616 416 000622 417 000625 421 000626 423 000632 424 000635 428 000636 430 000642 431 000645 432 000650 436 000651 439 000652 445 000656 446 000660 448 000664 453 000670 455 000672 456 000675 459 000676 461 000710 463 000715 465 000735 467 000741 469 000762 471 000763 474 000767 476 000770 479 000771 482 000775 486 000776 489 001002 491 001005 494 001013 496 001020 498 001022 499 001025 500 001027 502 001036 504 001056 505 001062 507 001064 509 001066 510 001070 511 001071 513 001072 514 001076 515 001100 516 001106 517 001113 521 001117 522 001120 525 001122 526 001124 527 001127 529 001140 530 001143 532 001146 535 001150 536 001151 537 001152 538 001155 540 001156 542 001160 544 001163 546 001176 548 001205 549 001211 551 001214 552 001216 553 001217 554 001220 555 001224 557 001225 561 001246 562 001247 563 001255 567 001256 569 001264 571 001305 572 001306 573 001314 576 001315 578 001317 579 001321 581 001334 582 001341 583 001344 584 001347 585 001350 586 001351 588 001352 589 001353 590 001354 593 001355 594 001356 596 001360 600 001401 602 001410 604 001422 605 001435 606 001437 608 001442 611 001452 612 001462 613 001466 615 001467 618 001472 620 001513 621 001517 623 001524 625 001545 629 001552 631 001555 632 001557 633 001572 635 001576 638 001602 639 001604 640 001610 643 001611 644 001613 647 001616 648 001620 649 001622 650 001623 652 001627 654 001650 655 001656 656 001661 658 001665 660 001706 661 001712 663 001716 665 001737 667 001740 669 001744 671 001745 674 001751 675 001753 677 001754 680 001760 681 001762 683 001763 685 001764 687 001767 688 001771 689 001774 690 001777 691 002001 692 002003 693 002006 694 002010 695 002011 697 002013 699 002017 700 002020 702 002024 706 002044 709 002053 711 002057 713 002100 714 002104 716 002110 718 002131 719 002137 721 002140 724 002143 726 002164 727 002170 728 002175 729 002202 733 002203 736 002207 738 002210 741 002211 743 002214 744 002215 746 002223 747 002225 749 002240 750 002243 751 002245 752 002247 753 002254 756 002260 757 002264 758 002266 759 002270 761 002272 763 002276 765 002300 767 002301 769 002320 771 002322 773 002325 774 002327 775 002330 778 002331 779 002334 780 002341 784 002342 787 002344 788 002350 790 002351 793 002353 795 002354 798 002356 800 002357 805 002360 808 002362 810 002364 812 002402 814 002404 816 002405 819 002407 820 002422 822 002425 823 002427 824 002431 825 002433 826 002435 827 002437 829 002441 831 002445 837 002450 839 002452 842 002470 844 002501 846 002506 847 002510 848 002512 849 002514 850 002515 851 002517 854 002520 856 002524 858 002525 860 002530 862 002531 865 002534 131 002535 133 002536 135 002545 138 002556 141 002576 145 002616 147 002617 151 002621 155 002624 157 002630 158 002633 159 002634 160 002636 162 002637 164 002643 165 002646 166 002647 167 002651 169 002652 171 002656 172 002661 173 002662 174 002664 176 002665 178 002671 179 002674 180 002675 181 002677 185 002700 187 002714 188 002721 191 002722 193 002731 195 002734 202 002735 205 002736 206 002740 207 002742 208 002746 209 002750 210 002752 211 002754 212 002756 213 002760 214 002762 215 002763 217 002765 218 002774 312 002775 314 002776 316 003001 319 003006 320 003013 321 003020 322 003024 323 003027 324 003032 325 003034 326 003036 327 003040 328 003042 329 003047 349 003050 351 003051 352 003054 353 003062 354 003065 355 003067 356 003074 373 003075 375 003076 376 003101 377 003106 378 003110 ----------------------------------------------------------- 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