Quelle  st108a.cob   Sprache: Cobol

                                         
000200java.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 80
000300     055000  END-ROUTINE-12.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                                                                  ELSE
004300 ENVIRONMENT DIVISION.                                            ST1084.2
004400 java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 80
004500 SOURCE-COMPUTER.      Z" ..ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
004600     Card0130046300 SORT-WRITE-14.                                                  .2
004700 OBJECT-COMPUTER.                                                 046400     MOVE     "SORT-TEST-14" TO PAR-NAME.                         ST1084
004800     Card0131.                                                    ST1084.2
004900 INPUT-OUTPUT SECTION.                                            MOVENO"TO ERROR-TOTAL                               ST1084.2
005000 FILE-CONTROL.                                                    ST1084.2
005100     SELECT PRINT-FILE ASSIGN TO                                  java.lang.StringIndexOutOfBoundsException: Range [17, 16) out of bounds for length 80
005200     "C0085" .                                                    ST1084.2
005300     056800MOVECCVS-E-2 TO              PERFORM  TO SORT-WRITE-15                  ST1084.
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.2
005900 01  DUMMY-RECORD PICTURE X(120).                                 ST1084.2
006000 SD  SORTFILE-1H                                                  ST1084.2
006100     DATA RECORD IS SORTFILE-REC.                                 ST1084.2
006200 01  SORTFILE-REC.                                                ST1084.2
006300     02      MOVE     SORTKEY-3 java.lang.StringIndexOutOfBoundsException: Range [72, 42) out of bounds for length 80
006400     02 SORTKEY-1       PICTURE S9(6) COMPUTATIONAL.              ST1084.2
006500                             ST1084.2
006600     02 SORTKEY-3       PICTURE SV9(16).                          ST1084.2
006700     02  SORT-WRITE-15ST1084.
006800             "TOPAR-NAME.ST1084.2
006900     02 SORTKEY-6       PICTURE X(10).                            ST1084.2
007000   PICTURE A(05 JUSTIFIEDRIGHT.ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
007100.2
007200      FILLERPICTURE.ST1084.
007300 WORKING-STORAGE SECTION.                                         ST1084.2
007400 77  UTIL-CTR           PICTURE S99999.                           ST1084.2
007500 77  SPAC-E             PICTURE X VALUE " ".                      ST1084.2
00760001                                                  
00770002FILLERPIC X      VALUE SPACE.ST1084.2
007800     02 FEATURE                  057500          DUMMY-RECORD AFTER ADVANCING PAGE                  ST1084.2
007900     02 FILLER                   PIC X      VALUE SPACE.          ST1084.2
     02 P-OR-F                    XX5 VALUE SPACE.          ST1084java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008100     MOVEDUMMY-RECORD WRT-LN2     2
008200     02  PAR-NAME.ST1084.2
008300       03 FILLER                 PIC X(19)  VALUE SPACE.          ST1084.2
008400 PICXVALUESPACE.         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008500       03 DOTVALUE               PIC 99     VALUE ZERO.           ST1084.2
008600     02 FILLER         MOVE CCVS-H-3  TODUMMY-RECORD PERFORM WRT-LN     MOVE     SORTKEY-1TO .ST10842
008700     02 RE-MARK                  PIC ().                            MOVE123456 CORRECT-N                               ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008800 01  TEST-COMPUTED.                                               ST1084.2
008900     02 FILLER                   PIC X(30)  VALUE SPACE.          ST1084.2
009000     02 FILLER                   PIC X(17)  VALUE                 ST1084.2
009100058200HYPHEN-LINE java.lang.StringIndexOutOfBoundsException: Range [48, 47) out of bounds for length 80
009200     02 COMPUTED-X.                                               ST1084.2
 PERFORMPRINT-DETAIL.                                     2
009400     03 COMPUTED-N               REDEFINES COMPUTED-A             ST1084.2
009500                                  -CONTINUE-TESTING SECTION.ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
009600     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         ST1084.2
009700     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     ST1084.2
009800049000RETURN  SORTFILE-1H AT END                                  ST1084.2
009900     03       CM-18V0 REDEFINES COMPUTED-A.                                      PASS GO TO SORT-WRITE-17                   ST1084.2
010000         04 COMPUTED-18V0                     -(8.          ENDOFFILE  FOUND"TO RE-MARK.                 ST1084.2
010100         04 PIC.ST10842
010200     03 FILLER PIC X(50) VALUE SPACE.                             ST1084.2
010300 01 BLANK-LINE-PRINT                                               2
010400     02 FILLER PIC X(30) VALUE SPACE.                             ST1084.2
010500     02 FILLER PIC X(17) VALUE     059000     PERFORM java.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 80
      .ST1084.2
010700     03 CORRECT-A                  PIC X(20) VALUE SPACE.         ST1084.2
010800.2
010900     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         ST1084.2
011000     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     ST1084.2
011100     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     ST1084.2
011200     03     CR-18V0 REDEFINES CORRECT-A.
011300         04 CORRECT-18V0                     PIC -9(18).          ST1084.2
01140004 FILLER                            X               .
        X2 VALUE SPACE                              2
011600     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     ST1084.2
01170001CCVS-C-1                                                    ST1084.     " PREMATURELYFOUND TO RE-MARK.                 ST1084.2
011800     02 FILLER  PIC IS AIL                                       2
011900-    "SS  PARAGRAPH-NAME                                          ST1084.2
012000".                                            .2
012100     02 FILLERPIC X(20    VALUE SPACE.      ST1084 CLOSE-FILES.ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012200 01  CCVS-C-2.                                                         MOVE        PERFORM END-ROUTINE  END-ROUTINE-13.CLOSE PRINT-FILE.ST1084.2
012300     02 FILLER                     PIC X        VALUE SPACE.      ST1084.2
012400     02 FILLER                     PIC X(6)     VALUE "050800     EXIT PROGRAM.                                           
012500     02 FILLER                     PIC X(15)    VALUE SPACE.      ST1084.2
012600     02 FILLER                     PIC X051000STOP    RUN.ST1084.2
012700     02 FILLER                     PIC X(94)    VALUE SPACE.      ST1084.2
060000 FAIL-ROUTINE-WRITE051100 INSPT.MOVE N"TO P-OR-F.ADD 1TO INSPECT-COUNTERST1084
012900 01  REC-CT                        PIC 99       VALUE ZERO.       ST1084.2
01300001  DELETE-COUNTER                 999VALUE .       ST1084.2
013100 01  ERROR-COUNTER060100MOVE     PRINT-RECPERFORM          .2
013200 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       ST1084.2
013300 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       ST1084.2
013400 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       ST1084.2
013500 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       ST1084.2
013600 01  DUMMY-HOLD                    PIC X(MOVESPACESTO .ST10842
013700 01  051500MOVE **TEST DELETED**"TORE-MARK.                     .
013800 01  ANSI-REFERENCE                PIC (48    VALUE SPACES.     ST1084
013900 01  CCVS-H-1.                                                    ST1084.2
 FILLER                    PIC (39    SPACES.ST1084060600BAIL-OUT.                                                       .2
01410002FILLER                     X42    VALUE             "  PARDOT-X                                 ST1084.2
014200     "OFFICIAL COBOL COMPILER VALIDATION060800IF     CORRECT-A EQUAL  SPACE   BAIL-OUT-EX.          ST1084.2
014300     02  FILLER                    PIC X(39)    VALUE SPACES.     ST1084.2
014400 01   BAIL-OUT-WRITE          TEST-RESULTSTOPRINT-REC java.lang.StringIndexOutOfBoundsException: Range [55, 54) out of bounds for length 80
014500   02  052100java.lang.StringIndexOutOfBoundsException: Range [11, 6) out of bounds for length 80
014600   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  ST1084.2
014700   02  FILLER                        PIC XXXX   VALUE             ST1084.2
014800     ". .ST1084.2
014900   02  FILLER                        PIC X(28)061200       XXINFOTODUMMY-RECORDPERFORM WRITE-LINE 2TIMES   2
015000"COPY -NOT061300SPACES INF-ANSI-REFERENCE                         2
015100   02  FILLER                        PIC X(41)  VALUE SPACE.      ST1084.2
015200                                                                  .2
015300 01  CCVS-H-2B.                                                   ST1084.2
015400   02  FILLER                        PIC X(061500 CCVS1-EXIT.                                                      ST1084.052600IF     REC-CT EQUAL TO ZERO  MOVESPACETO .         ST10842
015500            "ESTRESULT OF "                                    .2
015600   02  TEST-ID                       PIC X(9).                    ST1084.2
015700   02  FILLER                        PIC X)VALUEST1084.2
015800            " IN ".                                               ST1084.052800 HEAD-ROUTINE.ST1084.2
015900   02  FILLER                        PIC X(12)  VALUE             ST1084.2
016000     " HIGH       ".                                              2     MOVE CCVS-H-1   DUMMY-RECORD.PERFORM WRITE-LINE 2 TIMES.  ST1084061800 EXIT-ONLY                                                       ST1084
016100   02  FILLER                        PIC X(22)  VALUE             ST1084.2
016200            " LEVEL VALIDATION FOR ".                             ST1084.2
016300   02  FILLER                        PIC X(58)  VALUE             ST1084.2
 "N-SITE VALIDATION,NATIONAL INSTITUTE OF STD & TECH.     ".ST1084.2
016500 01  CCVS-H-3.                                                        DUMMY-RECORD.PERFORM WRITE-LINE  TIMES.ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016600     02  FILLER                      PIC X(34)  VALUE             ST1084.2
MOVE CCVS-C-1 TO DUMMY-RECORD.PERFORM            java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
016800      CCVS-C-2TO . PERFORM WRITE-LINE 2TIMES   ST1084.
016900     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".ST1084.2
017000    02FILLER                      PICX)ST1084
017100            "  COPYRIGHT   1985 ".                                ST1084.2
017200 01   END-ROUTINE                                                     
017300     02 FILLER      HYPHEN-LINETO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMESS.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
017400     02 FILLER  PIC X(14) VALUE IS "END OF TEST-  ".              ST1084.2
017500     02 ID-AGAIN                     PIC X(9).                    ST1084.2
017600054100                                                   
017700 01  CCVS-E-2       ERROR-COUNTERTOERROR-HOLDADD  TO      ST10842
017800     02  FILLER                      PIC X(31)  VALUE SPACE.      ST1084.2
017900     02 FILLER                       X(21) VALUE SPACE.      ST1084.2
018000     02 CCVS-E-2-2.                                               ST1084.2
018100         03 ERROR-TOTAL              PIC XXX    VALUE054400ADDPASS-COUNTER TO ERROR-HOLD.                             ST1084.2
018200         03 FILLER                   PIC X      VALUE SPACE.      ST1084.2
018300         03 ENDER-DESC                     MOVE PASS-COUNTER TO CCVS-E-4-1.  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018400"ENCOUNTERED"                                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018500 01  CCVS-E-3.                                                    ST1084.2
018600     02  FILLER                      MOVETO .                                .2
018700 OFFICIAL  ".ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018800     02  FILLER                      PIC X(12)  VALUE SPACE.      ST1084.2
018900     02  ILLERPICX(58)  VALUE             ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019000     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     "055100MOVE"TEST(S) FAILED" TO ENDER-DESC.                        ST1084.2
019100     02  FILLER                      PIC X(13)  VALUE SPACE.      ST1084.2
019200     02FILLER                      PIC X15) VALUE             ST1084.2
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
   PIC XXX    VALUE SPACE.ST1084.
019800     02 FILLER                       PIC X(40)  VALUE             ST1084.2
019900        EXECUTED" ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020000 01  XXINFO.                                                      
020100     02 FILLER                       PIC X(19)  VALUE             ST1084.2
            "** INFORMATION ***".                                ST1084.2
020300     02 INFO-TEXT.                                                ST1084.2
020400       04 FILLER                     PIC X(8)   VALUE SPACE.      ST1084.2
020500       04 XXCOMPUTED                 PIC X(20).                   ST1084.2
020600       04 FILLER                     PIC X(5)   VALUE SPACE.      ST1084.2
020700       04 XXCORRECT                  PIC X(20).                   ST1084.2
020800     02 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 FILLER056000          NO"TO ERROR-TOTAL  ELSE                          ST1084.2
021200-    "*****************************************".                 ST1084.2
021300     02 FILLER  PIC IS X(54)    VALUE IS "*******************056100MOVE DELETE-COUNTER TO ERROR-TOTAL.                      ST1084.2
021400-    "***********056200      "TESTS DELETED     "TO ENDER-DESC                   ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
021500             ST1084.2
021600     "ST108A".                                                    ST1084.2
021700 PROCEDUREDIVISION.                                              ST1084.
021800 SORT-PARA SECTION.                                               ST1084.2
021900056500MOVE " "TOERROR-TOTAL                               ST1084.2
022000     SORT     SORTFILE-1H ON                                      ST1084.2
022100              ASCENDING KEY SORTKEY-1                             ST1084.2
022200              ASCENDING SORTKEY-2                                 .2
022300              ASCENDING SORTKEY-3                                 ST1084.2
022400              ASCENDING SORTKEY-4                                 .
022500              ASCENDING SORTKEY-5                                 ST1084.2
022600                                               .2
022700              ASCENDING SORTKEY-7                                 ST1084.2
022800               SORTKEY-8                                 .2
022900              INPUT PROCEDURE INPROC                              ST1084.2
023000              OUTPUT PROCEDURE OUTPROC THRU OUTPROC-EXIT.         ST1084.2
023100     STOP     RUN.057100     ADD1 TO .                                       2
023200INPROC .ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023300 BUILD-FILE.                                                      ST1084.2
023400     PERFORM  BUILD-RECORD.                                       ST1084.2
 MOVE  TODUMMY-HOLD                          .
023600     PERFORM  RELEASE-RECORD.                                     ST1084.2
023700                                   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                   2
024200     PERFORM  RELEASE-RECORD.                                     ST1084.2
024300     PERFORM  BUILD-RECORD.                                       ST1084.2
024400     MOVE     "X                  SORTKEY-4.                   ST1084.2
024500     PERFORM  RELEASE-RECORD.                                     ST1084.2
024600     PERFORM  BUILD-RECORD.                                       ST1084.2
024700057800MOVECCVS-H-2BTO DUMMY-RECORD   3TIMES    ST1084.
024800     PERFORM  RELEASE-RECORD.                                     ST1084.2
RD ST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025000     MOVE     "Z"                 TO SORTKEY-6.                   ST1084.2
025100     PERFORM  RELEASE-RECORD.                                     ST1084.2
025200     PERFORM  BUILD-RECORD.                                       ST1084.2
025300          +                 SORTKEY-7.                   ST1084
025400     PERFORM  RELEASE-RECORD.                                     ST1084.2
025500     PERFORM  BUILD-RECORD.                                       ST1084.2
025600     MOVE     -14TO  PERFORMST1084.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
         DUMMY-HOLD TO                          ST1084.
025800     GO       TO BUILD-EXIT.                                      ST1084.2
025900 BUILD-RECORD.                                                    ST1084.2
026000     MOVE     -054321             TO SORTKEY-1.                   ST1084.2
026100MOVE     "                SORTKEY-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     MOVE     +99                 TO SORTKEY-8.                   ST1084.2
058800      SPACETO DUMMY-RECORD.                                  .2
027100     RELEASE  SORTFILE-REC.                                       ST1084.2
027200 BUILD-EXIT.                                                      ST1084.2
027300     EXIT.                                                        ST1084.2
027400 OUTPROC SECTION.                                                 .2
027500 OPEN-FILES.                                                      ST1084.2
027600     OPEN     OUTPUT PRINT-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
028000    IF       SPAC-E IS LESS  ""                             ST1084.2
028100              GO TO SPACE-IS-LESS-THAN-B.                         ST1084.2
028200 B-IS-LESS-THAN-SPACE SECTION.                                    ST1084.2
028300 SORT-INIT-A.                                                     .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     RETURN059500    MOVE   ANSI-REFERENCETO INF-ANSI-REFERENCE.ST1084.2
029100     IF       SORTKEY-7 EQUAL TO 418                              ST1084.2
029200              PERFORM PASS GO TO SORT-WRITE-1.                    ST1084.2
029300 SORT-FAIL-1.                                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029400     PERFORM  FAIL.                                               ST1084.2
029500     MOVE     SORTKEY-7 TO COMPUTED-N.                            ST1084.2
029600     MOVE     418 TO CORRECT-N.                                   ST1084.2
029700 SORT-WRITE-1.                                                    ST1084.2
029800     MOVE     "SORT-TEST-1 " TO PAR-NAME.                         ST1084.2
029900     PERFORM  PRINT-DETAIL.                                       ST1084.2
030000 SORT-TEST-2.                                                     ST1084.2
030100     RETURNSORTFILE-1H AT END GOTO RETURN-ERROR.ST1084.2
030200     IF       SORTKEY-8 EQUAL TO -14                              ST1084.2
030300              PERFORM PASS GO TO SORT-WRITE-2.                    ST1084.2
030400 SORT-FAIL-2.                                                     ST1084.2
030500     PERFORM  FAIL.                                               ST1084.2
030600     MOVE     SORTKEY-8 TO COMPUTED-N.                            ST1084.2
030700     MOVE     -14 TO CORRECT-N.                                   ST1084.2
030800 SORT-WRITE-2.                                                    ST1084.2
030900     MOVE     "ORT-TEST-2" TO PAR-NAME.                        .2
031000     PERFORM  PRINT-DETAIL.                                       ST1084.2
031100 SORT-TEST-3.                                                     ST1084.2
FILE-1H AT END  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 java.lang.StringIndexOutOfBoundsException: Range [78, 18) out of bounds for length 80
031600     PERFORM  FAIL.                                               ST1084.2
031700     MOVE     SORTKEY-6 TO COMPUTED-A.                            ST1084.2
031800     MOVE     "Z         "           TO CORRECT-A.                ST1084.2
031900 SORT-WRITE-3.                                                    ST1084.2
032000     MOVE     SORT-TEST-3  TO PAR-NAME.                         ST1084.2
032100     PERFORM  PRINT-DETAIL.                                       ST1084.2
032200 SORT-TEST-4.                                                     ST1084.2
032300     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
032400     IF       SORTKEY-5 EQUAL TO "Z                   "           ST1084.2
032500              PERFORM PASS GO TO SORT-WRITE-4.                    ST1084.2
032600 SORT-FAIL-4.                                                     ST1084.2
032700     PERFORM  FAIL.                                               ST1084.2
032800     MOVE     SORTKEY-5 TO COMPUTED-A.                            ST1084.2
032900     MOVE     "Z                    TO CORRECT-A                ST1084.2
033000 SORT-WRITE-4.                                                    ST1084.2
033100     MOVE     "SORT-TEST-4 " TO PAR-NAME.                         ST1084.2
033200     ERFORMPRINT-DETAIL.                                       ST1084.2
033300 SORT-TEST-5.                                                     ST1084.2
033400     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
033500     IF       SORTKEY-4 EQUAL TO "         X"                     ST1084.2
033600              PERFORM PASS GO TO SORT-WRITE-5.                    ST1084.2
033700 SORT-FAIL-5                                                     ST1084.2
033800     PERFORM  FAIL.                                               ST1084.2
033900     MOVE     SORTKEY-4 TO COMPUTED-A.                            ST1084.2
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.                                       ST1084java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
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
034900     PERFORM  FAIL.                                               ST1084.2
035000     MOVE     SORTKEY-3 TO COMPUTED-0V18.                         ST1084.2
035100     MOVE     +.6000000000000000     TO CORRECT-0V18.             ST1084.2
035200 SORT-WRITE-6.                                                    ST1084.2
035300     MOVE     "SORT-TEST-6 " TO PAR-NAME.                         ST1084.2
035400     PERFORM  PRINT-DETAIL.                                       ST1084.2
035500 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              PERFORM PASS GO TO SORT-WRITE-7.                    ST1084.2
035900 SORT-FAIL-7.                                                     ST1084.2
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-8.                                                     ST1084.2
036700     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
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     PERFORM  FAIL.                                               ST1084.2
037200     MOVE     SORTKEY-1 TO COMPUTED-N.                            ST1084.2
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.                                       ST1084.2
038100     MOVE     "RENDERS TESTS 9 THRU 16" TO RE-MARK.               ST1084.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.2
038600     GO       TO CONTINUE-TESTING.                                ST1084.2
038700 SPACE-IS-LESS-THAN-B SECTION.                                    ST1084.2
038800 SORT-REMARK-B.                                                   ST1084.2
038900     MOVE     "THE COLLATING SEQUENCE" TO RE-MARK.                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     MOVE     "UNNECESSARY." TO RE-MARK.                          ST1084.2
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 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
040600     MOVE     SORTKEY-2 TO COMPUTED-A.                            ST1084.2
040700     MOVE     "    X" TO CORRECT-A.                               ST1084.2
040800 SORT-WRITE-9.                                                    ST1084.2
040900     MOVE     "SORT-TEST-9 " TO PAR-NAME.                         ST1084.2
041000     PERFORM  PRINT-DETAIL.                                       ST1084.2
041100 SORT-TEST-10.                                                    ST1084.2
041200     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
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     PERFORM  FAIL.                                               ST1084.2
041700     MOVE     SORTKEY-4 TO COMPUTED-A.                            ST1084.2
041800     MOVE     "         X" TO CORRECT-A.                          ST1084.2
041900 SORT-WRITE-10.                                                   ST1084.2
042000     MOVE     "SORT-TEST-10" TO PAR-NAME.                         ST1084.2
042100     PERFORM  PRINT-DETAIL.                                       ST1084.2
042200 SORT-TEST-11.                                                    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     PERFORM  FAIL.                                               ST1084.2
042800     MOVE     SORTKEY-7 TO COMPUTED-N                             ST1084.2
042900     MOVE     418 TO CORRECT-N.                                   ST1084.2
043000 SORT-WRITE-11.                                                   ST1084.2
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-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.                                               ST1084.2
043900     MOVE     SORTKEY-8 TO COMPUTED-N.                            ST1084.2
044000     MOVE     -14 TO CORRECT-N.                                   ST1084.2
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 GO TO RETURN-ERROR.              ST1084.2
044600     IF       SORTKEY-6 EQUAL TO "Z         "                     ST1084.2
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.                            ST1084.2
045100     MOVE     "Z         "           TO CORRECT-A.                ST1084.2
045200 SORT-WRITE-13.                                                   ST1084.2
045300     MOVE     "SORT-TEST-13" TO PAR-NAME.                         ST1084.2
045400     PERFORM  PRINT-DETAIL.                                       ST1084.2
045500 SORT-TEST-14.                                                    ST1084.2
045600     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
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     MOVE     "Z                   " TO CORRECT-A.                ST1084.2
046300 SORT-WRITE-14.                                                   ST1084.2
046400     MOVE     "SORT-TEST-14" TO PAR-NAME.                         ST1084.2
046500     PERFORM  PRINT-DETAIL.                                       ST1084.2
046600 SORT-TEST-15.                                                    ST1084.2
046700     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
046800     IF       SORTKEY-3 EQUAL TO +.6000000000000000               ST1084.2
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 COMPUTED-0V18.                         ST1084.2
047300     MOVE     +.6000000000000000     TO CORRECT-0V18.             ST1084.2
047400 SORT-WRITE-15.                                                   ST1084.2
047500     MOVE     "SORT-TEST-15" TO PAR-NAME.                         ST1084.2
047600     PERFORM  PRINT-DETAIL.                                       ST1084.2
047700 SORT-TEST-16.                                                    ST1084.2
047800     RETURN   SORTFILE-1H AT END GO TO RETURN-ERROR.              ST1084.2
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
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 END                                  ST1084.2
049100              PERFORM PASS GO TO SORT-WRITE-17.                   ST1084.2
049200 SORT-FAIL-17.                                                    ST1084.2
049300     MOVE     "END OF FILE NOT FOUND" TO RE-MARK.                 ST1084.2
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.                                                    ST1084.2
050000     MOVE     "RETURN-ERROR" TO PAR-NAME.                         ST1084.2
050100     PERFORM  FAIL.                                               ST1084.2
050200     MOVE     "EOF PREMATURELY FOUND" TO RE-MARK.                 ST1084.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.   ST1084.2
050700 TERMINATE-CCVS.                                                  ST1084.2
050800     EXIT PROGRAM.                                                ST1084.2
050900 TERMINATE-CALL.                                                  ST1084.2
051000     STOP     RUN.                                                ST1084.2
051100 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         ST1084.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
051500     MOVE "****TEST DELETED****" TO RE-MARK.                      ST1084.2
051600 PRINT-DETAIL.                                                    ST1084.2
051700     IF REC-CT NOT EQUAL TO ZERO                                  ST1084.2
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               ST1084.2
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
052800 HEAD-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. 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 CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   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-1.                                                   ST1084.2
054200      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      ST1084.2
054300      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               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-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           ST1084.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.                                                  ST1084.2
055900     IF DELETE-COUNTER IS EQUAL TO ZERO                           ST1084.2
056000         MOVE "NO " TO ERROR-TOTAL  ELSE                          ST1084.2
056100         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      ST1084.2
056200     MOVE "TEST(S) DELETED     " TO ENDER-DESC.                   ST1084.2
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 TO ERROR-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.                                       ST1084.2
057200     IF RECORD-COUNT GREATER 42                                   ST1084.2
057300         MOVE DUMMY-RECORD TO DUMMY-HOLD                          ST1084.2
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 DUMMY-RECORD PERFORM WRT-LN 3 TIMES    ST1084.2
057900         MOVE CCVS-H-3  TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    ST1084.2
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.                                              ST1084.2
058600 WRT-LN.                                                          ST1084.2
058700     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               ST1084.2
058800     MOVE SPACE TO DUMMY-RECORD.                                  ST1084.2
058900 BLANK-LINE-PRINT.                                                ST1084.2
059000     PERFORM WRT-LN.                                              ST1084.2
059100 FAIL-ROUTINE.                                                    ST1084.2
059200     IF     COMPUTED-X NOT EQUAL TO SPACE                         ST1084.2
059300            GO TO   FAIL-ROUTINE-WRITE.                           ST1084.2
059400     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.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.                         ST1084.2
059900     GO TO  FAIL-ROUTINE-EX.                                      ST1084.2
060000 FAIL-ROUTINE-WRITE.                                              ST1084.2
060100     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         ST1084.2
060200     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 ST1084.2
060300     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. ST1084.2
060400     MOVE   SPACES TO COR-ANSI-REFERENCE.                         ST1084.2
060500 FAIL-ROUTINE-EX. EXIT.                                           ST1084.2
060600 BAIL-OUT.                                                        ST1084.2
060700     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   ST1084.2
060800     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           ST1084.2
060900 BAIL-OUT-WRITE.                                                  ST1084.2
061000     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  ST1084.2
061100     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 ST1084.2
061200     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   ST1084.2
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 SECTION.                                            ST1084.2
061800 EXIT-ONLY.                                                       ST1084.2
061900     PERFORM  CLOSE-FILES.                                        ST1084.2