Quelle  st108a.cob   Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         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                                                                  ST1084.2
004300 ENVIRONMENT DIVISION.                                            ST1084.2
004400 CONFIGURATION SECTION.                                           ST1084.2
004500SOURCE-COMPUTER                                                 
004600     Card0130.                                                    ST1084.2
004700 OBJECT-COMPUTER.                                                 ST1084.2
004800     000600*    VALIDATION FOR:-                                          *  ST1084.2
004900 INPUT-OUTPUT SECTION.                                            ST1084.2
005000 FILE-CONTROL000800*    "ON-SITE VALIDATION000900*                                                              *  ST1084.2
005100                                                               *  ST1084.2
005200     "001300*                                                              *  ST1084.2
005300     SELECT001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  ST1084001500*                                                              *  ST1084.2
005400     "C0039" .                                                    ST1084.2
005500 DATA DIVISION.                                                   ST1084.2
005600 FILE SECTION.                                                    ST1084.2
005700 FD  PRINT-FILE.                                                  ST1084.2
005800 01  PRINT-REC PICTURE X(120).                                    ST1084.2002500*    SORT    SORT    SORT    SORT    SORT   SORT     SORT    SORT ST1084.2
005900 01  DUMMY-RECORD002900*    COMP    RIGHT           RIGHT                           COMP ST1084.2
006000 SD003100*    +123456     BBB -.1234   BBBBBB A      AAAAAAAA 501     +99  003200*    -054321       X -.1234   BBBBBB A      AAAAAAAA 501     +99  ST1084.2
006100     003400*    -054321     BBB -.1234        X A      AAAAAAAA 501     +99  ST1084.2
006200 01  SORTFILE-REC.                                                ST1084.2
006300     02 SORTKEY-8003800*    -054321     BBB -.1234   BBBBBB A      AAAAAAAA 501     -14  ST1084.2
006400     02 SORTKEY-1       PICTURE S9(6) COMPUTATIONAL.              ST1084.2
004100*    ASCENDING KEYS IN ONE FILE.                                  ST1084.2
006600     02 SORTKEY-3       PICTURE SV9(16).                          ST1084.2
006700     02 FILLER          PICTURE XX.                               ST1084.2
006800     02 SORTKEY-4       PICTURE X(10) JUSTIFIED RIGHT.            ST1084.2
02SORTKEY-6 ()                            .
007000     02 SORTKEY-2       004400CONFIGURATION.ST1084.2
007100     02 SORTKEY-5       PICTURE A(20).                            ST1084.2
007200      FILLER          PICTURE XXX.                              ST1084.2
007300 WORKING-STORAGESECTION.                                         ST1084.2
007400 77  UTIL-CTRPICTURE S99999.                           ST1084.2
007500 77  SPAC-E             PICTURE X VALUE "004800Card0131.                                                    ST1084.2
007600 01  TEST-RESULTS.                                                ST1084.2
007700     02 FILLER                   PIC X      VALUE SPACE.          005000 FILE-CONTROL.                                                    ST1084     SELECT PRINT-FILE ASSIGNTOST10842
007800     02 FEATURE                  PIC X(20)  VALUE SPACE.          ST1084.2
007900     02 FILLER                   PIC X      VALUE SPACE          ST1084.2
008000     02 P-OR-F                   PIC X(5)   VALUE SPACE.          ST1084.2
008100     02 FILLER                   PIC X      VALUE SPACE.          ST1084.2
008200     02  PAR-NAME.                                                ST1084.2
008300                         PICX19  VALUE SPACE.          ST1084.2
008400       03  PARDOT-X              PIC X      VALUE SPACE.          ST1084.2
008500       03 DOTVALUE               PIC 99     VALUE ZERO.           ST1084.2
008600     02 FILLER                   PIC X(8)   VALUE SPACE.          ST1084.2
008700     02RE-MARK                  PICX().                       ST1084.2
008800 01  TEST-COMPUTED.                                               ST1084.2
008900     02 FILLER                   PIC X(30)  VALUE SPACE.          ST1084.2
009000                        PIC X()  VALUEST10842
009100            "006000SD  SORTFILE-1H                                                  .2
009200.2
009300     03 COMPUTED-APIC X()  VALUE SPACE.          ST1084.2
009400     03 COMPUTED-N               REDEFINES COMPUTED-A             ST1084.2
009500                                 PIC -9(9).9(9).                  ST1084.2
009600     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         ST1084.2
                                                 .
009800     03 COMPUTED-14V4 REDEFINES COMPUTED-A   ONAL.               ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
009900     03       CM-18V0 REDEFINES COMPUTED-A.                       ST1084.2
010000         04 COMPUTED-18V0                    PIC -9(18).          ST1084.2
010100         04 FILLER                           PIC X.               ST1084.2
 SPACE ST1084
