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 -                                     &p;      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
012000 ENVIRONMENT DIVISION.                                            ST1474.2
012100 CONFIGURATION SECTION.                                           ST1474.2
012200 SOURCE-COMPUTER.                                                 ST1474.2
012300     Card0130.                                                    ST1474.2
012400 OBJECT-COMPUTER.                                                 ST1474.2
012500     Card0131.                                                    ST1474.2
012600 INPUT-OUTPUT SECTION.                                            ST1474.2
012700 FILE-CONTROL.                                                    ST1474.2
012800     SELECT PRINT-FILE ASSIGN TO                                  ST1474.2
012900     "C0085" .                                                    ST1474.2
013000     SELECT SQ-FS1 ASSIGN                                         ST1474.2
013100     "C0020"                                                      ST1474.2
013200     ; ORGANIZATION IS SEQUENTIAL                                 ST1474.2
013300     ; ACCESS MODE SEQUENTIAL                                     ST1474.2
013400     ; RESERVE 2 AREAS.                                           ST1474.2
013500     SELECT SQ-FS2 ASSIGN TO                                      ST1474.2
013600     "C0021"                                                      ST1474.2
013700     ORGANIZATION IS SEQUENTIAL                                   ST1474.2
013800     ACCESS MODE IS SEQUENTIAL                                    ST1474.2
013900     RESERVE 4 AREAS.                                             ST1474.2
014000     SELECT SQ-FS3 ASSIGN TO                                      ST1474.2
014100     "C0022"                                                      ST1474.2
014200     ORGANIZATION IS SEQUENTIAL                                   ST1474.2
014300     ; ACCESS MODE IS SEQUENTIAL                                  ST1474.2
014400     RESERVE 4 AREAS.                                             ST1474.2
014500     SELECT SQ-FS4 ASSIGN TO                                      ST1474.2
014600     "C0096"                                                      ST1474.2
014700     ORGANIZATION IS SEQUENTIAL                                   ST1474.2
014800     ; ACCESS MODE IS SEQUENTIAL                                  ST1474.2
014900     RESERVE 4 AREAS.                                             ST1474.2
015000     SELECT SQ-FS5 ASSIGN TO                                      ST1474.2
015100     "C0024"                                                      ST1474.2
015200     ORGANIZATION IS SEQUENTIAL                                   ST1474.2
015300     ; ACCESS MODE IS SEQUENTIAL                                  ST1474.2
015400     RESERVE 4 AREAS.                                             ST1474.2
015500     SELECT ST-FS1 ASSIGN TO                                      ST1474.2
015600     "C0039" .                                                    ST1474.2
015700 I-O-CONTROL.                                                     ST1474.2
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.                                                  ST1474.2
016200 01  PRINT-REC PICTURE X(120).                                    ST1474.2
016300 01  DUMMY-RECORD PICTURE X(120).                                 ST1474.2
016400 FD  SQ-FS1                                                       ST1474.2
016500     LABEL RECORDS STANDARD                                       ST1474.2
016600     VALUE OF                                                     ST1474.2
016700     Impl1                                                        ST1474.2
016800     4711                                                         ST1474.2
016900     BLOCK CONTAINS 1 RECORDS                                     ST1474.2
017000                                                                  ST1474.2
017100     RECORD CONTAINS 132 CHARACTERS.                              ST1474.2
017200 01  SQ-FS1R1-F-G-132.                                            ST1474.2
017300     10 REC-PREAMBLE PIC X(120).                                  ST1474.2
017400     10 REST-OF-1.                                                ST1474.2
017500     20 KEY-1.                                                    ST1474.2
017600         30 ALPHAN-KEY PIC X.                                     ST1474.2
017700         30 NUM-KEY PIC 999.                                      ST1474.2
017800     20 KEY-2.                                                    ST1474.2
017900         30 ALPHAN-KEY PIC X.                                     ST1474.2
018000         30 NUM-KEY PIC 999.                                      ST1474.2
018100     20 KEY-3.                                                    ST1474.2
018200         30 ALPHAN-KEY PIC X.                                     ST1474.2
018300         30 NUM-KEY PIC 999.                                      ST1474.2
018400 FD  SQ-FS2                                                       ST1474.2
018500     LABEL RECORD IS STANDARDST1474.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018600     ; VALUE OF                                                   001500*        ROUTINE001600*    A NATIVE  COLLATING SEQUENCE 001700*002500002600*    *   SAME 002700*    *   QUALIFIED ALPHANUMERIC AND002800*    *   USING FILE-NAME SERIES002900*                                                                 ST1474.2
018700     Impl1003800*    ARE FIRST CREATED003900*    USES BOTH OF 004000*    SQ-FS3, SQ-FS4 AND SQ-FS5004100*                                                                 ST1474.2
018800     IS004600*    RESERVE 2 AREAS                                              ST1474004700*                                                                 ST1474.2
005100*    BLOCKED 2                                                    ST1474.2
019000                                                                  ST1474.2
019100     ; 005500*    FINAL TOTAL OF 102 RECORDS                                   005600*    FIXED LENGTH RECORDS005700*    BLOCKED 3                                                    ST1474.2
019006100*    SQ-FS2.  THE RECORDS 006200*    SQ-FS1 AND SQ-FS2 BECAUSE006300*    FOR BOTH FILES006400*    DESCENDING ORDER.  FILES SQ-FS4 AND SQ-FS5006500*    IDENTICAL TO SQ-FS3.                                         ST1474.2
019300     DATA RECORD SQ-FS2R1-F-G-132.                                007100*    X-XXX018     SQ-FS5007200*    X-XXX027     MERGE FILE ST-FS1                               ST1474.2
019400 01007600*        THAT THE QUOTE CHARACTER IS007700*        CARD AND THE DOLLAR 007800*        THE $ BELONGS IN THE 007900*        THE NATIVE COLLATING SEQUENCE IS008000*        COLLATING SEQUENCE SEE BELOW008100*                                                                 ST1474.2
019500     10 REC-PRE-2 PIC X(120).                                     ST1474.009000*    X-82         SOURCE COMPUTER NAME.                           009100*    X-83         OBJECT COMPUTER NAME.                           ST1474.2
019009500*    *   OPT SW6 - X   TO009600*                      FILES AS THEY ARE CREATED AND READ009700*                      DURING TESTS 3 THRU 8, 009800*                      AND 19 THRU 24.                            ST1474.2
019700     20 KEY-4.                                                    ST1474.2
019800         30 ALPHAN-KEY010300*    MRG-TEST-003     TESTS RECORDS 1-20 ON010400*    MRG-TEST-004     TESTS RECORDS 21-40 ON MERGE RESULT SQ-FS3  ST1474.2
019900         30 NUM-KEY PIC 999.                                      ST1474010700*    MRG-TEST-007     TESTS RECORDS 81-100 ON MERGE RESULT010800*    MRG-TEST-008     TESTS RECORDS 101-102 ON                    ST1474.2
020000     20 KEY-5.                                                    ST1474011400*    MRG-TEST-018     SAME TESTS ON SQ-FS4                        ST1474.2
0201011600*    TO                                                           ST1474.2
020200         30 NUM-KEY PIC011800*                                                                 ST1474.2
020300     20 KEY-6.012000 ENVIRONMENT.                                            ST1474.2
0200         0ALPHAN-KEY X                                     .2
020 .                                                 .2
0200FDSQ-FS3                                                       
000      RECORDIS                                     ST1474
000       OF                                                   .2
020900     Impl1                                                         .ST14742
021000     IS                                                           ST1474.2
021100     4711                                                         ST1474.2
021200                                                                  ST1474.2
010     ;BLOCK  RECORDS                                   .2
021400     RECORD190"" .ST1474.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
021500     DATA RECORD130;ACCESSMODE                                     .2
010 1SQ-FS3R1-F-G-132ST14742
021700     10  REC-PRE-3 PIC X(120).                                    ST1474.2
021800     10  REST-OF-3.                                               ST1474.2
0130     SELECT  ASSIGNTOST1474
022000          030     C0021ST1474.2
022100          30  NUM-KEY PIC 999.                                    ST1474.2
020     0KEY-8ST14742
022300          30  ALPHAN-KEY PIC X.                                   ST1474.2
                                    ST1474.2
