000100 IDENTIFICATION DIVISION.000200PROGRAM-IDST1084.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 CONFIGURATIONSECTION.                                           ST1084.2
004500 SOURCE-COMPUTER.                                                 ST1084.2
004600     Card0130.                                                    ST1084.2
004700 OBJECT-COMPUTER.                                                 ST1084.2
004800     Card0131.                                                    ST1084.2
004900 INPUT-OUTPUT SECTION004400 CONFIGURATION SECTION.                                           ST1084.2
005000 FILE-CONTROL.                                                    ST1084.2
005100     SELECT PRINT-FILE ASSIGN TOOBJECT-COMPUTER                                                 2
005200     "C0085" .                                                    005000FILE-CONTROL.                                                   
005300     SELECT   SORTFILE-1H ASSIGN005300                                   
005400     "C0039" .DATA.ST1084.
005500 DATA DIVISION.                                                    .                                                   2
005600 FILE SECTION.                                                    PRINT-RECPICTUREX).                                   2
005700   .ST1084.2
005800 01  PRINT-REC PICTURE X(120).                                    ST1084.2
005900 01  01java.lang.StringIndexOutOfBoundsException: Range [72, 23) out of bounds for length 80
                                    java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
006100     DATA RECORD IS SORTFILE-REC.                                 ST1084.2
                                                   2
006300     02 SORTKEY-8       PICTURE S99 COMPUTATIONAL.                ST1084.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).                          007000     02 SORTKEY-2       PICTURE A(05) JUSTIFIED RIGHT.            ST1084 A) JUSTIFIEDRIGHT            ST1084.2
           PICTURE .ST1084.
006800     02 SORTKEY-4       PICTURE X(10) JUSTIFIED RIGHT.            ST1084.2007300  SECTION.ST1084.
).                            ST1084
007000     02 SORTKEY-2       PICTURE A007500  SPAC-EPICTURE VALUE  "                      
007100     02 SORTKEY-5       PICTURE A(20).                            ST1084.2
007200     02 FILLERPICTURE .ST10842
007300 WORKING-STORAGE SECTION.                                         ST1084.2
007400 77  UTIL-CTR           PICTURE S99999.                           ST1084.2
00750077SPAC-E             PICTURE  VALUE  "                      ST1084.2
007600 01  TEST-RESULTS.                                                ST1084.2
007700     02 007900     02 FILLER FILLERPICXVALUESPACE.         ST1084.
00780000800002 P-OR-FPICX(5)VALUESPACE.         ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
007900     02 FILLER                   PIC X      VALUE SPACE.          ST1084.2
008000    02 P-OR-FPIC X()VALUESPACE.ST1084
008100     02 FILLER                   PIC X      VALUE SPACE.          ST1084.2
       PAR-NAME.                                               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008300       03 FILLER                 PIC03VALUEjava.lang.StringIndexOutOfBoundsException: Range [80, 81) out of bounds for length 80
008400       03  PARDOT-X              PIC X      VALUE SPACE.          ST1084.2
           ST1084.2
008600     02 FILLER                   PIC X(8)   VALUE SPACE.          ST1084.2
008700    02 RE-MARK                  PIC(61.                       ST1084.
008800 01  TEST-COMPUTED 01TEST-COMPUTED                                               2
X30  SPACE.
009000     02 FILLER                   PIC X(17)  VALUE                 ST1084.2
009100            "       COMPUTEDUE SPACE.                             ST1084.2    ST10842
       ST10842
009300     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          ST1084.2
009400      COMPUTED-N               .ST10842
009500                                 PIC -9(9).901070003 PICX20 SPACE.        2
            -918).        .
009700     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     ST1084.2
009800     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     ST1084.2
009900     03       CM-18V0 REDEFINES COMPUTED-A.                       ST1084.2
010000         04                      9()          .2
010100         04 FILLER                           04 CORRECT-18V0PIC 918.         ST10842
        X)  .ST1084.
