000100        4)FAIL     .2
000200 PROGRAM-ID.                                                      RL1174.2
000300     RL117A.                                                      RL1174.2
000400****************************************************************  RL1174.2
000500*                                                              *  RL1174.2
000600*    VALIDATION FOR:-                                          *  RL1174.2
000700*                                                              *  RL1174.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".RL1174.2
000900*                                                              *  RL1174.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".RL1174.2
001100*                                                              *  RL1174.2
001200****************************************************************  RL1174.2
001300*                                                              *  RL1174.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  RL1174.2
001500*                                                              *  RL1174.2
001600*            X-22   IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR   *  RL1174.2
001700*                    RELATIVE  I-O DATA FILE                   *  RL1174.2
001800*            X-55   SYSTEM PRINTER                             *  RL1174.2
001900*            X-69   ADDITIONAL VALUE OF CLAUSES                *  RL1174.2
002000*            X-74   VALUE OF IMPLEMENTOR-NAME                  *  RL1174.2
002100*            X-75   OBJECT OF VALUE OF CLAUSE                  *  RL1174.2
002200*            X-82   SOURCE-COMPUTER                            *  RL1174.2
002300*            X-83   OBJECT-COMPUTER.                           *  RL1174.2
002400*                                                              *  RL1174.2
002500****************************************************************  RL1174.2
002600*    RL117A                                                    *  RL1174.2
002700****************************************************************  RL1174.2
002800*            THIS PROGRAM TESTS THE SYNTACTICAL CONSTRUCTS AND *  RL1174.2
002900*            SEMANTIC ACTIONS ASSOCIATED WITH THE "STATUS"     *  RL1174.2
003000*            CLAUSE FOR THE VALUES "10" AND "14".              *  RL1174.2
003100*                                                              *  RL1174.2
003200*                                                              *  RL1174.2
003300*                                                              *  RL1174.2
003400****************************************************************  RL1174.2
003500 ENVIRONMENT DIVISION.                                            RL1174.2
003600 CONFIGURATION SECTION.                                           RL1174.2
003700 SOURCE-COMPUTER.                                                 RL1174.2
003800    Card0130.                                                    RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
003900 OBJECT-COMPUTER.                                                 RL1174.2
004000    Card0131.                                                    RL1174.2
004100 INPUT-OUTPUT SECTION.                                            RL1174.2
004200 FILE-CONTROL.                                                    RL1174.2
004300     SELECT PRINT-FILE ASSIGN TO                                  RL1174.2
004400"".RL1174.2
004500     SELECT   RL-FD2 ASSIGN                                       RL1174.2
004600     "C0034"                                                      RL1174.2
004700              ORGANIZATION RELATIVE                               RL1174.2
004800              ACCESS  RANDOM                                      RL1174.2
004900              RELATIVE  RL-FD2-KEY                                RL1174.2
005000          STATUSISRL-FD2-STATUS                            .2
         ASSIGN                                       RL11742
005200     "C0034"                                                      RL1174.2
005300              ORGANIZATION RELATIVE                               RL1174.2
005400              ACCESS  SEQUENTIAL                                  RL1174.2
005500              RELATIVE  RL-FD3-KEY                                RL1174.2
005600         FILE STATUS IS RL-FD3-STATUS.                            RL1174.2
005700 DATA DIVISION.                                                   RL1174.2
005800 FILE SECTION.                                                    RL1174.2
005900 FD  PRINT-FILE.                                                  RL1174.2
006000 01  PRINT-REC PICTURE X(120).                                    RL1174.2
006100 01  DUMMY-RECORD PICTURE X(120).                                 RL1174.2
006200 FD  RL-FD2                                                       RL1174.2
006300     023800   02  FIL                         (41   .RL1174
006400     Impl1RL1174.
006500     IS                                                           RL1174.2
006600     4711                                                         RL1174.2
006700                                                                  RL1174.2
006800     LABEL RECORDS ARE STANDARD                                   RL1174.2
006900     BLOCK CONTAINS 1 RECORDS                                     RL1174.2
007000     DATA RECORD RL-FD2R1-F-G-240.                                RL1174.2
 01   RL1174.2
007200     05 RL-FD2-WRK-120 PIC X(120).                                RL1174.2
007300     05 RL-FD2-GRP-120.                                           RL1174.2
007400        10                                RL1174.2
007500                        X  120TIMESRL1174.
007600 FD  RL-FD3                                                       RL1174.2
                                                  java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
007800     Impl1                                                        RL1174.2
007900     ISRL1174.2
008000     4711                                                         RL1174.2
008100                                                                  RL1174.2
008200     LABEL RECORDS ARE STANDARD                                   RL1174.2
008300     BLOCK CONTAINSVALIDATION FOR .RL1174.2
008400     DATA RECORD RL-FD3R1-F-G-240.                                RL1174.2
008500 01  RL-FD3R1-F-G-240.                                            RL1174.2
008600     05 
008700     05 RL-FD3-GRP-120.                                           RL1174025500    02PICX58               RL1174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008800        10 RL-FD3-WRK-XN-0001-O120F                               RL1174.2
008900                        PICTURE X OCCURS 120 TIMES.               RL1174.2
009000 WORKING-STORAGE SECTION.                                         RL1174.2
009100 01  GRP-0001                                                    RL1174.2
009200     05 RL-FD2-KEY   PIC 9(8)  VALUE ZERO.                        RL1174.2
009300     05 RL-FD3-KEY   PIC  99   VALUE ZERO.                        RL1174.2
      WRK-CS-09V00-012PICS99) java.lang.StringIndexOutOfBoundsException: Range [48, 47) out of bounds for length 80