0502  .                                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022600          30  ALPHAN-KEY120ORGANIZATIONIS                                   .2
02270          0NUM-KEY 99.                                    .2
022800 FD  SQ-FS4                                                       ST1474.2
290LABEL IS STANDARDST14742
023000     ; VALUE OF                                                   ST1474.2
0210                                                             ST1474
023200     IS                                                           ST1474.2
02330Card0120ST1474
023400                                                                  ST1474.2
023500     ; BLOCK CONTAINS 3 RECORDS180;ACCESS ISSEQUENTIALST14742
023600     RECORD CONTAINS 132 CHARACTERS                               ST1474.2
023700     DATA RECORD SQ-FS4R1-F-G-132.                                ST1474.2
023800 01  SQ-FS4R1-F-G-132.                                            ST1474.2
023900     10  REC-PRE-4 PIC X(120).                                    ST1474120ORGANIZATION SEQUENTIALST14742
024000     10  REST-OF-4.                                               ST1474130;ACCESS IS SEQUENTIAL                                  ST1474
024100     20  KEY-1050      ST-FS1TOST1474
024200          30  ALPHAN-KEY PIC150     C0039ST1474.2
024300          30  NUM-KEY PIC 999.                                    ST1474.2
0440     0KEY-11ST14742
024500          30  ALPHAN-KEY PIC X.                                   ST1474.2
024600          30  NUM-KEY PIC 999.                                    ST1474.2
024700     20  KEY-12.                                            &nbs;       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 VALUERECORD 3CHARACTERS
027300     RECORD CONTAINS 132401S.ST1474
270        .ST1474
027601 .                                                
027600090         0ALPHAN-KEY                                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
027700     0220     0KEY-5ST1474
2103   X                                     .2
027900         03 N-KEY PIC 999.                                        003  PIC.ST1474
028000     02 SORT-KEY.0403  PIC                                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0  PIC X.ST1474
028200         03 N-KEY PIC 999.                                        ST1474.2
028300     02 NON-KEY-2.                                                ST1474.2
028400         03 A-KEY     Impl1ST1474
028500         03 N-KEY PIC 999.                                        ST1474.2
028600 WORKING-STORAGE0200IS                                                           ST1474
0287010     71ST14742
028800 77  WRK-DU-999-0001 PIC 999.                                     ST1474.2
028900 77  WRK-DU-999-230    RECORDSST1474
029000 77  LAST-REC-NUM CONTAINS 12                               ST1474
029100 01  WRK-XN-000120 01.                                            
029200     "C0099" .                                                    
029300 0NUM-KEY.                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029400     02 CHAR PICST1474
05  WRK-XN-21VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
260     "C0099 . .2
029700 01  WRK-XN-0051F-X-0002 REDEFINES2703  NUM-KEY 99.                                    .2
098002ASCIIS   51TIMESST1474.2
029900 01  WRK-XN-O020F-0001.                                           ST1474.2
0300     2COMPUX OCCURS0TIMESST1474
030100 01  WRK-XN-X-0001 REDEFINES WRK-XN-O020F-0001.                   ST1474.2
03000   X2)                                         .2
30  WRK-XN-O120F-1.2
030400     02 COLLSISST1474
3500   REDEFINES ST1474
20                                                      &nLLERPICX6.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

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