010300 01  TEST-CORRECT.                                                ST1084.2
010400     02 FILLER PIC X(30) VALUE SPACE.                             ST1084.2
01050002 FILLER PIC X) VALUE        CORRECT =.                ST1084.2
010600     02 CORRECT-X.                                                ST1084.2
010700     03 CORRECT-A                  PIC X(20) VALUE SPACE.         ST1084.2
010800     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9007100     02SORTKEY-5PICTURE(20)                            .2
010900     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         ST1084.2
     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     ST1084.2
011100     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     ST1084.2
011200           CR-18V0 REDEFINES CORRECT-A.                         ST1084.2
011300         04 007600 01  TEST-RESULTSST10842
011400         04 FILLER                           PIC X.               ST1084.2
01150003FILLER X2)VALUE SPACE.                             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
011600                   PIC ()VALUESPACE.ST10842
011700 01  CCVS-C-1.                                                    ST1084.2
011800     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE              PAST1084.2
011900-"SS  PARAGRAPH-NAME                                          2
012000-    "       REMARKS".                                            ST1084.2
012100     02FILLERPICX()    VALUE SPACE.ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012200 01  CCVS-C-2.                                                    ST1084.2
012300     02 FILLER                     PIC X        VALUE SPACE.      ST1084.2
012400     02 FILLER                     PIC X(6)     VALUE "TESTED".   ST1084.2
012500     02 FILLER                     PIC X(15)VALUESPACE      ST1084.2
012600     02 FILLER                     PIC X(4)     VALUE "FAIL".     ST1084.2
012700     02 FILLER                     PIC X(94)    VALUE SPACE.      ST1084.2
012800 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       ST1084.2
01290001  REC-CT                         99       VALUE ZERO.       ST1084.2
013000 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       ST1084.2
013100 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       ST1084.2
013200 01INSPECT-COUNTER               PIC 999      VALUE ZERO.       ST1084.2
013300 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       ST1084.2
013400 01  TOTAL-ERROR                   PIC                        X)ST1084java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
013500 01  ERROR-HOLD                    PIC 008900    FILLERPICX) .ST1084.
                       120)VALUESPACE ST10842
013700 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.009100           "COMPUTED=".                                   ST1084.2
013800 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     ST1084.2
           ST10842
014000     02  FILLER                    PIC X(39)    VALUE SPACES.     ST1084.2
014100     02  FILLER                    PIC X(42)    VALUE             ST1084.2
014200     "00940003COMPUTED-N               REDEFINES COMPUTED-A             ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014300     02  FILLER                    PIC X(39)    VALUE SPACES.     ST1084.2
      COMPUTED-A -918.ST1084java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
 java.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 80
014600   02  FILLER                        PIC X(7)   009800COMPUTED-14V4PIC914.(4.ST10842
     FILLER                         XXXX   VALUE             ST1084.2
014800     "4.2 ".                                                      ST1084.2
014900   02  FILLER                        PIC X(28)  VALUE             ST1084.2
015000            " COPY - NOT FOR DISTRIBUTION".                       ST1084.2
015100   02 FILLERPIC()VALUESPACE      .
015200                                                                  ST1084.2
015300 01  CCVS-H-2B.                                                   ST1084.2
015400   02  FILLER                              FILLER  ()VALUE .                            2
015500            "TEST RESULT OF ".                                    ST1084.2
015600   02  TEST-ID                       PIC X(9).                    010400     02 FILLER PIC X(30) VALUE SPACE.                             ST108402  X17   CORRECT =.ST1084.
015700   02  FILLER                        PIC      PIC()VALUESPACE ST10842
015800            "IN"                                               ST1084.
015900   02  FILLER                        PIC X(12)  VALUE             ST1084.2
016000     " HIGH       ".                                              ST1084.2
016100   02  FILLER                        PIC X(22)  VALUE             ST1084.2
 FOR .ST10842
016300   02  FILLER                        PIC X(58)  VALUE             ST1084.2
016400     "ON-SITE VALIDATION01120003CR-18V0 REDEFINESCORRECT-A ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016500 01  CCVS-H-3.                                                    ST1084.2
     02                        PIC()VALUEST1084.
016700            " FOR OFFICIAL USE ONLY    ".                         ST1084.2
016800     02  FILLER                      PIC X(58)  VALUE             ST1084.2
     "OBOL  42   1993 SSVG                      ..
017000     02  FILLER                      PIC X(28)  VALUE             ST1084.2
  "COPYRIGHT1985"                                ST1084.2
017200 01  CCVS-E-1.                                                    ST1084.2
017300     02 FILLER                       011800     02FILLERPIC  X99 VALUEIS"FEATUREPAST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
017400     02 012000-    "      " ST1084.2
017500     02 ID-AGAIN                     012100     02 FILLER                     PIC X SPACE.ST10842
017600     02 FILLER                       PIC X(45)  VALUE SPACES.     ST1084.2
017700 01  CCVS-E-2.                                                    ST1084.2
017800     02  FILLER                      01240002 FILLER                     PICX)VALUE""   ST10842
017900     02  FILLER                      PIC X(21)  VALUE SPACE.      ST1084.2
018000     02CCVS-E-2-2.                                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018100         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      ST1084.2
018200         03 FILLER                   PIC X      VALUE SPACE.      ST1084.2
01830003ENDER-DESCPICX44               .
018400            "ERRORS ENCOUNTERED".                                 ST1084.2
   CCVS-E-3.ST1084.2
