000100 003400*    -054321     BBB -.1234        X A      AAAAAAAA 501     +99  003500*    -054321     BBB -.1234   BBBBBB Z      003600*    -054321     BBB -.1234   BBBBBB A      Z        501     +99  ST1084.2
000200 PROGRAM-ID.                                                      ST1084.2
000300     ST108A.                                                       .ST1084.2
000400****************************************************************  ST1084.2
000500*                                                              *  ST1084.2
000600*    VALIDATION FOR:-                                          *  ST1084.2
000700*                                                              *  ST1084.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".ST1084.2
000900*                                                              *  ST1084.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".ST1084.2
001100*                                                              *  ST1084.2
001200****************************************************************  ST1084.2
001300*                                                              *  ST1084.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  ST1084.2
001500*                                                              *  ST1084.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  ST1084.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  ST1084.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  ST1084.2
001900*                                                              *  ST1084.2
002000****************************************************************  ST1084.2
002100*    ST108 IS A COMPLETELY SELF-CONTAINED PROGRAM.  THE INPUT     ST1084.2
002200*    PROCEDURE BUILDS THE EIGHT-RECORD FILE SHOWN BELOW. THE      ST1084.2
002300*    OUTPUT PROCEDURE CHECKS THE SORTED FILE AND GENERATES THE    ST1084.2
002400*    REPORT.                                                      ST1084.2
002500*    SORT    SORT    SORT    SORT    SORT   SORT     SORT    SORT ST1084.2
002600*    KEY-1   KEY-2   KEY-3   KEY-4   KEY-5  KEY-6    KEY-7   KEY-8ST1084.2
002700*    S9(6)   A(5)    SV9(16) X(10)   A(20)  X(10)    999     S99  ST1084.2
002800*    USAGE   JUST            JUST                            USAGEST1084.2
002900*    COMP    RIGHT           RIGHT                           COMP ST1084.2
003000*                                                                 ST1084.2
003100*    +123456     BBB -.1234   BBBBBB A      AAAAAAAA 501     +99  ST1084.2
003200*    -054321       X -.1234   BBBBBB A      AAAAAAAA 501     +99  ST1084.2
003300*    -054321     BBB +.6      BBBBBB A      AAAAAAAA 501     +99  ST1084.2
003400*    -054321     BBB -.1234        X A      AAAAAAAA 501     +99  ST1084.2
003500*    -054321     BBB -.1234   BBBBBB Z      AAAAAAAA 501     +99  ST1084.2
003600*    -054321     BBB -.1234   BBBBBB A      Z        501     +99  ST1084.2
003700*    -054321     BBB -.1234   BBBBBB A      AAAAAAAA 418     +99  ST1084.2
003800*    -054321     BBB -.1234   BBBBBB A      AAAAAAAA 501     -14  ST1084.2
003900*                                                                 ST1084.2
004000*    THIS PROGRAM CHECKS THE COMPILER"S ABILITY TO HANDLE EIGHT   ST1084.2
004100*    ASCENDING KEYS IN ONE FILE.                                  ST1084.2
004200                                                                  java.lang.StringIndexOutOfBoundsException: Range [38, 37) out of bounds for length 80
004300 006900     02        PICTUREX10)ST1084.
004400  SECTION.                                          java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
00720002          java.lang.StringIndexOutOfBoundsException: Range [38, 37) out of bounds for length 80
004600007300 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
004700 00740077           java.lang.StringIndexOutOfBoundsException: Range [38, 37) out of bounds for length 80
004800     java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 80
004900 INPUT-OUTPUT SECTION.                                            ST1084.2
.2
005100                                         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
005200     "C0085" .                                                    ST1084.2
005300     SELECT   007900     02 FILLER        PIC.java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
005400     "C0039" .                                                    ST1084.2
005500 DATA DIVISION.                                                   ST1084.2
005600 FILE SECTION.                                                    ST108400830003FILLER                  ()java.lang.StringIndexOutOfBoundsException: Range [56, 55) out of bounds for length 80
005700 FD  PRINT-FILE.                                                  ST1084.2
005800 01  PRINT-REC PICTURE 008700                    61                       java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
005900 01  02 FILLER 17                   .
 ST1084
006100     DATA RECORD IS SORTFILE-REC.                                      02 COMPUTED-X.                                               ST1084               202
006200 01 SORTFILE-REC.                                                ST10842
                2
