Quelle  st147a.cob   Sprache: Cobol

1..2
000200 .                                                      
000300     ST147A.                                                      ST1474.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
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.                                                  ST1474.2
024800          30  ALPHAN-KEY PIC X.                                   ST1474.2
024900          30  NUM-KEY PIC 999.                                    ST1474.2
025000                                                          .2
025100     LABEL RECORD IS STANDARD                                     10 1PRINT-REC (2)                                    .2
025200     ; VALUE OF                                                   6400FD                                                         ST1474
053                                                             java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0ST1474.2
025500     Card0121                                                     ST1474.2
025600                                                                  7ST1474
050      BLOCK CONTAINS                                     .2
0170       PIC10)                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025900     DATA RECORD SQ-FS5R1-F-G-132.                                ST147476030  PIC.                                     ST1474
060 1SQ-FS5R1-F-G-132ST1474
026100     10  REC-PRE-5 PIC X(120).                                    ST1474.2
0601REST-OF-5.2
026300     20  KEY-13.1903ALPHAN-KEY .ST1474
 PIC.ST1474
026500          3002 .                                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026600     20  KEY-14.                                                  080FDSQ-FS2ST1474
203   PIC.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026800          30  NUM-KEY                                                        
80711                                                         
20             PICST1474
027100          30  NUM-KEY PIC 999.                                    ST1474.2
027200 SD  ST-FS1                                                       20;RECORD 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                                                                  2
3702WRK-XN-00032.ST1474
030800     02 WRK-XN-0004 PIC030     CONTAINS2                               .2
03020DATA SQ-FS4R1-F-G-132.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
3002WRK-XN-00062)                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
30       PIC.ST1474
031200 01  FILE-RECORD-INFORMATION-REC.                                 ST1474.2
010     3FILE-RECORD-INFO-SKELETONST1474.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0310        5FILLERPICTURE(8              ST14742
350"= RECORD=/,=00000UPDT0"  .2
031600        05 FILLER                 0245003   PIC X                                   .2
031700             ",ODO=0000,PGM= ,LRECL=000000,04702 . ST1474.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031800        05java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031900             ",LFIL=000000,ORG= ,LBLR= ".                        ST1474.2
3200        05                  PICTURE3)VALUE.2
032100             ",RECKEY= ".             ST1474.2
020        5FILLERPICTURE(8              ST1474.2
032300             ",ALTKEY1= ".3000 1  WRK-XN-X-2REDEFINES.                         ST14742
032400        05 FILLER                 PICTURE X(38)       VALUE       ST1474.2
320             ,=". .2
00070      PIC20).                                    .2
032700     03 FILE-RECORD-INFO          03000     02 WRK-XN-0004 X(20).                                    ST1474.2
0320        5FILE-RECORD-INFO-P1-120ST1474
032900           07 FILLER              PIC30000  PIC2).                                    ST1474
033000           07 XFILE-NAME           3200FILE-RECORD-INFORMATION-RECST1474
3100               PIC8.ST1474
033200           07 3400                   X(8              ST14742
033300           07 FILLER              PIC X(10             FILERECORDRECNO  .
033400           07 REELUNIT-NUMBER,=000=,LRECL0,BLKSIZ.    ST1474
350                          ()                       .2
033600           07 XRECORD-NUMBER39             LFIL  LBLRST1474
30                           ()                       .2
033800           2.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
033900           2400                  PICTURE              ST1474
034000           07 ODO-NUMBER          PIC 9(4).                       020        5FILLER ()VALUE.ST14742
0341003700           OCCURS  10  .              .2
0320           7XPROGRAM-NAME(5.ST1474
034300           07 FILLER              PIC X(7).                       ST1474.2
034400           07 XRECORD-LENGTH       PIC 9(6).                      ST1474330           7XFILE-NAME X(6.ST1474
034500           07 FILLER              PIC X(7).                       ST1474.2
034600           07 CHARS-OR-RECORDS    PIC X(2).                       ST1474.2
037007               PICX(1.ST1474
034800           07 XBLOCK-SIZE          PIC 9330           7REELUNIT-NUMBER 91.ST1474
040           7FILLER ()                       .2
035000           07 RECORDS-IN-FILE     PIC 9(6).                       ST147436007XRECORD-NUMBER 96)                      .2
035100           07 FILLER              PIC X(5).                       ST1474.2
035200           07 XFILE-ORGANIZATION   PIC X(2).                      ST1474.2
035300           07 FILLER34000 ODO-NUMBER          PIC 9(4).                       ST1474.2
035400           07 XLABEL-TYPE          PIC X(1).                      ST1474.2
035500        05 FILE-RECORD-INFO-P121-240.                             ST1474.2
035600           07 FILLER              PIC X(8).                       ST1474.2
00310            FILLER X5                       .2
.2
035900           07 ALTERNATE-KEY1      PIC03                           (.ST1474
06 PIC                       .2
036100           07 ALTERNATE-KEY2      PIC X(29).                      ST1474.2
036200           07 FILLER              PIC X(7).                       ST1474.2
036300 01  TEST-RESULTS.                                                ST1474.2
036400     02 FILLER                   PIC X      VALUE SPACE.          ST1474.2
30     2FEATURE X(2)VALUE SPACE          ST1474
036600     02046007     PIC.ST1474
0070                          PIC1.ST1474
02FILLERPICVALUE.          ST1474
036900     02  PAR-NAME.                                                ST1474.2
037000       03 FILLER                 PIC(19   SPACE          ST1474
050                 PIC)                       ST1474.2
037200       03 DOTVALUE               PIC 99     VALUE ZERO.           ST1474.2
037300     02 FILLER                   PIC X(8)   VALUE SPACE0510           0FILLER X()                       .2
037400     50           FILLER (6.                       .2
700  .                                               2
037600     02 FILLER                   PIC X(30)  03500        05FILE-RECORD-INFO-P121-240ST1474
00                     X17  VALUEST1474
037800            " COMPUTED=".                                   050           7XRECORD-KEYPIC9.ST1474
.                                               ST1474
080     3COMPUTED-AX2)VALUE.          .2
038100     03 COMPUTED-N               REDEFINES COMPUTED-A             ST1474007               PIC)                       .2
038200                                 PIC 0207FILLER X(.ST1474
00 TEST-RESULTSST14742
038400     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC060002FILLER X      VALUE.          ST1474
3500 COMPUTED-14V4     -494     .2
038600     03       CM-18V036                          XVALUE.ST1474
080         4COMPUTED-18V0PIC8.ST1474
30         4FILLER X.ST1474
038900     03 FILLER PIC X060      PAR-NAMEST1474
3000  .                                                .2
ST1474.2
039200     02 FILLER PIC X(17) VALUE " CORRECT =".                ST1474.2
039300     02 CORRECT-X.                                                ST1474.2
039400     03 CORRECT-A                  PIC700                   PIC(1                       .2
039500     03 CORRECT-N    REDEFINES CORRECT-A     PIC36     2                    X0  VALUESPACE.          .2
0390     3CORRECT-0V18 CORRECT-A .(1)         .2
039700     03 CORRECT-4V14 REDEFINES CORRECT-A     0700"COMPUTED"                                   .2
0900     03 CORRECT-14V4REDEFINES CORRECT-A     PIC -914.()     .2
039900     03      CR-18V0 REDEFINES CORRECT-A.                         ST1474.2
040000         04 CORRECT-18V0                     PIC -9(18)0800PIC 9(9.().ST1474
040100         04 FILLER                           PIC X.               ST147403830     03 COMPUTED-0V18REDEFINES   PIC -.9(8).ST1474
040200     03 FILLER PIC X(2) VALUE SPACE.                              ST1474.2
040300     03 COR-ANSI-REFERENCE36003CM-18V0 .                       ST1474
40 1CCVS-C-1ST1474
040500     02 FILLER  PIC IS X(99)    VALUE03880004 FILLERPIC.ST1474
46-" PARAGRAPH-NAME .2
000           REMARKS.2
040800     02 FILLER                     PIC X(20)    090002FILLER X(3)VALUE.                             .2
9   .                                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041000     02 FILLER                     PIC X0950      CORRECT-N     CORRECT-APIC()99).ST1474
0410                            X(      "TESTED. ST14742
041200     02 FILLER                     PIC X(15)    VALUE SPACE.      ST1474.2
0300 FILLER                     PIC X()     VALUE.ST1474
0100                      PIC)VALUE      .2
1 1REC-SKL-SUBPIC)VALUE.       ST1474
041600 01  REC-CT                        PIC 99       VALUE ZERO.       ST1474.2
470 1DELETE-COUNTER 99       ZERO       .2
041800 01  ERROR-COUNTER41004                            X.               ST1474
041900 01  0000 FILLER X()VALUE.ST1474java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042000 01  PASS-COUNTER                  PIC 999      VALUE0400  .                                                    ST1474
042100 01  TOTAL-ERROR                   PIC 999      04000-
20ERROR-HOLD99VALUE       .2
042300 01  DUMMY-HOLD                    PIC X(120)   VALUE0                     (     .      .2
04                     PIC ZERO.
200                  PIC4)VALUE.     ST1474
20 1CCVS-H-1                                                    .2
042700     02  FILLER                    PIC X0420002FILLERPIC(15     SPACE.     .2
048002FILLERPIC X4)VALUE             .2
042900     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 ST1474.2
4300     2  FILLERPIC X(9     SPACES.ST1474
00450 0  REC-SKL-SUB 9)VALUE.       ST1474
043200   02  FILLER                        010 0                          PIC 9VALUE.       .2
4300  FILLER                         X7    "CCVS85 . .2
043400   02  FILLER                        PIC XXXX0 1ERROR-COUNTER 999      ZEROST1474
5     4 ST1474
001PASS-COUNTER        .       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043700            " COPY - NOT FOR DISTRIBUTION".                       ST14741                    PIC9VALUE.ST1474
04380   2FILLERPIC4)VALUE.ST1474
043900                                                                  ST1474.2
40  .                                                   .2
044100   02  04500                  PIC4)    VALUE .     ST1474
044200" RESULT OF . ST14742
044300   02  TEST-ID                       PIC X(9).                    ST1474200  FILLER                     X(39     SPACES     .2
044400   02  FILLER                        PIC X(4)   VALUE             ST1474.2
.2
044600   02  FILLER                        PIC X(120300                      PIC3)VALUE.ST1474
04470             .ST14742
044800   02  FILLER                        PIC X(22)  VALUE             ST1474.2
490" VALIDATION FOR .ST14742
045000   02  FILLER                        PIC X(58)  VALUE             ST1474.2
045100     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".ST1474.2
ST1474.2
045300     02  FILLER                      PIC X(34)  VALUE             ST1474.2
045400            " FOR OFFICIAL USE ONLY ".                         ST1474430   2FILLER X()VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
045500     02  FILLER                      PIC X(58)  VALUE             ST1474.2
400  .                                                   
045700     02  FILLER                      PIC X(202             OFST1474
500            " 198 . ST1474.2
045900 01  CCVS-E-1.                                                    ST1474.2
0460002                        X()   SPACE.2
046100     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              ST1474.2
ST1474.2
046300     02 FILLER                       PIC X(45)  VALUE SPACES.     ST1474.2
0460460   0  FILLER                        PICX(2)VALUEST1474
046500     02  FILLER4400     "HIGH".                                             .2
0660     2  FILLERPICX(2)  VALUE.      ST1474.2
046700     02 CCVS-E-2-2.                                               ST1474.2
046800         03 ERROR-TOTAL              PIC XXX    VALUE SPACE50   2FILLERPIC5)VALUE.2
490                             X       .ST1474
04700         3ENDER-DESCX44               ST1474
047100            "ERRORS ENCOUNTERED".                                 ST1474.2
047200 01  CCVS-E-3.                                                    ST1474.2
        (22)VALUE2
047400            " FOR OFFICIAL USE ONLY".                             450     0                        PIC X(8               ST1474.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
047500     02  FILLER                       X(1)   SPACE.      .2
047600     02  FILLER                      PIC X(58)  050              COPYRIGHT5.                                .2
047700     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".ST1474.2
07002 FILLERPIC(3  VALUE SPACE      .2
047900     02 FILLER                       PIC X(15)  VALUE             ST1474.2
048000             " COPYRIGHT0610 02FILLERPIC (1) IS "END  TEST-".ST1474.2
048100 01  CCVS-E-4.                                                    420     02ID-AGAIN X()                    .2
                   PIC XXXVALUESPACE.      ST1474
04401  CCVS-E-2ST1474
048400     02                         X3)VALUE.      .2
480     2FILLERPIC(4)VALUE.2
048600      " TESTS WERE EXECUTED SUCCESSFULLY".                       ST1474.2
048700 01  XXINFO.                                                      ST1474.2
4800     2FILLERPIC(1)               ST1474.2
048900            "*** INFORMATION **06900 03FILLER X VALUE SPACE. .2
4002INFO-TEXTST1474
00" ENCOUNTERED".                                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049200       04073002FILLER X(22)  VALUE             .2
049300       04 FILLER                     470             FOR  ONLYST1474
090004XXCORRECT X(20)                   .2
049500     02 INF-ANSI-REFERENCE           PIC702FILLER (58.2
0    STD.2
049700     048                              X1   SPACE
400FILLER  X6     IS**********ST1474
049900-    "***000" 1985" .2
04200     2CCVS-E-4-1 XXX SPACE.2
050100-    "*************080 2FILLER PICX4 " OF.ST1474
52                     PIC9                ST1474
050300     "".                                                    .2
050400 PROCEDURE DIVISION.                                              ST1474.2
0DECLARATIVES2
050600 SECT-ST209-DEC SECTION.                                          ST1474.2
050700USE  ERROR PROCEDURE OUTPUT.ST1474
050800 MRG-WRITE-DEC.                                                   40                              X1)VALUE.2
050900     MOVE "ERROR ON OUTPUT DECL.0900 02 INFO-TEXT. ST1474.2
5100MOVE"MRG-TEST-DEC TOPAR-NAME ST1474.2
051100     WRITE   PRINT-REC FROM TEST-RESULTS AFTER ADVANCING 2 LINES. ST1474.2
5100     STOP.                                                    .2
090       0                      PIC)VALUE.      ST1474
0540 CCVS1 .                                                   .2
051500 OPEN-FILES.                                                      2INF-ANSI-REFERENCEPIC)                   .2
05160         OUTPUT.                                   .2
051700     0700   PIC XVALUE.                          .2
0180MOVE  TEST-RESULTSST1474
051900     PERFORM HEAD-ROUTINE THRU-"*********************.ST1474.2
052000     MOVE    ZERO TO REC-SKL-SUB.                                 ST1474.2
052100     PERFORM CCVS-INIT-FILE 9 TIMES.                              ST147400    **************.ST1474
                          ST1474.2
052300     ADD     1 000     " .
540     MOVEFILE-RECORD-INFO-SKELETON                            ST1474
550TO (REC-SKL-SUBST1474
052600 CCVS-INIT-EXIT.000SECT-ST209-DEC.                                          .2
020      TO.                                            .2
0200 CLOSE-FILESST1474
052900     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   ST1474.2
05300 .                                                  .2
053100     STOP   PRINT-REC LINES2
0520STOP.                                                    2
053300 PASS.  MOVE "05130 END DECLARATIVES ST1474.2
053400 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          ST1474.2
053500 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      ST1474.2
  "*TEST**TO.2
053700 PRINT-DETAIL.MOVE ID-AGAIN.2
01MOVE .                               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
50              " .
50              REC-CT.                             .2
054100     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      ST1474.2
05420      P-OR-FEQUAL TO "FAIL*"  PERFORM WRITE-LINEST14742
054300        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 ST1474.2
          ELSE PERFORM BAIL-OUT BAIL-OUT-EX.                 ST14742
054500     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              ST1474.2
054600     MOVESPACE CORRECT-X                                     .2
05400IFREC-CT TO  MOVE SPACETO.         ST1474.2
054800     MOVE     SPACE020 CCVS-INIT-EXITST1474.2
054900 HEAD-ROUTINE.                                                    ST1474.2
055000     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  ST1474.2
055100     MOVECCVS-H-2ATO. PERFORM WRITE-LINE2TIMESST1474
05500     MOVECCVS-H-2B DUMMY-RECORD. PERFORM 3 TIMES.2
05         . WRITE-LINE.
055400 COLUMN-NAMES-ROUTINE.                                            ST1474.2
0550      CCVS-C-1DUMMY-RECORD WRITE-LINE.2
055600     MOVE CCVS-C-2 TO DUMMY-RECORD. 00INSPT INSPTTOP-OR-F1TO.         .2
57      HYPHEN-LINE DUMMY-RECORDPERFORMWRITE-LINE.2
055800 END-ROUTINE .  MOVE"* P-OR-F.ADD1TOERROR-COUNTER .2
055900     MOVE HYPHEN-LINE030DE-LETE "*** TOP-OR-F ADD 1TO DELETE-COUNTER.ST1474java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
056000 END-RTN-EXIT.                                                    ST1474.2
056100     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1474053800     IF  NOT  TO                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
520.                                                   .2
530        TO ADD INSPECT-COUNTER      .2
056400      ERROR-HOLD. ADD DELETE-COUNTER2      P-OR-F "*"   WRITE-LINE.2
056500        PERFORM THRUST1474
056600*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   ST1474.2
056700      MOVE PASS-COUNTER TO CCVS-E-4-1.                            ST1474.2
056800      MOVE ERROR-HOLD TO CCVS-E-4-2.                              ST1474.2
056900      MOVE CCVS-E-4 TO CCVS-E-2-2.                                ST1474.2
070java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
7  .                                                 2
05720      MOVES "TOENDER-DESC .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
057300     IF       ERROR-COUNTER IS EQUAL05500     MOVECCVS-H-1 DUMMY-RECORD  WRITE-LINE .  ST1474.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
057400         MOVE "NO " TO ERROR-TOTAL                                ST1474 .  3TIMES
057500         ELSE4.                                            
057600         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       ST1474 CCVS-C-2DUMMY-RECORD WRITE-LINE.   ST1474
057700     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           ST1474.2
057800     PERFORM WRITE-LINE.                                          ST1474.2
057900 END-ROUTINE-13ST1474.2
058000     IF DELETE-COUNTER IS EQUAL TO ZERO                           ST1474.2
058100         MOVE "NO " TO ERROR-TOTAL  ELSE                          ST1474.2
058200         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      ST1474.2
058300     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   ST1474.2
058400     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           ST1474540      . ADD DELETE-COUNTER ERROR-HOLD               .2
058500      IF   INSPECT-COUNTER EQUAL TO ZERO                          ST1474.2
560MOVENO" 2
0 ERROR-HOLD CCVS-E-4-2.2
058800      MOVE "TEST(S) REQUIRE INSPECTION" TO60       CCVS-E-4 CCVS-E-2-2ST1474
70      MOVE TO PERFORM.           ST1474.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0500      CCVS-E-3DUMMY-RECORD .           ST1474
059100 WRITE-LINE.                                                      ST14743             IS TO                      ST1474
059200     ADD 1 TO RECORD-COUNT.                                       ST1474.2
059300     IF RECORD-COUNT GREATER 42                                   ST1474.270          ERROR-COUNTER .                       ST1474
059400         MOVE DUMMY-RECORD TO DUMMY-HOLD                          ST1474.2
059500         MOVE SPACE TO 0700 .                                                  .
0590          DUMMY-RECORD                    ST1474
059700         MOVE CCVS-H-1  TO DUMMY-RECORD 080MOVENO  ERROR-TOTAL                          .2
098          CCVS-H-2A  PERFORMWRT-LN    ST1474
059900         MOVE0530MOVETEST)       ENDER-DESC.2
060000550IF EQUAL  ZERO.2
060100060MOVE   ERROR-TOTALST1474
060200         MOVE CCVS-C-2  TO DUMMY-RECORD PERFORM57       MOVE TO.                   .2
060300         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          ST1474.2
060400         MOVEDUMMY-HOLD DUMMY-RECORD                          .2
060500         MOVE TO. WRITE-LINE.2
00      WRT-LNST1474
060700 WRT-LN.                                                          ST147405920     ADD1 TO RECORD-COUNTST1474.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060800     090          DUMMY-RECORD DUMMY-HOLD.2
060550MOVE                               .2
1 BLANK-LINE-PRINTST1474
061100     PERFORM WRT-LN.                                              ST1474090MOVE  TO  PERFORMWRT-LN 2 TIMESST1474
01 .                                                    2
061300     IF0990MOVE TO  WRT-LN    ST1474
061400            GO TO   FAIL-ROUTINE-WRITE.                           ST1474.2
0      NOTEQUAL SPACE  FAIL-ROUTINE-WRITE.2
061600     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 ST1474.2
061700     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   ST14740MOVE  TODUMMY-RECORD            ST1474
680     MOVE TO.  WRITE-LINE.   ST1474
06190000          DUMMY-HOLD                           
062000     GO TO  FAIL-ROUTINE-EX.                                      ST1474.2
062100 FAIL-ROUTINE-WRITE.                                              ST1474.2
062200     MOVE   TEST-COMPUTED TO060800     WRITE    DUMMY-RECORD AF ADVANCING .               ST1474
062300     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 ST1474.2
062400     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. ST14741      WRT-LNST1474
0     COR-ANSI-REFERENCE.2
062600 FAIL-ROUTINE-EX. EXIT.                                           ST1474.2
670.                                                        2
062800     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   ST1474.2
062900     IF     CORRECT-A EQUAL TO SPACE GO TO5          CORRECT-X  TO GOTO.ST1474
600.                                                  
061      CORRECT-AXXCORRECT COMPUTED-A .  ST1474
063200     MOVE80MOVE TO. PERFORM 2 .   ST1474
630MOVE TO. PERFORM 2 TIMES   .2
020      TO.                                      2
063500 BAIL-OUT-EX. EXIT.020 .                                              .2
630 .                                                      2
063700EXIT                                                        .2
063800SECT-ST417-001.                                          .2
063900250MOVE TO.                         ST1474
0400MOVE  "TOFEATURE.ST1474.
064100     OPEN OUTPUT SQ-FS1.                                          ST1474.2
064200     MOVE "SQ-FS1" TO XFILE-NAME (1).                             ST1474.2
0630MOVER1-F-G XRECORD-NAME)ST1474
064400     MOVE CCVS-PGM-ID TO XPROGRAM-NAME (1).                       ST1474.2
064500     MOVE 000132 TO XRECORD-LENGTH0MOVE .MOVE TO  .2
6 "C"TO (1.                           .2
064700     06330     MOVE TO. PERFORM 2TIMES.2
680MOVE001TO ()                          ST1474
0 "" TO (1.                         ST1474
065000     MOVE "S" TO XLABEL-TYPE (1).                                 ST1474.2
065100     MOVE 000001 TO XRECORD-NUMBER (1).                           ST1474.2
065200             MOVE SPACES TO WRK-XN-O120F-1.                       ST1474300SECT-ST417-001SECTIONST1474
0530.                                                    .2
065400     PERFORM400     MOVE CREATE TO.                        ST1474
0650          51-  WRK-DU-999-0001 LESS 1.ST1474
065600     MOVE    SPACES TO PRINT-REC.                                 620MOVESQ-FS1 XFILE-NAME.ST1474
050        PRINT-RECST1474
065800     IF XRECORD-NUMBER (1) IS040MOVE TO (1).ST1474
690PERFORM MOVE ". NO. OF ." TO      ST1474
0400     MOVE RC CHARS-OR-RECORDS)                           .
6600PERFORM.                                            .2
06600GO MRG-WRITE-001ST1474
066300 MRG-TEST-001-BUILD.                                              ST1474.2
066400     MOVE CHAR (WRK-DU-999-0001) TO ALPHAN-KEY OF KEY-1           ST1474.600MOVE" 1.ST14742
650          OF  ALPHAN-KEYOF.                 .2
660MOVE TONUM-KEYOF  NUM-KEY KEY-2.2
066700         NUM-KEY050 MRG-TEST-001ST1474
066800     MOVE FILE-RECORD-INFO-P1-120065400     PERFORM MRG-TEST-001-BUILD VA WRK-DU-999-0001.2
060      1TOXRECORD-NUMBER1)                                 .2
600     MOVE (WRK-DU-999-0001TO (WRK-DU-999-2ST1474.2
0710ADD1TO.                                       .2
620      ASCIIS) ().       .2
067300     ADD 1 TO WRK-DU-999-20500PERFORM MOVE INCORR OF.  RE-MARK.2
067400      PRINT-REC SQ-FS1R1-F-G-132ST1474
067500     WRITE PRINT-REC FROM REST-OF-1.                              ST1474.2
6700MOVESPACES PRINT-REC.ST14742
067700     WRITE   SQ-FS1R1-F-G-132.                                    ST1474.2
0780 MRG-DELETE-001                                                  .2
067900     PERFORM DE-LETE.                                             ST1474.2
60      CHAR)TO OF           ST1474
60      "MRG-TEST-001 TO PAR-NAME.ST14742
068200     MOVE "FIRST FILE CREATED" 068200     MOVE "FIRST FILE CREATED" TO OF KEY-1 OF KEY-2    ST1474.2
0800MOVEXRECORD-NUMBER 1)TO.                     ST1474.2
640      PRINT-DETAILST14742
068500     MOVE    SPACES TO PRINT-REC.                                 ST1474.2
00WRITE .2
068700     CLOSE SQ-FS1.                                                ST1474.2
68 .                                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
068900     MOVE "CREATE FILE SQ-FS2" TO FEATURE.                        06200MOVEASCIIS) TOCOLLS).ST1474
069000     OPEN OUTPUT SQ-FS2.                                          ST1474.2
090     MOVESQ-FS2TO (1)                            ST1474.2
620     MOVE000  XRECORD-NUMBER1.                          ST1474
069300     MOVE66      SPACES PRINT-RECST1474.
069400 MRG-TEST-002.                                                    ST1474.2
069500     PERFORM MRG-TEST-002-BUILD VARYING WRK-DU-999-000180.                                                  .2
069600         FROM 51 BY -1 UNTIL WRK-DU-999-0001 IS LESS THAN 1.      ST1474.2
069700     MOVE    SPACES TO PRINT-REC.                                 61 "" TO.                             .2
069800     WRITE   PRINT-REC.                                           ST1474.080      XRECORD-NUMBER CORRECT-18V0.2
06990       (1  NOT  52ST1474
070000         PRINT-REC.
070100         ELSE                                                     ST147480CLOSE.                                                
070200         PERFORM PASS.                                            ST1474.2
070300     GO TO MRG-WRITE-002.                                         ST1474.2
070400 MRG-TEST-002-BUILD.                                              ST1474.2
0750MOVE (WRK-DU-999-0001 ALPHAN-KEYKEY-4.2
070600         ALPHAN-KEY OF KEY-5 ALPHAN-KEY OF KEY-6.                 030     00  XBLOCK-SIZE                                .2
070700     ADD 51 WRK-DU-999-0001 GIVING NUM-KEY OF KEY-4650PERFORM VARYING           ST1474java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
070800         NUM-KEY OF KEY-5 NUM-KEY OF KEY-690          TO.                                 .2
070900     MOVE FILE-RECORD-INFO-P1-120 (1) TO REC-PRE-2.               ST1474.2
071000     ADD 000001 TO XRECORD-NUMBER (1).                            ST1474.2
1  FROM.ST1474
071200     WRITE PRINT-REC FROM REST-OF-2.                              ST1474.2
071300     MOVE SPACES TO PRINT-REC.                                    ST1474.2
7100WRITE.                                    ST1474
0710030     GO  MRG-WRITE-002ST14742
071600     PERFORM DE-LETE.ST1474
7MRG-WRITE-002ST1474
071800     MOVE "760ALPHAN-KEYOF ALPHAN-KEY OF KEY-6. ST14742
071900     MOVE "2ND FILE CREATED" TO COMPUTED-A.                       ST1474.2
072000     MOVE XRECORD-NUMBER (1) TO CORRECT-18V0.                     ST1474.2
0200PERFORM.                                        .2
0     TO.                                 ST14742
   .                                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
07272      PRINT-REC.ST1474
00130      SPACES PRINT-REC                                    .2
072600*    ==-->  MULTIPLE "GIVING" FILES  <--==                        ST1474.2
072700     MOVE   "XI-11 4.1.7100 MRG-DELETE-002 ST1474.2
080      SPACESWRK-XN-X-0001.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
072900     MERGE ST-FS1                                                 ST1474      "" PAR-NAMEST1474
0          A-KEY                             ST1474
30          DESCENDING N-KEYNON-KEY-1ST1474
073200         USING200     PERFORM PRINT-DETAILST14742
730GIVING SQ-FS4SQ-FS5ST1474
073400 MRG-TEST-0030     WRITE.                                           2
073500     OPEN INPUT SQ-FS3.                                           ST1474.2
073600     PERFORM RD-1 THRU R1-EXIT0MRG-INIT-003ST1474.2
073700         UNTIL WRK-DU-999-0001 IS GREATER THAN 20.                ST1474.2
073800     MOVE    SPACES TO PRINT-REC020     MOVE   XI-1114GR)  ANSI-REFERENCEST1474
0730        PRINT-RECST1474.2
074000     IF WRK-XN-X-0001 IS NOT EQUAL TO WRK-XN-0002                 ST1474.2
074100         PERFORM0DESCENDING OF                             ST1474
07420                                                              .2
740         PERFORM.                                            .2
740     GO MRG-WRITE-003ST14742
074500 MRG-DELETE-003.                                                  ST1474.2
074600     PERFORM DE-LETE.                                             ST1474.2
740     GOTO.ST1474.2
074800 MRG-FAIL-003.                                                    30UNTIL IS  20.                ST1474
074900     MOVE WRK-XN-X-0001 TO COMPUTED-A.                            ST1474.2
ST1474
075100 MRG-WRITE-003.                                                   70IF IS EQUAL                  ST1474
075200     MOVE "MRG-TEST-003" TO2                                                     
075300     MOVE "NATIVE COLL.SEQUENCE " TO FEATURE.                     ST14740 TO.ST1474
050PERFORM.ST1474
075500     MOVE    SPACES TO060 DE-LETEST1474
075600     WRITE7      TO.                                         2
075700 074800 MRG-FAIL-003.2
0   .ST1474
0759000MOVE .                               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
076000     PERFORM RD-1 THRU R1-EXIT VARYING WRK-DU-999-0001 07300      "NATIVE COLL.SEQUENCE"  FEATURE                     .2
60         UNTIL WRK-DU-999-0001IS GREATERTHAN                .2
076200     075500 TO.ST1474
076300     WRITE   PRINT-RECWRITE.ST1474.2
076400     IF WRK-XN-X-0001 IS NOT EQUAL TO WRK-XN-0003                 ST14747MRG-INIT-004.
7  GO                           .2
60                                                     .2
070PERFORM R1-EXIT FROM ST1474
0771          WRK-DU-999-0001 THANST1474
0.                                                  java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0 .                                             java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
077100     GO TO MRG-WRITE-0040760                                                              .2
077200 MRG-FAIL-004.                                                    ST14740GO MRG-WRITE-004ST1474
07790MRG-DELETE-004ST1474.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
077400     MOVE WRK-XN-0003 TO CORRECT-A.                               ST1474.2
077500 MRG-WRITE-004.                                                   ST1474.2
077600     MOVE "MRG-TEST-004" TO030MOVE TOCOMPUTED-AST1474
770     MOVENATIVESEQUENCE .                     ST1474
077800     PERFORM PRINT-DETAIL.                                        ST1474.07750 MRG-WRITE-004ST1474.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0700MOVETOST1474
078000     770 " COLL " TO                     .
8.ST1474
078200     MOVE SPACES TO WRK-XN-X-0001.                                ST1474.2
078300 MRG-TEST-005.                                                    ST1474.2
078400     PERFORM RD-1                                                    .2
078500         UNTIL WRK-DU-999-0001 IS GREATER THANMRG-TEST-005ST1474
760MOVE TO.                                 .2
70        PRINT-RECST1474
078800     IF WRK-XN-X-0001 IS NOT EQUAL TO WRK-XN-0004                 ST1474.2
078900         PERFORM FAIL GO078700     WRITE   PRINT-REC.                                           
079000         ELSE                                                     ST1474.2
079100         PERFORM PASS.                                            ST1474.2
079200     GO TO MRG-WRITE-005.                                         ST1474.2
079300 MRG-DELETE-005.                                                  ST1474.2
079400     PERFORM DE-LETE.                                             ST1474.2
079500     GO TO MRG-WRITE-005.                                         0940      DE-LETE                                             .2
ST1474.2
079700     MOVE WRK-XN-X-0001 TO090MRG-FAIL-005ST1474
079800     MOVE WRK-XN-0004 TO CORRECT-A090MOVE TOCOMPUTED-A.2
079900 MRG-WRITE-005.                                                   78      WRK-XN-0004 CORRECT-AST1474
080000     MOVE "MRG-TEST-005" TO PAR-NAME.                             ST1474.2
080100     MOVE "NATIVE COLL.SEQUENCE " TO FEATURE.                     ST1474.2
0020PERFORM.                                        ST1474
830     MOVESPACES PRINT-RECST1474.2
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
080800     PERFORM RD-1 THRU R1-EXIT VARYING WRK-DU-999-0001 FROM 1 BY 1080PERFORM THRUR1-EXIT VARYING  FROM   1ST1474
080900         UNTIL WRK-DU-999-0001 IS GREATER THAN 20.                ST1474.2
--> --------------------

--> maximum size reached

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