1# : : generated from cpy2dss.rt by mktest : : # 2 3# tests for the cpy2dss command 4 5UNIT cpy2dss 6 7TEST 01 basics 8 9 EXEC --regress 10 INPUT - $' 01 TEST. 11 10 TEST-FIELD-01 PIC X(8). 12 10 TEST-FIELD-02 PIC X(8). 13 05 TEST-FIELD-03 PIC S9(3)V COMP-3. 14 05 TEST-FIELD-04 PIC S9(8)V COMP-3. 15 05 TEST-FIELD-05 PIC S9(3)V COMP-3. 16 10 TEST-FIELD-06 PIC X(10). 17 10 TEST-FIELD-07 PIC X(10). 18 10 TEST-FIELD-08 PIC X(1). 19 10 TEST-FIELD-09 PIC X(8). 20 10 TEST-FIELD-10 PIC X(5). 21 10 TEST-FIELD-11 PIC X(1). 22 10 TEST-FIELD-12 PIC X(1). 23 10 TEST-FIELD-13 PIC X(1). 24 10 TEST-FIELD-14 PIC X(8). 25 10 TEST-FIELD-15 PIC X(1). 26 10 TEST-FIELD-16 PIC X(8). 27 10 TEST-FIELD-17 PIC S9(2)V9(13) COMP-3. 28 10 TEST-FIELD-18 PIC X(8). 29 10 TEST-FIELD-19 PIC X(8). 30 10 TEST-FIELD-20 PIC X(1). 31 10 TEST-FIELD-21 PIC X(1). 32 10 TEST-FIELD-22 PIC X(10). 33 10 TEST-FIELD-23 PIC X(3). 34 10 TEST-FIELD-24 PIC X(1). 35 10 TEST-FIELD-25 PIC X(3). 36 10 TEST-FIELD-26 PIC X(26). 37 10 TEST-FIELD-27. 38 49 TEST-FIELD-27-01 PIC S9(4) COMP-5. 39 49 TEST-FIELD-27-02 PIC X(55).' 40 OUTPUT - $'<METHOD>flat</> 41<FLAT> 42 <NAME>TEST</> 43 <DESCRIPTION>converted by cpy2dss from copybook standard input</> 44 <IDENT>@(#)$Id: TEST (AT&T Research) 2005-07-17 $</> 45 <LIBRARY>num_t</> 46 <FIELD> 47 <NAME>TEST_FIELD_01</> 48 <TYPE>string</> 49 <PHYSICAL> 50 <CODESET>ebcdic-m</> 51 <WIDTH>8</> 52 </> 53 </> 54 <FIELD> 55 <NAME>TEST_FIELD_02</> 56 <TYPE>string</> 57 <PHYSICAL> 58 <CODESET>ebcdic-m</> 59 <WIDTH>8</> 60 </> 61 </> 62 <FIELD> 63 <NAME>TEST_FIELD_03</> 64 <TYPE>number</> 65 <PHYSICAL> 66 <TYPE>bcd_t</> 67 <WIDTH>2</> 68 </> 69 </> 70 <FIELD> 71 <NAME>TEST_FIELD_04</> 72 <TYPE>number</> 73 <PHYSICAL> 74 <TYPE>bcd_t</> 75 <WIDTH>5</> 76 </> 77 </> 78 <FIELD> 79 <NAME>TEST_FIELD_05</> 80 <TYPE>number</> 81 <PHYSICAL> 82 <TYPE>bcd_t</> 83 <WIDTH>2</> 84 </> 85 </> 86 <FIELD> 87 <NAME>TEST_FIELD_06</> 88 <TYPE>string</> 89 <PHYSICAL> 90 <CODESET>ebcdic-m</> 91 <WIDTH>10</> 92 </> 93 </> 94 <FIELD> 95 <NAME>TEST_FIELD_07</> 96 <TYPE>string</> 97 <PHYSICAL> 98 <CODESET>ebcdic-m</> 99 <WIDTH>10</> 100 </> 101 </> 102 <FIELD> 103 <NAME>TEST_FIELD_08</> 104 <TYPE>string</> 105 <PHYSICAL> 106 <CODESET>ebcdic-m</> 107 <WIDTH>1</> 108 </> 109 </> 110 <FIELD> 111 <NAME>TEST_FIELD_09</> 112 <TYPE>string</> 113 <PHYSICAL> 114 <CODESET>ebcdic-m</> 115 <WIDTH>8</> 116 </> 117 </> 118 <FIELD> 119 <NAME>TEST_FIELD_10</> 120 <TYPE>string</> 121 <PHYSICAL> 122 <CODESET>ebcdic-m</> 123 <WIDTH>5</> 124 </> 125 </> 126 <FIELD> 127 <NAME>TEST_FIELD_11</> 128 <TYPE>string</> 129 <PHYSICAL> 130 <CODESET>ebcdic-m</> 131 <WIDTH>1</> 132 </> 133 </> 134 <FIELD> 135 <NAME>TEST_FIELD_12</> 136 <TYPE>string</> 137 <PHYSICAL> 138 <CODESET>ebcdic-m</> 139 <WIDTH>1</> 140 </> 141 </> 142 <FIELD> 143 <NAME>TEST_FIELD_13</> 144 <TYPE>string</> 145 <PHYSICAL> 146 <CODESET>ebcdic-m</> 147 <WIDTH>1</> 148 </> 149 </> 150 <FIELD> 151 <NAME>TEST_FIELD_14</> 152 <TYPE>string</> 153 <PHYSICAL> 154 <CODESET>ebcdic-m</> 155 <WIDTH>8</> 156 </> 157 </> 158 <FIELD> 159 <NAME>TEST_FIELD_15</> 160 <TYPE>string</> 161 <PHYSICAL> 162 <CODESET>ebcdic-m</> 163 <WIDTH>1</> 164 </> 165 </> 166 <FIELD> 167 <NAME>TEST_FIELD_16</> 168 <TYPE>string</> 169 <PHYSICAL> 170 <CODESET>ebcdic-m</> 171 <WIDTH>8</> 172 </> 173 </> 174 <FIELD> 175 <NAME>TEST_FIELD_17</> 176 <TYPE>number</> 177 <PHYSICAL> 178 <TYPE>bcd_t</> 179 <FIXEDPOINT>13</> 180 <WIDTH>8</> 181 </> 182 </> 183 <FIELD> 184 <NAME>TEST_FIELD_18</> 185 <TYPE>string</> 186 <PHYSICAL> 187 <CODESET>ebcdic-m</> 188 <WIDTH>8</> 189 </> 190 </> 191 <FIELD> 192 <NAME>TEST_FIELD_19</> 193 <TYPE>string</> 194 <PHYSICAL> 195 <CODESET>ebcdic-m</> 196 <WIDTH>8</> 197 </> 198 </> 199 <FIELD> 200 <NAME>TEST_FIELD_20</> 201 <TYPE>string</> 202 <PHYSICAL> 203 <CODESET>ebcdic-m</> 204 <WIDTH>1</> 205 </> 206 </> 207 <FIELD> 208 <NAME>TEST_FIELD_21</> 209 <TYPE>string</> 210 <PHYSICAL> 211 <CODESET>ebcdic-m</> 212 <WIDTH>1</> 213 </> 214 </> 215 <FIELD> 216 <NAME>TEST_FIELD_22</> 217 <TYPE>string</> 218 <PHYSICAL> 219 <CODESET>ebcdic-m</> 220 <WIDTH>10</> 221 </> 222 </> 223 <FIELD> 224 <NAME>TEST_FIELD_23</> 225 <TYPE>string</> 226 <PHYSICAL> 227 <CODESET>ebcdic-m</> 228 <WIDTH>3</> 229 </> 230 </> 231 <FIELD> 232 <NAME>TEST_FIELD_24</> 233 <TYPE>string</> 234 <PHYSICAL> 235 <CODESET>ebcdic-m</> 236 <WIDTH>1</> 237 </> 238 </> 239 <FIELD> 240 <NAME>TEST_FIELD_25</> 241 <TYPE>string</> 242 <PHYSICAL> 243 <CODESET>ebcdic-m</> 244 <WIDTH>3</> 245 </> 246 </> 247 <FIELD> 248 <NAME>TEST_FIELD_26</> 249 <TYPE>string</> 250 <PHYSICAL> 251 <CODESET>ebcdic-m</> 252 <WIDTH>26</> 253 </> 254 </> 255 <FIELD> 256 <NAME>TEST_FIELD_27</> 257 <FIELD> 258 <NAME>TEST_FIELD_27_01</> 259 <TYPE>number</> 260 <PHYSICAL> 261 <TYPE>le_t</> 262 <WIDTH>2</> 263 </> 264 </> 265 <FIELD> 266 <NAME>TEST_FIELD_27_02</> 267 <TYPE>string</> 268 <PHYSICAL> 269 <CODESET>ebcdic-m</> 270 <WIDTH>55</> 271 </> 272 </> 273 </> 274</>' 275 276 EXEC --regress --comp=5:1 277 OUTPUT - $'<METHOD>flat</> 278<FLAT> 279 <NAME>TEST</> 280 <DESCRIPTION>converted by cpy2dss from copybook standard input</> 281 <IDENT>@(#)$Id: TEST (AT&T Research) 2005-07-17 $</> 282 <LIBRARY>num_t</> 283 <FIELD> 284 <NAME>TEST_FIELD_01</> 285 <TYPE>string</> 286 <PHYSICAL> 287 <CODESET>ebcdic-m</> 288 <WIDTH>8</> 289 </> 290 </> 291 <FIELD> 292 <NAME>TEST_FIELD_02</> 293 <TYPE>string</> 294 <PHYSICAL> 295 <CODESET>ebcdic-m</> 296 <WIDTH>8</> 297 </> 298 </> 299 <FIELD> 300 <NAME>TEST_FIELD_03</> 301 <TYPE>number</> 302 <PHYSICAL> 303 <TYPE>bcd_t</> 304 <WIDTH>2</> 305 </> 306 </> 307 <FIELD> 308 <NAME>TEST_FIELD_04</> 309 <TYPE>number</> 310 <PHYSICAL> 311 <TYPE>bcd_t</> 312 <WIDTH>5</> 313 </> 314 </> 315 <FIELD> 316 <NAME>TEST_FIELD_05</> 317 <TYPE>number</> 318 <PHYSICAL> 319 <TYPE>bcd_t</> 320 <WIDTH>2</> 321 </> 322 </> 323 <FIELD> 324 <NAME>TEST_FIELD_06</> 325 <TYPE>string</> 326 <PHYSICAL> 327 <CODESET>ebcdic-m</> 328 <WIDTH>10</> 329 </> 330 </> 331 <FIELD> 332 <NAME>TEST_FIELD_07</> 333 <TYPE>string</> 334 <PHYSICAL> 335 <CODESET>ebcdic-m</> 336 <WIDTH>10</> 337 </> 338 </> 339 <FIELD> 340 <NAME>TEST_FIELD_08</> 341 <TYPE>string</> 342 <PHYSICAL> 343 <CODESET>ebcdic-m</> 344 <WIDTH>1</> 345 </> 346 </> 347 <FIELD> 348 <NAME>TEST_FIELD_09</> 349 <TYPE>string</> 350 <PHYSICAL> 351 <CODESET>ebcdic-m</> 352 <WIDTH>8</> 353 </> 354 </> 355 <FIELD> 356 <NAME>TEST_FIELD_10</> 357 <TYPE>string</> 358 <PHYSICAL> 359 <CODESET>ebcdic-m</> 360 <WIDTH>5</> 361 </> 362 </> 363 <FIELD> 364 <NAME>TEST_FIELD_11</> 365 <TYPE>string</> 366 <PHYSICAL> 367 <CODESET>ebcdic-m</> 368 <WIDTH>1</> 369 </> 370 </> 371 <FIELD> 372 <NAME>TEST_FIELD_12</> 373 <TYPE>string</> 374 <PHYSICAL> 375 <CODESET>ebcdic-m</> 376 <WIDTH>1</> 377 </> 378 </> 379 <FIELD> 380 <NAME>TEST_FIELD_13</> 381 <TYPE>string</> 382 <PHYSICAL> 383 <CODESET>ebcdic-m</> 384 <WIDTH>1</> 385 </> 386 </> 387 <FIELD> 388 <NAME>TEST_FIELD_14</> 389 <TYPE>string</> 390 <PHYSICAL> 391 <CODESET>ebcdic-m</> 392 <WIDTH>8</> 393 </> 394 </> 395 <FIELD> 396 <NAME>TEST_FIELD_15</> 397 <TYPE>string</> 398 <PHYSICAL> 399 <CODESET>ebcdic-m</> 400 <WIDTH>1</> 401 </> 402 </> 403 <FIELD> 404 <NAME>TEST_FIELD_16</> 405 <TYPE>string</> 406 <PHYSICAL> 407 <CODESET>ebcdic-m</> 408 <WIDTH>8</> 409 </> 410 </> 411 <FIELD> 412 <NAME>TEST_FIELD_17</> 413 <TYPE>number</> 414 <PHYSICAL> 415 <TYPE>bcd_t</> 416 <FIXEDPOINT>13</> 417 <WIDTH>8</> 418 </> 419 </> 420 <FIELD> 421 <NAME>TEST_FIELD_18</> 422 <TYPE>string</> 423 <PHYSICAL> 424 <CODESET>ebcdic-m</> 425 <WIDTH>8</> 426 </> 427 </> 428 <FIELD> 429 <NAME>TEST_FIELD_19</> 430 <TYPE>string</> 431 <PHYSICAL> 432 <CODESET>ebcdic-m</> 433 <WIDTH>8</> 434 </> 435 </> 436 <FIELD> 437 <NAME>TEST_FIELD_20</> 438 <TYPE>string</> 439 <PHYSICAL> 440 <CODESET>ebcdic-m</> 441 <WIDTH>1</> 442 </> 443 </> 444 <FIELD> 445 <NAME>TEST_FIELD_21</> 446 <TYPE>string</> 447 <PHYSICAL> 448 <CODESET>ebcdic-m</> 449 <WIDTH>1</> 450 </> 451 </> 452 <FIELD> 453 <NAME>TEST_FIELD_22</> 454 <TYPE>string</> 455 <PHYSICAL> 456 <CODESET>ebcdic-m</> 457 <WIDTH>10</> 458 </> 459 </> 460 <FIELD> 461 <NAME>TEST_FIELD_23</> 462 <TYPE>string</> 463 <PHYSICAL> 464 <CODESET>ebcdic-m</> 465 <WIDTH>3</> 466 </> 467 </> 468 <FIELD> 469 <NAME>TEST_FIELD_24</> 470 <TYPE>string</> 471 <PHYSICAL> 472 <CODESET>ebcdic-m</> 473 <WIDTH>1</> 474 </> 475 </> 476 <FIELD> 477 <NAME>TEST_FIELD_25</> 478 <TYPE>string</> 479 <PHYSICAL> 480 <CODESET>ebcdic-m</> 481 <WIDTH>3</> 482 </> 483 </> 484 <FIELD> 485 <NAME>TEST_FIELD_26</> 486 <TYPE>string</> 487 <PHYSICAL> 488 <CODESET>ebcdic-m</> 489 <WIDTH>26</> 490 </> 491 </> 492 <FIELD> 493 <NAME>TEST_FIELD_27</> 494 <FIELD> 495 <NAME>TEST_FIELD_27_01</> 496 <TYPE>number</> 497 <PHYSICAL> 498 <TYPE>be_t</> 499 <WIDTH>2</> 500 </> 501 </> 502 <FIELD> 503 <NAME>TEST_FIELD_27_02</> 504 <TYPE>string</> 505 <PHYSICAL> 506 <CODESET>ebcdic-m</> 507 <WIDTH>55</> 508 </> 509 </> 510 </> 511</>' 512 513 EXEC --regress --variable '--terminator=' 514 OUTPUT - $'<METHOD>flat</> 515<FLAT> 516 <NAME>TEST</> 517 <DESCRIPTION>converted by cpy2dss from copybook standard input</> 518 <IDENT>@(#)$Id: TEST (AT&T Research) 2005-07-17 $</> 519 <LIBRARY>num_t</> 520 <FIELD> 521 <NAME>TEST_FIELD_01</> 522 <TYPE>string</> 523 <PHYSICAL> 524 <CODESET>ebcdic-m</> 525 <WIDTH>8</> 526 </> 527 </> 528 <FIELD> 529 <NAME>TEST_FIELD_02</> 530 <TYPE>string</> 531 <PHYSICAL> 532 <CODESET>ebcdic-m</> 533 <WIDTH>8</> 534 </> 535 </> 536 <FIELD> 537 <NAME>TEST_FIELD_03</> 538 <TYPE>number</> 539 <PHYSICAL> 540 <TYPE>bcd_t</> 541 <WIDTH>2</> 542 </> 543 </> 544 <FIELD> 545 <NAME>TEST_FIELD_04</> 546 <TYPE>number</> 547 <PHYSICAL> 548 <TYPE>bcd_t</> 549 <WIDTH>5</> 550 </> 551 </> 552 <FIELD> 553 <NAME>TEST_FIELD_05</> 554 <TYPE>number</> 555 <PHYSICAL> 556 <TYPE>bcd_t</> 557 <WIDTH>2</> 558 </> 559 </> 560 <FIELD> 561 <NAME>TEST_FIELD_06</> 562 <TYPE>string</> 563 <PHYSICAL> 564 <CODESET>ebcdic-m</> 565 <WIDTH>10</> 566 </> 567 </> 568 <FIELD> 569 <NAME>TEST_FIELD_07</> 570 <TYPE>string</> 571 <PHYSICAL> 572 <CODESET>ebcdic-m</> 573 <WIDTH>10</> 574 </> 575 </> 576 <FIELD> 577 <NAME>TEST_FIELD_08</> 578 <TYPE>string</> 579 <PHYSICAL> 580 <CODESET>ebcdic-m</> 581 <WIDTH>1</> 582 </> 583 </> 584 <FIELD> 585 <NAME>TEST_FIELD_09</> 586 <TYPE>string</> 587 <PHYSICAL> 588 <CODESET>ebcdic-m</> 589 <WIDTH>8</> 590 </> 591 </> 592 <FIELD> 593 <NAME>TEST_FIELD_10</> 594 <TYPE>string</> 595 <PHYSICAL> 596 <CODESET>ebcdic-m</> 597 <WIDTH>5</> 598 </> 599 </> 600 <FIELD> 601 <NAME>TEST_FIELD_11</> 602 <TYPE>string</> 603 <PHYSICAL> 604 <CODESET>ebcdic-m</> 605 <WIDTH>1</> 606 </> 607 </> 608 <FIELD> 609 <NAME>TEST_FIELD_12</> 610 <TYPE>string</> 611 <PHYSICAL> 612 <CODESET>ebcdic-m</> 613 <WIDTH>1</> 614 </> 615 </> 616 <FIELD> 617 <NAME>TEST_FIELD_13</> 618 <TYPE>string</> 619 <PHYSICAL> 620 <CODESET>ebcdic-m</> 621 <WIDTH>1</> 622 </> 623 </> 624 <FIELD> 625 <NAME>TEST_FIELD_14</> 626 <TYPE>string</> 627 <PHYSICAL> 628 <CODESET>ebcdic-m</> 629 <WIDTH>8</> 630 </> 631 </> 632 <FIELD> 633 <NAME>TEST_FIELD_15</> 634 <TYPE>string</> 635 <PHYSICAL> 636 <CODESET>ebcdic-m</> 637 <WIDTH>1</> 638 </> 639 </> 640 <FIELD> 641 <NAME>TEST_FIELD_16</> 642 <TYPE>string</> 643 <PHYSICAL> 644 <CODESET>ebcdic-m</> 645 <WIDTH>8</> 646 </> 647 </> 648 <FIELD> 649 <NAME>TEST_FIELD_17</> 650 <TYPE>number</> 651 <PHYSICAL> 652 <TYPE>bcd_t</> 653 <FIXEDPOINT>13</> 654 <WIDTH>8</> 655 </> 656 </> 657 <FIELD> 658 <NAME>TEST_FIELD_18</> 659 <TYPE>string</> 660 <PHYSICAL> 661 <CODESET>ebcdic-m</> 662 <WIDTH>8</> 663 </> 664 </> 665 <FIELD> 666 <NAME>TEST_FIELD_19</> 667 <TYPE>string</> 668 <PHYSICAL> 669 <CODESET>ebcdic-m</> 670 <WIDTH>8</> 671 </> 672 </> 673 <FIELD> 674 <NAME>TEST_FIELD_20</> 675 <TYPE>string</> 676 <PHYSICAL> 677 <CODESET>ebcdic-m</> 678 <WIDTH>1</> 679 </> 680 </> 681 <FIELD> 682 <NAME>TEST_FIELD_21</> 683 <TYPE>string</> 684 <PHYSICAL> 685 <CODESET>ebcdic-m</> 686 <WIDTH>1</> 687 </> 688 </> 689 <FIELD> 690 <NAME>TEST_FIELD_22</> 691 <TYPE>string</> 692 <PHYSICAL> 693 <CODESET>ebcdic-m</> 694 <WIDTH>10</> 695 </> 696 </> 697 <FIELD> 698 <NAME>TEST_FIELD_23</> 699 <TYPE>string</> 700 <PHYSICAL> 701 <CODESET>ebcdic-m</> 702 <WIDTH>3</> 703 </> 704 </> 705 <FIELD> 706 <NAME>TEST_FIELD_24</> 707 <TYPE>string</> 708 <PHYSICAL> 709 <CODESET>ebcdic-m</> 710 <WIDTH>1</> 711 </> 712 </> 713 <FIELD> 714 <NAME>TEST_FIELD_25</> 715 <TYPE>string</> 716 <PHYSICAL> 717 <CODESET>ebcdic-m</> 718 <WIDTH>3</> 719 </> 720 </> 721 <FIELD> 722 <NAME>TEST_FIELD_26</> 723 <TYPE>string</> 724 <PHYSICAL> 725 <CODESET>ebcdic-m</> 726 <WIDTH>26</> 727 </> 728 </> 729 <FIELD> 730 <NAME>TEST_FIELD_27</> 731 <FIELD> 732 <NAME>TEST_FIELD_27_01</> 733 <TYPE>number</> 734 <PHYSICAL> 735 <TYPE>le_t</> 736 <WIDTH>2</> 737 </> 738 </> 739 <FIELD> 740 <NAME>TEST_FIELD_27_02</> 741 <TYPE>string</> 742 <PHYSICAL> 743 <CODESET>ebcdic-m</> 744 <WIDTH>55</> 745 <DELIMITER></> 746 </> 747 </> 748 </> 749</>' 750 751 EXEC --regress --variable 752 OUTPUT - $'<METHOD>flat</> 753<FLAT> 754 <NAME>TEST</> 755 <DESCRIPTION>converted by cpy2dss from copybook standard input</> 756 <IDENT>@(#)$Id: TEST (AT&T Research) 2005-07-17 $</> 757 <LIBRARY>num_t</> 758 <FIELD> 759 <NAME>TEST_FIELD_01</> 760 <TYPE>string</> 761 <PHYSICAL> 762 <CODESET>ebcdic-m</> 763 <WIDTH>8</> 764 </> 765 </> 766 <FIELD> 767 <NAME>TEST_FIELD_02</> 768 <TYPE>string</> 769 <PHYSICAL> 770 <CODESET>ebcdic-m</> 771 <WIDTH>8</> 772 </> 773 </> 774 <FIELD> 775 <NAME>TEST_FIELD_03</> 776 <TYPE>number</> 777 <PHYSICAL> 778 <TYPE>bcd_t</> 779 <WIDTH>2</> 780 </> 781 </> 782 <FIELD> 783 <NAME>TEST_FIELD_04</> 784 <TYPE>number</> 785 <PHYSICAL> 786 <TYPE>bcd_t</> 787 <WIDTH>5</> 788 </> 789 </> 790 <FIELD> 791 <NAME>TEST_FIELD_05</> 792 <TYPE>number</> 793 <PHYSICAL> 794 <TYPE>bcd_t</> 795 <WIDTH>2</> 796 </> 797 </> 798 <FIELD> 799 <NAME>TEST_FIELD_06</> 800 <TYPE>string</> 801 <PHYSICAL> 802 <CODESET>ebcdic-m</> 803 <WIDTH>10</> 804 </> 805 </> 806 <FIELD> 807 <NAME>TEST_FIELD_07</> 808 <TYPE>string</> 809 <PHYSICAL> 810 <CODESET>ebcdic-m</> 811 <WIDTH>10</> 812 </> 813 </> 814 <FIELD> 815 <NAME>TEST_FIELD_08</> 816 <TYPE>string</> 817 <PHYSICAL> 818 <CODESET>ebcdic-m</> 819 <WIDTH>1</> 820 </> 821 </> 822 <FIELD> 823 <NAME>TEST_FIELD_09</> 824 <TYPE>string</> 825 <PHYSICAL> 826 <CODESET>ebcdic-m</> 827 <WIDTH>8</> 828 </> 829 </> 830 <FIELD> 831 <NAME>TEST_FIELD_10</> 832 <TYPE>string</> 833 <PHYSICAL> 834 <CODESET>ebcdic-m</> 835 <WIDTH>5</> 836 </> 837 </> 838 <FIELD> 839 <NAME>TEST_FIELD_11</> 840 <TYPE>string</> 841 <PHYSICAL> 842 <CODESET>ebcdic-m</> 843 <WIDTH>1</> 844 </> 845 </> 846 <FIELD> 847 <NAME>TEST_FIELD_12</> 848 <TYPE>string</> 849 <PHYSICAL> 850 <CODESET>ebcdic-m</> 851 <WIDTH>1</> 852 </> 853 </> 854 <FIELD> 855 <NAME>TEST_FIELD_13</> 856 <TYPE>string</> 857 <PHYSICAL> 858 <CODESET>ebcdic-m</> 859 <WIDTH>1</> 860 </> 861 </> 862 <FIELD> 863 <NAME>TEST_FIELD_14</> 864 <TYPE>string</> 865 <PHYSICAL> 866 <CODESET>ebcdic-m</> 867 <WIDTH>8</> 868 </> 869 </> 870 <FIELD> 871 <NAME>TEST_FIELD_15</> 872 <TYPE>string</> 873 <PHYSICAL> 874 <CODESET>ebcdic-m</> 875 <WIDTH>1</> 876 </> 877 </> 878 <FIELD> 879 <NAME>TEST_FIELD_16</> 880 <TYPE>string</> 881 <PHYSICAL> 882 <CODESET>ebcdic-m</> 883 <WIDTH>8</> 884 </> 885 </> 886 <FIELD> 887 <NAME>TEST_FIELD_17</> 888 <TYPE>number</> 889 <PHYSICAL> 890 <TYPE>bcd_t</> 891 <FIXEDPOINT>13</> 892 <WIDTH>8</> 893 </> 894 </> 895 <FIELD> 896 <NAME>TEST_FIELD_18</> 897 <TYPE>string</> 898 <PHYSICAL> 899 <CODESET>ebcdic-m</> 900 <WIDTH>8</> 901 </> 902 </> 903 <FIELD> 904 <NAME>TEST_FIELD_19</> 905 <TYPE>string</> 906 <PHYSICAL> 907 <CODESET>ebcdic-m</> 908 <WIDTH>8</> 909 </> 910 </> 911 <FIELD> 912 <NAME>TEST_FIELD_20</> 913 <TYPE>string</> 914 <PHYSICAL> 915 <CODESET>ebcdic-m</> 916 <WIDTH>1</> 917 </> 918 </> 919 <FIELD> 920 <NAME>TEST_FIELD_21</> 921 <TYPE>string</> 922 <PHYSICAL> 923 <CODESET>ebcdic-m</> 924 <WIDTH>1</> 925 </> 926 </> 927 <FIELD> 928 <NAME>TEST_FIELD_22</> 929 <TYPE>string</> 930 <PHYSICAL> 931 <CODESET>ebcdic-m</> 932 <WIDTH>10</> 933 </> 934 </> 935 <FIELD> 936 <NAME>TEST_FIELD_23</> 937 <TYPE>string</> 938 <PHYSICAL> 939 <CODESET>ebcdic-m</> 940 <WIDTH>3</> 941 </> 942 </> 943 <FIELD> 944 <NAME>TEST_FIELD_24</> 945 <TYPE>string</> 946 <PHYSICAL> 947 <CODESET>ebcdic-m</> 948 <WIDTH>1</> 949 </> 950 </> 951 <FIELD> 952 <NAME>TEST_FIELD_25</> 953 <TYPE>string</> 954 <PHYSICAL> 955 <CODESET>ebcdic-m</> 956 <WIDTH>3</> 957 </> 958 </> 959 <FIELD> 960 <NAME>TEST_FIELD_26</> 961 <TYPE>string</> 962 <PHYSICAL> 963 <CODESET>ebcdic-m</> 964 <WIDTH>26</> 965 </> 966 </> 967 <FIELD> 968 <NAME>TEST_FIELD_27</> 969 <FIELD> 970 <NAME>TEST_FIELD_27_01</> 971 <TYPE>number</> 972 <PHYSICAL> 973 <TYPE>le_t</> 974 <WIDTH>2</> 975 </> 976 </> 977 <FIELD> 978 <NAME>TEST_FIELD_27_02</> 979 <TYPE>string</> 980 <PHYSICAL> 981 <CODESET>ebcdic-m</> 982 <WIDTH>55</> 983 <DELIMITER>&newline;</> 984 </> 985 </> 986 </> 987</>' 988 989 EXEC --regress --text --reclen=123 990 OUTPUT - $'<METHOD>flat</> 991<FLAT> 992 <NAME>TEST</> 993 <DESCRIPTION>converted by cpy2dss from copybook standard input</> 994 <IDENT>@(#)$Id: TEST (AT&T Research) 2005-07-17 $</> 995 <LIBRARY>num_t</> 996 <RECORD> 997 <FIXED>123</> 998 </> 999 <PHYSICAL> 1000 <QUOTE>"</> 1001 <QUOTEALL>1</> 1002 </> 1003 <FIELD> 1004 <NAME>TEST_FIELD_01</> 1005 <TYPE>string</> 1006 <PHYSICAL> 1007 <CODESET>ascii</> 1008 <DELIMITER>|</> 1009 </> 1010 </> 1011 <FIELD> 1012 <NAME>TEST_FIELD_02</> 1013 <TYPE>string</> 1014 <PHYSICAL> 1015 <CODESET>ascii</> 1016 <DELIMITER>|</> 1017 </> 1018 </> 1019 <FIELD> 1020 <NAME>TEST_FIELD_03</> 1021 <TYPE>number</> 1022 <PHYSICAL> 1023 <CODESET>ascii</> 1024 <DELIMITER>|</> 1025 </> 1026 </> 1027 <FIELD> 1028 <NAME>TEST_FIELD_04</> 1029 <TYPE>number</> 1030 <PHYSICAL> 1031 <CODESET>ascii</> 1032 <DELIMITER>|</> 1033 </> 1034 </> 1035 <FIELD> 1036 <NAME>TEST_FIELD_05</> 1037 <TYPE>number</> 1038 <PHYSICAL> 1039 <CODESET>ascii</> 1040 <DELIMITER>|</> 1041 </> 1042 </> 1043 <FIELD> 1044 <NAME>TEST_FIELD_06</> 1045 <TYPE>string</> 1046 <PHYSICAL> 1047 <CODESET>ascii</> 1048 <DELIMITER>|</> 1049 </> 1050 </> 1051 <FIELD> 1052 <NAME>TEST_FIELD_07</> 1053 <TYPE>string</> 1054 <PHYSICAL> 1055 <CODESET>ascii</> 1056 <DELIMITER>|</> 1057 </> 1058 </> 1059 <FIELD> 1060 <NAME>TEST_FIELD_08</> 1061 <TYPE>string</> 1062 <PHYSICAL> 1063 <CODESET>ascii</> 1064 <DELIMITER>|</> 1065 </> 1066 </> 1067 <FIELD> 1068 <NAME>TEST_FIELD_09</> 1069 <TYPE>string</> 1070 <PHYSICAL> 1071 <CODESET>ascii</> 1072 <DELIMITER>|</> 1073 </> 1074 </> 1075 <FIELD> 1076 <NAME>TEST_FIELD_10</> 1077 <TYPE>string</> 1078 <PHYSICAL> 1079 <CODESET>ascii</> 1080 <DELIMITER>|</> 1081 </> 1082 </> 1083 <FIELD> 1084 <NAME>TEST_FIELD_11</> 1085 <TYPE>string</> 1086 <PHYSICAL> 1087 <CODESET>ascii</> 1088 <DELIMITER>|</> 1089 </> 1090 </> 1091 <FIELD> 1092 <NAME>TEST_FIELD_12</> 1093 <TYPE>string</> 1094 <PHYSICAL> 1095 <CODESET>ascii</> 1096 <DELIMITER>|</> 1097 </> 1098 </> 1099 <FIELD> 1100 <NAME>TEST_FIELD_13</> 1101 <TYPE>string</> 1102 <PHYSICAL> 1103 <CODESET>ascii</> 1104 <DELIMITER>|</> 1105 </> 1106 </> 1107 <FIELD> 1108 <NAME>TEST_FIELD_14</> 1109 <TYPE>string</> 1110 <PHYSICAL> 1111 <CODESET>ascii</> 1112 <DELIMITER>|</> 1113 </> 1114 </> 1115 <FIELD> 1116 <NAME>TEST_FIELD_15</> 1117 <TYPE>string</> 1118 <PHYSICAL> 1119 <CODESET>ascii</> 1120 <DELIMITER>|</> 1121 </> 1122 </> 1123 <FIELD> 1124 <NAME>TEST_FIELD_16</> 1125 <TYPE>string</> 1126 <PHYSICAL> 1127 <CODESET>ascii</> 1128 <DELIMITER>|</> 1129 </> 1130 </> 1131 <FIELD> 1132 <NAME>TEST_FIELD_17</> 1133 <TYPE>number</> 1134 <PHYSICAL> 1135 <CODESET>ascii</> 1136 <FIXEDPOINT>13</> 1137 <DELIMITER>|</> 1138 </> 1139 </> 1140 <FIELD> 1141 <NAME>TEST_FIELD_18</> 1142 <TYPE>string</> 1143 <PHYSICAL> 1144 <CODESET>ascii</> 1145 <DELIMITER>|</> 1146 </> 1147 </> 1148 <FIELD> 1149 <NAME>TEST_FIELD_19</> 1150 <TYPE>string</> 1151 <PHYSICAL> 1152 <CODESET>ascii</> 1153 <DELIMITER>|</> 1154 </> 1155 </> 1156 <FIELD> 1157 <NAME>TEST_FIELD_20</> 1158 <TYPE>string</> 1159 <PHYSICAL> 1160 <CODESET>ascii</> 1161 <DELIMITER>|</> 1162 </> 1163 </> 1164 <FIELD> 1165 <NAME>TEST_FIELD_21</> 1166 <TYPE>string</> 1167 <PHYSICAL> 1168 <CODESET>ascii</> 1169 <DELIMITER>|</> 1170 </> 1171 </> 1172 <FIELD> 1173 <NAME>TEST_FIELD_22</> 1174 <TYPE>string</> 1175 <PHYSICAL> 1176 <CODESET>ascii</> 1177 <DELIMITER>|</> 1178 </> 1179 </> 1180 <FIELD> 1181 <NAME>TEST_FIELD_23</> 1182 <TYPE>string</> 1183 <PHYSICAL> 1184 <CODESET>ascii</> 1185 <DELIMITER>|</> 1186 </> 1187 </> 1188 <FIELD> 1189 <NAME>TEST_FIELD_24</> 1190 <TYPE>string</> 1191 <PHYSICAL> 1192 <CODESET>ascii</> 1193 <DELIMITER>|</> 1194 </> 1195 </> 1196 <FIELD> 1197 <NAME>TEST_FIELD_25</> 1198 <TYPE>string</> 1199 <PHYSICAL> 1200 <CODESET>ascii</> 1201 <DELIMITER>|</> 1202 </> 1203 </> 1204 <FIELD> 1205 <NAME>TEST_FIELD_26</> 1206 <TYPE>string</> 1207 <PHYSICAL> 1208 <CODESET>ascii</> 1209 <DELIMITER>|</> 1210 </> 1211 </> 1212 <FIELD> 1213 <NAME>TEST_FIELD_27</> 1214 <FIELD> 1215 <NAME>TEST_FIELD_27_01</> 1216 <TYPE>number</> 1217 <PHYSICAL> 1218 <CODESET>ascii</> 1219 <DELIMITER>|</> 1220 </> 1221 </> 1222 <FIELD> 1223 <NAME>TEST_FIELD_27_02</> 1224 <TYPE>string</> 1225 <PHYSICAL> 1226 <CODESET>ascii</> 1227 <DELIMITER>&newline;</> 1228 </> 1229 </> 1230 </> 1231</>' 1232 1233 EXEC --regress --bytemask 1234 OUTPUT - 000000000000000033333333300000000000000000000000000000000000000000000000000000\ 1235033333333000000000000000000000000000000000000000000000000000000000000055000000\ 12360000000000000000000000000000000000000000000000000 1237 1238 EXEC --regress --offsets 1239 OUTPUT - $'TEST_FIELD_01\t0\t8\t0\tstring 1240TEST_FIELD_02\t8\t8\t0\tstring 1241TEST_FIELD_03\t16\t2\t0\tbcd_t 1242TEST_FIELD_04\t18\t5\t0\tbcd_t 1243TEST_FIELD_05\t23\t2\t0\tbcd_t 1244TEST_FIELD_06\t25\t10\t0\tstring 1245TEST_FIELD_07\t35\t10\t0\tstring 1246TEST_FIELD_08\t45\t1\t0\tstring 1247TEST_FIELD_09\t46\t8\t0\tstring 1248TEST_FIELD_10\t54\t5\t0\tstring 1249TEST_FIELD_11\t59\t1\t0\tstring 1250TEST_FIELD_12\t60\t1\t0\tstring 1251TEST_FIELD_13\t61\t1\t0\tstring 1252TEST_FIELD_14\t62\t8\t0\tstring 1253TEST_FIELD_15\t70\t1\t0\tstring 1254TEST_FIELD_16\t71\t8\t0\tstring 1255TEST_FIELD_17\t79\t8\t0\tbcd_t 1256TEST_FIELD_18\t87\t8\t0\tstring 1257TEST_FIELD_19\t95\t8\t0\tstring 1258TEST_FIELD_20\t103\t1\t0\tstring 1259TEST_FIELD_21\t104\t1\t0\tstring 1260TEST_FIELD_22\t105\t10\t0\tstring 1261TEST_FIELD_23\t115\t3\t0\tstring 1262TEST_FIELD_24\t118\t1\t0\tstring 1263TEST_FIELD_25\t119\t3\t0\tstring 1264TEST_FIELD_26\t122\t26\t0\tstring 1265TEST_FIELD_27\t148\t59\t0\tstruct 1266TEST_FIELD_27_01\t148\t2\t0\tle_t 1267TEST_FIELD_27_02\t150\t55\t0\tstring 1268.\t205\t0\t0\tstruct' 1269 1270TEST 02 'embedded variable length' 1271 1272 EXEC --regress 1273 INPUT - $' 01 TEST. 1274 10 TEST-FIELD-01 PIC X(4). 1275 10 TEST-FIELD-02. 1276 49 TEST-FIELD-02-SIZE PIC S9(4) COMP-5. 1277 49 TEST-FIELD-02-DATA PIC X(32700). 1278 10 TEST-FIELD-03 PIC X(4).' 1279 OUTPUT - $'<METHOD>flat</> 1280<FLAT> 1281 <NAME>TEST</> 1282 <DESCRIPTION>converted by cpy2dss from copybook standard input</> 1283 <IDENT>@(#)$Id: TEST (AT&T Research) 2005-07-17 $</> 1284 <LIBRARY>num_t</> 1285 <FIELD> 1286 <NAME>TEST_FIELD_01</> 1287 <TYPE>string</> 1288 <PHYSICAL> 1289 <CODESET>ebcdic-m</> 1290 <WIDTH>4</> 1291 </> 1292 </> 1293 <FIELD> 1294 <NAME>TEST_FIELD_02</> 1295 <FIELD> 1296 <NAME>TEST_FIELD_02_SIZE</> 1297 <TYPE>number</> 1298 <PHYSICAL> 1299 <TYPE>le_t</> 1300 <WIDTH>2</> 1301 </> 1302 </> 1303 <FIELD> 1304 <NAME>TEST_FIELD_02_DATA</> 1305 <TYPE>string</> 1306 <PHYSICAL> 1307 <CODESET>ebcdic-m</> 1308 <WIDTH>32700</> 1309 <WIDTH>TEST_FIELD_02_SIZE</> 1310 </> 1311 </> 1312 </> 1313 <FIELD> 1314 <NAME>TEST_FIELD_03</> 1315 <TYPE>string</> 1316 <PHYSICAL> 1317 <CODESET>ebcdic-m</> 1318 <WIDTH>4</> 1319 </> 1320 </> 1321</>' 1322 1323 EXEC --regress --reclen=256 1324 OUTPUT - $'<METHOD>flat</> 1325<FLAT> 1326 <NAME>TEST</> 1327 <DESCRIPTION>converted by cpy2dss from copybook standard input</> 1328 <IDENT>@(#)$Id: TEST (AT&T Research) 2005-07-17 $</> 1329 <LIBRARY>num_t</> 1330 <RECORD> 1331 <FIXED>256</> 1332 </> 1333 <FIELD> 1334 <NAME>TEST_FIELD_01</> 1335 <TYPE>string</> 1336 <PHYSICAL> 1337 <CODESET>ebcdic-m</> 1338 <WIDTH>4</> 1339 </> 1340 </> 1341 <FIELD> 1342 <NAME>TEST_FIELD_02</> 1343 <FIELD> 1344 <NAME>TEST_FIELD_02_SIZE</> 1345 <TYPE>number</> 1346 <PHYSICAL> 1347 <TYPE>le_t</> 1348 <WIDTH>2</> 1349 </> 1350 </> 1351 <FIELD> 1352 <NAME>TEST_FIELD_02_DATA</> 1353 <TYPE>string</> 1354 <PHYSICAL> 1355 <CODESET>ebcdic-m</> 1356 <WIDTH>246</> 1357 <WIDTH>TEST_FIELD_02_SIZE</> 1358 </> 1359 </> 1360 </> 1361 <FIELD> 1362 <NAME>TEST_FIELD_03</> 1363 <TYPE>string</> 1364 <PHYSICAL> 1365 <CODESET>ebcdic-m</> 1366 <WIDTH>4</> 1367 </> 1368 </> 1369</>' 1370 ERROR - 'cpy2dss: line 6: warning: TEST_FIELD_02_DATA: maximum variable field size sh'\ 1371'ortened from 32700 to 246 to comply with fixed record size 256' 1372 1373 EXEC --regress --reclen=256 --text 1374 OUTPUT - $'<METHOD>flat</> 1375<FLAT> 1376 <NAME>TEST</> 1377 <DESCRIPTION>converted by cpy2dss from copybook standard input</> 1378 <IDENT>@(#)$Id: TEST (AT&T Research) 2005-07-17 $</> 1379 <LIBRARY>num_t</> 1380 <RECORD> 1381 <FIXED>256</> 1382 </> 1383 <PHYSICAL> 1384 <QUOTE>"</> 1385 <QUOTEALL>1</> 1386 </> 1387 <FIELD> 1388 <NAME>TEST_FIELD_01</> 1389 <TYPE>string</> 1390 <PHYSICAL> 1391 <CODESET>ascii</> 1392 <DELIMITER>|</> 1393 </> 1394 </> 1395 <FIELD> 1396 <NAME>TEST_FIELD_02</> 1397 <FIELD> 1398 <NAME>TEST_FIELD_02_SIZE</> 1399 <TYPE>number</> 1400 <PHYSICAL> 1401 <CODESET>ascii</> 1402 <DELIMITER>|</> 1403 </> 1404 </> 1405 <FIELD> 1406 <NAME>TEST_FIELD_02_DATA</> 1407 <TYPE>string</> 1408 <PHYSICAL> 1409 <CODESET>ascii</> 1410 <WIDTH>TEST_FIELD_02_SIZE</> 1411 <DELIMITER>|</> 1412 </> 1413 </> 1414 </> 1415 <FIELD> 1416 <NAME>TEST_FIELD_03</> 1417 <TYPE>string</> 1418 <PHYSICAL> 1419 <CODESET>ascii</> 1420 <DELIMITER>&newline;</> 1421 </> 1422 </> 1423</>' 1424 ERROR - 1425 1426 EXEC --regress --text 1427 OUTPUT - $'<METHOD>flat</> 1428<FLAT> 1429 <NAME>TEST</> 1430 <DESCRIPTION>converted by cpy2dss from copybook standard input</> 1431 <IDENT>@(#)$Id: TEST (AT&T Research) 2005-07-17 $</> 1432 <LIBRARY>num_t</> 1433 <PHYSICAL> 1434 <QUOTE>"</> 1435 <QUOTEALL>1</> 1436 </> 1437 <FIELD> 1438 <NAME>TEST_FIELD_01</> 1439 <TYPE>string</> 1440 <PHYSICAL> 1441 <CODESET>ascii</> 1442 <DELIMITER>|</> 1443 </> 1444 </> 1445 <FIELD> 1446 <NAME>TEST_FIELD_02</> 1447 <FIELD> 1448 <NAME>TEST_FIELD_02_SIZE</> 1449 <TYPE>number</> 1450 <PHYSICAL> 1451 <CODESET>ascii</> 1452 <DELIMITER>|</> 1453 </> 1454 </> 1455 <FIELD> 1456 <NAME>TEST_FIELD_02_DATA</> 1457 <TYPE>string</> 1458 <PHYSICAL> 1459 <CODESET>ascii</> 1460 <WIDTH>TEST_FIELD_02_SIZE</> 1461 <DELIMITER>|</> 1462 </> 1463 </> 1464 </> 1465 <FIELD> 1466 <NAME>TEST_FIELD_03</> 1467 <TYPE>string</> 1468 <PHYSICAL> 1469 <CODESET>ascii</> 1470 <DELIMITER>&newline;</> 1471 </> 1472 </> 1473</>' 1474 1475 EXEC --regress --reclen=256 --text --variable 1476 OUTPUT - $'<METHOD>flat</> 1477<FLAT> 1478 <NAME>TEST</> 1479 <DESCRIPTION>converted by cpy2dss from copybook standard input</> 1480 <IDENT>@(#)$Id: TEST (AT&T Research) 2005-07-17 $</> 1481 <LIBRARY>num_t</> 1482 <RECORD> 1483 <FIXED>256</> 1484 </> 1485 <PHYSICAL> 1486 <QUOTE>"</> 1487 <QUOTEALL>1</> 1488 </> 1489 <FIELD> 1490 <NAME>TEST_FIELD_01</> 1491 <TYPE>string</> 1492 <PHYSICAL> 1493 <CODESET>ascii</> 1494 <DELIMITER>|</> 1495 </> 1496 </> 1497 <FIELD> 1498 <NAME>TEST_FIELD_02</> 1499 <FIELD> 1500 <NAME>TEST_FIELD_02_DATA</> 1501 <TYPE>string</> 1502 <PHYSICAL> 1503 <CODESET>ascii</> 1504 <DELIMITER>|</> 1505 </> 1506 </> 1507 </> 1508 <FIELD> 1509 <NAME>TEST_FIELD_03</> 1510 <TYPE>string</> 1511 <PHYSICAL> 1512 <CODESET>ascii</> 1513 <DELIMITER>&newline;</> 1514 </> 1515 </> 1516</>' 1517 1518 EXEC --regress --text --variable 1519 OUTPUT - $'<METHOD>flat</> 1520<FLAT> 1521 <NAME>TEST</> 1522 <DESCRIPTION>converted by cpy2dss from copybook standard input</> 1523 <IDENT>@(#)$Id: TEST (AT&T Research) 2005-07-17 $</> 1524 <LIBRARY>num_t</> 1525 <PHYSICAL> 1526 <QUOTE>"</> 1527 <QUOTEALL>1</> 1528 </> 1529 <FIELD> 1530 <NAME>TEST_FIELD_01</> 1531 <TYPE>string</> 1532 <PHYSICAL> 1533 <CODESET>ascii</> 1534 <DELIMITER>|</> 1535 </> 1536 </> 1537 <FIELD> 1538 <NAME>TEST_FIELD_02</> 1539 <FIELD> 1540 <NAME>TEST_FIELD_02_DATA</> 1541 <TYPE>string</> 1542 <PHYSICAL> 1543 <CODESET>ascii</> 1544 <DELIMITER>|</> 1545 </> 1546 </> 1547 </> 1548 <FIELD> 1549 <NAME>TEST_FIELD_03</> 1550 <TYPE>string</> 1551 <PHYSICAL> 1552 <CODESET>ascii</> 1553 <DELIMITER>&newline;</> 1554 </> 1555 </> 1556</>' 1557 1558TEST 03 unions 1559 1560 EXEC --regress 1561 INPUT - $' 01 TEST-B29-B23-B55. 1562 03 TEST-B74-B55-B36 PIC S9(4) COMP 1563 VALUE ZEROES. 1564 03 TEST-B23-C069-B33. 1565 06 TEST-C068-B23-C069-C002. 1566 09 TEST-D0018-B37-B08. 1567 12 TEST-C007-A4 PIC X(10) VALUE SPACES. 1568 12 TEST-C037-A5 PIC S9(13) COMP-3 1569 VALUE ZEROES. 1570 09 TEST-C037-B14-A12-B28. 1571 12 TEST-C036-B07-C003 1572 PIC S9(13) COMP-3 1573 VALUE ZEROES. 1574 12 TEST-B07-C003-C076 1575 PIC X(2) VALUE SPACES. 1576 12 TEST-B14-A1 PIC X(2) VALUE SPACES. 1577 09 TEST-B37-B23-B55-C076 1578 PIC X VALUE SPACES. 1579 09 TEST-A13-B59-C069-B42 1580 PIC S9(3) COMP-3 1581 VALUE ZEROES. 1582 09 TEST-B56-C003-A5 PIC X(38) VALUE SPACES. 1583 09 TEST-B12-A13-B59-C040 1584 PIC S9(3) COMP 1585 VALUE ZEROES. 1586 09 TEST-D0023-B23-B55-C076 1587 PIC X VALUE SPACES. 1588 09 TEST-C065-B28-B58-A1 1589 PIC S9(5) COMP-3 1590 VALUE ZEROES. 1591 09 TEST-B61-B01-C037-B28. 1592 12 TEST-B27-B61-B01-C037 1593 PIC X(13) VALUE SPACES. 1594 12 TEST-B57-B61-B01-C037 1595 PIC X(13) VALUE SPACES. 1596 12 TEST-C078-C055-B26 1597 PIC X VALUE SPACES. 1598 09 TEST-B23-C058-C069-B28. 1599 12 TEST-C058-D0024-C069-B28. 1600 15 TEST-C037-D0024-B33 1601 PIC X(80) VALUE SPACES. 1602 12 TEST-C058-C069-B28. 1603 15 TEST-C036-C069-B28 1604 OCCURS 5 TIMES 1605 INDEXED BY TEST-C059-C069-C040. 1606 18 FILLER PIC X(50) VALUE D0031. 1607 09 TEST-C065-A7-B28-B58-A1 1608 PIC S9(5) COMP-3 1609 VALUE ZEROES. 1610 09 TEST-B23-D0028-C069-B28. 1611 12 TEST-D0030-C069-B28. 1612 15 TEST-C036-C069-B28 1613 OCCURS 5 TIMES 1614 INDEXED BY TEST-D0028-C069-C040. 1615 18 FILLER PIC X(50) VALUE D0031. 1616 06 TEST-B23-B59-B58-A3 PIC S9(3) COMP-3 1617 VALUE ZEROES. 1618 03 TEST-B23-B12-C002-B28. 1619 06 TEST-B31-B12-C002. 1620 09 TEST-B06-A5. 1621 12 TEST-C042-B06-A5. 1622 15 TEST-C028-E00006-A1 1623 PIC X(8) VALUE SPACES. 1624 15 TEST-B55-B58-B42 1625 PIC 9(8) VALUE ZEROES. 1626 15 TEST-B29-B58-B42 1627 PIC S9(3) COMP-3 1628 VALUE ZEROES. 1629 12 TEST-B06-B58-B42 1630 PIC S9(4) COMP-3 1631 VALUE ZEROES. 1632 12 TEST-C071-B06-A5. 1633 15 TEST-C067-A4 PIC X(10) VALUE SPACES. 1634 15 TEST-C067-B58-B42 1635 PIC S9(13) COMP-3 1636 VALUE ZEROES. 1637 15 TEST-B60-B64 PIC X(3) VALUE SPACES. 1638 09 TEST-B06-C076 PIC X(3) VALUE SPACES. 1639 09 TEST-D0026-C076 PIC X(2) VALUE SPACES. 1640 09 TEST-C006-C075-A1 PIC S9(8) COMP-3 1641 VALUE ZEROES. 1642 09 TEST-A2-B32 PIC X VALUE SPACES. 1643 09 TEST-A6-B55-C076-A1 PIC X(2) VALUE \'D\'. 1644 09 TEST-B39-A16-C065-B32 1645 PIC X VALUE SPACES. 1646 09 TEST-D0005-A10-C066 PIC X(6) VALUE SPACES. 1647 09 TEST-C007-B13-B11-B32 1648 PIC X VALUE SPACES. 1649 09 TEST-B06-C018-C041-E00003. 1650 12 TEST-C006-C066-A5. 1651 15 TEST-B42-B28. 1652 18 TEST-C052-C066-C076-A1 1653 PIC X VALUE SPACES. 1654 18 TEST-C036-C066-B42-B28. 1655 21 TEST-C036-C066-B42 1656 PIC X(35) VALUE SPACES. 1657 18 TEST-B41-C066-B42-B28 1658 REDEFINES TEST-C036-C066-B42-B28. 1659 21 TEST-B43 PIC X(3). 1660 21 TEST-B50 PIC X(3). 1661 21 TEST-C046-B42 PIC X(4). 1662 21 FILLER PIC X(25). 1663 18 TEST-D0017-C066-B42-B28 1664 REDEFINES TEST-C036-C066-B42-B28. 1665 21 TEST-D0017-B42-B36 1666 PIC X(2). 1667 21 TEST-D0017-B42-B28. 1668 24 TEST-D0017-B42-B52 1669 PIC X(10). 1670 24 TEST-D0017-B42-B53 1671 PIC X(6). 1672 21 FILLER PIC X(17). 1673 18 TEST-B43-B50-B42-B28 1674 REDEFINES TEST-C036-C066-B42-B28. 1675 21 TEST-C054-B43-B50 1676 PIC X(6). 1677 21 FILLER PIC X(29). 1678 15 TEST-C006-C066-B60-B42-B28 1679 REDEFINES TEST-B42-B28. 1680 18 TEST-C006-C052-C066-B70 1681 PIC X. 1682 18 TEST-C006-C066-B42-B28. 1683 21 TEST-C006-B43 PIC X(3). 1684 21 TEST-C006-B50 PIC X(3). 1685 21 TEST-C006-C046-B42 1686 PIC X(4). 1687 21 FILLER PIC X(25). 1688 18 TEST-C006-B41-B42-B28 1689 REDEFINES TEST-C006-C066-B42-B28. 1690 21 TEST-C006-B42-B41 1691 PIC X(10). 1692 21 FILLER PIC X(25). 1693 18 TEST-C006-D0017-C066-B42-B28 1694 REDEFINES TEST-C006-C066-B42-B28. 1695 21 TEST-D0017-B42-B36 1696 PIC X(2). 1697 21 TEST-C006-D0017-B42-B28. 1698 24 FILLER PIC X(16). 1699 21 FILLER PIC X(17). 1700 18 TEST-C006-D0022-B42-B28 1701 REDEFINES TEST-C006-C066-B42-B28. 1702 21 TEST-C006-C066-D0004-A5 1703 PIC X(30). 1704 21 TEST-D0004-C048-A1 1705 PIC X(4). 1706 12 TEST-C071-C037-A12-A5 1707 PIC S9(13) COMP-3 1708 VALUE ZEROES. 1709 12 TEST-C037-B14-A12-A5 1710 PIC S9(13) COMP-3 1711 VALUE ZEROES. 1712 12 TEST-C066-C003-A5 1713 PIC S9(13) COMP-3 1714 VALUE ZEROES. 1715 12 TEST-C037-A12-A5 PIC S9(13) COMP-3 1716 VALUE ZEROES. 1717 12 TEST-D0027-C003 PIC X(4) VALUE SPACES. 1718 12 TEST-B63-C001-C039 1719 PIC 9(13) VALUE ZEROES. 1720 12 TEST-B34-A1 PIC X(2) VALUE SPACES. 1721 12 TEST-D0020-C073-A1 1722 PIC X(2) 1723 OCCURS 2 TIMES 1724 VALUE SPACES. 1725 09 TEST-C018-C003-A5 PIC S9(8) COMP-3 1726 VALUE ZEROES. 1727 09 TEST-B06-C060-D0033. 1728 12 TEST-C060-C053-A1 1729 PIC X(8) VALUE SPACES. 1730 12 TEST-C060-COMPNT-A1 1731 PIC X(8) VALUE SPACES. 1732 12 TEST-C043-C060-C041-B66. 1733 15 TEST-C043-C060-C041-B28 1734 OCCURS 5 TIMES. 1735 18 TEST-C043-C060-C076-A1 1736 PIC X VALUE SPACES. 1737 18 TEST-C043-C060-B35-A1 1738 PIC X(4) VALUE SPACES. 1739 12 TEST-C060-C006-A5 1740 PIC X(8) VALUE SPACES. 1741 12 TEST-C006-C026-A1 1742 PIC X(8) VALUE SPACES. 1743 12 TEST-C006-C026-B09-A1 1744 PIC X VALUE SPACES. 1745 12 TEST-B48-E00006 PIC S9(3) COMP-3 1746 VALUE ZEROES. 1747 09 TEST-C062-D0033-B75-B42 1748 PIC S9(3) COMP-3 1749 VALUE ZEROES. 1750 09 TEST-C041-C051-B28. 1751 12 TEST-C036-D0013 PIC S9(17) COMP-3 1752 OCCURS 6 TIMES 1753 INDEXED BY TEST-D0013-B30 1754 VALUE ZEROES. 1755 12 TEST-C036-B54 PIC S9(15)V9(2) COMP-3 1756 OCCURS 5 TIMES 1757 INDEXED BY TEST-B54-B30 1758 VALUE ZEROES. 1759 12 TEST-C036-B03 PIC S9(8)V9(7) COMP-3 1760 OCCURS 7 TIMES 1761 INDEXED BY TEST-B03-B30 1762 VALUE ZEROES. 1763 09 TEST-B31-C020-B28. 1764 12 TEST-D0015-A16-A4 1765 PIC X(10) VALUE SPACES. 1766 12 TEST-B06-B62-A4 PIC X(10) VALUE SPACES. 1767 12 TEST-B06-B21-A4 PIC X(10) VALUE SPACES. 1768 09 TEST-B71-A1 PIC X(5) VALUE SPACES. 1769 09 TEST-B12-E00002-C019. 1770 12 TEST-E00009-A14-D0007-A1 1771 PIC X(2) VALUE SPACES. 1772 12 TEST-D0034-A14-D0007-A1 1773 PIC X(2) VALUE SPACES. 1774 12 TEST-E00009-C045 1775 PIC X(3) VALUE SPACES. 1776 12 TEST-D0034-C045 PIC X(3) VALUE SPACES. 1777 12 TEST-B08-A5 PIC X(4) VALUE SPACES. 1778 09 TEST-C061-B32 PIC X VALUE SPACES. 1779 09 TEST-E00007-D0005-A10-C066 1780 PIC X(5) VALUE SPACES. 1781 09 TEST-E00008-C011 PIC S9(6)V9(2) COMP-3 1782 VALUE ZEROES. 1783 09 TEST-C044-D0019-A1 PIC X VALUE SPACES. 1784 09 TEST-D0012-C076 PIC X VALUE SPACES. 1785 09 TEST-D0012-C027-B32 PIC X VALUE SPACES. 1786 09 TEST-C010-D0013-B54-C002. 1787 12 TEST-C009-D0013-C064 1788 PIC S9(10)V9(5) COMP-3 1789 VALUE ZEROES. 1790 12 TEST-F000003-D0013-C064 1791 PIC S9(10)V9(5) COMP-3 1792 VALUE ZEROES. 1793 12 TEST-D0014-B54 PIC S9(7)V9(3) COMP-3 1794 VALUE ZEROES. 1795 12 TEST-C038-C009-C005-B54 1796 PIC S9(7)V9(2) COMP-3 1797 VALUE ZEROES. 1798 09 TEST-E00004-B03 PIC S9(8)V9(7) COMP-3 1799 VALUE ZEROES. 1800 09 TEST-C072-C011-B32 PIC X VALUE SPACES. 1801 09 TEST-E00005-C056-B28. 1802 12 TEST-E00005-C024 1803 PIC S9(4) COMP-3 1804 VALUE ZEROES. 1805 12 TEST-C056-B42 PIC X(9) VALUE SPACES. 1806 09 TEST-B31-B65-B28. 1807 12 TEST-A15-B65-B09-A1 1808 PIC X(2) VALUE SPACES. 1809 12 TEST-D0016-E00012. 1810 15 TEST-B65-D0001-B32 1811 PIC X VALUE SPACES. 1812 15 TEST-B65-D0019-A1-B28. 1813 18 TEST-B41-A1 PIC X(2) VALUE SPACES. 1814 18 TEST-D0032-A1 PIC X(2) VALUE SPACES. 1815 18 TEST-C015-A1 PIC X(3) VALUE SPACES. 1816 18 TEST-C012-A1 PIC X(4) VALUE SPACES. 1817 18 TEST-F000005-A1 PIC X(2) VALUE SPACES. 1818 15 TEST-B44-B32 PIC X VALUE SPACES. 1819 15 TEST-B65-B22 PIC X(5) VALUE SPACES. 1820 15 TEST-C076-A10-C001 1821 PIC X(2) VALUE SPACES. 1822 15 TEST-COMPLNC-C075-A1 1823 PIC X VALUE SPACES. 1824 15 TEST-C066-B28 PIC X VALUE SPACES. 1825 15 TEST-B04-F000001-B07 1826 PIC X(2) VALUE SPACES. 1827 15 TEST-C033-A10-C011 1828 PIC X VALUE SPACES. 1829 15 TEST-C011-C076-A1 1830 PIC X(2) VALUE SPACES. 1831 15 TEST-F000006-B65-C008 1832 PIC X(2) VALUE SPACES. 1833 15 TEST-C047-B40-B74 1834 PIC 9(7) VALUE ZEROES. 1835 15 TEST-C047-C066-D0006-A5 1836 PIC 9(8) VALUE ZEROES. 1837 15 TEST-B65-B42-B02-D0021 1838 PIC 9(7) VALUE ZEROES. 1839 15 TEST-B65-E00002 PIC X(2) VALUE SPACES. 1840 15 TEST-B65-C021 PIC X VALUE SPACES. 1841 15 TEST-B24-B65-C030 1842 PIC X VALUE SPACES. 1843 15 TEST-C074-B65-A1 1844 PIC X VALUE SPACES. 1845 12 TEST-D0016-F000004. 1846 15 TEST-C060-C026-A1 1847 PIC X(10) VALUE SPACES. 1848 15 TEST-D0035-C063-A1 1849 PIC X(4) VALUE SPACES. 1850 15 TEST-B65-D0002-B28. 1851 18 TEST-F000002-B65-D0002 1852 PIC X VALUE SPACES. 1853 18 TEST-D0032-B65-D0002 1854 PIC X VALUE SPACES. 1855 18 TEST-C012-B65-D0002 1856 PIC X VALUE SPACES. 1857 18 TEST-E00001-B65-D0002 1858 PIC X VALUE SPACES. 1859 18 TEST-F000005-B65-D0002 1860 PIC X VALUE SPACES. 1861 15 TEST-C060-B73-A1 1862 PIC X(2) VALUE SPACES. 1863 15 TEST-C060-C016-B03 1864 PIC S9(11)V9(4) COMP-3 1865 VALUE ZEROES. 1866 12 TEST-C075-C076 PIC X(4) VALUE SPACES. 1867 12 TEST-C063-C076 PIC X(4) VALUE SPACES. 1868 12 TEST-B68-B65-B03 1869 PIC S9(11)V9(7) COMP-3 1870 VALUE ZEROES. 1871 12 TEST-B42-A10-OCCURS 1872 PIC S9(4) COMP 1873 VALUE 0. 1874 06 TEST-B05-B12-C002. 1875 09 TEST-C037-D0024-B33 PIC X(80) VALUE SPACES. 1876 09 TEST-C060-D0033-C023. 1877 12 TEST-C060-C031-C023 1878 PIC X(30) VALUE SPACES. 1879 12 TEST-C060-C076-C023 1880 PIC X(30) VALUE SPACES. 1881 12 TEST-C011-B28 PIC X(30) VALUE SPACES. 1882 12 TEST-B02-C076-C023 1883 PIC X(30) VALUE SPACES. 1884 12 TEST-C013-A10-D0003-C023 1885 PIC X(30) VALUE SPACES. 1886 09 TEST-C035 PIC S9(10) COMP-3 1887 VALUE ZEROES. 1888 09 TEST-D0018-D0009-B61-A1 1889 PIC S9(3) COMP-3 1890 VALUE ZEROES. 1891 09 TEST-C066-B42-B35 PIC X(30) VALUE SPACES. 1892 09 TEST-D0018-D0009-C023 1893 PIC X(30) VALUE SPACES. 1894 09 TEST-C066-C003-A5 PIC S9(13) COMP-3 1895 VALUE ZEROES. 1896 09 TEST-D0012-B49-B45 PIC S9(2)V9(13) COMP-3 1897 VALUE ZEROES. 1898 09 TEST-C001-B28-C011-B32 1899 PIC X VALUE SPACES. 1900 09 TEST-B12-C037-A12-C023 1901 PIC X(30) VALUE SPACES. 1902 09 TEST-B12-B10-A5 PIC X(6) VALUE SPACES. 1903 09 TEST-B73-C011-A1 PIC X(2) VALUE \'D\'. 1904 06 TEST-B23-B12-C002. 1905 09 TEST-D0025-C037-B38-B42 1906 PIC S9(2) COMP-3 1907 VALUE ZEROES. 1908 09 TEST-E00010-C037-A12-A5 1909 PIC S9(13) COMP-3 1910 VALUE ZEROES. 1911 09 TEST-C037-A12-B58-B42 1912 PIC S9(6) COMP-3 1913 VALUE ZEROES. 1914 09 TEST-C034-C065-B28-A1 1915 PIC X(6) VALUE SPACES. 1916 09 TEST-C034-D0029-B28-A1 1917 PIC X(5) VALUE SPACES. 1918 09 TEST-C065-B28-B09-A1 1919 PIC X VALUE SPACES. 1920 09 TEST-D0010-A5 PIC X(8) VALUE SPACES. 1921 09 TEST-C065-A11-C025-A1 1922 PIC X VALUE SPACES. 1923 09 TEST-A13-B72-B23-B32 PIC X 1924 OCCURS 2 TIMES 1925 VALUE SPACES. 1926 09 TEST-C022-C060-B35-B28. 1927 12 TEST-C043-C060-B35-B58 1928 PIC S9(2) COMP-3 1929 OCCURS 5 TIMES 1930 VALUE ZEROES. 1931 12 TEST-C043-C060-B35-B15 1932 PIC X(40) 1933 OCCURS 5 TIMES 1934 VALUE SPACES. 1935 12 TEST-C043-C060-B35-B16 1936 PIC X(30) 1937 OCCURS 5 TIMES 1938 VALUE SPACES. 1939 12 TEST-C043-C060-B35-B17 1940 PIC X(25) 1941 OCCURS 5 TIMES 1942 VALUE SPACES. 1943 12 TEST-C043-C060-B35-B18 1944 PIC X(25) 1945 OCCURS 5 TIMES 1946 VALUE SPACES. 1947 12 TEST-C043-C060-B35-B19 1948 PIC X(20) 1949 OCCURS 5 TIMES 1950 VALUE SPACES. 1951 09 TEST-C022-C006-C075-B28. 1952 12 TEST-C006-C075-B58 1953 PIC S9(8) COMP-3 1954 VALUE ZEROES. 1955 12 TEST-C006-C075-C023-B46 1956 PIC X(40) VALUE SPACES. 1957 12 TEST-C006-C075-C023-B69 1958 PIC X(30) VALUE SPACES. 1959 12 TEST-C006-C075-C023-D0036 1960 PIC X(25) VALUE SPACES. 1961 12 TEST-C006-C075-C023-C032 1962 PIC X(25) VALUE SPACES. 1963 12 TEST-C006-C075-C023-C029 1964 PIC X(20) VALUE SPACES. 1965 09 TEST-B67-C023 PIC X(45) VALUE SPACES. 1966 09 TEST-C062-B51-A1-C023 1967 PIC X(30) VALUE SPACES. 1968 09 TEST-A14-D0007-C023 PIC X(25) VALUE SPACES. 1969 09 TEST-D0020-C073 PIC X 1970 OCCURS 2 TIMES 1971 VALUE SPACES. 1972 09 TEST-C009-B20-B29-A1 1973 PIC X VALUE SPACES. 1974 09 TEST-B25-A1 PIC X(7) VALUE SPACES. 1975 09 TEST-B71-A9 PIC X(15) VALUE SPACES. 1976 09 TEST-D0020-C023-B28 1977 OCCURS 2 TIMES. 1978 12 TEST-D0020-C023-B46 1979 PIC X(55) VALUE SPACES. 1980 12 TEST-D0020-C023-B69 1981 PIC X(110) VALUE SPACES. 1982 09 TEST-D0008-C009-B02-B42 1983 PIC X(23) VALUE SPACES. 1984 09 TEST-D0008-C009-C023 1985 PIC X(25) VALUE SPACES. 1986 03 TEST-B29-B23-C017-B28. 1987 06 TEST-B29-B23-C017-C002. 1988 09 TEST-C037-A5 PIC S9(13) COMP-3 1989 VALUE ZEROES. 1990 09 TEST-C037-B14-A12-B28. 1991 12 TEST-C036-B07-C003 1992 PIC S9(13) COMP-3 1993 VALUE ZEROES. 1994 12 TEST-B07-C003-C076 1995 PIC X(2) VALUE SPACES. 1996 12 TEST-B14-A1 PIC X(2) VALUE SPACES. 1997 09 TEST-D0026-C076 PIC X(2) VALUE SPACES. 1998 09 TEST-C006-C050 PIC X VALUE SPACES. 1999 09 TEST-C049-C018-B28-A1 2000 PIC X(4) VALUE SPACES. 2001 09 TEST-C007-D0011-A1 PIC S9(2) COMP-3 2002 VALUE 0. 2003 09 TEST-B63-D0011-A5 PIC S9(4) COMP 2004 VALUE ZEROES. 2005 09 TEST-C006-E00011 PIC S9(1) COMP-3 2006 VALUE ZEROES. 2007 09 TEST-B14-C070-A1 PIC X VALUE SPACES. 2008 09 TEST-C004-A1 PIC X VALUE SPACES. 2009 09 TEST-C057-B47-A8 PIC X(21) VALUE SPACES. 2010 09 TEST-C043-C018-B42 PIC X(16) VALUE SPACES. 2011 09 TEST-C014-C001-B42 PIC X(8) VALUE SPACES.' 2012 OUTPUT - $'<METHOD>flat</> 2013<FLAT> 2014 <NAME>TEST_B29_B23_B55</> 2015 <DESCRIPTION>converted by cpy2dss from copybook standard input</> 2016 <IDENT>@(#)$Id: TEST_B29_B23_B55 (AT&T Research) 2005-07-17 $</> 2017 <LIBRARY>num_t</> 2018 <FIELD> 2019 <NAME>TEST_B74_B55_B36</> 2020 <TYPE>number</> 2021 <PHYSICAL> 2022 <TYPE>be_t</> 2023 <WIDTH>2</> 2024 </> 2025 </> 2026 <FIELD> 2027 <NAME>TEST_B23_C069_B33</> 2028 <FIELD> 2029 <NAME>TEST_C068_B23_C069_C002</> 2030 <FIELD> 2031 <NAME>TEST_D0018_B37_B08</> 2032 <FIELD> 2033 <NAME>TEST_C007_A4</> 2034 <TYPE>string</> 2035 <PHYSICAL> 2036 <CODESET>ebcdic-m</> 2037 <WIDTH>10</> 2038 </> 2039 </> 2040 <FIELD> 2041 <NAME>TEST_C037_A5</> 2042 <TYPE>number</> 2043 <PHYSICAL> 2044 <TYPE>bcd_t</> 2045 <WIDTH>7</> 2046 </> 2047 </> 2048 </> 2049 <FIELD> 2050 <NAME>TEST_C037_B14_A12_B28</> 2051 <FIELD> 2052 <NAME>TEST_C036_B07_C003</> 2053 <TYPE>number</> 2054 <PHYSICAL> 2055 <TYPE>bcd_t</> 2056 <WIDTH>7</> 2057 </> 2058 </> 2059 <FIELD> 2060 <NAME>TEST_B07_C003_C076</> 2061 <TYPE>string</> 2062 <PHYSICAL> 2063 <CODESET>ebcdic-m</> 2064 <WIDTH>2</> 2065 </> 2066 </> 2067 <FIELD> 2068 <NAME>TEST_B14_A1</> 2069 <TYPE>string</> 2070 <PHYSICAL> 2071 <CODESET>ebcdic-m</> 2072 <WIDTH>2</> 2073 </> 2074 </> 2075 </> 2076 <FIELD> 2077 <NAME>TEST_B37_B23_B55_C076</> 2078 <TYPE>string</> 2079 <PHYSICAL> 2080 <CODESET>ebcdic-m</> 2081 <WIDTH>1</> 2082 </> 2083 </> 2084 <FIELD> 2085 <NAME>TEST_A13_B59_C069_B42</> 2086 <TYPE>number</> 2087 <PHYSICAL> 2088 <TYPE>bcd_t</> 2089 <WIDTH>2</> 2090 </> 2091 </> 2092 <FIELD> 2093 <NAME>TEST_B56_C003_A5</> 2094 <TYPE>string</> 2095 <PHYSICAL> 2096 <CODESET>ebcdic-m</> 2097 <WIDTH>38</> 2098 </> 2099 </> 2100 <FIELD> 2101 <NAME>TEST_B12_A13_B59_C040</> 2102 <TYPE>number</> 2103 <PHYSICAL> 2104 <TYPE>be_t</> 2105 <WIDTH>2</> 2106 </> 2107 </> 2108 <FIELD> 2109 <NAME>TEST_D0023_B23_B55_C076</> 2110 <TYPE>string</> 2111 <PHYSICAL> 2112 <CODESET>ebcdic-m</> 2113 <WIDTH>1</> 2114 </> 2115 </> 2116 <FIELD> 2117 <NAME>TEST_C065_B28_B58_A1</> 2118 <TYPE>number</> 2119 <PHYSICAL> 2120 <TYPE>bcd_t</> 2121 <WIDTH>3</> 2122 </> 2123 </> 2124 <FIELD> 2125 <NAME>TEST_B61_B01_C037_B28</> 2126 <FIELD> 2127 <NAME>TEST_B27_B61_B01_C037</> 2128 <TYPE>string</> 2129 <PHYSICAL> 2130 <CODESET>ebcdic-m</> 2131 <WIDTH>13</> 2132 </> 2133 </> 2134 <FIELD> 2135 <NAME>TEST_B57_B61_B01_C037</> 2136 <TYPE>string</> 2137 <PHYSICAL> 2138 <CODESET>ebcdic-m</> 2139 <WIDTH>13</> 2140 </> 2141 </> 2142 <FIELD> 2143 <NAME>TEST_C078_C055_B26</> 2144 <TYPE>string</> 2145 <PHYSICAL> 2146 <CODESET>ebcdic-m</> 2147 <WIDTH>1</> 2148 </> 2149 </> 2150 </> 2151 <FIELD> 2152 <NAME>TEST_B23_C058_C069_B28</> 2153 <FIELD> 2154 <NAME>TEST_C058_D0024_C069_B28</> 2155 <FIELD> 2156 <NAME>TEST_C037_D0024_B33</> 2157 <TYPE>string</> 2158 <PHYSICAL> 2159 <CODESET>ebcdic-m</> 2160 <WIDTH>80</> 2161 </> 2162 </> 2163 </> 2164 <FIELD> 2165 <NAME>TEST_C058_C069_B28</> 2166 <FIELD> 2167 <NAME>TEST_C036_C069_B28</> 2168 <ARRAY> 2169 <SIZE>5</> 2170 </> 2171 <FIELD> 2172 <NAME>FILLER</> 2173 <TYPE>string</> 2174 <PHYSICAL> 2175 <CODESET>ebcdic-m</> 2176 <WIDTH>50</> 2177 </> 2178 </> 2179 </> 2180 </> 2181 </> 2182 <FIELD> 2183 <NAME>TEST_C065_A7_B28_B58_A1</> 2184 <TYPE>number</> 2185 <PHYSICAL> 2186 <TYPE>bcd_t</> 2187 <WIDTH>3</> 2188 </> 2189 </> 2190 <FIELD> 2191 <NAME>TEST_B23_D0028_C069_B28</> 2192 <FIELD> 2193 <NAME>TEST_D0030_C069_B28</> 2194 <FIELD> 2195 <NAME>TEST_C036_C069_B28_2</> 2196 <ARRAY> 2197 <SIZE>5</> 2198 </> 2199 <FIELD> 2200 <NAME>FILLER_2</> 2201 <TYPE>string</> 2202 <PHYSICAL> 2203 <CODESET>ebcdic-m</> 2204 <WIDTH>50</> 2205 </> 2206 </> 2207 </> 2208 </> 2209 </> 2210 </> 2211 <FIELD> 2212 <NAME>TEST_B23_B59_B58_A3</> 2213 <TYPE>number</> 2214 <PHYSICAL> 2215 <TYPE>bcd_t</> 2216 <WIDTH>2</> 2217 </> 2218 </> 2219 </> 2220 <FIELD> 2221 <NAME>TEST_B23_B12_C002_B28</> 2222 <FIELD> 2223 <NAME>TEST_B31_B12_C002</> 2224 <FIELD> 2225 <NAME>TEST_B06_A5</> 2226 <FIELD> 2227 <NAME>TEST_C042_B06_A5</> 2228 <FIELD> 2229 <NAME>TEST_C028_E00006_A1</> 2230 <TYPE>string</> 2231 <PHYSICAL> 2232 <CODESET>ebcdic-m</> 2233 <WIDTH>8</> 2234 </> 2235 </> 2236 <FIELD> 2237 <NAME>TEST_B55_B58_B42</> 2238 <TYPE>unsigned number</> 2239 <PHYSICAL> 2240 <CODESET>ebcdic-m</> 2241 <FILL>0</> 2242 <WIDTH>8</> 2243 </> 2244 </> 2245 <FIELD> 2246 <NAME>TEST_B29_B58_B42</> 2247 <TYPE>number</> 2248 <PHYSICAL> 2249 <TYPE>bcd_t</> 2250 <WIDTH>2</> 2251 </> 2252 </> 2253 </> 2254 <FIELD> 2255 <NAME>TEST_B06_B58_B42</> 2256 <TYPE>number</> 2257 <PHYSICAL> 2258 <TYPE>bcd_t</> 2259 <WIDTH>3</> 2260 </> 2261 </> 2262 <FIELD> 2263 <NAME>TEST_C071_B06_A5</> 2264 <FIELD> 2265 <NAME>TEST_C067_A4</> 2266 <TYPE>string</> 2267 <PHYSICAL> 2268 <CODESET>ebcdic-m</> 2269 <WIDTH>10</> 2270 </> 2271 </> 2272 <FIELD> 2273 <NAME>TEST_C067_B58_B42</> 2274 <TYPE>number</> 2275 <PHYSICAL> 2276 <TYPE>bcd_t</> 2277 <WIDTH>7</> 2278 </> 2279 </> 2280 <FIELD> 2281 <NAME>TEST_B60_B64</> 2282 <TYPE>string</> 2283 <PHYSICAL> 2284 <CODESET>ebcdic-m</> 2285 <WIDTH>3</> 2286 </> 2287 </> 2288 </> 2289 </> 2290 <FIELD> 2291 <NAME>TEST_B06_C076</> 2292 <TYPE>string</> 2293 <PHYSICAL> 2294 <CODESET>ebcdic-m</> 2295 <WIDTH>3</> 2296 </> 2297 </> 2298 <FIELD> 2299 <NAME>TEST_D0026_C076</> 2300 <TYPE>string</> 2301 <PHYSICAL> 2302 <CODESET>ebcdic-m</> 2303 <WIDTH>2</> 2304 </> 2305 </> 2306 <FIELD> 2307 <NAME>TEST_C006_C075_A1</> 2308 <TYPE>number</> 2309 <PHYSICAL> 2310 <TYPE>bcd_t</> 2311 <WIDTH>5</> 2312 </> 2313 </> 2314 <FIELD> 2315 <NAME>TEST_A2_B32</> 2316 <TYPE>string</> 2317 <PHYSICAL> 2318 <CODESET>ebcdic-m</> 2319 <WIDTH>1</> 2320 </> 2321 </> 2322 <FIELD> 2323 <NAME>TEST_A6_B55_C076_A1</> 2324 <TYPE>string</> 2325 <PHYSICAL> 2326 <CODESET>ebcdic-m</> 2327 <WIDTH>2</> 2328 </> 2329 </> 2330 <FIELD> 2331 <NAME>TEST_B39_A16_C065_B32</> 2332 <TYPE>string</> 2333 <PHYSICAL> 2334 <CODESET>ebcdic-m</> 2335 <WIDTH>1</> 2336 </> 2337 </> 2338 <FIELD> 2339 <NAME>TEST_D0005_A10_C066</> 2340 <TYPE>string</> 2341 <PHYSICAL> 2342 <CODESET>ebcdic-m</> 2343 <WIDTH>6</> 2344 </> 2345 </> 2346 <FIELD> 2347 <NAME>TEST_C007_B13_B11_B32</> 2348 <TYPE>string</> 2349 <PHYSICAL> 2350 <CODESET>ebcdic-m</> 2351 <WIDTH>1</> 2352 </> 2353 </> 2354 <FIELD> 2355 <NAME>TEST_B06_C018_C041_E00003</> 2356 <FIELD> 2357 <NAME>TEST_C006_C066_A5</> 2358 <FIELD> 2359 <NAME>TEST_B42_B28</> 2360 <FIELD> 2361 <NAME>TEST_C052_C066_C076_A1</> 2362 <TYPE>string</> 2363 <PHYSICAL> 2364 <CODESET>ebcdic-m</> 2365 <WIDTH>1</> 2366 </> 2367 </> 2368 <FIELD> 2369 <NAME>TEST_C036_C066_B42_B28</> 2370 <FIELD> 2371 <NAME>TEST_C036_C066_B42</> 2372 <TYPE>string</> 2373 <PHYSICAL> 2374 <CODESET>ebcdic-m</> 2375 <WIDTH>35</> 2376 </> 2377 </> 2378 </> 2379 <FIELD> 2380 <NAME>TEST_B41_C066_B42_B28</> 2381 <UNION>TEST_C036_C066_B42_B28</> 2382 <FIELD> 2383 <NAME>TEST_B43</> 2384 <TYPE>string</> 2385 <PHYSICAL> 2386 <CODESET>ebcdic-m</> 2387 <WIDTH>3</> 2388 </> 2389 </> 2390 <FIELD> 2391 <NAME>TEST_B50</> 2392 <TYPE>string</> 2393 <PHYSICAL> 2394 <CODESET>ebcdic-m</> 2395 <WIDTH>3</> 2396 </> 2397 </> 2398 <FIELD> 2399 <NAME>TEST_C046_B42</> 2400 <TYPE>string</> 2401 <PHYSICAL> 2402 <CODESET>ebcdic-m</> 2403 <WIDTH>4</> 2404 </> 2405 </> 2406 <FIELD> 2407 <NAME>FILLER_3</> 2408 <TYPE>string</> 2409 <PHYSICAL> 2410 <CODESET>ebcdic-m</> 2411 <WIDTH>25</> 2412 </> 2413 </> 2414 </> 2415 <FIELD> 2416 <NAME>TEST_D0017_C066_B42_B28</> 2417 <UNION>TEST_C036_C066_B42_B28</> 2418 <FIELD> 2419 <NAME>TEST_D0017_B42_B36</> 2420 <TYPE>string</> 2421 <PHYSICAL> 2422 <CODESET>ebcdic-m</> 2423 <WIDTH>2</> 2424 </> 2425 </> 2426 <FIELD> 2427 <NAME>TEST_D0017_B42_B28</> 2428 <FIELD> 2429 <NAME>TEST_D0017_B42_B52</> 2430 <TYPE>string</> 2431 <PHYSICAL> 2432 <CODESET>ebcdic-m</> 2433 <WIDTH>10</> 2434 </> 2435 </> 2436 <FIELD> 2437 <NAME>TEST_D0017_B42_B53</> 2438 <TYPE>string</> 2439 <PHYSICAL> 2440 <CODESET>ebcdic-m</> 2441 <WIDTH>6</> 2442 </> 2443 </> 2444 </> 2445 <FIELD> 2446 <NAME>FILLER_4</> 2447 <TYPE>string</> 2448 <PHYSICAL> 2449 <CODESET>ebcdic-m</> 2450 <WIDTH>17</> 2451 </> 2452 </> 2453 </> 2454 <FIELD> 2455 <NAME>TEST_B43_B50_B42_B28</> 2456 <UNION>TEST_C036_C066_B42_B28</> 2457 <FIELD> 2458 <NAME>TEST_C054_B43_B50</> 2459 <TYPE>string</> 2460 <PHYSICAL> 2461 <CODESET>ebcdic-m</> 2462 <WIDTH>6</> 2463 </> 2464 </> 2465 <FIELD> 2466 <NAME>FILLER_5</> 2467 <TYPE>string</> 2468 <PHYSICAL> 2469 <CODESET>ebcdic-m</> 2470 <WIDTH>29</> 2471 </> 2472 </> 2473 </> 2474 </> 2475 <FIELD> 2476 <NAME>TEST_C006_C066_B60_B42_B28</> 2477 <UNION>TEST_B42_B28</> 2478 <FIELD> 2479 <NAME>TEST_C006_C052_C066_B70</> 2480 <TYPE>string</> 2481 <PHYSICAL> 2482 <CODESET>ebcdic-m</> 2483 <WIDTH>1</> 2484 </> 2485 </> 2486 <FIELD> 2487 <NAME>TEST_C006_C066_B42_B28</> 2488 <FIELD> 2489 <NAME>TEST_C006_B43</> 2490 <TYPE>string</> 2491 <PHYSICAL> 2492 <CODESET>ebcdic-m</> 2493 <WIDTH>3</> 2494 </> 2495 </> 2496 <FIELD> 2497 <NAME>TEST_C006_B50</> 2498 <TYPE>string</> 2499 <PHYSICAL> 2500 <CODESET>ebcdic-m</> 2501 <WIDTH>3</> 2502 </> 2503 </> 2504 <FIELD> 2505 <NAME>TEST_C006_C046_B42</> 2506 <TYPE>string</> 2507 <PHYSICAL> 2508 <CODESET>ebcdic-m</> 2509 <WIDTH>4</> 2510 </> 2511 </> 2512 <FIELD> 2513 <NAME>FILLER_6</> 2514 <TYPE>string</> 2515 <PHYSICAL> 2516 <CODESET>ebcdic-m</> 2517 <WIDTH>25</> 2518 </> 2519 </> 2520 </> 2521 <FIELD> 2522 <NAME>TEST_C006_B41_B42_B28</> 2523 <UNION>TEST_C006_C066_B42_B28</> 2524 <FIELD> 2525 <NAME>TEST_C006_B42_B41</> 2526 <TYPE>string</> 2527 <PHYSICAL> 2528 <CODESET>ebcdic-m</> 2529 <WIDTH>10</> 2530 </> 2531 </> 2532 <FIELD> 2533 <NAME>FILLER_7</> 2534 <TYPE>string</> 2535 <PHYSICAL> 2536 <CODESET>ebcdic-m</> 2537 <WIDTH>25</> 2538 </> 2539 </> 2540 </> 2541 <FIELD> 2542 <NAME>TEST_C006_D0017_C066_B42_B28</> 2543 <UNION>TEST_C006_C066_B42_B28</> 2544 <FIELD> 2545 <NAME>TEST_D0017_B42_B36_2</> 2546 <TYPE>string</> 2547 <PHYSICAL> 2548 <CODESET>ebcdic-m</> 2549 <WIDTH>2</> 2550 </> 2551 </> 2552 <FIELD> 2553 <NAME>TEST_C006_D0017_B42_B28</> 2554 <FIELD> 2555 <NAME>FILLER_8</> 2556 <TYPE>string</> 2557 <PHYSICAL> 2558 <CODESET>ebcdic-m</> 2559 <WIDTH>16</> 2560 </> 2561 </> 2562 </> 2563 <FIELD> 2564 <NAME>FILLER_9</> 2565 <TYPE>string</> 2566 <PHYSICAL> 2567 <CODESET>ebcdic-m</> 2568 <WIDTH>17</> 2569 </> 2570 </> 2571 </> 2572 <FIELD> 2573 <NAME>TEST_C006_D0022_B42_B28</> 2574 <UNION>TEST_C006_C066_B42_B28</> 2575 <FIELD> 2576 <NAME>TEST_C006_C066_D0004_A5</> 2577 <TYPE>string</> 2578 <PHYSICAL> 2579 <CODESET>ebcdic-m</> 2580 <WIDTH>30</> 2581 </> 2582 </> 2583 <FIELD> 2584 <NAME>TEST_D0004_C048_A1</> 2585 <TYPE>string</> 2586 <PHYSICAL> 2587 <CODESET>ebcdic-m</> 2588 <WIDTH>4</> 2589 </> 2590 </> 2591 </> 2592 </> 2593 </> 2594 <FIELD> 2595 <NAME>TEST_C071_C037_A12_A5</> 2596 <TYPE>number</> 2597 <PHYSICAL> 2598 <TYPE>bcd_t</> 2599 <WIDTH>7</> 2600 </> 2601 </> 2602 <FIELD> 2603 <NAME>TEST_C037_B14_A12_A5</> 2604 <TYPE>number</> 2605 <PHYSICAL> 2606 <TYPE>bcd_t</> 2607 <WIDTH>7</> 2608 </> 2609 </> 2610 <FIELD> 2611 <NAME>TEST_C066_C003_A5</> 2612 <TYPE>number</> 2613 <PHYSICAL> 2614 <TYPE>bcd_t</> 2615 <WIDTH>7</> 2616 </> 2617 </> 2618 <FIELD> 2619 <NAME>TEST_C037_A12_A5</> 2620 <TYPE>number</> 2621 <PHYSICAL> 2622 <TYPE>bcd_t</> 2623 <WIDTH>7</> 2624 </> 2625 </> 2626 <FIELD> 2627 <NAME>TEST_D0027_C003</> 2628 <TYPE>string</> 2629 <PHYSICAL> 2630 <CODESET>ebcdic-m</> 2631 <WIDTH>4</> 2632 </> 2633 </> 2634 <FIELD> 2635 <NAME>TEST_B63_C001_C039</> 2636 <TYPE>unsigned number</> 2637 <PHYSICAL> 2638 <CODESET>ebcdic-m</> 2639 <FILL>0</> 2640 <WIDTH>13</> 2641 </> 2642 </> 2643 <FIELD> 2644 <NAME>TEST_B34_A1</> 2645 <TYPE>string</> 2646 <PHYSICAL> 2647 <CODESET>ebcdic-m</> 2648 <WIDTH>2</> 2649 </> 2650 </> 2651 <FIELD> 2652 <NAME>TEST_D0020_C073_A1</> 2653 <ARRAY> 2654 <SIZE>2</> 2655 </> 2656 <TYPE>string</> 2657 <PHYSICAL> 2658 <CODESET>ebcdic-m</> 2659 <WIDTH>2</> 2660 </> 2661 </> 2662 </> 2663 <FIELD> 2664 <NAME>TEST_C018_C003_A5</> 2665 <TYPE>number</> 2666 <PHYSICAL> 2667 <TYPE>bcd_t</> 2668 <WIDTH>5</> 2669 </> 2670 </> 2671 <FIELD> 2672 <NAME>TEST_B06_C060_D0033</> 2673 <FIELD> 2674 <NAME>TEST_C060_C053_A1</> 2675 <TYPE>string</> 2676 <PHYSICAL> 2677 <CODESET>ebcdic-m</> 2678 <WIDTH>8</> 2679 </> 2680 </> 2681 <FIELD> 2682 <NAME>TEST_C060_COMPNT_A1</> 2683 <TYPE>string</> 2684 <PHYSICAL> 2685 <CODESET>ebcdic-m</> 2686 <WIDTH>8</> 2687 </> 2688 </> 2689 <FIELD> 2690 <NAME>TEST_C043_C060_C041_B66</> 2691 <FIELD> 2692 <NAME>TEST_C043_C060_C041_B28</> 2693 <ARRAY> 2694 <SIZE>5</> 2695 </> 2696 <FIELD> 2697 <NAME>TEST_C043_C060_C076_A1</> 2698 <TYPE>string</> 2699 <PHYSICAL> 2700 <CODESET>ebcdic-m</> 2701 <WIDTH>1</> 2702 </> 2703 </> 2704 <FIELD> 2705 <NAME>TEST_C043_C060_B35_A1</> 2706 <TYPE>string</> 2707 <PHYSICAL> 2708 <CODESET>ebcdic-m</> 2709 <WIDTH>4</> 2710 </> 2711 </> 2712 </> 2713 </> 2714 <FIELD> 2715 <NAME>TEST_C060_C006_A5</> 2716 <TYPE>string</> 2717 <PHYSICAL> 2718 <CODESET>ebcdic-m</> 2719 <WIDTH>8</> 2720 </> 2721 </> 2722 <FIELD> 2723 <NAME>TEST_C006_C026_A1</> 2724 <TYPE>string</> 2725 <PHYSICAL> 2726 <CODESET>ebcdic-m</> 2727 <WIDTH>8</> 2728 </> 2729 </> 2730 <FIELD> 2731 <NAME>TEST_C006_C026_B09_A1</> 2732 <TYPE>string</> 2733 <PHYSICAL> 2734 <CODESET>ebcdic-m</> 2735 <WIDTH>1</> 2736 </> 2737 </> 2738 <FIELD> 2739 <NAME>TEST_B48_E00006</> 2740 <TYPE>number</> 2741 <PHYSICAL> 2742 <TYPE>bcd_t</> 2743 <WIDTH>2</> 2744 </> 2745 </> 2746 </> 2747 <FIELD> 2748 <NAME>TEST_C062_D0033_B75_B42</> 2749 <TYPE>number</> 2750 <PHYSICAL> 2751 <TYPE>bcd_t</> 2752 <WIDTH>2</> 2753 </> 2754 </> 2755 <FIELD> 2756 <NAME>TEST_C041_C051_B28</> 2757 <FIELD> 2758 <NAME>TEST_C036_D0013</> 2759 <ARRAY> 2760 <SIZE>6</> 2761 </> 2762 <TYPE>number</> 2763 <PHYSICAL> 2764 <TYPE>bcd_t</> 2765 <WIDTH>9</> 2766 </> 2767 </> 2768 <FIELD> 2769 <NAME>TEST_C036_B54</> 2770 <ARRAY> 2771 <SIZE>5</> 2772 </> 2773 <TYPE>number</> 2774 <PHYSICAL> 2775 <TYPE>bcd_t</> 2776 <FIXEDPOINT>2</> 2777 <WIDTH>9</> 2778 </> 2779 </> 2780 <FIELD> 2781 <NAME>TEST_C036_B03</> 2782 <ARRAY> 2783 <SIZE>7</> 2784 </> 2785 <TYPE>number</> 2786 <PHYSICAL> 2787 <TYPE>bcd_t</> 2788 <FIXEDPOINT>7</> 2789 <WIDTH>8</> 2790 </> 2791 </> 2792 </> 2793 <FIELD> 2794 <NAME>TEST_B31_C020_B28</> 2795 <FIELD> 2796 <NAME>TEST_D0015_A16_A4</> 2797 <TYPE>string</> 2798 <PHYSICAL> 2799 <CODESET>ebcdic-m</> 2800 <WIDTH>10</> 2801 </> 2802 </> 2803 <FIELD> 2804 <NAME>TEST_B06_B62_A4</> 2805 <TYPE>string</> 2806 <PHYSICAL> 2807 <CODESET>ebcdic-m</> 2808 <WIDTH>10</> 2809 </> 2810 </> 2811 <FIELD> 2812 <NAME>TEST_B06_B21_A4</> 2813 <TYPE>string</> 2814 <PHYSICAL> 2815 <CODESET>ebcdic-m</> 2816 <WIDTH>10</> 2817 </> 2818 </> 2819 </> 2820 <FIELD> 2821 <NAME>TEST_B71_A1</> 2822 <TYPE>string</> 2823 <PHYSICAL> 2824 <CODESET>ebcdic-m</> 2825 <WIDTH>5</> 2826 </> 2827 </> 2828 <FIELD> 2829 <NAME>TEST_B12_E00002_C019</> 2830 <FIELD> 2831 <NAME>TEST_E00009_A14_D0007_A1</> 2832 <TYPE>string</> 2833 <PHYSICAL> 2834 <CODESET>ebcdic-m</> 2835 <WIDTH>2</> 2836 </> 2837 </> 2838 <FIELD> 2839 <NAME>TEST_D0034_A14_D0007_A1</> 2840 <TYPE>string</> 2841 <PHYSICAL> 2842 <CODESET>ebcdic-m</> 2843 <WIDTH>2</> 2844 </> 2845 </> 2846 <FIELD> 2847 <NAME>TEST_E00009_C045</> 2848 <TYPE>string</> 2849 <PHYSICAL> 2850 <CODESET>ebcdic-m</> 2851 <WIDTH>3</> 2852 </> 2853 </> 2854 <FIELD> 2855 <NAME>TEST_D0034_C045</> 2856 <TYPE>string</> 2857 <PHYSICAL> 2858 <CODESET>ebcdic-m</> 2859 <WIDTH>3</> 2860 </> 2861 </> 2862 <FIELD> 2863 <NAME>TEST_B08_A5</> 2864 <TYPE>string</> 2865 <PHYSICAL> 2866 <CODESET>ebcdic-m</> 2867 <WIDTH>4</> 2868 </> 2869 </> 2870 </> 2871 <FIELD> 2872 <NAME>TEST_C061_B32</> 2873 <TYPE>string</> 2874 <PHYSICAL> 2875 <CODESET>ebcdic-m</> 2876 <WIDTH>1</> 2877 </> 2878 </> 2879 <FIELD> 2880 <NAME>TEST_E00007_D0005_A10_C066</> 2881 <TYPE>string</> 2882 <PHYSICAL> 2883 <CODESET>ebcdic-m</> 2884 <WIDTH>5</> 2885 </> 2886 </> 2887 <FIELD> 2888 <NAME>TEST_E00008_C011</> 2889 <TYPE>number</> 2890 <PHYSICAL> 2891 <TYPE>bcd_t</> 2892 <FIXEDPOINT>2</> 2893 <WIDTH>5</> 2894 </> 2895 </> 2896 <FIELD> 2897 <NAME>TEST_C044_D0019_A1</> 2898 <TYPE>string</> 2899 <PHYSICAL> 2900 <CODESET>ebcdic-m</> 2901 <WIDTH>1</> 2902 </> 2903 </> 2904 <FIELD> 2905 <NAME>TEST_D0012_C076</> 2906 <TYPE>string</> 2907 <PHYSICAL> 2908 <CODESET>ebcdic-m</> 2909 <WIDTH>1</> 2910 </> 2911 </> 2912 <FIELD> 2913 <NAME>TEST_D0012_C027_B32</> 2914 <TYPE>string</> 2915 <PHYSICAL> 2916 <CODESET>ebcdic-m</> 2917 <WIDTH>1</> 2918 </> 2919 </> 2920 <FIELD> 2921 <NAME>TEST_C010_D0013_B54_C002</> 2922 <FIELD> 2923 <NAME>TEST_C009_D0013_C064</> 2924 <TYPE>number</> 2925 <PHYSICAL> 2926 <TYPE>bcd_t</> 2927 <FIXEDPOINT>5</> 2928 <WIDTH>8</> 2929 </> 2930 </> 2931 <FIELD> 2932 <NAME>TEST_F000003_D0013_C064</> 2933 <TYPE>number</> 2934 <PHYSICAL> 2935 <TYPE>bcd_t</> 2936 <FIXEDPOINT>5</> 2937 <WIDTH>8</> 2938 </> 2939 </> 2940 <FIELD> 2941 <NAME>TEST_D0014_B54</> 2942 <TYPE>number</> 2943 <PHYSICAL> 2944 <TYPE>bcd_t</> 2945 <FIXEDPOINT>3</> 2946 <WIDTH>6</> 2947 </> 2948 </> 2949 <FIELD> 2950 <NAME>TEST_C038_C009_C005_B54</> 2951 <TYPE>number</> 2952 <PHYSICAL> 2953 <TYPE>bcd_t</> 2954 <FIXEDPOINT>2</> 2955 <WIDTH>5</> 2956 </> 2957 </> 2958 </> 2959 <FIELD> 2960 <NAME>TEST_E00004_B03</> 2961 <TYPE>number</> 2962 <PHYSICAL> 2963 <TYPE>bcd_t</> 2964 <FIXEDPOINT>7</> 2965 <WIDTH>8</> 2966 </> 2967 </> 2968 <FIELD> 2969 <NAME>TEST_C072_C011_B32</> 2970 <TYPE>string</> 2971 <PHYSICAL> 2972 <CODESET>ebcdic-m</> 2973 <WIDTH>1</> 2974 </> 2975 </> 2976 <FIELD> 2977 <NAME>TEST_E00005_C056_B28</> 2978 <FIELD> 2979 <NAME>TEST_E00005_C024</> 2980 <TYPE>number</> 2981 <PHYSICAL> 2982 <TYPE>bcd_t</> 2983 <WIDTH>3</> 2984 </> 2985 </> 2986 <FIELD> 2987 <NAME>TEST_C056_B42</> 2988 <TYPE>string</> 2989 <PHYSICAL> 2990 <CODESET>ebcdic-m</> 2991 <WIDTH>9</> 2992 </> 2993 </> 2994 </> 2995 <FIELD> 2996 <NAME>TEST_B31_B65_B28</> 2997 <FIELD> 2998 <NAME>TEST_A15_B65_B09_A1</> 2999 <TYPE>string</> 3000 <PHYSICAL> 3001 <CODESET>ebcdic-m</> 3002 <WIDTH>2</> 3003 </> 3004 </> 3005 <FIELD> 3006 <NAME>TEST_D0016_E00012</> 3007 <FIELD> 3008 <NAME>TEST_B65_D0001_B32</> 3009 <TYPE>string</> 3010 <PHYSICAL> 3011 <CODESET>ebcdic-m</> 3012 <WIDTH>1</> 3013 </> 3014 </> 3015 <FIELD> 3016 <NAME>TEST_B65_D0019_A1_B28</> 3017 <FIELD> 3018 <NAME>TEST_B41_A1</> 3019 <TYPE>string</> 3020 <PHYSICAL> 3021 <CODESET>ebcdic-m</> 3022 <WIDTH>2</> 3023 </> 3024 </> 3025 <FIELD> 3026 <NAME>TEST_D0032_A1</> 3027 <TYPE>string</> 3028 <PHYSICAL> 3029 <CODESET>ebcdic-m</> 3030 <WIDTH>2</> 3031 </> 3032 </> 3033 <FIELD> 3034 <NAME>TEST_C015_A1</> 3035 <TYPE>string</> 3036 <PHYSICAL> 3037 <CODESET>ebcdic-m</> 3038 <WIDTH>3</> 3039 </> 3040 </> 3041 <FIELD> 3042 <NAME>TEST_C012_A1</> 3043 <TYPE>string</> 3044 <PHYSICAL> 3045 <CODESET>ebcdic-m</> 3046 <WIDTH>4</> 3047 </> 3048 </> 3049 <FIELD> 3050 <NAME>TEST_F000005_A1</> 3051 <TYPE>string</> 3052 <PHYSICAL> 3053 <CODESET>ebcdic-m</> 3054 <WIDTH>2</> 3055 </> 3056 </> 3057 </> 3058 <FIELD> 3059 <NAME>TEST_B44_B32</> 3060 <TYPE>string</> 3061 <PHYSICAL> 3062 <CODESET>ebcdic-m</> 3063 <WIDTH>1</> 3064 </> 3065 </> 3066 <FIELD> 3067 <NAME>TEST_B65_B22</> 3068 <TYPE>string</> 3069 <PHYSICAL> 3070 <CODESET>ebcdic-m</> 3071 <WIDTH>5</> 3072 </> 3073 </> 3074 <FIELD> 3075 <NAME>TEST_C076_A10_C001</> 3076 <TYPE>string</> 3077 <PHYSICAL> 3078 <CODESET>ebcdic-m</> 3079 <WIDTH>2</> 3080 </> 3081 </> 3082 <FIELD> 3083 <NAME>TEST_COMPLNC_C075_A1</> 3084 <TYPE>string</> 3085 <PHYSICAL> 3086 <CODESET>ebcdic-m</> 3087 <WIDTH>1</> 3088 </> 3089 </> 3090 <FIELD> 3091 <NAME>TEST_C066_B28</> 3092 <TYPE>string</> 3093 <PHYSICAL> 3094 <CODESET>ebcdic-m</> 3095 <WIDTH>1</> 3096 </> 3097 </> 3098 <FIELD> 3099 <NAME>TEST_B04_F000001_B07</> 3100 <TYPE>string</> 3101 <PHYSICAL> 3102 <CODESET>ebcdic-m</> 3103 <WIDTH>2</> 3104 </> 3105 </> 3106 <FIELD> 3107 <NAME>TEST_C033_A10_C011</> 3108 <TYPE>string</> 3109 <PHYSICAL> 3110 <CODESET>ebcdic-m</> 3111 <WIDTH>1</> 3112 </> 3113 </> 3114 <FIELD> 3115 <NAME>TEST_C011_C076_A1</> 3116 <TYPE>string</> 3117 <PHYSICAL> 3118 <CODESET>ebcdic-m</> 3119 <WIDTH>2</> 3120 </> 3121 </> 3122 <FIELD> 3123 <NAME>TEST_F000006_B65_C008</> 3124 <TYPE>string</> 3125 <PHYSICAL> 3126 <CODESET>ebcdic-m</> 3127 <WIDTH>2</> 3128 </> 3129 </> 3130 <FIELD> 3131 <NAME>TEST_C047_B40_B74</> 3132 <TYPE>unsigned number</> 3133 <PHYSICAL> 3134 <CODESET>ebcdic-m</> 3135 <FILL>0</> 3136 <WIDTH>7</> 3137 </> 3138 </> 3139 <FIELD> 3140 <NAME>TEST_C047_C066_D0006_A5</> 3141 <TYPE>unsigned number</> 3142 <PHYSICAL> 3143 <CODESET>ebcdic-m</> 3144 <FILL>0</> 3145 <WIDTH>8</> 3146 </> 3147 </> 3148 <FIELD> 3149 <NAME>TEST_B65_B42_B02_D0021</> 3150 <TYPE>unsigned number</> 3151 <PHYSICAL> 3152 <CODESET>ebcdic-m</> 3153 <FILL>0</> 3154 <WIDTH>7</> 3155 </> 3156 </> 3157 <FIELD> 3158 <NAME>TEST_B65_E00002</> 3159 <TYPE>string</> 3160 <PHYSICAL> 3161 <CODESET>ebcdic-m</> 3162 <WIDTH>2</> 3163 </> 3164 </> 3165 <FIELD> 3166 <NAME>TEST_B65_C021</> 3167 <TYPE>string</> 3168 <PHYSICAL> 3169 <CODESET>ebcdic-m</> 3170 <WIDTH>1</> 3171 </> 3172 </> 3173 <FIELD> 3174 <NAME>TEST_B24_B65_C030</> 3175 <TYPE>string</> 3176 <PHYSICAL> 3177 <CODESET>ebcdic-m</> 3178 <WIDTH>1</> 3179 </> 3180 </> 3181 <FIELD> 3182 <NAME>TEST_C074_B65_A1</> 3183 <TYPE>string</> 3184 <PHYSICAL> 3185 <CODESET>ebcdic-m</> 3186 <WIDTH>1</> 3187 </> 3188 </> 3189 </> 3190 <FIELD> 3191 <NAME>TEST_D0016_F000004</> 3192 <FIELD> 3193 <NAME>TEST_C060_C026_A1</> 3194 <TYPE>string</> 3195 <PHYSICAL> 3196 <CODESET>ebcdic-m</> 3197 <WIDTH>10</> 3198 </> 3199 </> 3200 <FIELD> 3201 <NAME>TEST_D0035_C063_A1</> 3202 <TYPE>string</> 3203 <PHYSICAL> 3204 <CODESET>ebcdic-m</> 3205 <WIDTH>4</> 3206 </> 3207 </> 3208 <FIELD> 3209 <NAME>TEST_B65_D0002_B28</> 3210 <FIELD> 3211 <NAME>TEST_F000002_B65_D0002</> 3212 <TYPE>string</> 3213 <PHYSICAL> 3214 <CODESET>ebcdic-m</> 3215 <WIDTH>1</> 3216 </> 3217 </> 3218 <FIELD> 3219 <NAME>TEST_D0032_B65_D0002</> 3220 <TYPE>string</> 3221 <PHYSICAL> 3222 <CODESET>ebcdic-m</> 3223 <WIDTH>1</> 3224 </> 3225 </> 3226 <FIELD> 3227 <NAME>TEST_C012_B65_D0002</> 3228 <TYPE>string</> 3229 <PHYSICAL> 3230 <CODESET>ebcdic-m</> 3231 <WIDTH>1</> 3232 </> 3233 </> 3234 <FIELD> 3235 <NAME>TEST_E00001_B65_D0002</> 3236 <TYPE>string</> 3237 <PHYSICAL> 3238 <CODESET>ebcdic-m</> 3239 <WIDTH>1</> 3240 </> 3241 </> 3242 <FIELD> 3243 <NAME>TEST_F000005_B65_D0002</> 3244 <TYPE>string</> 3245 <PHYSICAL> 3246 <CODESET>ebcdic-m</> 3247 <WIDTH>1</> 3248 </> 3249 </> 3250 </> 3251 <FIELD> 3252 <NAME>TEST_C060_B73_A1</> 3253 <TYPE>string</> 3254 <PHYSICAL> 3255 <CODESET>ebcdic-m</> 3256 <WIDTH>2</> 3257 </> 3258 </> 3259 <FIELD> 3260 <NAME>TEST_C060_C016_B03</> 3261 <TYPE>number</> 3262 <PHYSICAL> 3263 <TYPE>bcd_t</> 3264 <FIXEDPOINT>4</> 3265 <WIDTH>8</> 3266 </> 3267 </> 3268 </> 3269 <FIELD> 3270 <NAME>TEST_C075_C076</> 3271 <TYPE>string</> 3272 <PHYSICAL> 3273 <CODESET>ebcdic-m</> 3274 <WIDTH>4</> 3275 </> 3276 </> 3277 <FIELD> 3278 <NAME>TEST_C063_C076</> 3279 <TYPE>string</> 3280 <PHYSICAL> 3281 <CODESET>ebcdic-m</> 3282 <WIDTH>4</> 3283 </> 3284 </> 3285 <FIELD> 3286 <NAME>TEST_B68_B65_B03</> 3287 <TYPE>number</> 3288 <PHYSICAL> 3289 <TYPE>bcd_t</> 3290 <FIXEDPOINT>7</> 3291 <WIDTH>10</> 3292 </> 3293 </> 3294 <FIELD> 3295 <NAME>TEST_B42_A10_OCCURS</> 3296 <TYPE>number</> 3297 <PHYSICAL> 3298 <TYPE>be_t</> 3299 <WIDTH>2</> 3300 </> 3301 </> 3302 </> 3303 </> 3304 <FIELD> 3305 <NAME>TEST_B05_B12_C002</> 3306 <FIELD> 3307 <NAME>TEST_C037_D0024_B33_2</> 3308 <TYPE>string</> 3309 <PHYSICAL> 3310 <CODESET>ebcdic-m</> 3311 <WIDTH>80</> 3312 </> 3313 </> 3314 <FIELD> 3315 <NAME>TEST_C060_D0033_C023</> 3316 <FIELD> 3317 <NAME>TEST_C060_C031_C023</> 3318 <TYPE>string</> 3319 <PHYSICAL> 3320 <CODESET>ebcdic-m</> 3321 <WIDTH>30</> 3322 </> 3323 </> 3324 <FIELD> 3325 <NAME>TEST_C060_C076_C023</> 3326 <TYPE>string</> 3327 <PHYSICAL> 3328 <CODESET>ebcdic-m</> 3329 <WIDTH>30</> 3330 </> 3331 </> 3332 <FIELD> 3333 <NAME>TEST_C011_B28</> 3334 <TYPE>string</> 3335 <PHYSICAL> 3336 <CODESET>ebcdic-m</> 3337 <WIDTH>30</> 3338 </> 3339 </> 3340 <FIELD> 3341 <NAME>TEST_B02_C076_C023</> 3342 <TYPE>string</> 3343 <PHYSICAL> 3344 <CODESET>ebcdic-m</> 3345 <WIDTH>30</> 3346 </> 3347 </> 3348 <FIELD> 3349 <NAME>TEST_C013_A10_D0003_C023</> 3350 <TYPE>string</> 3351 <PHYSICAL> 3352 <CODESET>ebcdic-m</> 3353 <WIDTH>30</> 3354 </> 3355 </> 3356 </> 3357 <FIELD> 3358 <NAME>TEST_C035</> 3359 <TYPE>number</> 3360 <PHYSICAL> 3361 <TYPE>bcd_t</> 3362 <WIDTH>6</> 3363 </> 3364 </> 3365 <FIELD> 3366 <NAME>TEST_D0018_D0009_B61_A1</> 3367 <TYPE>number</> 3368 <PHYSICAL> 3369 <TYPE>bcd_t</> 3370 <WIDTH>2</> 3371 </> 3372 </> 3373 <FIELD> 3374 <NAME>TEST_C066_B42_B35</> 3375 <TYPE>string</> 3376 <PHYSICAL> 3377 <CODESET>ebcdic-m</> 3378 <WIDTH>30</> 3379 </> 3380 </> 3381 <FIELD> 3382 <NAME>TEST_D0018_D0009_C023</> 3383 <TYPE>string</> 3384 <PHYSICAL> 3385 <CODESET>ebcdic-m</> 3386 <WIDTH>30</> 3387 </> 3388 </> 3389 <FIELD> 3390 <NAME>TEST_C066_C003_A5_2</> 3391 <TYPE>number</> 3392 <PHYSICAL> 3393 <TYPE>bcd_t</> 3394 <WIDTH>7</> 3395 </> 3396 </> 3397 <FIELD> 3398 <NAME>TEST_D0012_B49_B45</> 3399 <TYPE>number</> 3400 <PHYSICAL> 3401 <TYPE>bcd_t</> 3402 <FIXEDPOINT>13</> 3403 <WIDTH>8</> 3404 </> 3405 </> 3406 <FIELD> 3407 <NAME>TEST_C001_B28_C011_B32</> 3408 <TYPE>string</> 3409 <PHYSICAL> 3410 <CODESET>ebcdic-m</> 3411 <WIDTH>1</> 3412 </> 3413 </> 3414 <FIELD> 3415 <NAME>TEST_B12_C037_A12_C023</> 3416 <TYPE>string</> 3417 <PHYSICAL> 3418 <CODESET>ebcdic-m</> 3419 <WIDTH>30</> 3420 </> 3421 </> 3422 <FIELD> 3423 <NAME>TEST_B12_B10_A5</> 3424 <TYPE>string</> 3425 <PHYSICAL> 3426 <CODESET>ebcdic-m</> 3427 <WIDTH>6</> 3428 </> 3429 </> 3430 <FIELD> 3431 <NAME>TEST_B73_C011_A1</> 3432 <TYPE>string</> 3433 <PHYSICAL> 3434 <CODESET>ebcdic-m</> 3435 <WIDTH>2</> 3436 </> 3437 </> 3438 </> 3439 <FIELD> 3440 <NAME>TEST_B23_B12_C002</> 3441 <FIELD> 3442 <NAME>TEST_D0025_C037_B38_B42</> 3443 <TYPE>number</> 3444 <PHYSICAL> 3445 <TYPE>bcd_t</> 3446 <WIDTH>2</> 3447 </> 3448 </> 3449 <FIELD> 3450 <NAME>TEST_E00010_C037_A12_A5</> 3451 <TYPE>number</> 3452 <PHYSICAL> 3453 <TYPE>bcd_t</> 3454 <WIDTH>7</> 3455 </> 3456 </> 3457 <FIELD> 3458 <NAME>TEST_C037_A12_B58_B42</> 3459 <TYPE>number</> 3460 <PHYSICAL> 3461 <TYPE>bcd_t</> 3462 <WIDTH>4</> 3463 </> 3464 </> 3465 <FIELD> 3466 <NAME>TEST_C034_C065_B28_A1</> 3467 <TYPE>string</> 3468 <PHYSICAL> 3469 <CODESET>ebcdic-m</> 3470 <WIDTH>6</> 3471 </> 3472 </> 3473 <FIELD> 3474 <NAME>TEST_C034_D0029_B28_A1</> 3475 <TYPE>string</> 3476 <PHYSICAL> 3477 <CODESET>ebcdic-m</> 3478 <WIDTH>5</> 3479 </> 3480 </> 3481 <FIELD> 3482 <NAME>TEST_C065_B28_B09_A1</> 3483 <TYPE>string</> 3484 <PHYSICAL> 3485 <CODESET>ebcdic-m</> 3486 <WIDTH>1</> 3487 </> 3488 </> 3489 <FIELD> 3490 <NAME>TEST_D0010_A5</> 3491 <TYPE>string</> 3492 <PHYSICAL> 3493 <CODESET>ebcdic-m</> 3494 <WIDTH>8</> 3495 </> 3496 </> 3497 <FIELD> 3498 <NAME>TEST_C065_A11_C025_A1</> 3499 <TYPE>string</> 3500 <PHYSICAL> 3501 <CODESET>ebcdic-m</> 3502 <WIDTH>1</> 3503 </> 3504 </> 3505 <FIELD> 3506 <NAME>TEST_A13_B72_B23_B32</> 3507 <ARRAY> 3508 <SIZE>2</> 3509 </> 3510 <TYPE>string</> 3511 <PHYSICAL> 3512 <CODESET>ebcdic-m</> 3513 <WIDTH>1</> 3514 </> 3515 </> 3516 <FIELD> 3517 <NAME>TEST_C022_C060_B35_B28</> 3518 <FIELD> 3519 <NAME>TEST_C043_C060_B35_B58</> 3520 <ARRAY> 3521 <SIZE>5</> 3522 </> 3523 <TYPE>number</> 3524 <PHYSICAL> 3525 <TYPE>bcd_t</> 3526 <WIDTH>2</> 3527 </> 3528 </> 3529 <FIELD> 3530 <NAME>TEST_C043_C060_B35_B15</> 3531 <ARRAY> 3532 <SIZE>5</> 3533 </> 3534 <TYPE>string</> 3535 <PHYSICAL> 3536 <CODESET>ebcdic-m</> 3537 <WIDTH>40</> 3538 </> 3539 </> 3540 <FIELD> 3541 <NAME>TEST_C043_C060_B35_B16</> 3542 <ARRAY> 3543 <SIZE>5</> 3544 </> 3545 <TYPE>string</> 3546 <PHYSICAL> 3547 <CODESET>ebcdic-m</> 3548 <WIDTH>30</> 3549 </> 3550 </> 3551 <FIELD> 3552 <NAME>TEST_C043_C060_B35_B17</> 3553 <ARRAY> 3554 <SIZE>5</> 3555 </> 3556 <TYPE>string</> 3557 <PHYSICAL> 3558 <CODESET>ebcdic-m</> 3559 <WIDTH>25</> 3560 </> 3561 </> 3562 <FIELD> 3563 <NAME>TEST_C043_C060_B35_B18</> 3564 <ARRAY> 3565 <SIZE>5</> 3566 </> 3567 <TYPE>string</> 3568 <PHYSICAL> 3569 <CODESET>ebcdic-m</> 3570 <WIDTH>25</> 3571 </> 3572 </> 3573 <FIELD> 3574 <NAME>TEST_C043_C060_B35_B19</> 3575 <ARRAY> 3576 <SIZE>5</> 3577 </> 3578 <TYPE>string</> 3579 <PHYSICAL> 3580 <CODESET>ebcdic-m</> 3581 <WIDTH>20</> 3582 </> 3583 </> 3584 </> 3585 <FIELD> 3586 <NAME>TEST_C022_C006_C075_B28</> 3587 <FIELD> 3588 <NAME>TEST_C006_C075_B58</> 3589 <TYPE>number</> 3590 <PHYSICAL> 3591 <TYPE>bcd_t</> 3592 <WIDTH>5</> 3593 </> 3594 </> 3595 <FIELD> 3596 <NAME>TEST_C006_C075_C023_B46</> 3597 <TYPE>string</> 3598 <PHYSICAL> 3599 <CODESET>ebcdic-m</> 3600 <WIDTH>40</> 3601 </> 3602 </> 3603 <FIELD> 3604 <NAME>TEST_C006_C075_C023_B69</> 3605 <TYPE>string</> 3606 <PHYSICAL> 3607 <CODESET>ebcdic-m</> 3608 <WIDTH>30</> 3609 </> 3610 </> 3611 <FIELD> 3612 <NAME>TEST_C006_C075_C023_D0036</> 3613 <TYPE>string</> 3614 <PHYSICAL> 3615 <CODESET>ebcdic-m</> 3616 <WIDTH>25</> 3617 </> 3618 </> 3619 <FIELD> 3620 <NAME>TEST_C006_C075_C023_C032</> 3621 <TYPE>string</> 3622 <PHYSICAL> 3623 <CODESET>ebcdic-m</> 3624 <WIDTH>25</> 3625 </> 3626 </> 3627 <FIELD> 3628 <NAME>TEST_C006_C075_C023_C029</> 3629 <TYPE>string</> 3630 <PHYSICAL> 3631 <CODESET>ebcdic-m</> 3632 <WIDTH>20</> 3633 </> 3634 </> 3635 </> 3636 <FIELD> 3637 <NAME>TEST_B67_C023</> 3638 <TYPE>string</> 3639 <PHYSICAL> 3640 <CODESET>ebcdic-m</> 3641 <WIDTH>45</> 3642 </> 3643 </> 3644 <FIELD> 3645 <NAME>TEST_C062_B51_A1_C023</> 3646 <TYPE>string</> 3647 <PHYSICAL> 3648 <CODESET>ebcdic-m</> 3649 <WIDTH>30</> 3650 </> 3651 </> 3652 <FIELD> 3653 <NAME>TEST_A14_D0007_C023</> 3654 <TYPE>string</> 3655 <PHYSICAL> 3656 <CODESET>ebcdic-m</> 3657 <WIDTH>25</> 3658 </> 3659 </> 3660 <FIELD> 3661 <NAME>TEST_D0020_C073</> 3662 <ARRAY> 3663 <SIZE>2</> 3664 </> 3665 <TYPE>string</> 3666 <PHYSICAL> 3667 <CODESET>ebcdic-m</> 3668 <WIDTH>1</> 3669 </> 3670 </> 3671 <FIELD> 3672 <NAME>TEST_C009_B20_B29_A1</> 3673 <TYPE>string</> 3674 <PHYSICAL> 3675 <CODESET>ebcdic-m</> 3676 <WIDTH>1</> 3677 </> 3678 </> 3679 <FIELD> 3680 <NAME>TEST_B25_A1</> 3681 <TYPE>string</> 3682 <PHYSICAL> 3683 <CODESET>ebcdic-m</> 3684 <WIDTH>7</> 3685 </> 3686 </> 3687 <FIELD> 3688 <NAME>TEST_B71_A9</> 3689 <TYPE>string</> 3690 <PHYSICAL> 3691 <CODESET>ebcdic-m</> 3692 <WIDTH>15</> 3693 </> 3694 </> 3695 <FIELD> 3696 <NAME>TEST_D0020_C023_B28</> 3697 <ARRAY> 3698 <SIZE>2</> 3699 </> 3700 <FIELD> 3701 <NAME>TEST_D0020_C023_B46</> 3702 <TYPE>string</> 3703 <PHYSICAL> 3704 <CODESET>ebcdic-m</> 3705 <WIDTH>55</> 3706 </> 3707 </> 3708 <FIELD> 3709 <NAME>TEST_D0020_C023_B69</> 3710 <TYPE>string</> 3711 <PHYSICAL> 3712 <CODESET>ebcdic-m</> 3713 <WIDTH>110</> 3714 </> 3715 </> 3716 </> 3717 <FIELD> 3718 <NAME>TEST_D0008_C009_B02_B42</> 3719 <TYPE>string</> 3720 <PHYSICAL> 3721 <CODESET>ebcdic-m</> 3722 <WIDTH>23</> 3723 </> 3724 </> 3725 <FIELD> 3726 <NAME>TEST_D0008_C009_C023</> 3727 <TYPE>string</> 3728 <PHYSICAL> 3729 <CODESET>ebcdic-m</> 3730 <WIDTH>25</> 3731 </> 3732 </> 3733 </> 3734 </> 3735 <FIELD> 3736 <NAME>TEST_B29_B23_C017_B28</> 3737 <FIELD> 3738 <NAME>TEST_B29_B23_C017_C002</> 3739 <FIELD> 3740 <NAME>TEST_C037_A5_2</> 3741 <TYPE>number</> 3742 <PHYSICAL> 3743 <TYPE>bcd_t</> 3744 <WIDTH>7</> 3745 </> 3746 </> 3747 <FIELD> 3748 <NAME>TEST_C037_B14_A12_B28_2</> 3749 <FIELD> 3750 <NAME>TEST_C036_B07_C003_2</> 3751 <TYPE>number</> 3752 <PHYSICAL> 3753 <TYPE>bcd_t</> 3754 <WIDTH>7</> 3755 </> 3756 </> 3757 <FIELD> 3758 <NAME>TEST_B07_C003_C076_2</> 3759 <TYPE>string</> 3760 <PHYSICAL> 3761 <CODESET>ebcdic-m</> 3762 <WIDTH>2</> 3763 </> 3764 </> 3765 <FIELD> 3766 <NAME>TEST_B14_A1_2</> 3767 <TYPE>string</> 3768 <PHYSICAL> 3769 <CODESET>ebcdic-m</> 3770 <WIDTH>2</> 3771 </> 3772 </> 3773 </> 3774 <FIELD> 3775 <NAME>TEST_D0026_C076_2</> 3776 <TYPE>string</> 3777 <PHYSICAL> 3778 <CODESET>ebcdic-m</> 3779 <WIDTH>2</> 3780 </> 3781 </> 3782 <FIELD> 3783 <NAME>TEST_C006_C050</> 3784 <TYPE>string</> 3785 <PHYSICAL> 3786 <CODESET>ebcdic-m</> 3787 <WIDTH>1</> 3788 </> 3789 </> 3790 <FIELD> 3791 <NAME>TEST_C049_C018_B28_A1</> 3792 <TYPE>string</> 3793 <PHYSICAL> 3794 <CODESET>ebcdic-m</> 3795 <WIDTH>4</> 3796 </> 3797 </> 3798 <FIELD> 3799 <NAME>TEST_C007_D0011_A1</> 3800 <TYPE>number</> 3801 <PHYSICAL> 3802 <TYPE>bcd_t</> 3803 <WIDTH>2</> 3804 </> 3805 </> 3806 <FIELD> 3807 <NAME>TEST_B63_D0011_A5</> 3808 <TYPE>number</> 3809 <PHYSICAL> 3810 <TYPE>be_t</> 3811 <WIDTH>2</> 3812 </> 3813 </> 3814 <FIELD> 3815 <NAME>TEST_C006_E00011</> 3816 <TYPE>number</> 3817 <PHYSICAL> 3818 <TYPE>bcd_t</> 3819 <WIDTH>1</> 3820 </> 3821 </> 3822 <FIELD> 3823 <NAME>TEST_B14_C070_A1</> 3824 <TYPE>string</> 3825 <PHYSICAL> 3826 <CODESET>ebcdic-m</> 3827 <WIDTH>1</> 3828 </> 3829 </> 3830 <FIELD> 3831 <NAME>TEST_C004_A1</> 3832 <TYPE>string</> 3833 <PHYSICAL> 3834 <CODESET>ebcdic-m</> 3835 <WIDTH>1</> 3836 </> 3837 </> 3838 <FIELD> 3839 <NAME>TEST_C057_B47_A8</> 3840 <TYPE>string</> 3841 <PHYSICAL> 3842 <CODESET>ebcdic-m</> 3843 <WIDTH>21</> 3844 </> 3845 </> 3846 <FIELD> 3847 <NAME>TEST_C043_C018_B42</> 3848 <TYPE>string</> 3849 <PHYSICAL> 3850 <CODESET>ebcdic-m</> 3851 <WIDTH>16</> 3852 </> 3853 </> 3854 <FIELD> 3855 <NAME>TEST_C014_C001_B42</> 3856 <TYPE>string</> 3857 <PHYSICAL> 3858 <CODESET>ebcdic-m</> 3859 <WIDTH>8</> 3860 </> 3861 </> 3862 </> 3863 </> 3864</>' 3865 3866 EXEC --regress --bytemask 3867 OUTPUT - 110000000000333333333333330000033000000000000000000000000000000000000001103330\ 3868000000000000000000000000000000000000000000000000000000000000000000000000000000\ 3869000000000000000000000000000000000000000000000000000000000000000000000000000000\ 3870333000000000000000000000000000000000000000000000000003300000000000000003333300\ 3871000000003333333000000003333300000000000000000000000000000000000000000000000000\ 3872000000000000000000000000000000000000000000000000000000000000000000000000000000\ 3873000000000000000000000000000000000000000000000000000000000000000000000000000000\ 3874000000000000000000000000000000000000000000000000000000000000000000000000000000\ 3875000000003333333333333333333333333333000000000000000000000003333300000000000000\ 3876000000000000000000000000333333333333333333333333333333333333333333333333333333\ 3877333333333333333333333333333333333333333333333333333333333333333333333333333333\ 3878333333333333333333333333333000000000000000000000000000000000000000000000000000\ 3879000033333000333333333333333333333333333333333330333000000000000000000000000000\ 3880000000000000000000000000000000000000000000000000000000000000000333333330000000\ 3881033333333331100000000000000000000000000000000000000000000000000000000000000000\ 3882000000000000000000000000000000000000000000000000000000000000000000000000000000\ 3883000000000000000000000000000000000000000000000000000000000000000000000000000000\ 3884000000000333333330000000000000000000000000000000000000000000000000000000000003\ 3885333333333333330000000000000000000000000000000000000003333333333333000000000000\ 3886000000000003333333333000000000000000000000000000000000000000000000000000000000\ 3887000000000000000000000000000000000000000000000000000000000000000000000000000000\ 3888000000000000000000000000000000000000000000000000000000000000000000000000000000\ 3889000000000000000000000000000000000000000000000000000000000000000000000000000000\ 3890000000000000000000000000000000000000000000000000000000000000000000000000000000\ 3891000000000000000000000000000000000000000000000000000000000000000000000000000000\ 3892000000000000000000000000000000000000000000000000000000000000000000000000000000\ 3893000000000000000000000000000000000000000000000000000000000000000000000000000000\ 3894000000000000000000000000000000000000000000000000000000000000000000000000000000\ 3895000000000000000000033333000000000000000000000000000000000000000000000000000000\ 3896000000000000000000000000000000000000000000000000000000000000000000000000000000\ 3897000000000000000000000000000000000000000000000000000000000000000000000000000000\ 3898000000000000000000000000000000000000000000000000000000000000000000000000000000\ 3899000000000000000000000000000000000000000000000000000000000000000000000000000000\ 3900000000000000000000000000000000000000000000000000000000000000000000000000000000\ 3901000000000000000000000000000000000033333333333333000000000003311300000000000000\ 3902000000000000000000000000000000000 3903 3904 EXEC --regress --offsets 3905 OUTPUT - $'TEST_B74_B55_B36\t0\t2\t0\tbe_t 3906TEST_B23_C069_B33\t2\t306\t0\tstruct 3907TEST_C068_B23_C069_C002\t2\t303\t0\tstruct 3908TEST_D0018_B37_B08\t2\t23\t0\tstruct 3909TEST_C007_A4\t2\t10\t0\tstring 3910TEST_C037_A5\t12\t7\t0\tbcd_t 3911TEST_C037_B14_A12_B28\t19\t17\t0\tstruct 3912TEST_C036_B07_C003\t19\t7\t0\tbcd_t 3913TEST_B07_C003_C076\t26\t2\t0\tstring 3914TEST_B14_A1\t28\t2\t0\tstring 3915TEST_B37_B23_B55_C076\t30\t1\t0\tstring 3916TEST_A13_B59_C069_B42\t31\t2\t0\tbcd_t 3917TEST_B56_C003_A5\t33\t38\t0\tstring 3918TEST_B12_A13_B59_C040\t71\t2\t0\tbe_t 3919TEST_D0023_B23_B55_C076\t73\t1\t0\tstring 3920TEST_C065_B28_B58_A1\t74\t3\t0\tbcd_t 3921TEST_B61_B01_C037_B28\t77\t27\t0\tstruct 3922TEST_B27_B61_B01_C037\t77\t13\t0\tstring 3923TEST_B57_B61_B01_C037\t90\t13\t0\tstring 3924TEST_C078_C055_B26\t103\t1\t0\tstring 3925TEST_B23_C058_C069_B28\t104\t130\t0\tstruct 3926TEST_C058_D0024_C069_B28\t104\t80\t0\tstruct 3927TEST_C037_D0024_B33\t104\t80\t0\tstring 3928TEST_C058_C069_B28\t184\t50\t0\tstruct 3929TEST_C036_C069_B28\t184\t250\t5\tstruct 3930FILLER\t184\t50\t0\tstring 3931TEST_C065_A7_B28_B58_A1\t434\t3\t0\tbcd_t 3932TEST_B23_D0028_C069_B28\t437\t50\t0\tstruct 3933TEST_D0030_C069_B28\t437\t50\t0\tstruct 3934TEST_C036_C069_B28_2\t437\t250\t5\tstruct 3935FILLER_2\t437\t50\t0\tstring 3936TEST_B23_B59_B58_A3\t687\t2\t0\tbcd_t 3937TEST_B23_B12_C002_B28\t689\t2653\t0\tstruct 3938TEST_B31_B12_C002\t689\t1043\t0\tstruct 3939TEST_B06_A5\t689\t49\t0\tstruct 3940TEST_C042_B06_A5\t689\t19\t0\tstruct 3941TEST_C028_E00006_A1\t689\t8\t0\tstring 3942TEST_B55_B58_B42\t697\t8\t0\tunsigned 3943TEST_B29_B58_B42\t705\t2\t0\tbcd_t 3944TEST_B06_B58_B42\t707\t3\t0\tbcd_t 3945TEST_C071_B06_A5\t710\t26\t0\tstruct 3946TEST_C067_A4\t710\t10\t0\tstring 3947TEST_C067_B58_B42\t720\t7\t0\tbcd_t 3948TEST_B60_B64\t727\t3\t0\tstring 3949TEST_B06_C076\t730\t3\t0\tstring 3950TEST_D0026_C076\t733\t2\t0\tstring 3951TEST_C006_C075_A1\t735\t5\t0\tbcd_t 3952TEST_A2_B32\t740\t1\t0\tstring 3953TEST_A6_B55_C076_A1\t741\t2\t0\tstring 3954TEST_B39_A16_C065_B32\t743\t1\t0\tstring 3955TEST_D0005_A10_C066\t744\t6\t0\tstring 3956TEST_C007_B13_B11_B32\t750\t1\t0\tstring 3957TEST_B06_C018_C041_E00003\t751\t356\t0\tstruct 3958TEST_C006_C066_A5\t751\t281\t0\tstruct 3959TEST_B42_B28\t751\t141\t0\tstruct 3960TEST_C052_C066_C076_A1\t751\t1\t0\tstring 3961TEST_C036_C066_B42_B28\t752\t35\t0\tstruct 3962TEST_C036_C066_B42\t752\t35\t0\tstring 3963TEST_B41_C066_B42_B28\t752\t35\t0\tstruct 3964TEST_B43\t752\t3\t0\tstring 3965TEST_B50\t755\t3\t0\tstring 3966TEST_C046_B42\t758\t4\t0\tstring 3967FILLER_3\t762\t25\t0\tstring 3968TEST_D0017_C066_B42_B28\t752\t35\t0\tstruct 3969TEST_D0017_B42_B36\t752\t2\t0\tstring 3970TEST_D0017_B42_B28\t754\t16\t0\tstruct 3971TEST_D0017_B42_B52\t754\t10\t0\tstring 3972TEST_D0017_B42_B53\t764\t6\t0\tstring 3973FILLER_4\t770\t17\t0\tstring 3974TEST_B43_B50_B42_B28\t752\t35\t0\tstruct 3975TEST_C054_B43_B50\t752\t6\t0\tstring 3976FILLER_5\t758\t29\t0\tstring 3977TEST_C006_C066_B60_B42_B28\t751\t140\t0\tstruct 3978TEST_C006_C052_C066_B70\t751\t1\t0\tstring 3979TEST_C006_C066_B42_B28\t752\t35\t0\tstruct 3980TEST_C006_B43\t752\t3\t0\tstring 3981TEST_C006_B50\t755\t3\t0\tstring 3982TEST_C006_C046_B42\t758\t4\t0\tstring 3983FILLER_6\t762\t25\t0\tstring 3984TEST_C006_B41_B42_B28\t752\t35\t0\tstruct 3985TEST_C006_B42_B41\t752\t10\t0\tstring 3986FILLER_7\t762\t25\t0\tstring 3987TEST_C006_D0017_C066_B42_B28\t752\t35\t0\tstruct 3988TEST_D0017_B42_B36_2\t752\t2\t0\tstring 3989TEST_C006_D0017_B42_B28\t754\t16\t0\tstruct 3990FILLER_8\t754\t16\t0\tstring 3991FILLER_9\t770\t17\t0\tstring 3992TEST_C006_D0022_B42_B28\t752\t34\t0\tstruct 3993TEST_C006_C066_D0004_A5\t752\t30\t0\tstring 3994TEST_D0004_C048_A1\t782\t4\t0\tstring 3995TEST_C071_C037_A12_A5\t787\t7\t0\tbcd_t 3996TEST_C037_B14_A12_A5\t794\t7\t0\tbcd_t 3997TEST_C066_C003_A5\t801\t7\t0\tbcd_t 3998TEST_C037_A12_A5\t808\t7\t0\tbcd_t 3999TEST_D0027_C003\t815\t4\t0\tstring 4000TEST_B63_C001_C039\t819\t13\t0\tunsigned 4001TEST_B34_A1\t832\t2\t0\tstring 4002TEST_D0020_C073_A1\t834\t4\t2\tstring 4003TEST_C018_C003_A5\t838\t5\t0\tbcd_t 4004TEST_B06_C060_D0033\t843\t41\t0\tstruct 4005TEST_C060_C053_A1\t843\t8\t0\tstring 4006TEST_C060_COMPNT_A1\t851\t8\t0\tstring 4007TEST_C043_C060_C041_B66\t859\t5\t0\tstruct 4008TEST_C043_C060_C041_B28\t859\t25\t5\tstruct 4009TEST_C043_C060_C076_A1\t859\t1\t0\tstring 4010TEST_C043_C060_B35_A1\t860\t4\t0\tstring 4011TEST_C060_C006_A5\t884\t8\t0\tstring 4012TEST_C006_C026_A1\t892\t8\t0\tstring 4013TEST_C006_C026_B09_A1\t900\t1\t0\tstring 4014TEST_B48_E00006\t901\t2\t0\tbcd_t 4015TEST_C062_D0033_B75_B42\t903\t2\t0\tbcd_t 4016TEST_C041_C051_B28\t905\t292\t0\tstruct 4017TEST_C036_D0013\t905\t54\t6\tbcd_t 4018TEST_C036_B54\t959\t45\t5\tbcd_t 4019TEST_C036_B03\t1004\t56\t7\tbcd_t 4020TEST_B31_C020_B28\t1060\t30\t0\tstruct 4021TEST_D0015_A16_A4\t1060\t10\t0\tstring 4022TEST_B06_B62_A4\t1070\t10\t0\tstring 4023TEST_B06_B21_A4\t1080\t10\t0\tstring 4024TEST_B71_A1\t1090\t5\t0\tstring 4025TEST_B12_E00002_C019\t1095\t14\t0\tstruct 4026TEST_E00009_A14_D0007_A1\t1095\t2\t0\tstring 4027TEST_D0034_A14_D0007_A1\t1097\t2\t0\tstring 4028TEST_E00009_C045\t1099\t3\t0\tstring 4029TEST_D0034_C045\t1102\t3\t0\tstring 4030TEST_B08_A5\t1105\t4\t0\tstring 4031TEST_C061_B32\t1109\t1\t0\tstring 4032TEST_E00007_D0005_A10_C066\t1110\t5\t0\tstring 4033TEST_E00008_C011\t1115\t5\t0\tbcd_t 4034TEST_C044_D0019_A1\t1120\t1\t0\tstring 4035TEST_D0012_C076\t1121\t1\t0\tstring 4036TEST_D0012_C027_B32\t1122\t1\t0\tstring 4037TEST_C010_D0013_B54_C002\t1123\t49\t0\tstruct 4038TEST_C009_D0013_C064\t1123\t8\t0\tbcd_t 4039TEST_F000003_D0013_C064\t1131\t8\t0\tbcd_t 4040TEST_D0014_B54\t1139\t6\t0\tbcd_t 4041TEST_C038_C009_C005_B54\t1145\t5\t0\tbcd_t 4042TEST_E00004_B03\t1150\t8\t0\tbcd_t 4043TEST_C072_C011_B32\t1158\t1\t0\tstring 4044TEST_E00005_C056_B28\t1159\t13\t0\tstruct 4045TEST_E00005_C024\t1159\t3\t0\tbcd_t 4046TEST_C056_B42\t1162\t9\t0\tstring 4047TEST_B31_B65_B28\t1171\t126\t0\tstruct 4048TEST_A15_B65_B09_A1\t1171\t2\t0\tstring 4049TEST_D0016_E00012\t1173\t58\t0\tstruct 4050TEST_B65_D0001_B32\t1173\t1\t0\tstring 4051TEST_B65_D0019_A1_B28\t1174\t13\t0\tstruct 4052TEST_B41_A1\t1174\t2\t0\tstring 4053TEST_D0032_A1\t1176\t2\t0\tstring 4054TEST_C015_A1\t1178\t3\t0\tstring 4055TEST_C012_A1\t1181\t4\t0\tstring 4056TEST_F000005_A1\t1185\t2\t0\tstring 4057TEST_B44_B32\t1187\t1\t0\tstring 4058TEST_B65_B22\t1188\t5\t0\tstring 4059TEST_C076_A10_C001\t1193\t2\t0\tstring 4060TEST_COMPLNC_C075_A1\t1195\t1\t0\tstring 4061TEST_C066_B28\t1196\t1\t0\tstring 4062TEST_B04_F000001_B07\t1197\t2\t0\tstring 4063TEST_C033_A10_C011\t1199\t1\t0\tstring 4064TEST_C011_C076_A1\t1200\t2\t0\tstring 4065TEST_F000006_B65_C008\t1202\t2\t0\tstring 4066TEST_C047_B40_B74\t1204\t7\t0\tunsigned 4067TEST_C047_C066_D0006_A5\t1211\t8\t0\tunsigned 4068TEST_B65_B42_B02_D0021\t1219\t7\t0\tunsigned 4069TEST_B65_E00002\t1226\t2\t0\tstring 4070TEST_B65_C021\t1228\t1\t0\tstring 4071TEST_B24_B65_C030\t1229\t1\t0\tstring 4072TEST_C074_B65_A1\t1230\t1\t0\tstring 4073TEST_D0016_F000004\t1231\t36\t0\tstruct 4074TEST_C060_C026_A1\t1231\t10\t0\tstring 4075TEST_D0035_C063_A1\t1241\t4\t0\tstring 4076TEST_B65_D0002_B28\t1245\t5\t0\tstruct 4077TEST_F000002_B65_D0002\t1245\t1\t0\tstring 4078TEST_D0032_B65_D0002\t1246\t1\t0\tstring 4079TEST_C012_B65_D0002\t1247\t1\t0\tstring 4080TEST_E00001_B65_D0002\t1248\t1\t0\tstring 4081TEST_F000005_B65_D0002\t1249\t1\t0\tstring 4082TEST_C060_B73_A1\t1250\t2\t0\tstring 4083TEST_C060_C016_B03\t1252\t8\t0\tbcd_t 4084TEST_C075_C076\t1260\t4\t0\tstring 4085TEST_C063_C076\t1264\t4\t0\tstring 4086TEST_B68_B65_B03\t1268\t10\t0\tbcd_t 4087TEST_B42_A10_OCCURS\t1278\t2\t0\tbe_t 4088TEST_B05_B12_C002\t1280\t370\t0\tstruct 4089TEST_C037_D0024_B33_2\t1280\t80\t0\tstring 4090TEST_C060_D0033_C023\t1360\t150\t0\tstruct 4091TEST_C060_C031_C023\t1360\t30\t0\tstring 4092TEST_C060_C076_C023\t1390\t30\t0\tstring 4093TEST_C011_B28\t1420\t30\t0\tstring 4094TEST_B02_C076_C023\t1450\t30\t0\tstring 4095TEST_C013_A10_D0003_C023\t1480\t30\t0\tstring 4096TEST_C035\t1510\t6\t0\tbcd_t 4097TEST_D0018_D0009_B61_A1\t1516\t2\t0\tbcd_t 4098TEST_C066_B42_B35\t1518\t30\t0\tstring 4099TEST_D0018_D0009_C023\t1548\t30\t0\tstring 4100TEST_C066_C003_A5_2\t1578\t7\t0\tbcd_t 4101TEST_D0012_B49_B45\t1585\t8\t0\tbcd_t 4102TEST_C001_B28_C011_B32\t1593\t1\t0\tstring 4103TEST_B12_C037_A12_C023\t1594\t30\t0\tstring 4104TEST_B12_B10_A5\t1624\t6\t0\tstring 4105TEST_B73_C011_A1\t1630\t2\t0\tstring 4106TEST_B23_B12_C002\t1632\t1240\t0\tstruct 4107TEST_D0025_C037_B38_B42\t1632\t2\t0\tbcd_t 4108TEST_E00010_C037_A12_A5\t1634\t7\t0\tbcd_t 4109TEST_C037_A12_B58_B42\t1641\t4\t0\tbcd_t 4110TEST_C034_C065_B28_A1\t1645\t6\t0\tstring 4111TEST_C034_D0029_B28_A1\t1651\t5\t0\tstring 4112TEST_C065_B28_B09_A1\t1656\t1\t0\tstring 4113TEST_D0010_A5\t1657\t8\t0\tstring 4114TEST_C065_A11_C025_A1\t1665\t1\t0\tstring 4115TEST_A13_B72_B23_B32\t1666\t2\t2\tstring 4116TEST_C022_C060_B35_B28\t1668\t710\t0\tstruct 4117TEST_C043_C060_B35_B58\t1668\t10\t5\tbcd_t 4118TEST_C043_C060_B35_B15\t1678\t200\t5\tstring 4119TEST_C043_C060_B35_B16\t1878\t150\t5\tstring 4120TEST_C043_C060_B35_B17\t2028\t125\t5\tstring 4121TEST_C043_C060_B35_B18\t2153\t125\t5\tstring 4122TEST_C043_C060_B35_B19\t2278\t100\t5\tstring 4123TEST_C022_C006_C075_B28\t2378\t148\t0\tstruct 4124TEST_C006_C075_B58\t2378\t5\t0\tbcd_t 4125TEST_C006_C075_C023_B46\t2383\t40\t0\tstring 4126TEST_C006_C075_C023_B69\t2423\t30\t0\tstring 4127TEST_C006_C075_C023_D0036\t2453\t25\t0\tstring 4128TEST_C006_C075_C023_C032\t2478\t25\t0\tstring 4129TEST_C006_C075_C023_C029\t2503\t20\t0\tstring 4130TEST_B67_C023\t2523\t45\t0\tstring 4131TEST_C062_B51_A1_C023\t2568\t30\t0\tstring 4132TEST_A14_D0007_C023\t2598\t25\t0\tstring 4133TEST_D0020_C073\t2623\t2\t2\tstring 4134TEST_C009_B20_B29_A1\t2625\t1\t0\tstring 4135TEST_B25_A1\t2626\t7\t0\tstring 4136TEST_B71_A9\t2633\t15\t0\tstring 4137TEST_D0020_C023_B28\t2648\t330\t2\tstruct 4138TEST_D0020_C023_B46\t2648\t55\t0\tstring 4139TEST_D0020_C023_B69\t2703\t110\t0\tstring 4140TEST_D0008_C009_B02_B42\t2978\t23\t0\tstring 4141TEST_D0008_C009_C023\t3001\t25\t0\tstring 4142TEST_B29_B23_C017_B28\t3026\t91\t0\tstruct 4143TEST_B29_B23_C017_C002\t3026\t91\t0\tstruct 4144TEST_C037_A5_2\t3026\t7\t0\tbcd_t 4145TEST_C037_B14_A12_B28_2\t3033\t17\t0\tstruct 4146TEST_C036_B07_C003_2\t3033\t7\t0\tbcd_t 4147TEST_B07_C003_C076_2\t3040\t2\t0\tstring 4148TEST_B14_A1_2\t3042\t2\t0\tstring 4149TEST_D0026_C076_2\t3044\t2\t0\tstring 4150TEST_C006_C050\t3046\t1\t0\tstring 4151TEST_C049_C018_B28_A1\t3047\t4\t0\tstring 4152TEST_C007_D0011_A1\t3051\t2\t0\tbcd_t 4153TEST_B63_D0011_A5\t3053\t2\t0\tbe_t 4154TEST_C006_E00011\t3055\t1\t0\tbcd_t 4155TEST_B14_C070_A1\t3056\t1\t0\tstring 4156TEST_C004_A1\t3057\t1\t0\tstring 4157TEST_C057_B47_A8\t3058\t21\t0\tstring 4158TEST_C043_C018_B42\t3079\t16\t0\tstring 4159TEST_C014_C001_B42\t3095\t8\t0\tstring 4160.\t3103\t0\t0\tstruct' 4161 4162 EXEC --regress --offsets --keep 4163 OUTPUT - $'TEST-B74-B55-B36\t0\t2\t0\tbe_t 4164TEST-B23-C069-B33\t2\t306\t0\tstruct 4165TEST-C068-B23-C069-C002\t2\t303\t0\tstruct 4166TEST-D0018-B37-B08\t2\t23\t0\tstruct 4167TEST-C007-A4\t2\t10\t0\tstring 4168TEST-C037-A5\t12\t8\t0\tbe_t 4169TEST-C037-B14-A12-B28\t20\t17\t0\tstruct 4170TEST-C036-B07-C003\t20\t8\t0\tbe_t 4171TEST-B07-C003-C076\t28\t2\t0\tstring 4172TEST-B14-A1\t30\t2\t0\tstring 4173TEST-B37-B23-B55-C076\t32\t1\t0\tstring 4174TEST-A13-B59-C069-B42\t33\t2\t0\tbe_t 4175TEST-B56-C003-A5\t35\t38\t0\tstring 4176TEST-B12-A13-B59-C040\t73\t2\t0\tbe_t 4177TEST-D0023-B23-B55-C076\t75\t1\t0\tstring 4178TEST-C065-B28-B58-A1\t76\t4\t0\tbe_t 4179TEST-B61-B01-C037-B28\t80\t27\t0\tstruct 4180TEST-B27-B61-B01-C037\t80\t13\t0\tstring 4181TEST-B57-B61-B01-C037\t93\t13\t0\tstring 4182TEST-C078-C055-B26\t106\t1\t0\tstring 4183TEST-B23-C058-C069-B28\t107\t130\t0\tstruct 4184TEST-C058-D0024-C069-B28\t107\t80\t0\tstruct 4185TEST-C037-D0024-B33\t107\t80\t0\tstring 4186TEST-C058-C069-B28\t187\t50\t0\tstruct 4187TEST-C036-C069-B28\t187\t250\t5\tstruct 4188FILLER\t187\t50\t0\tstring 4189TEST-C065-A7-B28-B58-A1\t437\t4\t0\tbe_t 4190TEST-B23-D0028-C069-B28\t441\t50\t0\tstruct 4191TEST-D0030-C069-B28\t441\t50\t0\tstruct 4192TEST-C036-C069-B28_2\t441\t250\t5\tstruct 4193FILLER_2\t441\t50\t0\tstring 4194TEST-B23-B59-B58-A3\t691\t2\t0\tbe_t 4195TEST-B23-B12-C002-B28\t693\t2653\t0\tstruct 4196TEST-B31-B12-C002\t693\t1043\t0\tstruct 4197TEST-B06-A5\t693\t49\t0\tstruct 4198TEST-C042-B06-A5\t693\t19\t0\tstruct 4199TEST-C028-E00006-A1\t693\t8\t0\tstring 4200TEST-B55-B58-B42\t701\t8\t0\tunsigned 4201TEST-B29-B58-B42\t709\t2\t0\tbe_t 4202TEST-B06-B58-B42\t711\t2\t0\tbe_t 4203TEST-C071-B06-A5\t713\t26\t0\tstruct 4204TEST-C067-A4\t713\t10\t0\tstring 4205TEST-C067-B58-B42\t723\t8\t0\tbe_t 4206TEST-B60-B64\t731\t3\t0\tstring 4207TEST-B06-C076\t734\t3\t0\tstring 4208TEST-D0026-C076\t737\t2\t0\tstring 4209TEST-C006-C075-A1\t739\t4\t0\tbe_t 4210TEST-A2-B32\t743\t1\t0\tstring 4211TEST-A6-B55-C076-A1\t744\t2\t0\tstring 4212TEST-B39-A16-C065-B32\t746\t1\t0\tstring 4213TEST-D0005-A10-C066\t747\t6\t0\tstring 4214TEST-C007-B13-B11-B32\t753\t1\t0\tstring 4215TEST-B06-C018-C041-E00003\t754\t356\t0\tstruct 4216TEST-C006-C066-A5\t754\t281\t0\tstruct 4217TEST-B42-B28\t754\t141\t0\tstruct 4218TEST-C052-C066-C076-A1\t754\t1\t0\tstring 4219TEST-C036-C066-B42-B28\t755\t35\t0\tstruct 4220TEST-C036-C066-B42\t755\t35\t0\tstring 4221TEST-B41-C066-B42-B28\t755\t35\t0\tstruct 4222TEST-B43\t755\t3\t0\tstring 4223TEST-B50\t758\t3\t0\tstring 4224TEST-C046-B42\t761\t4\t0\tstring 4225FILLER_3\t765\t25\t0\tstring 4226TEST-D0017-C066-B42-B28\t755\t35\t0\tstruct 4227TEST-D0017-B42-B36\t755\t2\t0\tstring 4228TEST-D0017-B42-B28\t757\t16\t0\tstruct 4229TEST-D0017-B42-B52\t757\t10\t0\tstring 4230TEST-D0017-B42-B53\t767\t6\t0\tstring 4231FILLER_4\t773\t17\t0\tstring 4232TEST-B43-B50-B42-B28\t755\t35\t0\tstruct 4233TEST-C054-B43-B50\t755\t6\t0\tstring 4234FILLER_5\t761\t29\t0\tstring 4235TEST-C006-C066-B60-B42-B28\t754\t140\t0\tstruct 4236TEST-C006-C052-C066-B70\t754\t1\t0\tstring 4237TEST-C006-C066-B42-B28\t755\t35\t0\tstruct 4238TEST-C006-B43\t755\t3\t0\tstring 4239TEST-C006-B50\t758\t3\t0\tstring 4240TEST-C006-C046-B42\t761\t4\t0\tstring 4241FILLER_6\t765\t25\t0\tstring 4242TEST-C006-B41-B42-B28\t755\t35\t0\tstruct 4243TEST-C006-B42-B41\t755\t10\t0\tstring 4244FILLER_7\t765\t25\t0\tstring 4245TEST-C006-D0017-C066-B42-B28\t755\t35\t0\tstruct 4246TEST-D0017-B42-B36_2\t755\t2\t0\tstring 4247TEST-C006-D0017-B42-B28\t757\t16\t0\tstruct 4248FILLER_8\t757\t16\t0\tstring 4249FILLER_9\t773\t17\t0\tstring 4250TEST-C006-D0022-B42-B28\t755\t34\t0\tstruct 4251TEST-C006-C066-D0004-A5\t755\t30\t0\tstring 4252TEST-D0004-C048-A1\t785\t4\t0\tstring 4253TEST-C071-C037-A12-A5\t790\t8\t0\tbe_t 4254TEST-C037-B14-A12-A5\t798\t8\t0\tbe_t 4255TEST-C066-C003-A5\t806\t8\t0\tbe_t 4256TEST-C037-A12-A5\t814\t8\t0\tbe_t 4257TEST-D0027-C003\t822\t4\t0\tstring 4258TEST-B63-C001-C039\t826\t13\t0\tunsigned 4259TEST-B34-A1\t839\t2\t0\tstring 4260TEST-D0020-C073-A1\t841\t4\t2\tstring 4261TEST-C018-C003-A5\t845\t4\t0\tbe_t 4262TEST-B06-C060-D0033\t849\t41\t0\tstruct 4263TEST-C060-C053-A1\t849\t8\t0\tstring 4264TEST-C060-COMPNT-A1\t857\t8\t0\tstring 4265TEST-C043-C060-C041-B66\t865\t5\t0\tstruct 4266TEST-C043-C060-C041-B28\t865\t25\t5\tstruct 4267TEST-C043-C060-C076-A1\t865\t1\t0\tstring 4268TEST-C043-C060-B35-A1\t866\t4\t0\tstring 4269TEST-C060-C006-A5\t890\t8\t0\tstring 4270TEST-C006-C026-A1\t898\t8\t0\tstring 4271TEST-C006-C026-B09-A1\t906\t1\t0\tstring 4272TEST-B48-E00006\t907\t2\t0\tbe_t 4273TEST-C062-D0033-B75-B42\t909\t2\t0\tbe_t 4274TEST-C041-C051-B28\t911\t292\t0\tstruct 4275TEST-C036-D0013\t911\t48\t6\tbe_t 4276TEST-C036-B54\t959\t40\t5\tbe_t 4277TEST-C036-B03\t999\t56\t7\tbe_t 4278TEST-B31-C020-B28\t1055\t30\t0\tstruct 4279TEST-D0015-A16-A4\t1055\t10\t0\tstring 4280TEST-B06-B62-A4\t1065\t10\t0\tstring 4281TEST-B06-B21-A4\t1075\t10\t0\tstring 4282TEST-B71-A1\t1085\t5\t0\tstring 4283TEST-B12-E00002-C019\t1090\t14\t0\tstruct 4284TEST-E00009-A14-D0007-A1\t1090\t2\t0\tstring 4285TEST-D0034-A14-D0007-A1\t1092\t2\t0\tstring 4286TEST-E00009-C045\t1094\t3\t0\tstring 4287TEST-D0034-C045\t1097\t3\t0\tstring 4288TEST-B08-A5\t1100\t4\t0\tstring 4289TEST-C061-B32\t1104\t1\t0\tstring 4290TEST-E00007-D0005-A10-C066\t1105\t5\t0\tstring 4291TEST-E00008-C011\t1110\t4\t0\tbe_t 4292TEST-C044-D0019-A1\t1114\t1\t0\tstring 4293TEST-D0012-C076\t1115\t1\t0\tstring 4294TEST-D0012-C027-B32\t1116\t1\t0\tstring 4295TEST-C010-D0013-B54-C002\t1117\t49\t0\tstruct 4296TEST-C009-D0013-C064\t1117\t8\t0\tbe_t 4297TEST-F000003-D0013-C064\t1125\t8\t0\tbe_t 4298TEST-D0014-B54\t1133\t8\t0\tbe_t 4299TEST-C038-C009-C005-B54\t1141\t4\t0\tbe_t 4300TEST-E00004-B03\t1145\t8\t0\tbe_t 4301TEST-C072-C011-B32\t1153\t1\t0\tstring 4302TEST-E00005-C056-B28\t1154\t13\t0\tstruct 4303TEST-E00005-C024\t1154\t2\t0\tbe_t 4304TEST-C056-B42\t1156\t9\t0\tstring 4305TEST-B31-B65-B28\t1165\t126\t0\tstruct 4306TEST-A15-B65-B09-A1\t1165\t2\t0\tstring 4307TEST-D0016-E00012\t1167\t58\t0\tstruct 4308TEST-B65-D0001-B32\t1167\t1\t0\tstring 4309TEST-B65-D0019-A1-B28\t1168\t13\t0\tstruct 4310TEST-B41-A1\t1168\t2\t0\tstring 4311TEST-D0032-A1\t1170\t2\t0\tstring 4312TEST-C015-A1\t1172\t3\t0\tstring 4313TEST-C012-A1\t1175\t4\t0\tstring 4314TEST-F000005-A1\t1179\t2\t0\tstring 4315TEST-B44-B32\t1181\t1\t0\tstring 4316TEST-B65-B22\t1182\t5\t0\tstring 4317TEST-C076-A10-C001\t1187\t2\t0\tstring 4318TEST-COMPLNC-C075-A1\t1189\t1\t0\tstring 4319TEST-C066-B28\t1190\t1\t0\tstring 4320TEST-B04-F000001-B07\t1191\t2\t0\tstring 4321TEST-C033-A10-C011\t1193\t1\t0\tstring 4322TEST-C011-C076-A1\t1194\t2\t0\tstring 4323TEST-F000006-B65-C008\t1196\t2\t0\tstring 4324TEST-C047-B40-B74\t1198\t7\t0\tunsigned 4325TEST-C047-C066-D0006-A5\t1205\t8\t0\tunsigned 4326TEST-B65-B42-B02-D0021\t1213\t7\t0\tunsigned 4327TEST-B65-E00002\t1220\t2\t0\tstring 4328TEST-B65-C021\t1222\t1\t0\tstring 4329TEST-B24-B65-C030\t1223\t1\t0\tstring 4330TEST-C074-B65-A1\t1224\t1\t0\tstring 4331TEST-D0016-F000004\t1225\t36\t0\tstruct 4332TEST-C060-C026-A1\t1225\t10\t0\tstring 4333TEST-D0035-C063-A1\t1235\t4\t0\tstring 4334TEST-B65-D0002-B28\t1239\t5\t0\tstruct 4335TEST-F000002-B65-D0002\t1239\t1\t0\tstring 4336TEST-D0032-B65-D0002\t1240\t1\t0\tstring 4337TEST-C012-B65-D0002\t1241\t1\t0\tstring 4338TEST-E00001-B65-D0002\t1242\t1\t0\tstring 4339TEST-F000005-B65-D0002\t1243\t1\t0\tstring 4340TEST-C060-B73-A1\t1244\t2\t0\tstring 4341TEST-C060-C016-B03\t1246\t8\t0\tbe_t 4342TEST-C075-C076\t1254\t4\t0\tstring 4343TEST-C063-C076\t1258\t4\t0\tstring 4344TEST-B68-B65-B03\t1262\t8\t0\tbe_t 4345TEST-B42-A10-OCCURS\t1270\t2\t0\tbe_t 4346TEST-B05-B12-C002\t1272\t370\t0\tstruct 4347TEST-C037-D0024-B33_2\t1272\t80\t0\tstring 4348TEST-C060-D0033-C023\t1352\t150\t0\tstruct 4349TEST-C060-C031-C023\t1352\t30\t0\tstring 4350TEST-C060-C076-C023\t1382\t30\t0\tstring 4351TEST-C011-B28\t1412\t30\t0\tstring 4352TEST-B02-C076-C023\t1442\t30\t0\tstring 4353TEST-C013-A10-D0003-C023\t1472\t30\t0\tstring 4354TEST-C035\t1502\t8\t0\tbe_t 4355TEST-D0018-D0009-B61-A1\t1510\t2\t0\tbe_t 4356TEST-C066-B42-B35\t1512\t30\t0\tstring 4357TEST-D0018-D0009-C023\t1542\t30\t0\tstring 4358TEST-C066-C003-A5_2\t1572\t8\t0\tbe_t 4359TEST-D0012-B49-B45\t1580\t8\t0\tbe_t 4360TEST-C001-B28-C011-B32\t1588\t1\t0\tstring 4361TEST-B12-C037-A12-C023\t1589\t30\t0\tstring 4362TEST-B12-B10-A5\t1619\t6\t0\tstring 4363TEST-B73-C011-A1\t1625\t2\t0\tstring 4364TEST-B23-B12-C002\t1627\t1240\t0\tstruct 4365TEST-D0025-C037-B38-B42\t1627\t1\t0\tbe_t 4366TEST-E00010-C037-A12-A5\t1628\t8\t0\tbe_t 4367TEST-C037-A12-B58-B42\t1636\t4\t0\tbe_t 4368TEST-C034-C065-B28-A1\t1640\t6\t0\tstring 4369TEST-C034-D0029-B28-A1\t1646\t5\t0\tstring 4370TEST-C065-B28-B09-A1\t1651\t1\t0\tstring 4371TEST-D0010-A5\t1652\t8\t0\tstring 4372TEST-C065-A11-C025-A1\t1660\t1\t0\tstring 4373TEST-A13-B72-B23-B32\t1661\t2\t2\tstring 4374TEST-C022-C060-B35-B28\t1663\t710\t0\tstruct 4375TEST-C043-C060-B35-B58\t1663\t5\t5\tbe_t 4376TEST-C043-C060-B35-B15\t1668\t200\t5\tstring 4377TEST-C043-C060-B35-B16\t1868\t150\t5\tstring 4378TEST-C043-C060-B35-B17\t2018\t125\t5\tstring 4379TEST-C043-C060-B35-B18\t2143\t125\t5\tstring 4380TEST-C043-C060-B35-B19\t2268\t100\t5\tstring 4381TEST-C022-C006-C075-B28\t2368\t148\t0\tstruct 4382TEST-C006-C075-B58\t2368\t4\t0\tbe_t 4383TEST-C006-C075-C023-B46\t2372\t40\t0\tstring 4384TEST-C006-C075-C023-B69\t2412\t30\t0\tstring 4385TEST-C006-C075-C023-D0036\t2442\t25\t0\tstring 4386TEST-C006-C075-C023-C032\t2467\t25\t0\tstring 4387TEST-C006-C075-C023-C029\t2492\t20\t0\tstring 4388TEST-B67-C023\t2512\t45\t0\tstring 4389TEST-C062-B51-A1-C023\t2557\t30\t0\tstring 4390TEST-A14-D0007-C023\t2587\t25\t0\tstring 4391TEST-D0020-C073\t2612\t2\t2\tstring 4392TEST-C009-B20-B29-A1\t2614\t1\t0\tstring 4393TEST-B25-A1\t2615\t7\t0\tstring 4394TEST-B71-A9\t2622\t15\t0\tstring 4395TEST-D0020-C023-B28\t2637\t330\t2\tstruct 4396TEST-D0020-C023-B46\t2637\t55\t0\tstring 4397TEST-D0020-C023-B69\t2692\t110\t0\tstring 4398TEST-D0008-C009-B02-B42\t2967\t23\t0\tstring 4399TEST-D0008-C009-C023\t2990\t25\t0\tstring 4400TEST-B29-B23-C017-B28\t3015\t91\t0\tstruct 4401TEST-B29-B23-C017-C002\t3015\t91\t0\tstruct 4402TEST-C037-A5_2\t3015\t8\t0\tbe_t 4403TEST-C037-B14-A12-B28_2\t3023\t17\t0\tstruct 4404TEST-C036-B07-C003_2\t3023\t8\t0\tbe_t 4405TEST-B07-C003-C076_2\t3031\t2\t0\tstring 4406TEST-B14-A1_2\t3033\t2\t0\tstring 4407TEST-D0026-C076_2\t3035\t2\t0\tstring 4408TEST-C006-C050\t3037\t1\t0\tstring 4409TEST-C049-C018-B28-A1\t3038\t4\t0\tstring 4410TEST-C007-D0011-A1\t3042\t1\t0\tbe_t 4411TEST-B63-D0011-A5\t3043\t2\t0\tbe_t 4412TEST-C006-E00011\t3045\t1\t0\tbe_t 4413TEST-B14-C070-A1\t3046\t1\t0\tstring 4414TEST-C004-A1\t3047\t1\t0\tstring 4415TEST-C057-B47-A8\t3048\t21\t0\tstring 4416TEST-C043-C018-B42\t3069\t16\t0\tstring 4417TEST-C014-C001-B42\t3085\t8\t0\tstring 4418.\t3093\t0\t0\tstruct' 4419 4420TEST 04 'multiple REDEFINES' 4421 4422 EXEC --regress --offsets 4423 INPUT - $' 01 TEST-0000-000-001. 4424 ****************************************************************** 4425 * * 4426 * YADAYADAYADAYADAYADAYADAYADAYADAYADAYADAYADAYADAYADAYADAYADAYA * 4427 * * 4428 ****************************************************************** 4429 03 TEST-000-000-002 PIC S9(4) COMP 4430 VALUE ZEROES. 4431 03 TEST-000-0000-003. 4432 06 TEST-0000-000-0000-0004. 4433 09 TEST-00000-000-005. 4434 12 TEST-0000-06 PIC X(10) VALUE SPACES. 4435 12 TEST-0000-07 PIC S9(13) COMP-3 4436 VALUE ZEROES. 4437 09 TEST-0000-000-00-008. 4438 12 TEST-0000-000-0009 4439 PIC S9(13) COMP-3 4440 VALUE ZEROES. 4441 12 TEST-000-0000-0010 4442 PIC X(2) VALUE SPACES. 4443 12 TEST-000-29 PIC X(2) VALUE SPACES. 4444 09 TEST-000-000-000-0031 4445 PIC X VALUE SPACES. 4446 09 TEST-00-000-0000-036 4447 PIC S9(3) COMP-3 4448 VALUE ZEROES. 4449 09 TEST-000-0000-37 PIC X(38) VALUE SPACES. 4450 09 TEST-000-00-000-038 4451 PIC S9(3) COMP 4452 VALUE ZEROES. 4453 09 TEST-00000-000-000-0039 4454 PIC X VALUE SPACES. 4455 09 TEST-0000-000-000-42 4456 PIC S9(5) COMP-3 4457 VALUE ZEROES. 4458 09 TEST-000-000-0000-043. 4459 12 TEST-000-000-000-0044 4460 PIC X(13) VALUE SPACES. 4461 12 TEST-000-000-000-0045 4462 PIC X(13) VALUE SPACES. 4463 12 TEST-0000-0000-046 4464 PIC X VALUE SPACES. 4465 09 TEST-000-0000-0000-047. 4466 12 TEST-0000-00000-0000-048. 4467 15 TEST-0000-00000-049 4468 PIC X(80) VALUE SPACES. 4469 12 TEST-0000-0000-050. 4470 15 TEST-0000-0000-051 4471 OCCURS 5 TIMES 4472 INDEXED BY TEST-0000-0000-052. 4473 18 FILLER PIC X(50) VALUE SPACE. 4474 09 TEST-0000-00-000-000-053 4475 PIC S9(5) COMP-3 4476 VALUE ZEROES. 4477 09 TEST-000-00000-0000-054. 4478 12 TEST-00000-0000-056. 4479 15 TEST-0000-0000-057 4480 OCCURS 5 TIMES 4481 INDEXED BY TEST-00000-0000-058. 4482 18 FILLER PIC X(50) VALUE SPACE. 4483 06 TEST-000-000-000-059 PIC S9(3) COMP-3 4484 VALUE ZEROES. 4485 03 TEST-000-000-0000-060. 4486 06 TEST-000-000-0061. 4487 09 TEST-000-062. 4488 12 TEST-0000-000-63. 4489 15 TEST-0000-000000-64 4490 PIC X(8) VALUE SPACES. 4491 15 TEST-000-000-065 4492 PIC 9(8) VALUE ZEROES. 4493 15 TEST-000-000-066 4494 PIC S9(3) COMP-3 4495 VALUE ZEROES. 4496 12 TEST-000-000-067 4497 PIC S9(4) COMP-3 4498 VALUE ZEROES. 4499 12 TEST-0000-000-68. 4500 15 TEST-0000-00 PIC X(10) VALUE SPACES. 4501 15 TEST-0000-000-069 4502 PIC S9(13) COMP-3 4503 VALUE ZEROES. 4504 15 TEST-000-070 PIC X(3) VALUE SPACES. 4505 09 TEST-000-0071 PIC X(3) VALUE SPACES. 4506 09 TEST-00000-0072 PIC X(2) VALUE SPACES. 4507 09 TEST-0000-0000-73 PIC S9(8) COMP-3 4508 VALUE ZEROES. 4509 09 TEST-00-074 PIC X VALUE SPACES. 4510 09 TEST-00-000-0000-75 PIC X(2) VALUE \'D\'. 4511 09 TEST-000-00-0000-076 4512 PIC X VALUE SPACES. 4513 09 TEST-00000-00-0077 PIC X(6) VALUE SPACES. 4514 09 TEST-0000-000-000-078 4515 PIC X VALUE SPACES. 4516 09 TEST-000-0000-0000-000079. 4517 12 TEST-0000-0000-80. 4518 15 TEST-999-002. 4519 18 TEST-0000-0000-0000-81 4520 PIC X VALUE SPACES. 4521 18 TEST-9999-0000-000-004. 4522 21 TEST-0000-0000-082 4523 PIC X(35) VALUE SPACES. 4524 18 TEST-000-0000-000-083 4525 REDEFINES TEST-9999-0000-000-004. 4526 21 TEST-084 PIC X(3). 4527 21 TEST-085 PIC X(3). 4528 21 TEST-0000-086 PIC X(4). 4529 21 FILLER PIC X(25). 4530 18 TEST-00000-0000-000-087 4531 REDEFINES TEST-9999-0000-000-004. 4532 21 TEST-00000-000-088 4533 PIC X(2). 4534 21 TEST-00000-000-089. 4535 24 TEST-00000-000-090 4536 PIC X(10). 4537 24 TEST-00000-000-091 4538 PIC X(6). 4539 21 FILLER PIC X(17). 4540 18 TEST-000-000-000-092 4541 REDEFINES TEST-9999-0000-000-004. 4542 21 TEST-0000-000-093 4543 PIC X(6). 4544 21 FILLER PIC X(29). 4545 15 TEST-0000-0000-000-000-094 4546 REDEFINES TEST-999-002. 4547 18 TEST-0000-0000-0000-095 4548 PIC X. 4549 18 TEST-9999-0000-000-005. 4550 21 TEST-0000-096 PIC X(3). 4551 21 TEST-0000-097 PIC X(3). 4552 21 TEST-0000-0000-098 4553 PIC X(4). 4554 21 FILLER PIC X(25). 4555 18 TEST-0000-000-000-099 4556 REDEFINES TEST-9999-0000-000-005. 4557 21 TEST-0000-000-100 4558 PIC X(10). 4559 21 FILLER PIC X(25). 4560 18 TEST-0000-00000-0000-000-101 4561 REDEFINES TEST-9999-0000-000-005. 4562 21 TEST-00000-000-102 4563 PIC X(2). 4564 21 TEST-0000-00000-000-103. 4565 24 FILLER PIC X(16). 4566 21 FILLER PIC X(17). 4567 18 TEST-0000-00000-000-104 4568 REDEFINES TEST-9999-0000-000-005. 4569 21 TEST-0000-0000-0000-105 4570 PIC X(30). 4571 21 TEST-00000-000-106 4572 PIC X(4). 4573 12 TEST-0000-0000-0-107 4574 PIC S9(13) COMP-3 4575 VALUE ZEROES. 4576 12 TEST-0000-000-0-108 4577 PIC S9(13) COMP-3 4578 VALUE ZEROES. 4579 12 TEST-0000-000-109 4580 PIC S9(13) COMP-3 4581 VALUE ZEROES. 4582 12 TEST-0000-0-110 PIC S9(13) COMP-3 4583 VALUE ZEROES. 4584 12 TEST-00000-0111 PIC X(4) VALUE SPACES. 4585 12 TEST-000-0000-0112 4586 PIC 9(13) VALUE ZEROES. 4587 12 TEST-00-113 PIC X(2) VALUE SPACES. 4588 12 TEST-00000-000-114 4589 PIC X(2) 4590 OCCURS 2 TIMES 4591 VALUE SPACES. 4592 09 TEST-0000-000-115 PIC S9(8) COMP-3 4593 VALUE ZEROES. 4594 09 TEST-000-0000-00116. 4595 12 TEST-0000-000-117 4596 PIC X(8) VALUE SPACES. 4597 12 TEST-0000-00000-118 4598 PIC X(8) VALUE SPACES. 4599 12 TEST-0000-0000-0000-119. 4600 15 TEST-0000-0000-0000-120 4601 OCCURS 5 TIMES. 4602 18 TEST-0000-0000-000-121 4603 PIC X VALUE SPACES. 4604 18 TEST-0000-0000-00-122 4605 PIC X(4) VALUE SPACES. 4606 12 TEST-0000-000-123 4607 PIC X(8) VALUE SPACES. 4608 12 TEST-0000-000-124 4609 PIC X(8) VALUE SPACES. 4610 12 TEST-0000-0000-00-125 4611 PIC X VALUE SPACES. 4612 12 TEST-000-000126 PIC S9(3) COMP-3 4613 VALUE ZEROES. 4614 09 TEST-0000-00000-000-127 4615 PIC S9(3) COMP-3 4616 VALUE ZEROES. 4617 09 TEST-0000-0000-128. 4618 12 TEST-0000-00129 PIC S9(17) COMP-3 4619 OCCURS 6 TIMES 4620 INDEXED BY TEST-00000-130 4621 VALUE ZEROES. 4622 12 TEST-0000-131 PIC S9(15)V9(2) COMP-3 4623 OCCURS 5 TIMES 4624 INDEXED BY TEST-000-132 4625 VALUE ZEROES. 4626 12 TEST-0000-133 PIC S9(8)V9(7) COMP-3 4627 OCCURS 7 TIMES 4628 INDEXED BY TEST-000-134 4629 VALUE ZEROES. 4630 09 TEST-000-0000-135. 4631 12 TEST-00000-0-136 4632 PIC X(10) VALUE SPACES. 4633 12 TEST-000-00-137 PIC X(10) VALUE SPACES. 4634 12 TEST-000-00-138 PIC X(10) VALUE SPACES. 4635 09 TEST-00-139 PIC X(5) VALUE SPACES. 4636 09 TEST-000-00000-0140. 4637 12 TEST-000000-00-0000-141 4638 PIC X(2) VALUE SPACES. 4639 12 TEST-00000-00-0000-142 4640 PIC X(2) VALUE SPACES. 4641 12 TEST-000000-0143 4642 PIC X(3) VALUE SPACES. 4643 12 TEST-00000-0144 PIC X(3) VALUE SPACES. 4644 12 TEST-00-145 PIC X(4) VALUE SPACES. 4645 09 TEST-0000-146 PIC X VALUE SPACES. 4646 09 TEST-000000-00000-00-0146 4647 PIC X(5) VALUE SPACES. 4648 09 TEST-000000-0147 PIC S9(6)V9(2) COMP-3 4649 VALUE ZEROES. 4650 09 TEST-0000-0000-148 PIC X VALUE SPACES. 4651 09 TEST-00000-0149 PIC X VALUE SPACES. 4652 09 TEST-00000-0000-150 PIC X VALUE SPACES. 4653 09 TEST-0000-00000-000-0151. 4654 12 TEST-0000-00000-0152 4655 PIC S9(10)V9(5) COMP-3 4656 VALUE ZEROES. 4657 12 TEST-0000000-00000-0153 4658 PIC S9(10)V9(5) COMP-3 4659 VALUE ZEROES. 4660 12 TEST-00000-154 PIC S9(7)V9(3) COMP-3 4661 VALUE ZEROES. 4662 12 TEST-0000-0000-0000-155 4663 PIC S9(7)V9(2) COMP-3 4664 VALUE ZEROES. 4665 09 TEST-000000-156 PIC S9(8)V9(7) COMP-3 4666 VALUE ZEROES. 4667 09 TEST-0000-0000-157 PIC X VALUE SPACES. 4668 09 TEST-000000-0000-158. 4669 12 TEST-000000-0159 4670 PIC S9(4) COMP-3 4671 VALUE ZEROES. 4672 12 TEST-0000-160 PIC X(9) VALUE SPACES. 4673 09 TEST-000-000-161. 4674 12 TEST-00-000-00-162 4675 PIC X(2) VALUE SPACES. 4676 12 TEST-00000-000163. 4677 15 TEST-000-00000-164 4678 PIC X VALUE SPACES. 4679 15 TEST-000-00000-00-165. 4680 18 TEST-00-166 PIC X(2) VALUE SPACES. 4681 18 TEST-0000-167 PIC X(2) VALUE SPACES. 4682 18 TEST-000-168 PIC X(3) VALUE SPACES. 4683 18 TEST-000-169 PIC X(4) VALUE SPACES. 4684 18 TEST-000000-170 PIC X(2) VALUE SPACES. 4685 15 TEST-000-171 PIC X VALUE SPACES. 4686 15 TEST-000-172 PIC X(5) VALUE SPACES. 4687 15 TEST-0000-00-0173 4688 PIC X(2) VALUE SPACES. 4689 15 TEST-0000000-000-174 4690 PIC X VALUE SPACES. 4691 15 TEST-0000-175 PIC X VALUE SPACES. 4692 15 TEST-000-0000000-176 4693 PIC X(2) VALUE SPACES. 4694 15 TEST-0000-00-0177 4695 PIC X VALUE SPACES. 4696 15 TEST-0000-000-178 4697 PIC X(2) VALUE SPACES. 4698 15 TEST-0000000-000-0179 4699 PIC X(2) VALUE SPACES. 4700 15 TEST-0000-000-180 4701 PIC 9(7) VALUE ZEROES. 4702 15 TEST-0000-0000-0000-181 4703 PIC 9(8) VALUE ZEROES. 4704 15 TEST-000-000-000-00182 4705 PIC 9(7) VALUE ZEROES. 4706 15 TEST-000-000183 PIC X(2) VALUE SPACES. 4707 15 TEST-000-0184 PIC X VALUE SPACES. 4708 15 TEST-000-000-185 4709 PIC X VALUE SPACES. 4710 15 TEST-0000-00-186 4711 PIC X VALUE SPACES. 4712 12 TEST-00000-0000187. 4713 15 TEST-0000-000-188 4714 PIC X(10) VALUE SPACES. 4715 15 TEST-00000-000-189 4716 PIC X(4) VALUE SPACES. 4717 15 TEST-000-00000-190. 4718 18 TEST-0000000-000-00191 4719 PIC X VALUE SPACES. 4720 18 TEST-00000-000-00192 4721 PIC X VALUE SPACES. 4722 18 TEST-0000-000-00193 4723 PIC X VALUE SPACES. 4724 18 TEST-000000-000-00194 4725 PIC X VALUE SPACES. 4726 18 TEST-0000000-000-00195 4727 PIC X VALUE SPACES. 4728 15 TEST-0000-00-196 4729 PIC X(2) VALUE SPACES. 4730 15 TEST-0000-0000-197 4731 PIC S9(11)V9(4) COMP-3 4732 VALUE ZEROES. 4733 12 TEST-0000-0198 PIC X(4) VALUE SPACES. 4734 12 TEST-0000-0199 PIC X(4) VALUE SPACES. 4735 12 TEST-000-000-200 4736 PIC S9(11)V9(7) COMP-3 4737 VALUE ZEROES. 4738 12 TEST-000-00-000201 4739 PIC S9(4) COMP 4740 VALUE 0. 4741 06 TEST-000-000-0202. 4742 09 TEST-0000-00000-203 PIC X(80) VALUE SPACES. 4743 09 TEST-0000-00000-0204. 4744 12 TEST-0000-0000-0205 4745 PIC X(30) VALUE SPACES. 4746 12 TEST-0000-0000-0206 4747 PIC X(30) VALUE SPACES. 4748 12 TEST-0000-207 PIC X(30) VALUE SPACES. 4749 12 TEST-000-0000-0208 4750 PIC X(30) VALUE SPACES. 4751 12 TEST-0000-00-00000-0209 4752 PIC X(30) VALUE SPACES. 4753 09 TEST-0210 PIC S9(10) COMP-3 4754 VALUE ZEROES. 4755 09 TEST-00000-00000-00-211 4756 PIC S9(3) COMP-3 4757 VALUE ZEROES. 4758 09 TEST-0000-000-212 PIC X(30) VALUE SPACES. 4759 09 TEST-00000-00000-0213 4760 PIC X(30) VALUE SPACES. 4761 09 TEST-0000-000-214 PIC S9(13) COMP-3 4762 VALUE ZEROES. 4763 09 TEST-00000-000-215 PIC S9(2)V9(13) COMP-3 4764 VALUE ZEROES. 4765 09 TEST-0000-000-0000-216 4766 PIC X VALUE SPACES. 4767 09 TEST-000-0000-00-0217 4768 PIC X(30) VALUE SPACES. 4769 09 TEST-000-00-218 PIC X(6) VALUE SPACES. 4770 09 TEST-000-000-219 PIC X(2) VALUE \'D\'. 4771 06 TEST-000-000-0227. 4772 09 TEST-00000-0000-000-228 4773 PIC S9(2) COMP-3 4774 VALUE ZEROES. 4775 09 TEST-000000-0000-0-229 4776 PIC S9(13) COMP-3 4777 VALUE ZEROES. 4778 09 TEST-0000-00-000-231 4779 PIC S9(6) COMP-3 4780 VALUE ZEROES. 4781 09 TEST-0000-0000-00-233 4782 PIC X(6) VALUE SPACES. 4783 09 TEST-0000-00000-00-234 4784 PIC X(5) VALUE SPACES. 4785 09 TEST-0000-000-00-235 4786 PIC X VALUE SPACES. 4787 09 TEST-0000-236 PIC X(8) VALUE SPACES. 4788 09 TEST-0000-00-000-237 4789 PIC X VALUE SPACES. 4790 09 TEST-00-000-000-238 PIC X 4791 OCCURS 2 TIMES 4792 VALUE SPACES. 4793 09 TEST-0000-0000-000-239. 4794 12 TEST-0000-0000-000-240 4795 PIC S9(2) COMP-3 4796 OCCURS 5 TIMES 4797 VALUE ZEROES. 4798 12 TEST-0000-0000-000-241 4799 PIC X(40) 4800 OCCURS 5 TIMES 4801 VALUE SPACES. 4802 12 TEST-0000-0000-000-242 4803 PIC X(30) 4804 OCCURS 5 TIMES 4805 VALUE SPACES. 4806 12 TEST-0000-0000-000-243 4807 PIC X(25) 4808 OCCURS 5 TIMES 4809 VALUE SPACES. 4810 12 TEST-0000-0000-000-244 4811 PIC X(25) 4812 OCCURS 5 TIMES 4813 VALUE SPACES. 4814 12 TEST-0000-0000-000-245 4815 PIC X(20) 4816 OCCURS 5 TIMES 4817 VALUE SPACES. 4818 09 TEST-0000-0000-0000-246. 4819 12 TEST-0000-0000-257 4820 PIC S9(8) COMP-3 4821 VALUE ZEROES. 4822 12 TEST-0000-0000-0000-248 4823 PIC X(40) VALUE SPACES. 4824 12 TEST-0000-0000-0000-249 4825 PIC X(30) VALUE SPACES. 4826 12 TEST-0000-0000-0000-00250 4827 PIC X(25) VALUE SPACES. 4828 12 TEST-0000-0000-0000-0251 4829 PIC X(25) VALUE SPACES. 4830 12 TEST-0000-0000-0000-0252 4831 PIC X(20) VALUE SPACES. 4832 09 TEST-000-0253 PIC X(45) VALUE SPACES. 4833 09 TEST-0000-000-00-0254 4834 PIC X(30) VALUE SPACES. 4835 09 TEST-00-00000-0255 PIC X(25) VALUE SPACES. 4836 09 TEST-00000-0256 PIC X 4837 OCCURS 2 TIMES 4838 VALUE SPACES. 4839 09 TEST-0000-000-00-256 4840 PIC X VALUE SPACES. 4841 09 TEST-00-257 PIC X(7) VALUE SPACES. 4842 09 TEST-00-258 PIC X(15) VALUE SPACES. 4843 09 TEST-00000-0000-259 4844 OCCURS 2 TIMES. 4845 12 TEST-00000-0000-260 4846 PIC X(55) VALUE SPACES. 4847 12 TEST-00000-0000-261 4848 PIC X(110) VALUE SPACES. 4849 09 TEST-00000-0000-000-262 4850 PIC X(23) VALUE SPACES. 4851 09 TEST-00000-0000-0263 4852 PIC X(25) VALUE SPACES. 4853 03 TEST-0000-000-0000-264. 4854 06 TEST-0000-000-0000-0265. 4855 09 TEST-00000-000-266 PIC S9(2)V9(13) COMP-3 4856 VALUE ZEROES. 4857 09 TEST-000-00-000-267. 4858 12 TEST-999-002. 4859 15 TEST-0000-0000-000-268 4860 PIC X VALUE SPACES. 4861 15 TEST-9999-0000-000-004. 4862 18 TEST-0000-0000-269 4863 PIC X(35) VALUE SPACES. 4864 15 TEST-000-0000-000-270 4865 REDEFINES TEST-9999-0000-000-004. 4866 18 TEST-271 PIC X(3). 4867 18 TEST-272 PIC X(3). 4868 18 TEST-0000-273 PIC X(4). 4869 18 FILLER PIC X(25). 4870 15 TEST-00000-0000-000-274 4871 REDEFINES TEST-9999-0000-000-004. 4872 18 TEST-00000-000-275 4873 PIC X(2). 4874 18 TEST-00000-000-276. 4875 21 TEST-00000-000-277 4876 PIC X(10). 4877 21 TEST-00000-000-278 4878 PIC X(6). 4879 18 FILLER PIC X(17). 4880 15 TEST-000-000-000-279 4881 REDEFINES TEST-9999-0000-000-004. 4882 18 TEST-0000-000-280 4883 PIC X(6). 4884 18 FILLER PIC X(29). 4885 12 TEST-000-00-000-000-281 4886 REDEFINES TEST-999-002. 4887 15 TEST-0000-0000-0000-282 4888 PIC X. 4889 15 TEST-999-00-0000-000-003. 4890 18 TEST-00-283 PIC X(3). 4891 18 TEST-00-284 PIC X(3). 4892 18 TEST-00-0000-285 4893 PIC X(4). 4894 18 FILLER PIC X(25). 4895 15 TEST-000-00-000-000-286 4896 REDEFINES TEST-999-00-0000-000-003. 4897 18 FILLER PIC X(35). 4898 15 TEST-000-00-00000-0000-000-287 4899 REDEFINES TEST-999-00-0000-000-003. 4900 18 TEST-00000-000-288 4901 PIC X(2). 4902 18 TEST-000-00-00000-000-289. 4903 21 FILLER PIC X(16). 4904 18 FILLER PIC X(17). 4905 12 TEST-000-00-00000-000-290 4906 REDEFINES TEST-999-002. 4907 15 TEST-000-00-0000-291 4908 PIC X(30). 4909 15 TEST-00000-000-292 4910 PIC X(4). 4911 15 FILLER PIC X(2). 4912 09 TEST-00000-000-293 PIC X(8) VALUE SPACES. 4913 09 TEST-00000-0000-000-294 4914 PIC S9(3) COMP-3 4915 VALUE ZEROES. 4916 09 TEST-00000-00000-295 4917 PIC S9(3) COMP-3 4918 VALUE ZEROES. 4919 09 TEST-00000-000-296 PIC X(4) VALUE SPACES. 4920 09 TEST-00000-0000-00297 4921 PIC X VALUE SPACES. 4922 09 TEST-00000-000-298 PIC X VALUE SPACES. 4923 09 TEST-00000-0000-00-299 4924 PIC X(10) VALUE SPACES. 4925 09 TEST-00000-0000-00-300 4926 PIC X(10) VALUE SPACES. 4927 09 TEST-000-0000-000301. 4928 12 TEST-000-00-0000-302 4929 PIC X VALUE SPACES. 4930 12 TEST-000-000-303 4931 PIC X VALUE SPACES. 4932 12 TEST-000-0000-000-304 4933 PIC X(2) VALUE SPACES. 4934 12 TEST-000-305 PIC 9(5) VALUE ZEROES. 4935 12 TEST-000-000-00-306 4936 PIC X(10) VALUE SPACES. 4937 12 TEST-0000-00000-307 4938 PIC X VALUE \'N\'. 4939 09 TEST-000000-0000-308 4940 PIC S9(2) COMP-3 4941 VALUE ZEROES. 4942 09 TEST-000000-000-309 PIC S9(9)V9(4) COMP-3 4943 VALUE ZEROES. 4944 09 TEST-0000-0000-310 PIC X VALUE SPACES. 4945 09 TEST-0000-311 PIC X VALUE SPACES. 4946 09 TEST-0000-000-0-312 PIC S9(13) COMP-3 4947 VALUE ZEROES. 4948 09 TEST-0000-000-313 PIC X(10) VALUE SPACES. 4949 09 TEST-0000-000-314 PIC X VALUE SPACES. 4950 09 TEST-000-000-315 PIC X VALUE SPACES. 4951 09 TEST-00000-000-316 PIC S9(8) COMP-3 4952 VALUE ZEROES. 4953 09 TEST-00000-317 PIC X VALUE \'N\'. 4954 09 TEST-00000-318 PIC X VALUE SPACES. 4955 09 TEST-0000-000-0000-0000-319 4956 PIC X(8) VALUE SPACES. 4957 09 TEST-0000000-320 PIC X(2) VALUE SPACES. 4958 09 TEST-000-321 PIC S9(8)V9(5) COMP-3 4959 VALUE ZEROES. 4960 09 TEST-999-0000-1 PIC X(25) VALUE SPACES. 4961 09 TEST-00-00000-322 4962 REDEFINES TEST-999-0000-1. 4963 12 TEST-000000-000323 4964 PIC X(2). 4965 12 TEST-0000000-000-00324 4966 PIC 9(7)V9(2). 4967 12 FILLER PIC X(14). 4968 09 TEST-000-0-325 PIC S9(9) COMP-3 4969 VALUE ZEROES. 4970 09 TEST-000-0000-00000-326. 4971 12 TEST-000-327 PIC X(2) VALUE SPACES. 4972 12 TEST-000-328 PIC X(2) VALUE SPACES. 4973 12 TEST-0000-00329 PIC X(2) VALUE SPACES. 4974 09 TEST-000-0000-0000-330. 4975 12 TEST-0000-00-331 4976 PIC X(2) VALUE SPACES. 4977 12 TEST-000-000-332 4978 PIC X(2) VALUE SPACES. 4979 12 TEST-000-0333 PIC X VALUE SPACES. 4980 12 TEST-000000-0334 4981 PIC X(3) VALUE SPACES. 4982 09 TEST-0000000-000-335. 4983 12 TEST-0000000-336 4984 PIC X VALUE SPACES. 4985 12 TEST-0000-365 PIC X(2) VALUE SPACES. 4986 09 TEST-0000000-00337 PIC X(2) VALUE SPACES. 4987 09 TEST-000000-000000-338 4988 PIC 9(10) VALUE ZEROES. 4989 09 TEST-00000-0000-339 PIC X VALUE SPACES. 4990 09 TEST-000-340 PIC X(5) VALUE SPACES. 4991 09 TEST-000-341 PIC X(5) VALUE SPACES. 4992 09 TEST-000-342 PIC X(5) VALUE SPACES. 4993 09 TEST-0000-000-343 PIC X(8) VALUE SPACES. 4994 09 TEST-00000-0000-345 PIC X(8) VALUE SPACES. 4995 09 TEST-000000-356 PIC X VALUE SPACES. 4996 09 TEST-000-347 PIC X VALUE SPACES. 4997 09 TEST-0000-000-348 PIC X VALUE SPACES. 4998 09 TEST-000-0000-000-349 4999 PIC X(5) VALUE SPACES. 5000 09 TEST-000-000-0350 PIC X(8) VALUE SPACES. 5001 09 TEST-000-000-0351 PIC X(8) VALUE SPACES. 5002 09 TEST-00-0000-352 PIC X(2) VALUE SPACES. 5003 09 TEST-00-00000-0353 PIC X(2) VALUE SPACES. 5004 09 TEST-0000-0000-00-354 5005 PIC X(4) VALUE SPACES. 5006 09 TEST-00000-0000-355 PIC X VALUE SPACES. 5007 09 TEST-0000-00000-0000-356 5008 PIC X VALUE SPACES. 5009 09 TEST-000000-0000-357 5010 PIC X(2) VALUE SPACES. 5011 09 TEST-000-358 PIC X VALUE SPACES. 5012 09 TEST-00-0000-000-359 5013 PIC X(2) VALUE SPACES. 5014 06 TEST-00000-000-0000-0360. 5015 09 TEST-00000-0000-0361 5016 PIC X(50) VALUE SPACES. 5017 09 TEST-00000-0000-00-362 5018 PIC X(10) VALUE SPACES. 5019 09 TEST-0000-000-000-363 5020 PIC S9(4) COMP-3 5021 VALUE ZEROES. 5022 09 TEST-0000-000-364 PIC S9(3)V9(12) COMP-3 5023 VALUE ZEROES.' 5024 OUTPUT - $'TEST_000_000_002\t0\t2\t0\tbe_t 5025TEST_000_0000_003\t2\t306\t0\tstruct 5026TEST_0000_000_0000_0004\t2\t303\t0\tstruct 5027TEST_00000_000_005\t2\t23\t0\tstruct 5028TEST_0000_06\t2\t10\t0\tstring 5029TEST_0000_07\t12\t7\t0\tbcd_t 5030TEST_0000_000_00_008\t19\t17\t0\tstruct 5031TEST_0000_000_0009\t19\t7\t0\tbcd_t 5032TEST_000_0000_0010\t26\t2\t0\tstring 5033TEST_000_29\t28\t2\t0\tstring 5034TEST_000_000_000_0031\t30\t1\t0\tstring 5035TEST_00_000_0000_036\t31\t2\t0\tbcd_t 5036TEST_000_0000_37\t33\t38\t0\tstring 5037TEST_000_00_000_038\t71\t2\t0\tbe_t 5038TEST_00000_000_000_0039\t73\t1\t0\tstring 5039TEST_0000_000_000_42\t74\t3\t0\tbcd_t 5040TEST_000_000_0000_043\t77\t27\t0\tstruct 5041TEST_000_000_000_0044\t77\t13\t0\tstring 5042TEST_000_000_000_0045\t90\t13\t0\tstring 5043TEST_0000_0000_046\t103\t1\t0\tstring 5044TEST_000_0000_0000_047\t104\t130\t0\tstruct 5045TEST_0000_00000_0000_048\t104\t80\t0\tstruct 5046TEST_0000_00000_049\t104\t80\t0\tstring 5047TEST_0000_0000_050\t184\t50\t0\tstruct 5048TEST_0000_0000_051\t184\t250\t5\tstruct 5049FILLER\t184\t50\t0\tstring 5050TEST_0000_00_000_000_053\t434\t3\t0\tbcd_t 5051TEST_000_00000_0000_054\t437\t50\t0\tstruct 5052TEST_00000_0000_056\t437\t50\t0\tstruct 5053TEST_0000_0000_057\t437\t250\t5\tstruct 5054FILLER_2\t437\t50\t0\tstring 5055TEST_000_000_000_059\t687\t2\t0\tbcd_t 5056TEST_000_000_0000_060\t689\t2653\t0\tstruct 5057TEST_000_000_0061\t689\t1043\t0\tstruct 5058TEST_000_062\t689\t49\t0\tstruct 5059TEST_0000_000_63\t689\t19\t0\tstruct 5060TEST_0000_000000_64\t689\t8\t0\tstring 5061TEST_000_000_065\t697\t8\t0\tunsigned 5062TEST_000_000_066\t705\t2\t0\tbcd_t 5063TEST_000_000_067\t707\t3\t0\tbcd_t 5064TEST_0000_000_68\t710\t26\t0\tstruct 5065TEST_0000_00\t710\t10\t0\tstring 5066TEST_0000_000_069\t720\t7\t0\tbcd_t 5067TEST_000_070\t727\t3\t0\tstring 5068TEST_000_0071\t730\t3\t0\tstring 5069TEST_00000_0072\t733\t2\t0\tstring 5070TEST_0000_0000_73\t735\t5\t0\tbcd_t 5071TEST_00_074\t740\t1\t0\tstring 5072TEST_00_000_0000_75\t741\t2\t0\tstring 5073TEST_000_00_0000_076\t743\t1\t0\tstring 5074TEST_00000_00_0077\t744\t6\t0\tstring 5075TEST_0000_000_000_078\t750\t1\t0\tstring 5076TEST_000_0000_0000_000079\t751\t356\t0\tstruct 5077TEST_0000_0000_80\t751\t281\t0\tstruct 5078TEST_999_002\t751\t141\t0\tstruct 5079TEST_0000_0000_0000_81\t751\t1\t0\tstring 5080TEST_9999_0000_000_004\t752\t35\t0\tstruct 5081TEST_0000_0000_082\t752\t35\t0\tstring 5082TEST_000_0000_000_083\t752\t35\t0\tstruct 5083TEST_084\t752\t3\t0\tstring 5084TEST_085\t755\t3\t0\tstring 5085TEST_0000_086\t758\t4\t0\tstring 5086FILLER_3\t762\t25\t0\tstring 5087TEST_00000_0000_000_087\t752\t35\t0\tstruct 5088TEST_00000_000_088\t752\t2\t0\tstring 5089TEST_00000_000_089\t754\t16\t0\tstruct 5090TEST_00000_000_090\t754\t10\t0\tstring 5091TEST_00000_000_091\t764\t6\t0\tstring 5092FILLER_4\t770\t17\t0\tstring 5093TEST_000_000_000_092\t752\t35\t0\tstruct 5094TEST_0000_000_093\t752\t6\t0\tstring 5095FILLER_5\t758\t29\t0\tstring 5096TEST_0000_0000_000_000_094\t751\t140\t0\tstruct 5097TEST_0000_0000_0000_095\t751\t1\t0\tstring 5098TEST_9999_0000_000_005\t752\t35\t0\tstruct 5099TEST_0000_096\t752\t3\t0\tstring 5100TEST_0000_097\t755\t3\t0\tstring 5101TEST_0000_0000_098\t758\t4\t0\tstring 5102FILLER_6\t762\t25\t0\tstring 5103TEST_0000_000_000_099\t752\t35\t0\tstruct 5104TEST_0000_000_100\t752\t10\t0\tstring 5105FILLER_7\t762\t25\t0\tstring 5106TEST_0000_00000_0000_000_101\t752\t35\t0\tstruct 5107TEST_00000_000_102\t752\t2\t0\tstring 5108TEST_0000_00000_000_103\t754\t16\t0\tstruct 5109FILLER_8\t754\t16\t0\tstring 5110FILLER_9\t770\t17\t0\tstring 5111TEST_0000_00000_000_104\t752\t34\t0\tstruct 5112TEST_0000_0000_0000_105\t752\t30\t0\tstring 5113TEST_00000_000_106\t782\t4\t0\tstring 5114TEST_0000_0000_0_107\t787\t7\t0\tbcd_t 5115TEST_0000_000_0_108\t794\t7\t0\tbcd_t 5116TEST_0000_000_109\t801\t7\t0\tbcd_t 5117TEST_0000_0_110\t808\t7\t0\tbcd_t 5118TEST_00000_0111\t815\t4\t0\tstring 5119TEST_000_0000_0112\t819\t13\t0\tunsigned 5120TEST_00_113\t832\t2\t0\tstring 5121TEST_00000_000_114\t834\t4\t2\tstring 5122TEST_0000_000_115\t838\t5\t0\tbcd_t 5123TEST_000_0000_00116\t843\t41\t0\tstruct 5124TEST_0000_000_117\t843\t8\t0\tstring 5125TEST_0000_00000_118\t851\t8\t0\tstring 5126TEST_0000_0000_0000_119\t859\t5\t0\tstruct 5127TEST_0000_0000_0000_120\t859\t25\t5\tstruct 5128TEST_0000_0000_000_121\t859\t1\t0\tstring 5129TEST_0000_0000_00_122\t860\t4\t0\tstring 5130TEST_0000_000_123\t884\t8\t0\tstring 5131TEST_0000_000_124\t892\t8\t0\tstring 5132TEST_0000_0000_00_125\t900\t1\t0\tstring 5133TEST_000_000126\t901\t2\t0\tbcd_t 5134TEST_0000_00000_000_127\t903\t2\t0\tbcd_t 5135TEST_0000_0000_128\t905\t292\t0\tstruct 5136TEST_0000_00129\t905\t54\t6\tbcd_t 5137TEST_0000_131\t959\t45\t5\tbcd_t 5138TEST_0000_133\t1004\t56\t7\tbcd_t 5139TEST_000_0000_135\t1060\t30\t0\tstruct 5140TEST_00000_0_136\t1060\t10\t0\tstring 5141TEST_000_00_137\t1070\t10\t0\tstring 5142TEST_000_00_138\t1080\t10\t0\tstring 5143TEST_00_139\t1090\t5\t0\tstring 5144TEST_000_00000_0140\t1095\t14\t0\tstruct 5145TEST_000000_00_0000_141\t1095\t2\t0\tstring 5146TEST_00000_00_0000_142\t1097\t2\t0\tstring 5147TEST_000000_0143\t1099\t3\t0\tstring 5148TEST_00000_0144\t1102\t3\t0\tstring 5149TEST_00_145\t1105\t4\t0\tstring 5150TEST_0000_146\t1109\t1\t0\tstring 5151TEST_000000_00000_00_0146\t1110\t5\t0\tstring 5152TEST_000000_0147\t1115\t5\t0\tbcd_t 5153TEST_0000_0000_148\t1120\t1\t0\tstring 5154TEST_00000_0149\t1121\t1\t0\tstring 5155TEST_00000_0000_150\t1122\t1\t0\tstring 5156TEST_0000_00000_000_0151\t1123\t49\t0\tstruct 5157TEST_0000_00000_0152\t1123\t8\t0\tbcd_t 5158TEST_0000000_00000_0153\t1131\t8\t0\tbcd_t 5159TEST_00000_154\t1139\t6\t0\tbcd_t 5160TEST_0000_0000_0000_155\t1145\t5\t0\tbcd_t 5161TEST_000000_156\t1150\t8\t0\tbcd_t 5162TEST_0000_0000_157\t1158\t1\t0\tstring 5163TEST_000000_0000_158\t1159\t13\t0\tstruct 5164TEST_000000_0159\t1159\t3\t0\tbcd_t 5165TEST_0000_160\t1162\t9\t0\tstring 5166TEST_000_000_161\t1171\t126\t0\tstruct 5167TEST_00_000_00_162\t1171\t2\t0\tstring 5168TEST_00000_000163\t1173\t58\t0\tstruct 5169TEST_000_00000_164\t1173\t1\t0\tstring 5170TEST_000_00000_00_165\t1174\t13\t0\tstruct 5171TEST_00_166\t1174\t2\t0\tstring 5172TEST_0000_167\t1176\t2\t0\tstring 5173TEST_000_168\t1178\t3\t0\tstring 5174TEST_000_169\t1181\t4\t0\tstring 5175TEST_000000_170\t1185\t2\t0\tstring 5176TEST_000_171\t1187\t1\t0\tstring 5177TEST_000_172\t1188\t5\t0\tstring 5178TEST_0000_00_0173\t1193\t2\t0\tstring 5179TEST_0000000_000_174\t1195\t1\t0\tstring 5180TEST_0000_175\t1196\t1\t0\tstring 5181TEST_000_0000000_176\t1197\t2\t0\tstring 5182TEST_0000_00_0177\t1199\t1\t0\tstring 5183TEST_0000_000_178\t1200\t2\t0\tstring 5184TEST_0000000_000_0179\t1202\t2\t0\tstring 5185TEST_0000_000_180\t1204\t7\t0\tunsigned 5186TEST_0000_0000_0000_181\t1211\t8\t0\tunsigned 5187TEST_000_000_000_00182\t1219\t7\t0\tunsigned 5188TEST_000_000183\t1226\t2\t0\tstring 5189TEST_000_0184\t1228\t1\t0\tstring 5190TEST_000_000_185\t1229\t1\t0\tstring 5191TEST_0000_00_186\t1230\t1\t0\tstring 5192TEST_00000_0000187\t1231\t36\t0\tstruct 5193TEST_0000_000_188\t1231\t10\t0\tstring 5194TEST_00000_000_189\t1241\t4\t0\tstring 5195TEST_000_00000_190\t1245\t5\t0\tstruct 5196TEST_0000000_000_00191\t1245\t1\t0\tstring 5197TEST_00000_000_00192\t1246\t1\t0\tstring 5198TEST_0000_000_00193\t1247\t1\t0\tstring 5199TEST_000000_000_00194\t1248\t1\t0\tstring 5200TEST_0000000_000_00195\t1249\t1\t0\tstring 5201TEST_0000_00_196\t1250\t2\t0\tstring 5202TEST_0000_0000_197\t1252\t8\t0\tbcd_t 5203TEST_0000_0198\t1260\t4\t0\tstring 5204TEST_0000_0199\t1264\t4\t0\tstring 5205TEST_000_000_200\t1268\t10\t0\tbcd_t 5206TEST_000_00_000201\t1278\t2\t0\tbe_t 5207TEST_000_000_0202\t1280\t370\t0\tstruct 5208TEST_0000_00000_203\t1280\t80\t0\tstring 5209TEST_0000_00000_0204\t1360\t150\t0\tstruct 5210TEST_0000_0000_0205\t1360\t30\t0\tstring 5211TEST_0000_0000_0206\t1390\t30\t0\tstring 5212TEST_0000_207\t1420\t30\t0\tstring 5213TEST_000_0000_0208\t1450\t30\t0\tstring 5214TEST_0000_00_00000_0209\t1480\t30\t0\tstring 5215TEST_0210\t1510\t6\t0\tbcd_t 5216TEST_00000_00000_00_211\t1516\t2\t0\tbcd_t 5217TEST_0000_000_212\t1518\t30\t0\tstring 5218TEST_00000_00000_0213\t1548\t30\t0\tstring 5219TEST_0000_000_214\t1578\t7\t0\tbcd_t 5220TEST_00000_000_215\t1585\t8\t0\tbcd_t 5221TEST_0000_000_0000_216\t1593\t1\t0\tstring 5222TEST_000_0000_00_0217\t1594\t30\t0\tstring 5223TEST_000_00_218\t1624\t6\t0\tstring 5224TEST_000_000_219\t1630\t2\t0\tstring 5225TEST_000_000_0227\t1632\t1240\t0\tstruct 5226TEST_00000_0000_000_228\t1632\t2\t0\tbcd_t 5227TEST_000000_0000_0_229\t1634\t7\t0\tbcd_t 5228TEST_0000_00_000_231\t1641\t4\t0\tbcd_t 5229TEST_0000_0000_00_233\t1645\t6\t0\tstring 5230TEST_0000_00000_00_234\t1651\t5\t0\tstring 5231TEST_0000_000_00_235\t1656\t1\t0\tstring 5232TEST_0000_236\t1657\t8\t0\tstring 5233TEST_0000_00_000_237\t1665\t1\t0\tstring 5234TEST_00_000_000_238\t1666\t2\t2\tstring 5235TEST_0000_0000_000_239\t1668\t710\t0\tstruct 5236TEST_0000_0000_000_240\t1668\t10\t5\tbcd_t 5237TEST_0000_0000_000_241\t1678\t200\t5\tstring 5238TEST_0000_0000_000_242\t1878\t150\t5\tstring 5239TEST_0000_0000_000_243\t2028\t125\t5\tstring 5240TEST_0000_0000_000_244\t2153\t125\t5\tstring 5241TEST_0000_0000_000_245\t2278\t100\t5\tstring 5242TEST_0000_0000_0000_246\t2378\t148\t0\tstruct 5243TEST_0000_0000_257\t2378\t5\t0\tbcd_t 5244TEST_0000_0000_0000_248\t2383\t40\t0\tstring 5245TEST_0000_0000_0000_249\t2423\t30\t0\tstring 5246TEST_0000_0000_0000_00250\t2453\t25\t0\tstring 5247TEST_0000_0000_0000_0251\t2478\t25\t0\tstring 5248TEST_0000_0000_0000_0252\t2503\t20\t0\tstring 5249TEST_000_0253\t2523\t45\t0\tstring 5250TEST_0000_000_00_0254\t2568\t30\t0\tstring 5251TEST_00_00000_0255\t2598\t25\t0\tstring 5252TEST_00000_0256\t2623\t2\t2\tstring 5253TEST_0000_000_00_256\t2625\t1\t0\tstring 5254TEST_00_257\t2626\t7\t0\tstring 5255TEST_00_258\t2633\t15\t0\tstring 5256TEST_00000_0000_259\t2648\t330\t2\tstruct 5257TEST_00000_0000_260\t2648\t55\t0\tstring 5258TEST_00000_0000_261\t2703\t110\t0\tstring 5259TEST_00000_0000_000_262\t2978\t23\t0\tstring 5260TEST_00000_0000_0263\t3001\t25\t0\tstring 5261TEST_0000_000_0000_264\t3026\t671\t0\tstruct 5262TEST_0000_000_0000_0265\t3026\t592\t0\tstruct 5263TEST_00000_000_266\t3026\t8\t0\tbcd_t 5264TEST_000_00_000_267\t3034\t283\t0\tstruct 5265TEST_999_002_2\t3034\t141\t0\tstruct 5266TEST_0000_0000_000_268\t3034\t1\t0\tstring 5267TEST_9999_0000_000_004_2\t3035\t35\t0\tstruct 5268TEST_0000_0000_269\t3035\t35\t0\tstring 5269TEST_000_0000_000_270\t3035\t35\t0\tstruct 5270TEST_271\t3035\t3\t0\tstring 5271TEST_272\t3038\t3\t0\tstring 5272TEST_0000_273\t3041\t4\t0\tstring 5273FILLER_10\t3045\t25\t0\tstring 5274TEST_00000_0000_000_274\t3035\t35\t0\tstruct 5275TEST_00000_000_275\t3035\t2\t0\tstring 5276TEST_00000_000_276\t3037\t16\t0\tstruct 5277TEST_00000_000_277\t3037\t10\t0\tstring 5278TEST_00000_000_278\t3047\t6\t0\tstring 5279FILLER_11\t3053\t17\t0\tstring 5280TEST_000_000_000_279\t3035\t35\t0\tstruct 5281TEST_0000_000_280\t3035\t6\t0\tstring 5282FILLER_12\t3041\t29\t0\tstring 5283TEST_000_00_000_000_281\t3034\t106\t0\tstruct 5284TEST_0000_0000_0000_282\t3034\t1\t0\tstring 5285TEST_999_00_0000_000_003\t3035\t35\t0\tstruct 5286TEST_00_283\t3035\t3\t0\tstring 5287TEST_00_284\t3038\t3\t0\tstring 5288TEST_00_0000_285\t3041\t4\t0\tstring 5289FILLER_13\t3045\t25\t0\tstring 5290TEST_000_00_000_000_286\t3035\t35\t0\tstruct 5291FILLER_14\t3035\t35\t0\tstring 5292TEST_000_00_00000_0000_000_287\t3035\t35\t0\tstruct 5293TEST_00000_000_288\t3035\t2\t0\tstring 5294TEST_000_00_00000_000_289\t3037\t16\t0\tstruct 5295FILLER_15\t3037\t16\t0\tstring 5296FILLER_16\t3053\t17\t0\tstring 5297TEST_000_00_00000_000_290\t3034\t36\t0\tstruct 5298TEST_000_00_0000_291\t3034\t30\t0\tstring 5299TEST_00000_000_292\t3064\t4\t0\tstring 5300FILLER_17\t3068\t2\t0\tstring 5301TEST_00000_000_293\t3070\t8\t0\tstring 5302TEST_00000_0000_000_294\t3078\t2\t0\tbcd_t 5303TEST_00000_00000_295\t3080\t2\t0\tbcd_t 5304TEST_00000_000_296\t3082\t4\t0\tstring 5305TEST_00000_0000_00297\t3086\t1\t0\tstring 5306TEST_00000_000_298\t3087\t1\t0\tstring 5307TEST_00000_0000_00_299\t3088\t10\t0\tstring 5308TEST_00000_0000_00_300\t3098\t10\t0\tstring 5309TEST_000_0000_000301\t3108\t20\t0\tstruct 5310TEST_000_00_0000_302\t3108\t1\t0\tstring 5311TEST_000_000_303\t3109\t1\t0\tstring 5312TEST_000_0000_000_304\t3110\t2\t0\tstring 5313TEST_000_305\t3112\t5\t0\tunsigned 5314TEST_000_000_00_306\t3117\t10\t0\tstring 5315TEST_0000_00000_307\t3127\t1\t0\tstring 5316TEST_000000_0000_308\t3128\t2\t0\tbcd_t 5317TEST_000000_000_309\t3130\t7\t0\tbcd_t 5318TEST_0000_0000_310\t3137\t1\t0\tstring 5319TEST_0000_311\t3138\t1\t0\tstring 5320TEST_0000_000_0_312\t3139\t7\t0\tbcd_t 5321TEST_0000_000_313\t3146\t10\t0\tstring 5322TEST_0000_000_314\t3156\t1\t0\tstring 5323TEST_000_000_315\t3157\t1\t0\tstring 5324TEST_00000_000_316\t3158\t5\t0\tbcd_t 5325TEST_00000_317\t3163\t1\t0\tstring 5326TEST_00000_318\t3164\t1\t0\tstring 5327TEST_0000_000_0000_0000_319\t3165\t8\t0\tstring 5328TEST_0000000_320\t3173\t2\t0\tstring 5329TEST_000_321\t3175\t7\t0\tbcd_t 5330TEST_999_0000_1\t3182\t25\t0\tstring 5331TEST_00_00000_322\t3182\t25\t0\tstruct 5332TEST_000000_000323\t3182\t2\t0\tstring 5333TEST_0000000_000_00324\t3184\t10\t0\tunsigned 5334FILLER_18\t3194\t14\t0\tstring 5335TEST_000_0_325\t3208\t5\t0\tbcd_t 5336TEST_000_0000_00000_326\t3213\t6\t0\tstruct 5337TEST_000_327\t3213\t2\t0\tstring 5338TEST_000_328\t3215\t2\t0\tstring 5339TEST_0000_00329\t3217\t2\t0\tstring 5340TEST_000_0000_0000_330\t3219\t8\t0\tstruct 5341TEST_0000_00_331\t3219\t2\t0\tstring 5342TEST_000_000_332\t3221\t2\t0\tstring 5343TEST_000_0333\t3223\t1\t0\tstring 5344TEST_000000_0334\t3224\t3\t0\tstring 5345TEST_0000000_000_335\t3227\t3\t0\tstruct 5346TEST_0000000_336\t3227\t1\t0\tstring 5347TEST_0000_365\t3228\t2\t0\tstring 5348TEST_0000000_00337\t3230\t2\t0\tstring 5349TEST_000000_000000_338\t3232\t10\t0\tunsigned 5350TEST_00000_0000_339\t3242\t1\t0\tstring 5351TEST_000_340\t3243\t5\t0\tstring 5352TEST_000_341\t3248\t5\t0\tstring 5353TEST_000_342\t3253\t5\t0\tstring 5354TEST_0000_000_343\t3258\t8\t0\tstring 5355TEST_00000_0000_345\t3266\t8\t0\tstring 5356TEST_000000_356\t3274\t1\t0\tstring 5357TEST_000_347\t3275\t1\t0\tstring 5358TEST_0000_000_348\t3276\t1\t0\tstring 5359TEST_000_0000_000_349\t3277\t5\t0\tstring 5360TEST_000_000_0350\t3282\t8\t0\tstring 5361TEST_000_000_0351\t3290\t8\t0\tstring 5362TEST_00_0000_352\t3298\t2\t0\tstring 5363TEST_00_00000_0353\t3300\t2\t0\tstring 5364TEST_0000_0000_00_354\t3302\t4\t0\tstring 5365TEST_00000_0000_355\t3306\t1\t0\tstring 5366TEST_0000_00000_0000_356\t3307\t1\t0\tstring 5367TEST_000000_0000_357\t3308\t2\t0\tstring 5368TEST_000_358\t3310\t1\t0\tstring 5369TEST_00_0000_000_359\t3311\t2\t0\tstring 5370TEST_00000_000_0000_0360\t3313\t79\t0\tstruct 5371TEST_00000_0000_0361\t3313\t50\t0\tstring 5372TEST_00000_0000_00_362\t3363\t10\t0\tstring 5373TEST_0000_000_000_363\t3373\t3\t0\tbcd_t 5374TEST_0000_000_364\t3376\t8\t0\tbcd_t 5375.\t3384\t0\t0\tstruct' 5376 5377TEST 05 'SYNC alignment' 5378 5379 EXEC --regress --offsets 5380 INPUT - $' 01 TEST. 5381 05 FLAG PIC X. 5382 05 STAT PIC 9(8) COMP SYNC. 5383 05 CHAR PIC X. 5384 05 NUMB PIC 9(2) COMP SYNC. 5385 05 LAST PIC X.' 5386 OUTPUT - $'FLAG\t0\t1\t0\tstring 5387STAT\t4\t4\t0\tbe_t 5388CHAR\t8\t1\t0\tstring 5389NUMB\t10\t1\t0\tbe_t 5390LAST\t11\t1\t0\tstring 5391.\t12\t0\t0\tstruct' 5392 5393 EXEC --regress 5394 OUTPUT - $'<METHOD>flat</> 5395<FLAT> 5396 <NAME>TEST</> 5397 <DESCRIPTION>converted by cpy2dss from copybook standard input</> 5398 <IDENT>@(#)$Id: TEST (AT&T Research) 2005-07-17 $</> 5399 <LIBRARY>num_t</> 5400 <FIELD> 5401 <NAME>FLAG</> 5402 <TYPE>string</> 5403 <PHYSICAL> 5404 <CODESET>ebcdic-m</> 5405 <WIDTH>1</> 5406 </> 5407 </> 5408 <FIELD> 5409 <NAME>STAT</> 5410 <TYPE>unsigned number</> 5411 <PHYSICAL> 5412 <TYPE>be_t</> 5413 <ALIGN>4</> 5414 <WIDTH>4</> 5415 </> 5416 </> 5417 <FIELD> 5418 <NAME>CHAR</> 5419 <TYPE>string</> 5420 <PHYSICAL> 5421 <CODESET>ebcdic-m</> 5422 <WIDTH>1</> 5423 </> 5424 </> 5425 <FIELD> 5426 <NAME>NUMB</> 5427 <TYPE>unsigned number</> 5428 <PHYSICAL> 5429 <TYPE>be_t</> 5430 <ALIGN>2</> 5431 <WIDTH>1</> 5432 </> 5433 </> 5434 <FIELD> 5435 <NAME>LAST</> 5436 <TYPE>string</> 5437 <PHYSICAL> 5438 <CODESET>ebcdic-m</> 5439 <WIDTH>1</> 5440 </> 5441 </> 5442</>' 5443 5444TEST 06 'variations on a PIC' 5445 5446 EXEC --regress 5447 INPUT - $' 01 WS-RECURING-REC. 000'\ 5448$'40920 5449 03 WS-RECURING-TEN-BYTES PIC 9(10). 0004'\ 5450$'0930 5451 03 WS-RECURING-TWO-BYTES PIC X(02) VALUE \'01\'. 00'\ 5452$'040940 5453 03 WS-RECURING-DTL-ID PIC X VALUE \'5\'. 00'\ 5454$'040950 5455 03 WS-RECURING-REC-TYPE-CD PIC X(2) VALUE \'29\'. 00'\ 5456$'040960 5457 03 WS-RECURING-HIER-KEY-GRP . 0004'\ 5458$'0970 5459 05 WS-RECURING-HIER-ID PIC S9(13) COMP-3 0004'\ 5460$'0980 5461 VALUE ZEROES. 0004'\ 5462$'0990 5463 05 WS-RECURING-HIER-PT-ID PIC S9(13) COMP-3 0004'\ 5464$'1000 5465 VALUE ZEROES. 0004'\ 5466$'1010 5467 05 WS-RECURING-HIER-LVL-NBR 0004'\ 5468$'1020 5469 PIC S9(2) COMP-3 0004'\ 5470$'1030 5471 VALUE ZEROES. 0004'\ 5472$'1040 5473 05 WS-RECURING-HIER-PRORD-KEY 0004'\ 5474$'1050 5475 PIC X(80) VALUE SPACES. 0004'\ 5476$'1060 5477 05 WS-RECURING-HIER-PT-SEQ-NBR 0004'\ 5478$'1070 5479 PIC S9(6) COMP-3 0004'\ 5480$'1080 5481 VALUE ZEROES. 0004'\ 5482$'1090 5483 05 WS-RECURING-BUS-ARGT PIC S9(13) COMP-3 0004'\ 5484$'1100 5485 VALUE ZEROES. 0004'\ 5486$'1110 5487 03 WS-RECURING-REC-GRP. 0004'\ 5488$'1120 5489 10 WS-RECURING-SVCARRID PIC X(55) VALUE SPACES. 0004'\ 5490$'1130 5491 10 WS-RECURING-PFAMFK PIC 9(04) VALUE ZEROES. 0004'\ 5492$'1140 5493 10 WS-RECURING-PTYPFK PIC 9(04) VALUE ZEROES. 0004'\ 5494$'1150 5495 10 WS-RECURING-CHGGFK PIC 9(04) VALUE ZEROES. 0004'\ 5496$'1160 5497 10 WS-RECURING-TRANFK PIC 9(08) VALUE ZEROES. 0004'\ 5498$'1170 5499 10 WS-RECURING-CHGDESC PIC X(30) VALUE SPACES. 0004'\ 5500$'1180 5501 10 WS-RECURING-QUANTITY PIC 9(11).999 VALUE ZEROES.0004'\ 5502$'1190 5503 10 WS-RECURING-UNITPRICE PIC -9(8).99 VALUE ZEROES.0004'\ 5504$'1200 5505 10 WS-RECURING-REGELIGCHG PIC -9(8).99 VALUE ZEROES.0004'\ 5506$'1210 5507 10 WS-RECURING-PREDSCCHG PIC -9(8).99 VALUE ZEROES.0004'\ 5508$'1220 5509 10 WS-RECURING-DSCAMOUNT PIC -9(8).99 VALUE ZEROES.0004'\ 5510$'1230 5511 10 WS-RECURING-TAXAMOUNT PIC -9(8).99 VALUE ZEROES.0004'\ 5512$'1240 5513 10 WS-RECURING-FROM-DATE PIC 9(8) VALUE ZEROES. 0004'\ 5514$'1250 5515 10 WS-RECURING-TO-DATE PIC 9(8) VALUE ZEROES. 0004'\ 5516$'1260 5517 10 WS-RECURING-LEGEND1FK PIC X(02) VALUE SPACES. 0004'\ 5518$'1270 5519 10 WS-RECURING-LEGEND2FK PIC X(02) VALUE SPACES. 0004'\ 5520$'1280 5521 10 WS-RECURING-GIRN PIC 9(10) VALUE ZEROES. 0004'\ 5522$'1290 5523 10 WS-RECURING-WW-CIRCT PIC X(30). 0004'\ 5524$'1300 5525 10 WS-RECURING-EXCH-RATE PIC -9(3).9(6). 0004'\ 5526$'1310 5527 10 WS-RECURING-CURRENCY-NM PIC X(30). 0004'\ 5528$'1320 5529 10 WS-RECURING-ATTCO-1-CITY PIC X(27). 0004'\ 5530$'1330 5531 10 WS-RECURING-ATTCO-1-STATE PIC X(02). 0004'\ 5532$'1340 5533 10 WS-RECURING-ATTCO-2-CITY PIC X(27). 0004'\ 5534$'1350 5535 10 WS-RECURING-ATTCO-2-STATE PIC X(02). 0004'\ 5536$'1360 5537 10 WS-RECURING-DIST-IN-CHNL PIC 9(05). 0004'\ 5538$'1370 5539 10 WS-RECURING-CUST-NM PIC X(27). 0004'\ 5540$'1380 5541 10 WS-RECURING-INTER-CORP-CD PIC X(01). 0004'\ 5542$'1390 5543 10 WS-RECURING-PL-CNTRY-CD-1 PIC X(02). 0004'\ 5544$'1400 5545 10 WS-RECURING-PL-CNTRY-CD-2 PIC X(02). 0004'\ 5546$'1410 5547 10 WS-RECURING-BIT-STA-DT PIC X(8) 0004'\ 5548$'1420 5549 VALUE SPACES. 0004'\ 5550$'1430 5551 10 WS-RECURING-CPI-CANC-DT PIC X(8) 0004'\ 5552$'1440 5553 VALUE SPACES. 0004'\ 5554$'1450 5555 10 WS-RECURING-CONTRACT-NBR PIC X(8) 0004'\ 5556$'1460 5557 VALUE SPACES. 0004'\ 5558$'1470 5559 10 WS-RECURING-CHRG-CLSS-TEXT PIC X(45) 0004'\ 5560$'1480 5561 VALUE SPACES. 0004'\ 5562$'1490 5563 10 WS-RECURING-CHRG-CLSS-SORT-CD PIC X(2) 0004'\ 5564$'1500 5565 VALUE SPACES. 0004'\ 5566$'1510 5567 10 WS-RECURING-CHRG-CLSS-DESC PIC X(45) 0004'\ 5568$'1520 5569 VALUE SPACES. 0004'\ 5570$'1530 5571 10 WS-RECURING-DISC-PLAN-NAME-1 PIC X(50) 0004'\ 5572$'1540 5573 VALUE SPACES. 0004'\ 5574$'1550 5575 10 WS-RECURING-DISC-PCT-OFF-1 PIC 9(3).9(2) 0004'\ 5576$'1560 5577 VALUE ZERO. 0004'\ 5578$'1570 5579 10 WS-RECURING-DISC-PLAN-NAME-2 PIC X(50) 0004'\ 5580$'1580 5581 VALUE SPACES. 0004'\ 5582$'1590 5583 10 WS-RECURING-DISC-PCT-OFF-2 PIC 9(3).9(2) 0004'\ 5584$'1600 5585 VALUE ZERO. 0004'\ 5586$'1610 5587 10 WS-RECURING-DISC-PLAN-NAME-3 PIC X(50) 0004'\ 5588$'1620 5589 VALUE SPACES. 0004'\ 5590$'1630 5591 10 WS-RECURING-DISC-PCT-OFF-3 PIC 9(3).9(2) 0004'\ 5592$'1640 5593 VALUE ZERO. 0004'\ 5594$'1650 5595 10 WS-RECURING-DISC-PLAN-NAME-4 PIC X(50) 0004'\ 5596$'1660 5597 VALUE SPACES. 0004'\ 5598$'1670 5599 10 WS-RECURING-DISC-PCT-OFF-4 PIC 9(3).9(2) 0004'\ 5600$'1680 5601 VALUE ZERO. 0004'\ 5602$'1690 5603 10 WS-RECURING-DISC-PLAN-NAME-5 PIC X(50) 0004'\ 5604$'1700 5605 VALUE SPACES. 0004'\ 5606$'1710 5607 10 WS-RECURING-DISC-PCT-OFF-5 PIC 9(3).9(2) 0004'\ 5608$'1720 5609 VALUE ZERO. 0004'\ 5610$'1730 5611 10 WS-RECURING-DISC-PLAN-NAME-6 PIC X(50) 0004'\ 5612$'1740 5613 VALUE SPACES. 0004'\ 5614$'1750 5615 10 WS-RECURING-DISC-PCT-OFF-6 PIC 9(3).9(2) 0004'\ 5616$'1760 5617 VALUE ZERO. 0004'\ 5618$'1770 5619 10 WS-RECURING-DISC-PLAN-NAME-7 PIC X(50) 0004'\ 5620$'1780 5621 VALUE SPACES. 0004'\ 5622$'1790 5623 10 WS-RECURING-DISC-PCT-OFF-7 PIC 9(3).9(2) 0004'\ 5624$'1800 5625 VALUE ZERO. 0004'\ 5626$'1810 5627 10 WS-RECURING-VPN-NAME-2 PIC X(25) 0004'\ 5628$'1820 5629 VALUE SPACES. 0004'\ 5630$'1830 5631 10 WS-RECURING-UEBILL-VPN-NBR-2 PIC X(9) 0004'\ 5632$'1840 5633 VALUE SPACES. 0004'\ 5634$'1850 5635 10 WS-RECURING-VPN-RGN-CD-1 PIC X(8) 0004'\ 5636$'1860 5637 VALUE SPACES. 0004'\ 5638$'1870 5639 10 WS-RECURING-VPN-RGN-NM-1 PIC X(25) 0004'\ 5640$'1880 5641 VALUE SPACES. 0004'\ 5642$'1890 5643 10 WS-RECURING-VPN-RGN-CD-2 PIC X(8) 0004'\ 5644$'1900 5645 VALUE SPACES. 0004'\ 5646$'1910 5647 10 WS-RECURING-VPN-RGN-NM-2 PIC X(25) 0004'\ 5648$'1920 5649 VALUE SPACES. 0004'\ 5650$'1930 5651 10 WS-RECURING-PLAN-CHNG-CD PIC X 0004'\ 5652$'1940 5653 VALUE SPACES. 0004'\ 5654$'1950 5655 10 WS-RECURING-CHRG-ALLOC-PC PIC 9(2).9(4) 0004'\ 5656$'1960 5657 VALUE ZERO. 0004'\ 5658$'1970 5659 10 WS-RECURING-NO-PORTS PIC 9(4) 0004'\ 5660$'1980 5661 VALUE ZERO. 0004'\ 5662$'1990 5663P3301 10 WS-RECURING-RSRVTN-DESC-TX PIC X(30) 0004'\ 5664$'2000 5665P3301 VALUE SPACES. 0004'\ 5666$'2010 5667P3301 10 WS-RECURING-CHRG-TYPE-CD PIC X(2) 0004'\ 5668$'2020 5669P3301 VALUE SPACES. 0004'\ 5670$'2030 5671P2779 10 WS-RECURING-SIID PIC X(16) 0004'\ 5672$'2040 5673P2779 VALUE SPACES. 0004'\ 5674$'2050 5675P2975 10 WS-RECURING-CKL-NUM PIC X(04) VALUE SPACES. 0004'\ 5676$'2060 5677 10 WS-RECURING-VPN-NAME-1 PIC X(25) 0004'\ 5678$'2070 5679 VALUE SPACES.0004'\ 5680$'2080 5681 10 WS-RECURING-UEBILL-VPN-NBR-1 PIC X(9) 0004'\ 5682$'2090 5683 VALUE SPACES. 0004'\ 5684$'2100 5685 10 WS-RECURING-PLAN-CHNG-MSG-TXT PIC X(40) 0004'\ 5686$'2110 5687 VALUE SPACES. 0004'\ 5688$'2120 5689 10 FILLER PIC X(02). 0004'\ 5690$'2130 5691 * R0304 P2780 TML START 0004'\ 56922140 5693 OUTPUT - $'<METHOD>flat</> 5694<FLAT> 5695 <NAME>WS_RECURING_REC</> 5696 <DESCRIPTION>converted by cpy2dss from copybook standard input</> 5697 <IDENT>@(#)$Id: WS_RECURING_REC (AT&T Research) 2005-07-17 $</> 5698 <LIBRARY>num_t</> 5699 <FIELD> 5700 <NAME>WS_RECURING_TEN_BYTES</> 5701 <TYPE>unsigned number</> 5702 <PHYSICAL> 5703 <CODESET>ebcdic-m</> 5704 <FILL>0</> 5705 <WIDTH>10</> 5706 </> 5707 </> 5708 <FIELD> 5709 <NAME>WS_RECURING_TWO_BYTES</> 5710 <TYPE>string</> 5711 <PHYSICAL> 5712 <CODESET>ebcdic-m</> 5713 <WIDTH>2</> 5714 </> 5715 </> 5716 <FIELD> 5717 <NAME>WS_RECURING_DTL_ID</> 5718 <TYPE>string</> 5719 <PHYSICAL> 5720 <CODESET>ebcdic-m</> 5721 <WIDTH>1</> 5722 </> 5723 </> 5724 <FIELD> 5725 <NAME>WS_RECURING_REC_TYPE_CD</> 5726 <TYPE>string</> 5727 <PHYSICAL> 5728 <CODESET>ebcdic-m</> 5729 <WIDTH>2</> 5730 </> 5731 </> 5732 <FIELD> 5733 <NAME>WS_RECURING_HIER_KEY_GRP</> 5734 <FIELD> 5735 <NAME>WS_RECURING_HIER_ID</> 5736 <TYPE>number</> 5737 <PHYSICAL> 5738 <TYPE>bcd_t</> 5739 <WIDTH>7</> 5740 </> 5741 </> 5742 <FIELD> 5743 <NAME>WS_RECURING_HIER_PT_ID</> 5744 <TYPE>number</> 5745 <PHYSICAL> 5746 <TYPE>bcd_t</> 5747 <WIDTH>7</> 5748 </> 5749 </> 5750 <FIELD> 5751 <NAME>WS_RECURING_HIER_LVL_NBR</> 5752 <TYPE>number</> 5753 <PHYSICAL> 5754 <TYPE>bcd_t</> 5755 <WIDTH>2</> 5756 </> 5757 </> 5758 <FIELD> 5759 <NAME>WS_RECURING_HIER_PRORD_KEY</> 5760 <TYPE>string</> 5761 <PHYSICAL> 5762 <CODESET>ebcdic-m</> 5763 <WIDTH>80</> 5764 </> 5765 </> 5766 <FIELD> 5767 <NAME>WS_RECURING_HIER_PT_SEQ_NBR</> 5768 <TYPE>number</> 5769 <PHYSICAL> 5770 <TYPE>bcd_t</> 5771 <WIDTH>4</> 5772 </> 5773 </> 5774 <FIELD> 5775 <NAME>WS_RECURING_BUS_ARGT</> 5776 <TYPE>number</> 5777 <PHYSICAL> 5778 <TYPE>bcd_t</> 5779 <WIDTH>7</> 5780 </> 5781 </> 5782 </> 5783 <FIELD> 5784 <NAME>WS_RECURING_REC_GRP</> 5785 <FIELD> 5786 <NAME>WS_RECURING_SVCARRID</> 5787 <TYPE>string</> 5788 <PHYSICAL> 5789 <CODESET>ebcdic-m</> 5790 <WIDTH>55</> 5791 </> 5792 </> 5793 <FIELD> 5794 <NAME>WS_RECURING_PFAMFK</> 5795 <TYPE>unsigned number</> 5796 <PHYSICAL> 5797 <CODESET>ebcdic-m</> 5798 <FILL>0</> 5799 <WIDTH>4</> 5800 </> 5801 </> 5802 <FIELD> 5803 <NAME>WS_RECURING_PTYPFK</> 5804 <TYPE>unsigned number</> 5805 <PHYSICAL> 5806 <CODESET>ebcdic-m</> 5807 <FILL>0</> 5808 <WIDTH>4</> 5809 </> 5810 </> 5811 <FIELD> 5812 <NAME>WS_RECURING_CHGGFK</> 5813 <TYPE>unsigned number</> 5814 <PHYSICAL> 5815 <CODESET>ebcdic-m</> 5816 <FILL>0</> 5817 <WIDTH>4</> 5818 </> 5819 </> 5820 <FIELD> 5821 <NAME>WS_RECURING_TRANFK</> 5822 <TYPE>unsigned number</> 5823 <PHYSICAL> 5824 <CODESET>ebcdic-m</> 5825 <FILL>0</> 5826 <WIDTH>8</> 5827 </> 5828 </> 5829 <FIELD> 5830 <NAME>WS_RECURING_CHGDESC</> 5831 <TYPE>string</> 5832 <PHYSICAL> 5833 <CODESET>ebcdic-m</> 5834 <WIDTH>30</> 5835 </> 5836 </> 5837 <FIELD> 5838 <NAME>WS_RECURING_QUANTITY</> 5839 <TYPE>unsigned number</> 5840 <PHYSICAL> 5841 <CODESET>ebcdic-m</> 5842 <FILL>0</> 5843 <FIXEDPOINT>3</> 5844 <WIDTH>15</> 5845 </> 5846 </> 5847 <FIELD> 5848 <NAME>WS_RECURING_UNITPRICE</> 5849 <TYPE>number</> 5850 <PHYSICAL> 5851 <CODESET>ebcdic-m</> 5852 <FILL>0</> 5853 <FIXEDPOINT>2</> 5854 <WIDTH>12</> 5855 </> 5856 </> 5857 <FIELD> 5858 <NAME>WS_RECURING_REGELIGCHG</> 5859 <TYPE>number</> 5860 <PHYSICAL> 5861 <CODESET>ebcdic-m</> 5862 <FILL>0</> 5863 <FIXEDPOINT>2</> 5864 <WIDTH>12</> 5865 </> 5866 </> 5867 <FIELD> 5868 <NAME>WS_RECURING_PREDSCCHG</> 5869 <TYPE>number</> 5870 <PHYSICAL> 5871 <CODESET>ebcdic-m</> 5872 <FILL>0</> 5873 <FIXEDPOINT>2</> 5874 <WIDTH>12</> 5875 </> 5876 </> 5877 <FIELD> 5878 <NAME>WS_RECURING_DSCAMOUNT</> 5879 <TYPE>number</> 5880 <PHYSICAL> 5881 <CODESET>ebcdic-m</> 5882 <FILL>0</> 5883 <FIXEDPOINT>2</> 5884 <WIDTH>12</> 5885 </> 5886 </> 5887 <FIELD> 5888 <NAME>WS_RECURING_TAXAMOUNT</> 5889 <TYPE>number</> 5890 <PHYSICAL> 5891 <CODESET>ebcdic-m</> 5892 <FILL>0</> 5893 <FIXEDPOINT>2</> 5894 <WIDTH>12</> 5895 </> 5896 </> 5897 <FIELD> 5898 <NAME>WS_RECURING_FROM_DATE</> 5899 <TYPE>unsigned number</> 5900 <PHYSICAL> 5901 <CODESET>ebcdic-m</> 5902 <FILL>0</> 5903 <WIDTH>8</> 5904 </> 5905 </> 5906 <FIELD> 5907 <NAME>WS_RECURING_TO_DATE</> 5908 <TYPE>unsigned number</> 5909 <PHYSICAL> 5910 <CODESET>ebcdic-m</> 5911 <FILL>0</> 5912 <WIDTH>8</> 5913 </> 5914 </> 5915 <FIELD> 5916 <NAME>WS_RECURING_LEGEND1FK</> 5917 <TYPE>string</> 5918 <PHYSICAL> 5919 <CODESET>ebcdic-m</> 5920 <WIDTH>2</> 5921 </> 5922 </> 5923 <FIELD> 5924 <NAME>WS_RECURING_LEGEND2FK</> 5925 <TYPE>string</> 5926 <PHYSICAL> 5927 <CODESET>ebcdic-m</> 5928 <WIDTH>2</> 5929 </> 5930 </> 5931 <FIELD> 5932 <NAME>WS_RECURING_GIRN</> 5933 <TYPE>unsigned number</> 5934 <PHYSICAL> 5935 <CODESET>ebcdic-m</> 5936 <FILL>0</> 5937 <WIDTH>10</> 5938 </> 5939 </> 5940 <FIELD> 5941 <NAME>WS_RECURING_WW_CIRCT</> 5942 <TYPE>string</> 5943 <PHYSICAL> 5944 <CODESET>ebcdic-m</> 5945 <WIDTH>30</> 5946 </> 5947 </> 5948 <FIELD> 5949 <NAME>WS_RECURING_EXCH_RATE</> 5950 <TYPE>number</> 5951 <PHYSICAL> 5952 <CODESET>ebcdic-m</> 5953 <FILL>0</> 5954 <FIXEDPOINT>6</> 5955 <WIDTH>11</> 5956 </> 5957 </> 5958 <FIELD> 5959 <NAME>WS_RECURING_CURRENCY_NM</> 5960 <TYPE>string</> 5961 <PHYSICAL> 5962 <CODESET>ebcdic-m</> 5963 <WIDTH>30</> 5964 </> 5965 </> 5966 <FIELD> 5967 <NAME>WS_RECURING_ATTCO_1_CITY</> 5968 <TYPE>string</> 5969 <PHYSICAL> 5970 <CODESET>ebcdic-m</> 5971 <WIDTH>27</> 5972 </> 5973 </> 5974 <FIELD> 5975 <NAME>WS_RECURING_ATTCO_1_STATE</> 5976 <TYPE>string</> 5977 <PHYSICAL> 5978 <CODESET>ebcdic-m</> 5979 <WIDTH>2</> 5980 </> 5981 </> 5982 <FIELD> 5983 <NAME>WS_RECURING_ATTCO_2_CITY</> 5984 <TYPE>string</> 5985 <PHYSICAL> 5986 <CODESET>ebcdic-m</> 5987 <WIDTH>27</> 5988 </> 5989 </> 5990 <FIELD> 5991 <NAME>WS_RECURING_ATTCO_2_STATE</> 5992 <TYPE>string</> 5993 <PHYSICAL> 5994 <CODESET>ebcdic-m</> 5995 <WIDTH>2</> 5996 </> 5997 </> 5998 <FIELD> 5999 <NAME>WS_RECURING_DIST_IN_CHNL</> 6000 <TYPE>unsigned number</> 6001 <PHYSICAL> 6002 <CODESET>ebcdic-m</> 6003 <FILL>0</> 6004 <WIDTH>5</> 6005 </> 6006 </> 6007 <FIELD> 6008 <NAME>WS_RECURING_CUST_NM</> 6009 <TYPE>string</> 6010 <PHYSICAL> 6011 <CODESET>ebcdic-m</> 6012 <WIDTH>27</> 6013 </> 6014 </> 6015 <FIELD> 6016 <NAME>WS_RECURING_INTER_CORP_CD</> 6017 <TYPE>string</> 6018 <PHYSICAL> 6019 <CODESET>ebcdic-m</> 6020 <WIDTH>1</> 6021 </> 6022 </> 6023 <FIELD> 6024 <NAME>WS_RECURING_PL_CNTRY_CD_1</> 6025 <TYPE>string</> 6026 <PHYSICAL> 6027 <CODESET>ebcdic-m</> 6028 <WIDTH>2</> 6029 </> 6030 </> 6031 <FIELD> 6032 <NAME>WS_RECURING_PL_CNTRY_CD_2</> 6033 <TYPE>string</> 6034 <PHYSICAL> 6035 <CODESET>ebcdic-m</> 6036 <WIDTH>2</> 6037 </> 6038 </> 6039 <FIELD> 6040 <NAME>WS_RECURING_BIT_STA_DT</> 6041 <TYPE>string</> 6042 <PHYSICAL> 6043 <CODESET>ebcdic-m</> 6044 <WIDTH>8</> 6045 </> 6046 </> 6047 <FIELD> 6048 <NAME>WS_RECURING_CPI_CANC_DT</> 6049 <TYPE>string</> 6050 <PHYSICAL> 6051 <CODESET>ebcdic-m</> 6052 <WIDTH>8</> 6053 </> 6054 </> 6055 <FIELD> 6056 <NAME>WS_RECURING_CONTRACT_NBR</> 6057 <TYPE>string</> 6058 <PHYSICAL> 6059 <CODESET>ebcdic-m</> 6060 <WIDTH>8</> 6061 </> 6062 </> 6063 <FIELD> 6064 <NAME>WS_RECURING_CHRG_CLSS_TEXT</> 6065 <TYPE>string</> 6066 <PHYSICAL> 6067 <CODESET>ebcdic-m</> 6068 <WIDTH>45</> 6069 </> 6070 </> 6071 <FIELD> 6072 <NAME>WS_RECURING_CHRG_CLSS_SORT_CD</> 6073 <TYPE>string</> 6074 <PHYSICAL> 6075 <CODESET>ebcdic-m</> 6076 <WIDTH>2</> 6077 </> 6078 </> 6079 <FIELD> 6080 <NAME>WS_RECURING_CHRG_CLSS_DESC</> 6081 <TYPE>string</> 6082 <PHYSICAL> 6083 <CODESET>ebcdic-m</> 6084 <WIDTH>45</> 6085 </> 6086 </> 6087 <FIELD> 6088 <NAME>WS_RECURING_DISC_PLAN_NAME_1</> 6089 <TYPE>string</> 6090 <PHYSICAL> 6091 <CODESET>ebcdic-m</> 6092 <WIDTH>50</> 6093 </> 6094 </> 6095 <FIELD> 6096 <NAME>WS_RECURING_DISC_PCT_OFF_1</> 6097 <TYPE>unsigned number</> 6098 <PHYSICAL> 6099 <CODESET>ebcdic-m</> 6100 <FILL>0</> 6101 <FIXEDPOINT>2</> 6102 <WIDTH>6</> 6103 </> 6104 </> 6105 <FIELD> 6106 <NAME>WS_RECURING_DISC_PLAN_NAME_2</> 6107 <TYPE>string</> 6108 <PHYSICAL> 6109 <CODESET>ebcdic-m</> 6110 <WIDTH>50</> 6111 </> 6112 </> 6113 <FIELD> 6114 <NAME>WS_RECURING_DISC_PCT_OFF_2</> 6115 <TYPE>unsigned number</> 6116 <PHYSICAL> 6117 <CODESET>ebcdic-m</> 6118 <FILL>0</> 6119 <FIXEDPOINT>2</> 6120 <WIDTH>6</> 6121 </> 6122 </> 6123 <FIELD> 6124 <NAME>WS_RECURING_DISC_PLAN_NAME_3</> 6125 <TYPE>string</> 6126 <PHYSICAL> 6127 <CODESET>ebcdic-m</> 6128 <WIDTH>50</> 6129 </> 6130 </> 6131 <FIELD> 6132 <NAME>WS_RECURING_DISC_PCT_OFF_3</> 6133 <TYPE>unsigned number</> 6134 <PHYSICAL> 6135 <CODESET>ebcdic-m</> 6136 <FILL>0</> 6137 <FIXEDPOINT>2</> 6138 <WIDTH>6</> 6139 </> 6140 </> 6141 <FIELD> 6142 <NAME>WS_RECURING_DISC_PLAN_NAME_4</> 6143 <TYPE>string</> 6144 <PHYSICAL> 6145 <CODESET>ebcdic-m</> 6146 <WIDTH>50</> 6147 </> 6148 </> 6149 <FIELD> 6150 <NAME>WS_RECURING_DISC_PCT_OFF_4</> 6151 <TYPE>unsigned number</> 6152 <PHYSICAL> 6153 <CODESET>ebcdic-m</> 6154 <FILL>0</> 6155 <FIXEDPOINT>2</> 6156 <WIDTH>6</> 6157 </> 6158 </> 6159 <FIELD> 6160 <NAME>WS_RECURING_DISC_PLAN_NAME_5</> 6161 <TYPE>string</> 6162 <PHYSICAL> 6163 <CODESET>ebcdic-m</> 6164 <WIDTH>50</> 6165 </> 6166 </> 6167 <FIELD> 6168 <NAME>WS_RECURING_DISC_PCT_OFF_5</> 6169 <TYPE>unsigned number</> 6170 <PHYSICAL> 6171 <CODESET>ebcdic-m</> 6172 <FILL>0</> 6173 <FIXEDPOINT>2</> 6174 <WIDTH>6</> 6175 </> 6176 </> 6177 <FIELD> 6178 <NAME>WS_RECURING_DISC_PLAN_NAME_6</> 6179 <TYPE>string</> 6180 <PHYSICAL> 6181 <CODESET>ebcdic-m</> 6182 <WIDTH>50</> 6183 </> 6184 </> 6185 <FIELD> 6186 <NAME>WS_RECURING_DISC_PCT_OFF_6</> 6187 <TYPE>unsigned number</> 6188 <PHYSICAL> 6189 <CODESET>ebcdic-m</> 6190 <FILL>0</> 6191 <FIXEDPOINT>2</> 6192 <WIDTH>6</> 6193 </> 6194 </> 6195 <FIELD> 6196 <NAME>WS_RECURING_DISC_PLAN_NAME_7</> 6197 <TYPE>string</> 6198 <PHYSICAL> 6199 <CODESET>ebcdic-m</> 6200 <WIDTH>50</> 6201 </> 6202 </> 6203 <FIELD> 6204 <NAME>WS_RECURING_DISC_PCT_OFF_7</> 6205 <TYPE>unsigned number</> 6206 <PHYSICAL> 6207 <CODESET>ebcdic-m</> 6208 <FILL>0</> 6209 <FIXEDPOINT>2</> 6210 <WIDTH>6</> 6211 </> 6212 </> 6213 <FIELD> 6214 <NAME>WS_RECURING_VPN_NAME_2</> 6215 <TYPE>string</> 6216 <PHYSICAL> 6217 <CODESET>ebcdic-m</> 6218 <WIDTH>25</> 6219 </> 6220 </> 6221 <FIELD> 6222 <NAME>WS_RECURING_UEBILL_VPN_NBR_2</> 6223 <TYPE>string</> 6224 <PHYSICAL> 6225 <CODESET>ebcdic-m</> 6226 <WIDTH>9</> 6227 </> 6228 </> 6229 <FIELD> 6230 <NAME>WS_RECURING_VPN_RGN_CD_1</> 6231 <TYPE>string</> 6232 <PHYSICAL> 6233 <CODESET>ebcdic-m</> 6234 <WIDTH>8</> 6235 </> 6236 </> 6237 <FIELD> 6238 <NAME>WS_RECURING_VPN_RGN_NM_1</> 6239 <TYPE>string</> 6240 <PHYSICAL> 6241 <CODESET>ebcdic-m</> 6242 <WIDTH>25</> 6243 </> 6244 </> 6245 <FIELD> 6246 <NAME>WS_RECURING_VPN_RGN_CD_2</> 6247 <TYPE>string</> 6248 <PHYSICAL> 6249 <CODESET>ebcdic-m</> 6250 <WIDTH>8</> 6251 </> 6252 </> 6253 <FIELD> 6254 <NAME>WS_RECURING_VPN_RGN_NM_2</> 6255 <TYPE>string</> 6256 <PHYSICAL> 6257 <CODESET>ebcdic-m</> 6258 <WIDTH>25</> 6259 </> 6260 </> 6261 <FIELD> 6262 <NAME>WS_RECURING_PLAN_CHNG_CD</> 6263 <TYPE>string</> 6264 <PHYSICAL> 6265 <CODESET>ebcdic-m</> 6266 <WIDTH>1</> 6267 </> 6268 </> 6269 <FIELD> 6270 <NAME>WS_RECURING_CHRG_ALLOC_PC</> 6271 <TYPE>unsigned number</> 6272 <PHYSICAL> 6273 <CODESET>ebcdic-m</> 6274 <FILL>0</> 6275 <FIXEDPOINT>4</> 6276 <WIDTH>7</> 6277 </> 6278 </> 6279 <FIELD> 6280 <NAME>WS_RECURING_NO_PORTS</> 6281 <TYPE>unsigned number</> 6282 <PHYSICAL> 6283 <CODESET>ebcdic-m</> 6284 <FILL>0</> 6285 <WIDTH>4</> 6286 </> 6287 </> 6288 <FIELD> 6289 <NAME>WS_RECURING_RSRVTN_DESC_TX</> 6290 <TYPE>string</> 6291 <PHYSICAL> 6292 <CODESET>ebcdic-m</> 6293 <WIDTH>30</> 6294 </> 6295 </> 6296 <FIELD> 6297 <NAME>WS_RECURING_CHRG_TYPE_CD</> 6298 <TYPE>string</> 6299 <PHYSICAL> 6300 <CODESET>ebcdic-m</> 6301 <WIDTH>2</> 6302 </> 6303 </> 6304 <FIELD> 6305 <NAME>WS_RECURING_SIID</> 6306 <TYPE>string</> 6307 <PHYSICAL> 6308 <CODESET>ebcdic-m</> 6309 <WIDTH>16</> 6310 </> 6311 </> 6312 <FIELD> 6313 <NAME>WS_RECURING_CKL_NUM</> 6314 <TYPE>string</> 6315 <PHYSICAL> 6316 <CODESET>ebcdic-m</> 6317 <WIDTH>4</> 6318 </> 6319 </> 6320 <FIELD> 6321 <NAME>WS_RECURING_VPN_NAME_1</> 6322 <TYPE>string</> 6323 <PHYSICAL> 6324 <CODESET>ebcdic-m</> 6325 <WIDTH>25</> 6326 </> 6327 </> 6328 <FIELD> 6329 <NAME>WS_RECURING_UEBILL_VPN_NBR_1</> 6330 <TYPE>string</> 6331 <PHYSICAL> 6332 <CODESET>ebcdic-m</> 6333 <WIDTH>9</> 6334 </> 6335 </> 6336 <FIELD> 6337 <NAME>WS_RECURING_PLAN_CHNG_MSG_TXT</> 6338 <TYPE>string</> 6339 <PHYSICAL> 6340 <CODESET>ebcdic-m</> 6341 <WIDTH>40</> 6342 </> 6343 </> 6344 <FIELD> 6345 <NAME>FILLER</> 6346 <TYPE>string</> 6347 <PHYSICAL> 6348 <CODESET>ebcdic-m</> 6349 <WIDTH>2</> 6350 </> 6351 </> 6352 </> 6353</>' 6354