006400     02 SORTKEY-1       PICTURE S9(6) COMPUTATIONAL.              ST1084.2
006500     02 SORTKEY-7       PICTURE 999.                              ST1084.2
006600     02 SORTKEY-3       PICTURE SV9(16).                          ST1084.2
006700     02 FILLER          PICTURE XX.                               ST1084.2
006800     02 SORTKEY-4       010200     03 FILLER PIC X(50) VALUE.                            .2
006900     02 SORTKEY-6       PICTURE X(10).                            ST1084.2
007000     02 SORTKEY-2       PICTURE A(05) JUSTIFIED RIGHT     FILLERPIC(17"=                java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
007100     02         A20.ST10842
007200     02 FILLER          PICTURE XXX.                              ST1084.2
00730003java.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 80
007400 77  03 CORRECT-14V4java.lang.StringIndexOutOfBoundsException: Range [51, 46) out of bounds for length 80
007500 77  SPAC-E03 java.lang.StringIndexOutOfBoundsException: Range [37, 36) out of bounds for length 80
.                                                .
007700     02 FILLER                   PIC X      VALUE SPACE.          ST1084.       PIC()SPACE.ST1084.
007800     01160003COR-ANSI-REFERENCEPICX48       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
007900     02 FILLER                   PIC X      VALUE SPACE.          ST1084.2
008000     02 P-OR-F                   PIC X(5)   011900    ST1084.
008100     02 FILLER                   PIC X      VALUE 012100                       20          2
008200     02  PAR-NAME.                                                ST1084.2
008300       03 FILLER012500     15     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008400       03  PARDOT-X              PIC X      VALUE SPACE02java.lang.StringIndexOutOfBoundsException: Range [41, 20) out of bounds for length 80
008500       03 DOTVALUE               PIC 99     VALUE ZERO.   PIC992
008600     02 FILLER                   PIC X(8)   VALUE SPACE013200  999java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008700     02 RE-MARK                  PIC (61.                       .2
008800 01  TEST-COMPUTED.                                               ST1084.2
 02                     (30  VALUE SPACE.         .
00900001DUMMY-HOLD                    PIC X(120)   .     .2
                   java.lang.StringIndexOutOfBoundsException: Range [36, 34) out of bounds for length 80
009200     02 COMPUTED-X.                                               ST1084.2
009300     03 COMPUTED-A               PIC X(20)  VALUE 013900 01  CCVS-H-1.                                         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
009400      2
009500                                 PIC -9(9).9(9).                  ST1084.2
00960003 COMPUTED-0V18 REDEFINESCOMPUTED-A   PIC.9(18)         ST1084.2
009700     03COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     ST1084.2
009800     03 COMPUTED-14V4 REDEFINES COMPUTED-A    -9()9(4)     .2
009900     03       CM-18V0 REDEFINES COMPUTED-A01470002                        PICXXXX             java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
010000         04 COMPUTED-18V0                    PIC -9(18).          ST1084.2
010100         04 FILLER                           PIC X.               ST1084.015100                             X41   .     ST1084.
01020003 FILLER PIC X50)SPACE.                            ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010300 01  TEST-CORRECT.                                                ST1084.2
.2
010500      FILLERPICX()VALUE "      "                .
010600     02 CORRECT-X.                                                ST1084.2
010700     03CORRECT-A                   X(0  .        .
010800     03 CORRECT-N    REDEFINES CORRECT-A     PIC 015800              .                                               2
010900     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         ST1084.2
011000     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     ST1084.2
011100     03 CORRECT-14V4 016200            " LEVEL VALIDATION"                             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
011200     03       .                        2
011300         04 CORRECT-18V0                     PIC -9(18).          ST1084.2
011400         04 FILLER01660002  FILLER                       X34               .
011500     03 FILLER PIC X(2) VALUE SPACE.                              ST1084.2
011600     03 COR-ANSI-REFERENCE             PIC X(48) VALUE016900"85VERSION .2,Apr  1993                       "ST1084.
011700 01  017100                "                                java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
011800     02   PICIS(99)    IS "FEATURE              2
011900-    "SS  PARAGRAPH-NAME                                          ST1084.2
 REMARKS.                                           
(20)    VALUESPACE      .
012200 01  CCVS-C-2.                                                    ST1084.2
012300     02 FILLER                     PIC X        VALUE SPACE.      ST1084.2
     02 FILLER                     PIC (6      "ESTED.   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012500     02 FILLER                     PIC X(15018000                                                     ST10842
012600     02 FILLER                     PIC X(4)     VALUE "FAIL".     ST1084.2
012700     02 FILLER                         PIC ()VALUE             ST1084.
012800 01  REC-SKL-SUB                   PIC 9(2)     01850001                                                    
012900 01880002                       PICX()  VALUESPACE.     ST1084.
013000 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       ST1084.2
013100 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       ST1084 02FILLER                      PICX() .     .
013200 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       ST1084.2
013300 01  PASS-COUNTER                   999      ZERO.ST1084.
013400 01  TOTAL-ERROR     FILLER                       PICX)   VALUE "OF "     .
013500 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013600 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      ST1084.2
013700 01  RECORD-COUNT                  PIC 9(5 ** *"                                .
013800                   PIC X()VALUE .ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013900 01  CCVS-H-1.                                                    ST108402050004XXCOMPUTED                  X20.ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014000     02  FILLER                    PIC X(39)    VALUE020800     02 INF-ANSI-REFERENCEPIC X()2
014100     02  FILLER                    PIC X(42)    VALUE             ST1084.2
014200     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM"    **********************.ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
     02FILLER                    PICX(9     SPACES     2
014400 021400    "****************.ST10842
014500   02  FILLER                        PIC X(40)  VALUE SPACE.      ST1084.2
014600   021600     S"                                                    ST1084..
014700 PROCEDURE.ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014800     "4.2 ".                                                      021800 SORT-PARA SECTION.                                               ST1084 ST1084.2
014900   02  FILLER                        PIC X(28)  VALUE             ST1084.2
015000            " COPY - 022200ASCENDING                                  ST1084.
015100     FILLER                         X41  VALUE SPACE.     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022500              SORTKEY-5ST1084.2
015300 01  CCVS-H-2B.                                                   ST1084.2
015400   02  FILLER                        022700ASCENDINGSORTKEY-7ST1084.2
015500            "TEST RESULT ASCENDING SORTKEY-8                                 ST1084.2
015600  02  TEST-ID                        9..2
015700   02  FILLER                        PIC X(4)   VALUE             ST1084.2
015800" IN .ST1084.2
015900   02  FILLER                        PIC X(12)  VALUE             ST1084.2
16000             .ST1084.2
016100   02  FILLER                        PIC X(22)  VALUE             ST1084.2
            "LEVEL  FOR .                             ST1084.2
016300   02  FILLER                        PIC X(023300BUILD-FILE                                                      ST1084.2
016400 INSTITUTE OF   TECH.    ..
016500 01  CCVS-H-3.                                                    ST1084.2
016600     02  FILLER                      PIC X(34)  VALUE             ST1084.2
016700            "FOR  USE ONLY    .ST10842
016800     02  FILLER                      PIC X(58)  VALUE             ST1084.2
016900     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".     MOVE+6                 SORTKEY-3ST1084.2
017000     02  FILLER                      PIC      .                                      2
024500    RELEASE-RECORD                                     ST1084.
017200 01024700          Z                  .                  .2
017300     024800       .ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
017400     02 FILLER  PIC X(14) VALUE IS025000          Z"                                    ST1084.
017500     02 ID-AGAIN                     PIC X(9).                    ST1084 MOVE+                 SORTKEY-7ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
ILLER                       PIC()VALUE SPACES     ST10842
017700 01 CCVS-E-2                                                    
017800     02  FILLER                      PIC X(31)  VALUE SPACE.      ST1084.2
017900     02  FILLER                      PIC X(21)  VALUE SPACE.      ST1084.2
018000      CCVS-E-2-2                                               2
018100         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      ST1084.2
018200         03 FILLER                   PIC X      VALUE SPACE.      ST1084      ""          .ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018300         03 ENDER-DESC               PIC X(44)026800*             FIELD.                                              ST1084.2
018400             .                                                  .2
01850001CCVS-E-3.                                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018600     02  FILLER                      PIC X(22027300     EXIT                                                        java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018700            " FOR  ONLY"                             ST1084
018800     02  FILLER                      PIC 027700   TEST-ID  CCVS-PGM-IDTO ID-AGAINST1084.
018900     02  FILLER                      PIC X(58)  VALUE             ST1084.2
019000     "N-SITE VALIDATION,NATIONAL  OF  &TECH.     "ST1084.
019100       FILLER                       ()  VALUESPACE      .
019200      FILLER                        (15               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019300             " COPYRIGHT 1985".                                   ST1084.2
019400 01  CCVS-E-4.                                                    ST1084.2
019500     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE028700*             THE 8TH RECORD SORTS UP TO THE 1ST POSITION,        ST1084.2
019600     02 FILLER                       PIC X(4)   VALUE " OF ".     ST1084.2
019700     02 029200                SORT-WRITE-1.ST1084.
019800     02 FILLER                       029300 SORT-FAIL-1.                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019900      "  TESTS WERE EXECUTED 029500     MOVE     SORTKEY-7 TO COMPUTED-N2
                                    ST10842
020100     02 FILLER                       PIC X(19)  029700 SORT-WRITE-1.                                       
            "*  **.ST10842
020300     02 INFO-TEXT.                                                ST1084.2
020400        FILLER                     PIC X()   VALUE SPACE.      ST1084.
         PICX().                  .2
020600       04 FILLER                     PIC X(5)   VALUE SPACE.      ST1084.2
020700        XXCORRECT                   X20.ST1084.2
020800     02 INF-ANSI-REFERENCE           PIC X(48).                   ST1084.2
020900 030500PERFORM  .                                               2
021000      FILLER     VALUE ISSPACE.ST10842
021100     02 FILLER  PIC IS X(65)    VALUE IS "************************ST1084.2
021200-    "*****************************************".                 ST1084.2
021300     02 FILLER  PIC IS X(54)    VALUE IS "*********************030900         SORT-TEST-2"TO                         2
021400-    "******************************".                            ST1084.2
021500 01  CCVS-PGM-ID                     PIC X(9)   VALUE             ST1084.2
021600     "ST108A".                                                    ST1084.2
021700 PROCEDURE .ST1084.2
021800 SORT-PARA SECTION.                                               PERFORMFAIL                                               ST1084.
021900 SORT-PARAGRAPH.                                                  ST1084.2
     SORTFILE-1H                                       2
022100                SORTKEY-1                             ST10842
022200              ASCENDINGPERFORM  
022300              ASCENDING 032200 SORT-TEST-4.                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022400              ASCENDING SORTKEY-4                                 ST1084.2
022500              ASCENDING SORTKEY-5                                 ST1084.2
022600              ASCENDING SORTKEY-6                                 ST1084.2
  java.lang.StringIndexOutOfBoundsException: Range [72, 39) out of bounds for length 80
2
022900              INPUT PROCEDURE INPROC                              ST1084.2
023000              OUTPUT PROCEDURE OUTPROC THRU OUTPROC-EXIT.         ST1084.2
                                         .2
023200 INPROC SECTION     PRINT-DETAIL                                       .
023300 .                                                      
023400.2
023500     MOVE     +123456             TO SORTKEY-1.                   ST1084.2
023600     RELEASE-RECORD                                     ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023700     PERFORM  BUILD-RECORD.                                       ST1084.2
023800     MOVE     "X"                 TO SORTKEY-2.                   ST1084.2
023900     PERFORM  RELEASE-RECORD033900         SORTKEY-4TOCOMPUTED-A                            2
024000     PERFORM  BUILD-RECORD.                                       ST1084.2
024100     MOVE     +.6                 TO SORTKEY-3.                   ST1084.2
024200     PERFORM  RELEASE-RECORD.                                     ST1084.2
024300     PERFORM  BUILD-RECORD.                                        SORT-TEST-6                                                     .
     MOVE    ""TOSORTKEY-4.                  .2
024500PERFORM  RELEASE-RECORD                                     2
024600     PERFORM  BUILD-RECORD.                                       ST1084.2
034900      FAIL                                               
024800       RELEASE-RECORD                                     .
024900     PERFORM  035100MOVE+6000000000000000      .ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025000     MOVE     "Z"                 TO SORTKEY-6.                   ST1084.2
     PERFORM  RELEASE-RECORD ST10842
025200     PERFORM  BUILD-RECORD.                                       ST1084.2
025300     MOVE     +418                TO SORTKEY-7.                   ST1084.2
025400     PERFORM  RELEASE-RECORD.                                     ST1084.2
025500 PERFORM  GOTOSORT-WRITE-7                    .2
025600     MOVE     -14                 TO SORTKEY-8.                   ST1084.2
025700     PERFORM  RELEASE-RECORD.                                     036100     MOVE     SORTKEY-2 TO COMPUTED-A.                            ST1084
25800            TO BUILD-EXIT ST1084.2
025900 BUILD-RECORD.                                                    ST1084.2
026000     MOVE-054321              SORTKEY-1.                   ST1084.
026100     MOVE     "BBB"               TO SORTKEY-2.                   ST1084.2
026200     MOVE     -.1234567890123456  TO        SORTFILE-1HAT GO .ST10842
026300     MOVE     "BBBBBB"            TO SORTKEY-4.                   ST1084.2
026400     MOVE     "A"                 TO SORTKEY-5.                   ST1084.2
026500     MOVE     "AAAAAAAA037100PERFORM  .                                              ST10842
026600     MOVE     -501                TO SORTKEY-7.                   ST1084.2
026700*       NOTE THIS ITEM IS INTENTIONALLY MOVED TO AN UNSIGNED      ST1084.2
026800*             FIELD.                                              ST1084.2
026900     MOVE     +99                 TO SORTKEY-8.                   ST1084.2
027000 RELEASE-RECORD.                                                  ST1084.2
027100     RELEASE  SORTFILE-REC.                                       ST1084.2
027200 BUILD-EXIT                                                      
027300     EXIT           FEATURE                                   .
027400 OUTPROC 037900     MOVE     "TCOLLATINGSEQUENCE"TO RE-MARK.               2
027500 OPEN-FILES.                                                      ST1084.2
.2
027700     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   ST1084.2
027800     MOVE     TO TEST-RESULTS.                              ST1084java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
027900     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             ST1084.2
028000     IF       SPAC-E IS LESS THAN "B"                             ST1084.2
028100              GO TO SPACE-IS-LESS-THAN-B.                         ST1084.2
 B-IS-LESS-THAN-SPACE SECTION ST1084.2
028300 SORT-INIT-A.                                                     ST1084.2
028400     MOVE     "SORT - 8 ASC. 038600     GO       TO CONTINUE-TESTINGST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028500*        NOTE THE RECORDS SHOULD BE SORTED INTO THE FOLLOWING     ST1084.2
028600*             ORDER --- 8 7 6 5 4 3 1 2 --- THAT IS,              ST1084.2
028700*             THE 8TH RECORD SORTS UP TO THE 1ST POSITION,        ST1084.2
028800*             THE 7TH RECORD SORTS UP TO THE 2ND POSITION, ETC.   ST1084.2
028900 SORT-TEST-1.                                                     ST1084.2
029000     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.               PERFORM  .ST1084.2
029100     039300MOVE     ".  .ST10842
029200              PERFORM PASS GO TO SORT-WRITE-1039400PERFORMPRINT-DETAIL                                       .2
029300 SORT-FAIL-1.                                                     ST1084.2
029400     PERFORM  FAIL.                                               ST1084.2
029500     MOVE     SORTKEY-7 TO 039900*             THE 2ND RECORD SORTS UP TO THE 1ST POSITION, ETC.   ST1084.2
029600     MOVE     418 TO CORRECT-N.                                   ST1084.2
029700 SORT-WRITE-1.                                                    ST1084.2
029800     MOVE     "SORT-TEST-1 " TO PAR-NAME.                         ST1084.2
029900     PERFORM  PRINT-DETAIL.                                       ST1084.2
030000 SORT-TEST-2.                                                     ST1084.2
030100            TO.ST1084.2
030200     IF       SORTKEY-8 EQUAL TO -14                                        "   X  CORRECT-A.ST1084.
030300              PERFORM PASS GO TO 040900     MOVE     "SORT-TEST-9 " TO PAR-NAME.   
030400 SORT-FAIL-2.                                                     041000       .ST1084.2
030500     PERFORM  FAIL.                                               ST1084.2
030600     MOVE     SORTKEY-8 TO 041300     IF       SORTKEY-4 EQUAL TO                     java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
030700          - CORRECT-N                                   ST1084.
030800 SORT-WRITE-2.                                                    ST1084.2
TO PAR-NAME                         ST1084.2
031000     PERFORM  PRINT-DETAIL.                                       ST1084.2
031100.2
031200     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
031300     IF       SORTKEY-6 EQUAL TO "Z         "                     ST1084.2
031400              PERFORM PASS GO TO SORT-WRITE-3.                    ST1084.2
031500.                                                     .2
031600     PERFORM  FAIL.                                               ST1084.2
042200SORT-TEST-11.                                                    ST1084.2
031800     MOVE     "Z         "           TO CORRECT-A.                ST1084.2
031900 SORT-WRITE-3.                                                    ST1084.2
032000     MOVE     "SORT-TEST-3 " TO PAR-NAME.                                     SORTKEY-7 EQUAL TO 418                              .2
032100     PERFORM  PRINT-DETAIL.                                       ST1084.2
032200.2
032300     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
032400     IF       SORTKEY-5 EQUAL TO "Z                   "           ST1084.2
032500              PERFORM PASS GO TO SORT-WRITE-4.                    ST10842
032600 SORT-FAIL-4.                                                          SORTKEY-7 TO                              ST10842
032700     PERFORM  FAIL.                                               ST1084.2
032800     MOVE     SORTKEY-5 TO COMPUTED-A.                            ST1084.2
032900     MOVE     "Z                   " TO CORRECT-A.                ST1084.2
                                         ST1084java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
033100     MOVE     "SORT-TEST-4 " TO PAR-NAME.                         ST1084.2
033200     PERFORM  043300 SORT-TEST-12.       ST1084.2
033300 SORT-TEST-5.                                                     ST1084.2
033400          RETURN   SORTFILE-1H AT  GO TO RETURN-ERROR.              ST1084.2
033500     IF       SORTKEY-4 EQUAL TO "         X"                     ST1084.2
033600              PERFORM PASS GO TO SORT-WRITE-5.                    ST1084.2
033700 SORT-FAIL-5.                                                     ST1084.2
033800     PERFORM  FAIL.                                               ST1084.2
033900     MOVE     SORTKEY-4 TOCOMPUTED-A.                            ST1084.2
034000     MOVE     "         X"           TO CORRECT-A.                ST1084.2
034100 SORT-WRITE-5.                                                    043900     MOVE     SORTKEY-8 TO COMPUTED-N.                            ST1084.2
     MOVE     "SORT-TEST-5 " TO PAR-NAME.                        ST1084.
034300     044100 SORT-WRITE-12SORT-WRITE-12.ST1084.2
034400 SORT-TEST-6.                                                     ST1084.2
034500RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
034600     IF       SORTKEY-3 EQUAL TO +.6000000000000000               ST1084044300PERFORMPRINT-DETAIL.                                       ST1084.2
034700              PERFORM PASS GO TO SORT-WRITE-6.044400SORT-TEST-13.                                                    ST1084.2
034800 SORT-FAIL-6.                                                     ST1084.2
034900     PERFORM  FAIL.                                               ST1084.2
035000     MOVE     SORTKEY-3 TO COMPUTED-0V18.                         ST1084.2
035100     MOVE     +.6000000000000000     TO CORRECT-0V18.             ST1084.2
035200 SORT-WRITE-6.                                                    ST1084.2
035300     MOVE     "SORT-TEST-6 " TO PAR-NAME.                         ST1084.2
035400     PERFORM  PRINT-DETAIL.                                       ST1084.2
035500 .2
035600     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
035700     IF       SORTKEY-2 045100         Z"          TOCORRECT-A.               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
PERFORMGOTOSORT-WRITE-7                    .2
035900 SORT-FAIL-7.                                                     ST1084.2
036000PERFORM FAIL ST1084.2
036100     MOVE     SORTKEY-2 TO COMPUTED-A.                            ST1084.2
036200     MOVE     "    X045600     RETURN   SORTFILE-1H AT END GO  RETURN-ERROR.              ST1084.2
036300 045700     IF       TO"                              ST1084.2
036400.2
036500     PERFORM  PRINT-DETAIL.                                       ST1084.2
036600 SORT-TEST-8.                                                     ST1084.2
036700        SORTFILE-1HATENDGO RETURN-ERROR.             java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036800     IF       SORTKEY-1 EQUAL TO +123456                          MOVE    "                    CORRECT-A                .
 PERFORM  GO TOSORT-WRITE-8                    .
 SORT-FAIL-8                                                     
037100     PERFORM  FAIL                                               2
037200     MOVE     SORTKEY-1 TO COMPUTED-N.046700        ATENDGOTO RETURN-ERROR              2
037300MOVE+ TO CORRECT-N.                              .2
037400 SORT-WRITE-8.                                                    ST1084.2
037500     MOVE     "SORT-TEST-8 " TO PAR-NAME.                         ST1084.2
037600     PERFORM  PRINT-DETAIL.                                       ST1084.2
037700 SORT-REMARK-A.                                                   ST1084.2
037800     MOVE     SPACE TO FEATURE                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
037900                                                         
038000     PERFORMPRINT-DETAIL                                       
038100     MOVE     "RENDERS047600    PERFORM  PRINT-DETAIL.                                       ST1084.2
038200     PERFORM  PRINT-DETAIL.                                       ST1084.2
038300     MOVE     "UNNECESSARY." TO RE-MARK.047800    RETURNSORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
038400     PERFORM  PRINT-DETAIL.                                       ST1084.2
038500     MOVE     "SORT - 8 ASC. KEYS" TO FEATURE.                    ST1084.2
038600     GO       TO CONTINUE-TESTING.                                ST1084.2
038700 SPACE-IS-LESS-THAN-B SECTION.                                    ST1084.2
038800 SORT-REMARK-B.                                                   ST1084.2
038900     MOVE     "THE COLLATING SEQUENCE" TO RE-MARK.                048500 SORT-WRITE-16.                                                   ST1084
039000     PERFORM  PRINT-DETAIL.                                       ST1084.2
039100     MOVE"    8  RE-MARK.                .
039200     PERFORM  PRINT-DETAIL.                                       ST1084.2
039300     MOVE     "UNNECESSARY." TO RE-MARK.                          ST1084.2
039400     PERFORM  PRINT-DETAIL.                                       ST1084.48900SORT-TEST-17.                                                    ST1084.2
039500     MOVE     "SORT - 8 ASC. KEYS" TO FEATURE.                    ST1084.2
039600*        NOTE THE RECORDS SHOULD BE SORTED INTO THE FOLLOWING     ST1084.2
039700*             ORDER --- 8 1 7 2 6 5 3 4 --- THAT IS,              ST1084.2
039800*             THE 1ST RECORD IS SORTED DOWN TO THE 8TH POSITION,  ST1084.2
039900*             THE 2ND RECORD SORTS UP TO THE 1ST POSITION, ETC.   ST1084.2
040000 SORT-TEST-9.                                                     ST1084.2
040100     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
040200     IF       SORTKEY-2 EQUAL TO "    X"                          ST1084.2
040300              PERFORM PASS GO TO SORT-WRITE-9.                    ST1084.2
040400 049200SORT-FAIL-17.                                                    ST1084.2
040500     PERFORM  FAIL.                                               ST1084.2
PUTED-A.                            ST1084.2
040700     MOVE     "    X" TO CORRECT-A.                               ST1084.2
040800 SORT-WRITE-9.                                                    ST1084.2
040900     MOVE     "SORT-TEST-9 " TO PAR-NAME.                         ST1084.2
041000     PERFORMPRINT-DETAIL.                                       ST1084.2
041100 SORT-TEST-10.                                                    ST1084.2
041200     RETURN   SORTFILE-1H AT END GOTORETURN-ERROR.ST1084java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041300     IF       SORTKEY-4 EQUAL TO "         X"                     ST1084.2
041400              PERFORM PASS GO SORT-WRITE-10.                   ST1084.2
041500 SORT-FAIL-10.                                                    ST1084.2
      FAIL.                                               ST1084.2
041700     MOVE     SORTKEY-4 TO 050000     MOVE     "RETURN-ERROR" TO PAR-NAME  PAR-NAME                         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041800     MOVE     "         X" TO  FOUND RE-MARKST1084.2
041900 SORT-WRITE-10.                                                   ST1084.2
042000     MOVE     "SORT-TEST-10" TO PAR-NAME.                         ST1084.2
042100     PERFORM  PRINT-DETAIL.                                       ST1084.2
042200  SORT-TEST-11.                                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042300     RETURN TERMINATE-CCVS.                                                  .
042400     IF       SORTKEY-7EXIT PROGRAM.ST1084.2
042500              PERFORM PASS GO TO SORT-WRITE-11.                   ST1084.2
042600 SORT-FAIL-11.                                                    ST1084.2
042700     PERFORM .MOVE""TOP-OR-F 1TO.ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042800     MOVE     SORTKEY-7 TO COMPUTED-N                             ST1084.2
042900     MOVE     418 TO CORRECT-N.                                   ST1084.2
043000 SORT-WRITE-11.                                                   051500    "*TEST **" .ST1084.
043100     MOVE     "SORT-TEST-11" TO PAR-NAME.                         ST1084.051700    IF REC-CTNOTEQUALTOZEROST10842
043200     PERFORM  PRINT-DETAIL.                                       ST1084.2
043300 SORT-TEST-12.                                                    ST1084.2
043400     RETURN AT RETURN-ERROR.              2
052200PERFORM  THRUFAIL-ROUTINE-EXST1084.
043600              PERFORM052300          ELSE BAIL-OUTTHRUBAIL-OUT-EX ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043700 SORT-FAIL-12.                                                    ST1084.2
043800     PERFORM  FAIL.                                               ST1084.2
043900     MOVE     SORTKEY-8 TO COMPUTED-N.                            ST1084.2
044000MOVE-                                     .2
044100 SORT-WRITE-12.                                                   ST1084     CCVS-H-1TO java.lang.StringIndexOutOfBoundsException: Range [51, 50) out of bounds for length 80
044200     MOVE     "SORT-TEST-12" TO PAR-NAME.                         ST1084.2
044300     PERFORM  PRINT-DETAIL.                                       ST1084.2
044400 SORT-TEST-13.                                                    ST1084.2
044500     RETURN   MOVE CCVS-C-2 TO DUMMY-RECORD  .java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
044600     IF       SORTKEY-6 EQUAL 053700                                                     java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
044700              PERFORM PASS GO TO054000java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 80
 .ST1084.2
044900     PERFORM  FAIL.                                               ST1084.2
           TO                            2
045100     MOVE     "Z         "           TO CORRECT-A.                ST1084.2
045200 000100 IDENTIFICATION DIVISION.                                         ST1084.2
045300     MOVE     "SORT-TEST-13" TO PAR-NAME.                         ST1084.2
045400     PERFORM        MOVE CCVS-E-2 TO DUMMY-RECORD  PERFORM  ST10842
045500000400************000500*                                                              *  ST1084.2
045600     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
045700     IF       001000*    "COBOL 85 VERSION 4.2, Apr  001100                                                              
045800              PERFORM 001500*                                                              *  ST1084.2
045900 SORT-FAIL-14002200*PROCEDURE 002300     PROCEDURECHECKSTHE                                  ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046000     PERFORM003100*    +123456     BBB -003200*    -054321055900IFDELETE-COUNTER 003300*    054321BBB+6      BBBBBBA003400    -54321      -.1234003500*   -054321      .    Z501     +9ST1084.2
     SORTKEY-5TOCOMPUTED-A                            .
046200MOVE      "CORRECT-A.ST10842
046300 SORT-WRITE-14 ST1084.2
.2
046500     PERFORM  PRINT-DETAIL.                                       ST1084.2
046600 SORT-TEST-15.                                                    ST1084.2
056600      MOVEINSPECT-COUNTER ERROR-TOTALST1084.
046800     IF       SORTKEY-3056700      MOVE"S INSPECTION  .ST1084.2
046900              GO                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
047000 SORT-FAIL-15.                                                    ST1084.2
047100     PERFORM  FAIL.                                               ST1084.2
047200 TO057000 WRITE-LINE.                    .2
     +.000000000000000      02 SORTKEY-7       PICTURE 999.      
047400.                                                   .2
047500          SORT-TEST-15 TO                         .2
047600     PERFORM       02 SORTKEY-2    A()JUSTIFIED .           2
047700 .                                                         02 SORTKEY-5       PICTURE A(20).                            ST108400720002           XXX                              .
047800     RETURN   SORTFILE-1H                          VALUE          java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
 IFSORTKEY-1EQUAL 02 PIC(    SPACEST10842
048000              PERFORM PASS GO TO SORT-WRITE-16.                   ST1084.2
048100 SORT-FAIL-16.                                                                                                    
048200     PERFORM  FAIL.                                               ST1084.2
048300      COMPUTED-N                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
048400            .                               ST10842
048500 SORT-WRITE-16.                                                   ST1084.2
048600     MOVE     "SORT-TEST-16" TO PAR-NAME.                         ST1084058100         CCVS-C-2TO               .2
048700      .ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
 ONTINUE-TESTINGSECTION.ST10842
048900 SORT-TEST-17.03 java.lang.StringIndexOutOfBoundsException: Range [38, 37) out of bounds for length 80
049000java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 80
049100PERFORMPASSGO .ST1084.2
049200 058600WRT-LN                                                          .2
49300"   FOUND" ST10842
049400     PERFORM  FAIL.                                               ST1084.2
049500 SORT-WRITE-17.                                                   ST1084.2
049600010300   .                                               
049700     PERFORM                                                   2
049800     GO       TO010600     02CORRECT-X.                                                
049900 RETURN-ERROR.                                                    ST1084.2
050000     MOVE     "RETURN-ERROR" TO PAR-NAME.                         ST1084.2
050100     PERFORM  FAIL.                                               ST1084.011400         FILLER                           PIC.              ST1084.
     java.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 80
.ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050400     GO TO -    "       REMARKSST10842
050500                                                     
050600PERFORM  THRU PRINT-FILE   java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
050700 TERMINATE-CCVS.                                                  ST1084.2
050800     ST1084.2
050900 TERMINATE-CALL.                                                  ST1084.2
051000                                                          
051100INSPT "SPT P-OR-F 1INSPECT-COUNTER..2
051200 PASS.  MOVE "PASS " TO   PIC      ZERO       java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
F.  ADD1  ERROR-COUNTER          ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051400 DE-LETE    TO PRINT-REC PERFORM  2TIMES .
051500     "** DELETED***   ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051600 PRINT-DETAIL.                                                    ST1084.2
051700     IF FILLER                    X39)VALUE .    060600  ST10842
051800MOVE"" TOjava.lang.StringIndexOutOfBoundsException: Range [72, 39) out of bounds for length 80
051900     COBOL060800     CORRECT-A  GOTO            2
052000MOVE TO .PERFORMWRITE-LINE      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
052100     061000     MOVE CORRECT-ATO XXCORRECTMOVECOMPUTED-ATO XXCOMPUTED. ST1084.2
052200                 ST1084.2
052300          ELSE PERFORM BAIL-OUT42"                                                      2
052400     MOVE SPACE TO P-OR-F. MOVE SPACE             COPY-NOT061300MOVE    TO.                        ST1084.
052500     MOVE SPACE TO CORRECT-X.                                     ST1084
052600     IF      EQUAL TO   MOVESPACE PAR-NAME         ST1084.
052700     MOVE     SPACE TO RE-MARK.                                   ST1084015500            T .ST1084
052800                                                    
052900    MOVE TO  java.lang.StringIndexOutOfBoundsException: Range [51, 50) out of bounds for length 80
053000     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES061900PERFORM  CLOSE-FILES.                                       2
053100     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM016400    O java.lang.StringIndexOutOfBoundsException: Range [41, 40) out of bounds for length 80
053200     MOVE CCVS-H-3TO    3TIMES  2
053300 COLUMN-NAMES-ROUTINE.                                            ST1084.2
053400     TO DUMMY-RECORD PERFORMWRITE-LINE.ST1084.2
053500MOVECCVS-C-2 DUMMY-RECORD  2 .   2
053600     MOVE HYPHEN-LINE                          (28  VALUE             ST1084.2
053700.ST1084.2
053800MOVE    5 TIMES.T10842
053900 END-RTN-EXIT.                                                    ST1084.2
054000     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1084.2
054100 END-ROUTINE-1.ST1084.2
054200ADD   ADDINSPECT-COUNTERTO      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
054300      ERROR-HOLD                      PIC21)java.lang.StringIndexOutOfBoundsException: Range [60, 59) out of bounds for length 80
054400       java.lang.StringIndexOutOfBoundsException: Range [29, 28) out of bounds for length 80
054500*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   ST1084.2
054600                          ST10842
054700      MOVE ERROR-HOLD TO CCVS-E-4-2.                                          ERRORS ENCOUNTERED.ST1084.2
054800       CCVS-E-4 CCVS-E-2-2.ST1084
054900      MOVE             " FORUSEONLY"                             .2
 F                       58  2
055100       " java.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bounds for length 80
055200     IF       ERROR-COUNTER IS EQUAL TO ZERO                      ST1084       PIC() VALUEjava.lang.StringIndexOutOfBoundsException: Range [80, 78) out of bounds for length 80
055300         MOVE "NO " TO ERROR-TOTALXXX      .2
055400         ELSE                                                     019900"TESTS WERE  SUCCESSFULLY".                      2
055500         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       020000 01  XXINFO.                                                      ST1084ST1084.2
055600"**java.lang.StringIndexOutOfBoundsException: Range [35, 34) out of bounds for length 80
055700     PERFORM WRITE-LINE.                                          ST1084.2
055800 END-ROUTINE-13.                                                  ST1084.2
055900     IF DELETE-COUNTER IS EQUAL TO ZERO                                            X48.ST10842
056000MOVE" "                           ST1084java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
056100         java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 80
056200MOVE()DELETED" .ST1084.2
056300     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM  01  CCVS-PGM-ID                     PIC X(9)   VALUE
  DIVISION                                              .
           "O                                 java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
056600      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL ST1084.
056700      MOVE "TEST(S) ASCENDING ST10842
056800      MOVE CCVS-E-2 TO ASCENDING SORTKEY-6ST1084.2
056900     MOVEASCENDING ST10842
057000 WRITE-LINE.                                                      ST1084.2
057100      1 RECORD-COUNTST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
057200     IF RECORD-COUNT SECTION                                                  2
057300        DUMMY-RECORD                           ST1084.
057400         MOVE SPACE TO      PERFORM  BUILD-RECORD.    2
057500         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  ST1084.2
057600         024100     MOVE       .                 .ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
057700         MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 024400     ""TOjava.lang.StringIndexOutOfBoundsException: Range [53, 52) out of bounds for length 80
057800           TO DUMMY-RECORDPERFORM WRT-LN 3     .
057900         MOVE CCVS-H-3  RD.                                      .
058000         MOVE CCVS-C-1  TO DUMMY-RECORD PERFORM WRT-LN            ST1084.2
058100         MOVE CCVS-C-2  TO DUMMY-RECORD PERFORM WRT-LN            ST1084.025300MOVE418TO                   .2
HEN-LINE DUMMY-RECORD WRT-LN          2
058300MOVE DUMMY-HOLD  DUMMY-RECORD                          .
058400         MOVE ZERO TO RECORD-COUNT.                               ST1084.2
058500     PERFORM WRT-LN.                                              ST1084     "BB"TO ST1084.
058600 WRT-LN.                                                          java.lang.StringIndexOutOfBoundsException: Range [72, 52) out of bounds for length 80
058700     WRITE    026800*             FIELD.                                              ST1084.2
058800MOVE TODUMMY-RECORD.ST10842
058900 BLANK-LINE-PRINT.                                                ST1084.2
059000     PERFORM WRT-LN SECTIONST1084
059100 FAIL-ROUTINE.                                                    java.lang.StringIndexOutOfBoundsException: Range [38, 37) out of bounds for length 80
059200     IF     COMPUTED-X NOT  IFSPAC-EISTHAN"                             2
059300            GO TO   FAIL-ROUTINE-WRITE.                             ST1084
059400     IF     CORRECT-X NOT EQUAL TO SPACE -- THAT IS,              ST1084.2
  TO                 .2
059600     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   ST1084.2
029300.ST10842
059800     MOVE   SPACES TO INF-ANSI-REFERENCE.                         ST1084.2
059900     GO TO  FAIL-ROUTINE-EX.                                      java.lang.StringIndexOutOfBoundsException: Range [11, 6) out of bounds for length 80
060000 FAIL-ROUTINE-WRITE.                                                 END               .
060100     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE                                                        java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
030900MOVES ".ST1084.
060300     MOVE   TEST-CORRECT 031000                                       
060400     MOVE   SPACESAT GOjava.lang.StringIndexOutOfBoundsException: Range [58, 57) out of bounds for length 80
060500 FAIL-ROUTINE-EX. EXIT.                                           SORT-FAIL-3.                                                     ST1084.2
060600 BAIL-OUT.                                                        MOVE""TO                         java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
032600java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 80
060800     IF032900"Z"TO.ST1084
060900 BAIL-OUT-WRITE.                                                  ST1084.2
061000     MOVE CORRECT-A TO XXCORRECT                                          .2
061100     MOVE        RETURN   SORTFILE-1Hjava.lang.StringIndexOutOfBoundsException: Range [32, 31) out of bounds for length 80
061200     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1084.2
061300     MOVE   SPACES TO  SORT-FAIL-5.            .                                                     java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
061400 BAIL-OUT-EX. EXIT.                                                    "        "          TO                ST10842
061500 CCVS1-EXIT.                                                      .                                       .2
061600     EXIT.                                                        ST1084.2
061700 OUTPROC-EXIT SECTION.                                            ST1084.2
061800 EXIT-ONLY.                                                       ST1084.2
061900     PERFORM  CLOSE-FILES.                                        ST1084.2