009500     05 WRK-CS-09V00-013  PIC S9(9) USAGE COMP  VALUE ZERO.       RL1174.026200                       X(9.RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
009600     05 WRK-CS-09V00-014  PIC S9(9) USAGE COMP  VALUE ZERO.       RL1174.2
009700     05 WRK-CS-09V00-015  PIC S9(9) USAGE COMP  VALUE ZERO.       RL1174.2
05  S99)   VALUE.RL11742
009900     05 WRK-CS-09V00-017  PIC S9(9) USAGE COMP  VALUE ZERO.       RL1174.2
010000     05 WRK-CS-09V00-018  PIC S9(9   PIC ()VALUE SPACE.      .2
010100    05 RL-FD2-STATUS     PIC  XX  VALUE  SPACE.                  RL1174.2
010200     05 RL-FD3-STATUS     PIC  XX  VALUE  SPACE.                  RL1174.2
010300     05 WRK-XN-0002-001   PIC  X(2) VALUE  SPACE.                 RL1174.2
010400     05 WRK-XN-0002-002   PIC  X(2) VALUE  SPACE.                 RL1174.2
010500     05 WRK-XN-0002-003   PIC  X(2) VALUE  SPACE.                 RL1174.2
010600     05 WRK-XN-0002-004   PIC  X(2) VALUE  SPACE.                 RL1174.2
01070005 WRK-XN-0002-005   PIC  (2) VALUE  SPACE.                 RL1174.2
010800      WRK-XN-0002-006   PIC  X(2)VALUE  .RL1174.2
010900     05 WRK-XN-0002-007   PIC  X(2) VALUE  SPACE.                 RL1174.2
011000     05 WRK-XN-0002-008   PIC  X(2) VALUE  SPACE.                 RL1174.2
011100     05 WRK-XN-0002-009   PIC  X(2) VALUE  SPACE.                 RL1174.2
011200 01  FILE-RECORD-INFORMATION-REC.                                 RL1174.2
011300     03 FILE-RECORD-INFO-SKELETON.                                RL1174.2
011400        05 FILLER                 PICTURE X(48)       VALUE       RL1174.2
011500             "FILE=      ,RECORD=      /0,RECNO=000000,UPDT=00".  RL1174.2
05java.lang.StringIndexOutOfBoundsException: Range [40, 23) out of bounds for length 80
011700             ",ODO=0000,PGM=     ,LRECL=000000,BLKSIZ  =027500                            X()VALUE .     RL11742
011800        05FILLER X26              RL1174.2
011900             ",LFIL=000000,ORG=  ,LBLR= ".                        RL1174.2
012000        05 FILLER                 PICTURE X(37)       VALUE       RL1174.2
012100             ",RECKEY=                             ".                  ON-SITEVALIDATIONNATIONAL OF       ..2
012200        05 FILLER                 PICTURE X(38)       VALUE       RL1174.2
012300             ",ALTKEY1=                             ".            RL1174.2
012400        05 FILLER                 PICTURE X(38)       028000             " COPYRIGHT 1985".                          
012500             ",ALTKEY2=                             ".            RL1174.2
012600        05 FILLER                 PICTURE X(7)        VALUE SPACE.RL1174.2
012700     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              RL1174.2
012800        05 FILE-RECORD-INFO-P1-120.                               RL1174.2
012900           07 FILLER              PIC X(5).                       RL1174.2
013000           07 XFILE-NAME           PIC X(6).                      RL1174.2
013100           07 FILLER              PIC X(8).                       RL1174.2
013200           07 XRECORD-NAME         PIC(6).                      RL1174.2
013300           07 FILLER              PIC X(1).                       RL1174.2
013400           07 REELUNIT-NUMBER     PIC 9(1).                       RL1174.2
013500           07 FILLER              PIC X(7).                       RL1174.2
013600           07 XRECORD-NUMBER       PIC9(6.                      RL11742
013700           07 FILLER              PIC X(6).                       RL1174.2
.2
013900           07 FILLER              PIC X(5).                       RL1174.2
014000           07 ODO-NUMBER          PIC 9(4).                       RL117402900002INFO-TEXT.                                                RL1174.2
014100           07 FILLER              PIC X(5).                       RL1174.2
014200                   PICX(5.                      RL11742
014300           07 029300       04 FILLER    PIC X(5) SPACE      RL1174.2
 XRECORD-LENGTH 9(6)                      RL11742
014500           07 FILLER              PIC X(7).                       RL1174.2
014600           07 CHARS-OR-RECORDS    PIC X(2).                       RL1174.2
014700           07 FILLER              PIC X(1).                       RL1174.2
014800           07 XBLOCK-SIZE          PIC(4).                     RL1174.2
    FILLER              PICX(6.                       .2
015000           07 RECORDS-IN-FILE     PIC 9(6).                       RL1174.2
015100           07 029800     02 FILLER  PIC X(65)    VALUEIS"****************RL1174.2
015200           07 XFILE-ORGANIZATION   PIC X(2).                      RL1174.2
015300           07 FILLER              PIC X(6).                       RL1174.2
015400           07 XLABEL-TYPE          PIC X(1).                      RL1174.2
015500        05030000     02 FILLER  PIC IS X(54)    VALUE IS "************************RL1174.2
015600           07 FILLER              PIC X(8).                       RL1174.2
015700           07 XRECORD-KEY          PIC X(29).                     RL1174.2
015800           07 FILLER              PIC X(9).                       RL1174.2
015900           07 ALTERNATE-KEY1       X(29).                      .2
016000           07 FILLER              PICX(9).                       RL1174.2
016100           07 ALTERNATE-KEY2      PIC(29).                     RL11742
016200           07 FILLER              PIC X(7).                       RL1174.2
016300 01  TEST-RESULTS.                                                RL1174.2
016400     02 FILLER                   PIC X      VALUE SPACE.          RL1174.2
016500      FEATUREPICX()  VALUE SPACE.RL1174.2
016600     02 FILLER                   PIC X      VALUE SPACE.          RL1174.2
016700     02 P-OR-F                   PIC X(5)   VALUE SPACE.          RL1174.2
016800     02 FILLER                   PIC X      VALUE SPACE.          RL1174.2
016900     02  .                                               
03PIC()            .2
017100       03  PARDOT-X              PIC X      VALUE SPACE.          RL1174.2
017200       03 DOTVALUE               PIC 99     VALUE ZERO.           RL1174.2
017300     02 FILLERPIC X(8)VALUESPACE.          RL1174.2
017400     02 RE-MARK                  PIC X(61).                       RL1174.2
017500   TEST-COMPUTED                                               .2
017600     02 FILLER                   PIC XCCVS-INIT-FILE                                                  2
017700     02 031400     ADD1 TOREC-SKL-SUB.RL1174.
017800            "       COMPUTED=".                                   RL1174.2
017900     02 COMPUTED-X.                                               RL1174.2
018000     03 COMPUTED-A               PIC X(20B).                     RL1174.2
018100     03 COMPUTED-N               REDEFINES COMPUTED-A             RL1174.2
018200                                 PIC -9                           .2
018300          03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         RL1174.2
018400     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     RL1174.2
018500     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     RL1174.2
018600     03       CM-18V0 REDEFINES COMPUTED-A.                       RL1174.2
018700         04031900 CLOSE-FILES.                                                     RL1174.2
018800         04 FILLER                            X               RL1174.2
018900     03 FILLER PIC X(50) VALUE SPACE.                             RL1174.2
019000 01 TEST-CORRECT.                                                RL1174.2
019100     02 FILLER PIC X(30) VALUE SPACE.                             RL1174.2
019200     02  FILLERPICX(17)VALUE" =".               2
019300     02 CORRECT-X.                                                RL1174.2
019400     03 CORRECT-A                   X(0) VALUE .         .2
01950003 CORRECT-N    REDEFINES CORRECT-A      -().9(9)      RL1174.2
019600     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         RL1174.2
019700    03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     RL1174.2
019800032600PASS. "PASS TO P-OR-F.ADD1 TO PASS-COUNTER.RL11742
019900     03      CR-18V0 REDEFINES CORRECT-A.                         RL1174.2
020000         04 CORRECT-18V0                     PIC -9(18).          RL1174.2
020100         04 FILLER                           PIC X.               RL1174.2
      ( SPACE                              RL1174
020300     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     RL1174.2
020400 01  CCVS-C-1.                                                    RL1174.2
020500     02 FILLER  PIC IS X(99)    VALUE IS "              ." PARDOT-XRL1174.2
020600-    "    "SS  PARAGRAPH-NAME                                          RL1174.2
020700-    "       REMARKS".                                            RL1174.2
020800     033400      TO.      java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
   CCVS-C-2.RL1174.2
021000     02 FILLER                     PIC X        VALUE SPACE.      RL1174.2
021100     02 FILLER                     PIC X(6)     VALUE "TESTED".   RL1174.2
021200     02 FILLER                     PIC X(15)    VALUE SPACE.      RL1174.2
021300     02 FILLER                     PIC X(4)     VALUE "FAIL".     RL1174.2
021400     02 FILLER                     PIC X(94)    VALUE SPACE.      RL1174.2
021500 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       RL1174.2
021600 01  REC-CT                        PIC 99       VALUE ZERO.       RL1174.2
021700 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       RL1174.2
021800 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       RL1174.2
021900 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.                                       
022000 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       RL1174.2
022100 01  TOTAL-ERRORPIC999      VALUE .       RL1174.2
022200 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       RL1174.2
022300 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      RL1174.2
022400 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       034200 HEAD-ROUTINE                                                    
022500 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     RL1174.2
022600 01  CCVS-H-1.                                                    RL1174. CCVS-H-2B  DUMMY-RECORD PERFORM 3 TIMES. .2
                            (39)    VALUE SPACES.RL1174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022800     02  FILLER                    PIC X(42)    VALUE             RL1174.2
022900     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 RL1174.2
023000       FILLER                    PICX()    VALUE SPACES     RL1174.
023100 01  CCVS-H-2A.                                                   RL1174.2
023200   02  FILLER                        PIC X(40)  VALUE SPACE.      RL1174.2
023300   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  RL1174.2
       .2
023500     "4.2 ".                                                      RL1174.2
023600   02  FILLERPIC X(28)  VALUERL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023700            " 035400     MOVE CCVS-E-1 TO DUMMY-RECORD.PERFORMWRITE-LINE2.   RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023800   02  FILLER                        PIC X(41)  VALUE SPACE.      RL1174.2
023900                                                                  035600ADDERROR-COUNTER TOERROR-HOLD ADD INSPECT-COUNTER TO      RL1174.2
024000 01  CCVS-H-2B.                                                   RL1174.2
         PIC X(15)  VALUE             RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
035900*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   RL1174.2
024300   02  TEST-ID                       PIC X(9).                    RL1174.2
024400   02  FILLER                        PIC X(4)   VALUE             RL1174.2
024500            " IN ".                                               RL1174.2
024600   02  FILLER                        PIC X(12)  VALUE             RL1174.2
024700     " HIGH       ".                                              RL1174.2
024800   02  FILLER                        PIC X036300      MOVE CCVS-E-2 TO DUMMY-RECORDPERFORMWRITE-LINE.           .2
024900            " LEVEL VALIDATION FOR ".                             RL1174.2
025000   02  FILLER                        PIC X(58)  VALUE             RL1174.2
025100     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".RL1174.2
025200 01CCVS-H-3RL1174.2
025300     02  FILLER                      PIC X(34)  VALUE             RL1174.2
025400            " FOR OFFICIAL USE ONLY    ".                         RL1174.2
025500     02  FILLER                      PIC X(58)  VALUE             RL1174.2
025600     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".RL1174.2
025700     02  FILLER                      PIC X(28)  VALUE             RL1174.2
025800            "  COPYRIGHT   1985"                                .2
025900 01  CCVS-E-1.                                                    RL1174.2
     02FILLER                        X(52)  VALUE SPACE.      RL1174.2
026100     02 FILLER  PIC X(14) VALUE IS "END OF TEST-  "              RL1174.2
026200     02 ID-AGAIN                     PIC X(9).                    RL1174.2
026300     02 FILLER                       PIC X(45)  VALUE SPACES037400         MOVE " " TOERROR-TOTALELSE                          RL1174.2
026400 01  CCVS-E-2.                                                    RL1174.2

026600     02  FILLER                      PIC X(21)  VALUE SPACE.      RL1174.2
026700     02 CCVS-E-2-2.                                               RL1174.2
026800         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      RL1174.2
026900         03 FILLER                   PIC X      VALUE SPACE.      RL1174.2
027000         03 ENDER-DESC               038000      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   RL1174.2
027100            "ERRORS ENCOUNTERED".                                 RL1174.2
02720001.RL1174.
027300     02  FILLER                      PIC X(22)  VALUE             RL1174.2
027400            "FOR  USE ONLY.                             RL1174.2
027500     02  FILLER                      PIC X(12)  VALUE SPACE.      RL1174.2
027600     02  FILLER                      PIC X(58)  VALUE             RL1174.2
027700     "ON-SITE VALIDATION, NATIONAL INSTITUTEOF STD & TECH.     ".RL1174.2
027800     02  FILLER                      PIC X(13)  VALUE SPACE.      RL1174.2
027900     02 FILLER                       PIC java.lang.StringIndexOutOfBoundsException: Range [80, 48) out of bounds for length 80
028000             " COPYRIGHT 1985".                                   RL1174.2
02810001  CCVS-E-4.                                                   
028200     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      RL1174.2
RL1174.2
028400     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      RL1174.2
028500     02 FILLER                       PIC X(40)  VALUE             RL1174.2
028600      "  TESTS WERE EXECUTED SUCCESSFULLY".                       RL1174.2
028700 01  XXINFO.                                                      RL1174.2
028800     02 FILLER                       PIC X(19)  VALUE             RL1174.2
028900            "*** INFORMATION ***".                                RL1174.2
029000     02 INFO-TEXT.                                                RL1174.2
02910004FILLERPIC X8 VALUESPACE2
029200       04 XXCOMPUTED                 PIC X(20).                   RL1174.2
029300       04 FILLER                     PIC X(5)   VALUE SPACE.      RL1174.2
029400       04 XXCORRECT                  PIC X(20).                   RL1174.2
029500     02 INF-ANSI-REFERENCE           PIC X(48).                   RL1174.2
   HYPHEN-LINE.RL1174.2
029700     02 FILLER  PIC IS X VALUE IS SPACE.                          RL1174.2
029800     02 FILLER  PIC IS X(65)    VALUE IS "************************RL1174.2
029900-    "*************************".RL1174.2
030000                  TOFAIL-ROUTINE-WRITE.RL11742
030100-    "******************************".                            RL1174.2
030200 01  CCVS-PGM-ID                     PIC X(9)   VALUE             040400     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.RL1174 NOTEQUALTO GOTOFAIL-ROUTINE-WRITE..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030300     "RL117A".                                                    RL1174.2
030400 PROCEDURE DIVISION.                                              RL1174.2
030500 CCVS1 SECTION SECTION.                                                   .2
030600 OPEN-FILES.                                                      RL1174.2
030700     OPEN041000FAIL-ROUTINE-WRITE.                                              RL1174.2
030800     MOVE  CCVS-PGM-ID TO TEST-ID.041100     MOVETEST-COMPUTED TO PRINT-REC          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030900     MOVE    SPACE TO TEST-RESULTS.                               RL1174.2
031000PERFORMHEAD-ROUTINE THRUCOLUMN-NAMES-ROUTINE              .2
031100     MOVE    ZERO TO REC-SKL-SUB.                                 RL1174.2
031200     PERFORM CCVS-INIT-FILE 9 TIMES.                              RL1174.2
031300 CCVS-INIT-FILE.                                                  RL1174.2
031400     ADD     1 TO REC-SKL-SUB.                                    .2
031500     MOVE    FILE-RECORD-INFO-SKELETON                            RL1174.2
031600         FILE-RECORD-INFO )                      .2
.RL1174.2
031800     GO TO CCVS1-EXIT.                                            RL1174.2
031900 CLOSE-FILES.                                                     RL1174.2
032000     PERFORM END-ROUTINETHRUEND-ROUTINE-13.CLOSE PRINT-FILE.   RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032100 042100     MOVE  ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 RL1174.2
032200     EXIT PROGRAM.                                                RL1174.2
032300                                                RL1174.2
032400     STOP     .                                                RL1174.2
032500 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         RL1174.2
032600 .MOVE""TOP-OR-F.  1TO            2
032700 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          RL1174.2
032800MOVE "*****" TO P-OR-F   1 TO DELETE-COUNTER.      RL1174.
032900MOVE"****TEST DELETED**" TO RE-MARK.                      RL1174.2
033000 PRINT-DETAIL.                                                    RL1174.2
033100     IFREC-CT NOT EQUAL TO ZERORL1174.2
033200             MOVE "." TO PARDOT-X                                 RL1174.2
033300             MOVE REC-CT TO DOTVALUE.                             RL1174.2
          TEST-RESULTS TOPRINT-REC. PERFORM .RL1174.2
033500     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               RL1174.2
033600         FAIL-ROUTINETHRU                  RL1174.2
033700          043100MOVE     "CREATE RL-FD2"TO  FEATURERL1174.2
033800     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              RL1174.2
033900     MOVE SPACE TO CORRECT-X.                                     RL1174.2
034000     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO 043300     MOVE     "R1-F-G"        TO  XRECORD-NAME (2).     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
034100     MOVE     SPACE TO RE-MARK.                                   RL1174.2
034200 HEAD-ROUTINE.                                                    RL1174.2
034300     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  RL1174.2
034400MOVECCVS-H-2A  DUMMY-RECORD PERFORMWRITE-LINE2TIMES  RL1174.
034500     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  RL1174.2
034600     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  RL1174.2
034700 043700     MOVE     0001           TOXBLOCK-SIZE       (.         .2
034800     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           RL1174.2
034900     MOVECCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL1174.2
035000     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        RL1174.2
035100 END-ROUTINE.                                                     RL1174.2
035200     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.RL1174.2
035300 END-RTN-EXIT.                                                    RL1174.2
035400     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORMPE        (2).         RL1174.
035500 END-ROUTINE-1.                                                   RL1174.2
035600      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      RL1174.2
035700           ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               RL1174.2
035800      ADD PASS-COUNTER TO ERROR-HOLD.                             RL1174.2
035900*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   RL1174.2
036000      MOVE PASS-COUNTER TO CCVS-E-4-1.                            RL1174.2
044500                            WRK-CS-09V00-015WRK-CS-09V00-016     RL1174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036200      MOVE CCVS-E-4 TO CCVS-E-2-2.                                RL1174.044700MOVESPACE     TO  RL-FD2-STATUS.                        RL1174.2
036300      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           RL1174.2
036400  END-ROUTINE-12.                                                 RL1174.2
036500      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        RL1174.2
036600     IF       ERROR-COUNTER IS EQUAL TO ZERO                      RL1174.045000     OPEN     OUTPUT    RL-FD2.                                   RL1174.2
036700         MOVE "NO " TO ERROR-TOTAL                                RL1174.2
036800         ELSE                                                     RL1174.2
          TO ERROR-TOTAL.                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
037000     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           RL1174.2
037100                                          .
037200 END-ROUTINE-13MOVE     FILE-RECORD-INFO-P1-120 ()TORL1174.2
037300     IF DELETE-COUNTER IS EQUAL TO ZERO045800               RL-FD2-GRP-120.                                    RL1174.2
037400         MOVENO  TO ERROR-TOTAL  ELSE                          RL1174.2
037500         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      RL1174.2
037600     MOVE "TEST(S) DELETED     " TO ENDER-DESC.                   RL1174.2
037700     MOVE CCVS-E-2 TO DUMMY-RECORD. 046100     IF        RL-FD2-STATUS NOT EQUAL TO"                    RL1174.2
037800      IFINSPECT-COUNTEREQUAL                            RL1174.
037900          MOVE "NO " TO ERROR-TOTAL                               RL1174.2
038000      ELSE TO ERROR-TOTAL.RL1174.2
038100      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            RL1174.2
038200      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          RL1174.2
038300     . PERFORM WRITE-LINE.RL11742
038400 WRITE-LINE.                                                      RL1174.2
                                      RL1174.2
038600     IF RECORD-COUNT GREATER 50046700REL-TEST-009-2.                                                  .2
038700         MOVE DUMMY-RECORD TO DUMMY-HOLD                          RL1174.2
038800         MOVE SPACE TO DUMMY-RECORD                               RL1174.2
038900         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  RL1174.2
039000         MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN             RL1174.2
039100         MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM MOVE java.lang.StringIndexOutOfBoundsException: Range [42, 41) out of bounds for length 80
039200         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN                                                                        RL1174.2
039300         MOVE DUMMY-HOLD TO DUMMY-RECORD                          RL1174.2
039400         MOVE ZERO TO047600     000300RL117A RL11742
039500     PERFORM000500*                                                              *  RL1174.2
001000*    "COBOL 001300*                                                              001100*                                                              001400*      X-CARDS USED BY THIS001500*                                                              001200***001300*                                                              001600*            X-22   IMPLEMENTOR-NAME001700*                    RELATIVE001400*      001800*            X-55001500*                                                              002100*            X-75   OBJECT 001800*            X-55   SYSTEM               MOVE "INCORRECT COUNT            X-69002300*X-83OBJECT-COMPUTER.                           002000*X-74VALUE 002400*                                           002100            OBJECT OF*X-82SOURCE-COMPUTER*RL1174.*X-83OBJECT-COMPUTER.002600002400                                                              
039700                   PERFORM                                       2
039800     MOVE SPACE TO 009600     05 WRK-CS-09V00-0149    ..
039900 BLANK-LINE-PRINT.                                                05 009800     05 PIC()USAGE COMPVALUEZERO       RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040000     PERFORM WRT-LNU VALUESPACE.                 2
040100       WRK-XN-0002-001PICX2   .010400     05 WRK-XN-0002-002   PIC  X(2) VALUE  SPACE.                 RL1174()049700*    .03                                                          .
040200           EQUALTO SPACE                         
040300            GO 05 WRK-XN-0002-007X(2)VALUESPACE.                java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040400    SPACE GO FAIL-ROUTINE-WRITER2
040500     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE01FILE-RECORD-INFORMATION-RECRL1174.2
040600     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO 011100     05 WRK-XN-0002-009   PIC  X(2) VALUE  SPACE.        
01130003FILE-RECORD-INFO-SKELETON=     /0RECNO000000UPDT=OVERL-FD2-STATUS  COMPUTED-Ajava.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
040800        TO011700             ",ODO=0000,PGM=  =.java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
             ,     java.lang.StringIndexOutOfBoundsException: Range [46, 45) out of bounds for length 80
       2
041100     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         RL1174.2
041200MOVE   ANSI-REFERENCETO012200        05 FILLER                PICTURE (38)RL1174.
041300     MOVETEST-CORRECT TO PRINT-RECPERFORM                     RL1174.2
041400     MOVE   SPACES TO COR-ANSI-REFERENCE.                         RL1174.2
041500 FAIL-ROUTINE-EX. EXIT.                                           041500 FAIL-ROUTINE-EX. EXIT.                                           RL1174
041600 BAIL-OUT.                                                        RL1174.2
041700     IF     COMPUTED-A NOT EQUAL012800        05 FILE-RECORD-INFO-P1-120                                       05 FILLER                 PICTURE 7        .L1174
 07XFILE-NAME           PIC6).RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
WRITE.013200            XRECORD-NAME         PIC(6)                      2
TOXXCORRECT. MOVE  COMPUTED-A TO XXCOMPUTED.RL1174
042100     MOVE013100          07 FILLER               X().                       java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
.Tjava.lang.StringIndexOutOfBoundsException: Range [69, 68) out of bounds for length 80
        SPACESTO INF-ANSI-REFERENCE051200013800           java.lang.StringIndexOutOfBoundsException: Range [40, 33) out of bounds for length 80
042400BAIL-OUT-EX .RL1174.2
 CCVS1-EXIT                                                      
042600     EXIT.                                                        RL1174.2
042700 SECT-RL117A-001 SECTION.                                         RL1174.2
042800 REL-INIT-009.                                                   RL1174.2
042900     MOVE    "VIII-36 4.8.4 GR4" TO ANSI-REFERENCE.               RL1174.2
043000     MOVE    "REL-TEST-009" TO PAR-NAME.                                     CHARS-OR-RECORDS java.lang.StringIndexOutOfBoundsException: Range [46, 6) out of bounds for length 80
052000     MOVE PAR-NAME.2
043200     MOVE     "RL-FD2"        TO  XFILE-NAME (2).                 RL1174.2
043300          "1-F-G"        TO  XRECORD-NAME (52200     MOVE0  015000           RECORDS-IN-FILE     96)                      2
043400    MOVE     CCVS-PGM-ID     TO              XFILE-ORGANIZATION    (.                      RL1174
043500     MOVE                 XRECORD-LENGTH ()             RL1174.15400            XLABEL-TYPEA.                                       .
043600     MOVE     "052700      TOREL-DELETE-1.RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043700052900           RL-FD3-STATUS                              2
043800     MOVE     01590007 ALTERNATE-KEY1PICX29.RL1174.2
043900     MOVE     "RL"TO  XFILE-ORGANIZATION (2).RL1174.
          "053200 .RL1174.2
044100          000001TO            java.lang.StringIndexOutOfBoundsException: Range [17, 6) out of bounds for length 80
044200*INITIALIZE  RECORD WORK AREA NUMBER 2.                           RL1174.2
07PIC(.RL1174     FILLERPIC      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
                TO WRK-CS-09V00-014RL11742
044500                            java.lang.StringIndexOutOfBoundsException: Range [67, 50) out of bounds for length 80
044600                            07 FILLER              PIC X053800 REL-TEST-1.                                                      RL117403 PIC19   RL1174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
044700MOVE                          (8java.lang.StringIndexOutOfBoundsException: Range [56, 55) out of bounds for length 80
  90000002TO.                           2
044900     MOVE     054300            PERFORM                                         
045000     OPEN     OUTPUT054500ELSERL1174.2
045100     017700     02 F                    17)  VALUEPERFORMPASSRL1174.2
045200*CAPTURE STATUS KEY AFTER  OPEN STATEMENT IS EXECUTED.            RL1174.2
045300 REL-TEST-009-R.                                                  RL1174018000(   ..
       2                                     2
    TORL1174
045600MOVE     05510034 2 ANSI-REFERENCE            -9)4..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
045700FILE-RECORD-INFO-P1-120()018700          COMPUTED-18V0 98.RL11742
045800               RL-FD2-GRP-120.02 FILLERPIC X8)    SPACE          01890003FILLERPIC(0)VALUE SPACE.                             2
045900     WRITE    RL-FD2R1-F-G-240 INVALID KEY                        RL1174.2
046000              GO TO REL-TEST-009-2.                               RL1174.2
046100     IF        RL-FD2-STATUSNOT  ""RL1174.
046200              GO TOREL-TEST-009-2.                              RL1174.2
DNUMBER() EQUAL  TO 500                   RL1174
046400             GO TOREL-TEST-009-2.                                RL1174.2
046500     ADD      01 TO  01940003 CORRECT-A          READ    RL-FD3   AT ENDGO REL-TEST-2.RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046600     GO 055900     GO TO     018200PIC(.9                  .
                                              
046800     IF       WRK-CS-09V00-014 NOT EQUAL TO ZERO                  RL1174.2
046900              MOVE "EXCEPTIONS/ERRORS" TO RE-MARK                 018500     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     RL1174
047000              MOVE ZERO TO CORRECT-18V004COMPUTED-18V0PIC(RL1174
               TO              018900     03 FILLER PIC X(50) VALUE SPACE.                             RL1174 50)SPACE                (48  SPACE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
 RL1174.2
047300ELSERL1174.2
047400PERFORM                                          2
047500PERFORMPRINT-DETAIL.                                       .2
047600     ADD      01021100                           6)     VALUE "ESTED03CORRECT-0V18        -918)RL1174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
047700*    .01                                                          RL1174.2
047800            XRECORD-NUMBER (2) NOTEQUAL TO500                 RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
047900COUNT"TORE-MARK                   021500 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       RL1174
048000              02170001                         ZERO.RL11742
04CORRECT-18V0                      9()                   057000PERFORM                                          .2
02200001  PASS-COUNTER                  PIC 02020003057100java.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 80
048300              ELSE                                                RL1174 057200                                                              2
048400              PERFORM PASS.                                       RL1174.2
048500     PERFORM  -"SS022500 01ANSI-REFERENCE                 X()    VALUE SPACES.RL1174..2
048600         057500                                                                
048700*    .02                                                          RL1174.2
048800     IF       WRK-XN-0002-001 NOT EQUAL TO  "00"                  RL1174.2
               STATUSOPEN  RE-MARKRL11742
049000              MOVE WRK-XN-0002-001 TO COMPUTED-A                  RL1174021100         MOVE   VII-3 .42BTO .RL11742
               ""  02FILLER X) FAIL.RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049200                023300   02  FILLER            X()VALUECCVS85"  .2
                                                                                                                   
049400              PERFORM  PASS.                                      RL1174.2
     java.lang.StringIndexOutOfBoundsException: Range [12, 6) out of bounds for length 80
049600     ADD       TO .                                       .2
049700*    .03                                                          RL1174.2
049800     IF        024100   02  FILLER          (15               .
049900058900REL-TEST-3RL1174.022500 01ANSI-REFERENCE                 (48)VALUE.     RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
 "IN ".                                                                          X42)VALUERL1174.2
               "00 TO CORRECT-A                              
 PERFORM   FAILRL1174023200     PICX40 SPACE.     .2
                  RL11742
050400     PERFORM   PASS.                                     024900           VALIDATION "RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050500     059400             PRINT-DETAIL                                 RL1174
  .RL1174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050700*    .04                                                          RL1174.2
 SPACETO  RL-FD2-STATUS.RL1174.2
050900     CLOSE    RL-FD2.                                              01  CCVS-H-2B.059700             PERFORM PRINT-DETAIL                                 RL1174

051100                                                          2
 MOVE  java.lang.StringIndexOutOfBoundsException: Range [54, 53) out of bounds for length 80
051300               "00"TOCORRECT-ARL11742
051400              PERFORM FAIL                                        "HIGH060100*                                                                 026200      ID-AGAIN                      X().                   RL1174.2
051500              ELSE                                                RL1174.2
051600              PERFORM                                       .
051700     026500    PIC().     2
051800*                                                                 RL1174.2
 REL-INIT-1                                                      ERROR-TOTALPICXXXVALUE SPACE.      RL1174.2
052000     MOVE   "REL-TEST-1" TO PAR-NAME.                             RL1174.2
052100     MOVE   "VII-3 1.3.4 2A" TO ANSI-REFERENCE.                   RL1174.2
052200     MOVE    0 TO REC-CT.                                         RL1174.2
052300     OPENI-O.RL1174.2
052400* DELETE THE NEXT LINE TO DELETE THE TEST                         RL1174.2
052500*    GO TO REL-INIT-1-BETA.                                       RL1174.2
052600REL-INIT-1-ALPHA.                                                RL1174.2
052700     GO TO REL-DELETE-1.                                          026100     02 FILLER  PIC X(14) VALUE IS "END OF TEST-  ".              RL1174 14) VALUE                              X58  VALUE            java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
052800 REL-INIT-1-BETA.01                                                      .22
052900     MOVE              COPYRIGHT1985.RL1174.2
053000PERFORM028100 01  CCVS-E-4. RL1174.2
053100     GO TO   REL-TEST-1028200                         XXX .     RL11742
053200 REL-INIT-1-A.                                                    RL1174.2
 RL-FD3  END  TO REL-TEST-1.028400     02CCVS-E-4-2PIC XXX    VALUE SPACE.      RL1174.2
 REL-DELETE-1.RL1174.2
053500     PERFORM DE-LETE.RL1174.2
053600     PERFORM PRINT-DETAIL.RL1174.2
053700     GO TO   REL-INIT-2.                                          RL1174.2
053800 REL-TEST-1.                                                      RL1174.2
OT EQUAL  TO""RL11742
054000             MOVE   "AT END STATUS" TO RE-MARK                    RL1174.2
054100             MOVE    RL-FD3-STATUS TO COMPUTED-A                  RL1174.2
054200             MOVE   "02910004FILLER                      X8    .RL1174.2
  FAILRL1174.2
054400               RL1174.2
054500     ELSE                                                         RL1174.2
RL1174.
054700             PERFORM PRINT-DETAIL.                                RL1174.2
054800*                                                                 RL1174.2
054900 REL-INIT-2.RL1174.2
055000     MOVE   "REL-TEST-2" TO PAR-NAME.                             RL1174.2
055100     MOVE   "VII-3 1.3.4028800     02FILLER                       PIC X(19)  VALUE             RL1174.2
055200     MOVE    SPACE 030200 01  CCVS-PGM-ID     PIC9   RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
055300* DELETE THE NEXT LINE TO DELETE THE TEST                         RL1174.2
055400*    GO TO REL-INIT-2-BETA.                                       RL1174.2
055500 .                                                2
055600java.lang.StringIndexOutOfBoundsException: Range [26, 13) out of bounds for length 80
055700 REL-INIT-2-BETA.                                                 RL1174.2
055800     .2
055900     GO TO   REL-TEST-2.                                          RL1174.2
056000 REL-DELETE-2.                                                   .
056100     PERFORM DE-LETE.                                             RL1174.2
056200     PERFORMPRINT-DETAIL.                                       .2
056300     GO TO   REL-INIT-3.                                          RL1174.2
056400 REL-TEST-2.                                                      RL1174.2
056500     IF      RL-FD3-STATUS NOT EQUAL  TO "46"                     RL1174.2
056600            MOVE   "SEQUENTIAL          1TO .                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
056700                  TO RE-MARK                                      RL1174.2
056800                          MOVE    RL-FD3-STATUS  031700CVS-INIT-EXIT.                                                  RL1174.
056900             MOVE   46" TO CORRECT-A                             RL1174.2
057000             PERFORM FAILRL1174.2
             PERFORM PRINT-DETAIL                                 RL1174.2
057200     ELSE                                                         RL1174.2
057300             PERFORM PASS                                         RL1174.2
057400             PERFORM PRINT-DETAIL                                .2
057500*                                                                 RL1174.2
057600 REL-INIT-3.                                                      RL1174.2
057700MOVE"L-TEST-3 TO  .RL11742
057800     MOVE   "VII-3 1.3.     MOVE 032800   *** TO .ADD1TO .      RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
057900     CLOSE                                                     
058000     OPEN    INPUT RL-FD3.                                        RL1174.031200PERFORM 033200             " TO  PARDOT-X                                 .2
058100     PERFORMREL-INIT-3-A 100 TIMES.                              RL1174.2
058200     GO 033500     IF P- EQUAL  FAIL*  PERFORM WRITE-LINERL11742
058300                   RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
058400     READ    RL-FD3 RECORD AT END GO TO REL-TEST-3.               RL1174.2
 RL1174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
058600     033900     MOVE SPACEjava.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 80
058700     PRINT-DETAIL                                        
058800     GO TO   034100     MOVE     SPACE     TO.                                   RL1174.
058900 REL-TEST-3.                                                      RL1174.2
059000     IF      RL-FD3-STATUS NOT EQUAL  TO "14"                     RL1174.2
059100             MOVE    RL-FD3-STATUS TO COMPUTED-A                  RL1174.2
                         RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
059300PERFORM                                         .
059400             PERFORMPRINT-DETAIL2
059500     ELSE                                                         RL1174.2
 PASSRL11742
059700             PERFORM PRINT-DETAIL                                      HYPHEN-LINE DUMMY-RECORD PERFORM033000 PRINT-DETAIL.                                        .
059800     CLOSE   RL-FD3.                                              RL1174.2
059900 RL-TEST-3-EXIT.                                                    TO.    .   2
060000     EXIT.                                                        RL1174.2
060100*                                                                 RL1174.2
060200 CCVS-EXIT           ELSE PERFORMBAIL-OUT THRU BAIL-OUT-EX.                 036000      MOVEPASS-COUNTER .RL1174.
06030099.                                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
.                                           RL1174.2