010300 01  TEST-CORRECT.                                                ST1084.2
010400     02 FILLER PIC X(01150003FILLER  ()VALUE SPACE.                             .2
010500     02 FILLER PIC X(17) VALUE "       CORRECT =".                ST1084.2
010600     02 CORRECT-X.                                                ST1084.2
03CORRECT-A                   X(20) VALUE .        .
010800     03011900    SSPARAGRAPH-NAMEST1084.2
010900     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC 012000           .ST1084.2
011000     03CORRECT-4V14       PIC -()9(4.ST10842
011100     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14)                                                       
011200     03      CR-18V0 REDEFINES CORRECT-A.                         ST1084.2
011300          PIC-18.ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012500     PIC15 VALUE .ST10842
011500     03 FILLER PIC X01260002 FILLERPICX4     F"     2
                    X(8)VALUE SPACE.    ST10842
011700 01  CCVS-C-1.                                                    ST1084.2
UE                PAST10842
011900-    "SS  PARAGRAPH-NAME                                          ST1084.2
012000-    "       REMARKS".                                            ST1084.2
012100     02 FILLER                    999      .      .
012200 01  CCVS-C-2.                                                                       999     VALUEZERO ST1084.
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)    VALUE SPACE.      ST1084.2
012600     02 FILLER                     PIC X(4)     VALUE "FAIL".     ST1084.2
012700     02 FILLER                     PIC X(94)    VALUE SPACE.      ST1084.2
01280001REC-SKL-SUB                   PIC(2)    VALUE .ST1084java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012900013900  CCVS-H-1 ST1084.2
013000 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       ST1084.2
013100 01  ERROR-COUNTER                 PIC 999014000                           X39 VALUESPACES     .
013200 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       ST1084.2
013300   java.lang.StringIndexOutOfBoundsException: Range [80, 23) out of bounds for length 80
013400 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       ST1084.2
013500 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       ST1084.2
013600.2
013700 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       ST1084.2
013800 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     ST1084.2
013900 01  CCVS-H-1.                                                    ST1084.2
014000     02  FILLER                    PIC X(39)    VALUE SPACES.     ST1084.2
014100     02  FILLER                    PIC X(42)    VALUE             ST1084.2
014200     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 ST1084.2
014300     02  FILLER                    PIC X(39)    VALUE SPACES.     ST1084.2
014400 01CCVS-H-2A.                                                   .
014500   02  FILLER                        PIC X(40)  VALUE SPACE.      ST1084.2
014600   02  FILLER                        PIC015000"   FOR" ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014700   02  FILLER                        PIC XXXX   VALUE             ST1084.2
014800     "4.2 ".                                                      ST1084.2
014900   02  FILLER                        015400     FILLER                        PIC X(15)  VALUE             ST1084.2
015000            "COPY NOT  DISTRIBUTION.ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015100   02  FILLER                        PIC X(41)  VALUE SPACE.      ST1084.2
015200                                                                  ST1084.2
015300 01  CCVS-H-2B.                                                   ST1084.2
015400   02  FILLER                        PIC X(15)  VALUE             ST1084.2
015500            "TEST RESULT OF ".                                    ST1084.2
015600   02TEST-ID                       PICX9.ST10842
015700   02  FILLER                        PIC X(4)   VALUE             ST1084.2
015800            " IN ".                                               ST10842
015900   02  FILLER                        PIC X(12)  VALUE             ST1084.2
016000     "            LEVELVALIDATION "                             2
016100   02  FILLER                        PIC X(016300 PIC() ST1084.
016200            " LEVEL "N-SITE  INSTITUTEOFSTD&TECH     "..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016300   02  FILLER                        PIC X(58)  VALUE             ST1084. 02FILLERPIC()VALUEST10842
016400     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".ST1084.2
016500 01  CCVS-H-3.                                                    ST1084.2
       PIC(34VALUEST10842
016700            " FOR OFFICIAL USE ONLY    ".                         ST1084.2
016800     02  FILLER                      PIC X(58)  VALUE             ST1084.2
016900     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".ST1084.2
017000     02  FILLER                      PIC X(28)  VALUE             ST1084.2
017100            "  COPYRIGHT   1985 ".                                ST1084.2
  CCVS-E-1                                                    2
017300     02 FILLER                       PIC X(52)  VALUE SPACE.      ST1084.2
 02   X14)VALUEISE OFjava.lang.StringIndexOutOfBoundsException: Range [56, 54) out of bounds for length 80
017500     02 ID-AGAIN                     PIC X(9).                    ST1084.2
017600     02 FILLER                       PIC X(45)  VALUE SPACES.     ST1084.2
017700 01  CCVS-E-2.                                                    ST1084.2
017800     02  FILLER                      PIC X(31)  VALUE SPACE.      ST1084.2
.2
018000     02CCVS-E-2-2.ST1084.2
018100         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      ST1084.2
018200         03 FILLER                   PIC X      VALUE SPACE.      ST1084.2
018300         03 ENDER-DESC               PIC X(44)  VALUE             ST1084.2
018400            "ERRORS ENCOUNTERED".                                 ST1084.2
01850001 .                                                   
018600     02  FILLER                      PIC X(22)  03                ()VALUEST1084.
018700            " FOR OFFICIAL USE ONLY".                             ST1084.2
018800     02  FILLER                      PIC X(12)  VALUE SPACE.      ST1084.2
018900     02  FILLER                      PIC X(58)              2
019000     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".ST1084.2
019100     02  FILLER                                  FORUSE"ST10842
(15)  VALUE             ST1084.
019300             " COPYRIGHT 1985".                                   ST1084.2
019400 01  CCVS-E-4.                                                    ST1084.2
019500     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      ST1084.2
019600     02 FILLER                       PIC X(4)   VALUE " OF ".     ST1084.2
019700     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      ST1084.2
019800     02 FILLER                       PIC X()  VALUE             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 ***".                                     02CCVS-E-4-1                   PIC XXX    VALUE SPACE.      ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02030002 INFO-TEXT                                                2
020400       04 FILLER                     PIC X(8)   VALUE SPACE.      ST1084019800      FILLER                       X40)  VALUE             ST1084.2
020500       04 XXCOMPUTED                 PIC X(20).                   ST1084.2
020600       04 FILLER                     PIC 02000001  XXINFO.ST1084.2
020700       04 XXCORRECT                  PIC X(20).                   ST1084.2
020800      INF-ANSI-REFERENCE           PIC X().                   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)    020200            ** INFORMATION*"                                .2
021200-    "*****************************************".                 ST1084.2
021300     02 FILLER  PIC  X(4    VALUE  "*****************ST1084.2
021400-    "******************************".                            ST1084.2
021500 01  CCVS-PGM-ID                     PIC X(02050004XXCOMPUTEDPIC()                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
021600     020700       XXCORRECTPIC(20.                   ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
021700 PROCEDUREDIVISION                                              2
021800 SORT-PARA SECTION.                                               ST1084.2
                                        ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
22000         SORTFILE-1HONST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022100              ASCENDING KEY SORTKEY-1                             ST1084.2
022200             ASCENDING SORTKEY-2                                 ST1084.
022300              ASCENDING SORTKEY-3                                 ST1084.2
022400              ASCENDING SORTKEY-4                                 ST1084.2
022500                            ASCENDING SORTKEY-5                                 ST1084.2
022600              ASCENDING SORTKEY-6                                 ST1084.2
022700              ASCENDING SORTKEY-7                                 ST1084.2
022800              ASCENDING SORTKEY-8                                 ST1084.2
022900              INPUT PROCEDURE INPROC                               PROCEDURE DIVISION.                                             2
023000              OUTPUT PROCEDURE OUTPROC THRU OUTPROC-EXIT.         ST1084.2
023100     STOP     RUN.                                                ST1084.2
023200 INPROC SECTION.                                                 2
023300 BUILD-FILE.                                                      ST1084.2
023400     PERFORM  BUILD-RECORD.                                       ST1084.2
023500     MOVE     +123456             TO SORTKEY-1.                   ST1084.2
023600     PERFORM  ASCENDINGST1084java.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-RECORD.                                     ST1084.2
024000     PERFORM  BUILD-RECORD.                                       ST1084.2
024100     MOVE     +.6                 TO SORTKEY-3.                   ST1084.2
024200     java.lang.StringIndexOutOfBoundsException: Range [78, 18) out of bounds for length 80
024300     PERFORM  023200 INPROC SECTION.         2
024400     MOVE     "X"                 TO SORTKEY-4.                   ST1084.2
024500     PERFORM  RELEASE-RECORD.                                     ST1084.2
024600     PERFORM  BUILD-RECORD.                                       ST1084.2
.                   2
024800     PERFORM  RELEASE-RECORD.                                     ST1084.2
024900PERFORM  .                                      .
025000     MOVE     "Z"                 TO SORTKEY-6.                   ST1084.2
025100     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  BUILD-RECORD.                                       ST1084.2
025600     MOVE     -14                 TO SORTKEY-8.                   ST1084.2
025700     PERFORM  RELEASE-RECORD.                                     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"               024600     PERFORM  BUILD-RECORD.         2
026200     MOVE     -.1234567890123456  TO SORTKEY-3.                   ST1084.2
026300     MOVE     "BBBBBB"            TO SORTKEY-4.                   ST1084.2
026400     MOVE     "A"                 TO SORTKEY-5.                   ST1084.2
026500     MOVE     "AAAAAAAA"          TO SORTKEY-6.                   ST1084.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     +99TO.ST1084.2
027000 RELEASE-RECORD.                                                  ST1084.2
027100     RELEASE  SORTFILE-REC.                                       ST1084.2
027200 BUILD-EXIT                                                      .2
027300     EXIT.                                                        ST1084.2
027400 OUTPROC SECTION.                                                 ST1084.2
                                                ST10842
027600     OPEN     OUTPUTPRINT-FILE.                                  ST1084.2
027700     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   ST1084.2
027800     MOVE    SPACE TO TEST-RESULTS.                               ST1084.2
027900     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             ST1084.2
     IF       SPAC-E IS LESS B"                            ST1084.2
028100              GO TO SPACE-IS-LESS-THAN-B.                         ST1084.2
028200 B-IS-LESS-THAN-SPACE SECTION.                                    ST1084.2
028300 .                                                     ST1084.2
028400    MOVE     "SORT -8ASC. KEYS" TOFEATURE                    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 026600MOVE-                  ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029000     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
029100     IF       SORTKEY-7 EQUAL TO 418                              ST1084.2
029200              PERFORM PASS GO TO 027100RELEASESORTFILE-REC                                       ST1084.
029300 SORT-FAIL-1.                                                     027300    .                                                        java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029400     PERFORM  FAIL                                               ST1084.
029500     MOVE     SORTKEY-7 TO COMPUTED-N.                            ST1084.2
029600     MOVE     418 TO CORRECT-N.                                   ST1084.2
                                          ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029800     MOVE     "SORT-TEST-1 " TO PAR-NAME.                         ST1084.2
029900     PERFORM  PRINT-DETAIL.                                       ST1084.2
030000 SORT-TEST-2.                                                                    TOSPACE-IS-LESS-THAN-BST10842
030100     RETURN   SORTFILE-1H AT 028200 B-IS-LESS-THAN-SPACE .ST1084.2
030200     028300 SORT-I.                                                     ST10842
030300PERFORM PASS   .ST10842
030400 SORT-FAIL-2.                                                     ST1084.2
030500     PERFORM  FAIL.                                               ST1084.2
030600     MOVE     SORTKEY-8 TO COMPUTED-N.                            ST1084.2
030700      SORT-TEST-1ST1084.
030800 SORT-WRITE-2.                                                    ST1084.2
030900     MOVE     "SORT-TEST-2 " TO PAR-NAME029100IF  418                              ST10842
031000     PERFORM029200                 TO.2
                                                     
031200     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.          java.lang.StringIndexOutOfBoundsException: Range [30, 29) out of bounds for length 80
031300     IF       SORTKEY-6 EQUALST10842
                        .2
031500 SORT-FAIL-3.                                                     ST1084.2
031600     PERFORM  FAIL.                                               ST1084.2
031700     MOVE     SORTKEY-6                                                     ST1084.2
031800     MOVE     "Z         "           030300GO                     ST10842
031900 SORT-WRITE-3.                                                    ST1084.2
032000     MOVE     "PAR-NAME.2
032100     PERFORM  PRINT-DETAIL.                                     
032200 SORT-TEST-4.                                                          RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084
032300     RETURN   SORTFILE-1H AT END GO 031600                                               ST1084.
032400     IF       031800"                    CORRECT-A                .
               PASS                      java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
032600 SORT-FAIL-4.                                                     ST1084032100PERFORMjava.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bounds for length 80
032700     PERFORM  FAIL.                                               java.lang.StringIndexOutOfBoundsException: Range [11, 6) out of bounds for length 80
032800     MOVE     SORTKEY-5 TO COMPUTED-A.                            ST1084.2
032900     MOVE     "Z                   " TO CORRECT-A.                ST1084.2
033000 SORT-WRITE-4                                                    ST10842
033100     MOVE     "SORT-TEST-4 " TO PAR-NAME.                         ST1084.2
033200     PERFORM  .                                      .
033300 SORT-TEST-5.                                                     ST1084.2
033400     RETURN   SORTFILE-1H  END GOTO .              ST1084.2
033500     IF       SORTKEY-4 EQUAL TO "         X"                     ST1084.2
033600              PERFORM PASS GO TO SORT-WRITE-5.                    ST1084.2
033700 SORT-FAIL-5033100         SORT-TEST-4 "TO PAR-NAME.                         ST10842
033800     PERFORM  FAIL.033200      PRINT-DETAIL                                       .2
033900     MOVE     SORTKEY-4 TO 033300 SORT-TEST-5.                     .2
034000     MOVE                         TO .                2
034100 SORT-WRITE-5.                                                    033500     IF       SORTKEY-4 EQUAL TO "         X"                     ST1084
034200     MOVE     "SORT-TEST-5 " TO PAR-NAME.                         ST1084.2
034300     PERFORM  PRINT-DETAIL.                                       ST1084.2
034400 SORT-TEST-6.                                                     ST1084.2
034500     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
034600     IF       SORTKEY-3 EQUAL TO +.6000000000000000               ST1084.2
034700              PERFORM PASS GO TO SORT-WRITE-6.                    ST1084.2
034800 SORT-FAIL-6.                                                     ST1084.2
 PERFORM  FAIL.ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
035000.                         ST10842
035100     SORT-TEST-6ST1084
035200 SORT-WRITE-6034500     END TO.ST10842
035300     MOVE     "SORT-TEST-6034600IF         TO .6000000000000000ST1084.
035400     PERFORM  PRINT-DETAIL                                       
035500 SORT-TEST-7.                                                      .                                                    ST1084.
035600     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
035700     IF       SORTKEY-2 EQUAL TO "    X"                          ST1084.2
035200.ST1084
035900 SORT-FAIL-7.                                                     
036000     PERFORM  FAIL.                                               ST1084.2
036100     MOVE     SORTKEY-2 TO COMPUTED-A.                            ST1084.2
036200     MOVE     "    X" TO CORRECT-A.                               ST1084.2
036300 SORT-WRITE-7.                                                    ST1084.2
036400     MOVE     "SORT-TEST-7 " TO PAR-NAME.                         ST1084.2
036500     PERFORM  PRINT-DETAIL.                                       ST1084.2
036600 SORT-TEST-8036100       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036700     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
036800     IF       SORTKEY-1 EQUAL TO .                                                    .2
036900              PERFORM PASS GO TO SORT-WRITE-8.                    ST1084.2
037000 SORT-FAIL-8.                                                     ST1084.2
037100     PERFORM  FAIL.                                               ST1084.2
037200     MOVE     SORTKEY-1 036700     RETURN   SORTFILE-1H AT  RETURN-ERROR.              ST10842
037300     MOVE     +123456 TO CORRECT-N.                               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.2
037800     MOVE     SPACE TO FEATURE.                                   ST1084.2
037900     MOVE     "THE COLLATING SEQUENCE" TO RE-MARK.                ST1084.2
038000     PERFORM  PRINT-DETAIL.java.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bounds for length 80
038100     MOVE     "RENDERS TESTS 9 THRU 16" TO RE-MARK. java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 80
038200     PERFORM  PRINT-DETAIL.                                       ST1084.2
038300     MOVE     "UNNECESSARY." TO RE-MARK.                          ST1084.2
038400     PERFORM  PRINT-DETAIL.                                       ST1084.2
038500MOVES-8 ASC.KEYS FEATURE.                   2
038600     GO       TO CONTINUE-TESTING.                                ST1084.2
038700 SPACE-IS-LESS-THAN-B SECTION.                                    ST1084MOVE". TO RE-MARK.ST10842
038800 SORT-REMARK-B.                                                   ST1084.2
038900     MOVE     "THE COLLATING SEQUENCE" TO RE-MARK.                ST1084.2
039000     PERFORM  PRINT-DETAIL.                                       ST1084.2
039100     MOVE     "RENDERS TESTS 1 THRU 8" TO RE-MARK.                ST1084.2
039200     PERFORM  PRINT-DETAIL.                                       ST1084.2
039300         U.  .                          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039400     PERFORM  PRINT-DETAIL.                                       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 039600*        NOTE THE RECORDS SHOULD BE SORTED INTO THE FOLLOWING     ST1084.2
040300              039800*             THE 1ST RECORD IS SORTED DOWN TO THE 8TH POSITION,  ST1084.2
040400 SORT-FAIL-9.                                                     ST1084.2
040500     PERFORM  FAIL.                                               ST1084.2
040600     MOVE     SORTKEY-2 TO COMPUTED-A.                                          java.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 80
040700     MOVE     "    X" TO CORRECT-A.                                    PERFORM  FAIL.                                               ST1084
040800 .                                                    
040900     MOVE     "SORT-TEST-9 " TO PAR-NAME.                         ST1084.2
041000     PERFORM  PRINT-DETAIL.                                       ST1084.2
041100 SORT-TEST-10.                                                    ST1084.2
041300IFEQUAL          "ST10842
041300     IF       SORTKEY-4 EQUAL TO "         X"                     ST1084.2
041400              PERFORM PASS GO TO SORT-WRITE-10.                   ST1084.2
041500 SORT-FAIL-10.                                                    ST1084.2
041600     PERFORMTO.java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
041700     MOVE     SORTKEY-4 TO COMPUTED-A.                            ST1084.2
041800     MOVE     "         X" TO CORRECT-A.                          ST1084.2
041900 042000     MOVE"ORT-TEST-10" TO PAR-NAME.                         ST1084.2
042000     042100PERFORMPRINT-DETAIL                                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042100     PERFORM  PRINT-DETAIL.                                       ST1084.2
                                   ST1084.2
042300     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
042400     IF       SORTKEY-7 EQUAL TO 418                              ST1084.2
042500              PERFORM PASS GO TO SORT-WRITE-11.                   ST1084.2
042600 SORT-FAIL-11.                                                    ST1084.2
042700       FAIL.ST1084.2
042800     MOVE     SORTKEY-7 TO COMPUTED-N                             ST1084.2
042900           TO .                                  .
 .                                                  ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043100     MOVE     "SORT-TEST-11" TO PAR-NAME.                         ST1084.2
043200     PERFORM  PRINT-DETAIL.                                       ST1084.2
043300 SORT-TEST-12.                                                    ST1084.2
043400     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
043500     IF       SORTKEY-8java.lang.StringIndexOutOfBoundsException: Range [36, 35) out of bounds for length 80
 PERFORM GO .                  2
043700 SORT-FAIL-12.                                                    ST1084.2
043800PERFORM.ST1084.2
043900     MOVE     SORTKEY-8 TO COMPUTED-N.                                   FAIL                                               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
044000     MOVE     -14 TO CORRECT-N.                                                                                      ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
044100 SORT-WRITE-12.                                                   ST1084.2
044200     MOVE     "SORT-TEST-12" TO PAR-NAME.                         ST1084.2
044300     PERFORM  PRINT-DETAIL.                                       ST1084.2
044400 SORT-TEST-13.                                                    ST1084.2
044500     RETURN   SORTFILE-1H AT END 044600     IF       SORTKEY-6 EQUAL TO "Z
IFjava.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-6TOCOMPUTED-AST10842
              java.lang.StringIndexOutOfBoundsException: Range [56, 55) out of bounds for length 80
045200 SORT-WRITE-13.                                                   ST1084.2
     MOVE""  .ST1084.2
045400     PERFORM  PRINT-DETAIL SORT-TEST-14.                                                    
 SORT-TEST-14.                                                    .2
045600RETURNSORTFILE-1H END RETURN-ERROR.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
045700     IF       SORTKEY-5 EQUAL TO "Z                   "           ST1084.2
045800              PERFORM PASS GO TO SORT-WRITE-14.                   ST1084.2
045900 SORT-FAIL-14.                                                    ST1084.2
046000     PERFORM  FAIL.                                               ST1084.2
046100     MOVE     SORTKEY-5 TO COMPUTED-A.                            ST1084.2
046200          Z                  TO .                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046300 SORT-WRITE-14.                                                   ST1084.2
046400     MOVE     "SORT-TEST-14" TO PAR-NAME.                              IF       SORTKEY-3 EQUAL TO +.6000000000000000               ST1084
  PRINT-DETAIL.                                      
046600     PERFORM  FAIL                                               ST1084.2
046700          TOCOMPUTED-0V18.                        .2
046800     IF       SORTKEY-3 EQUAL TO +.6000000000000000               ST1084.2
046900              PERFORM PASS GO TO SORT-WRITE-15.                   ST1084.2
047000 SORT-FAIL-15          "  PAR-NAME                         2
047100     PERFORM  FAIL.                                               ST1084.2
047200     MOVE     SORTKEY-3TO .                         ST1084.
047300     MOVE     +.6000000000000000     TO CORRECT-0V18.             ST1084.2
047400 SORT-WRITE-15                                                   ST1084.
047500     MOVE     "SORT-TEST-15" TO PAR-NAME.                         ST1084.2
047600     047800     RETURNENDTOjava.lang.StringIndexOutOfBoundsException: Range [58, 57) out of bounds for length 80
ST1084.
047800     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR .ST1084.2
047900     IF       SORTKEY-1 EQUAL TO +123456                          ST1084.2
048000PERFORMPASS SORT-WRITE-16                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
2
048200     PERFORM  FAIL048700PERFORM.ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
048300      TO COMPUTED-N.                            .2
048400     .2
048500 SORT-WRITE-16.                                                   ST1084.2
048600     MOVE     "SORT-TEST-16" TO PAR-NAME.                         ST1084.2
048700     PERFORM  PRINT-DETAIL.                                       ST1084.2
048800 CONTINUE-TESTING SECTION.                                        ST1084.2
048900 SORT-TEST-17.                                                    ST1084.2
049000     RETURN   SORTFILE-1H AT                                  ST1084.2
049100              PERFORM PASS GO TO SORT-WRITE-17.                   049400     FAIL                                               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
 .                                                    
049300     MOVE"  FILE  FOUND  .                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049400     PERFORM  FAIL.                                               ST1084.2
049500 SORT-WRITE-17.                                                   ST1084.2
049600     MOVE     "SORT-TEST-17" TO PAR-NAME.                         ST1084.2
049700     PERFORM  PRINT-DETAIL.                                       ST1084.2
049800     GO       TO OUTPROC-EXIT.                                    ST1084.2
049900 RETURN-ERROR.                                                    2
050000 java.lang.StringIndexOutOfBoundsException: Range [42, 36) out of bounds for length 80
050100     PERFORM  FAIL.                                               ST1084050300      .ST1084.2
050400                                              .
050300     PERFORM  PRINT-DETAIL.                                        .ST1084java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050400     GOTOCCVS1-EXIT.                                            ST1084.2
050500 CLOSE-FILES.                                                     ST1084.2
050600     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   ST1084.2
050700 TERMINATE-CCVS     RUNST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051100 INSPT.MOVEINSPT  P-OR-F ADD  .ST10842
 .                                                  ST10842
          RUNST1084.2
051100 INSPT. MOVE "INSPT" TO P-OR-F. 051400 DE-LETE   ***"TO .ADD  TO .      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051200 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER051600PRINT-DETAIL ST10842
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
051500MOVE"**TEST DELETED**"TO                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051600 PRINT-DETAIL.                                                    ST1084.2
051700     IF REC-CT NOT EQUAL TO ZERO                                  ST1084.2
051800              . TOPARDOT-X                                 ST10842
051900             MOVE REC-CT TO DOTVALUE.                             ST1084.2
          TEST-RESULTSTOPRINT-REC.PERFORMWRITE-LINE.     ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
     IFP-OR-F EQUALTO"AIL"PERFORM WRITE-LINE               ST1084.
052200        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 ST1084.2
052300          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 ST1084.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
052800HEAD-ROUTINE.ST1084.2
052900     MOVE CCVS-H-1  TO 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. 053000     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORMjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
053200     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  ST1084053200MOVECCVS-H-3TODUMMY-RECORD.PERFORMWRITE-LINE3 ST10842
053300 COLUMN-NAMES-ROUTINE.                                            ST1084.2
053400MOVECCVS-C-1TO .  .           ST10842
053500     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1084.2
053600 HYPHEN-LINETO          .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-1TODUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1084.2
054100 END-ROUTINE-1.                                                   ST1084.2
054200      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      054400      ADD PASS-COUNTER TO ERROR-HOLD.                             ST1084                             ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
 TO  .
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
WRITE-LINE.           .2
055000  END-ROUTINE-12.                                                 ST1084.2
055100      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        ST1084.2
055200     IF       ERROR-COUNTER IS EQUAL TO ZERO                      ST1084.2
055300         MOVE "NO " TO ERROR-TOTAL                                ST1084.2
055400         ELSE                                                     ST1084.2
055500         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       ST1084.2
055600     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           ST1084.2
055700     PERFORM WRITE-LINE.                                          ST1084.2
055800 END-ROUTINE-13.          " TO java.lang.StringIndexOutOfBoundsException: Range [42, 40) out of bounds for length 80
055900     DELETE-COUNTER EQUAL                            2
056000         MOVE "NO " TO ERROR-TOTAL  ELSE                          ST1084.2
056100         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      ST1084.2
) DELETED" ENDER-DESC.ST10842
056300     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           ST1084.2
056400      IF   INSPECT-COUNTER EQUAL TO ZERO                          ST1084.2
056500          MOVE "NO " TO ERROR-TOTAL                               ST1084.2
056600     ELSE MOVE INSPECT-COUNTER TOERROR-TOTAL.                   ST1084.2
056700      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            ST1084.2
056800      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          ST1084.2
056900     MOVE CCVS-E-3 TO DUMMY-RECORD.PERFORM WRITE-LINE.           ST1084.2
057000 WRITE-LINE.                                                      ST1084.2
057100     ADD 1 TO RECORD-COUNT.                                      .2
056900TO.            .
057300         057000ST10842
057400         MOVE SPACE TO DUMMY-RECORD                               ST1084.2
057500         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  ST1084.2
057600         MOVE CCVS-H-1  TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    ST1084.2
057700         MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    ST1084.2
057800         MOVE CCVS-H-2B TO 057500        WRITE  AFTERADVANCING PAGE                  .2
057900         MOVE CCVS-H-3  TO DUMMY-RECORD057600MOVECCVS-H-1  TO DUMMY-RECORDPERFORM  2 TIMES    ST10842
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.2
058200         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          ST1084.2
058300         MOVE DUMMY-HOLD TO DUMMY-RECORD                          ST1084.2
058400         MOVE ZERO TO RECORD-COUNT.                               ST1084.2
058500     PERFORM WRT-LN.058600                                                          
058600 WRT-LN.                                                             java.lang.StringIndexOutOfBoundsException: Range [38, 37) out of bounds for length 80
058700     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               ST1084.2
058800     MOVE SPACE TO 059100 FAIL-ROUTINE.                 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
058900 BLANK-LINE-PRINT.                                                ST1084.2
059000     PERFORM WRT-LN.059400     IF    CORRECT-XNOT TO SPACE GO TOFAIL-ROUTINE-WRITE.ST1084.2
059100 FAIL-ROUTINE.                                                    ST1084059500     MOVE   ANSI-REFERENCE INF-ANSI-REFERENCE                 .2
059700        XXINFO TO.  2   2
   .ST1084java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
059400     059900     GO TO  FAIL-ROUTINE-EX.ST1084.2
059500     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 ST1084.2
059600     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   ST1084.2
059700     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1084.2
059800     MOVE   SPACES TO INF-ANSI-REFERENCE.060000 .ST1084.2
059900     GO TO  FAIL-ROUTINE-EX.                                      ST1084.2
060000 FAIL-ROUTINE-WRITE.                                              ST1084.2
060100     MOVE   TEST-COMPUTED COR-AN.                         .2
060200     MOVE060500 FAIL-ROUTINE-EX.EXIT.                                          ST10842
060300     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. 060600 BAIL-OUT.                                                        ST1084
060400     MOVE   SPACES TO COR-ANSI-REFERENCE.                         ST1084.2
 .EXIT                                           2
060600 .ST1084.2
060700     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITEMOVE  TOXXCORRECT MOVE COMPUTED-A XXCOMPUTED.ST1084.
060800     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           ST1084.2
 .ST1084.2
061000     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  ST1084.2
061100     MOVE   061300     MOVE   SPACESSPACESTO.ST10842
061200     MOVE   XXINFO                                               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
061300     MOVE   SPACES TO INF-ANSI-REFERENCE.                         ST1084.2
061400 BAIL-OUT-EX. EXIT.                                               ST1084.2
061500 CCVS1-EXIT.                                                      ST1084.2
061600     EXIT.                                                        ST1084.2
061700 OUTPROC-EXIT      PERFORM  CLOSE-FILESST10842
061800 EXIT-ONLY.                                                       ST1084.2
061900     PERFORM  CLOSE-FILES.                                        ST1084.2