018600     02  FILLER                      PIC X(22)  VALUE             ST1084.2
018700            " FOR OFFICIAL USE ONLY".                             ST1084.2
      FILLER                       12)    ST10842
018900     02  FILLER                      PIC X(58)  VALUE             ST1084.2
019000     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".ST1084.2
019100                             X13)  VALUESPACE ST10842
019200     02 FILLER                       PIC X(15)  VALUE             ST1084.2
019300             " COPYRIGHT 1985".                                   ST1084.2
019400 01  CCVS-E-4.                                                    ST1084.2
019500     02 CCVS-E-4-1                   01330001PASS-COUNTERPICVALUE        2
01960002                         (4   VALUE "OF "     ST1084.
019700     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      ST1084.2
ST1084.2
019900      "  TESTS WERE EXECUTED SUCCESSFULLY".                       ST1084.2
020000 01  XXINFO.                                                      ST1084.2
020100     02 FILLER                       PIC X(19)  VALUE             ST1084.2
020200            **INFORMATION**.ST1084.
020300     02 INFO-TEXT.                                                ST1084.2
020400       04 FILLER                     PIC01380001ANSI-REFERENCEPICX48    SPACES     2
        PIC(20)                   2
020600       04 FILLER                     PIC X(5)   VALUE SPACE.      ST1084.2
020700       04 XXCORRECT                  PIC X(20).                   ST1084.2
020800     02            PIC (8)                   ST1084.2
020900 01  HYPHEN-LINE.                                                 ST1084.2
021000     02 FILLER  PIC IS X VALUE IS SPACE.                          ST1084.2
021100     02 FILLER  PIC IS X(65)    VALUE IS "************************ST1084.2
021200-"***********************"                 2
021300     02 FILLER  PIC IS X(54)    VALUE IS "************014300      FILLER                     ()VALUE SPACES.ST1084.
-"**************"                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
021500 01  CCVS-PGM-ID                     PIC X(9)   VALUE             ST1084.2
021600     "T108A"                                                    .
  DIVISION                                              2
021800 SORT-PARA SECTION.                                              java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
021900 SORT-PARAGRAPH.                                                  ST1084.2
022000     SORT     SORTFILE-1H ON                                      ST1084.2
022100              ASCENDING KEY SORTKEY-1                             ST1084.2
022200              SORTKEY-2                                 .
022300              ASCENDING SORTKEY-301510002FILLERPIC()VALUE.ST10842
022400              ASCENDING SORTKEY-4                                 ST1084.2
022500              ASCENDING SORTKEY-5                                 2
022600              ASCENDING SORTKEY-6                                 ST1084.2
022700                                                java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022800              java.lang.StringIndexOutOfBoundsException: Range [30, 29) out of bounds for length 80
022900              INPUT PROCEDURE INPROC                              ST1084 PICX()                    ST10842
023000              OUTPUT PROCEDURE OUTPROC THRU OUTPROC-EXIT.         ST1084             "                                               
023100     STOP     RUN.                                                ST1084.16000"HIGH"                                              
023200 INPROC SECTION.016200           "LEVELVALIDATION FOR"                             ST10842
 .                                                     .2
023400     PERFORM  BUILD-RECORD.                                       ST1084.2
023500     MOVE     +123456             TO SORTKEY-1.                   ST1084.2
023600     PERFORM  016400     "ON-SITE VALIDATION, NATIONALOFSTD&TECH     "ST1084.
023700     PERFORM  BUILD-RECORD.                                       ST1084.2
023800     MOVE     "X"                 TO SORTKEY-2.                   ST1084.2
023900     PERFORM  RELEASE-RECORD.016700             OFFICIALONLY"                         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
024000     PERFORM  BUILD-RECORD.                                       ST1084.2
24100     MOVE     +6                 TO .                   2
024200     PERFORM  RELEASE-RECORD.                                     ST1084.2
024300     PERFORM  BUILD-RECORD ST1084.
024400     MOVE     "X"                 TO SORTKEY-4.                   ST1084.2
 PERFORM  RELEASE-RECORD.                                     .
024600     PERFORM  BUILD-RECORD.                                       ST1084.2
024700     MOVE     ""                 TOSORTKEY-5 ST1084java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
024800     PERFORM  RELEASE-RECORD                                     2
024900     PERFORM  BUILD-RECORD.                                       ST1084.2
025000     MOVE""TO SORTKEY-6.                  ST1084.
025100     PERFORM  RELEASE-RECORD.                                     ST1084.2
025200     PERFORM  BUILD-RECORD.                                       ST1084.2
025300         418TO.                   2
025400     PERFORM  RELEASE-RECORD.                                     ST1084.2
025500     PERFORM  BUILD-RECORD.                                       ST1084.2
025600     MOVE                       PIC X45   SPACES.ST1084.
025700     PERFORM  RELEASE-RECORD.017700  .ST1084.2
025800     GO       TO BUILD-EXIT.                                      ST1084.2
025900 BUILD-RECORD.                                                    ST1084.2
026000     MOVE     -054321             TO SORTKEY-1.                   ST1084.2
026100     MOVE     "BBB"               TO SORTKEY-2.                   ST1084.2
026200     MOVE     -.123456789012345601800002.ST1084.2
026300     MOVE     "BBBBBB"            TO SORTKEY-4.                   ST1084.2
026400     MOVE     "A"                 TO SORTKEY-5.                   ST1084.2
026500MOVE    AAAAAAAA TOSORTKEY-6                   2
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
027000RELEASE-RECORD                                                  ST1084.2
027100     RELEASE  SORTFILE-REC.                                           ST1084.2
027200 BUILD-EXIT.                                                      ST1084.2
027300     .ST1084.2
027400 OUTPROC SECTION.                                                 ST1084.2
027500 OPEN-FILES.                                                      ST1084.2
027600     018700            " OFFICIAL USEONLY"                             .2
027700     MOVECCVS-PGM-IDTO TEST-ID.MOVE CCVS-PGM-ID  .   ST1084.
027800     MOVE    SPACE TO TEST-RESULTS.                               ST1084.2
027900     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             ST1084.2
028000     019000     OVALIDATION INSTITUTESTD&TECH     ".
028100              GO02  PICX13   .ST1084.
028200 B-IS-LESS-THAN-SPACE SECTION01920002FILLERPICX)VALUEST10842
028300 SORT-INIT-A.                                                     ST1084.2
028400     MOVE     "SORT - 8 ASC. KEYS" TO FEATURE.                    ST1084.2
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.              ST1084.2
029100     IF       SORTKEY-7 EQUAL TO 418                              ST1084.2
029200              PERFORMPASSGOTO                     .
                          ST10842
