COMPILATION LISTING OF SEGMENT cobol_ddact2 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 1002.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_ddact2.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 may not contain ZERO, BUG520(phx11821) */ 23 /* Modified on 07/22/81 by FCH, [4.4-1], set fixed_common.cd, BUG468 */ 24 /* Modified on 08/11/79 by FCH, [4.0-1], debug statement added */ 25 /* Modified on 04/14/78 by FCH, [3.0-2], fig con in level 88 item */ 26 /* Modified on 04/12/78 by FCH, [3.0-1], include file change */ 27 /* Modified since version 3.0 */ 28 29 30 /* format: style3 */ 31 cobol_ddact2: 32 proc (an); 33 34 sv_ptr_auto = cobol_sv_ptr; 35 go to actlbl (an); 36 37 /* store condition names */ 38 39 actlbl (150): /*action(63):*/ 40 conditioname.name_size = user_word.word_size; 41 substr (conditioname.name, 1, conditioname.name_size) = substr (user_word.word, 1, user_word.word_size); 42 conditioname.size = conditioname.size + conditioname.name_size; 43 44 conditioname.size = conditioname.size + mod (-conditioname.size, 4); 45 46 save_ptr = ptr1; 47 ptr1 = addr (w2_ptr -> any_item (conditioname.size + 1)); 48 conditioname.numlits = 0; 49 save_ptr1 = null_func; /*for compare_values*/ 50 go to retrn; /* store numeric value for 88 entry */ 51 52 actlbl (151): /*action(64):*/ 53 conditioname.numlits = conditioname.numlits + 1; 54 call store_nv; 55 56 store_nv: 57 proc; 58 59 numinit.initype.numeric = "1"b; 60 if numeric_lit.rtdp = 0 61 then numinit.info.integer = "1"b; 62 numinit.info.floating = numeric_lit.info.floating; 63 numinit.info.filler = numeric_lit.info.filler; 64 numinit.expsign = numeric_lit.exp_sign; 65 numinit.explaces = numeric_lit.exp_places; 66 numinit.sign = numeric_lit.sign; 67 numinit.ltdp = numeric_lit.ltdp; 68 numinit.rtdp = numeric_lit.rtdp; 69 numinit.length = numeric_lit.length; 70 niv = nl; 71 numinit.literal = numeric_lit.literal; 72 end store_nv; 73 74 75 conditioname.size = conditioname.size + niv_constant + niv; 76 77 conditioname.size = conditioname.size + mod (-conditioname.size, 4); 78 79 if save_ptr1 ^= null_func 80 then do; 81 numinit.initype.thru2 = "1"b; /*numinit.initype fits alpha,figcon also*/ 82 tf = cobol_compare_values (save_ptr1, ptr1, data_name.item_length, ptr_to_char_tbl); 83 84 if tf > 0 85 then call diag; 86 87 save_ptr1 = null_func; 88 end; 89 go to retrn; /* store non_numeric value for 88 entry */ 90 91 actlbl (152): /*action(65):*/ 92 conditioname.numlits = conditioname.numlits + 1; 93 call store_av; 94 95 96 store_av: 97 proc; 98 alphainit.initype.non_numeric = "1"b; 99 alphainit.info.bit_string = alphanum_lit.info.bit_string; 100 alphainit.length = alphanum_lit.length; 101 aiv = al; 102 alphainit.string = alphanum_lit.string; 103 end store_av; 104 105 106 conditioname.size = conditioname.size + aiv_constant + aiv; 107 108 conditioname.size = conditioname.size + mod (-conditioname.size, 4); 109 110 if save_ptr1 ^= null_func 111 then do; 112 numinit.initype.thru2 = "1"b; /*numinit.initype fits alpha,figcon also*/ 113 tf = cobol_compare_values (save_ptr1, ptr1, data_name.item_length, ptr_to_char_tbl); 114 115 if tf > 0 116 then call diag; 117 118 save_ptr1 = null_func; 119 end; 120 go to retrn; /* store fig_con value for 88 entry */ 121 122 actlbl (153): /*action(66):*/ 123 conditioname.numlits = conditioname.numlits + 1; 124 call store_fcv; 125 126 127 store_fcv: 128 proc; 129 alphainit.initype.fig_con = "1"b; 130 alphainit.info.fig_con_index = substr (unspec (rw.jump_index), 30, 7); 131 132 alphainit.length = 0; 133 end store_fcv; 134 135 136 137 /* [3.0-2] */ 138 /*[]*/ 139 if alphainit.info.fig_con_index = "0000001"b /*fig zero*/ 140 /*[]*/ 141 then do; 142 if vector_map.numeric /*[]*/ 143 then do; 144 conditioname.size = conditioname.size + niv_constant + 1; 145 /*[]*/ 146 numinit.initype.numeric = "1"b; 147 /*[]*/ 148 numinit.length = 1; /*[]*/ 149 end; /*[]*/ 150 else do; 151 conditioname.size = conditioname.size + aiv_constant + 1; 152 /*[]*/ 153 alphainit.initype.non_numeric = "1"b; 154 /*[]*/ 155 alphainit.length = 1; /*[]*/ 156 end; /*[]*/ 157 /*[]*/ 158 end; /* [3.0-2] */ 159 /*PIC_VAL_COMP wmay replace fig con extension by numeric*/ 160 else conditioname.size = conditioname.size + aiv_constant; 161 162 conditioname.size = conditioname.size + mod (-conditioname.size, 4); 163 164 if save_ptr1 ^= null_func 165 then do; 166 numinit.initype.thru2 = "1"b; /*numinit.initype fits alpha,figcon also*/ 167 tf = cobol_compare_values (save_ptr1, ptr1, data_name.item_length, ptr_to_char_tbl); 168 169 if tf > 0 170 then call diag; 171 172 save_ptr1 = null_func; 173 end; 174 175 go to retrn; /* set ptr and first of thru value for 88 entry */ 176 177 actlbl (154): /*action(67):*/ 178 numinit.initype.thru1 = "1"b; 179 save_ptr1 = ptr1; 180 ptr1 = addr (w2_ptr -> any_item (conditioname.size + 1)); 181 go to retrn; /* set pre for condition valuee in 88 entry */ 182 183 actlbl (155): /*action(68):*/ 184 ptr1 = addr (w2_ptr -> any_item (conditioname.size + 1)); 185 go to retrn; /*object of ODO is TALLY*/ 186 187 actlbl (156): /*action(69):*/ 188 /*not implemented*/ 189 go to retrn; /* write 88 entry type = 11 */ 190 191 actlbl (157): /*action(70):*/ 192 if bnw ^= 0 193 then do; 194 195 /*non - level - 88 item to be written before first level - 88 item is written*/ 196 197 rnt_size = data_name.size; 198 199 call cobol_vdwf_sput (cobol_ntfp, fstatus, dn_ptr, rnt_size, w_key); 200 201 bnw = 0; 202 203 if data_name.level = 1 204 then if data_name.exp_redefining 205 then rdf_01_sav = w_key; 206 else save_01 = w_key; 207 save_wkey = w_key; 208 209 end; 210 211 rnt_size = conditioname.size; 212 213 call cobol_vdwf_sput (cobol_ntfp, fstatus, w2_ptr, rnt_size, w_key); 214 215 ptr1 = save_ptr; 216 save_switch_88 = "1"b; 217 no_of_88s = no_of_88s + 1; 218 go to retrn; /* store subject of renames */ 219 220 actlbl (158): /*action(71):*/ 221 rnm_obj12 = 0; 222 com2_ptr = addr (cobol_wkbuf2_tbl.wkbuf2); 223 ptr4 = addr (cobol_wkbuf2_tbl); 224 ptr4 -> cntbuf2 = 0; 225 rename_rec.lineno_66 = user_word.line; 226 227 if save_line_for66 = 0 228 then do; 229 if h = 0 230 then do; 231 if rdf_01_sav ^= null_key 232 then rnt_key = rdf_01_sav; 233 else do; 234 if save_01 = null_key 235 then do; 236 237 rnt_size = data_name.size; 238 call cobol_vdwf_sput (cobol_ntfp, fstatus, dn_ptr, rnt_size, w_key); 239 bnw = 0; 240 241 if data_name.exp_redefining 242 then rdf_01_sav = w_key; 243 else do; 244 save_01 = w_key; 245 rdf_01_sav = null_key; 246 end; 247 248 save_wkey = w_key; 249 end; 250 rnt_key = save_01; 251 end; 252 end; 253 254 else rnt_key = cobol_htbl.nt_rec (1); 255 256 257 call cobol_vdwf_dget (cobol_ntfp, fstatus, rnt_ptr, rnt_size, rnt_key); 258 259 rnt_ptr -> data_name.rnm_01 = "1"b; 260 save_01_for66 = rnt_key; 261 save_line_for66 = rnt_ptr -> data_name.line; 262 263 call cobol_vdwf_dput (cobol_ntfp, fstatus, rnt_ptr, rnt_size, rnt_key); 264 265 end; 266 267 rename_rec.rec_no_66 = save_01_for66; 268 rename_rec.lineno_01 = save_line_for66; 269 rename_rec.size = user_word.word_size; 270 271 substr (rename_rec.name, 1, rename_rec.size) = substr (user_word.word, 1, user_word.word_size); 272 273 rename_rec.next = null_key; 274 rename_rec.obj1 = null_key; 275 rename_rec.obj2 = null_key; 276 go to retrn; /* store object1 of rename */ 277 278 actlbl (159): /*action(72):*/ 279 if rnm_obj12 = 0 280 then do; 281 cm_ptr = com2_ptr; 282 cm_size = rename_rec_constant + rename_rec.size; 283 284 call cobol_vdwf_sput (cobol_cmfp, fstatus, cm_ptr, cm_size, cm_key); 285 286 if prior_rename_rec = null_key 287 then fixed_common.rename_info = cm_key; 288 else do; 289 rcm_key = prior_rename_rec; 290 291 call cobol_vdwf_dget (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 292 293 com2_ptr = cm_ptr; 294 rename_rec.next = cm_key; 295 296 call cobol_vdwf_dput (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 297 298 end; 299 300 prior_rename_rec = cm_key; 301 end; 302 303 prior_qual_rec = null_key; 304 rnm_obj12 = rnm_obj12 + 1; 305 com2_ptr = addr (cobol_wkbuf2_tbl.wkbuf2); 306 ptr4 = addr (cobol_wkbuf2_tbl); 307 ptr4 -> cntbuf2 = 0; 308 obj_rec.qual = null_key; 309 obj_rec.size = user_word.word_size; 310 311 substr (obj_rec.name, 1, obj_rec.size) = substr (user_word.word, 1, user_word.word_size); 312 313 obj_rec.line = user_word.line; 314 obj_rec.column = user_word.column; 315 cm_ptr = com2_ptr; 316 cm_size = obj_rec_constant + obj_rec.size; 317 318 call cobol_vdwf_sput (cobol_cmfp, fstatus, cm_ptr, cm_size, cm_key); 319 320 /* store object 1 into rename_rec*/ 321 prior_obj_rec = cm_key; 322 rcm_key = prior_rename_rec; 323 324 call cobol_vdwf_dget (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 325 326 com2_ptr = cm_ptr; 327 328 if rnm_obj12 = 1 329 then rename_rec.obj1 = cm_key; 330 else rename_rec.obj2 = cm_key; 331 332 call cobol_vdwf_dput (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 333 go to retrn; /* store qualifier for rename adn occ object */ 334 335 actlbl (160): /*action(73):*/ 336 call qualifier; 337 338 339 qualifier: 340 proc; 341 com2_ptr = addr (cobol_wkbuf2_tbl.wkbuf2); 342 ptr4 = addr (cobol_wkbuf2_tbl); 343 ptr4 -> cntbuf2 = 0; 344 qual_rec.line = user_word.line; 345 qual_rec.column = user_word.column; 346 qual_rec.size = user_word.word_size; 347 348 substr (qual_rec.name, 1, qual_rec.size) = substr (user_word.word, 1, user_word.word_size); 349 350 qual_rec.next = null_key; 351 cm_ptr = com2_ptr; 352 cm_size = qual_rec_constant + qual_rec.size; 353 354 call cobol_vdwf_sput (cobol_cmfp, fstatus, cm_ptr, cm_size, cm_key); 355 356 end qualifier; 357 358 359 if prior_qual_rec ^= null_key 360 then go to s_qual; 361 362 rcm_key = prior_obj_rec; 363 364 call cobol_vdwf_dget (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 365 366 com2_ptr = cm_ptr; 367 obj_rec.qual = cm_key; 368 prior_qual_rec = cm_key; 369 370 call cobol_vdwf_dput (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 371 372 go to retrn; 373 374 s_qual: 375 call store_qualifier; 376 go to retrn; 377 378 379 store_qualifier: 380 proc; 381 rcm_key = prior_qual_rec; 382 call cobol_vdwf_dget (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 383 com2_ptr = cm_ptr; 384 qual_rec.next = cm_key; 385 prior_qual_rec = cm_key; 386 387 call cobol_vdwf_dput (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 388 389 end store_qualifier; 390 391 392 393 394 actlbl (161): /*action(74):*/ 395 next_level = 1; 396 go to retrn; 397 398 /* redefines processing */ 399 400 actlbl (162): /*action(75):*/ 401 if user_word.word = "FILLER" 402 then do; 403 tf = 180; 404 call diag; 405 go to retrn; 406 end; 407 408 vector_map.s_of_rdf = "1"b; 409 vector_map.exp_redefining = "1"b; 410 411 if save_level = 77 412 then do; 413 rdf_level = 1; 414 415 if data_name.level ^= 77 416 then call enter_incorrect (32); 417 418 else if ^data_name.exp_redefining 419 then do; 420 if user_word.word ^= data_name.name 421 then call enter_correct_err (220); 422 423 else do; 424 425 /*names match ... level 77*/ 426 427 data_name.o_of_rdf = "1"b; 428 call enter_correct; 429 end; 430 end; 431 432 else do; 433 434 /*dataname is s_of_rdf and levels match at 77*/ 435 436 if user_word.word ^= rdf_tbl (1) 437 then call TF (220); /*names match*/ 438 else call end75; 439 end; 440 441 go to retrn; 442 443 end; 444 445 rdf_level = next_level; 446 447 if next_level = data_name.level 448 then do; 449 450 offset_ct = save_offsets (next_level); 451 452 if ^data_name.exp_redefining 453 then do; 454 if user_word.word = data_name.name 455 then do; 456 457 if fixed_common.comp_level < "3" 458 then do; 459 if data_name.s_of_rdf 460 then do; 461 tf = 47; 462 call diag_level; 463 end; 464 465 if data_name.occurs_ptr ^= 0 466 then do; 467 tf = 48; 468 call diag_level; 469 end; 470 end; 471 data_name.o_of_rdf = "1"b; 472 call enter_correct; 473 end; 474 475 /*levels match but not names*/ 476 477 else call enter_correct_err (220); 478 end; 479 480 else do; 481 482 if rdf_tbl (rdf_level) = user_word.word 483 then call end75; 484 else call TF (220); 485 486 end; 487 end; 488 489 else if next_level > data_name.level 490 then call enter_incorrect (32); 491 492 else do; /*next_level less than data_name.level*/ 493 494 offset_ct = save_offsets (next_level); 495 496 /*at this moment, cobol_htbl has been popped to last item with level 497* less than next_level; however, the 498* old items are still in there. If h indexes parent level item 499* of next_level item, then h + 1 indexes either an item of level 500* equal to next_level or greater than it. If equal, the cobol_htbl item 501* represents object of redefines, or last redefinition of object 502* at that level; if greater, the redefinition is 503* in error.*/ 504 505 fh = h + 1; 506 507 if cobol_htbl.level (fh) ^= next_level /*level is greater than next_level*/ 508 then call enter_incorrect (32); 509 510 /*levels match*/ 511 512 else if ^cobol_htbl.exp_redefining (fh) 513 then do; 514 rnt_key = cobol_htbl.nt_rec (fh); 515 516 call cobol_vdwf_dget (cobol_ntfp, fstatus, rnt_ptr, rnt_size, rnt_key); 517 518 save_ptr = dn_ptr; 519 dn_ptr = rnt_ptr; 520 521 if user_word.word = data_name.name 522 then do; 523 data_name.o_of_rdf = "1"b; 524 rdf_tbl (next_level) = data_name.name; 525 526 527 if data_name.exp_occurs 528 then do; 529 tf = 54; 530 call diag; 531 end; 532 533 if data_name.do_rec ^= null_key 534 then do; 535 tf = 55; 536 call diag; 537 end; 538 539 call cobol_vdwf_dput (cobol_ntfp, fstatus, rnt_ptr, rnt_size, rnt_key); 540 541 dn_ptr = save_ptr; 542 543 call end75; 544 end; 545 546 /*names don't match*/ 547 548 else do; 549 dn_ptr = save_ptr; 550 call enter_correct_err (220); 551 end; 552 553 end; /*cobol_htbl.exp_redefining(fh) is set*/ 554 555 else if user_word.word = rdf_tbl (next_level) 556 then call end75; 557 else call TF (220); 558 559 end; 560 go to retrn; 561 562 enter_incorrect: 563 proc (num); 564 565 declare num fixed bin; 566 567 rdf_tbl (next_level) = user_word.word; 568 569 call TF (num); 570 571 end; 572 573 enter_correct_err: 574 proc (num); 575 576 declare num fixed bin; 577 578 tf = num; 579 call diag; 580 581 call enter_correct; 582 583 end; 584 585 enter_correct: 586 proc; 587 588 rdf_tbl (next_level) = data_name.name; 589 590 if data_name.exp_occurs 591 then do; 592 tf = 54; 593 call diag; 594 end; 595 596 if data_name.do_rec ^= null_key 597 then do; 598 tf = 55; 599 call diag; 600 end; 601 602 call end75; 603 604 end; 605 606 TF: 607 proc (num); 608 609 declare num fixed bin; 610 611 tf = num; 612 call diag; 613 614 call end75; 615 616 end; 617 618 end75: 619 proc; 620 621 if bnw ^= 0 622 then do; 623 624 /*write completed (previous) dataname token*/ 625 626 rnt_ptr = dn_ptr; 627 nt_size = data_name.size; 628 629 call cobol_vdwf_sput (cobol_ntfp, fstatus, rnt_ptr, nt_size, w_key); 630 631 if data_name.non_elementary 632 then cobol_htbl.nt_rec (h) = w_key; 633 634 if data_name.level = 1 635 then do; 636 if data_name.exp_redefining 637 then rdf_01_sav = w_key; 638 639 else do; 640 save_01 = w_key; 641 rdf_01_sav = null_key; 642 end; 643 end; 644 end; 645 646 else do; 647 648 /* item was written already - - but o_of_rdf description bit has been updated since*/ 649 650 if data_name.o_of_rdf 651 then do; 652 653 call cobol_vdwf_dget (cobol_ntfp, fstatus, rnt_ptr, rnt_size, save_wkey); 654 call cobol_vdwf_dput (cobol_ntfp, fstatus, dn_ptr, rnt_size, save_wkey); 655 656 end; 657 658 end; 659 660 ptr4 = addr (cobol_wkbuf1_tbl); 661 ptr4 -> cntbuf = 0; 662 663 data_name.type = 9; 664 data_name.size = dn_constant; 665 data_name.line = save_line; 666 data_name.def_line = save_line; 667 data_name.column = save_column; 668 data_name.level = save_level; 669 data_name.do_rec = null_key; 670 671 if file_number ^= 0 672 then data_name.file_num = file_number; 673 else data_name.file_num = cdno; 674 675 data_name.name_size = dnl; 676 677 data_name.name = substr (save_dname, 1, data_name.name_size); 678 679 data_name.size = dn_constant + dnl; 680 681 data_name.size = data_name.size + mod (-data_name.size, 4); 682 683 ptr1 = addr (dn_ptr -> any_item (data_name.size + 1)); 684 685 bnw = 1; /*buf needs write*/ 686 687 end; 688 689 diag: 690 proc; 691 rn = 3; 692 go to diag_start; 693 diag_level: 694 entry; 695 rn = 9; 696 diag_start: 697 message_ptr = addr (message_area); 698 message.size = 32; 699 message.line = record.line; 700 message.column = record.column; 701 message.type = 5; 702 message.run3 = rn; 703 message.info.para = "0"b; 704 message.info.rep = "0"b; 705 message.info.fillerx = "000000"b; 706 message.length = 0; 707 message.number = tf; 708 709 call cobol_c_list (message_ptr); 710 711 end; 712 713 714 715 actlbl (163): /*action(76):*/ 716 data_name.size = data_name.size + max_poss_extensions; 717 /*maximum possible size*/ 718 /* save 66 entry record no in rename_rec */ 719 720 if prior_rename_rec ^= null_key 721 then do; 722 rcm_key = prior_rename_rec; 723 724 call cobol_vdwf_dget (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 725 726 com2_ptr = cm_ptr; 727 end; 728 go to retrn; 729 730 /* set file section indicators */ 731 732 actlbl (166): /*action(79):*/ 733 substr (section_ind, 1, 1) = "1"b; 734 substr (vector_part, 1, 6) = "100000"b; 735 ll01 = "0"b; 736 ll77 = "0"b; 737 file_number = 0; 738 name_string_index = 1; 739 nsa_index = 0; 740 go to retrn; /* end of file section processing */ 741 742 actlbl (167): /*action(80):*/ 743 file_number = 0; 744 745 /* check data record names and label record names are defined */ 746 747 if nsa_index ^= 0 748 then do nsa_work_index = 1 to nsa_index by 1; 749 750 if ^nsa_cancelled (nsa_work_index) 751 then do; 752 753 if nsa_lbl_rec (nsa_work_index) 754 then tf = 192; 755 else tf = 193; 756 757 call diag; 758 end; 759 760 end; 761 762 /* scan and report undefined files */ 763 go to retrn; /* initialize current fd token entry */ 764 765 actlbl (168): /*action(81):*/ 766 if fixed_common.comp_level < "5" 767 then if record.column < 8 | record.column > 11 768 then do; 769 tf = 133; 770 call diag_level; 771 end; 772 773 ll01 = "0"b; 774 fd_clauses = "000000000000000000000000000000000000"b; 775 ptr4 = addr (cobol_wkbuf2_tbl); 776 ptr4 -> cntbuf2 = 0; 777 fd_token.def_line = record.line; 778 fd_token.line = record.line; 779 fd_token.column = record.column; 780 fd_token.size = fd_constant; 781 782 if rw.key = 219 783 then fd_token.type = 12; 784 if rw.key = 243 785 then fd_token.type = 16; 786 if rw.key = 242 787 then fd_token.type = 15; 788 789 nsa_index_last_fd = nsa_index + 1; 790 save_block_desc = 0; 791 save_block_min = 0; 792 save_block_max = 0; 793 save_record_min = 0; 794 save_record_max = 0; 795 go to retrn; /*code - set bcd - 1400*/ 796 797 actlbl (173): /*action(86):*/ 798 /*label records c120*/ 799 if file_number ^= 0 800 then file_table.label_format = 2; 801 go to retrn; 802 803 actlbl (174): /*action(87):*/ 804 /*label records c80*/ 805 if file_number ^= 0 806 then file_table.label_format = 3; 807 go to retrn; 808 809 actlbl (175): /*action(88):*/ 810 /*label records e80*/ 811 if file_number ^= 0 812 then file_table.label_format = 4; 813 go to retrn; 814 815 actlbl (176): /*action(89):*/ 816 /*code - set ascii*/ 817 go to retrn; /* get file number from file table in common */ 818 819 actlbl (181): /*action(94):*/ 820 fd_token.file_no = file_table.file_no; 821 file_number = fd_token.file_no; 822 823 if fd_token.type = 16 824 then file_table.sort_file = "1"b; 825 else file_table.sort_file = "0"b; 826 827 file_table.rec_do_info = null_key; 828 go to retrn; /*end of Communication Section*/ 829 830 actlbl (177): /*action(90):*/ 831 cdno = 0; 832 go to retrn; /*level 1 in Communication Section*/ 833 834 actlbl (178): /*action(91):*/ 835 data_name.file_num = cdno; 836 data_name.s_of_rdf = "1"b; 837 data_name.exp_redefining = "1"b; 838 go to retrn; 839 840 /* store file name */ 841 842 actlbl (182): /*action(95):*/ 843 /*[4.0-1]*/ 844 call cobol_ddsyntax$init_file_tab; 845 846 fd_token.name_size = user_word.word_size; 847 substr (fd_token.name, 1, fd_token.name_size) = substr (user_word.word, 1, user_word.word_size); 848 fd_token.size = fd_token.size + fd_token.name_size; 849 850 fd_token.size = fd_token.size + mod (-fd_token.size, 4); 851 852 ptr2 = addr (w2_ptr -> any_item (fd_token.size + 1)); 853 go to retrn; /*record contains depending on dataname*/ 854 855 actlbl (183): /*action(96):*/ 856 if file_number ^= 0 857 then do; 858 file_table.rec_do = "1"b; 859 860 if file_table.fixed_recs 861 then do; 862 tf = 189; 863 call diag; 864 end; 865 end; 866 867 if bnw ^= 0 868 then do; 869 rnt_size = data_name.size; 870 871 call cobol_vdwf_sput (cobol_ntfp, fstatus, dn_ptr, rnt_size, w_key); 872 873 bnw = 0; 874 end; 875 876 fkey_ptr = addr (cobol_wkbuf1_tbl.wkbuf1); 877 file_key.next = null_key; 878 file_key.next_alt = null_key; 879 file_key.qual = null_key; 880 addr (file_key.info) -> BIT8 = "0"b; /* [3.0-1] */ 881 file_key.file_no = file_number; 882 file_key.key_type = 6; 883 file_key.line = user_word.line; 884 file_key.column = user_word.column; 885 file_key.temp_seg = 0; 886 file_key.temp_offset = 0; 887 file_key.name_size = user_word.word_size; 888 889 substr (file_key.name, 1, file_key.name_size) = substr (user_word.word, 1, user_word.word_size); 890 891 cm_size = fkey_constant + file_key.name_size; 892 893 call cobol_vdwf_sput (cobol_cmfp, fstatus, fkey_ptr, cm_size, cm_key); 894 895 if file_number ^= 0 896 then if file_table.rec_do_info = null_key 897 then file_table.rec_do_info = cm_key; 898 899 if fixed_common.file_keys = null_key 900 then fixed_common.file_keys = cm_key; 901 else do; 902 rcm_key = fixed_common.last_file_key; 903 904 call cobol_vdwf_dget (cobol_cmfp, fstatus, fkey_ptr, cm_size, rcm_key); 905 906 file_key.next = cm_key; 907 908 call cobol_vdwf_dput (cobol_cmfp, fstatus, fkey_ptr, cm_size, rcm_key); 909 end; 910 fixed_common.last_file_key = cm_key; 911 go to retrn; /* end of fd processing */ 912 913 actlbl (186): /*action(99):*/ 914 /* store block record linage info into file table in common */ 915 if fd_token.file_no ^= 0 916 then do; 917 918 file_table.block_desc = save_block_desc; 919 file_table.block_min = save_block_min; 920 file_table.block_max = save_block_max; 921 file_table.rec_min = save_record_min; 922 file_table.rec_max = save_record_max; /* generate LINAGE - COUNTER */ 923 if fd_ind.linage_is 924 then do; 925 cm_size = linage_rec_constant + 40 * linage_rec.name_count; 926 927 call cobol_vdwf_sput (cobol_cmfp, fstatus, linage_ptr, cm_size, cm_key); 928 929 file_table.linage_info = cm_key; 930 file_table.linage = "1"b; 931 932 if bnw ^= 0 933 then do; 934 rnt_size = data_name.size; 935 936 call cobol_vdwf_sput (cobol_ntfp, fstatus, dn_ptr, rnt_size, w_key); 937 938 end; 939 940 ptr4 = addr (cobol_wkbuf1_tbl); 941 ptr4 -> cntbuf = 0; 942 data_name.size = dn_constant + 14; 943 data_name.line = fd_token.line; 944 data_name.column = fd_token.column; 945 data_name.type = 9; 946 data_name.level = 1; 947 data_name.item_length = 5; /* 5 is arbitrarily chosen */ 948 data_name.places_left = 5; 949 data_name.places_right = 0; 950 data_name.initial_ptr = 0; 951 data_name.edit_ptr = 0; 952 data_name.occurs_ptr = 0; 953 data_name.file_num = file_number; 954 data_name.offset = 0; 955 data_name.name_size = 14; 956 substr (data_name.name, 1, data_name.name_size) = "LINAGE-COUNTER"; 957 ptr8 = addr (data_name.file_section); 958 959 ptr8 -> bit72 = "100000010100000001000000000100000000000000000000000000000000000000100000"b; 960 961 bnw = 1; 962 963 end; /*first write fd token*/ 964 rnt_size = fd_token.size; 965 966 call cobol_vdwf_sput (cobol_ntfp, fstatus, w2_ptr, rnt_size, w_key); 967 968 save_fd = w_key; 969 end; 970 971 if fd_ind.report_is = "1"b & fd_ind.data_record = "1"b 972 then do; 973 tf = 66; 974 call diag; 975 end; 976 977 if fd_ind.report_is = "1"b & fd_ind.linage_is = "1"b 978 then do; 979 tf = 87; 980 call diag; 981 end; 982 983 go to retrn; /* store file no into data record entry */ 984 /* check user label names and data record names if specified */ 985 986 actlbl (187): /*action(100):*/ 987 call cobol_vdwf_dget (cobol_ntfp, fstatus, save_w2, rnt_size, save_fd); 988 989 data_name.file_num = save_w2 -> fd_token.file_no; /* set fno */ 990 /* check user label names */ 991 if fd_ind.label_type.user_spec ^= "1"b 992 then go to na100; /* check data record names */ 993 na100: 994 if nsa_index < nsa_index_last_fd 995 then go to err100_191; 996 997 do nsa_work_index = nsa_index_last_fd to nsa_index by 1; 998 999 if nsa_name_length (nsa_work_index) = dnl 1000 then do; 1001 1002 if substr (name_string, nsa_name_index (nsa_work_index), dnl) = save_dname 1003 then do; 1004 nsa_cancelled (nsa_work_index) = "1"b; 1005 data_name.label_record = nsa_lbl_rec (nsa_work_index); 1006 go to endg100; 1007 end; 1008 1009 end; 1010 end; 1011 endg100: 1012 if nsa_work_index > nsa_index 1013 then do; 1014 err100_191: /*tf = 191; 1015* call diag;*/ 1016 end; 1017 nna100: /* store data record names */ 1018 go to retrn; /* set linage defaults for fd_token */ 1019 1020 actlbl (188): /*action(101):*/ 1021 if fd_ind.linage_type.top = "0"b 1022 then do; 1023 linage_rec.top = 0; 1024 linage_rec.top_int = 0; 1025 linage_rec.top_name = null_key; 1026 end; 1027 if fd_ind.linage_type.bottom = "0"b 1028 then do; 1029 linage_rec.bottom = 0; 1030 linage_rec.bottom_int = 0; 1031 linage_rec.bottom_name = null_key; 1032 end; 1033 1034 if fd_ind.linage_type.footing = "0"b 1035 then do; 1036 linage_rec.footing = 0; 1037 linage_rec.footing_int = 0; 1038 linage_rec.footing_name = null_key; 1039 end; 1040 1041 go to retrn; 1042 1043 /* Store linage footing info */ 1044 1045 actlbl (189): /*action(102):*/ 1046 fd_ind.linage_type.footing = "1"b; 1047 linage_rec.footing = linage_rec.name_count + 1; 1048 linage_name_rec.desc = 2; 1049 1050 call write_linage_name_rec; 1051 1052 linage_rec.footing_name = cm_key; 1053 go to retrn; /* Store integer for linage footing */ 1054 1055 actlbl (190): /*action(103):*/ 1056 fd_ind.linage_type.footing = "1"b; 1057 linage_rec.footing = 5; /*[5.1-1]*/ 1058 if record.type = 2 1059 then linage_rec.footing_int = fixed (numeric_lit.literal); 1060 else linage_rec.footing_int = 0; 1061 go to retrn; 1062 1063 /* set fd recording mode indicator */ 1064 1065 actlbl (191): /*action(104):*/ 1066 fd_ind.recording_mode = "1"b; 1067 go to retrn; /* set fd recording mode index */ 1068 1069 actlbl (192): /*action(105):*/ 1070 /* not done */ 1071 go to retrn; /* set block contain indicator */ 1072 1073 actlbl (193): /*action(106):*/ 1074 fd_ind.block_contain = "1"b; 1075 go to retrn; /* set record contain indicator */ 1076 1077 actlbl (194): /*action(107):*/ 1078 fd_ind.record_contain = "1"b; 1079 go to retrn; /* set label record indicator */ 1080 1081 actlbl (195): /*action(108):*/ 1082 fd_ind.label_record = "1"b; 1083 go to retrn; /* set value of indicator */ 1084 1085 actlbl (196): /*action(109):*/ 1086 fd_ind.value_of = "1"b; 1087 go to retrn; /* set data record indicator */ 1088 1089 actlbl (197): /*action(110):*/ 1090 fd_ind.data_record = "1"b; 1091 go to retrn; /* set report is indicator */ 1092 1093 actlbl (198): /*action(111):*/ 1094 fd_ind.report_is = "1"b; 1095 go to retrn; 1096 1097 /* set linage is indicator */ 1098 1099 actlbl (199): /*action(112):*/ 1100 if bnw ^= 0 1101 then do; 1102 rnt_size = data_name.size; 1103 1104 call cobol_vdwf_sput (cobol_ntfp, fstatus, dn_ptr, rnt_size, w_key); 1105 1106 bnw = 0; 1107 end; 1108 1109 fd_ind.linage_is = "1"b; 1110 com2_ptr = addr (cobol_wkbuf1_tbl.wkbuf1); /*ads linage_name_recs*/ 1111 1112 linage_ptr = addr (com2_ptr -> any_item (101)); /*ads linage rec - - - must be word aligned on 6180*/ 1113 linage_rec.body = 0; 1114 linage_rec.top = 0; 1115 linage_rec.bottom = 0; 1116 linage_rec.footing = 0; 1117 linage_rec.name_count = 0; 1118 1119 save_block_min = 0; 1120 save_block_max = 0; 1121 save_record_min = 0; 1122 save_record_max = 0; 1123 go to retrn; 1124 1125 /* set min_size for block */ 1126 1127 actlbl (201): /*action(114):*/ 1128 /*[5.1-1]*/ 1129 if record.type = 2 1130 then save_block_max = fixed (numeric_lit.literal); 1131 else save_block_max = 0; 1132 save_block_min = 0; 1133 go to retrn; /* set record bit for block */ 1134 1135 actlbl (202): /*action(115):*/ 1136 save_block_desc = 2; 1137 go to retrn; /* set character bit for block */ 1138 1139 actlbl (203): /*action(116):*/ 1140 save_block_desc = 1; 1141 go to retrn; 1142 1143 /* set max size for block */ 1144 1145 actlbl (204): /*action(117):*/ 1146 save_block_min = save_block_max; /*[5.1-1]*/ 1147 if record.type = 2 1148 then save_block_max = fixed (numeric_lit.literal); 1149 else save_block_max = 0; 1150 1151 if save_block_min >= save_block_max 1152 then do; 1153 tf = 211; 1154 call diag; 1155 end; 1156 go to retrn; /* Store data name for linage bottom */ 1157 1158 actlbl (205): /*action(118):*/ 1159 fd_ind.linage_type.bottom = "1"b; 1160 linage_rec.bottom = linage_rec.name_count + 1; 1161 linage_name_rec.desc = 4; 1162 1163 call write_linage_name_rec; 1164 1165 linage_rec.bottom_name = cm_key; 1166 go to retrn; /* Store integer for linage bottom */ 1167 1168 actlbl (206): /*action(119):*/ 1169 fd_ind.linage_type.bottom = "1"b; 1170 linage_rec.bottom = 5; /*[5.1-1]*/ 1171 if record.type = 2 1172 then linage_rec.bottom_int = fixed (numeric_lit.literal); 1173 else linage_rec.bottom_int = 0; 1174 go to retrn; 1175 1176 /* store min size for record contain */ 1177 1178 actlbl (207): /*action(120):*/ 1179 /*[5.1-1]*/ 1180 if record.type = 2 1181 then save_record_max = fixed (numeric_lit.literal); 1182 else save_record_max = 0; 1183 1184 if save_record_max > 262143 1185 then do; 1186 tf = 212; 1187 call diag; 1188 end; 1189 1190 save_record_min = 0; 1191 go to retrn; 1192 1193 /* Set linage top data name */ 1194 1195 actlbl (208): /*action(121):*/ 1196 fd_ind.linage_type.top = "1"b; 1197 linage_rec.top = linage_rec.name_count + 1; 1198 linage_name_rec.desc = 3; 1199 1200 call write_linage_name_rec; 1201 1202 linage_rec.top_name = cm_key; 1203 go to retrn; 1204 1205 /* store max size for record contain */ 1206 1207 actlbl (209): /*action(122):*/ 1208 save_record_min = save_record_max; /*[5.1-1]*/ 1209 if record.type = 2 1210 then save_record_max = fixed (numeric_lit.literal); 1211 else save_record_max = 0; 1212 1213 if save_record_max > 262143 1214 then do; 1215 tf = 212; 1216 call diag; 1217 end; 1218 go to retrn; /* set label record omitted */ 1219 1220 actlbl (210): /*action(123):*/ 1221 fd_ind.label_type.omitted = "1"b; 1222 1223 if file_number ^= 0 1224 then file_table.label_format = 5; 1225 go to retrn; /* set label record standard */ 1226 1227 actlbl (211): /*action(124):*/ 1228 fd_ind.label_type.standard = "1"b; 1229 1230 if file_number ^= 0 1231 then file_table.label_format = 1; 1232 go to retrn; /* set label record user spec */ 1233 1234 actlbl (212): /*action(125):*/ 1235 nsa_index = nsa_index + 1; 1236 nsa_name_index (nsa_index) = name_string_index; 1237 nsa_name_length (nsa_index) = user_word.word_size; 1238 nsa_lbl_rec (nsa_index) = "1"b; 1239 nsa_cancelled (nsa_index) = "0"b; 1240 1241 substr (name_string, name_string_index, user_word.word_size) = substr (user_word.word, 1, user_word.word_size); 1242 1243 name_string_index = name_string_index + user_word.word_size; 1244 go to retrn; 1245 1246 actlbl (213): /* action(126) */ 1247 /* value of label field is literal */ 1248 if label_field_num ^= 0 1249 then go to LFL (label_field_num); 1250 1251 go to retrn; 1252 1253 LFL (1): /* file - id */ 1254 call enter_key (113); 1255 1256 if file_table.file_id_info ^= "00000" 1257 then do; 1258 tf = 208; 1259 call diag; 1260 end; 1261 else file_table.file_id_info = common_key; 1262 1263 go to retrn; 1264 1265 LFL (2): /* retention */ 1266 call enter_key (114); 1267 1268 if file_table.retention_info ^= "00000" 1269 then do; 1270 tf = 208; 1271 call diag; 1272 end; 1273 else file_table.retention_info = common_key; 1274 1275 go to retrn; 1276 1277 LFL (3): /* catalogue-name */ 1278 if file_table.catalogued ^= 0 1279 then do; 1280 tf = 221; 1281 call diag; 1282 end; 1283 1284 else do; 1285 file_table.catalogued = 2; 1286 file_table.cat_nm = alphanum_lit.string; 1287 end; 1288 1289 if file_table.cat_id_info ^= "00000" 1290 then do; 1291 tf = 208; 1292 call diag; 1293 end; 1294 else file_table.cat_id_info = common_key; 1295 1296 go to retrn; 1297 1298 actlbl (214): /* action(127) */ 1299 /* value of label field is data name */ 1300 if label_field_num ^= 0 1301 then go to LFD (label_field_num); 1302 1303 go to retrn; 1304 1305 LFD (1): /* file - id */ 1306 call enter_key (13); 1307 1308 if file_table.file_id_info ^= "00000" 1309 then do; 1310 tf = 208; 1311 call diag; 1312 end; 1313 else file_table.file_id_info = common_key; 1314 1315 go to retrn; 1316 1317 LFD (2): /* retention */ 1318 call enter_key (14); 1319 1320 if file_table.retention_info ^= "00000" 1321 then do; 1322 tf = 208; 1323 call diag; 1324 end; 1325 else file_table.retention_info = common_key; 1326 1327 go to retrn; 1328 1329 LFD (3): /* catalogue-name */ 1330 if file_table.catalogued ^= 0 1331 then do; 1332 tf = 221; 1333 call diag; 1334 end; 1335 1336 else do; 1337 file_table.catalogued = 3; 1338 call enter_key (7); 1339 end; 1340 1341 if file_table.cat_id_info ^= "00000" 1342 then do; 1343 tf = 208; 1344 call diag; 1345 end; 1346 else file_table.cat_id_info = common_key; 1347 1348 go to retrn; 1349 1350 actlbl (215): /* action(128) */ 1351 /* name qualifier */ 1352 if label_field_num ^= 0 1353 then call enter_qual; 1354 1355 go to retrn; 1356 1357 1358 1359 /* enter key into var common */ 1360 1361 enter_key: 1362 proc (type); 1363 1364 declare (type, siz, lit_size) 1365 fixed bin; 1366 1367 file_key.next = "00000"; 1368 file_key.next_alt = "00000"; 1369 file_key.qual = "00000"; 1370 1371 addr (file_key.info) -> BIT8 = "0"b; /* [3.0-1] */ 1372 1373 file_key.file_no = file_table.file_no; 1374 1375 file_key.line = user_word.line; 1376 file_key.column = user_word.column; 1377 1378 file_key.temp_seg = 0; 1379 file_key.temp_offset = 0; 1380 1381 file_key.desc = " "; 1382 1383 file_key.key_type = type; 1384 1385 qual_sw = "0"b; 1386 1387 if user_word.type = 8 /* user word */ 1388 then do; 1389 file_key.name_size = user_word.word_size; 1390 file_key.name = user_word.word; 1391 end; 1392 1393 else if alphanum_lit.type = 3 /* alphanumeric lit */ 1394 then do; 1395 file_key.name_size = alphanum_lit.length; 1396 file_key.name = alphanum_lit.string; 1397 end; 1398 1399 else if numeric_lit.type = 2 /* numeric lit */ 1400 then do; 1401 file_key.name_size = numeric_lit.length; 1402 file_key.name = numeric_lit.literal; 1403 end; 1404 1405 else if rw.type = 1 /* figurative const */ 1406 then do; 1407 if label_field_num ^= 0 1408 then do; 1409 1410 go to LFF (label_field_num); 1411 1412 LFF (1): /* file - id */ 1413 if all_ind = 0 1414 then file_key.name_size = 1; 1415 else file_key.name_size = 17; 1416 1417 call form_lit; 1418 1419 go to LFF1; 1420 1421 LFF (2): /* retention */ 1422 if all_ind = 0 1423 then file_key.name_size = 1; 1424 else file_key.name_size = 3; 1425 1426 call form_lit; 1427 1428 go to LFF1; 1429 1430 LFF (3): /* catalogue-name */ 1431 if all_ind = 0 1432 then file_key.name_size = 1; 1433 else file_key.name_size = 17; 1434 1435 call form_lit; 1436 1437 go to LFF1; 1438 1439 LFF1: 1440 end; 1441 1442 end; 1443 1444 siz = size (file_key) * 4 + file_key.name_size; 1445 1446 call cobol_vdwf_sput (cobol_com_fileno, com_status, fkey_ptr, siz, common_key); 1447 1448 if fixed_common.file_keys = "00000" 1449 then fixed_common.file_keys = common_key; 1450 1451 else do; 1452 call cobol_vdwf_dget (cobol_com_fileno, com_status, work_ptr, siz, fixed_common.last_file_key); 1453 1454 work_ptr -> file_key.next = common_key; 1455 1456 call cobol_vdwf_dput (cobol_com_fileno, com_status, work_ptr, siz, fixed_common.last_file_key); 1457 1458 end; 1459 1460 fixed_common.last_file_key = common_key; 1461 1462 end; 1463 1464 form_lit: 1465 proc; /* form lit from fig const */ 1466 1467 declare lit_char char (1), 1468 p ptr; 1469 declare lit_bit bit (9) based; 1470 declare lit_bit_string (256) char (1) based (p); 1471 1472 lit_char = " "; 1473 1474 if rw.key = 192 1475 then lit_char = " "; /* is_word("SPACE") */ 1476 else if rw.key = 180 1477 then lit_char = "0"; /* is_word("ZERO") */ 1478 else if rw.key = 235 1479 then lit_char = """"; /* is_word("QUOTE") */ 1480 else if rw.key = 229 /* is_word("LOW-VALUE") */ 1481 then addr (lit_char) -> lit_bit = "0"b; 1482 else if rw.key = 221 /* is_word("HIGH-VALUE") */ 1483 then addr (lit_char) -> lit_bit = "001111111"b; 1484 1485 p = addr (file_key.name); 1486 1487 do i = 1 by 1 to file_key.name_size; 1488 1489 lit_bit_string (i) = lit_char; 1490 1491 end; 1492 1493 end; 1494 1495 enter_qual: 1496 proc; /* enter qualifier into var common */ 1497 1498 declare size fixed bin; 1499 1500 declare 1 qual_rec based (qual_ptr), 1501 2 next char (5), 1502 2 size fixed bin, 1503 2 name char (0 refer (qual_rec.size)); 1504 1505 size = user_word.word_size + key_qual_size; 1506 1507 qual_rec.next = "00000"; 1508 qual_rec.size = user_word.word_size; 1509 qual_rec.name = user_word.word; 1510 1511 call cobol_vdwf_sput (cobol_com_fileno, com_status, qual_ptr, size, common_key); 1512 1513 if qual_sw = "0"b 1514 then do; 1515 call cobol_vdwf_dget (cobol_com_fileno, com_status, work_ptr, size, fixed_common.last_file_key); 1516 1517 work_ptr -> file_key.qual = common_key; 1518 1519 call cobol_vdwf_dput (cobol_com_fileno, com_status, work_ptr, size, fixed_common.last_file_key); 1520 1521 end; 1522 1523 else do; 1524 call cobol_vdwf_dget (cobol_com_fileno, com_status, work_ptr, size, prev_qual_key); 1525 end; 1526 1527 prev_qual_key = common_key; 1528 qual_sw = "1"b; 1529 1530 end; 1531 1532 1533 /* store data record name */ 1534 1535 actlbl (216): /*action(129):*/ 1536 if file_number ^= 0 1537 then file_table.data_count = file_table.data_count + 1; 1538 1539 nsa_index = nsa_index + 1; 1540 nsa_name_index (nsa_index) = name_string_index; 1541 nsa_name_length (nsa_index) = user_word.word_size; 1542 nsa_lbl_rec (nsa_index) = "0"b; 1543 nsa_cancelled (nsa_index) = "0"b; 1544 1545 substr (name_string, name_string_index, user_word.word_size) = substr (user_word.word, 1, user_word.word_size); 1546 1547 name_string_index = name_string_index + user_word.word_size; 1548 go to retrn; 1549 1550 /* store report name */ 1551 1552 actlbl (217): /*action(130):*/ 1553 if file_number ^= 0 1554 then file_table.report_count = file_table.report_count + 1; 1555 /* write report_rec */ 1556 if bnw ^= 0 1557 then do; 1558 rnt_size = data_name.size; 1559 1560 call cobol_vdwf_sput (cobol_ntfp, fstatus, dn_ptr, rnt_size, w_key); 1561 1562 bnw = 0; 1563 end; 1564 1565 com2_ptr = addr (cobol_wkbuf1_tbl.wkbuf1); 1566 ptr4 = addr (cobol_wkbuf1_tbl); 1567 ptr4 -> cntbuf = 0; 1568 report_rec.next = null_key; 1569 report_rec.line = user_word.line; 1570 report_rec.column = user_word.column; 1571 report_rec.fileno = fd_token.file_no; 1572 report_rec.size = user_word.word_size; 1573 1574 substr (report_rec.name, 1, report_rec.size) = substr (user_word.word, 1, user_word.word_size); 1575 1576 cm_ptr = com2_ptr; 1577 cm_size = report_rec_constant + report_rec.size; 1578 1579 call cobol_vdwf_sput (cobol_cmfp, fstatus, cm_ptr, cm_size, cm_key); 1580 1581 if prior_report_rec ^= null_key 1582 then go to s_report_next; 1583 1584 fixed_common.report_names = cm_key; 1585 prior_report_rec = cm_key; 1586 go to retrn; 1587 1588 s_report_next: 1589 rcm_key = prior_report_rec; 1590 1591 call cobol_vdwf_dget (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 1592 1593 if substr (fstatus, 17, 16) ^= "0000000000000000"b 1594 then go to retrn; 1595 1596 com2_ptr = cm_ptr; 1597 report_rec.next = cm_key; 1598 1599 call cobol_vdwf_dput (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 1600 1601 prior_report_rec = cm_key; 1602 go to retrn; /* store body data name for linage */ 1603 1604 actlbl (218): /*action(131):*/ 1605 fd_ind.linage_type.body = "1"b; 1606 linage_rec.body = linage_rec.name_count + 1; 1607 linage_name_rec.desc = 1; 1608 1609 call write_linage_name_rec; 1610 1611 linage_rec.body_name = cm_key; 1612 go to retrn; /* store body integer for linage */ 1613 1614 actlbl (219): /*action(132):*/ 1615 fd_ind.linage_type.body = "1"b; 1616 linage_rec.body = 5; /*[5.1-1]*/ 1617 if record.type = 2 1618 then linage_rec.body_int = fixed (numeric_lit.literal); 1619 else linage_rec.body_int = 0; 1620 go to retrn; /* Store integer for linage top */ 1621 1622 actlbl (220): /*action(133):*/ 1623 fd_ind.linage_type.top = "1"b; 1624 linage_rec.top = 5; /*[5.1-1]*/ 1625 if record.type = 2 1626 then linage_rec.top_int = fixed (numeric_lit.literal); 1627 else linage_rec.top_int = 0; 1628 go to retrn; 1629 1630 1631 write_linage_name_rec: 1632 proc; /*store linage data name into common*/ 1633 linage_name_rec.next = null_key; 1634 linage_name_rec.line = user_word.line; 1635 linage_name_rec.column = user_word.column; 1636 linage_name_rec.fileno = fd_token.file_no; 1637 linage_name_rec.size = user_word.word_size; 1638 1639 substr (linage_name_rec.name, 1, linage_name_rec.size) = substr (user_word.word, 1, user_word.word_size); 1640 1641 cm_ptr = com2_ptr; 1642 cm_size = linage_name_rec_constant + linage_name_rec.size; 1643 1644 call cobol_vdwf_sput (cobol_cmfp, fstatus, cm_ptr, cm_size, cm_key); 1645 1646 linage_rec.name_count = linage_rec.name_count + 1; 1647 1648 if prior_linage_name_rec ^= null_key 1649 then go to linage_next; 1650 1651 fixed_common.linage_info = cm_key; 1652 prior_linage_name_rec = cm_key; 1653 1654 return; 1655 1656 linage_next: 1657 rcm_key = prior_linage_name_rec; 1658 1659 call cobol_vdwf_dget (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 1660 1661 if substr (fstatus, 17, 16) ^= "0000000000000000"b 1662 then return; 1663 1664 cm_ptr -> linage_name_rec.next = cm_key; 1665 1666 prior_linage_name_rec = cm_key; 1667 end write_linage_name_rec; 1668 1669 actlbl (221): /*action(134):*/ 1670 /**** not done *****/ 1671 go to retrn; 1672 1673 /* all_lit */ 1674 1675 actlbl (222): /*action(135):*/ 1676 alphainit.initype.all_lit = "1"b; 1677 1678 go to retrn; 1679 1680 /* set ptr1 after occrus clause */ 1681 1682 actlbl (223): /*action(137):*/ 1683 ptr1 = addr (dn_ptr -> any_item (data_name.size + 1)); 1684 1685 go to retrn; /* set level indicator to 0 */ 1686 1687 actlbl (224): /*action(138):*/ 1688 ll01 = "0"b; 1689 ll77 = "0"b; 1690 go to retrn; 1691 1692 /* add key structure length to size */ 1693 1694 actlbl (225): /*action(139):*/ 1695 /* data_name.size = data_name.size + ks_constant + ks_cnt_constant*keys.keycount;*/ 1696 go to retrn; 1697 /***** communication section action routines *****/ 1698 /* cms section init */ 1699 1700 actlbl (226): /*action(140):*/ 1701 substr (section_ind, 5, 1) = "1"b; 1702 substr (vector_part, 1, 6) = "000010"b; 1703 cd_initial = "0"b; 1704 ll01 = "1"b; 1705 cdno = 0; 1706 go to retrn; /* cd entry init */ 1707 1708 actlbl (227): /*action(141):*/ 1709 if fixed_common.comp_level < "5" 1710 then if record.column < 8 | record.column > 11 1711 then do; 1712 tf = 133; 1713 call diag_level; 1714 end; 1715 1716 if ll01 = "0"b 1717 then do; 1718 tf = 101; 1719 call diag; 1720 end; 1721 1722 ll01 = "0"b; 1723 ptr4 = addr (cobol_wkbuf2_tbl); 1724 ptr4 -> cntbuf2 = 0; 1725 cdtoken.def_line = record.line; /* cdtoken.level = 0; */ 1726 cdtoken.column = record.column; 1727 cdtoken.size = cd_constant; 1728 cdtoken.type = 13; 1729 cdno = cdno - 1; 1730 1731 do i = 1 to 11; 1732 cd_size (i) = 0; 1733 end; 1734 1735 cd_clauses = "0"b; 1736 save_cdo = 0; 1737 go to retrn; /* store cd name */ 1738 1739 actlbl (228): /*action(142):*/ 1740 /*[4.4-1]*/ 1741 fixed_common.cd = "1"b; 1742 cdtoken.name_size = user_word.word_size; 1743 1744 substr (cdtoken.name, 1, cdtoken.name_size) = substr (user_word.word, 1, user_word.word_size); 1745 1746 cdtoken.size = cdtoken.size + cdtoken.name_size; 1747 1748 cdtoken.size = cdtoken.size + mod (-cdtoken.size, 4); 1749 1750 go to retrn; /* set cd output option indicator and write cd entry */ 1751 1752 actlbl (229): /*action(143):*/ 1753 cdtoken.options.output = "1"b; 1754 cd_clauses = "0"b; 1755 1756 call write_cd; 1757 call cdinit; 1758 1759 data_name.level = 1; 1760 data_name.item_length = 16; 1761 1762 ptr8 = addr (data_name.file_section); 1763 1764 ptr8 -> bit72 = "000010010100000000010000000100000000000000000001000000000000000000000100"b; 1765 data_name.size = dn_constant; 1766 1767 data_name.size = data_name.size + mod (-data_name.size, 4); 1768 1769 data_name.initial_ptr = data_name.size + 1; 1770 ptr1 = addr (dn_ptr -> any_item (data_name.initial_ptr)); 1771 alphainit.initype.non_numeric = "1"b; 1772 alphainit.length = data_name.item_length; 1773 ptr11 = addr (output_cd_prefix_initval); 1774 alphainit.string = output_cd_string; 1775 data_name.size = data_name.size + aiv_constant + alphainit.length; 1776 1777 /* call cobol_vdwf_sput(cobol_ntfp,fstatus,dn_ptr,data_name.size,w_key); */ 1778 1779 data_name.initial_ptr = 0; 1780 index_ct = 0; 1781 go to retrn; 1782 1783 1784 1785 write_cd: 1786 proc; /* write cd entry */ 1787 rnt_size = cdtoken.size; 1788 cdtoken.cd_num = cdno; 1789 cdtoken.mdest = 1; 1790 1791 call cobol_vdwf_sput (cobol_ntfp, fstatus, w2_ptr, rnt_size, w_key); 1792 1793 save_fd = w_key; 1794 return; 1795 end write_cd; 1796 1797 1798 /* set cd input bit and write cd entry */ 1799 1800 actlbl (230): /*action(144):*/ 1801 cdtoken.options.input = "1"b; 1802 cd_clauses = "0"b; 1803 substr (cd_clauses, 12, 1) = "1"b; /*stands for input cd*/ 1804 1805 call write_cd; 1806 call cdinit; 1807 1808 data_name.level = 1; 1809 data_name.item_length = 16; 1810 1811 ptr8 = addr (data_name.file_section); 1812 1813 ptr8 -> bit72 = "000010010100000000010000000100000000000000000001000000000000000000000100"b; 1814 data_name.size = dn_constant; 1815 1816 data_name.size = data_name.size + mod (-data_name.size, 4); 1817 1818 data_name.initial_ptr = data_name.size + 1; 1819 ptr1 = addr (dn_ptr -> any_item (data_name.initial_ptr)); 1820 alphainit.initype.non_numeric = "1"b; 1821 alphainit.length = data_name.item_length; 1822 ptr11 = addr (input_cd_prefix_initval); 1823 alphainit.string = input_cd_string; 1824 data_name.size = data_name.size + aiv_constant + alphainit.length; 1825 1826 /* call cobol_vdwf_sput(cobol_ntfp,fstatus,dn_ptr,data_name.size,w_key); */ 1827 1828 data_name.initial_ptr = 0; 1829 go to retrn; 1830 1831 /* set cd initial bit */ 1832 1833 actlbl (231): /*action(145):*/ 1834 cdtoken.options.initial = "1"b; 1835 cd_initial = "1"b; 1836 go to retrn; /* set cd data name index to 1 */ 1837 1838 actlbl (232): /*action(146):*/ 1839 cd_index = 0; 1840 go to retrn; /* store data name for cd */ 1841 1842 actlbl (233): /*action(147):*/ 1843 if cd_index > 11 1844 then go to na147; 1845 1846 cd_index = cd_index + 1; 1847 go to act150; 1848 1849 na147: 1850 tf = 102; 1851 call diag; 1852 go to retrn; /* store filler name for cd entry */ 1853 1854 actlbl (234): /*action(148):*/ 1855 cd_index = cd_index + 1; 1856 1857 if cd_index <= 11 1858 then do; 1859 cd_size (cd_index) = 6; 1860 substr (cd_name (cd_index), 1, 6) = "FILLER"; 1861 go to retrn; 1862 end; 1863 1864 tf = 102; 1865 call diag; 1866 go to retrn; /* generate cd input record based on options */ 1867 1868 actlbl (235): /*action(149):*/ 1869 ll01 = "1"b; 1870 1871 do i = 1 to 11; 1872 1873 if substr (cd_clauses, i, 1) ^= "0"b 1874 then go to enda149; 1875 1876 cd_size (i) = 6; 1877 substr (cd_name (i), 1, 6) = "FILLER"; 1878 enda149: 1879 end; 1880 1881 g149: /*generate cd data name 0*/ 1882 data_name.name_size = 6; 1883 1884 substr (data_name.name, 1, data_name.name_size) = "FILLER"; 1885 1886 data_name.offset = 0; 1887 data_name.level = 1; 1888 data_name.item_length = 87; 1889 data_name.places_right = 0; 1890 ptr8 = addr (data_name.file_section); 1891 1892 ptr8 -> bit72 = "0000100110100000000100000001000000000000000000000000000000000000"b; 1893 data_name.size = dn_constant + data_name.name_size; 1894 1895 call write_dn; 1896 1897 temp_bin1 = 0; 1898 1899 call cdinit; /*generate cd data names 1 - 4 */ 1900 data_name.level = 2; 1901 data_name.item_length = 12; 1902 data_name.places_left = 12; 1903 1904 ptr8 -> bit72 = "0000100001000000000100000001000000000000000000000000000000000000"b; 1905 1906 do i = 1 to 4; 1907 data_name.name_size = cd_size (i); 1908 1909 substr (data_name.name, 1, data_name.name_size) = substr (cd_name (i), 1, data_name.name_size); 1910 1911 data_name.size = dn_constant + data_name.name_size; 1912 1913 data_name.size = data_name.size + mod (-data_name.size, 4); 1914 1915 data_name.initial_ptr = data_name.size + 1; 1916 ptr1 = addr (dn_ptr -> any_item (data_name.initial_ptr)); 1917 1918 alphainit.initype.non_numeric = "1"b; 1919 alphainit.length = 12; 1920 alphainit.string = " "; 1921 1922 data_name.size = data_name.size + aiv_constant + 12; 1923 data_name.offset = temp_bin1; 1924 temp_bin1 = temp_bin1 + 12; 1925 1926 call write_dn; 1927 end; 1928 1929 data_name.initial_ptr = 0; /* generate cd data name 5 */ 1930 i = 5; 1931 data_name.item_length = 6; 1932 1933 ptr8 -> bit72 = "0000100001000000010000000001000000000000000000000000100000000000"b; 1934 1935 call gen_dn; /* generate cd data name 6 */ 1936 i = 6; 1937 data_name.item_length = 8; 1938 1939 call gen_dn; /* generate cd data name 7 */ 1940 i = 7; 1941 data_name.item_length = 12; 1942 1943 ptr8 -> bit72 = "0000100001000000000100000001000000000000000000000000000000000000"b; 1944 1945 call gen_dn; /* generae cd data name 8 */ 1946 i = 8; 1947 data_name.item_length = 4; 1948 ptr8 -> bit72 = "0000100001000000010000000001000000000000000000000000100000000000"b; 1949 1950 call gen_dn; /* generate cd data name 9 */ 1951 i = 9; 1952 data_name.item_length = 1; 1953 1954 ptr8 -> bit72 = "0000100001000000000100000001000000000000000000000000000000000000"b; 1955 1956 call gen_dn; /* generate cd data name 10 */ 1957 i = 10; 1958 data_name.item_length = 2; 1959 1960 call gen_dn; /* generate cd data name 11 */ 1961 i = 11; 1962 data_name.item_length = 6; 1963 1964 ptr8 -> bit72 = "0000100001000000010000000001000000000000000000000000100000000000"b; 1965 1966 call gen_dn; 1967 go to retrn; 1968 1969 cdinit: 1970 proc; 1971 ptr4 = addr (cobol_wkbuf1_tbl); 1972 ptr4 -> cntbuf = 0; 1973 data_name.type = 9; 1974 data_name.def_line = cdtoken.def_line; 1975 data_name.column = cdtoken.column; 1976 data_name.file_num = cdno; 1977 end cdinit; 1978 1979 1980 1981 gen_dn: 1982 proc; 1983 data_name.name_size = cd_size (i); 1984 data_name.size = data_name.name_size + dn_constant; 1985 1986 substr (data_name.name, 1, data_name.name_size) = substr (cd_name (i), 1, data_name.name_size); 1987 1988 data_name.places_right = 0; 1989 1990 data_name.places_left = data_name.item_length; 1991 1992 1993 data_name.offset = temp_bin1; 1994 temp_bin1 = temp_bin1 + data_name.item_length; 1995 1996 call write_dn; 1997 1998 end gen_dn; 1999 2000 2001 2002 write_dn: 2003 proc; 2004 rnt_size = data_name.size; 2005 2006 call cobol_vdwf_sput (cobol_ntfp, fstatus, dn_ptr, rnt_size, w_key); 2007 2008 end write_dn; 2009 2010 2011 /* cd index 1 */ 2012 2013 actlbl (236): /*action(150):*/ 2014 cd_index = 1; 2015 act150: 2016 substr (cd_clauses, cd_index, 1) = "1"b; 2017 2018 call cd_dn; 2019 go to retrn; /* cd index = 2 */ 2020 2021 actlbl (237): /*action(151):*/ 2022 cd_index = 2; 2023 go to act150; /* cd index = 3 */ 2024 2025 actlbl (238): /*action(152):*/ 2026 cd_index = 3; 2027 go to act150; /* cd index = 4 */ 2028 2029 actlbl (239): /*action(153):*/ 2030 cd_index = 4; 2031 go to act150; /* cd index = 5 */ 2032 2033 actlbl (240): /*action(154):*/ 2034 cd_index = 5; 2035 go to act150; /* cd index = 6 */ 2036 2037 actlbl (241): /*action(155):*/ 2038 cd_index = 6; 2039 go to act150; /* cd index = 7 */ 2040 2041 actlbl (242): /*action(156):*/ 2042 cd_index = 7; 2043 go to act150; /* cd index = 8 */ 2044 2045 actlbl (243): /*action(157):*/ 2046 cd_index = 8; 2047 go to act150; /* cd index = 9 */ 2048 2049 actlbl (244): /*action(158):*/ 2050 cd_index = 9; 2051 go to act150; /* cd index = 10 */ 2052 2053 actlbl (245): /*action(159):*/ 2054 cd_index = 10; 2055 go to act150; /* cd index = 11 */ 2056 2057 actlbl (246): /*action(160):*/ 2058 cd_index = 11; 2059 go to act150; 2060 2061 2062 cd_dn: 2063 proc; 2064 if rw.type = 1 /*FILLER*/ 2065 then do; 2066 cd_size (cd_index) = 6; 2067 substr (cd_name (cd_index), 1, 6) = "FILLER"; 2068 end; 2069 else do; 2070 cd_size (cd_index) = user_word.word_size; 2071 2072 substr (cd_name (cd_index), 1, cd_size (cd_index)) = substr (user_word.word, 1, user_word.word_size); 2073 2074 end; 2075 2076 return; 2077 end cd_dn; 2078 2079 2080 /* generate cd output data names and indexed names */ 2081 2082 actlbl (247): /*action(161):*/ 2083 ll01 = "1"b; 2084 2085 do i = 1 to 5; 2086 if substr (cd_clauses, i, 1) ^= "0"b 2087 then go to enda161; 2088 2089 cd_size (i) = 6; 2090 substr (cd_name (i), 1, 6) = "FILLER"; 2091 enda161: 2092 end; 2093 2094 if save_cdo = 0 2095 then save_cdo = 1; /* generate cd output data name 0 */ 2096 data_name.name_size = 6; 2097 2098 substr (data_name.name, 1, data_name.name_size) = "FILLER"; 2099 2100 data_name.offset = 0; 2101 data_name.level = 1; 2102 data_name.item_length = (10 + (13 * save_cdo)); 2103 data_name.places_right = 0; 2104 ptr8 = addr (data_name.file_section); 2105 2106 ptr8 -> bit72 = "0000100110100000000100000001000000000000000000000000000000000000"b; 2107 data_name.size = dn_constant + data_name.name_size; 2108 2109 call write_dn; 2110 call cdinit; /* generate cd output data name 1 2 */ 2111 data_name.level = 2; 2112 temp_bin1 = 0; 2113 data_name.item_length = 4; 2114 2115 ptr8 -> bit72 = "0000100001000000010000000001000000000000000000000000100000000000"b; 2116 2117 do i = 1 to 2; 2118 call gen_dn; 2119 end; 2120 2121 /* generate data name 3 for cd output */ 2122 data_name.item_length = 2; 2123 data_name.places_left = 2; 2124 ptr8 -> bit72 = "0000100001000000000100000001000000000000000000000000000000000000"b; 2125 2126 call gen_dn; 2127 2128 if save_cdo > 1 2129 then ; 2130 else go to gend4; 2131 2132 ptr8 -> bit72 = "000010001000000000010000000000000000000001000000000000000000000001"b; 2133 data_name.name_size = 6; 2134 2135 substr (data_name.name, 1, data_name.name_size) = "FILLER"; 2136 2137 data_name.item_length = 13; 2138 data_name.places_left = 0; 2139 data_name.size = dn_constant + data_name.name_size; 2140 2141 data_name.size = data_name.size + mod (-data_name.size, 4); 2142 2143 ptr1 = addr (dn_ptr -> any_item (data_name.size + 1)); 2144 data_name.occurs_ptr = data_name.size + 1; 2145 occurs.keyed = 0; 2146 occurs.key_number = 0; 2147 odim = 1; 2148 2149 occurs.dimensions = 1; 2150 occurs.level.max (1) = save_cdo; 2151 occurs.level.struclength (1) = 13; 2152 occurs.level.cswd (1) = 0; 2153 2154 if index_ct = 0 2155 then occurs.level.indexedno (odim) = 0; 2156 else do; 2157 counter2 = counter2 + 1; 2158 occurs.level.indexedno (odim) = counter2; 2159 data_name.indexed_by = "1"b; 2160 end; 2161 size161: 2162 data_name.size = data_name.size + occ_constant + occ_dim_constant; 2163 2164 if index_ct <= 0 2165 then go to wcddn3; 2166 2167 /* write index name for occurs cd */ 2168 ptr4 = addr (cobol_wkbuf2_tbl); 2169 ptr4 -> cntbuf2 = 0; 2170 2171 indexname.type = 10; 2172 indexname.level = 99; 2173 indexname.index_no = counter2; 2174 indexname.min = occurs.level.min (1); 2175 indexname.max = occurs.level.max (1); 2176 2177 do i = 6 to 5 + index_ct; 2178 indexname.name_size = cd_size (i); 2179 2180 2181 substr (indexname.name, 1, indexname.name_size) = substr (cd_name (i), 1, cd_size (i)); 2182 2183 indexname.size = in_constant + indexname.name_size; 2184 rnt_size = indexname.size; 2185 2186 call cobol_vdwf_sput (cobol_ntfp, fstatus, w2_ptr, rnt_size, w_key); 2187 2188 end; 2189 2190 wcddn3: 2191 rnt_size = data_name.size; 2192 2193 call cobol_vdwf_sput (cobol_ntfp, fstatus, dn_ptr, rnt_size, w_key); 2194 2195 /* generate data name 4 for cd output */ 2196 gend4: /* save occurs extension in buffer2 */ 2197 if save_cdo > 1 2198 then substr (cobol_wkbuf2_tbl.wkbuf2, 1, occ_constant + occ_dim_constant) = 2199 substr (cobol_wkbuf1_tbl.wkbuf1, data_name.occurs_ptr, occ_constant + occ_dim_constant); 2200 2201 do i = 4 to 5; 2202 data_name.name_size = cd_size (i); 2203 data_name.size = dn_constant + data_name.name_size; 2204 2205 data_name.size = data_name.size + mod (-data_name.size, 4); 2206 2207 data_name.offset = temp_bin1; 2208 substr (data_name.name, 1, data_name.name_size) = cd_name (i); 2209 2210 if i = 4 2211 then do; 2212 data_name.item_length = 1; 2213 data_name.places_left = 1; 2214 end; 2215 else do; 2216 data_name.item_length = 12; 2217 data_name.places_left = 12; 2218 end; 2219 2220 if save_cdo > 1 2221 then do; 2222 2223 ptr8 -> bit72 = "0000100001000000000100000001000000000000010000000000000000000000"b; 2224 2225 /* inherit occurs extension */ 2226 data_name.occurs_ptr = data_name.size + 1; 2227 2228 substr (cobol_wkbuf1_tbl.wkbuf1, data_name.occurs_ptr, occ_constant + occ_dim_constant) = 2229 substr (cobol_wkbuf2_tbl.wkbuf2, 1, occ_constant + occ_dim_constant); 2230 2231 data_name.size = data_name.size + occ_constant + occ_dim_constant; 2232 data_name.level = 3; 2233 2234 end; 2235 else ptr8 -> bit72 = "0000100001000000000100000001000000000000000000000000000000000000"b; 2236 2237 temp_bin1 = temp_bin1 + data_name.item_length; 2238 rnt_size = data_name.size; 2239 2240 call cobol_vdwf_sput (cobol_ntfp, fstatus, dn_ptr, rnt_size, w_key); 2241 2242 end; 2243 2244 data_name.level = 2; 2245 2246 if save_cdo > 1 2247 then do; 2248 save_wkey = w_key; 2249 w_key = save_fd; 2250 2251 call cobol_vdwf_dget (cobol_ntfp, fstatus, cd_ptr, rnt_size, w_key); 2252 2253 cd_ptr -> cdtoken.mdest = save_cdo; 2254 2255 call cobol_vdwf_dput (cobol_ntfp, fstatus, cd_ptr, rnt_size, w_key); 2256 2257 w_key = save_wkey; 2258 end; 2259 2260 go to retrn; /* save integer for destination table */ 2261 2262 actlbl (248): /*action(162):*/ 2263 /*[5.1-1]*/ 2264 if record.type = 2 2265 then save_cdo = fixed (numeric_lit.literal); 2266 else save_cdo = 0; 2267 2268 if fixed_common.comp_level < "3" 2269 then if save_cdo > 1 2270 then do; 2271 tf = 164; 2272 call diag_level; 2273 end; 2274 go to retrn; 2275 2276 /* initialize cd output index names */ 2277 2278 actlbl (249): /*action(163):*/ 2279 go to retrn; /* generate index names for cd output */ 2280 2281 actlbl (250): /*action(164):*/ 2282 index_ct = index_ct + 1; 2283 2284 if 5 + index_ct <= 11 2285 then go to na164; 2286 2287 tf = 95; 2288 call diag; 2289 go to retrn; 2290 2291 na164: 2292 cd_index = 5 + index_ct; 2293 2294 call cd_dn; 2295 2296 go to retrn; /* save index names in 6 - 11 cd name array */ 2297 2298 /* create occ_key item for odo key */ 2299 2300 actlbl (251): /*action(165):*/ 2301 vector_map.subject_of_keyis = "1"b; 2302 prior_skey_rec = null_key; 2303 com2_ptr = addr (cobol_wkbuf2_tbl.wkbuf2); 2304 ptr4 = addr (cobol_wkbuf2_tbl); 2305 ptr4 -> cntbuf2 = 0; 2306 occ_key.next = null_key; 2307 occ_key.rec_no = save_01; 2308 occ_key.lineno = record.line; /* write occ_key item into common */ 2309 cm_ptr = com2_ptr; 2310 cm_size = occ_key_constant; 2311 2312 call cobol_vdwf_sput (cobol_cmfp, fstatus, cm_ptr, cm_size, cm_key); 2313 2314 if prior_occ_key ^= null_key 2315 then go to occ_key_next; 2316 2317 fixed_common.search_keys = cm_key; 2318 prior_occ_key = cm_key; 2319 go to retrn; 2320 2321 occ_key_next: 2322 rcm_key = prior_occ_key; 2323 2324 call cobol_vdwf_dget (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 2325 2326 com2_ptr = cm_ptr; 2327 occ_key.next = cm_key; 2328 2329 call cobol_vdwf_dput (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 2330 2331 prior_occ_key = cm_key; 2332 go to retrn; 2333 2334 /* store qualifier for occ_key item */ 2335 2336 actlbl (252): /*action(166):*/ 2337 call qualifier; 2338 2339 if prior_qual_rec ^= null_key 2340 then go to skey_qual; 2341 2342 rcm_key = prior_skey_rec; 2343 2344 call cobol_vdwf_dget (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 2345 2346 skey_ptr = cm_ptr; 2347 skey_rec.qual = cm_key; 2348 2349 call cobol_vdwf_dput (cobol_cmfp, fstatus, cm_ptr, cm_size, rcm_key); 2350 2351 prior_qual_rec = cm_key; 2352 go to retrn; 2353 2354 skey_qual: 2355 call store_qualifier; 2356 go to retrn; 2357 2358 actlbl (253): /* action(78) */ 2359 fixed_common.init_cd = "1"b; 2360 2361 go to retrn; 2362 2363 /*action(92):*/ 2364 ; 2365 2366 /*action(93):*/ 2367 ; 2368 2369 /*action(97):*/ 2370 ; 2371 2372 /*action(98):*/ 2373 2374 2375 retrn: 2376 return; 2377 2378 /*[4.0-1]*/ 2379 declare cobol_ddsyntax$init_file_tab 2380 entry; 2381 2382 dcl rn fixed bin; 2383 dcl an fixed bin; 2384 dcl max_poss_extensions fixed bin internal static init (314); 2385 dcl tf fixed bin; 2386 dcl fstatus bit (32); /*io return code*/ 2387 dcl null_func ptr init (null ()) internal static; 2388 dcl null_key char (5) internal static init ("00000"); 2389 dcl ptr11 ptr; 2390 declare BIT8 bit (8) based; /* [3.0-1] */ 2391 dcl input_cd_string char (16) based (ptr11); 2392 2393 dcl output_cd_string char (16) based (ptr11); 2394 2395 declare cd_ptr ptr; 2396 2397 dcl 1 input_cd_prefix_initval 2398 static, 2399 2 cdtype bit (1) init ("1"b), 2400 2 usertype bit (1) init ("1"b), 2401 2 convert bit (1) init ("1"b), 2402 2 textln fixed bin init (0), 2403 2 mcount fixed bin init (0), 2404 2 seqno fixed bin init (0); 2405 2406 dcl 1 output_cd_prefix_initval 2407 static, 2408 2 cdtype bit (1) init ("0"b), 2409 2 usertype bit (1) init ("1"b), 2410 2 convert bit (1) init ("1"b), 2411 2 textln fixed bin init (0), 2412 2 dcount fixed bin init (1), 2413 2 seqno fixed bin init (0); 2414 2415 declare (addr, size, mod, substr, unspec, fixed) 2416 builtin; 2417 2418 1 1 1 2 /* BEGIN INCLUDE FILE ... cobol_ext_.incl.pl1 */ 1 3 /* Last modified on 06/17/76 by ORN */ 1 4 /* Last modified on 12/28/76 by FCH */ 1 5 /* Last modified on 12/01/80 by FCH */ 1 6 1 7 /* <<< SHARED EXTERNALS INCLUDE FILE >>> */ 1 8 1 9 1 10 dcl cobol_ext_$cobol_afp ptr ext; 1 11 dcl cobol_afp ptr defined ( cobol_ext_$cobol_afp); 1 12 dcl cobol_ext_$cobol_analin_fileno ptr ext; 1 13 dcl cobol_analin_fileno ptr defined ( cobol_ext_$cobol_analin_fileno); 1 14 dcl cobol_ext_$report_first_token ptr ext; 1 15 dcl report_first_token ptr defined( cobol_ext_$report_first_token); 1 16 dcl cobol_ext_$report_last_token ptr ext; 1 17 dcl report_last_token ptr defined ( cobol_ext_$report_last_token); 1 18 dcl cobol_ext_$cobol_eltp ptr ext; 1 19 dcl cobol_eltp ptr defined ( cobol_ext_$cobol_eltp); 1 20 dcl cobol_ext_$cobol_cmfp ptr ext; 1 21 dcl cobol_cmfp ptr defined ( cobol_ext_$cobol_cmfp); 1 22 dcl cobol_ext_$cobol_com_fileno ptr ext; 1 23 dcl cobol_com_fileno ptr defined ( cobol_ext_$cobol_com_fileno); 1 24 dcl cobol_ext_$cobol_com_ptr ptr ext; 1 25 dcl cobol_com_ptr ptr defined ( cobol_ext_$cobol_com_ptr); 1 26 dcl cobol_ext_$cobol_dfp ptr ext; 1 27 dcl cobol_dfp ptr defined ( cobol_ext_$cobol_dfp); 1 28 dcl cobol_ext_$cobol_hfp ptr ext; 1 29 dcl cobol_hfp ptr defined ( cobol_ext_$cobol_hfp); 1 30 dcl cobol_ext_$cobol_m1fp ptr ext; 1 31 dcl cobol_m1fp ptr defined ( cobol_ext_$cobol_m1fp); 1 32 dcl cobol_ext_$cobol_m2fp ptr ext; 1 33 dcl cobol_m2fp ptr defined ( cobol_ext_$cobol_m2fp); 1 34 dcl cobol_ext_$cobol_min1_fileno ptr ext; 1 35 dcl cobol_min1_fileno ptr defined ( cobol_ext_$cobol_min1_fileno); 1 36 dcl cobol_ext_$cobol_min2_fileno_ptr ptr ext; 1 37 dcl cobol_min2_fileno_ptr ptr defined ( cobol_ext_$cobol_min2_fileno_ptr); 1 38 dcl cobol_ext_$cobol_name_fileno ptr ext; 1 39 dcl cobol_name_fileno ptr defined ( cobol_ext_$cobol_name_fileno); 1 40 dcl cobol_ext_$cobol_name_fileno_ptr ptr ext; 1 41 dcl cobol_name_fileno_ptr ptr defined ( cobol_ext_$cobol_name_fileno_ptr); 1 42 dcl cobol_ext_$cobol_ntfp ptr ext; 1 43 dcl cobol_ntfp ptr defined ( cobol_ext_$cobol_ntfp); 1 44 dcl cobol_ext_$cobol_pdofp ptr ext; 1 45 dcl cobol_pdofp ptr defined ( cobol_ext_$cobol_pdofp); 1 46 dcl cobol_ext_$cobol_pfp ptr ext; 1 47 dcl cobol_pfp ptr defined ( cobol_ext_$cobol_pfp); 1 48 dcl cobol_ext_$cobol_rm2fp ptr ext; 1 49 dcl cobol_rm2fp ptr defined ( cobol_ext_$cobol_rm2fp); 1 50 dcl cobol_ext_$cobol_rmin2fp ptr ext; 1 51 dcl cobol_rmin2fp ptr defined ( cobol_ext_$cobol_rmin2fp); 1 52 dcl cobol_ext_$cobol_curr_in ptr ext; 1 53 dcl cobol_curr_in ptr defined ( cobol_ext_$cobol_curr_in); 1 54 dcl cobol_ext_$cobol_curr_out ptr ext; 1 55 dcl cobol_curr_out ptr defined ( cobol_ext_$cobol_curr_out); 1 56 dcl cobol_ext_$cobol_sfp ptr ext; 1 57 dcl cobol_sfp ptr defined ( cobol_ext_$cobol_sfp); 1 58 dcl cobol_ext_$cobol_w1p ptr ext; 1 59 dcl cobol_w1p ptr defined ( cobol_ext_$cobol_w1p); 1 60 dcl cobol_ext_$cobol_w2p ptr ext; 1 61 dcl cobol_w2p ptr defined ( cobol_ext_$cobol_w2p); 1 62 dcl cobol_ext_$cobol_w3p ptr ext; 1 63 dcl cobol_w3p ptr defined ( cobol_ext_$cobol_w3p); 1 64 dcl cobol_ext_$cobol_w5p ptr ext; 1 65 dcl cobol_w5p ptr defined ( cobol_ext_$cobol_w5p); 1 66 dcl cobol_ext_$cobol_w6p ptr ext; 1 67 dcl cobol_w6p ptr defined ( cobol_ext_$cobol_w6p); 1 68 dcl cobol_ext_$cobol_w7p ptr ext; 1 69 dcl cobol_w7p ptr defined ( cobol_ext_$cobol_w7p); 1 70 dcl cobol_ext_$cobol_x3fp ptr ext; 1 71 dcl cobol_x3fp ptr defined ( cobol_ext_$cobol_x3fp); 1 72 dcl cobol_ext_$cobol_rwdd ptr ext; 1 73 dcl cobol_rwdd ptr defined(cobol_ext_$cobol_rwdd); 1 74 dcl cobol_ext_$cobol_rwpd ptr ext; 1 75 dcl cobol_rwpd ptr defined(cobol_ext_$cobol_rwpd); 1 76 1 77 1 78 dcl cobol_ext_$cobol_fileno1 fixed bin(24)ext; 1 79 dcl cobol_fileno1 fixed bin(24)defined ( cobol_ext_$cobol_fileno1); 1 80 dcl cobol_ext_$cobol_options_len fixed bin(24)ext; 1 81 dcl cobol_options_len fixed bin(24)defined ( cobol_ext_$cobol_options_len); 1 82 dcl cobol_ext_$cobol_pdout_fileno fixed bin(24)ext; 1 83 dcl cobol_pdout_fileno fixed bin(24)defined ( cobol_ext_$cobol_pdout_fileno); 1 84 dcl cobol_ext_$cobol_print_fileno fixed bin(24)ext; 1 85 dcl cobol_print_fileno fixed bin(24)defined ( cobol_ext_$cobol_print_fileno); 1 86 dcl cobol_ext_$cobol_rmin2_fileno fixed bin(24)ext; 1 87 dcl cobol_rmin2_fileno fixed bin(24)defined ( cobol_ext_$cobol_rmin2_fileno); 1 88 dcl cobol_ext_$cobol_x1_fileno fixed bin(24)ext; 1 89 dcl cobol_x1_fileno fixed bin(24)defined ( cobol_ext_$cobol_x1_fileno); 1 90 dcl cobol_ext_$cobol_x2_fileno fixed bin(24)ext; 1 91 dcl cobol_x2_fileno fixed bin(24)defined ( cobol_ext_$cobol_x2_fileno); 1 92 dcl cobol_ext_$cobol_x3_fileno fixed bin(24)ext; 1 93 dcl cobol_x3_fileno fixed bin(24)defined ( cobol_ext_$cobol_x3_fileno); 1 94 1 95 dcl cobol_ext_$cobol_lpr char (5) ext; 1 96 dcl cobol_lpr char (5) defined ( cobol_ext_$cobol_lpr); /* -2- */ 1 97 dcl cobol_ext_$cobol_options char (120) ext; 1 98 dcl cobol_options char (120) defined ( cobol_ext_$cobol_options); /* -30- */ 1 99 1 100 dcl cobol_ext_$cobol_xlast8 bit (1) ext; 1 101 dcl cobol_xlast8 bit (1) defined ( cobol_ext_$cobol_xlast8); /* -1- */ 1 102 dcl cobol_ext_$report_exists bit (1) ext; 1 103 dcl report_exists bit (1) defined ( cobol_ext_$report_exists); 1 104 1 105 1 106 /* <<< END OF SHARED EXTERNALS INCLUDE FILE >>> */ 1 107 /* END INCLUDE FILE ... cobol_ext_.incl.pl1 */ 1 108 2419 2420 2 1 2 2 /* BEGIN INCLUDE FILE ... cobol_ext_ddsyn.incl.pl1 */ 2 3 /* Last modified on 06/18/76 by ORN */ 2 4 2 5 /**********>UDD>L2COBOL>INCLUDE>A_COBOL_EXT_DDSYN INCLUDE FILE**********/ 2 6 dcl cobol_ext_ddsyn$cobol_sv_ptr ptr ext; 2 7 dcl cobol_sv_ptr ptr defined ( cobol_ext_ddsyn$cobol_sv_ptr); /*to shared_variables*/ 2 8 dcl 1 cobol_ext_ddsyn$cobol_wkbuf1_tbl ext like cobol_wkbuf1_tbl; 2 9 dcl 1 cobol_wkbuf1_tbl defined ( cobol_ext_ddsyn$cobol_wkbuf1_tbl), /* -250- */ 2 10 2 wkbuf1 char(1000); 2 11 dcl 1 cobol_ext_ddsyn$cobol_wkbuf2_tbl ext like cobol_wkbuf2_tbl; 2 12 dcl 1 cobol_wkbuf2_tbl defined ( cobol_ext_ddsyn$cobol_wkbuf2_tbl), /* -125- */ 2 13 2 wkbuf2 char(500); 2 14 dcl 1 cobol_ext_ddsyn$cobol_htbl (49) ext like cobol_htbl; 2 15 dcl 1 cobol_htbl (49) defined ( cobol_ext_ddsyn$cobol_htbl), /* -343- */ /*hierarchy table*/ 2 16 2 level fixed bin, /*level*/ 2 17 2 item_length fixed bin, /*byte length*/ 2 18 2 occno fixed bin, /*number of occurrences per OCCURS clause*/ 2 19 2 nt_rec char(5), /*write ads in NT*/ 2 20 2 do_rec char(5), /*write ads in COM for object of length or occurs DEPENDING*/ 2 21 2 minivector bit(18), /*store vector bits not in type9token for inheritance*/ 2 22 2 nt_rec_valid bit(1), /*set if nt_rec has been set*/ 2 23 2 do_rec_valid bit(1), /*set if do_rec has been set*/ 2 24 2 occurs_clause bit(1), /*set for item has OCCURS*/ 2 25 2 odo_switch bit(1), /*set for item has occurs depending clause*/ 2 26 2 occurs_ext bit(1), /*set for item has occurs extension*/ 2 27 2 switch_88 bit(1), /*set for item has associated level 88 items*/ 2 28 2 exp_redefining bit(1); /*set for subject of REDEFINES*/ 2 29 /* 2 30* 3 of_no_interest1 bit(4), 2 31* 3 value_clause bit(1), 2 32* 3 of_no_interest2 bit(4), 2 33* 3 inherit_value bit(1), 2 34* 3 code_set bit(1), 2 35* 3 assoc_with_pic_s bit(1), 2 36* 3 unused bit(6); 2 37**/ 2 38 /* END INCLUDE FILE ... cobol_ext_ddsyn.incl.pl1 */ 2 39 2421 2422 dcl sv_ptr_auto ptr; 3 1 3 2 /* BEGIN INCLUDE FILE ... cobol_special_dcls.incl.pl1 */ 3 3 /* last modified on 11/20/74 */ 3 4 dcl bits_per_char fixed bin static internal init (9); 3 5 dcl bits_per_word fixed bin static internal init (36); 3 6 dcl one_word_in_bits bit (36) static internal; 3 7 dcl chtbl (343) fixed bin(24) based(ptr4); 3 8 dcl cma (14) fixed bin(24) based(ptr4); 3 9 dcl cntbuf (250) fixed bin(24) based(ptr4); 3 10 dcl cntbuf2 (125) fixed bin(24) based(ptr4); 3 11 dcl chtbl_item (7) fixed bin(24) based; 3 12 /* END INCLUDE FILE ... cobol_special_dcls.incl.pl1 */ 3 13 2423 4 1 4 2 /* BEGIN INCLUDE FILE ... cobol_spec_constants.incl.pl1 */ 4 3 /* last modified on 11/20/74 */ 4 4 dcl msg_constant fixed bin static internal init (32); 4 5 dcl pd_db_constant fixed bin static internal init (8); 4 6 dcl dn_constant fixed bin static internal init (112); 4 7 dcl niv_constant fixed bin static internal init (20); 4 8 dcl aiv_constant fixed bin static internal init (8); 4 9 dcl ed_constant fixed bin static internal init (20); 4 10 dcl occ_constant fixed bin static internal init (12); 4 11 dcl occ_dim_constant fixed bin static internal init (24); 4 12 dcl in_constant fixed bin static internal init (80); 4 13 dcl cn_constant fixed bin static internal init (52); 4 14 dcl fd_constant fixed bin static internal init (48); 4 15 dcl cd_constant fixed bin static internal init (64); 4 16 dcl linage_rec_constant fixed bin static internal init (64); 4 17 dcl linage_name_rec_constant fixed bin static internal init (32); 4 18 dcl qual_rec_constant fixed bin static internal init (20); 4 19 dcl occ_key_constant fixed bin static internal init (36); 4 20 dcl report_rec_constant fixed bin static internal init (28); 4 21 dcl obj_rec_constant fixed bin static internal init (24); 4 22 dcl rename_rec_constant fixed bin static internal init (48); 4 23 dcl odo_rec_constant fixed bin static internal init (32); 4 24 dcl skey_rec_constant fixed bin static internal init (44); 4 25 dcl fkey_constant fixed bin static internal init (84); 4 26 /* END INCLUDE FILE ... cobol_spec_constants.incl.pl! */ 4 27 2424 2425 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 2426 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 2427 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 2428 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 2429 11 1 11 2 /* BEGIN INCLUDE FILE ... cobol_fd_token.incl.pl1 */ 11 3 /* last modified on 2/21/74 */ 11 4 dcl 1 fd_token based(w2_ptr), 12 1 12 2 /* BEGIN INCLUDE FILE ... cobol_FD_TOKEN.incl.pl1 */ 12 3 12 4 2 size fixed bin, 12 5 2 line fixed bin, 12 6 2 column fixed bin, 12 7 2 type fixed bin, /* FD =12 SD =16 */ 12 8 2 string_ptr ptr, 12 9 2 prev_rec ptr, 12 10 2 info bit(8), 12 11 2 def_line fixed bin, 12 12 2 file_no fixed bin, 12 13 2 name_size fixed bin, 12 14 2 name char(31); 12 15 12 16 /* END INCLUDE FILE ... cobol_FD_TOKEN.incl.pl1 */ 12 17 11 5 11 6 /* END INCLUDE FILE ... cobol_fd_token.incl.pl1 */ 11 7 2430 2431 declare 1 cdtoken based (cdtoken_ptr), 13 1 13 2 /* begin include file ... cobol_TYPE13.incl.pl1 13 3*/* Last modified on 11/18/76 by ORN */ 13 4 13 5 /* header */ 13 6 2 size fixed bin, 13 7 2 line fixed bin, 13 8 2 column fixed bin, 13 9 2 type fixed bin, /* cd = 13 */ 13 10 /* body */ 13 11 2 string_ptr ptr, 13 12 2 prev_rec ptr, 13 13 2 info, 13 14 3 searched bit(1), 13 15 3 duplicate bit(1), 13 16 3 filler1 bit(6), 13 17 2 options, 13 18 3 input bit(1), 13 19 3 output bit(1), 13 20 3 initial bit(1), 13 21 2 def_line fixed bin, 13 22 2 cd_num fixed bin, 13 23 2 cd_seg fixed bin, 13 24 2 cd_off fixed bin(24), 13 25 2 max_redef fixed bin, 13 26 2 mdest fixed bin, 13 27 2 name_size fixed bin, 13 28 2 name char(0 refer(cdtoken.name_size)); 13 29 13 30 /* end include file ... cobol_TYPE13.incl.pl1 */ 13 31 2432 14 1 14 2 /* BEGIN INCLUDE FILE ... cobol_qual_rec.incl.pl1 */ 14 3 14 4 dcl 1 qual_rec based (com2_ptr), 14 5 2 next char(5), 14 6 2 line fixed bin, 14 7 2 column fixed bin, 14 8 2 size fixed bin , 14 9 2 name char (31); 14 10 14 11 /* END INCLUDE FILE ... cobol_qual_rec.incl.pl1 */ 14 12 2433 15 1 15 2 /* BEGIN INCLUDE FILE ... cobol_obj_rec.incl.pl1 */ 15 3 15 4 dcl 1 obj_rec based(com2_ptr), 15 5 2 qual char(5), 15 6 2 line fixed bin, 15 7 2 column fixed bin, 15 8 2 repl fixed bin, 15 9 2 size fixed bin, 15 10 2 name char(31); 15 11 15 12 /* END INCLUDE FILE ... cobol_obj_rec.incl.pl1 */ 15 13 2434 16 1 16 2 /* BEGIN INCLUDE FILE ... cobol_occ_key_rec.incl.pl1 */ 16 3 16 4 dcl 1 occ_key based(com2_ptr), 16 5 2 next char(5), 16 6 2 first_key char(5), 16 7 2 rec_no char(5), 16 8 2 ntble fixed bin, 16 9 2 lineno fixed bin, 16 10 2 info bit(8); 16 11 16 12 /* END INCLUDE FILE ... cobol_occ_key_rec.incl.pl1 */ 16 13 2435 17 1 17 2 /* BEGIN INCLUDE FILE ... cobol_report_rec.incl.pl1 */ 17 3 dcl 1 report_rec based(com2_ptr), 17 4 2 next char(5), 17 5 2 line fixed bin, 17 6 2 column fixed bin, 17 7 2 fileno fixed bin, 17 8 2 defined bit(1), 17 9 2 size fixed bin, 17 10 2 name char(31); 17 11 /* END INCLUDE FILE ... cobol_report_rec.incl.pl1 */ 17 12 2436 18 1 18 2 /* BEGIN INCLUDE FILE ... cobol_rename_rec.incl.pl1 */ 18 3 dcl 1 rename_rec based(com2_ptr), 18 4 2 repl_ptr ptr, 18 5 2 next char(5), 18 6 2 obj1 char(5), 18 7 2 obj2 char(5), 18 8 2 lineno_01 fixed bin, 18 9 2 lineno_66 fixed bin, 18 10 2 rec_no_66 char(5), 18 11 2 info bit(8), 18 12 2 size fixed bin, 18 13 2 name char(31); 18 14 /* END INCLUDE FILE ... cobol_rename_rec.incl.pl1 */ 18 15 2437 19 1 19 2 /* BEGIN INCLUDE FILE ... cobol_skey_rec.incl.pl1 */ 19 3 dcl 1 skey_rec based(skey_ptr), 19 4 2 next char(5), 19 5 2 qual char(5), 19 6 2 keyno fixed bin, 19 7 2 asc_des fixed bin, 19 8 2 ref_line fixed bin, 19 9 2 ref_column fixed bin, 19 10 2 info bit(8), 19 11 2 size fixed bin, 19 12 2 name char(31); 19 13 /* END INCLUDE FILE ... cobol_skey_rec.incl.pl1 */ 19 14 2438 20 1 20 2 /* BEGIN INCLUDE FILE ... cobol_file_key.incl.pl1 */ 20 3 /* Last modified on 03/30/78 by FCH */ 20 4 20 5 /* 20 6*A file key record is created in variable common for any one of several 20 7*data items which may be associated with a file name. The key_type field in 20 8*the file key record identifies the type of item for which the record is 20 9*created. The name in a file key record is resolved by the replacement 20 10*phase, and a section of the type 9 entry in the name table for the 20 11*specified data item is stored in the file key record. The stored 20 12*description is subsequently used by the generator phase. 20 13**/ 20 14 20 15 /* THE FILE KEY RECORD STRUCTURE */ 20 16 20 17 dcl 1 file_key based (fkey_ptr), 20 18 2 next char(5), 20 19 2 next_alt char(5), 20 20 2 qual char(5), 20 21 2 info, 20 22 3 duplicates bit(1), 20 23 3 filler bit(7), 20 24 2 file_no fixed bin, 20 25 2 key_type fixed bin, 20 26 2 line fixed bin, 20 27 2 column fixed bin, 20 28 2 temp_seg fixed bin, 20 29 2 temp_offset fixed bin(24), 20 30 2 desc char(40), 20 31 2 name_size fixed bin, 20 32 2 name char(0 refer(file_key.name_size)); 20 33 20 34 /* END INCLUDE FILE ... cobol_file_key.incl.pl1 */ 20 35 2439 21 1 21 2 /* BEGIN INCLUDE FILE ... cobol_linage_rec.incl.pl1 */ 21 3 /* <<< LAST MODIFIED ON 7-29-74 by FCH >>> */ 21 4 21 5 /* ***STRUCTURE SIZE INFORMATION*** */ 21 6 /* THE SIZE OF THIS STRUCTURE IN BYTES, (EXCLUDING VARIABLE 21 7* LENGTH ENTITIES), FOR EACH HARDWARE IMPLEMENTATION IS: 21 8* 21 9* HARDWARE | SIZE (BYTES) 21 10* --------------------------------- 21 11* 645/6180 | 64 21 12* --------------------------------- 21 13**/ 21 14 21 15 /* 21 16*A linage record is entered into variable common for each linage clause 21 17*specified in the data division. 21 18**/ 21 19 21 20 /* THE LINAGE RECORD STRUCTURE */ 21 21 21 22 dcl 1 linage_rec based (linage_ptr), 21 23 2 body fixed bin (15), 21 24 2 footing fixed bin (15), 21 25 2 top fixed bin (15), 21 26 2 bottom fixed bin (15), 21 27 2 body_int fixed bin (31), 21 28 2 footing_int fixed bin (31), 21 29 2 top_int fixed bin (31), 21 30 2 bottom_int fixed bin (31), 21 31 2 body_name char (5), 21 32 2 footing_name char (5), 21 33 2 top_name char (5), 21 34 2 bottom_name char (5), 21 35 2 name_count fixed bin (15), 21 36 2 gen_seg fixed bin (15), 21 37 2 gen_offset fixed bin (31), 21 38 2 name_desc(0 refer(linage_rec.name_count)) char(40); 21 39 21 40 21 41 21 42 /* END INCLUDE FILE ... cobol_linage_rec.incl.pl1 */ 21 43 2440 22 1 22 2 /* BEGIN INCLUDE FILE ... cobol_linage_name_rec.incl.pl1 */ 22 3 /* Size (excluding variable length fields): 22 4* 645/6180 32 bytes 22 5* p7 17 bytes */ 22 6 dcl 1 linage_name_rec based(com2_ptr), 22 7 2 next char(5), 22 8 2 line fixed bin, 22 9 2 column fixed bin, 22 10 2 fileno fixed bin, 22 11 2 desc fixed bin, 22 12 2 unused fixed bin, 22 13 2 size fixed bin, 22 14 2 name char(31); 22 15 /* END INCLUDE FILE ... cobol_linage_name_rec.incl.pl1 */ 22 16 2441 23 1 23 2 /* BEGIN INCLUDE FILE ... cobol_fixed_common.incl.pl1 */ 23 3 /* Modified on 10/27/82 by FCH, [5.1-1], cobol_cln added to save last line num, BUG543(phx13643) */ 23 4 /* Modified on 07/31/80 by FCH, [4.3-1], use_reporting field added for Report Writer */ 23 5 /* Modified on 03/30/79 by FCH, [4.1-1], -card option added */ 23 6 /* Modified on 03/30/79 by FCH, [4.0-2], -svNM option added */ 23 7 /* Modified on 03/02/79 by FCH, [4.0-1], -levNM option added */ 23 8 /* Modified by RAL on 10/13/78, [4.0-0], Added option exp from fil2. */ 23 9 /* Modified by BC on 06/20/77, descriptor added. */ 23 10 /* Modified by BC on 06/02/77, init_cd_seg, init_cd_offset added. */ 23 11 /* Modified by BC on 1/21/77, options.profile added. */ 23 12 /* Modified by FCH on 7/6/76, sysin_fno & sysout_fno deleted, accept_device & display_device added */ 23 13 /* Modified by FCH on 5/20/77, comp_level added */ 23 14 23 15 23 16 /* THE SIZE OF THIS STRUCTURE IN BYTES, (EXCLUDING VARIABLE 23 17* LENGTH ENTITIES), FOR EACH HARDWARE IMPLEMENTATION IS: 23 18* 23 19* HARDWARE | SIZE (BYTES) 23 20* --------------------------------- 23 21* 645/6180 | 464 23 22* P7 | 396 23 23* --------------------------------- 23 24* */ 23 25 23 26 dcl 1 fixed_common based ( cobol_com_ptr), 23 27 2 prog_name char (30), 23 28 2 compiler_rev_no char (25), 23 29 2 phase_name char (6), 23 30 2 currency char (1), 23 31 2 fatal_no fixed bin, 23 32 2 warn_no fixed bin, 23 33 2 proc_counter fixed bin, 23 34 2 spec_tag_counter fixed bin, 23 35 2 file_count fixed bin, 23 36 2 filedescr_offsets (20) char (5), 23 37 2 perf_alter_info char (5), 23 38 2 another_perform_info char (5), 23 39 2 sort_in_info char (5), 23 40 2 odo_info char (5), 23 41 2 size_seg fixed bin, 23 42 2 size_offset fixed bin(24), 23 43 2 size_perform_info char (5), 23 44 2 rename_info char (5), 23 45 2 report_names char (5), 23 46 2 rw_buf_seg fixed bin, 23 47 2 rw_buf_offset fixed bin(24), 23 48 2 rw_buf_length fixed bin(24), 23 49 2 file_keys char (5), 23 50 2 search_keys char (5), 23 51 2 dd_seg_size fixed bin(24), 23 52 2 pd_seg_size fixed bin(24), 23 53 2 seg_limit fixed bin , 23 54 2 number_of_dd_segs fixed bin, 23 55 2 seg_info char (5), 23 56 2 number_of_ls_pointers fixed bin, 23 57 2 link_sec_seg fixed bin, 23 58 2 link_sec_offset fixed bin(24), 23 59 2 sra_clauses fixed bin, 23 60 2 fix_up_info char (5), 23 61 2 linage_info char (5), 23 62 2 first_dd_item char (5), 23 63 2 sort_out_info char (5), 23 64 2 db_info char (5), 23 65 2 realm_info char (5), 23 66 2 rc_realm_info char (5), 23 67 2 last_file_key char (5), 23 68 2 prog_coll_seq fixed bin, 23 69 2 init_cd_seg fixed bin, 23 70 2 init_cd_offset fixed bin(24), 23 71 2 input_error_exit fixed bin, 23 72 2 output_error_exit fixed bin, 23 73 2 i_o_error_exit fixed bin, 23 74 2 extend_error_exit fixed bin, 23 75 2 dummy15 fixed bin, 23 76 2 options, 23 77 3 cu bit (1), 23 78 3 st bit (1), 23 79 3 wn bit (1), 23 80 3 obs bit (1), 23 81 3 dm bit (1), 23 82 3 xrl bit (1), 23 83 3 xrn bit (1), 23 84 3 src bit (1), 23 85 3 obj bit (1), 23 86 3 exs bit (1), 23 87 3 sck bit (1), 23 88 3 rno bit (1), 23 89 3 u_l bit (1), 23 90 3 cnv bit (1), 23 91 3 cos bit (1), 23 92 3 fmt bit (1), 23 93 3 profile bit(1), 23 94 3 nw bit (1), 23 95 3 exp bit (1), /* [4.0-0] */ 23 96 3 card bit (1), /*[4.1-1]*/ 23 97 3 fil2 bit (5), 23 98 3 m_map bit (1), 23 99 3 m_bf bit (1), 23 100 3 m_fat bit (1), 23 101 3 m_wn bit (1), 23 102 3 m_obs bit(1), 23 103 3 pd bit(1), 23 104 3 oc bit(1), 23 105 2 supervisor bit (1), 23 106 2 dec_comma bit (1), 23 107 2 init_cd bit (1), 23 108 2 corr bit (1), 23 109 2 initl bit (1), 23 110 2 debug bit (1), 23 111 2 report bit (1), 23 112 2 sync_in_prog bit (1), 23 113 2 pd_section bit (1), 23 114 2 list_switch bit (1), 23 115 2 alpha_cond bit (1), 23 116 2 num_cond bit (1), 23 117 2 spec_sysin bit (1), 23 118 2 spec_sysout bit (1), 23 119 2 cpl_files bit (1), 23 120 2 obj_dec_comma bit (1), 23 121 2 default_sign_type bit (3), 23 122 2 use_debug bit(1), 23 123 2 syntax_trace bit(1), 23 124 2 comp_defaults, 23 125 3 comp bit(1), 23 126 3 comp_1 bit(1), 23 127 3 comp_2 bit(1), 23 128 3 comp_3 bit(1), 23 129 3 comp_4 bit(1), 23 130 3 comp_5 bit(1), 23 131 3 comp_6 bit(1), 23 132 3 comp_7 bit(1), 23 133 3 comp_8 bit(1), 23 134 2 disp_defaults, 23 135 3 disp bit(1), 23 136 3 disp_1 bit(1), 23 137 3 disp_2 bit(1), 23 138 3 disp_3 bit(1), 23 139 3 disp_4 bit(1), 23 140 3 disp_5 bit(1), 23 141 3 disp_6 bit(1), 23 142 3 disp_7 bit(1), 23 143 2 descriptor bit(2), 23 144 2 levsv bit(3), /*[4.0-1]*/ 23 145 2 use_reporting bit(1), /*[4.3-1]*/ 23 146 2 cd bit(1), /*[4.4-1]*/ 23 147 2 dummy17 bit(3), 23 148 2 lvl_rstr bit(32), 23 149 2 inst_rstr bit(32), 23 150 2 comp_level char(1), 23 151 2 dummy18 char(30), 23 152 2 object_sign char (1), 23 153 2 last_print_rec char (5), 23 154 2 coll_seq_info char (5), 23 155 2 sys_status_seg fixed bin, 23 156 2 sys_status_offset fixed bin(24), 23 157 2 compiler_id fixed bin, 23 158 2 date_comp_ln fixed bin, 23 159 2 compile_mode bit(36), 23 160 2 default_temp fixed bin, 23 161 2 accept_device fixed bin, 23 162 2 display_device fixed bin, 23 163 2 cobol_cln fixed bin, /*[5.1-1]*/ 23 164 2 alphabet_offset fixed bin; 23 165 23 166 23 167 23 168 /* END INCLUDE FILE ... cobol_fixed_common.incl.pl1 */ 23 169 2442 24 1 24 2 /* BEGIN INCLUDE FILE ... cobol_file_table.incl.pl1 */ 24 3 /* <<< INCLUDE FILE FOR FILE TABLE IN COMMON >>> */ 24 4 24 5 /* Modified on 09/30/80 by FCH, [4.4-1], density is 6250 is supported */ 24 6 /* Modified on 12/05/78 by RAL, [3.0-3], added dupl_alt from dummy102 */ 24 7 /* Modified on 11/21/78 by RAL, [3.0-2], added space for abs_record_offset from filler */ 24 8 /* Modified on 10/26/78 by RAL, [3.0-1], added space for file_desc_1 table offset from filler */ 24 9 /* <<< LAST MODIFIED ON 06-02-77 by GM >>> */ 24 10 /* <<< LAST MODIFIED ON 05-31-77 by GM >>> */ 24 11 /* <<< LAST MODIFIED ON 06-30-76 by GM >>> */ 24 12 /* <<< LAST MODIFIED ON 06-07-76 by GM >>> */ 24 13 /* <<< LAST MODIFIED ON 11-29-74 by orn >>> */ 24 14 24 15 /* 24 16*A file table is created in variable common for each file selected in the 24 17*environment division. The fields of a given file table provide information 24 18*about the specific file for which the file table is generated. The 24 19*addresses which may be contained in the various "info" fields of the file 24 20*table are addresses in variable common. 24 21**/ 24 22 24 23 /* THE FILE TABLE STRUCTURE */ 24 24 24 25 dcl 1 file_table based (ft_ptr), 24 26 2 next char (5), 24 27 2 ifn char (16), 24 28 2 attach_options_info char(5), /*06/02/77*/ 24 29 2 replacement_info char(5), /*06/02/77*/ 24 30 2 file_id_info char(5), /*05/31/77*/ 24 31 2 retention_info char(5), /*05/31/77*/ 24 32 2 filler0 char (3) , /* [3.0-1] */ 24 33 2 file_desc_1_offset fixed bin (24), /* [3.0-1] */ 24 34 2 abs_record_offset fixed bin (24), /* [3.-02] */ 24 35 2 filler char(5), /* this area is available.*/ 24 36 2 padding_char char (1), 24 37 2 banner_char char (1), 24 38 2 file_status_info char (5), 24 39 2 extra_status_info char (5), 24 40 2 cat_id_info char (5), 24 41 2 r_key_info char (5), 24 42 2 alt_key_info char (5), 24 43 2 rec_do_info char (5), 24 44 2 label_info char (5), 24 45 2 data_info char (5), 24 46 2 report_info char (5), 24 47 2 linage_info char (5), 24 48 2 optional bit (1), /*06/07/76*/ 24 49 2 external bit (1), 24 50 2 file_status bit (1), 24 51 2 extra_status bit (1), 24 52 2 sysin bit (1), 24 53 2 sysout bit (1), 24 54 2 move_mode bit (1), 24 55 2 locate_mode bit (1), 24 56 2 fixed_recs bit (1), 24 57 2 variable_recs bit (1), 24 58 2 spanned_recs bit (1), /*06/07/76*/ 24 59 2 interchange bit (1), /*06/07/76*/ 24 60 2 relative_key bit (1), 24 61 2 record_key bit (1), 24 62 2 even_parity bit (1), 24 63 2 odd_parity bit (1), 24 64 2 padding bit (1), 24 65 2 banner bit (1), 24 66 2 random bit (1), 24 67 2 no_file_lockout bit (1), 24 68 2 no_write_check bit (1), 24 69 2 no_resident_index bit (1), 24 70 2 same_file bit (1), 24 71 2 sort_file bit (1), 24 72 2 rec_do bit (1), 24 73 2 linage bit (1), 24 74 2 code_set_clause bit (1), 24 75 /* history */ 24 76 2 close bit (1), 24 77 2 delete bit (1), 24 78 2 open_in bit (1), 24 79 2 open_out bit (1), 24 80 2 open_io bit (1), 24 81 2 open_ext bit (1), 24 82 2 read bit (1), 24 83 2 release bit (1), 24 84 2 return_bit bit (1), 24 85 2 rewrite bit (1), 24 86 2 sort bit (1), 24 87 2 start bit (1), 24 88 2 use_error bit (1), 24 89 2 write bit (1), 24 90 2 read_next bit (1), 24 91 2 read_key bit (1), 24 92 2 accept bit (1), 24 93 2 display bit (1), 24 94 2 unequal_recs bit (1), 24 95 2 dummy_sysin bit (1), 24 96 2 dummy_sysout bit (1), 24 97 2 file_no fixed bin, 24 98 2 uca_offset fixed bin(24), 24 99 2 cra_seg fixed bin, 24 100 2 cra_offset fixed bin(24), 24 101 2 max_cra_size fixed bin(24), 24 102 2 catalogued fixed bin, 24 103 2 organization fixed bin, 24 104 2 org_qual fixed bin, 24 105 2 access fixed bin, 24 106 2 buffers fixed bin, 24 107 2 device fixed bin, 24 108 2 record_prefix fixed bin, /*06/07/76*/ 24 109 2 alternate_keys fixed bin, 24 110 2 record_format fixed bin, 24 111 2 label_format fixed bin, 24 112 2 key_location fixed bin, 24 113 2 key_size fixed bin, 24 114 2 temporary fixed bin, 24 115 2 address_format fixed bin, 24 116 2 same_area_clause fixed bin, 24 117 2 same_rec_clause fixed bin, 24 118 2 same_sort_clause fixed bin, 24 119 2 mult_clause_no fixed bin, 24 120 2 mult_position_no fixed bin, 24 121 2 block_desc fixed bin, 24 122 2 block_min fixed bin(24), 24 123 2 block_max fixed bin(24), 24 124 2 rec_min fixed bin(24), 24 125 2 rec_max fixed bin(24), 24 126 2 label_count fixed bin, 24 127 2 ifn_size fixed bin, 24 128 2 data_count fixed bin, 24 129 2 report_count fixed bin, 24 130 2 code_set fixed bin, 24 131 2 error_exit fixed bin, 24 132 2 prefix_size fixed bin, 24 133 2 blocked bit (1), 24 134 2 variable bit (1), 24 135 2 unbannered bit (1), 24 136 2 prefix_clause bit (1), 24 137 2 symbolic bit (1), 24 138 2 address_format_bit bit (1), 24 139 2 bsn bit(1), /*06/07/76*/ 24 140 2 process_area bit(1), /*06/07/76*/ 24 141 2 dupl_alt bit (1), /* [3.0-3] */ 24 142 2 dummy102 bit (23), 24 143 2 name_size fixed bin, 24 144 2 name char(32), 24 145 2 id char(32), 24 146 2 temp bit(1) , 24 147 2 perm bit(1) , 24 148 2 attach bit(1) , 24 149 2 detach bit(1) , 24 150 2 fsb , /* file state block */ 24 151 3 seg fixed bin(24), /* internal addr */ 24 152 3 off fixed bin(24), 24 153 2 tape, 24 154 3 density bit(1) , /* 0-hi 1-lo */ 24 155 3 retain bit(1), /* 0 not retained across attachment, 1 retained */ 24 156 3 force bit(1), /* 0 check retention date, 1 no check */ 24 157 3 protect bit(1) , /* 0-no 1-yes */ 24 158 3 den_6250 bit(1), /* 0-no 1-yes */ /*[4.4-1]*/ 24 159 2 cat_nm char(200), 24 160 2 ao_len fixed bin(24), /* attach options */ 24 161 2 ao_string char(256), 24 162 2 output_mode fixed bin, /* 0 not specified 24 163* 1 generation 24 164* 2 modification 24 165* 3 replacement literal 24 166* 4 replacement dataname */ 24 167 2 om_len fixed bin, /* length of output mode */ 24 168 2 om_string char(17), 24 169 2 tape_device fixed bin, /* 0 not specified 24 170* 1 integer 24 171* 2 dataname */ 24 172 2 tape_device_num fixed bin, 24 173 2 tape_device_key char(5), 24 174 2 add_cat_key char(5); 24 175 24 176 24 177 /* END INCLUDE FILE ... cobol_file_table.incl.pl1 */ 24 178 2443 2444 end cobol_ddact2; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 05/24/89 0832.8 cobol_ddact2.pl1 >spec>install>MR12.3-1048>cobol_ddact2.pl1 2419 1 03/27/82 0431.3 cobol_ext_.incl.pl1 >ldd>include>cobol_ext_.incl.pl1 2421 2 03/27/82 0439.7 cobol_ext_ddsyn.incl.pl1 >ldd>include>cobol_ext_ddsyn.incl.pl1 2423 3 03/27/82 0439.8 cobol_special_dcls.incl.pl1 >ldd>include>cobol_special_dcls.incl.pl1 2424 4 03/27/82 0439.4 cobol_spec_constants.incl.pl1 >ldd>include>cobol_spec_constants.incl.pl1 2426 5 03/27/82 0439.8 cobol_shared_var.incl.pl1 >ldd>include>cobol_shared_var.incl.pl1 2427 6 03/27/82 0439.3 cobol_non_static.incl.pl1 >ldd>include>cobol_non_static.incl.pl1 2428 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 2429 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 2430 11 03/27/82 0439.7 cobol_fd_token.incl.pl1 >ldd>include>cobol_fd_token.incl.pl1 11-5 12 03/27/82 0439.6 cobol_FD_TOKEN.incl.pl1 >ldd>include>cobol_FD_TOKEN.incl.pl1 2432 13 03/27/82 0439.6 cobol_TYPE13.incl.pl1 >ldd>include>cobol_TYPE13.incl.pl1 2433 14 03/27/82 0439.8 cobol_qual_rec.incl.pl1 >ldd>include>cobol_qual_rec.incl.pl1 2434 15 03/27/82 0439.7 cobol_obj_rec.incl.pl1 >ldd>include>cobol_obj_rec.incl.pl1 2435 16 03/27/82 0439.7 cobol_occ_key_rec.incl.pl1 >ldd>include>cobol_occ_key_rec.incl.pl1 2436 17 03/27/82 0439.8 cobol_report_rec.incl.pl1 >ldd>include>cobol_report_rec.incl.pl1 2437 18 03/27/82 0439.8 cobol_rename_rec.incl.pl1 >ldd>include>cobol_rename_rec.incl.pl1 2438 19 03/27/82 0439.8 cobol_skey_rec.incl.pl1 >ldd>include>cobol_skey_rec.incl.pl1 2439 20 11/11/82 1712.8 cobol_file_key.incl.pl1 >ldd>include>cobol_file_key.incl.pl1 2440 21 11/11/82 1712.8 cobol_linage_rec.incl.pl1 >ldd>include>cobol_linage_rec.incl.pl1 2441 22 03/27/82 0439.7 cobol_linage_name_rec.incl.pl1 >ldd>include>cobol_linage_name_rec.incl.pl1 2442 23 11/11/82 1712.8 cobol_fixed_common.incl.pl1 >ldd>include>cobol_fixed_common.incl.pl1 2443 24 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. BIT8 based bit(8) packed unaligned dcl 2390 set ref 880* 1371* addr builtin function dcl 2415 ref 47 180 183 222 223 305 306 341 342 660 683 696 775 852 876 880 940 957 1110 1112 1371 1480 1482 1485 1565 1566 1682 1723 1762 1770 1773 1811 1819 1822 1890 1916 1971 2104 2143 2168 2303 2304 aiv 154 based fixed bin(17,0) level 2 dcl 2425 set ref 101* 106 aiv_constant constant fixed bin(17,0) initial dcl 4-8 ref 106 151 160 1775 1824 1922 al 143 based fixed bin(17,0) level 2 dcl 2425 ref 101 102 1286 1396 all_ind 3270 based fixed bin(17,0) level 2 dcl 2425 ref 1412 1421 1430 all_lit 0(03) based bit(1) level 3 packed packed unaligned dcl 6-134 set ref 1675* 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 2383 ref 31 35 any_item based char(1) array packed unaligned dcl 6-333 set ref 47 180 183 683 852 1112 1682 1770 1819 1916 2143 bit72 based bit(72) packed unaligned dcl 6-352 set ref 959* 1764* 1813* 1892* 1904* 1933* 1943* 1948* 1954* 1964* 2106* 2115* 2124* 2132* 2223* 2235* bit_string 4 based bit(1) level 3 in structure "alphanum_lit" packed packed unaligned dcl 6-64 in procedure "cobol_ddact2" ref 99 bit_string 0(08) based bit(1) level 3 in structure "alphainit" packed packed unaligned dcl 6-134 in procedure "cobol_ddact2" set ref 99* block_contain 0(01) based bit(1) level 2 packed packed unaligned dcl 6-212 set ref 1073* block_desc 65 based fixed bin(17,0) level 2 dcl 24-25 set ref 918* block_max 67 based fixed bin(24,0) level 2 dcl 24-25 set ref 920* block_min 66 based fixed bin(24,0) level 2 dcl 24-25 set ref 919* bnw 141 based fixed bin(17,0) level 2 dcl 2425 set ref 191 201* 239* 621 685* 867 873* 932 961* 1099 1106* 1556 1562* body based fixed bin(15,0) level 2 in structure "linage_rec" dcl 21-22 in procedure "cobol_ddact2" set ref 1113* 1606* 1616* body 0(08) based bit(1) level 3 in structure "fd_ind" packed packed unaligned dcl 6-212 in procedure "cobol_ddact2" set ref 1604* 1614* body_int 4 based fixed bin(31,0) level 2 dcl 21-22 set ref 1617* 1619* body_name 10 based char(5) level 2 packed packed unaligned dcl 21-22 set ref 1611* bottom 3 based fixed bin(15,0) level 2 in structure "linage_rec" dcl 21-22 in procedure "cobol_ddact2" set ref 1029* 1115* 1160* 1170* bottom 0(11) based bit(1) level 3 in structure "fd_ind" packed packed unaligned dcl 6-212 in procedure "cobol_ddact2" set ref 1027 1158* 1168* bottom_int 7 based fixed bin(31,0) level 2 dcl 21-22 set ref 1030* 1171* 1173* bottom_name 13(27) based char(5) level 2 packed packed unaligned dcl 21-22 set ref 1031* 1165* cat_id_info 21(09) based char(5) level 2 packed packed unaligned dcl 24-25 set ref 1289 1294* 1341 1346* cat_nm 126(09) based char(200) level 2 packed packed unaligned dcl 24-25 set ref 1286* catalogued 42 based fixed bin(17,0) level 2 dcl 24-25 set ref 1277 1285* 1329 1337* cd 135(04) based bit(1) level 2 packed packed unaligned dcl 23-26 set ref 1739* cd_clauses 2764 based bit(12) level 2 packed packed unaligned dcl 2425 set ref 1735* 1754* 1802* 1803* 1873 2015* 2086 cd_constant constant fixed bin(17,0) initial dcl 4-15 ref 1727 cd_index 204 based fixed bin(17,0) level 2 dcl 2425 set ref 1838* 1842 1846* 1846 1854* 1854 1857 1859 1860 2013* 2015 2021* 2025* 2029* 2033* 2037* 2041* 2045* 2049* 2053* 2057* 2066 2067 2070 2072 2072 2291* cd_initial 3056(06) based bit(1) level 2 packed packed unaligned dcl 2425 set ref 1703* 1835* cd_name 1530(09) based char(32) array level 2 packed packed unaligned dcl 2425 set ref 1860* 1877* 1909 1986 2067* 2072* 2090* 2181 2208 cd_num 12 based fixed bin(17,0) level 2 dcl 2431 set ref 1788* cd_ptr 000106 automatic pointer dcl 2395 set ref 2251* 2253 2255* cd_size 301 based fixed bin(17,0) array level 2 dcl 2425 set ref 1732* 1859* 1876* 1907 1983 2066* 2070* 2072 2089* 2178 2181 2202 cdno 205 based fixed bin(17,0) level 2 dcl 2425 set ref 673 830* 834 1705* 1729* 1729 1788 1976 cdtoken based structure level 1 unaligned dcl 2431 cdtoken_ptr 34 based pointer level 2 dcl 2425 ref 1725 1726 1727 1728 1742 1744 1744 1746 1746 1746 1748 1748 1748 1752 1787 1788 1789 1800 1833 1974 1975 cm_key 2632(09) based char(5) level 2 packed packed unaligned dcl 2425 set ref 284* 286 294 300 318* 321 328 330 354* 367 368 384 385 893* 895 899 906 910 927* 929 1052 1165 1202 1579* 1584 1585 1597 1601 1611 1644* 1651 1652 1664 1666 2312* 2317 2318 2327 2331 2347 2351 cm_ptr 42 based pointer level 2 dcl 2425 set ref 281* 284* 291* 293 296* 315* 318* 324* 326 332* 351* 354* 364* 366 370* 382* 383 387* 724* 726 1576* 1579* 1591* 1596 1599* 1641* 1644* 1659* 1664 2309* 2312* 2324* 2326 2329* 2344* 2346 2349* cm_size 177 based fixed bin(17,0) level 2 dcl 2425 set ref 282* 284* 291* 296* 316* 318* 324* 332* 352* 354* 364* 370* 382* 387* 724* 891* 893* 904* 908* 925* 927* 1577* 1579* 1591* 1599* 1642* 1644* 1659* 2310* 2312* 2324* 2329* 2344* 2349* cntbuf based fixed bin(24,0) array dcl 3-9 set ref 661* 941* 1567* 1972* cntbuf2 based fixed bin(24,0) array dcl 3-10 set ref 224* 307* 343* 776* 1724* 2169* 2305* cobol_c_list 000042 constant entry external dcl 6-343 ref 709 cobol_cmfp defined pointer dcl 1-21 set ref 284* 291* 296* 318* 324* 332* 354* 364* 370* 382* 387* 724* 893* 904* 908* 927* 1579* 1591* 1599* 1644* 1659* 2312* 2324* 2329* 2344* 2349* cobol_com_fileno defined pointer dcl 1-23 set ref 1446* 1452* 1456* 1511* 1515* 1519* 1524* cobol_com_ptr defined pointer dcl 1-25 ref 286 457 765 899 899 902 910 1448 1448 1452 1456 1460 1515 1519 1584 1651 1708 1739 2268 2317 2358 cobol_compare_values 000044 constant entry external dcl 6-347 ref 82 113 167 cobol_ddsyntax$init_file_tab 000020 constant entry external dcl 2379 ref 842 cobol_ext_$cobol_cmfp 000022 external static pointer dcl 1-20 ref 284 284 291 291 296 296 318 318 324 324 332 332 354 354 364 364 370 370 382 382 387 387 724 724 893 893 904 904 908 908 927 927 1579 1579 1591 1591 1599 1599 1644 1644 1659 1659 2312 2312 2324 2324 2329 2329 2344 2344 2349 2349 cobol_ext_$cobol_com_fileno 000024 external static pointer dcl 1-22 ref 1446 1446 1452 1452 1456 1456 1511 1511 1515 1515 1519 1519 1524 1524 cobol_ext_$cobol_com_ptr 000026 external static pointer dcl 1-24 ref 286 286 457 457 765 765 899 899 899 899 902 902 910 910 1448 1448 1448 1448 1452 1452 1456 1456 1460 1460 1515 1515 1519 1519 1584 1584 1651 1651 1708 1708 1739 1739 2268 2268 2317 2317 2358 2358 cobol_ext_$cobol_ntfp 000030 external static pointer dcl 1-42 ref 199 199 213 213 238 238 257 257 263 263 516 516 539 539 629 629 653 653 654 654 871 871 936 936 966 966 986 986 1104 1104 1560 1560 1791 1791 2006 2006 2186 2186 2193 2193 2240 2240 2251 2251 2255 2255 cobol_ext_ddsyn$cobol_htbl 000040 external static structure array level 1 unaligned dcl 2-14 set ref 254 254 507 507 512 512 514 514 631* 631 cobol_ext_ddsyn$cobol_sv_ptr 000032 external static pointer dcl 2-6 ref 34 34 cobol_ext_ddsyn$cobol_wkbuf1_tbl 000034 external static structure level 1 packed packed unaligned dcl 2-8 ref 660 660 876 876 940 940 1110 1110 1565 1565 1566 1566 1971 1971 2196 2196 2228 2228 cobol_ext_ddsyn$cobol_wkbuf2_tbl 000036 external static structure level 1 packed packed unaligned dcl 2-11 ref 222 222 223 223 305 305 306 306 341 341 342 342 775 775 1723 1723 2168 2168 2196 2196 2228 2228 2303 2303 2304 2304 cobol_htbl defined structure array level 1 unaligned dcl 2-15 cobol_ntfp defined pointer dcl 1-43 set ref 199* 213* 238* 257* 263* 516* 539* 629* 653* 654* 871* 936* 966* 986* 1104* 1560* 1791* 2006* 2186* 2193* 2240* 2251* 2255* cobol_sv_ptr defined pointer dcl 2-7 ref 34 cobol_vdwf_dget 000046 constant entry external dcl 6-355 ref 257 291 324 364 382 516 653 724 904 986 1452 1515 1524 1591 1659 2251 2324 2344 cobol_vdwf_dput 000050 constant entry external dcl 6-356 ref 263 296 332 370 387 539 654 908 1456 1519 1599 2255 2329 2349 cobol_vdwf_sput 000052 constant entry external dcl 6-357 ref 199 213 238 284 318 354 629 871 893 927 936 966 1104 1446 1511 1560 1579 1644 1791 2006 2186 2193 2240 2312 cobol_wkbuf1_tbl defined structure level 1 packed packed unaligned dcl 2-9 set ref 660 940 1566 1971 cobol_wkbuf2_tbl defined structure level 1 packed packed unaligned dcl 2-12 set ref 223 306 342 775 1723 2168 2304 column 2 based fixed bin(17,0) level 2 in structure "message" dcl 6-85 in procedure "cobol_ddact2" set ref 700* column 2 based fixed bin(17,0) level 2 in structure "cdtoken" dcl 2431 in procedure "cobol_ddact2" set ref 1726* 1975 column 2 based fixed bin(17,0) level 2 in structure "record" dcl 6-10 in procedure "cobol_ddact2" ref 700 765 765 779 1708 1708 1726 column 3 based fixed bin(17,0) level 2 in structure "qual_rec" dcl 14-4 in procedure "cobol_ddact2" set ref 345* column 3 based fixed bin(17,0) level 2 in structure "linage_name_rec" dcl 22-6 in procedure "cobol_ddact2" set ref 1635* column 3 based fixed bin(17,0) level 2 in structure "obj_rec" dcl 15-4 in procedure "cobol_ddact2" set ref 314* column 2 based fixed bin(17,0) level 2 in structure "user_word" dcl 6-101 in procedure "cobol_ddact2" ref 314 345 884 1376 1570 1635 column 2 based fixed bin(17,0) level 2 in structure "fd_token" dcl 11-4 in procedure "cobol_ddact2" set ref 779* 944 column 7 based fixed bin(17,0) level 2 in structure "file_key" dcl 20-17 in procedure "cobol_ddact2" set ref 884* 1376* column 3 based fixed bin(17,0) level 2 in structure "report_rec" dcl 17-3 in procedure "cobol_ddact2" set ref 1570* column 2 based fixed bin(17,0) level 2 in structure "data_name" dcl 7-16 in procedure "cobol_ddact2" set ref 667* 944* 1975* com2_ptr 40 based pointer level 2 dcl 2425 set ref 222* 225 267 268 269 271 271 273 274 275 281 282 293* 294 305* 308 309 311 311 313 314 315 316 326* 328 330 341* 344 345 346 348 348 350 351 352 366* 367 383* 384 726* 1048 1110* 1112 1161 1198 1565* 1568 1569 1570 1571 1572 1574 1574 1576 1577 1596* 1597 1607 1633 1634 1635 1636 1637 1639 1639 1641 1642 2303* 2306 2307 2308 2309 2326* 2327 com_status 3262(18) based bit(32) level 2 packed packed unaligned dcl 2425 set ref 1446* 1452* 1456* 1511* 1515* 1519* 1524* common_key 3261(09) based char(5) level 2 packed packed unaligned dcl 2425 set ref 1261 1273 1294 1313 1325 1346 1446* 1448 1454 1460 1511* 1517 1527 comp_level 137 based char(1) level 2 packed packed unaligned dcl 23-26 ref 457 765 1708 2268 conditioname based structure level 1 unaligned dcl 6-180 counter2 202 based fixed bin(17,0) level 2 dcl 2425 set ref 2157* 2157 2158 2173 cswd 10 based fixed bin(24,0) array level 3 dcl 9-5 set ref 2152* data_count 74 based fixed bin(17,0) level 2 dcl 24-25 set ref 1535* 1535 data_name based structure level 1 unaligned dcl 7-16 data_record 0(04) based bit(1) level 2 packed packed unaligned dcl 6-212 set ref 971 1089* def_line 11 based fixed bin(17,0) level 2 in structure "fd_token" dcl 11-4 in procedure "cobol_ddact2" set ref 777* def_line 11 based fixed bin(17,0) level 2 in structure "data_name" dcl 7-16 in procedure "cobol_ddact2" set ref 666* 1974* def_line 11 based fixed bin(17,0) level 2 in structure "cdtoken" dcl 2431 in procedure "cobol_ddact2" set ref 1725* 1974 desc 12 based char(40) level 2 in structure "file_key" packed packed unaligned dcl 20-17 in procedure "cobol_ddact2" set ref 1381* desc 5 based fixed bin(17,0) level 2 in structure "linage_name_rec" dcl 22-6 in procedure "cobol_ddact2" set ref 1048* 1161* 1198* 1607* dimensions 2 based fixed bin(17,0) level 2 dcl 9-5 set ref 2149* dn_constant constant fixed bin(17,0) initial dcl 4-6 ref 664 679 942 1765 1814 1893 1911 1984 2107 2139 2203 dn_ptr 30 based pointer level 2 dcl 2425 set ref 82 113 167 197 199* 203 203 237 238* 241 415 418 420 427 447 452 454 459 465 471 489 518 519* 521 523 524 527 533 541* 549* 588 590 596 626 627 631 634 636 650 654* 663 664 665 666 667 668 669 671 673 675 677 677 679 681 681 681 683 683 715 715 834 836 837 869 871* 934 936* 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 956 957 989 1005 1102 1104* 1558 1560* 1682 1682 1759 1760 1762 1765 1767 1767 1767 1769 1769 1770 1770 1772 1775 1775 1779 1808 1809 1811 1814 1816 1816 1816 1818 1818 1819 1819 1821 1824 1824 1828 1881 1884 1884 1886 1887 1888 1889 1890 1893 1893 1900 1901 1902 1907 1909 1909 1909 1911 1911 1913 1913 1913 1915 1915 1916 1916 1922 1922 1923 1929 1931 1937 1941 1947 1952 1958 1962 1973 1974 1975 1976 1983 1984 1984 1986 1986 1986 1988 1990 1990 1993 1994 2004 2006* 2096 2098 2098 2100 2101 2102 2103 2104 2107 2107 2111 2113 2122 2123 2133 2135 2135 2137 2138 2139 2139 2141 2141 2141 2143 2143 2144 2144 2159 2161 2161 2190 2193* 2196 2202 2203 2203 2205 2205 2205 2207 2208 2208 2212 2213 2216 2217 2226 2226 2228 2231 2231 2232 2237 2238 2240* 2244 dnl 175 based fixed bin(17,0) level 2 dcl 2425 ref 675 679 999 1002 do_rec 30 based char(5) level 2 packed packed unaligned dcl 7-16 set ref 533 596 669* edit_ptr 26 based fixed bin(17,0) level 2 dcl 7-16 set ref 951* exp_occurs 22(29) based bit(1) level 2 packed packed unaligned dcl 7-16 ref 527 590 exp_places 5 based fixed bin(17,0) level 2 dcl 6-46 ref 65 exp_redefining 6(06) defined bit(1) array level 2 in structure "cobol_htbl" packed packed unaligned dcl 2-15 in procedure "cobol_ddact2" ref 512 exp_redefining 22(22) based bit(1) level 2 in structure "data_name" packed packed unaligned dcl 7-16 in procedure "cobol_ddact2" set ref 203 241 418 452 636 837* exp_redefining 1(22) based bit(1) level 2 in structure "vector_map" packed packed unaligned dcl 6-245 in procedure "cobol_ddact2" set ref 409* exp_sign 4(18) based char(1) level 2 packed packed unaligned dcl 6-46 ref 64 explaces 1 based fixed bin(17,0) level 2 dcl 6-113 set ref 65* expsign 0(27) based char(1) level 2 packed packed unaligned dcl 6-113 set ref 64* fd_clauses 2763 based bit(36) level 2 packed packed unaligned dcl 2425 set ref 774* fd_clauses_ptr 52 based pointer level 2 dcl 2425 ref 923 971 971 977 977 991 1020 1027 1034 1045 1055 1065 1073 1077 1081 1085 1089 1093 1109 1158 1168 1195 1220 1227 1604 1614 1622 fd_constant constant fixed bin(17,0) initial dcl 4-14 ref 780 fd_ind based structure level 1 packed packed unaligned dcl 6-212 fd_token based structure level 1 unaligned dcl 11-4 fh 161 based fixed bin(17,0) level 2 dcl 2425 set ref 505* 507 512 514 fig_con 0(02) based bit(1) level 3 packed packed unaligned dcl 6-134 set ref 129* fig_con_index 0(09) based bit(7) level 3 packed packed unaligned dcl 6-134 set ref 130* 139 file_id_info 7(27) based char(5) level 2 packed packed unaligned dcl 24-25 set ref 1256 1261* 1308 1313* file_key based structure level 1 unaligned dcl 20-17 set ref 1444 file_keys 74 based char(5) level 2 packed packed unaligned dcl 23-26 set ref 899 899* 1448 1448* file_no 12 based fixed bin(17,0) level 2 in structure "fd_token" dcl 11-4 in procedure "cobol_ddact2" set ref 819* 821 913 989 1571 1636 file_no 35 based fixed bin(17,0) level 2 in structure "file_table" dcl 24-25 in procedure "cobol_ddact2" ref 819 1373 file_no 4 based fixed bin(17,0) level 2 in structure "file_key" dcl 20-17 in procedure "cobol_ddact2" set ref 881* 1373* file_num 14 based fixed bin(17,0) level 2 dcl 7-16 set ref 671* 673* 834* 953* 989* 1976* file_number 203 based fixed bin(17,0) level 2 dcl 2425 set ref 671 671 737* 742* 797 803 809 821* 855 881 895 953 1223 1230 1535 1552 file_section 21 based bit(1) level 2 packed packed unaligned dcl 7-16 set ref 957 1762 1811 1890 2104 file_table based structure level 1 unaligned dcl 24-25 fileno 4 based fixed bin(17,0) level 2 in structure "linage_name_rec" dcl 22-6 in procedure "cobol_ddact2" set ref 1636* fileno 4 based fixed bin(17,0) level 2 in structure "report_rec" dcl 17-3 in procedure "cobol_ddact2" set ref 1571* filler 0(10) based bit(6) level 3 in structure "numinit" packed packed unaligned dcl 6-113 in procedure "cobol_ddact2" set ref 63* filler 4(02) based bit(6) level 3 in structure "numeric_lit" packed packed unaligned dcl 6-46 in procedure "cobol_ddact2" ref 63 fillerx 6(02) based bit(34) level 3 packed packed unaligned dcl 6-85 set ref 705* fixed builtin function dcl 2415 ref 1058 1127 1147 1171 1178 1209 1617 1625 2262 fixed_common based structure level 1 unaligned dcl 23-26 fixed_recs 33(17) based bit(1) level 2 packed packed unaligned dcl 24-25 ref 860 fkey_constant constant fixed bin(17,0) initial dcl 4-25 ref 891 fkey_ptr 10 based pointer level 2 dcl 2425 set ref 876* 877 878 879 880 881 882 883 884 885 886 887 889 889 891 893* 904* 906 908* 1367 1368 1369 1371 1373 1375 1376 1378 1379 1381 1383 1389 1390 1395 1396 1401 1402 1412 1415 1421 1424 1430 1433 1444 1444 1446* 1485 1487 floating 0(09) based bit(1) level 3 in structure "numinit" packed packed unaligned dcl 6-113 in procedure "cobol_ddact2" set ref 62* floating 4(01) based bit(1) level 3 in structure "numeric_lit" packed packed unaligned dcl 6-46 in procedure "cobol_ddact2" ref 62 footing 0(09) based bit(1) level 3 in structure "fd_ind" packed packed unaligned dcl 6-212 in procedure "cobol_ddact2" set ref 1034 1045* 1055* footing 1 based fixed bin(15,0) level 2 in structure "linage_rec" dcl 21-22 in procedure "cobol_ddact2" set ref 1036* 1047* 1057* 1116* footing_int 5 based fixed bin(31,0) level 2 dcl 21-22 set ref 1037* 1058* 1060* footing_name 11(09) based char(5) level 2 packed packed unaligned dcl 21-22 set ref 1038* 1052* fstatus 000102 automatic bit(32) packed unaligned dcl 2386 set ref 199* 213* 238* 257* 263* 284* 291* 296* 318* 324* 332* 354* 364* 370* 382* 387* 516* 539* 629* 653* 654* 724* 871* 893* 904* 908* 927* 936* 966* 986* 1104* 1560* 1579* 1591* 1593 1599* 1644* 1659* 1661 1791* 2006* 2186* 2193* 2240* 2251* 2255* 2312* 2324* 2329* 2344* 2349* ft_ptr 2 based pointer level 2 dcl 2425 ref 797 803 809 819 823 825 827 858 860 895 895 918 919 920 921 922 929 930 1223 1230 1256 1261 1268 1273 1277 1285 1286 1289 1294 1308 1313 1320 1325 1329 1337 1341 1346 1373 1535 1535 1552 1552 h 160 based fixed bin(17,0) level 2 dcl 2425 ref 229 505 631 i 000112 automatic fixed bin(17,0) dcl 6-4 set ref 1487* 1489* 1731* 1732* 1871* 1873 1876 1877* 1906* 1907 1909* 1930* 1936* 1940* 1946* 1951* 1957* 1961* 1983 1986 2085* 2086 2089 2090* 2117* 2177* 2178 2181 2181* 2201* 2202 2208 2210* in_constant constant fixed bin(17,0) initial dcl 4-12 ref 2183 index_ct 156 based fixed bin(17,0) level 2 dcl 2425 set ref 1780* 2154 2164 2177 2281* 2281 2284 2291 index_no 15 based fixed bin(17,0) level 2 dcl 6-160 set ref 2173* indexed_by 22(09) based bit(1) level 2 packed packed unaligned dcl 7-16 set ref 2159* indexedno 3 based fixed bin(17,0) array level 3 dcl 9-5 set ref 2154* 2158* indexname based structure level 1 unaligned dcl 6-160 info 4 based structure level 2 in structure "alphanum_lit" packed packed unaligned dcl 6-64 in procedure "cobol_ddact2" info 6 based structure level 2 in structure "message" packed packed unaligned dcl 6-85 in procedure "cobol_ddact2" info 4 based structure level 2 in structure "numeric_lit" packed packed unaligned dcl 6-46 in procedure "cobol_ddact2" info 0(08) based structure level 2 in structure "alphainit" packed packed unaligned dcl 6-134 in procedure "cobol_ddact2" info 0(08) based structure level 2 in structure "numinit" packed packed unaligned dcl 6-113 in procedure "cobol_ddact2" info 3(27) based structure level 2 in structure "file_key" packed packed unaligned dcl 20-17 in procedure "cobol_ddact2" set ref 880 1371 init_cd 133(34) based bit(1) level 2 packed packed unaligned dcl 23-26 set ref 2358* initial 10(10) based bit(1) level 3 packed packed unaligned dcl 2431 set ref 1833* initial_ptr 25 based fixed bin(17,0) level 2 dcl 7-16 set ref 950* 1769* 1770 1779* 1818* 1819 1828* 1915* 1916 1929* initype based structure level 2 in structure "alphainit" packed packed unaligned dcl 6-134 in procedure "cobol_ddact2" initype based structure level 2 in structure "numinit" packed packed unaligned dcl 6-113 in procedure "cobol_ddact2" input 10(08) based bit(1) level 3 packed packed unaligned dcl 2431 set ref 1800* input_cd_prefix_initval 000010 internal static structure level 1 unaligned dcl 2397 set ref 1822 input_cd_string based char(16) packed unaligned dcl 2391 ref 1823 integer 0(08) based bit(1) level 3 packed packed unaligned dcl 6-113 set ref 60* item_length 16 based fixed bin(24,0) level 2 dcl 7-16 set ref 82* 113* 167* 947* 1760* 1772 1809* 1821 1888* 1901* 1931* 1937* 1941* 1947* 1952* 1958* 1962* 1990 1994 2102* 2113* 2122* 2137* 2212* 2216* 2237 jump_index 6 based fixed bin(17,0) level 2 dcl 6-23 ref 130 key 4 based fixed bin(17,0) level 2 dcl 6-23 ref 782 784 786 1474 1476 1478 1480 1482 key_number 1 based fixed bin(17,0) level 2 dcl 9-5 set ref 2146* key_qual_size 3265 based fixed bin(17,0) level 2 dcl 2425 ref 1505 key_type 5 based fixed bin(17,0) level 2 dcl 20-17 set ref 882* 1383* keyed based fixed bin(17,0) level 2 dcl 9-5 set ref 2145* label_field_num 3266 based fixed bin(17,0) level 2 dcl 2425 ref 1246 1246 1298 1298 1350 1407 1410 label_format 53 based fixed bin(17,0) level 2 dcl 24-25 set ref 797* 803* 809* 1223* 1230* label_record 22(18) based bit(1) level 2 in structure "data_name" packed packed unaligned dcl 7-16 in procedure "cobol_ddact2" set ref 1005* label_record 0(03) based bit(1) level 2 in structure "fd_ind" packed packed unaligned dcl 6-212 in procedure "cobol_ddact2" set ref 1081* label_type 0(12) based structure level 2 packed packed unaligned dcl 6-212 last_file_key 121(27) based char(5) level 2 packed packed unaligned dcl 23-26 set ref 902 910* 1452* 1456* 1460* 1515* 1519* length 7 based fixed bin(17,0) level 2 in structure "message" dcl 6-85 in procedure "cobol_ddact2" set ref 706* length 5 based fixed bin(17,0) level 2 in structure "alphanum_lit" dcl 6-64 in procedure "cobol_ddact2" ref 100 1395 length 4 based fixed bin(17,0) level 2 in structure "numinit" dcl 6-113 in procedure "cobol_ddact2" set ref 69* 71 148* length 10 based fixed bin(17,0) level 2 in structure "numeric_lit" dcl 6-46 in procedure "cobol_ddact2" ref 69 1401 length 1 based fixed bin(17,0) level 2 in structure "alphainit" dcl 6-134 in procedure "cobol_ddact2" set ref 100* 102 132* 155* 1772* 1774 1775 1821* 1823 1824 1919* 1920 level 12 based fixed bin(17,0) level 2 in structure "indexname" dcl 6-160 in procedure "cobol_ddact2" set ref 2172* level 3 based structure array level 2 in structure "occurs" unaligned dcl 9-5 in procedure "cobol_ddact2" level 12 based fixed bin(17,0) level 2 in structure "data_name" dcl 7-16 in procedure "cobol_ddact2" set ref 203 415 447 489 634 668* 946* 1759* 1808* 1887* 1900* 2101* 2111* 2232* 2244* level defined fixed bin(17,0) array level 2 in structure "cobol_htbl" dcl 2-15 in procedure "cobol_ddact2" ref 507 linage 33(34) based bit(1) level 2 packed packed unaligned dcl 24-25 set ref 930* linage_info 32 based char(5) level 2 in structure "file_table" packed packed unaligned dcl 24-25 in procedure "cobol_ddact2" set ref 929* linage_info 112(09) based char(5) level 2 in structure "fixed_common" packed packed unaligned dcl 23-26 in procedure "cobol_ddact2" set ref 1651* linage_is 0(06) based bit(1) level 2 packed packed unaligned dcl 6-212 set ref 923 977 1109* linage_name_rec based structure level 1 unaligned dcl 22-6 linage_name_rec_constant constant fixed bin(17,0) initial dcl 4-17 ref 1642 linage_ptr 6 based pointer level 2 dcl 2425 set ref 925 927* 1023 1024 1025 1029 1030 1031 1036 1037 1038 1047 1047 1052 1057 1058 1060 1112* 1113 1114 1115 1116 1117 1160 1160 1165 1170 1171 1173 1197 1197 1202 1606 1606 1611 1616 1617 1619 1624 1625 1627 1646 1646 linage_rec based structure level 1 unaligned dcl 21-22 linage_rec_constant constant fixed bin(17,0) initial dcl 4-16 ref 925 linage_type 0(08) based structure level 2 packed packed unaligned dcl 6-212 line 1 based fixed bin(17,0) level 2 in structure "message" dcl 6-85 in procedure "cobol_ddact2" set ref 699* line 6 based fixed bin(17,0) level 2 in structure "file_key" dcl 20-17 in procedure "cobol_ddact2" set ref 883* 1375* line 2 based fixed bin(17,0) level 2 in structure "report_rec" dcl 17-3 in procedure "cobol_ddact2" set ref 1569* line 2 based fixed bin(17,0) level 2 in structure "qual_rec" dcl 14-4 in procedure "cobol_ddact2" set ref 344* line 1 based fixed bin(17,0) level 2 in structure "fd_token" dcl 11-4 in procedure "cobol_ddact2" set ref 778* 943 line 1 based fixed bin(17,0) level 2 in structure "data_name" dcl 7-16 in procedure "cobol_ddact2" set ref 261 665* 943* line 2 based fixed bin(17,0) level 2 in structure "linage_name_rec" dcl 22-6 in procedure "cobol_ddact2" set ref 1634* line 2 based fixed bin(17,0) level 2 in structure "obj_rec" dcl 15-4 in procedure "cobol_ddact2" set ref 313* line 1 based fixed bin(17,0) level 2 in structure "record" dcl 6-10 in procedure "cobol_ddact2" ref 699 777 778 1725 2308 line 1 based fixed bin(17,0) level 2 in structure "user_word" dcl 6-101 in procedure "cobol_ddact2" ref 225 313 344 883 1375 1569 1634 lineno 5 based fixed bin(17,0) level 2 dcl 16-4 set ref 2308* lineno_01 6 based fixed bin(17,0) level 2 dcl 18-3 set ref 268* lineno_66 7 based fixed bin(17,0) level 2 dcl 18-3 set ref 225* lit_bit based bit(9) packed unaligned dcl 1469 set ref 1480* 1482* lit_bit_string based char(1) array packed unaligned dcl 1470 set ref 1489* lit_char 000274 automatic char(1) packed unaligned dcl 1467 set ref 1472* 1474* 1476* 1478* 1480 1482 1489 literal 5 based char level 2 in structure "numinit" packed packed unaligned dcl 6-113 in procedure "cobol_ddact2" set ref 71* literal 11 based char level 2 in structure "numeric_lit" packed packed unaligned dcl 6-46 in procedure "cobol_ddact2" ref 71 1058 1127 1147 1171 1178 1209 1402 1617 1625 2262 ll01 3056(04) based bit(1) level 2 packed packed unaligned dcl 2425 set ref 735* 773* 1687* 1704* 1716 1722* 1868* 2082* ll77 3056(05) based bit(1) level 2 packed packed unaligned dcl 2425 set ref 736* 1689* ltdp 6 based fixed bin(17,0) level 2 in structure "numeric_lit" dcl 6-46 in procedure "cobol_ddact2" ref 67 ltdp 2 based fixed bin(17,0) level 2 in structure "numinit" dcl 6-113 in procedure "cobol_ddact2" set ref 67* max 5 based fixed bin(17,0) array level 3 in structure "occurs" dcl 9-5 in procedure "cobol_ddact2" set ref 2150* 2175 max 17 based fixed bin(17,0) level 2 in structure "indexname" dcl 6-160 in procedure "cobol_ddact2" set ref 2175* max_poss_extensions constant fixed bin(17,0) initial dcl 2384 ref 715 mdest 16 based fixed bin(17,0) level 2 dcl 2431 set ref 1789* 2253* message based structure level 1 unaligned dcl 6-85 message_area 000113 automatic char(56) packed unaligned dcl 6-8 set ref 696 message_ptr 000132 automatic pointer dcl 6-9 set ref 696* 698 699 700 701 702 703 704 705 706 707 709* min 4 based fixed bin(17,0) array level 3 in structure "occurs" dcl 9-5 in procedure "cobol_ddact2" ref 2174 min 16 based fixed bin(17,0) level 2 in structure "indexname" dcl 6-160 in procedure "cobol_ddact2" set ref 2174* min_ptr based pointer level 2 dcl 2425 ref 39 41 41 60 62 63 64 65 66 67 68 69 71 99 100 102 130 225 269 271 271 309 311 311 313 314 344 345 346 348 348 400 420 436 454 482 521 555 567 699 700 765 765 777 778 779 782 784 786 846 847 847 883 884 887 889 889 1058 1058 1127 1127 1147 1147 1171 1171 1178 1178 1209 1209 1237 1241 1241 1241 1243 1286 1375 1376 1387 1389 1390 1393 1395 1396 1399 1401 1402 1405 1474 1476 1478 1480 1482 1505 1508 1509 1541 1545 1545 1545 1547 1569 1570 1572 1574 1574 1617 1617 1625 1625 1634 1635 1637 1639 1639 1708 1708 1725 1726 1742 1744 1744 2064 2070 2072 2072 2262 2262 2308 mod builtin function dcl 2415 ref 44 77 108 162 681 850 1748 1767 1816 1913 2141 2205 name 6 based char(31) level 2 in structure "obj_rec" packed packed unaligned dcl 15-4 in procedure "cobol_ddact2" set ref 311* name 24 based char(31) level 2 in structure "indexname" packed packed unaligned dcl 6-160 in procedure "cobol_ddact2" set ref 2181* name 13 based char(31) level 2 in structure "rename_rec" packed packed unaligned dcl 18-3 in procedure "cobol_ddact2" set ref 271* name 14 based char(31) level 2 in structure "fd_token" packed packed unaligned dcl 11-4 in procedure "cobol_ddact2" set ref 847* name 3 based char level 2 in structure "qual_rec" packed packed unaligned dcl 1500 in procedure "enter_qual" set ref 1509* name 5 based char(31) level 2 in structure "qual_rec" packed packed unaligned dcl 14-4 in procedure "cobol_ddact2" set ref 348* name 7 based char(31) level 2 in structure "report_rec" packed packed unaligned dcl 17-3 in procedure "cobol_ddact2" set ref 1574* name 10 based char(31) level 2 in structure "linage_name_rec" packed packed unaligned dcl 22-6 in procedure "cobol_ddact2" set ref 1639* name 20 based char level 2 in structure "cdtoken" packed packed unaligned dcl 2431 in procedure "cobol_ddact2" set ref 1744* name 15 based char(31) level 2 in structure "conditioname" packed packed unaligned dcl 6-180 in procedure "cobol_ddact2" set ref 41* name 34 based char level 2 in structure "data_name" packed packed unaligned dcl 7-16 in procedure "cobol_ddact2" set ref 420 454 521 524 588 677* 956* 1884* 1909* 1986* 2098* 2135* 2208* name 25 based char level 2 in structure "file_key" packed packed unaligned dcl 20-17 in procedure "cobol_ddact2" set ref 889* 1390* 1396* 1402* 1485 name_count 15 based fixed bin(15,0) level 2 dcl 21-22 set ref 925 1047 1117* 1160 1197 1606 1646* 1646 name_size 13 based fixed bin(17,0) level 2 in structure "fd_token" dcl 11-4 in procedure "cobol_ddact2" set ref 846* 847 848 name_size 24 based fixed bin(17,0) level 2 in structure "file_key" dcl 20-17 in procedure "cobol_ddact2" set ref 887* 889 889 891 1389* 1390 1395* 1396 1401* 1402 1412* 1415* 1421* 1424* 1430* 1433* 1444 1485 1487 name_size 33 based fixed bin(17,0) level 2 in structure "data_name" dcl 7-16 in procedure "cobol_ddact2" set ref 420 454 521 524 588 675* 677 677 955* 956 956 1881* 1884 1884 1893 1907* 1909 1909 1909 1911 1983* 1984 1986 1986 1986 2096* 2098 2098 2107 2133* 2135 2135 2139 2202* 2203 2208 2208 name_size 14 based fixed bin(17,0) level 2 in structure "conditioname" dcl 6-180 in procedure "cobol_ddact2" set ref 39* 41 42 name_size 23 based fixed bin(17,0) level 2 in structure "indexname" dcl 6-160 in procedure "cobol_ddact2" set ref 2178* 2181 2183 name_size 17 based fixed bin(17,0) level 2 in structure "cdtoken" dcl 2431 in procedure "cobol_ddact2" set ref 1742* 1744 1744 1746 name_string 1315 based char(300) level 2 packed packed unaligned dcl 2425 set ref 1002 1241* 1545* name_string_index 147 based fixed bin(17,0) level 2 dcl 2425 set ref 738* 1236 1241 1243* 1243 1540 1545 1547* 1547 next based char(5) level 2 in structure "report_rec" packed packed unaligned dcl 17-3 in procedure "cobol_ddact2" set ref 1568* 1597* next based char(5) level 2 in structure "linage_name_rec" packed packed unaligned dcl 22-6 in procedure "cobol_ddact2" set ref 1633* 1664* next 2 based char(5) level 2 in structure "rename_rec" packed packed unaligned dcl 18-3 in procedure "cobol_ddact2" set ref 273* 294* next based char(5) level 2 in structure "occ_key" packed packed unaligned dcl 16-4 in procedure "cobol_ddact2" set ref 2306* 2327* next based char(5) level 2 in structure "qual_rec" packed packed unaligned dcl 14-4 in procedure "cobol_ddact2" set ref 350* 384* next based char(5) level 2 in structure "file_key" packed packed unaligned dcl 20-17 in procedure "cobol_ddact2" set ref 877* 906* 1367* 1454* next based char(5) level 2 in structure "qual_rec" packed packed unaligned dcl 1500 in procedure "enter_qual" set ref 1507* next_alt 1(09) based char(5) level 2 packed packed unaligned dcl 20-17 set ref 878* 1368* next_level 275 based fixed bin(17,0) level 2 dcl 2425 set ref 394* 445 447 450 489 494 507 524 555 567 588 niv 153 based fixed bin(17,0) level 2 dcl 2425 set ref 70* 75 niv_constant constant fixed bin(17,0) initial dcl 4-7 ref 75 144 nl 142 based fixed bin(17,0) level 2 dcl 2425 ref 70 71 1058 1127 1147 1171 1178 1209 1402 1617 1625 2262 no_of_88s 211 based fixed bin(17,0) level 2 dcl 2425 set ref 217* 217 non_elementary 21(08) based bit(1) level 2 packed packed unaligned dcl 7-16 ref 631 non_numeric 0(01) based bit(1) level 3 packed packed unaligned dcl 6-134 set ref 98* 153* 1771* 1820* 1918* nsa_cancelled 3047 based bit(1) array level 2 packed packed unaligned dcl 2425 set ref 750 1004* 1239* 1543* nsa_index 144 based fixed bin(17,0) level 2 dcl 2425 set ref 739* 747 747 789 993 997 1011 1234* 1234 1236 1237 1238 1239 1539* 1539 1540 1541 1542 1543 nsa_index_last_fd 145 based fixed bin(17,0) level 2 dcl 2425 set ref 789* 993 997 nsa_lbl_rec 3037(32) based bit(1) array level 2 packed packed unaligned dcl 2425 set ref 753 1005 1238* 1542* nsa_name_index 315 based fixed bin(17,0) array level 2 dcl 2425 set ref 1002 1236* 1540* nsa_name_length 715 based fixed bin(17,0) array level 2 dcl 2425 set ref 999 1237* 1541* nsa_work_index 146 based fixed bin(17,0) level 2 dcl 2425 set ref 747* 750 753* 997* 999 1002 1004 1005* 1011 nt_rec 3 defined char(5) array level 2 packed packed unaligned dcl 2-15 set ref 254 514 631* nt_size 176 based fixed bin(17,0) level 2 dcl 2425 set ref 627* 629* null_func 000164 constant pointer initial dcl 2387 ref 49 79 87 110 118 164 172 null_key 000162 constant char(5) initial packed unaligned dcl 2388 ref 231 234 245 273 274 275 286 303 308 350 359 533 596 641 669 720 827 877 878 879 895 899 1025 1031 1038 1568 1581 1633 1648 2302 2306 2314 2339 num parameter fixed bin(17,0) dcl 576 in procedure "enter_correct_err" ref 573 578 num parameter fixed bin(17,0) dcl 565 in procedure "enter_incorrect" set ref 562 569* num parameter fixed bin(17,0) dcl 609 in procedure "TF" ref 606 611 number 5 based fixed bin(17,0) level 2 dcl 6-85 set ref 707* numeric 0(17) based bit(1) level 2 in structure "vector_map" packed packed unaligned dcl 6-245 in procedure "cobol_ddact2" ref 142 numeric based bit(1) level 3 in structure "numinit" packed packed unaligned dcl 6-113 in procedure "cobol_ddact2" set ref 59* 146* numeric_lit based structure level 1 unaligned dcl 6-46 numinit based structure level 1 unaligned dcl 6-113 numlits 13 based fixed bin(17,0) level 2 dcl 6-180 set ref 48* 52* 52 91* 91 122* 122 o_of_rdf 21(12) based bit(1) level 2 packed packed unaligned dcl 7-16 set ref 427* 471* 523* 650 obj1 3(09) based char(5) level 2 packed packed unaligned dcl 18-3 set ref 274* 328* obj2 4(18) based char(5) level 2 packed packed unaligned dcl 18-3 set ref 275* 330* obj_rec based structure level 1 unaligned dcl 15-4 obj_rec_constant constant fixed bin(17,0) initial dcl 4-21 ref 316 occ_constant constant fixed bin(17,0) initial dcl 4-10 ref 2161 2196 2196 2228 2228 2231 occ_dim_constant constant fixed bin(17,0) initial dcl 4-11 ref 2161 2196 2196 2228 2228 2231 occ_key based structure level 1 unaligned dcl 16-4 occ_key_constant constant fixed bin(17,0) initial dcl 4-19 ref 2310 occurs based structure level 1 unaligned dcl 9-5 occurs_ptr 27 based fixed bin(17,0) level 2 dcl 7-16 set ref 465 952* 2144* 2196 2226* 2228 odim 155 based fixed bin(17,0) level 2 dcl 2425 set ref 2147* 2154 2158 offset 24 based fixed bin(24,0) level 2 dcl 7-16 set ref 954* 1886* 1923* 1993* 2100* 2207* offset_ct 57 based fixed bin(24,0) level 2 dcl 2425 set ref 450* 494* omitted 0(12) based bit(1) level 3 packed packed unaligned dcl 6-212 set ref 1220* options 10(08) based structure level 2 packed packed unaligned dcl 2431 output 10(09) based bit(1) level 3 packed packed unaligned dcl 2431 set ref 1752* output_cd_prefix_initval 000014 internal static structure level 1 unaligned dcl 2406 set ref 1773 output_cd_string based char(16) packed unaligned dcl 2393 ref 1774 p 000276 automatic pointer dcl 1467 set ref 1485* 1489 para 6 based bit(1) level 3 packed packed unaligned dcl 6-85 set ref 703* places_left 17 based fixed bin(17,0) level 2 dcl 7-16 set ref 948* 1902* 1990* 2123* 2138* 2213* 2217* places_right 20 based fixed bin(17,0) level 2 dcl 7-16 set ref 949* 1889* 1988* 2103* prev_qual_key 3260 based char(5) level 2 packed packed unaligned dcl 2425 set ref 1524* 1527* prior_linage_name_rec 2657(18) based char(5) level 2 packed packed unaligned dcl 2425 set ref 1648 1652* 1656 1666* prior_obj_rec 2652(18) based char(5) level 2 packed packed unaligned dcl 2425 set ref 321* 362 prior_occ_key 2656(09) based char(5) level 2 packed packed unaligned dcl 2425 set ref 2314 2318* 2321 2331* prior_qual_rec 2655 based char(5) level 2 packed packed unaligned dcl 2425 set ref 303* 359 368* 381 385* 2339 2351* prior_rename_rec 2662 based char(5) level 2 packed packed unaligned dcl 2425 set ref 286 289 300* 322 720 722 prior_report_rec 2653(27) based char(5) level 2 packed packed unaligned dcl 2425 set ref 1581 1585* 1588 1601* prior_skey_rec 2660(27) based char(5) level 2 packed packed unaligned dcl 2425 set ref 2302* 2342 ptr1 16 based pointer level 2 dcl 2425 set ref 46 47* 59 60 62 63 64 65 66 67 68 69 71 81 82* 98 99 100 102 112 113* 129 130 132 139 146 148 153 155 166 167* 177 179 180* 183* 215* 683* 1675 1682* 1770* 1771 1772 1774 1775 1819* 1820 1821 1823 1824 1916* 1918 1919 1920 2143* 2145 2146 2149 2150 2151 2152 2154 2158 2174 2175 ptr11 000104 automatic pointer dcl 2389 set ref 1773* 1774 1822* 1823 ptr2 26 based pointer level 2 dcl 2425 set ref 852* ptr4 46 based pointer level 2 dcl 2425 set ref 223* 224 306* 307 342* 343 660* 661 775* 776 940* 941 1566* 1567 1723* 1724 1971* 1972 2168* 2169 2304* 2305 ptr5 44 based pointer level 2 dcl 2425 ref 142 408 409 2300 ptr8 000134 automatic pointer dcl 6-350 set ref 957* 959 1762* 1764 1811* 1813 1890* 1892 1904 1933 1943 1948 1954 1964 2104* 2106 2115 2124 2132 2223 2235 ptr_to_char_tbl 50 based pointer level 2 dcl 2425 set ref 82* 113* 167* qual 2(18) based char(5) level 2 in structure "file_key" packed packed unaligned dcl 20-17 in procedure "cobol_ddact2" set ref 879* 1369* 1517* qual 1(09) based char(5) level 2 in structure "skey_rec" packed packed unaligned dcl 19-3 in procedure "cobol_ddact2" set ref 2347* qual based char(5) level 2 in structure "obj_rec" packed packed unaligned dcl 15-4 in procedure "cobol_ddact2" set ref 308* 367* qual_ptr 3276 based pointer level 2 dcl 2425 set ref 1507 1508 1509 1511* qual_rec based structure level 1 unaligned dcl 14-4 in procedure "cobol_ddact2" qual_rec based structure level 1 unaligned dcl 1500 in procedure "enter_qual" qual_rec_constant constant fixed bin(17,0) initial dcl 4-18 ref 352 qual_sw 3057(27) based bit(1) level 2 packed packed unaligned dcl 2425 set ref 1385* 1513 1528* rcm_key 2637(09) based char(5) level 2 packed packed unaligned dcl 2425 set ref 289* 291* 296* 322* 324* 332* 362* 364* 370* 381* 382* 387* 722* 724* 902* 904* 908* 1588* 1591* 1599* 1656* 1659* 2321* 2324* 2329* 2342* 2344* 2349* rdf_01_sav 2646(27) based char(5) level 2 packed packed unaligned dcl 2425 set ref 203* 231 231 241* 245* 636* 641* rdf_level 277 based fixed bin(17,0) level 2 dcl 2425 set ref 413* 445* 482 rdf_tbl 1741 based varying char(30) array level 2 dcl 2425 set ref 436 482 524* 555 567* 588* rec_do 33(33) based bit(1) level 2 packed packed unaligned dcl 24-25 set ref 858* rec_do_info 25 based char(5) level 2 packed packed unaligned dcl 24-25 set ref 827* 895 895* rec_max 71 based fixed bin(24,0) level 2 dcl 24-25 set ref 922* rec_min 70 based fixed bin(24,0) level 2 dcl 24-25 set ref 921* rec_no 2(18) based char(5) level 2 packed packed unaligned dcl 16-4 set ref 2307* rec_no_66 10 based char(5) level 2 packed packed unaligned dcl 18-3 set ref 267* record based structure level 1 unaligned dcl 6-10 record_contain 0(02) based bit(1) level 2 packed packed unaligned dcl 6-212 set ref 1077* recording_mode based bit(1) level 2 packed packed unaligned dcl 6-212 set ref 1065* rename_info 66(09) based char(5) level 2 packed packed unaligned dcl 23-26 set ref 286* rename_rec based structure level 1 unaligned dcl 18-3 rename_rec_constant constant fixed bin(17,0) initial dcl 4-22 ref 282 rep 6(01) based bit(1) level 3 packed packed unaligned dcl 6-85 set ref 704* report_count 75 based fixed bin(17,0) level 2 dcl 24-25 set ref 1552* 1552 report_is 0(05) based bit(1) level 2 packed packed unaligned dcl 6-212 set ref 971 977 1093* report_names 67(18) based char(5) level 2 packed packed unaligned dcl 23-26 set ref 1584* report_rec based structure level 1 unaligned dcl 17-3 report_rec_constant constant fixed bin(17,0) initial dcl 4-20 ref 1577 retention_info 11 based char(5) level 2 packed packed unaligned dcl 24-25 set ref 1268 1273* 1320 1325* rn 000100 automatic fixed bin(17,0) dcl 2382 set ref 691* 695* 702 rnm_01 22(31) based bit(1) level 2 packed packed unaligned dcl 7-16 set ref 259* rnm_obj12 207 based fixed bin(17,0) level 2 dcl 2425 set ref 220* 278 304* 304 328 rnt_key 2633(18) based char(5) level 2 packed packed unaligned dcl 2425 set ref 231* 250* 254* 257* 260 263* 514* 516* 539* rnt_ptr 12 based pointer level 2 dcl 2425 set ref 257* 259 261 263* 516* 519 539* 626* 629* 653* rnt_size 151 based fixed bin(17,0) level 2 dcl 2425 set ref 197* 199* 211* 213* 237* 238* 257* 263* 516* 539* 653* 654* 869* 871* 934* 936* 964* 966* 986* 1102* 1104* 1558* 1560* 1787* 1791* 2004* 2006* 2184* 2186* 2190* 2193* 2238* 2240* 2251* 2255* rtdp 7 based fixed bin(17,0) level 2 in structure "numeric_lit" dcl 6-46 in procedure "cobol_ddact2" ref 60 68 rtdp 3 based fixed bin(17,0) level 2 in structure "numinit" dcl 6-113 in procedure "cobol_ddact2" set ref 68* run3 4 based fixed bin(17,0) level 2 dcl 6-85 set ref 702* rw based structure level 1 unaligned dcl 6-23 s_of_rdf 0(11) based bit(1) level 2 in structure "vector_map" packed packed unaligned dcl 6-245 in procedure "cobol_ddact2" set ref 408* s_of_rdf 21(11) based bit(1) level 2 in structure "data_name" packed packed unaligned dcl 7-16 in procedure "cobol_ddact2" set ref 459 836* save_01 2644(09) based char(5) level 2 packed packed unaligned dcl 2425 set ref 206* 234 244* 250 640* 2307 save_01_for66 2650 based char(5) level 2 packed packed unaligned dcl 2425 set ref 260* 267 save_block_desc 165 based fixed bin(17,0) level 2 dcl 2425 set ref 790* 918 1135* 1139* save_block_max 167 based fixed bin(17,0) level 2 dcl 2425 set ref 792* 920 1120* 1127* 1131* 1145 1147* 1149* 1151 save_block_min 166 based fixed bin(17,0) level 2 dcl 2425 set ref 791* 919 1119* 1132* 1145* 1151 save_cdo 206 based fixed bin(17,0) level 2 dcl 2425 set ref 1736* 2094 2094* 2102 2128 2150 2196 2220 2246 2253 2262* 2266* 2268 save_column 300 based fixed bin(17,0) level 2 dcl 2425 ref 667 save_dname 1670(09) based char(30) level 2 packed packed unaligned dcl 2425 ref 677 1002 save_fd 2640(18) based char(5) level 2 packed packed unaligned dcl 2425 set ref 968* 986* 1793* 2249 save_level 276 based fixed bin(17,0) level 2 dcl 2425 ref 411 668 save_line 172 based fixed bin(17,0) level 2 dcl 2425 ref 665 666 save_line_for66 173 based fixed bin(17,0) level 2 dcl 2425 set ref 227 261* 268 save_offsets 60 based fixed bin(24,0) array level 2 dcl 2425 ref 450 494 save_ptr 20 based pointer level 2 dcl 2425 set ref 46* 215 518* 541 549 save_ptr1 22 based pointer level 2 dcl 2425 set ref 49* 79 82* 87* 110 113* 118* 164 167* 172* 179* save_record_max 171 based fixed bin(17,0) level 2 dcl 2425 set ref 794* 922 1122* 1178* 1182* 1184 1207 1209* 1211* 1213 save_record_min 170 based fixed bin(17,0) level 2 dcl 2425 set ref 793* 921 1121* 1190* 1207* save_switch_88 3057(24) based bit(1) level 2 packed packed unaligned dcl 2425 set ref 216* save_w2 36 based pointer level 2 dcl 2425 set ref 986* 989 save_wkey 2641(27) based char(5) level 2 packed packed unaligned dcl 2425 set ref 207* 248* 653* 654* 2248* 2257 search_keys 75(09) based char(5) level 2 packed packed unaligned dcl 23-26 set ref 2317* section_ind 3057(12) based bit(8) level 2 packed packed unaligned dcl 2425 set ref 732* 1700* shared_var based structure level 1 unaligned dcl 2425 sign 4(09) based char(1) level 2 in structure "numeric_lit" packed packed unaligned dcl 6-46 in procedure "cobol_ddact2" ref 66 sign 0(18) based char(1) level 2 in structure "numinit" packed packed unaligned dcl 6-113 in procedure "cobol_ddact2" set ref 66* siz 000264 automatic fixed bin(17,0) dcl 1364 set ref 1444* 1446* 1452* 1456* size builtin function dcl 2415 in procedure "cobol_ddact2" ref 1444 size 5 based fixed bin(17,0) level 2 in structure "obj_rec" dcl 15-4 in procedure "cobol_ddact2" set ref 309* 311 316 size 000310 automatic fixed bin(17,0) dcl 1498 in procedure "enter_qual" set ref 1505* 1511* 1515* 1519* 1524* size based fixed bin(17,0) level 2 in structure "data_name" dcl 7-16 in procedure "cobol_ddact2" set ref 197 237 627 664* 679* 681* 681 681 683 715* 715 869 934 942* 1102 1558 1682 1765* 1767* 1767 1767 1769 1775* 1775 1814* 1816* 1816 1816 1818 1824* 1824 1893* 1911* 1913* 1913 1913 1915 1922* 1922 1984* 2004 2107* 2139* 2141* 2141 2141 2143 2144 2161* 2161 2190 2203* 2205* 2205 2205 2226 2231* 2231 2238 size 12 based fixed bin(17,0) level 2 in structure "rename_rec" dcl 18-3 in procedure "cobol_ddact2" set ref 269* 271 282 size based fixed bin(17,0) level 2 in structure "indexname" dcl 6-160 in procedure "cobol_ddact2" set ref 2183* 2184 size 4 based fixed bin(17,0) level 2 in structure "qual_rec" dcl 14-4 in procedure "cobol_ddact2" set ref 346* 348 352 size based fixed bin(17,0) level 2 in structure "fd_token" dcl 11-4 in procedure "cobol_ddact2" set ref 780* 848* 848 850* 850 850 852 964 size based fixed bin(17,0) level 2 in structure "conditioname" dcl 6-180 in procedure "cobol_ddact2" set ref 42* 42 44* 44 44 47 75* 75 77* 77 77 106* 106 108* 108 108 144* 144 151* 151 160* 160 162* 162 162 180 183 211 size 7 based fixed bin(17,0) level 2 in structure "linage_name_rec" dcl 22-6 in procedure "cobol_ddact2" set ref 1637* 1639 1642 size 2 based fixed bin(17,0) level 2 in structure "qual_rec" dcl 1500 in procedure "enter_qual" set ref 1508* 1509 size based fixed bin(17,0) level 2 in structure "message" dcl 6-85 in procedure "cobol_ddact2" set ref 698* size 6 based fixed bin(17,0) level 2 in structure "report_rec" dcl 17-3 in procedure "cobol_ddact2" set ref 1572* 1574 1577 size based fixed bin(17,0) level 2 in structure "cdtoken" dcl 2431 in procedure "cobol_ddact2" set ref 1727* 1746* 1746 1748* 1748 1748 1787 skey_ptr 4 based pointer level 2 dcl 2425 set ref 2346* 2347 skey_rec based structure level 1 unaligned dcl 19-3 sort_file 33(32) based bit(1) level 2 packed packed unaligned dcl 24-25 set ref 823* 825* standard 0(13) based bit(1) level 3 packed packed unaligned dcl 6-212 set ref 1227* string 6 based char level 2 in structure "alphanum_lit" packed packed unaligned dcl 6-64 in procedure "cobol_ddact2" ref 102 1286 1396 string 2 based char level 2 in structure "alphainit" packed packed unaligned dcl 6-134 in procedure "cobol_ddact2" set ref 102* 1774* 1823* 1920* struclength 6 based fixed bin(17,0) array level 3 dcl 9-5 set ref 2151* subject_of_keyis 1(21) based bit(1) level 2 packed packed unaligned dcl 6-245 set ref 2300* substr builtin function dcl 2415 set ref 41* 41 130 271* 271 311* 311 348* 348 677 732* 734* 847* 847 889* 889 956* 1002 1241* 1241 1545* 1545 1574* 1574 1593 1639* 1639 1661 1700* 1702* 1744* 1744 1803* 1860* 1873 1877* 1884* 1909* 1909 1986* 1986 2015* 2067* 2072* 2072 2086 2090* 2098* 2135* 2181* 2181 2196* 2196 2208* 2228* 2228 sv_ptr_auto 000110 automatic pointer dcl 2422 set ref (more) 59 60 60 62 62 63 63 64 64 65 65 66 66 67 67 68 68 69 69 70 70 71 71 71 98 99 99 100 100 101 101 102 102 102 129 130 130 132 341 342 343 344 344 345 345 346 346 348 348 348 348 350 351 351 352 352 354 354 354 381 381 382 382 382 383 383 384 384 385 385 387 387 387 567 567 567 588 588 588 590 596 621 626 626 627 627 629 629 629 631 631 631 634 636 636 636 640 640 641 650 653 653 653 654 654 654 660 661 663 664 665 665 666 666 667 667 668 668 669 671 671 671 673 673 675 675 677 677 677 679 679 681 681 681 683 683 683 685 699 700 895 895 899 902 904 904 904 906 906 908 908 908 910 913 918 918 919 919 920 920 921 921 922 922 923 925 925 927 927 927 929 929 930 932 934 934 936 936 936 940 941 942 943 943 944 944 945 946 947 948 949 950 951 952 953 953 954 955 956 956 957 961 964 964 966 966 966 968 968 971 971 977 977 986 986 986 989 989 991 993 993 997 997 997 999 999 999 1002 1002 1002 1002 1002 1004 1004 1005 1005 1005 1011 1011 1020 1023 1024 1025 1027 1029 1030 1031 1034 1036 1037 1038 1045 1047 1047 1048 1052 1052 1055 1057 1058 1058 1058 1058 1060 1065 1073 1077 1081 1085 1089 1093 1099 1102 1102 1104 1104 1104 1106 1109 1110 1112 1112 1113 1114 1115 1116 1117 1119 1120 1121 1122 1127 1127 1127 1127 1131 1132 1135 1139 1145 1145 1147 1147 1147 1147 1149 1151 1151 1158 1160 1160 1161 1165 1165 1168 1170 1171 1171 1171 1171 1173 1178 1178 1178 1178 1182 1184 1190 1195 1197 1197 1198 1202 1202 1207 1207 1209 1209 1209 1209 1211 1213 1220 1223 1223 1227 1230 1230 1234 1234 1236 1236 1236 1237 1237 1237 1238 1238 1239 1239 1241 1241 1241 1241 1241 1243 1243 1243 1246 1246 1256 1261 1261 1268 1273 1273 1277 1285 1286 1286 1286 1289 1294 1294 1298 1298 1308 1313 1313 1320 1325 1325 1329 1337 1341 1346 1346 1350 1367 1368 1369 1371 1373 1373 1375 1375 1376 1376 1378 1379 1381 1383 1385 1387 1389 1389 1390 1390 1393 1395 1395 1396 1396 1396 1399 1401 1401 1402 1402 1402 1405 1407 1410 1412 1412 1415 1421 1421 1424 1430 1430 1433 1444 1444 1446 1446 1446 1448 1452 1452 1454 1454 1456 1456 1460 1474 1476 1478 1480 1482 1485 1487 1505 1505 1507 1508 1508 1509 1509 1511 1511 1511 1513 1515 1515 1517 1517 1519 1519 1524 1524 1524 1527 1527 1528 1535 1535 1535 1539 1539 1540 1540 1540 1541 1541 1541 1542 1542 1543 1543 1545 1545 1545 1545 1545 1547 1547 1547 1552 1552 1552 1556 1558 1558 1560 1560 1560 1562 1565 1566 1567 1568 1569 1569 1570 1570 1571 1571 1572 1572 1574 1574 1574 1574 1576 1576 1577 1577 1579 1579 1579 1581 1584 1585 1585 1588 1588 1591 1591 1591 1596 1596 1597 1597 1599 1599 1599 1601 1601 1604 1606 1606 1607 1611 1611 1614 1616 1617 1617 1617 1617 1619 1622 1624 1625 1625 1625 1625 1627 1633 1634 1634 1635 1635 1636 1636 1637 1637 1639 1639 1639 1639 1641 1641 1642 1642 1644 1644 1644 1646 1646 1648 1651 1652 1652 1656 1656 1659 1659 1659 1664 1664 1666 1666 1675 1682 1682 1682 1687 1689 1700 1702 1703 1704 1705 1708 1708 1716 1722 1723 1724 1725 1725 1726 1726 1727 1728 1729 1729 1732 1735 1736 1742 1742 1744 1744 1744 1744 1746 1746 1746 1748 1748 1748 1752 1754 1759 1760 1762 1765 1767 1767 1767 1769 1769 1770 1770 1770 1771 1772 1772 1774 1775 1775 1775 1779 1780 1787 1787 1788 1788 1789 1791 1791 1791 1793 1793 1800 1802 1803 1808 1809 1811 1814 1816 1816 1816 1818 1818 1819 1819 1819 1820 1821 1821 1823 1824 1824 1824 1828 1833 1835 1838 1842 1846 1846 1854 1854 1857 1859 1859 1860 1860 1868 1873 1876 1877 1881 1884 1884 1886 1887 1888 1889 1890 1893 1893 1897 1900 1901 1902 1907 1907 1909 1909 1909 1909 1911 1911 1913 1913 1913 1915 1915 1916 1916 1916 1918 1919 1920 1922 1922 1923 1923 1924 1924 1929 1931 1937 1941 1947 1952 1958 1962 1971 1972 1973 1974 1974 1975 1975 1976 1976 1983 1983 1984 1984 1986 1986 1986 1986 1988 1990 1990 1993 1993 1994 1994 1994 2004 2004 2006 2006 2006 2013 2015 2015 2021 2025 2029 2033 2037 2041 2045 2049 2053 2057 2064 2066 2066 2067 2067 2070 2070 2070 2072 2072 2072 2072 2072 2072 2082 2086 2089 2090 2094 2094 2096 2098 2098 2100 2101 2102 2102 2103 2104 2107 2107 2111 2112 2113 2122 2123 2128 2133 2135 2135 2137 2138 2139 2139 2141 2141 2141 2143 2143 2143 2144 2144 2145 2146 2147 2149 2150 2150 2151 2152 2154 2154 2154 2157 2157 2158 2158 2158 2159 2161 2161 2164 2168 2169 2171 2172 2173 2173 2174 2174 2175 2175 2177 2178 2178 2181 2181 2181 2181 2183 2183 2184 2184 2186 2186 2186 2190 2190 2193 2193 2193 2196 2196 2202 2202 2203 2203 2205 2205 2205 2207 2207 2208 2208 2208 2212 2213 2216 2217 2220 2226 2226 2228 2231 2231 2232 2237 2237 2237 2238 2238 2240 2240 2240 2244 2246 2248 2248 2249 2249 2251 2251 2253 2255 2255 2257 2257 2262 2262 2262 2262 2266 2268 2281 2281 2284 2291 2291 2300 2302 2303 2304 2305 2306 2307 2307 2308 2308 2309 2309 2310 2312 2312 2312 2314 2317 2318 2318 2321 2321 2324 2324 2324 2326 2326 2327 2327 2329 2329 2329 2331 2331 2339 2342 2342 2344 2344 2344 2346 2346 2347 2347 2349 2349 2349 2351 2351 temp_bin1 55 based fixed bin(24,0) level 2 dcl 2425 set ref 1897* 1923 1924* 1924 1993 1994* 1994 2112* 2207 2237* 2237 temp_offset 11 based fixed bin(24,0) level 2 dcl 20-17 set ref 886* 1379* temp_seg 10 based fixed bin(17,0) level 2 dcl 20-17 set ref 885* 1378* tf 000101 automatic fixed bin(17,0) dcl 2385 set ref 82* 84 113* 115 167* 169 403* 461* 467* 529* 535* 578* 592* 598* 611* 707 753* 755* 769* 862* 973* 979* 1153* 1186* 1215* 1258* 1270* 1280* 1291* 1310* 1322* 1332* 1343* 1712* 1718* 1849* 1864* 2271* 2287* thru1 0(05) based bit(1) level 3 packed packed unaligned dcl 6-113 set ref 177* thru2 0(06) based bit(1) level 3 packed packed unaligned dcl 6-113 set ref 81* 112* 166* top 0(10) based bit(1) level 3 in structure "fd_ind" packed packed unaligned dcl 6-212 in procedure "cobol_ddact2" set ref 1020 1195* 1622* top 2 based fixed bin(15,0) level 2 in structure "linage_rec" dcl 21-22 in procedure "cobol_ddact2" set ref 1023* 1114* 1197* 1624* top_int 6 based fixed bin(31,0) level 2 dcl 21-22 set ref 1024* 1625* 1627* top_name 12(18) based char(5) level 2 packed packed unaligned dcl 21-22 set ref 1025* 1202* type 3 based fixed bin(17,0) level 2 in structure "alphanum_lit" dcl 6-64 in procedure "cobol_ddact2" ref 1393 type 3 based fixed bin(17,0) level 2 in structure "message" dcl 6-85 in procedure "cobol_ddact2" set ref 701* type 3 based fixed bin(17,0) level 2 in structure "cdtoken" dcl 2431 in procedure "cobol_ddact2" set ref 1728* type 3 based fixed bin(17,0) level 2 in structure "record" dcl 6-10 in procedure "cobol_ddact2" ref 1058 1127 1147 1171 1178 1209 1617 1625 2262 type 3 based fixed bin(17,0) level 2 in structure "rw" dcl 6-23 in procedure "cobol_ddact2" ref 1405 2064 type 3 based fixed bin(17,0) level 2 in structure "user_word" dcl 6-101 in procedure "cobol_ddact2" ref 1387 type parameter fixed bin(17,0) dcl 1364 in procedure "enter_key" ref 1361 1383 type 3 based fixed bin(17,0) level 2 in structure "data_name" dcl 7-16 in procedure "cobol_ddact2" set ref 663* 945* 1973* type 3 based fixed bin(17,0) level 2 in structure "numeric_lit" dcl 6-46 in procedure "cobol_ddact2" ref 1399 type 3 based fixed bin(17,0) level 2 in structure "indexname" dcl 6-160 in procedure "cobol_ddact2" set ref 2171* type 3 based fixed bin(17,0) level 2 in structure "fd_token" dcl 11-4 in procedure "cobol_ddact2" set ref 782* 784* 786* 823 unspec builtin function dcl 2415 ref 130 user_spec 0(14) based bit(1) level 3 packed packed unaligned dcl 6-212 ref 991 user_word based structure level 1 unaligned dcl 6-101 value_of 0(07) based bit(1) level 2 packed packed unaligned dcl 6-212 set ref 1085* 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 2425 set ref 734* 1702* w2_ptr 32 based pointer level 2 dcl 2425 set ref 39 41 41 42 42 42 44 44 44 47 47 48 52 52 75 75 77 77 77 91 91 106 106 108 108 108 122 122 144 144 151 151 160 160 162 162 162 180 180 183 183 211 213* 777 778 779 780 782 784 786 819 821 823 846 847 847 848 848 848 850 850 850 852 852 913 943 944 964 966* 1571 1636 1791* 2171 2172 2173 2174 2175 2178 2181 2181 2183 2183 2184 2186* w_key 2636 based char(5) level 2 packed packed unaligned dcl 2425 set ref 199* 203 206 207 213* 238* 241 244 248 629* 631 636 640 871* 936* 966* 968 1104* 1560* 1791* 1793 2006* 2186* 2193* 2240* 2248 2249* 2251* 2255* 2257* wkbuf1 defined char(1000) level 2 packed packed unaligned dcl 2-9 set ref 876 1110 1565 2196 2228* wkbuf2 defined char(500) level 2 packed packed unaligned dcl 2-12 set ref 222 305 341 2196* 2228 2303 word 6 based char level 2 packed packed unaligned dcl 6-101 ref 41 271 311 348 400 420 436 454 482 521 555 567 847 889 1241 1390 1509 1545 1574 1639 1744 2072 word_size 5 based fixed bin(17,0) level 2 dcl 6-101 ref 39 41 41 269 271 271 309 311 311 346 348 348 400 420 436 454 482 521 555 567 846 847 847 887 889 889 1237 1241 1241 1241 1243 1389 1390 1505 1508 1509 1541 1545 1545 1545 1547 1572 1574 1574 1637 1639 1639 1742 1744 1744 2070 2072 2072 work_ptr 3274 based pointer level 2 dcl 2425 set ref 1452* 1454 1456* 1515* 1517 1519* 1524* NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. anystring based char(1000) packed unaligned dcl 6-334 bit12 automatic bit(12) packed unaligned dcl 6-236 bit3 automatic bit(3) packed unaligned dcl 6-234 bit8 automatic bit(8) packed unaligned dcl 6-235 bit8_1 automatic bit(8) packed unaligned dcl 6-345 bits_per_char internal static fixed bin(17,0) initial dcl 3-4 bits_per_word internal static fixed bin(17,0) initial dcl 3-5 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 3-7 chtbl_item based fixed bin(24,0) array dcl 3-11 cma based fixed bin(24,0) array dcl 3-8 cn_constant internal static fixed bin(17,0) initial dcl 4-13 cobol_afp defined pointer dcl 1-11 cobol_analin_fileno defined pointer dcl 1-13 cobol_ctbin 000000 constant entry external dcl 6-344 cobol_curr_in defined pointer dcl 1-53 cobol_curr_out defined pointer dcl 1-55 cobol_dfp defined pointer dcl 1-27 cobol_eltp defined pointer dcl 1-19 cobol_ext_$cobol_afp external static pointer dcl 1-10 cobol_ext_$cobol_analin_fileno external static pointer dcl 1-12 cobol_ext_$cobol_curr_in external static pointer dcl 1-52 cobol_ext_$cobol_curr_out external static pointer dcl 1-54 cobol_ext_$cobol_dfp external static pointer dcl 1-26 cobol_ext_$cobol_eltp external static pointer dcl 1-18 cobol_ext_$cobol_fileno1 external static fixed bin(24,0) dcl 1-78 cobol_ext_$cobol_hfp external static pointer dcl 1-28 cobol_ext_$cobol_lpr external static char(5) packed unaligned dcl 1-95 cobol_ext_$cobol_m1fp external static pointer dcl 1-30 cobol_ext_$cobol_m2fp external static pointer dcl 1-32 cobol_ext_$cobol_min1_fileno external static pointer dcl 1-34 cobol_ext_$cobol_min2_fileno_ptr external static pointer dcl 1-36 cobol_ext_$cobol_name_fileno external static pointer dcl 1-38 cobol_ext_$cobol_name_fileno_ptr external static pointer dcl 1-40 cobol_ext_$cobol_options external static char(120) packed unaligned dcl 1-97 cobol_ext_$cobol_options_len external static fixed bin(24,0) dcl 1-80 cobol_ext_$cobol_pdofp external static pointer dcl 1-44 cobol_ext_$cobol_pdout_fileno external static fixed bin(24,0) dcl 1-82 cobol_ext_$cobol_pfp external static pointer dcl 1-46 cobol_ext_$cobol_print_fileno external static fixed bin(24,0) dcl 1-84 cobol_ext_$cobol_rm2fp external static pointer dcl 1-48 cobol_ext_$cobol_rmin2_fileno external static fixed bin(24,0) dcl 1-86 cobol_ext_$cobol_rmin2fp external static pointer dcl 1-50 cobol_ext_$cobol_rwdd external static pointer dcl 1-72 cobol_ext_$cobol_rwpd external static pointer dcl 1-74 cobol_ext_$cobol_sfp external static pointer dcl 1-56 cobol_ext_$cobol_w1p external static pointer dcl 1-58 cobol_ext_$cobol_w2p external static pointer dcl 1-60 cobol_ext_$cobol_w3p external static pointer dcl 1-62 cobol_ext_$cobol_w5p external static pointer dcl 1-64 cobol_ext_$cobol_w6p external static pointer dcl 1-66 cobol_ext_$cobol_w7p external static pointer dcl 1-68 cobol_ext_$cobol_x1_fileno external static fixed bin(24,0) dcl 1-88 cobol_ext_$cobol_x2_fileno external static fixed bin(24,0) dcl 1-90 cobol_ext_$cobol_x3_fileno external static fixed bin(24,0) dcl 1-92 cobol_ext_$cobol_x3fp external static pointer dcl 1-70 cobol_ext_$cobol_xlast8 external static bit(1) packed unaligned dcl 1-100 cobol_ext_$report_exists external static bit(1) packed unaligned dcl 1-102 cobol_ext_$report_first_token external static pointer dcl 1-14 cobol_ext_$report_last_token external static pointer dcl 1-16 cobol_fileno1 defined fixed bin(24,0) dcl 1-79 cobol_hfp defined pointer dcl 1-29 cobol_lpr defined char(5) packed unaligned dcl 1-96 cobol_m1fp defined pointer dcl 1-31 cobol_m2fp defined pointer dcl 1-33 cobol_min1_fileno defined pointer dcl 1-35 cobol_min2_fileno_ptr defined pointer dcl 1-37 cobol_name_fileno defined pointer dcl 1-39 cobol_name_fileno_ptr defined pointer dcl 1-41 cobol_options defined char(120) packed unaligned dcl 1-98 cobol_options_len defined fixed bin(24,0) dcl 1-81 cobol_pdofp defined pointer dcl 1-45 cobol_pdout_fileno defined fixed bin(24,0) dcl 1-83 cobol_pfp defined pointer dcl 1-47 cobol_pic_val_comp 000000 constant entry external dcl 6-346 cobol_print_fileno defined fixed bin(24,0) dcl 1-85 cobol_rm2fp defined pointer dcl 1-49 cobol_rmin2_fileno defined fixed bin(24,0) dcl 1-87 cobol_rmin2fp defined pointer dcl 1-51 cobol_rwdd defined pointer dcl 1-73 cobol_rwpd defined pointer dcl 1-75 cobol_sfp defined pointer dcl 1-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 1-59 cobol_w2p defined pointer dcl 1-61 cobol_w3p defined pointer dcl 1-63 cobol_w5p defined pointer dcl 1-65 cobol_w6p defined pointer dcl 1-67 cobol_w7p defined pointer dcl 1-69 cobol_x1_fileno defined fixed bin(24,0) dcl 1-89 cobol_x2_fileno defined fixed bin(24,0) dcl 1-91 cobol_x3_fileno defined fixed bin(24,0) dcl 1-93 cobol_x3fp defined pointer dcl 1-71 cobol_xlast8 defined bit(1) packed unaligned dcl 1-101 debug based structure level 1 unaligned dcl 6-156 ed_constant internal static fixed bin(17,0) initial dcl 4-9 editor based structure level 1 unaligned dcl 6-149 fdn based char(1000) packed unaligned dcl 6-111 ffh automatic fixed bin(17,0) dcl 6-210 fixbin15 automatic fixed bin(17,0) dcl 6-232 fixbin31 automatic fixed bin(24,0) dcl 6-233 fixbin7_1 automatic fixed bin(17,0) dcl 6-231 htbl_minivector_bs based bit(18) packed unaligned dcl 6-359 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 lit_size automatic fixed bin(17,0) dcl 1364 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 4-4 odo_rec_constant internal static fixed bin(17,0) initial dcl 4-23 one_word_in_bits internal static bit(36) packed unaligned dcl 3-6 pd_db_constant internal static fixed bin(17,0) initial dcl 4-5 pdn_occ_ptr automatic pointer dcl 6-112 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 ptr9 automatic pointer dcl 6-351 report_exists defined bit(1) packed unaligned dcl 1-103 report_first_token defined pointer dcl 1-15 report_last_token defined pointer dcl 1-17 skey_rec_constant internal static fixed bin(17,0) initial dcl 4-24 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. LFD 000153 constant label array(3) dcl 1305 ref 1298 LFF 000156 constant label array(3) dcl 1412 ref 1410 LFF1 010071 constant label dcl 1439 ref 1419 1428 1437 LFL 000150 constant label array(3) dcl 1253 ref 1246 TF 007422 constant entry internal dcl 606 ref 436 484 557 569 act150 005572 constant label dcl 2015 ref 1847 2023 2027 2031 2035 2039 2043 2047 2051 2055 2059 actlbl 000000 constant label array(150:253) dcl 39 ref 35 cd_dn 011012 constant entry internal dcl 2062 ref 2018 2294 cdinit 010704 constant entry internal dcl 1969 ref 1757 1806 1899 2110 cobol_ddact2 000221 constant entry external dcl 31 diag 007663 constant entry internal dcl 689 ref 84 115 169 404 530 536 579 593 599 612 757 863 974 980 1154 1187 1216 1259 1271 1281 1292 1311 1323 1333 1344 1719 1851 1865 2288 diag_level 007667 constant entry internal dcl 693 ref 462 468 770 1713 2272 diag_start 007672 constant label dcl 696 ref 692 end75 007431 constant entry internal dcl 618 ref 438 482 543 555 602 614 enda149 005332 constant label dcl 1878 ref 1873 enda161 005666 constant label dcl 2091 ref 2086 endg100 003271 constant label dcl 1011 ref 1006 enter_correct 007361 constant entry internal dcl 585 ref 428 472 581 enter_correct_err 007352 constant entry internal dcl 573 ref 420 477 550 enter_incorrect 007323 constant entry internal dcl 562 ref 415 489 507 enter_key 007731 constant entry internal dcl 1361 ref 1253 1265 1305 1317 1338 enter_qual 010312 constant entry internal dcl 1495 ref 1350 err100_191 003275 constant label dcl 1014 ref 993 form_lit 010234 constant entry internal dcl 1464 ref 1417 1426 1435 g149 005334 constant label dcl 1881 gen_dn 010737 constant entry internal dcl 1981 ref 1935 1939 1945 1950 1956 1960 1966 2118 2126 gend4 006206 constant label dcl 2196 ref 2128 linage_next 010577 constant label dcl 1656 ref 1648 na100 003230 constant label dcl 993 ref 991 na147 005254 constant label dcl 1849 ref 1842 na164 006516 constant label dcl 2291 ref 2284 nna100 003275 constant label dcl 1017 occ_key_next 006635 constant label dcl 2321 ref 2314 qualifier 007142 constant entry internal dcl 339 ref 335 2336 retrn 007025 constant label dcl 2375 ref 50 89 120 175 181 185 187 218 276 333 372 376 396 405 441 560 728 740 763 795 801 807 813 815 828 832 838 853 911 983 1017 1041 1053 1061 1067 1069 1075 1079 1083 1087 1091 1095 1123 1133 1137 1141 1156 1166 1174 1191 1203 1218 1225 1232 1244 1251 1263 1275 1296 1303 1315 1327 1348 1355 1548 1586 1593 1602 1612 1620 1628 1669 1678 1685 1690 1694 1706 1737 1750 1781 1829 1836 1840 1852 1861 1866 1967 2019 2260 2274 2278 2289 2296 2319 2332 2352 2356 2361 s_qual 001522 constant label dcl 374 ref 359 s_report_next 004515 constant label dcl 1588 ref 1581 size161 006053 constant label dcl 2161 skey_qual 007016 constant label dcl 2354 ref 2339 store_av 007101 constant entry internal dcl 96 ref 93 store_fcv 007126 constant entry internal dcl 127 ref 124 store_nv 007026 constant entry internal dcl 56 ref 54 store_qualifier 007232 constant entry internal dcl 379 ref 374 2354 wcddn3 006164 constant label dcl 2190 ref 2164 write_cd 010645 constant entry internal dcl 1785 ref 1756 1805 write_dn 010766 constant entry internal dcl 2002 ref 1895 1926 1996 2109 write_linage_name_rec 010476 constant entry internal dcl 1631 ref 1050 1163 1200 1609 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 11322 11376 11116 11332 Length 12414 11116 54 1001 204 10 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME cobol_ddact2 543 external procedure is an external procedure. store_nv internal procedure shares stack frame of external procedure cobol_ddact2. store_av internal procedure shares stack frame of external procedure cobol_ddact2. store_fcv internal procedure shares stack frame of external procedure cobol_ddact2. qualifier internal procedure shares stack frame of external procedure cobol_ddact2. store_qualifier internal procedure shares stack frame of external procedure cobol_ddact2. enter_incorrect internal procedure shares stack frame of external procedure cobol_ddact2. enter_correct_err internal procedure shares stack frame of external procedure cobol_ddact2. enter_correct internal procedure shares stack frame of external procedure cobol_ddact2. TF internal procedure shares stack frame of external procedure cobol_ddact2. end75 internal procedure shares stack frame of external procedure cobol_ddact2. diag internal procedure shares stack frame of external procedure cobol_ddact2. enter_key internal procedure shares stack frame of external procedure cobol_ddact2. form_lit internal procedure shares stack frame of external procedure cobol_ddact2. enter_qual internal procedure shares stack frame of external procedure cobol_ddact2. write_linage_name_rec internal procedure shares stack frame of external procedure cobol_ddact2. write_cd internal procedure shares stack frame of external procedure cobol_ddact2. cdinit internal procedure shares stack frame of external procedure cobol_ddact2. gen_dn internal procedure shares stack frame of external procedure cobol_ddact2. write_dn internal procedure shares stack frame of external procedure cobol_ddact2. cd_dn internal procedure shares stack frame of external procedure cobol_ddact2. STORAGE FOR INTERNAL STATIC VARIABLES. LOC IDENTIFIER BLOCK NAME 000010 input_cd_prefix_initval cobol_ddact2 000014 output_cd_prefix_initval cobol_ddact2 STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME cobol_ddact2 000100 rn cobol_ddact2 000101 tf cobol_ddact2 000102 fstatus cobol_ddact2 000104 ptr11 cobol_ddact2 000106 cd_ptr cobol_ddact2 000110 sv_ptr_auto cobol_ddact2 000112 i cobol_ddact2 000113 message_area cobol_ddact2 000132 message_ptr cobol_ddact2 000134 ptr8 cobol_ddact2 000264 siz enter_key 000274 lit_char form_lit 000276 p form_lit 000310 size enter_qual 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_compare_values cobol_ddsyntax$init_file_tab 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_fileno 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 31 000216 34 000226 35 000231 39 000234 41 000240 42 000244 44 000245 46 000251 47 000253 48 000257 49 000261 50 000263 52 000264 54 000266 75 000267 77 000274 79 000300 81 000304 82 000306 84 000326 87 000331 89 000334 91 000335 93 000337 106 000340 108 000345 110 000351 112 000355 113 000357 115 000377 118 000402 120 000405 122 000406 124 000410 139 000411 142 000417 144 000424 146 000427 148 000431 149 000434 151 000435 153 000440 155 000442 158 000445 160 000446 162 000450 164 000454 166 000460 167 000462 169 000502 172 000505 175 000510 177 000511 179 000513 180 000515 181 000521 183 000522 185 000526 187 000527 191 000530 197 000532 199 000534 201 000552 203 000554 206 000571 207 000576 211 000603 213 000605 215 000624 216 000630 217 000632 218 000633 220 000634 222 000635 223 000637 224 000641 225 000654 227 000660 229 000662 231 000664 234 000676 237 000704 238 000706 239 000725 241 000727 244 000741 245 000746 248 000751 250 000756 252 000763 254 000764 257 000773 259 001014 260 001020 261 001025 263 001027 267 001050 268 001056 269 001060 271 001063 273 001067 274 001072 275 001075 276 001100 278 001101 281 001103 282 001105 284 001111 286 001131 289 001150 291 001153 293 001174 294 001200 296 001205 300 001226 303 001234 304 001237 305 001240 306 001243 307 001245 308 001260 309 001264 311 001267 313 001273 314 001275 315 001277 316 001300 318 001304 321 001325 322 001333 324 001340 326 001361 328 001365 330 001375 332 001402 333 001423 335 001424 359 001425 362 001433 364 001440 366 001461 367 001465 368 001473 370 001500 372 001521 374 001522 376 001523 394 001524 396 001526 400 001527 403 001535 404 001537 405 001540 408 001541 409 001545 411 001550 413 001553 415 001555 418 001566 420 001571 427 001604 428 001606 430 001607 436 001610 438 001623 441 001624 445 001625 447 001627 450 001633 452 001635 454 001640 457 001646 459 001654 461 001657 462 001661 465 001662 467 001666 468 001670 471 001671 472 001675 473 001676 477 001677 478 001703 482 001704 484 001717 487 001723 489 001724 494 001732 505 001734 507 001737 512 001752 514 001756 516 001763 518 002003 519 002007 521 002011 523 002020 524 002022 527 002036 529 002041 530 002043 533 002044 535 002053 536 002055 539 002056 541 002100 543 002104 544 002105 549 002106 550 002110 553 002114 555 002115 557 002130 560 002134 715 002135 720 002137 722 002144 724 002147 726 002167 728 002173 732 002174 734 002176 735 002200 736 002202 737 002204 738 002205 739 002207 740 002210 742 002211 747 002212 750 002226 753 002234 755 002243 757 002245 760 002246 763 002251 765 002252 769 002266 770 002270 773 002271 774 002274 775 002275 776 002300 777 002312 778 002316 779 002320 780 002322 782 002324 784 002331 786 002336 789 002343 790 002346 791 002347 792 002350 793 002351 794 002352 795 002353 797 002354 801 002361 803 002362 807 002367 809 002370 813 002375 815 002376 819 002377 821 002403 823 002404 825 002412 827 002414 828 002417 830 002420 832 002421 834 002422 836 002425 837 002427 838 002431 842 002432 846 002436 847 002444 848 002450 850 002451 852 002455 853 002461 855 002462 858 002464 860 002467 862 002472 863 002474 867 002475 869 002500 871 002502 873 002521 876 002523 877 002526 878 002531 879 002534 880 002537 881 002541 882 002543 883 002545 884 002550 885 002552 886 002553 887 002554 889 002556 891 002562 893 002564 895 002604 899 002622 902 002640 904 002645 906 002665 908 002674 910 002715 911 002726 913 002727 918 002732 919 002735 920 002737 921 002741 922 002743 923 002745 925 002752 927 002757 929 002777 930 003006 932 003010 934 003012 936 003014 940 003033 941 003037 942 003052 943 003054 944 003060 945 003062 946 003064 947 003066 948 003070 949 003072 950 003073 951 003074 952 003075 953 003076 954 003100 955 003101 956 003103 957 003106 959 003110 961 003113 964 003115 966 003117 968 003136 971 003144 973 003155 974 003157 977 003160 979 003172 980 003174 983 003175 986 003176 989 003216 991 003223 993 003230 997 003233 999 003244 1002 003251 1004 003257 1005 003262 1006 003266 1010 003267 1011 003271 1017 003275 1020 003276 1023 003303 1024 003305 1025 003306 1027 003311 1029 003315 1030 003317 1031 003320 1034 003323 1036 003327 1037 003331 1038 003332 1041 003335 1045 003336 1047 003342 1048 003346 1050 003351 1052 003352 1053 003360 1055 003361 1057 003365 1058 003370 1060 003412 1061 003413 1065 003414 1067 003420 1069 003421 1073 003422 1075 003426 1077 003427 1079 003433 1081 003434 1083 003440 1085 003441 1087 003445 1089 003446 1091 003452 1093 003453 1095 003457 1099 003460 1102 003462 1104 003464 1106 003502 1109 003504 1110 003510 1112 003513 1113 003515 1114 003516 1115 003517 1116 003520 1117 003521 1119 003522 1120 003523 1121 003524 1122 003525 1123 003526 1127 003527 1131 003550 1132 003551 1133 003552 1135 003553 1137 003555 1139 003556 1141 003560 1145 003561 1147 003563 1149 003604 1151 003605 1153 003610 1154 003612 1156 003613 1158 003614 1160 003620 1161 003624 1163 003627 1165 003630 1166 003637 1168 003640 1170 003644 1171 003647 1173 003671 1174 003672 1178 003673 1182 003714 1184 003715 1186 003720 1187 003722 1190 003723 1191 003725 1195 003726 1197 003732 1198 003736 1200 003741 1202 003742 1203 003751 1207 003752 1209 003754 1211 003775 1213 003776 1215 004001 1216 004003 1218 004004 1220 004005 1223 004011 1225 004016 1227 004017 1230 004023 1232 004030 1234 004031 1236 004032 1237 004035 1238 004041 1239 004045 1241 004050 1243 004055 1244 004057 1246 004060 1251 004063 1253 004064 1256 004070 1258 004077 1259 004101 1260 004102 1261 004103 1263 004110 1265 004111 1268 004115 1270 004124 1271 004126 1272 004127 1273 004130 1275 004135 1277 004136 1280 004141 1281 004143 1282 004144 1285 004145 1286 004147 1289 004154 1291 004164 1292 004166 1293 004167 1294 004170 1296 004174 1298 004175 1303 004200 1305 004201 1308 004205 1310 004214 1311 004216 1312 004217 1313 004220 1315 004225 1317 004226 1320 004232 1322 004241 1323 004243 1324 004244 1325 004245 1327 004252 1329 004253 1332 004256 1333 004260 1334 004261 1337 004262 1338 004264 1341 004270 1343 004300 1344 004302 1345 004303 1346 004304 1348 004310 1350 004311 1355 004314 1535 004315 1539 004321 1540 004322 1541 004325 1542 004331 1543 004335 1545 004340 1547 004345 1548 004347 1552 004350 1556 004354 1558 004356 1560 004360 1562 004376 1565 004400 1566 004403 1567 004405 1568 004420 1569 004424 1570 004427 1571 004431 1572 004434 1574 004436 1576 004442 1577 004443 1579 004447 1581 004470 1584 004477 1585 004507 1586 004514 1588 004515 1591 004520 1593 004541 1596 004544 1597 004550 1599 004556 1601 004577 1602 004605 1604 004606 1606 004612 1607 004616 1609 004621 1611 004622 1612 004631 1614 004632 1616 004636 1617 004640 1619 004662 1620 004664 1622 004665 1624 004671 1625 004674 1627 004716 1628 004717 1669 004720 1675 004721 1678 004723 1682 004724 1685 004730 1687 004731 1689 004733 1690 004735 1694 004736 1700 004737 1702 004741 1703 004743 1704 004745 1705 004747 1706 004750 1708 004751 1712 004765 1713 004767 1716 004770 1718 004774 1719 004776 1722 004777 1723 005002 1724 005005 1725 005020 1726 005024 1727 005026 1728 005030 1729 005032 1731 005034 1732 005041 1733 005043 1735 005045 1736 005050 1737 005051 1739 005052 1742 005056 1744 005062 1746 005066 1748 005067 1750 005073 1752 005074 1754 005077 1756 005101 1757 005102 1759 005103 1760 005107 1762 005111 1764 005113 1765 005116 1767 005120 1769 005124 1770 005127 1771 005133 1772 005135 1773 005140 1774 005143 1775 005146 1779 005152 1780 005153 1781 005154 1800 005155 1802 005160 1803 005162 1805 005164 1806 005165 1808 005166 1809 005172 1811 005174 1813 005176 1814 005201 1816 005203 1818 005207 1819 005212 1820 005216 1821 005220 1822 005223 1823 005226 1824 005231 1828 005235 1829 005236 1833 005237 1835 005242 1836 005244 1838 005245 1840 005246 1842 005247 1846 005252 1847 005253 1849 005254 1851 005256 1852 005257 1854 005260 1857 005261 1859 005264 1860 005267 1861 005276 1864 005277 1865 005301 1866 005302 1868 005303 1871 005305 1873 005313 1876 005320 1877 005323 1878 005332 1881 005334 1884 005340 1886 005343 1887 005344 1888 005346 1889 005350 1890 005351 1892 005353 1893 005356 1895 005361 1897 005362 1899 005364 1900 005365 1901 005371 1902 005373 1904 005375 1906 005401 1907 005407 1909 005413 1911 005421 1913 005424 1915 005430 1916 005433 1918 005437 1919 005441 1920 005443 1922 005446 1923 005451 1924 005454 1926 005456 1927 005457 1929 005461 1930 005464 1931 005466 1933 005470 1935 005474 1936 005475 1937 005477 1939 005503 1940 005504 1941 005506 1943 005512 1945 005516 1946 005517 1947 005521 1948 005525 1950 005531 1951 005532 1952 005534 1954 005540 1956 005544 1957 005545 1958 005547 1960 005553 1961 005554 1962 005556 1964 005562 1966 005566 1967 005567 2013 005570 2015 005572 2018 005577 2019 005600 2021 005601 2023 005603 2025 005604 2027 005606 2029 005607 2031 005611 2033 005612 2035 005614 2037 005615 2039 005617 2041 005620 2043 005622 2045 005623 2047 005625 2049 005626 2051 005630 2053 005631 2055 005633 2057 005634 2059 005636 2082 005637 2085 005641 2086 005647 2089 005654 2090 005657 2091 005666 2094 005670 2096 005675 2098 005700 2100 005703 2101 005704 2102 005706 2103 005712 2104 005713 2106 005715 2107 005720 2109 005723 2110 005724 2111 005725 2112 005731 2113 005732 2115 005734 2117 005740 2118 005745 2119 005746 2122 005750 2123 005754 2124 005756 2126 005762 2128 005763 2132 005767 2133 005773 2135 005776 2137 006001 2138 006003 2139 006004 2141 006007 2143 006013 2144 006017 2145 006023 2146 006024 2147 006025 2149 006027 2150 006030 2151 006032 2152 006034 2154 006035 2157 006043 2158 006044 2159 006051 2161 006053 2164 006056 2168 006060 2169 006063 2171 006076 2172 006101 2173 006103 2174 006105 2175 006110 2177 006112 2178 006123 2181 006127 2183 006137 2184 006142 2186 006143 2188 006162 2190 006164 2193 006167 2196 006206 2201 006223 2202 006231 2203 006235 2205 006237 2207 006243 2208 006245 2210 006254 2212 006257 2213 006261 2214 006263 2216 006264 2217 006266 2220 006270 2223 006273 2226 006277 2228 006302 2231 006312 2232 006315 2234 006317 2235 006320 2237 006324 2238 006327 2240 006331 2242 006350 2244 006352 2246 006356 2248 006361 2249 006366 2251 006373 2253 006412 2255 006416 2257 006435 2260 006443 2262 006444 2266 006465 2268 006466 2271 006500 2272 006502 2274 006503 2278 006504 2281 006505 2284 006506 2287 006512 2288 006514 2289 006515 2291 006516 2294 006521 2296 006522 2300 006523 2302 006527 2303 006532 2304 006534 2305 006536 2306 006550 2307 006554 2308 006562 2309 006565 2310 006566 2312 006570 2314 006611 2317 006621 2318 006630 2319 006634 2321 006635 2324 006640 2326 006661 2327 006665 2329 006672 2331 006713 2332 006720 2336 006721 2339 006722 2342 006730 2344 006735 2346 006756 2347 006762 2349 006766 2351 007007 2352 007015 2354 007016 2356 007017 2358 007020 2361 007024 2375 007025 56 007026 59 007027 60 007032 62 007037 63 007044 64 007051 65 007055 66 007060 67 007063 68 007065 69 007067 70 007071 71 007073 72 007100 96 007101 98 007102 99 007105 100 007113 101 007116 102 007120 103 007125 127 007126 129 007127 130 007132 132 007137 133 007141 339 007142 341 007143 342 007147 343 007151 344 007164 345 007170 346 007172 348 007174 350 007200 351 007203 352 007204 354 007210 356 007231 379 007232 381 007233 382 007241 383 007262 384 007266 385 007274 387 007301 389 007322 562 007323 567 007325 569 007343 571 007351 573 007352 578 007354 579 007356 581 007357 583 007360 585 007361 588 007362 590 007400 592 007403 593 007405 596 007406 598 007415 599 007417 602 007420 604 007421 606 007422 611 007424 612 007426 614 007427 616 007430 618 007431 621 007432 626 007435 627 007437 629 007441 631 007460 634 007477 636 007502 640 007513 641 007520 644 007523 650 007524 653 007530 654 007551 660 007573 661 007577 663 007612 664 007615 665 007617 666 007621 667 007623 668 007625 669 007627 671 007632 673 007636 675 007640 677 007642 679 007645 681 007650 683 007654 685 007660 687 007662 689 007663 691 007664 692 007666 693 007667 695 007670 696 007672 698 007674 699 007676 700 007702 701 007704 702 007706 703 007710 704 007712 705 007714 706 007716 707 007717 709 007721 711 007730 1361 007731 1367 007733 1368 007740 1369 007744 1371 007747 1373 007751 1375 007754 1376 007757 1378 007761 1379 007762 1381 007763 1383 007766 1385 007770 1387 007772 1389 007775 1390 007777 1391 010003 1393 010004 1395 010007 1396 010011 1397 010015 1399 010016 1401 010021 1402 010023 1403 010027 1405 010030 1407 010033 1410 010035 1412 010036 1415 010043 1417 010045 1419 010046 1421 010047 1424 010054 1426 010056 1428 010057 1430 010060 1433 010065 1435 010067 1437 010070 1444 010071 1446 010101 1448 010124 1452 010143 1454 010166 1456 010175 1460 010222 1462 010233 1464 010234 1472 010235 1474 010237 1476 010245 1478 010252 1480 010257 1482 010264 1485 010270 1487 010274 1489 010303 1491 010307 1493 010311 1495 010312 1505 010313 1507 010321 1508 010325 1509 010327 1511 010333 1513 010356 1515 010362 1517 010407 1519 010416 1521 010443 1524 010444 1527 010465 1528 010473 1530 010475 1631 010476 1633 010477 1634 010504 1635 010507 1636 010511 1637 010514 1639 010516 1641 010522 1642 010523 1644 010527 1646 010550 1648 010553 1651 010562 1652 010571 1654 010576 1656 010577 1659 010602 1661 010623 1664 010627 1666 010637 1667 010644 1785 010645 1787 010646 1788 010651 1789 010654 1791 010656 1793 010675 1794 010703 1969 010704 1971 010705 1972 010711 1973 010724 1974 010727 1975 010732 1976 010734 1977 010736 1981 010737 1983 010740 1984 010745 1986 010747 1988 010755 1990 010756 1993 010760 1994 010762 1996 010764 1998 010765 2002 010766 2004 010767 2006 010772 2008 011011 2062 011012 2064 011013 2066 011020 2067 011024 2068 011033 2070 011034 2072 011040 2076 011050 ----------------------------------------------------------- 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