Quelle  st147a.cob   Sprache: Cobol

000100 IDENTIFICATION00010 IDENTIFICATION DIVISION.                                         ST1474PROGRAM-ID                                                      ST1474.2
000200 PROGRAM-ID.                                                      ST1474.00040000010600*    MRG-TEST-006011200java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
                                     2
000400****************************************************************  ST1474.2
000500*                                                              *  ST1474.2
000600*    VALIDATION FOR:-                                          *  ST1474.2
000700*                                                              *  ST1474.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".ST1474.2
000900*                                                              *  ST1474.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".ST1474.2
001100*                                                              *  ST1474.2
001200****************************************************************  ST1474.2
001300*                                                                 ST1474.2
001400*    OBJECTIVE -                                                  ST1474.2
001500*        ROUTINE ST147A IS A TEST OF THE MERGE STATEMENT USING    ST1474.2
001600*    A NATIVE  COLLATING SEQUENCE AND FIXED LENGTH RECORDS.       ST1474.2
001700*                                                                 ST1474.2
001800*        TWO FILES ARE FIRST CREATED BY THE ROUTINE IN DESCENDING ST1474.2
001900*    NATIVE ORDER.  THE MERGE STATEMENT IS USED TO MERGE THE TWO  ST1474.2
002000*    FILES AND PRODUCE, IN DESCENDING NATIVE COLLATING            ST1474.2
002100*    SEQUENCE ORDER, 3 OUTPUT FILES FROM A SINGLE "MERGE"         ST1474.2
002200*    STATEMENT.                                                   ST1474.2
002300*                                                                 ST1474.2
002400*    FEATURES TESTED -                                            ST1474.2
002500*    *   FIXED LENGTH RECORDS                                     ST1474.2
002600*    *   SAME SORT-MERGE AREA IN THE I-O-CONTROL PARAGRAPH        ST1474.2
002700*    *   QUALIFIED ALPHANUMERIC AND NUMERIC SORT KEYS             ST1474.2
002800*    *   USING FILE-NAME SERIES                                   ST1474.2
002900*                                                                 ST1474.2
003000*    *   MERGE MERGE-FILE-NAME                                    ST1474.2
003100*        DESCENDING KEY-1 OF DATA-NAME-1                          ST1474.2
003200*        ON DESCENDING KEY KEY-2 OF DATA-NAME-2                   ST1474.2
003300*        USING FILE-NAME-2 FILE-NAME-1                            ST1474.2
003400*        GIVING FILE-NAME-3, FILE-NAME-4, FILE-NAME-5.            ST1474.2
003500*                                                                 ST1474.2
003600*    FILES USED -                                                 ST1474.2
003700*    *   FILES SQ-FS1 AND SQ-FS2 ON MAGNETIC TAPE OR MASS-STORAGE ST1474.2
003800*    ARE FIRST CREATED.  THE MERGE STATEMENT                      ST1474.2
003900*    USES BOTH OF THESE FILES AND CREATES OUTPUT FILES            ST1474.2
004000*    SQ-FS3, SQ-FS4 AND SQ-FS5.                                   ST1474.2
004100*                                                                 ST1474.2
004200*        SQ-FS1                                                   ST1474.2
004300*    51 RECORDS                                                   ST1474.2
004400*    FIXED LENGTH RECORDS 132 CHARACTERS                          ST1474.2
004500*    BLOCKED 1                                                    ST1474.2
004600*    RESERVE 2 AREAS                                              ST1474.2
004700*                                                                 ST1474.2
004800*        SQ-FS2                                                   ST1474.2
004900*    51 RECORDS                                                   ST1474.2
005000*    FIXED LENGTH RECORDS 132 CHARACTERS                          ST1474.2
005100*    BLOCKED 2                                                    ST1474.2
005200*    RESERVE 4 AREAS                                              ST1474.2
005300*                                                                 ST1474.2
005400*        SQ-FS3, SQ-FS4 AND SQ-FS5                                ST1474.2
005500*    FINAL TOTAL OF 102 RECORDS                                   ST1474.2
005600*    FIXED LENGTH RECORDS 132 CHARACTERS                          ST1474.2
005700*    BLOCKED 3                                                    ST1474.2
005800*    RESERVE 4 AREAS                                              ST1474.2
005900*                                                                 ST1474.2
006000*        NOTE THAT SQ-FS3 IS THE RESULT OF MERGING SQ-FS1 AND     ST1474.2
006100*    SQ-FS2.  THE RECORDS IN SQ-FS3 SHOULD ALTERNATE BETWEEN      ST1474.2
006200*    SQ-FS1 AND SQ-FS2 BECAUSE THE ALPHANUMERIC KEYS ARE THE SAME ST1474.2
006300*    FOR BOTH FILES AND THE NUMERIC KEYS WERE MERGED INTO         ST1474.2
006400*    DESCENDING ORDER.  FILES SQ-FS4 AND SQ-FS5 ARE               ST1474.2
006500*    IDENTICAL TO SQ-FS3.                                         ST1474.2
006600*                                                                 ST1474.2
006700*    X-CARDS USED  -                                              ST1474.2
006800*    X-XXX014     SQ-FS1                                          ST1474.2
006900*    X-XXX015     SQ-FS2                                          ST1474.2
007000*    X-XXX016     SQ-FS3                                          ST1474.2
007100*    X-XXX018     SQ-FS5                                          ST1474.2
007200*    X-XXX027     MERGE FILE ST-FS1                               ST1474.2
007300*    X-55         SYSTEM PRINTER NAME.                            ST1474.2
007400*    X-60         SQ-FS4                                          ST1474.2
007500*    X-XXX063     NATIVE COLLATING SEQUENCE ASCENDING ORDER-NOTE  ST1474.2
007600*        THAT THE QUOTE CHARACTER IS NOT TO APPEAR IN THE X-64    ST1474.2
007700*        CARD AND THE DOLLAR SIGN $ IS TO APPEAR TWICE WHEREVER   ST1474.2
007800*        THE $ BELONGS IN THE NATIVE COLLATING SEQUENCE).  IF     ST1474.2
007900*        THE NATIVE COLLATING SEQUENCE IS ACTUALLY THE ASCII      ST1474.2
008000*        COLLATING SEQUENCE SEE BELOW FOR A SAMPLE X-64 CARD..... ST1474.2
008100*                                                                 ST1474.2
008200*    X-63  " $$()*+,./0123456789;<=>ABCDEFGHIJKLMNOPQRSTUVWXYZ".  ST1474.2
008300*    X-69         OPTIONAL VALUE OF CLAUSE                        ST1474.2
008400*    X-74         VALUE OF CLAUSE NAME PHRASES                    ST1474.2
008500*    X-75         VALUE OF CLAUSE NAME PHRASES                    ST1474.2
008600*    X-76         VALUE OF CLAUSE NAME PHRASES                    ST1474.2
008700*    X-77         VALUE OF CLAUSE NAME PHRASES                    ST1474.2
008800*    X-78         VALUE OF CLAUSE NAME PHRASES                    ST1474.2
008900*    X-79         VALUE OF CLAUSE NAME PHRASES                    ST1474.2
009000*    X-82         SOURCE COMPUTER NAME.                           ST1474.2
009100*    X-83         OBJECT COMPUTER NAME.                           ST1474.2
009200*                                                                 ST1474.2
009300*                                                                 ST1474.2
009400*    OPTIONS RECOMMENDED -                                        ST1474.2
009500*    *   OPT SW6 - X   TO BE USED IF NECESSARY TO DUMP THE        ST1474.2
009600*                      FILES AS THEY ARE CREATED AND READ         ST1474.2
009700*                      DURING TESTS 3 THRU 8, 11 THRU 16,         ST1474.2
009800*                      AND 19 THRU 24.                            ST1474.2
009900*                                                                 ST1474.2
010000*    TEST DESCRIPTIONS -                                          ST1474.2
010100*    MRG-TEST-001     CHECKS THE CREATION OF SQ-FS1               ST1474.2
010200*    MRG-TEST-002     CHECKS THE CREATION OF SQ-FS2               ST1474.2
010300*    MRG-TEST-003     TESTS RECORDS 1-20 ON MERGE RESULT SQ-FS3   ST1474.2
010400*    MRG-TEST-004     TESTS RECORDS 21-40 ON MERGE RESULT SQ-FS3  ST1474.2
010500*    MRG-TEST-005     TESTS RECORDS 41-60 ON MERGE RESULT SQ-FS3  ST1474.2
010600*    MRG-TEST-006     TESTS RECORDS 61-80 ON MERGE RESULT SQ-FS3  ST1474.2
010700*    MRG-TEST-007     TESTS RECORDS 81-100 ON MERGE RESULT SQ-FS3 ST1474.2
010800*    MRG-TEST-008     TESTS RECORDS 101-102 ON MERGE RESULT SQ-FS3ST1474.2
010900*    MRG-TEST-009     AN EOF CHECK ON SQ-FS3                      ST1474.2
011000*    MRG-TEST-010     CHECK THAT THE NUMERIC KEY ON THE LAST      ST1474.2
011100*                     RECORD ON SQ-FS3 EQUALS 51                  ST1474.2
011200*    MRG-TEST-011                                                 ST1474.2
011300*    TO                                                           ST1474.2
011400*    MRG-TEST-018     SAME TESTS ON SQ-FS4                        ST1474.2
011500*    MRG-TEST-019                                                 ST1474.2
011600*    TO                                                           ST1474.2
011700*    MRG-TEST-026     SAME TESTS ON SQ-FS5                        ST1474.2
011800*                                                                 ST1474.2
011900*    ************************************************************ ST1474.2
20  DIVISION
012100 CONFIGURATION SECTION.2403  PIC.ST1474
120SOURCE-COMPUTERST1474
012300     Card0130.                                                    00   SQ-FS3ST1474.2
012400 0270LABEL  STANDARD.2
012500     Card0131.                                                    ST1474.0280;VALUE                                                   ST1474
012600 INPUT-OUTPUT SECTION                                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012700 FILE-CONTROL.                                                    ST1474.2
012800     SELECT PRINT-FILE ASSIGN TO                                  230       CONTAINS3RECORDSST1474
0120     C0085                                                    2
013000     SELECT SQ-FS1 ASSIGN                                         ST1474.2
013100     "C0020"                                                      ST1474.2
013200     ; ORGANIZATION IS SEQUENTIAL                                 ST1474.2
030        SEQUENTIALST1474
013400     ; RESERVE 2 AREAS2600  .                                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
150SELECTSQ-FS2                                       .2
160""                                                      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013700     2202  .                                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013800     ACCESS MODE IS SEQUENTIALST1474
220     0KEY-9ST14742
014000     SELECT SQ-FS3 ASSIGN TO                                      ST1474.2
014100     "C0022"                                                      ST1474.2
040       SEQUENTIALST1474
014300     ; ACCESS MODE IS SEQUENTIAL                                  ST1474703   PIC9                                    ST1474
014400     020      RECORDIS                                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010300Impl1.2
014600     "C0096"                                                      ST1474.2
014700     ORGANIZATION IS SEQUENTIAL                                   ST147430                                                          .2
040       MODE                                   ST1474.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014900     RESERVE 4 AREAS.                                             ST1474.2
015000     SELECT SQ-FS5 ASSIGN TO                                      ST1474.2
015100     "C0024"                                                      ST1474.2
050      ISSEQUENTIAL                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050       MODEIS SEQUENTIAL                                  .2
015400     RESERVE 4 AREAS.                                             ST1474.2
01550SELECT ASSIGN                                       .2
01600"" .                                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015700 I-O-CONTROL.                                                     ST1474.22402  .                                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015800*    SAME SORT-MERGE AREA FOR SQ-FS1, ST-FS1.                     ST1474.2
015900 DATA DIVISION.                                                   ST1474.2
016000 FILE SECTION.                                                    ST1474.2
016100 FD  PRINT-FILE.                                                  ST14740 FDSQ-FS5ST1474
0162001   PICTURE X10.                                    ST1474
016300 01  DUMMY-RECORD PICTURE X(120).                                 ST1474.2
01640 FDSQ-FS1.2
016500     LABEL RECORDS STANDARD                                       ST1474.2
016600     VALUE OF                                                     230Impl1ST1474.2
016700     Impl1                                                        ST1474.2
016800     4711025400     IS                                                           
016900     BLOCK CONTAINS 1 RECORDS                                     ST1474.2
017000                                                                  .2
017100     RECORD 270; BLOCK CONTAINS3RECORDSST1474
017200 01  SQ-FS1R1-F-G-132.                                            ST1474.2
013010REC-PREAMBLE X(20.ST14742
017400     10 REST-OF-1.                                                ST1474.2
017500     20 KEY-1.                                                    ST1474.2
010         0 ALPHAN-KEY X                                     .2
017700         30 NUM-KEY PIC 999.                                      ST1474.22000  .                                            .2
017800     20 KEY-22200     0  .                                               ST1474
0790         0 ALPHAN-KEY PIC X                                     .2
018000         30 026400          30  ALPHAN-KEY X                                   .2
0810     0KEY-3ST1474.2
018200         30 ALPHAN-KEY PIC X.                                     ST1474.2
018300         30 NUM-KEY PIC 999.                                      ST1474.2
140 FD                                                         ST1474.2
018500     LABEL RECORD IS STANDARD0670          0  ALPHAN-KEY X.                                   ST14742
018600     ; VALUE OF                                                   ST1474.2
018700     Impl1ST1474.2
018800     IS                                                           ST1474.2
0190     4711                                                         ST1474.2
019000                                                                  ST1474070030ALPHAN-KEY X.                                   .2
019100     ; BLOCK CONTAINS 2 RECORDS                                   ST1474.2
01920     ; RECORD CONTAINS13                              ST1474.2
019300     DATA RECORD SQ-FS2R1-F-G-132.                                ST1474.2
19400 0  Q-FS2R1-F-G-132                                            .2
019502740DATARECORDISST-FS1R1-F-G-132                             ST1474.2
1960     0REST-OF-2ST1474.2
019700     20 KEY-4.                                                    ST1474.2
01980         3 ALPHAN-KEY PIC X.ST14742
019900         30 NUM-KEY PIC 999.                                      ST1474.2
0000     20 KEY-5.                                                    .2
000         0ALPHAN-KEYPIC.                                     ST1474java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0220         30 NUM-KEY  999                                      ST1474.2
020300     20 KEY-6.                                                    ST1474.2
2000         0ALPHAN-KEY X.ST14742
020500         30 NUM-KEY PIC 999.                                      ST1474.2
020600 FD028100         3A-KEY                                          .2
020700     LABEL RECORD IS STANDARD                                     ST1474.2
020800     ; VALUE OF                                                   ST1474.2
020900     Impl1                                                        .2
10     IS                                                           .2
21041                                                         .
021200                                                                  ST1474.2
02130     ;BLOCKCONTAINS3RECORDS                                   ST1474.2
021400     RECORDCONTAINS 13 CHARACTERS.2
021500     DATA RECORD SQ-FS3R1-F-G-132.                                ST1474.2
0160 0  SQ-FS3R1-F-G-132ST1474.2
021700     10  REC-PRE-3 PIC X(120).                                    ST1474.2
021800     10  REST-OF-3.                                               ST1474.2
021900     20  KEY-7.                                                   ST1474.2
022000          30  ALPHAN-KEY PIC X.                                   ST1474.2
         3  NUM-KEY PIC 999.                                    ST14742
022200     20  KEY-8.                                                   ST1474.2
022300          30  ALPHAN-KEY PIC X.                                   ST1474.2
022400          30  NUM-KEYPIC 999.                                    .2
022500     20  KEY-90290001 WRK-XN-2    PIC X(51) VALUE                                  ST1474.2
022600          30  ALPHAN-KEY PIC X.090"".ST1474
020          0 PIC9ST1474
020       PICXOCCURS .                             ST1474java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022900     LABEL RECORD IS STANDARD                                     ST14743000  PIC  2 .                              .2
023000     ; VALUE020     2FILLER PICX(0.ST1474
023100     Impl10303001 .                                              ST1474
023200     IS                                                           .2
000 1WRK-XN-X-2 WRK-XN-O120F-1.                        .2
0340                                                                  ST1474.2
023500     ; BLOCK CONTAINS 3 RECORDS0070     0  PIC X(0)                                    .2
0260RECORD CONTAINS 13 CHARACTERSST1474java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0370      RECORD.                                ST14742
023800 01  SQ-FS4R1-F-G-132.                                            ST1474.2
023900     10  REC-PRE-4 PIC X(103000     02 WRK-XN-0006 PIC X(0).                                    ST14742
024000     10  REST-OF-4.                                               ST1474.2
024100     20  KEY-10.                                                  011002WRK-XN-0007 X(20)                                    .2
024200          30  ALPHAN-KEY3300 .                                ST14742
024300          30  NUM-KEY34005                   X4)VALUE.2
024400     010             FILE,      0RECNO0,=0.ST1474
024500          0ALPHAN-KEY X.ST1474
024600          30  NUM-KEY PIC 999.                                    ST1474.2
20     0KEY-12.2
024800          30  ALPHAN-KEY PIC X.                                   ST1474.2
024900          30  NUM-KEY PIC 999.                                    ST1474.2
025000 FD  SQ-FS5                                                       ST1474.2
025100     LABEL RECORD IS STANDARD                                     ST1474.2
025200     ; VALUE OF                                                   ST1474.2
025300     Impl1                                                        ST1474.2
025400     IS                                                           ST1474.2
025500     Card0121                                                     ST1474.2
025600                                                                  ST1474.2
025700     ; BLOCK CONTAINS 3 RECORDS                                   ST1474.2
025800     RECORD CONTAINS 132 CHARACTERS                               ST1474.2
025900     DATA RECORD SQ-FS5R1-F-G-132.                                ST1474.2
026000 01  SQ-FS5R1-F-G-132.                                            ST1474.2
026100     10  REC-PRE-5 PIC X(120).                                    ST1474.2
026200     10  REST-OF-5.                                               ST1474.2
026300     20  KEY-13.                                                  ST1474.2
026400          30  ALPHAN-KEY PIC X.                                   ST1474.2
026500          30  NUM-KEY PIC 999.                                    ST1474.2
026600     20  KEY-14.                                                  ST1474.2
026700          30  ALPHAN-KEY PIC X.                                   ST1474.2
026800          30  NUM-KEY PIC 999.                                    ST1474.2
026900     20  KEY-15.                                                  ST1474.2
027000          30  ALPHAN-KEY PIC X.                                   ST1474.2
027100          30  NUM-KEY PIC 999.                                    ST1474.2
027200 SD  ST-FS1                                                       ST1474.2
027300     RECORD CONTAINS 132 CHARACTERS                               ST1474.2
027400     DATA RECORD IS ST-FS1R1-F-G-132.                             ST1474.2
027500 01  ST-FS1R1-F-G-132.                                            ST1474.2
027600     02 FILLER PIC X(120).                                        ST1474.2
027700     02 NON-KEY-1.                                                ST1474.2
027800         03 A-KEY PIC X.                                          ST1474.2
027900         03 N-KEY PIC 999.                                        ST1474.2
028000     02 SORT-KEY.                                                 ST1474.2
028100         03 A-KEY PIC X.                                          ST1474.2
028200         03 N-KEY PIC 999.                                        ST1474.2
028300     02 NON-KEY-2.                                                ST1474.2
028400         03 A-KEY PIC X.                                          ST1474.2
028500         03 N-KEY PIC 999.                                        ST1474.2
028600 WORKING-STORAGE SECTION.                                         ST1474.2
028700 77  WRK-DU-9-0001 PIC 9 VALUE 0.                                 ST1474.2
028800 77  WRK-DU-999-0001 PIC 999.                                     ST1474.2
028900 77  WRK-DU-999-2 PIC 999 VALUE 001.                              ST1474.2
029000 77  LAST-REC-NUM  PIC 999 VALUE ZERO.                            ST1474.2
029100 01  WRK-XN-0001 PIC X(51) VALUE                                  ST1474.2
029200     "C0099" .                                                    ST1474.2
029300 01  WRK-XN-O051F-X-0001 REDEFINES WRK-XN-0001.                   ST1474.2
029400     02 CHAR PIC X OCCURS 51 TIMES.                               ST1474.2
029500 01  WRK-XN-2    PIC X(51) VALUE                                  ST1474.2
029600     "C0099" .                                                    ST1474.2
029700 01  WRK-XN-0051F-X-0002 REDEFINES WRK-XN-2.                      ST1474.2
029800     02 ASCIIS PIC X OCCURS 51 TIMES.                             ST1474.2
029900 01  WRK-XN-O020F-0001.                                           ST1474.2
030000     02 COMPU PIC X OCCURS 20 TIMES.                              ST1474.2
030100 01  WRK-XN-X-0001 REDEFINES WRK-XN-O020F-0001.                   ST1474.2
030200     02 FILLER PIC X(20).                                         ST1474.2
030300 01  WRK-XN-O120F-1020        5FILLER X(7              ST1474
03200                   X3)VALUE
0500  WRK-XN-O120F-1.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030600     02 0250"ALTKEY2 .ST1474.2
37002 WRK-XN-0003 X(20).                                    ST1474
080      PICST1474
030900     02 WRK-XN-00052800 .                               .2
0100     2WRK-XN-0006 X(0.                                    .2
031100     02 WRK-XN-0007 PIC X(20).                                    ST1474.2
0310 0  .                                 .2
030           7FILLER X()                       .2
010        5FILLERPICTURE48)VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0350"= ,= /0,RECNO=000000,UPDT=00".  ST14742
031600        05 FILLER                 PICTURE X(46)       VALUE       ST1474.2
031700             ",DO=00,PGM ,=00000,BLKSIZ =0000".    ST1474.2
031800        050330007FILLERPIC X7.                       ST1474java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0100",=000000,ORG=,= ".                        .2
032000        0037007FILLERPICX6.ST14742
032100             ",RECKEY= ".             ST1474.2
03200        05 FILLER                 PICTURE X(38)       VALUE       ST1474.2
032300             ",ALTKEY1= ".            ST1474.2
0320        5FILLER X(38)       VALUE.2
032500             ",ALTKEY2= ".            ST1474.2
03600                  PICTUREX7         SPACE.ST1474.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020     3FILE-RECORD-INFO  10TIMESST1474
032800        05 FILE-RECORD-INFO-P1-120.                               ST14744200         PIC X(5)                      .2
032900           07 FILLER              PIC X(5).                       ST1474.2
03000            PIC6)                      .2
033100           07 FILLER              PIC X(8).                       ST1474.2
033200           07 XRECORD-NAME         PIC X(6).                      ST1474.2
033300           07 FILLER340           7FILLER X()                       .2
03400      PIC()                       .2
033900               PICX6.ST1474java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030                   PIC9(.ST1474
033700           07 FILLER              PIC X(6).                       ST1474.2
033800           07 UPDATE-NUMBER       PIC 9(2).                       ST1474.2
033900           07 FILLER              PIC X(5).                       ST1474.2
0400           7
3007               PIC().ST1474
034200           07 XPROGRAM-NAME        PIC X(5).                      ST1474
3400           07 FILLERPICX7)                       .2
034400           07 XRECORD-LENGTH       PIC 9(6).                      ST14743000           07 FILLER              PIC X(9).ST1474java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
034500           006500                   PIC2  ..2
36           CHARS-OR-RECORDS X(2).                      .2
34007FILLER X()                       .2
034800036800                          X       SPACE.2
034900           07 FILLER              PIC X(6).                       ST1474 X)VALUE..2
30007RECORDS-IN-FILE 9(6.                       ST1474java.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
30           7               PIC5.ST1474
035200           07 XFILE-ORGANIZATION   PIC X(2).                      ST1474.2
0330007               PICX()ST1474
035400           07 XLABEL-TYPE          PIC X(0350 1  TEST-COMPUTEDST1474.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
5        5.                             .2
035600           07 FILLER              PIC X03770     02FILLERPIC(7  VALUE                 .2
070           0 XRECORD-KEY           X(2)                     .2
035800           07 ED-X.2
035900           07 ALTERNATE-KEY1      PIC X(29).                      3000                PIC (0   SPACEST1474
036000          7FILLER X(9.                       ST1474
036100           07 ALTERNATE-KEY2      PIC X(29).                      ST1474.2
0600          0               PIC()                       .2
0630001  .                                                .2
34                         PIC SPACE.2
036500     02 FEATURE                  PIC X(20)080     3COMPUTED-14V4 REDEFINES COMPUTED-APIC9(14.().ST1474
060002FILLERPIC       SPACE.          .2
036700     02 P-OR-F03700 COMPUTED-18V0                     -9(1)          .2
036800     003800                            PIC               .2
39002 .                                                .2
037000       03 FILLER090 1TEST-CORRECTST1474
037100       03  PARDOT-X              PIC039100     02 FILLER PIC X(30) VALUE SPACE.                             
037200       03 DOTVALUE               PIC 99     VALUE ZERO.           ST1474.2
037300     02 FILLER                   PIC X(8)   VALUE SPACE.          ST1474.2
0340     2RE-MARK X6).ST1474
037500 01  TEST-COMPUTED.                                               ST1474.2
070002FILLERPIC(3)VALUE SPACE.          ST1474
037700     02 FILLER                   PIC X(17)  VALUE                 ST1474600  REDEFINES     PIC-91)ST1474
38                   =.ST1474
037900     02 COMPUTED-X.                                               38 REDEFINESPIC9494.ST1474
038000     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          ST1474.2
038100     03 COMPUTED-N               REDEFINES COMPUTED-A             ST1474.2
32                                 -()99                  .2
0  COMPUTED-A1         .2
038400     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     ST1474.2
038500     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     ST1474.2
030             REDEFINESCOMPUTED-A.2
0387004400  .                                                    .2
8                                      X               .2
038900     03 FILLER0000    SSST1474
4700-"".                                            ST1474
31     2  PIC(0  SPACEST1474
039200     02 FILLER PIC X(17) VALUE " CORRECT ="04090001CCVS-C-2ST1474.2
039300     02 CORRECT-X.                                                ST1474.2
039400     03 CORRECT-A                  PIC X(20) VALUE SPACE.         ST1474.2
3003CORRECT-NREDEFINES      -99.(9)      .2
039600     03 CORRECT-0V18 REDEFINES CORRECT-A1002FILLERPIC6)VALUE" .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039700     03 CORRECT-4V14410     2FILLER4      "FAIL"     .2
039800     03 CORRECT-14V4 REDEFINES CORRECT-A440     2FILLER X(94     SPACE.ST1474
0304100 0  REC-SKL-SUB                    9(2      ZERO.2
040000         04 CORRECT-18V00100                  PIC9VALUE.ST1474
000          FILLERPIC               .2
420     3FILLER PIC2  SPACE                              .2
040300     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     ST1474.2
000 1CCVS-C-1.2
040500     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PAST1474.2
6-    "SS PARAGRAPH-NAME ST1474.2
040700-    " REMARKS".                                            ST1474.04200 1                      PIC 9       ZERO.ST1474
040800     2 FILLERPIC X20)    VALUESPACEST1474
040900 01  CCVS-C-2020001RECORD-COUNT 9(5)     VALUEZERO.       ST1474.
0450 1ANSI-REFERENCE X(8     SPACES.2
041100     02 FILLER                     PIC X(6)     VALUE0460 0  CCVS-H-1.                                                    ST1474
1                            X1)VALUE ST1474
041300     02 FILLER                     PIC X(4)     VALUE20                           PIC(2    ST1474
000                      PIC3)VALUE     .2
101                    PIC(2      ZERO.2
460 1REC-CT9        ZEROST1474
041700 01  DELETE-COUNTER                PIC 999      VALUE 030   2FILLERPIC()VALUE "ST1474
0418000                   PIC VALUE.       .2
0404300".2 ".                                                     .2
04200 01                    PIC999VALUEZEROST14742
042100 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       ST1474.2
042200 0  ERROR-HOLD 99       ZERO       .2
042300 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      ST147400                           X(1   SPACE      .2
042400 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO04000 1  CCVS-H-2BST1474
020 1ANSI-REFERENCE X(48    VALUE SPACES.2
042600 01  CCVS-H-1.                                                                TEST".
0470     2FILLERPIC3)VALUE.ST1474
042800     02  FILLER                    PIC X(42)    VALUE             ST1474.2
042900     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 ST1474
430     2FILLER X(9     SPACES     .2
043100 01  CCVS-H-2A.                                                   0"HIGH"                                              .
043200   02  FILLER                        PIC X040            LEVEL" .
043300   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  ST1474.2
043400   02  FILLER                        PIC XXXX   VALUE045200 01  CCVS-H-3.                                                    
043500     "4.2 ".                                                      ST1474.2
03002                         PIC28               ST14742
043700            " COPY - NOT FOR DISTRIBUTION".                       ST1474.2
043800   02  FILLER                        PIC X(41)  VALUE SPACE.      ST1474.2
043900                                                                  ST1474.2
0400 1CCVS-H-2BST1474.2
044100   02  FILLER                        PIC X(15)  VALUE             ST1474.2
4400"TESTRESULT OF ".                                    .2
04430004580  COPYRIGHT5"java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
044400   02  FILLER                        PIC X(4)   VALUE             ST14740      FILLERPIC(2VALUE.      ST1474
044500            " IN ".046200     02 ID-AGAIN                     PIC X(9).                    
402FILLER 1               .2
07             .ST1474
044800   02  FILLER                        PIC X(22400                         X2   SPACE2
044900            " LEVEL VALIDATION FOR ".                             ST1474.2
04500   0                           X(8               ST1474
045100     "ON-SITE VALIDATION, 06003FILLERPIC VALUESPACE ST1474.2
045200 01  CCVS-H-3.                                                    00                PIC ()VALUE.2
045300     02  FILLER                      PIC X(34)  VALUE             ST1474.2
045400            " FOR OFFICIAL USEPICX2 ST1474.
0502FILLERPIC5)VALUE2
045600     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".ST1474.2
045700     02  FILLER                      PIC X(28)  VALUE0       FILLERPIC2VALUEST1474
480" 1985"                                ST1474
045900 01  CCVS-E-1.                                                    ST1474.2
046000     02 FILLER                       PIC X(52)  VALUE480     2 FILLER                       X1)VALUE.ST1474
400   X1VALUEOF                2
060     0                      PIC(9.ST1474
046300     02 048200     02 CCVS-E-4-1     SPACE.2
06000  .                                                    .2
FILLERPIC(1   SPACE      ST1474
046600     02  FILLER                      0500                         X(4               ST1474
046700     02 CCVS-E-2-2
046800         03080                         X9VALUE
43PICST1474
00400     2.                                                .2
4710            ERRORSST14742
047200 01  CCVS-E-3.                                                    ST1474.2
43                             PIC)VALUEST1474
040" OFFICIALUSE".                             .2
0475044                          PIC.ST1474
0460     0                        PICX)  VALUE             ST1474
04770     "ON-SITEVALIDATION,NATIONALINSTITUTEOF STD & TECH. ".ST1474
070002FILLERPICX(3)VALUE.      ST1474.2
047900     02 FILLER                       PIC X(10980     0 FILLER  PICIS(6)    VALUE "**************ST1474.2
480              COPYRIGHT.ST1474
048100 01  CCVS-E-4.                                                    ST1474.2
800                    PIC    VALUE.      ST1474
4300 FILLER ()VALUE " .2
04805000 01  CCVS-PGM-ID X()VALUE.2
048500     02 FILLER                       PIC X(40)ST147A                                                    ST1474java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
048600      " TESTS WERE 05000 . ST1474.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
048700 01  XXINFO      AFTERSTANDARD ON                .2
088002FILLERPIC(9               ST14742
048900            "*** INFORMATION ***".                                ST1474.2
40     2INFO-TEXT
0400      "" ..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049200       04 XXCOMPUTED                 PIC X(20).                   02      RUNST1474
430       4FILLER X(5    SPACE.2
049400       04 XXCORRECT                  PIC X(20).                   ST147410CCVS1SECTIONST1474
049500     02INF-ANSI-REFERENCE            X(48.                   ST1474
049600 01  HYPHEN-LINE.                                                 ST14740OPEN PRINT-FILEST1474
490     2FILLER IS  IS SPACEST1474
049800     02 FILLER050         SPACETO.                               .2
049900    *********************" .2
050000     02 FILLER  PIC IS X(54)    VALUE IS "************************ST1474.2
0510-"****************"                            .2
050200 01  CCVS-PGM-ID                     052200 CCVS-INIT-FILE.                        
0530"ST147A.ST14742
050400 PROCEDURE 020         FILE-RECORD-INFO-SKELETON                            .2
05050520           FILE-RECORD-INFO).                      .2
560  SECTIONST1474
050700     USE AFTER STANDARD570GO CCVS1-EXITST1474
050800 MRG-WRITE-DEC.                                                   ST1474580 .                                                     .2
050900     MOVE "ERROR ON OUTPUT DECL." TO FEATURE0 TERMINATE-CCVSST1474
051000     MOVE "MRG-TEST-DEC" TO PAR-NAME.                             ST1474.2
051100     WRITE FROM TEST-RESULTSAFTER ADVANCING 2 . ST1474.2
010      RUNST1474.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051400 CCVS1 SECTION.                                                   ST1474.2
051500 OPEN-FILES.                                                      ST1474.2
051600     053600    MOVE**** DELETED**" RE-MARK ST1474.2
VS-PGM-ID TO TEST-ID  CCVS-PGM-ID TOID-AGAIN.  ST1474java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
05800     MOVE    SPACE TOTEST-RESULTSST1474.2
051900     PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.              ST1474.2
052000     0390MOVE."TOPARDOT-XST1474.
052100     PERFORM0400MOVE TO DOTVALUEST1474
052200 CCVS-INIT-FILE.                                                  ST147450IF                .
052300     ADD     1 054400 THRU.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
052400     MOVE    FILE-RECORD-INFO-SKELETON  TO.ST1474
052500          TO7           EQUAL ZERO  PAR-NAME
560.                                                  
052700     GO TO CCVS1-EXIT.                                            ST1474.2
052800 CLOSE-FILES   DUMMY-RECORD  .  .2
02  TO WRITE-LINE.  ST1474
053000500MOVE CCVS-H-3TODUMMY-RECORD PERFORM 3 TIMES.  ST1474.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
053100     STOP     RUN50MOVE TO . PERFORM.           ST1474
05320 . MOVE "" TO . ADD   INSPECT-COUNTERST1474
053300500MOVE TO. PERFORM .        ST1474
053400FAIL "FAIL"TO     .ST1474
550 .  MOVE**" .ADD TO . .2
053600     MOVE "****TEST DELETED****" TO RE-MARK.                      ST1474.2
053700 PRINT-DETAIL.                                                    ST1474.2
IFREC-CTEQUAL ZEROST14742
053900             MOVE "." TO PARDOT-X                                 ST1474.2
0540060 END-ROUTINE-1ST1474
054100     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM060ADDERROR-COUNTER ERROR-HOLD TOST1474
05400IF EQUAL TOFAIL  PERFORM               ST1474
  PERFORM FAIL-ROUTINE FAIL-ROUTINE-EX                 .2
056600*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   ST1474.2
054500     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              ST1474.2
054600     MOVE SPACE TO CORRECT-X.                                     ST1474.2
054700     IF     REC-CT EQUAL TO ZERO  MOVE SPACE 500      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           ST1474.2
054800     MOVE05100  END-ROUTINE-12ST1474.
054900 HEAD-ROUTINE.                                                    ST14740 "TEST()FAILED .ST14742
0   TO.PERFORM 2TIMES.2
055100     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  ST1474.2
055200     MOVE CCVS-H-2B TODUMMY-RECORD PERFORMWRITE-LINE TIMES.  ST1474.2
055300     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  ST1474.2
05500 COLUMN-NAMES-ROUTINEST1474.2
055500     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           ST1474.2
055600     MOVE TO . PERFORM 2 TIMES   ST1474.2
055700     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        ST1474.2
055800 END-ROUTINE.                                                     ST1474.2
055900     MOVE HYPHEN-LINE TO0.                                                  
056000 END-RTN-EXIT.                                                    ST1474.2
056100     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1474.2
056200 END-ROUTINE-1.                                                   ST1474.2
056300      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      ST1474.2
060      ERROR-HOLD  TOERROR-HOLD.ST1474
056500      ADD PASS-COUNTER TO ERROR-HOLD.                             ST1474.2
056600*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   ST1474.2
0080           " TOERROR-TOTALST1474.
056800      MOVE TO.                              ST1474
0590MOVE TO.                                .2
0500       CCVS-E-2 DUMMY-RECORD WRITE-LINEST14742
057100  END-ROUTINE-12.                                                 ST1474.2
057200      MOVE "TEST(S) FAILED" TO90MOVE TO . PERFORMWRITE-LINE.2
05700IFERROR-COUNTER EQUAL ZERO.2
057400         MOVE "NO " TO ERROR-TOTAL                                ST1474.2
057500         ELSE                                                     ST1474.2
560MOVE TOERROR-TOTAL.2
057700     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           ST1474.2
057800     PERFORM WRITE-LINE.                                          ST1474.2
059END-ROUTINE-13ST1474.2
058000     IF DELETE-COUNTER IS EQUAL TO ZERO560WRITE AFTERADVANCINGPAGE.2
5810          " "TO  ELSEST1474
058200         MOVE DELETE-COUNTER TO ERROR-TOTAL580MOVE TO DUMMY-RECORD  2 TIMES.2
80      "(S DELETED"TO.                   ST1474
058400     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           ST1474.2
80         INSPECT-COUNTERTO                          ST1474
080           "NO"TO                               .2
0800ELSE INSPECT-COUNTER ERROR-TOTALST1474
058800      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            ST1474.2
058900      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          ST1474  TOST1474
059000     MOVE CCVS-E-3 DUMMY-RECORD PERFORM.           ST1474
0590660PERFORM.                                              .2
0 TO.                                       2
059300     IF RECORD-COUNT GREATER 42                                   ST1474.2
040MOVE TO                          ST1474
090          SPACE TO DUMMY-RECORDST1474
059600         WRITE DUMMY-RECORD061000 .                                                .2
090          CCVS-H-1DUMMY-RECORD WRT-LN    ST1474.2
059800         MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM6100FAIL-ROUTINEST1474.
50          CCVS-H-2B DUMMY-RECORDPERFORM 3 TIMES.2
060000         MOVE CCVS-H-3  TO DUMMY-RECORD PERFORM WRT-LN61500     IFCORRECT-X  TO GOTO.ST1474
060100         MOVE CCVS-C-1  TO DUMMY-RECORD PERFORM WRT-LN            ST1474.2
06020          CCVS-C-2TO  PERFORM WRT-LN.2
060300         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM 0100   XXINFO DUMMY-RECORDPERFORM 2 TIMES.2
640MOVE TODUMMY-RECORDST1474.2
060500         MOVE ZERO TO RECORD-COUNT.                               ST1474.2
060600     PERFORM WRT-LN.                                              ST1474.2
060700 WRT-LN.                                                          ST1474.2
TER 1LINES.2
060900     MOVE SPACE TO DUMMY-RECORD.                                  ST1474.2
061000 BLANK-LINE-PRINT.                                                ST1474.2
06100     PERFORMWRT-LN.                                              .2
061200 FAIL-ROUTINE.                                                    ST147406250     MOVESPACESTOCOR-ANSI-REFERENCE.                         ST1474
061300     IF     COMPUTED-X NOT EQUAL TO SPACE020 BAIL-OUTST1474.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
061400            GO TO   FAIL-ROUTINE-WRITE.                           ST1474.2
06150     IF NOTEQUAL SPACE  FAIL-ROUTINE-WRITE.2
061600     MOVE   ANSI-REFERENCE TO 030 BAIL-OUT-WRITEST1474.2
061700     MOVE300MOVE TO . MOVE TOXXCOMPUTED.2
0610        XXINFO DUMMY-RECORD WRITE-LINE TIMES.2
061900     MOVE   SPACES TO INF-ANSI-REFERENCE0330        XXINFO DUMMY-RECORD WRITE-LINE.ST1474
6000GO  FAIL-ROUTINE-EXST1474.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
610FAIL-ROUTINE-WRITEST1474
062200     MOVE   TEST-COMPUTED TO PRINT-REC030CCVS1-EXITST1474.2
062300     MOVE     .ST1474
062400     MOVE   TEST-CORRECT TO  SECTIONST1474
60        SPACES COR-ANSI-REFERENCE.2
062600 FAIL-ROUTINE-EX. EXIT000      "CREATEFILESQ-FS1 TO .
062700 BAIL-OUT.                                                        ST1474.2
062800     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   ST1474.2
062900     IF     CORRECT-A EQUAL TO SPACE GO TO60      "" TO (1.                           .2
063000 BAIL-OUT-WRITE.                                                  ST1474.2
063100      CORRECT-A TOXXCORRECT  COMPUTED-A XXCOMPUTED.ST1474
063200     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE04600     MOVE"" CHARS-OR-RECORDS)ST1474
3   XXINFO DUMMY-RECORD WRITE-LINE .   ST14742
063400     MOVE040     MOVE 0005  RECORDS-IN-FILE1.                          .2
06350     MOVESQ XFILE-ORGANIZATION)                         ST1474.2
063600 CCVS1-EXIT.                                                      ST1474.2
063700     EXIT.                                                        ST1474.2
0680  .                                          .2
063900 MRG-INIT-001.                                                    650 MRG-TEST-001ST14742
064 " FILE SQ-FS1" FEATURE.2
064100     OPEN OUTPUT SQ-FS1.                                          50FROM BY 1UNTIL IS THAN.      .2
040      "" TO (1)                             .2
064300     070WRITE.                                           .2
640      CCVS-PGM-ID XPROGRAM-NAME                       .2
064500     MOVE050          FAIL INCORRRECS RE-MARK.2
660     MOVE"" TO (1. ST1474.
064700     MOVE 001          PASSST1474
064800     MOVE 000051 TO RECORDS-IN-FILE2      TO.                                         .2
064900     MOVE "SQ" TO XFILE-ORGANIZATION (1).                         ST1474.2
050      "S TOXLABEL-TYPE() .
065100     MOVE 000001 TO XRECORD-NUMBER 060ALPHAN-KEYKEY-2  KEY-3ST1474
0652000600      WRK-DU-999-0001 NUM-KEY OFKEY-1 OF    ST1474
630.                                                    .2
RYING           ST1474
065500         FROM 51 BY -1 UNTIL690ADD1  (.ST1474
065600     070      ASCIIS)  COLLS).       ST1474
065700     WRITE   60        WRK-DU-999-2ST1474
065800     IF XRECORD-NUMBER (1) 070MOVE (WRK-DU-999-0001 TO COLLSWRK-DU-999-2ST1474
69          FAIL". NO.OF RECS"TO      ST1474
066000         ELSE                                                     WRITE FROM.                       .2
066100         PERFORM06       TO                                    .
066200     GO TO MRG-WRITE-001.                                         ST1474.60 .ST1474
066300 MRG-TEST-001-BUILD.                                              ST1474.2
06400MOVE (WRK-DU-999-0001  ALPHAN-KEY KEY-1.2
06650810MOVE"TO .
KEY NUM-KEY2
066700         NUM-KEY 63      XRECORD-NUMBER(  CORRECT-18V0ST1474
066800     MOVE FILE-RECORD-INFO-P1-120 (080PERFORM.                                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
066900     ADD 1 TO XRECORD-NUMBER (1).                                 0860        PRINT-REC.                                          ST1474
067000     MOVE ASCIIS (WRK-DU-999-0001) TO COLLS (WRK-DU-999-2).0800MRG-INIT-002ST14742
067100     ADD 1 TO WRK-DU-999-2.                                       ST1474.2
6       (WRK-DU-999-0001  (WRK-DU-999-2       .2
067300     ADD 1 TO WRK-DU-999-2.                                       ST1474.2
067400     WRITE 610  ""  XFILE-NAME.ST1474
067500     WRITE PRINT-REC FROM090      0001TO ().                          .2
0700MOVE TO.                                    2
067700     WRITE   SQ-FS1R1-F-G-132.                                    ST1474.2
0670 MRG-DELETE-001ST14742
067900     PERFORM DE-LETE.                                             ST1474.2
068000 MRG-WRITE-001.                                                   ST1474.2
0800     MOVEMRG-TEST-001 PAR-NAMEST1474
068200     MOVE "FIRST FILE CREATED" TO COMPUTED-A.                     ST1474.2
6300MOVE (1) TO.                     ST1474
068400     PERFORM PRINT-DETAIL.                                        0     IFXRECORD-NUMBER)IS EQUALTO                     .2
068500     MOVE    SPACES TO PRINT-REC.                                 ST1474.2
E   .                                           ST14742
0670      SQ-FS1ST1474.2
068800 MRG-INIT-002.                                                    ST1474.2
068900     MOVE "CREATE FILE SQ-FS2" TO FEATURE.                        ST1474.2
069000     OPEN OUTPUT SQ-FS2.                                          ST1474.2
069100     MOVE  "SQ-FS2" TO XFILE-NAME (1).                            ST1474.2
069200     MOVE 000001 TO XRECORD-NUMBER00      CHAR) TO OF            ST1474
0900    MOVE02TO (1).ST1474
069400 MRG-TEST-002.                                                    ST1474.2
090      MRG-TEST-002-BUILD WRK-DU-999-0001.2
069600         FROM 51 BY -1 UNTIL WRK-DU-999-0001 IS LESS THAN 1.      ST1474.2
0670MOVESPACES PRINT-RECST1474
069800     WRITE   PRINT-REC.                                           ST1474.2
069900     IF XRECORD-NUMBER (1) IS NOT EQUAL TO 52                     ST1474.2
070000         PERFORM FAIL MOVE "INCORR. NO. OF RECS." TO RE-MARK07100     WRITEPRINT-REC SQ-FS2R1-F-G-132                       .2
070100         ELSE                                                     ST1474.2
070200         PERFORM04        SQ-FS2R1-F-G-132.2
70     GOTO.                                         .
070400 MRG-TEST-002-BUILD                                              .2
007100 .                                                   .2
000           KEY-5.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
070700     ADD 51 WRK-DU-999-0001 GIVING NUM-KEY OF KEY-4               ST1474.2
070800         NUM-KEY721      PRINT-DETAILST1474
070900     MOVE07220     MOVESPACES PRINT-RECST1474.
071000     072300     WRITEPRINT-RECST14742
071100     WRITE PRINT-REC FROM SQ-FS2R1-F-G-132.                       ST1474.2
100WRITE FROM REST-OF-2                              .2
70MOVE TO.ST1474
071400     WRITE   072600*    ==-->  MULTIPLE "GIVING" FILES <--== ST1474.2
5 .ST1474
071600     PERFORM720MOVE TO .                                ST14742
071700 MRG-WRITE-002.                                                   ST1474.2
071800     MOVEMRG-TEST-002 TO.                             ST1474.2
071900     MOVE 07300         DESCENDING OF SORT-KEY.2
070710ON KEY OF                      .2
071.                                        .
030          SQ-FS3 .                             .2
07230   PRINT-RECST1474.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
072400     CLOSE SQ-FS2.                                                ST1474.2
07250 .                                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
072600*    ==-->  MULTIPLE "GIVING" FILES  <--==                        ST1474.2
770MOVE" 4.. (11"TO.              .2
072800     MOVE SPACES TO WRK-XN-X-000190WRITE.                                           2
072900     MERGE ST-FS1                                                 ST1474.2
07300          A-KEY SORT-KEY.2
073100         ON DESCENDING KEY N-KEY OF NON-KEY-120ELSEST1474
073200         USING  SQ-FS2040         PASSST1474
073300740 TOMRG-WRITE-003.                                         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
073400 MRG-TEST-003.                                                    ST1474.2
073500     OPEN INPUT SQ-FS3.                                           ST1474.2
073600     PERFORM RD-1 070GO  MRG-WRITE-003                                         
0770          WRK-DU-999-0001 GREATERTHAN.                .2
073800     MOVE    SPACES TO PRINT-REC.                                 ST1474.2
073900     WRITE   PRINT-REC.                                           .2
0700     IF WRK-XN-X-0001 NOT TOWRK-XN-0002.2
074100         PERFORM FAIL GO TO MRG-FAIL-003                          ST1474.2
07420         ELSEST1474.2
074300         PERFORM PASS.                                            ST1474.2
07440     GO MRG-WRITE-003                                         .2
074500 MRG-DELETE-003740      PRINT-DETAIL                                        .2
740     PERFORMDE-LETE.                                             .2
07400GO MRG-WRITE-003ST1474.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
.                                                    ST1474
074900     MOVE WRK-XN-X-0001 TO07580     MOVESPACESTOWRK-XN-X-0001                                .2
7500      WRK-XN-0002 TOCORRECT-AST1474.2
075100 MRG-WRITE-003.                                                   ST1474.2
075200     MOVE "MRG-TEST-003" TO PAR-NAME.                             ST1474.2
5MOVE TO.ST1474
0754000710UNTIL IS  20.                ST1474
     MOVE    SPACES PRINT-REC                                 .2
075600        PRINT-REC                                           java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
05700 .                                                    ST14742
075800     MOVE SPACES076500         PERFORMFAIL TOMRG-FAIL-004ST1474
07590007660         ELSE                                                     ST14742
06000     RD-1 THRU VARYING WRK-DU-999-0001 1 BY1ST1474.2
0610         UNTIL IS GREATER 20.                .2
076200     MOVE    SPACES07690 MRG-DELETE-004                                                  ST1474.2
076300     WRITE   PRINT-REC.                                           ST1474.2
076400     IF WRK-XN-X-0001 IS NOT EQUAL TO WRK-XN-0003                 ST1474.07700     PERFORMDE-LETEST1474.2
076500         PERFORM FAIL GO TO MRG-FAIL-004                          ST1474.2
70ELSEST1474
076700         PERFORM PASS.                                            ST1474.2
07680      TO.                                         .2
70 .                                                  2
077000     PERFORM DE-LETE.                                             ST1474.2
077100     GO TO MRG-WRITE-004.                                         ST1474.2
077200 MRG-FAIL-004.                                                    ST1474.2
770      WRK-XN-X-0001 .                            .2
077070     MOVE " COLL. " TOFEATURE.2
0.                                                   2
077600     MOVE "09 SPACES PRINT-REC. .2
070     MOVENATIVE.SEQUENCE FEATURE.                     ST14742
077800     PERFORM PRINT-DETAIL.                                        07100 MRG-INIT-005                                                    .2
077900     MOVE    SPACES TO PRINT-REC.                                 ST1474.2
078000     WRITE   PRINT-REC.                                           ST1474.2
078100 MRG-INIT-005.                                                    ST1474
078200     MOVE SPACES TO WRK-XN-X-0001.                                ST1474.2
078300 .                                                    .2
078400     PERFORM0860         SPACES PRINT-RECST1474
078500         UNTIL WRK-DU-999-0001 IS 0870WRITE.                                           .2
078600     MOVE    SPACES TO PRINT-REC.                                 ST1474.2
ST1474.2
078800     IF WRK-XN-X-0001 IS NOT EQUAL TO WRK-XN-0004                 ST1474.2
078900         PERFORM FAIL GO TO MRG-FAIL-005                          ST1474.2
079000         ELSE                                                     ST1474.2
079100         PERFORM PASS.                                            ST1474.2
079200     GO TO MRG-WRITE-005.                                         ST1474.2
079300 MRG-DELETE-005.                                                  ST1474.2
740     PERFORM.                                             ST1474
079500     GO TO MRG-WRITE-005.079600 MRG-FAIL-005.                                                    
760 .                                                    .2
790      WRK-XN-X-0001 .                            ST1474
0900MOVE TO.                               .2
079900 MRG-WRITE-005.                                                   ST1474.2
080000     MOVE "MRG-TEST-005" TO PAR-NAME.                             ST1474.2
080100     MOVE "NATIVE COLL.SEQUENCE " TO FEATURE.                     ST1474.2
080      PRINT-DETAIL.2
080300     MOVE    SPACES000     MOVE     TO.                                 
080400     WRITE   PRINT-REC.                                           ST1474.2
080500 MRG-INIT-006.                                                    ST1474.2
080600     MOVE SPACES TO WRK-XN-X-0001.                                ST1474.2
080700 MRG-TEST-006.                                                    ST1474.2
800      RD-1 R1-EXITVARYINGWRK-DU-999-00011BY.2
080900         UNTIL WRK-DU-999-0001
--> --------------------

--> maximum size reached

--> --------------------