029400     PERFORM  FAIL.                                               ST1084.2
.                            ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029600     MOVE     418 TO 020000 01  XXINFO.                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
             ST1084.2
029800     MOVE     "SORT-TEST-1 " TO PAR-NAME.                         ST1084.2
029900            **INFORMATION*"                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030000 02040004                      8   SPACE      2
030100     RETURN   SORTFILE-1H AT (20.ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030200     IF       SORTKEY-8 EQUAL TO -14                              ST1084.2
030300              PERFORM PASS GO TO SORT-WRITE-2.02070004XXCORRECTPIC()                   2
030400 SORT-FAIL-2.                                                     ST1084.2
     FAIL.                                               ST1084.2
030600     MOVE     SORTKEY-8 TO COMPUTED-N.                            ST1084.202100002FILLERPICIS XVALUE IS                           .
030700     MOVE     -14 TO CORRECT-N.                                   ST1084.2
030800 SORT-WRITE-2.                                                    ST1084.2
 MOVE"  TO PAR-NAME.ST1084.2
031000     PERFORM  PRINT-DETAIL.                                       ST1084.2
031100 SORT-TEST-3.                                                     ST1084.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 SORT-FAIL-3                                                     
031600     PERFORM  .                                              2
031700     MOVE     SORTKEY-6 TO COMPUTED-A.                            ST1084.2
031800     MOVE     "Z         "           TO CORRECT-A.                ST1084.2
031900 022000     SORTON                                     ST1084.
032000     022100              ASCENDINGKEYSORTKEY-1                             .
032100       PRINT-DETAIL.                                       ST1084.2
                                  ST10842
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.                    ST1084.2
032600 SORT-FAIL-4.                                                     ST1084.2
032700022700             ASCENDINGSORTKEY-7                                 ST1084.2
032800     MOVE     SORTKEY-5 TO COMPUTED-A.                            ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032900     MOVE     "Z                   " TO CORRECT-A.                ST1084.2
033000 SORT-WRITE-4.                                                    ST1084.2
033100     MOVE     "023100     STOP     RUN.       ST1084
033200     PERFORM  .                                       ST1084.
033300  BUILD-FILEST1084.2
033400     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              023400     PERFORM  BUILD-RECORD.                                       ST1084
033500     IF023600PERFORM  .                                     2
033600              PERFORM PASS GO TO SORT-WRITE-5.                    ST1084.2
033700 SORT-FAIL-5.                                                     ST1084.2
033800     PERFORM  FAIL.                                               ST1084.2
 MOVE  COMPUTED-A.ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
034000     MOVE     "         X"           TO CORRECT-A.                ST1084.2
034100 SORT-WRITE-5.                                                    ST1084.2
034200     MOVE     "SORT-TEST-5 " TO PAR-NAME.                         ST1084.2
034300     PERFORM  PRINT-DETAIL.                                       ST1084.2
034400 SORT-TEST-6.ST1084.
034500     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
034600     IF       SORTKEY-3024400         X                  .ST1084
034700              PERFORM       .ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
034800 SORT-FAIL-6.                                                     ST1084.2
 PERFORM.ST1084.2
035000     MOVE     SORTKEY-3 TO COMPUTED-0V18024800PERFORM  .ST10842
     MOVE     .6000000000000000TOCORRECT-0V18             .2
035200 SORT-WRITE-6.                                                    ST1084.2
035300     MOVE     "SORT-TEST-6 " TO PAR-NAME.                         ST1084.2
035400     PERFORM025100    PERFORM  .                                    .2
035500 SORT-TEST-7.                                                     ST1084.2
035600     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
035700     IF       SORTKEY-2 EQUAL TO "    X"                          ST1084.2
035800             PASS GO  .ST1084
035900 SORT-FAIL-7.                                                     ST1084.2
036000     PERFORM  FAIL.                                               ST1084.2
.2
036200     MOVE     "    X" TO CORRECT-A.                               ST1084.2
036300 SORT-WRITE-7.                                                    ST1084.25800GO        .                                     2
036400     MOVE     "026000     MOVE     -054321     054321TO .                   .
036500     PERFORM  PRINT-DETAIL.                                       ST1084.2
036600 SORT-TEST-8.                                                     ST1084.2
036700RETURN  END TORETURN-ERROR              .
036800     IF       SORTKEY-1 EQUAL TO +123456                          ST1084.2
036900              PERFORM PASS GO TO SORT-WRITE-8.                    ST1084.2
037000 SORT-FAIL-8.                                                     ST1084.2
037100     FAIL.                                              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
037200     MOVE     SORTKEY-1 TO COMPUTED-N.                            ST1084.2
026700*       NOTE THIS ITEM IS INTENTIONALLY MOVED TO AN UNSIGNED      ST1084.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.027200 .ST1084.2
037800MOVESPACETO .                                   ST10842
HE  SEQUENCE" RE-MARK ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038000     PERFORM  PRINT-DETAIL.                                       027600     OPEN     OUTPUT PRINT-FILE.                                  ST1084
038100     MOVE     "RENDERS TESTS 9 THRU 16" TO RE-MARK     SPACE  TEST-RESULTS                               .2
038200     PERFORM  PRINT-DETAIL.                                       ST1084.2
038300     MOVE     "UNNECESSARY." TO RE-MARK.                          ST1084.2
038400     PERFORM  PRINT-DETAIL.                                       ST1084.2
038500     MOVE     "SORT - 8 ASC. KEYS" TO FEATURE.                    ST1084.028200B-IS-LESS-THAN-SPACESECTION.                                   2
.                                2
038700 SPACE-IS-LESS-THAN-B SECTION.                                    ST1084.2
038800 SORT-REMARK-B.                                                   ST1084.2
038900     MOVE     "028600*             ORDER --- 8 7 6 5 4 3 1 2 --- THAT IS,              ST1084.2
039000     PERFORM  PRINT-DETAIL.                                       ST1084.2
039100     MOVE     "RENDERS TESTS 1 THRU 8" TO RE-MARK.                ST1084.2
039200    PRINT-DETAIL                                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
          "NNECESSARY"TORE-MARK                          .
039400       .ST10842
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 SORT-FAIL-9.                                                     ST1084.2
040500     PERFORM  FAIL.                                               ST1084.2
040600030100RETURNSORTFILE-1HATENDGO RETURN-ERROR              2
040700MOVE    "   "TOCORRECT-A                               .
040800 SORT-WRITE-9.                                                    ST1084.2
                      ST1084.2
041000     PERFORM  PRINT-DETAIL                                       
041100 SORT-TEST-10.                                                    ST1084.2
041200     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
 "         X"                     ST1084.2
041400              PERFORM PASS GO TO SORT-WRITE-10.                   ST1084.2
041500 SORT-FAIL-10.                                                    ST1084.2
041600     PERFORM030700MOVE    14TO .                                   ST10842
041700     MOVE     SORTKEY-4 TO COMPUTED-A.                            ST1084.2
041800     MOVE     "         X" 030900     MOVE     "SORT-TEST-2 " .                         .2
041900 SORT-WRITE-10.                                                   031100 SORT-TEST-3.                                                     ST1084
042000     MOVE     "SORT-TEST-10" TO PAR-NAME.                         ST1084.2
042100      SORT-FAIL-3ST1084java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
 java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 80
042300     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
042400IF TO418ST10842
042500              PERFORM PASS GO TO SORT-WRITE-11.                   ST1084.2
042600 SORT-FAIL-11.                                                    032200 SORT-TEST-4.                                                     ST1084
042700032500                    .
042800     MOVECOMPUTED-N.
042900     MOVE     418 TO CORRECT-N.                                   ST1084.2
043000 SORT-WRITE-11.                                                   ST1084.2
043100     MOVE     "033000 SORT-WRITE-4.           .2
043200     PERFORM  PRINT-DETAIL.                                       ST1084.2
                                             2
043400     RETURN   SORTFILE-1H AT END GO TO 033400END              2
043500     IF       SORTKEY-8 EQUAL TO -14                              ST1084.2
043600              PERFORM PASS GO TO SORT-WRITE-12.                   ST1084.2
043700 SORT-FAIL-12.                                                    ST1084.2
043800     PERFORM  FAIL.                                               033900 java.lang.StringIndexOutOfBoundsException: Range [44, 43) out of bounds for length 80
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
044000MOVE .ST1084.
044100 SORT-WRITE-12                                                   
044200     MOVE     "SORT-TEST-12" TO PAR-NAME     java.lang.StringIndexOutOfBoundsException: Range [32, 31) out of bounds for length 80
                                              java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
 java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 80
044500     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2 java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 80
044600     IF       SORTKEY-6 EQUAL TO "Z         "035000java.lang.StringIndexOutOfBoundsException: Range [30, 29) out of bounds for length 80
044700              PERFORM PASS GO TO SORT-WRITE-13.                   ST1084.2
044800 SORT-FAIL-13.                                                    ST1084.2
044900     PERFORM  FAIL.                                               ST1084.2
045000     MOVE     SORTKEY-6 TO COMPUTED-A.                            SORT-TEST-7.                                                     ST1084
 MOVE"         "          TO .               ST1084.2
045200 SORT-WRITE-13.                                                   ST1084.2
045300     MOVE     "SORT-TEST-13" TO PAR-NAME.                         035800               PASS GO  .                    ST1084
045400     036000      .                                              
045500 SORT-TEST-14.                                                    ST1084.2
045600ATTOjava.lang.StringIndexOutOfBoundsException: Range [58, 57) out of bounds for length 80
  SORTKEY-5 EQUAL  Z"           2
045800              PERFORM PASS GO TO SORT-WRITE-14.                   036400     MOVE     "SORT-TEST-7 " TO PAR-NAME.                         ST1084
045900 SORT-FAIL-14.                                                    ST1084.2
046000     RETURN    TO ST1084.2
046100     MOVE     SORTKEY-5 TO COMPUTED-A.                            ST1084.2
046200          "" TO.ST1084.
046300 SORT-WRITE-14.                                                   ST1084.2
046400036900             PASS   .ST1084.
046500     PERFORM  PRINT-DETAIL037000.ST1084.2
046600 SORT-TEST-15.                                                         .ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046700     RETURNSORTFILE-1H  END   RETURN-ERROR.ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046800     IF       SORTKEY-3 EQUAL TO +.6000000000000000               ST1084.          123456.ST1084java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046900              PERFORM PASS GO TO SORT-WRITE-15.                   ST1084.2
047000 SORT-FAIL-15.                                                    ST1084.2
047100     PERFORM  FAIL.                                               ST1084.2
047200     MOVE     SORTKEY-3 TO 037800     MOVE     SPACE TO FEATURE.      .                                  ST10842
047300     MOVE     +.6000000000000000     TO CORRECT-0V18.             ST1084.2
047400SORT-WRITE-15.ST1084.2
047500     MOVE     "SORT-TEST-15" TO PAR-NAME038000       .ST1084.2
 java.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bounds for length 80
047700 SORT-TEST-16.                                                    ST1084.2
    java.lang.StringIndexOutOfBoundsException: Range [32, 31) out of bounds for length 80
047900     IF       SORTKEY-1 EQUAL TO +123456                          ST1084.2
048000              PERFORM PASS GO TO SORT-WRITE-16.                   ST1084.2
048100 SORT-FAIL-16.                                                    ST1084.2
048200     PERFORM  FAIL.                                               ST1084.2
048300     MOVE     SORTKEY-1 TO COMPUTED-N.                            ST1084.2
048400     MOVE     +123456 TO CORRECT-N.                               ST1084.2
.2
048600     MOVE     "SORT-TEST-16" TO PAR-NAME.                         ST1084.2
048700     PERFORM  PRINT-DETAIL     MOVE     RENDERSTESTS1THRU8"TORE-MARK ST1084.
048800 CONTINUE-TESTING SECTION"java.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bounds for length 80
48900 java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 80
049000     RETURN   SORTFILE-1H AT END                                  ST1084.2
039600*        NOTE THE RECORDS SHOULD BE SORTED INTO THE FOLLOWING     ST1084.039700*             ORDER --- 8 1 7 2 6 5 3 4 --- THAT IS,              ST1084039800*             THE 1ST RECORD IS SORTED DOWN TO THE 8TH039900*             THE 2ND RECORD SORTS UP TO THE 1ST POSITION, ETC.   ST1084.2
 java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 80
049300     MOVE     "END OF FILE NOT.                            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049400     PERFORM  FAIL.                                               ST1084.2
049500 SORT-WRITE-17.                                                   ST1084       java.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bounds for length 80
049600     MOVE     "SORT-TEST-17" TO PAR-NAME                 .2
049700     PERFORM  PRINT-DETAIL.                                       ST1084.2
049800     GO       TO OUTPROC-EXIT.                                     TOjava.lang.StringIndexOutOfBoundsException: Range [53, 52) out of bounds for length 80
049900 PERFORM  FAIL.                                               ST1084.2
050000     MOVE     "RETURN-ERROR"TO PAR-NAME.ST1084.2
050100     PERFORM  FAIL.                                               ST1084.2
 "TO .                 2
050300     PERFORM  PRINT-DETAIL.                                       ST1084.2
050400     GO TO CCVS1-EXIT.                                            ST1084.2
050500 CLOSE-FILES.                                                     ST1084.2
050600     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.042200.ST1084.2
050700                                                  ST1084.
050800      PROGRAM                                                
050900 TERMINATE-CALL.                                                  ST1084.2
051000     STOP     RUN.                                                ST1084.2
051100INSPT  INSPT"TO .ADD  TO INSPECT-COUNTER.        2
051200 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           ST1084.2
051300 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          ST1084.2
051400 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      ST1084.2
     MOVE ***DELETED** TO RE-MARK                      2
051600 PRINT-DETAIL.                                                    ST1084.2
     IF REC-CT  EQUAL                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051800             MOVE "." TO PARDOT-X                                 ST1084.2
051900             MOVE REC-CT TO DOTVALUE.                             ST1084.2
052000     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      ST1084.2
052100     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE                  SORTFILE-1H END GO TO .ST1084.
         FAIL-ROUTINE FAIL-ROUTINE-EX                 2
052300          ELSEPERFORM   .                2
052400     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              ST1084.2
052500     MOVE SPACE TO CORRECT-X.                                     ST1084.2
052600     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         ST1084.2
052700     MOVE     SPACE TO RE-MARK.                                   ST1084.2
052800 HEAD-ROUTINE.044000          14 TO CORRECT-N.                                   ST1084java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
052900MOVE CCVS-H-1   DUMMY-RECORD.PERFORM WRITE-LINE 2 TIMES.  ST1084.2
053000     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  ST1084.2
053100     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  ST1084.2
053200     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  ST1084.2
053300 COLUMN-NAMES-ROUTINE.                                            ST1084.2
053400     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           ST1084.2
053500     MOVE. PERFORM WRITE-LINE2TIMES   ST1084.2
053600     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        ST1084.2
053700 END-ROUTINE.                                                     ST1084.2
053800     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.ST1084.2
053900 END-RTN-EXIT.                                                    ST1084.2
054000     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1084.2
054100 END-ROUTINE-1044800SORT-FAIL-13                                                    
054200      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      ST1084.2
054300      ERROR-HOLD. 045000MOVESORTKEY-6 COMPUTED-A.ST1084.2
054400      ADD PASS-COUNTER TO ERROR-HOLD.                             ST1084.2
054500*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   ST1084.2
054600      MOVE PASS-COUNTER TO CCVS-E-4-1.                            ST1084.2
054700      MOVE ERROR-HOLD TO CCVS-E-4-2.                              ST1084.2
054800      MOVE CCVS-E-4 TO CCVS-E-2-2.                                ST1084.2
054900      MOVE CCVS-E-2TO DUMMY-RECORD WRITE-LINE.          .
055000  END-ROUTINE-12                                                 ST1084.2
055100      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        ST1084.2
055200     IF000700*                                                              *  ST1084.2
055300         MOVE "NO " TO ERROR-TOTAL                                ST1084.2
055400         ELSE**  ST1084.2
055500         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       001300*                                                              *  ST1084.2
055600     MOVE     CCVS-E-2 TO DUMMY-RECORD.001600*        X-55  - SYSTEM PRINTER NAME.                          *  ST1084.2
055700045900 002200     BUILDSTHE*OUTPUT  002400*    REPORT.                    2
055800 END-ROUTINE-13.                                                  ST1084.2
       IS003300    -      .6      BBBBBB A003400*    -54321     BBB -.1234003500*   BBB-1234BBBBBB A              501     +9  003700*    -054321     BBB -.1234   BBBBBB A      AAAAAAAA 418     +99  ST1084
056000         MOVE "NO " TO ERROR-TOTAL                            ST1084.2
056100         MOVE DELETE-COUNTER004400 CONFIGURATION SECTION.                                           ST1084.2
056200     MOVE "TEST(S046100MOVE       COMPUTED-A.                            ST1084.
056300046200MOVE"                  TO                java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
056400      IF   INSPECT-COUNTER EQUAL TO ZERO                          ST1084.2
056500           "   java.lang.StringIndexOutOfBoundsException: Range [72, 41) out of bounds for length 80
 ELSE INSPECT-COUNTER TO ERROR-TOTAL.                   ST1084.
056700       "EST()REQUIRE "TOENDER-DESC            .2
056800         046900               PASS TO.                  .
056900     MOVE
                                  ST1084
057100     047300     MOVE.000000000000000TO
057200     IF RECORD-COUNT 006800     02 SORTKEY-4       PICTURE     02 SORTKEY-4       PICTURE X(10) JUSTIFIED RIGHT.            ST1084.047500MOVE     "                          2
057300         MOVE DUMMY-RECORD TO047700 SORT-TEST-16                                                         02 SORTKEY-5       PICTURE A(20).                            ST108402            XXX 2
057400         MOVE SPACE TO DUMMY-RECORD                               ST1084007600 01  TEST-RESULTS.ST1084.2
057500WRITE AFTERjava.lang.StringIndexOutOfBoundsException: Range [50, 49) out of bounds for length 80
057600         MOVE CCVS-H-1  TO DUMMY-RECORD 047900             TO00800002                    )           .
057700          CCVS-H-2A TO DUMMY-RECORD PERFORMWRT-LN 2TIMESST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
057800         MOVE CCVS-H-2B TO DUMMY-RECORD008400       03 PARDOT-X               X       SPACE.         ST1084.2
057900         MOVECCVS-H-3TO java.lang.StringIndexOutOfBoundsException: Range [46, 45) out of bounds for length 80
058000         MOVE CCVS-C-1  TO DUMMY-RECORD PERFORM     RE-MARK                  X61.                       048400MOVE+TO.                               ST10842
058100         MOVE   TO DUMMY-RECORDPERFORMWRT-LNST1084.2
058200         MOVE  TODUMMY-RECORD PERFORM WRT-LN          ST1084.2
058300         MOVE048700PERFORM.ST10842
058400         MOVE 009500PIC-048800ONTINUE-TESTINGSECTION                                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
058500     PERFORM WRT-LN.                                                      java.lang.StringIndexOutOfBoundsException: Range [32, 31) out of bounds for length 80
058600 WRT-LN.                                                          ST1084
058700     WRITE    DUMMY-RECORD01000004 PIC-()49300MOVE     ENDOFNOT  2
058800     MOVE SPACE TO DUMMY-RECORD010100         04 FILLER                           X.              ST1084.2
058900  ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
059000PERFORMWRT-LN.ST1084.2
059100 FAIL-ROUTINE.                                                    ST1084.2
059200     IF     COMPUTED-X NOT EQUAL TO SPACE                              03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      ST1084 java.lang.StringIndexOutOfBoundsException: Range [51, 46) out of bounds for length 80
059300            GO      .                         ST1084.2
059400     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.ST1084.2
05950001150003FILLERPIC()VALUE .ST1084.
059600     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT   .                                                    ST1084050200MOVE    EOF "                 java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
059700     02                      X)ST1084050500.2
059800MOVESPACES      END-ROUTINE  java.lang.StringIndexOutOfBoundsException: Range [80, 68) out of bounds for length 80
059900     GO TO  FAIL-ROUTINE-EX.                                      ST1084.2
051100 ""           
060100     TEST-COMPUTEDTO WRITE-LINE        ST1084
060200     MOVE   ANSI-REFERENCE 051300 FAIL.  MOVE "FAIL*" TO P-OR- 1TO .          .
060300     MOVE   TEST-CORRECTTO PRINT-REC PERFORMWRITE-LINE2 .ST10842
060400         COR-ANSI-REFERENCE                         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060500 FAIL-ROUTINE-EX. EXIT.                                           01  PICX)SPACES     .2
060600 .                                                       
060700     IF     014100       PIC()   051800 . java.lang.StringIndexOutOfBoundsException: Range [31, 30) out of bounds for length 80
060800          TOGO.2
060900052000MOVETEST-RESULTS .  .ST10842
        . MOVE   XXCOMPUTED. ST1084.2
061100     MOVE   ANSI-REFERENCE TO         PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EXjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
 MOVE    TO . PERFORM WRITE-LINE 2 .  ST1084.2
061300         INF-ANSI-REFERENCE                        ST10842
061400 BAIL-OUT-EX. EXIT.                                               ST1084.2
061500                                                      052600IF       TOZERO   TO         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
061600     EXIT.                                                        ST108402                         (4                .
061700      " HIGHHIGH.ST1084.2
061800EXIT-ONLY.                                                       ST1084.2
       CLOSE-FILES                                        ST1084.2