Quelle  rl117a.cob   Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         RL1174.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.2
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     "C0085" .                                                    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         FILE STATUS IS RL-FD2-STATUS.                            RL1174.2
005100     SELECT   RL-FD3 ASSIGN                                       RL1174.2
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     VALUE OF                                                     RL1174.2
006400     Impl1                                                        RL1174.2
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
007100 01  RL-FD2R1-F-G-240.                                            RL1174.2
007200     05 RL-FD2-WRK-120 PIC X(120).                                RL1174.2
007300     05 RL-FD2-GRP-120.                                           RL1174.2
007400        10 RL-FD2-WRK-XN-0001-O120F                               RL1174.2
007500                        PICTURE X OCCURS 120 TIMES.               RL1174.2
007600 FD  RL-FD3                                                       RL1174.2
007700     VALUE OF                                                     RL1174.2
007800     Impl1                                                        RL1174.2
007900     IS                                                           RL1174.2
008000     4711                                                         RL1174.2
008100                                                                  RL1174.2
008200     LABEL RECORDS ARE STANDARD                                   RL1174.2
008300     BLOCK CONTAINS 1 RECORDS                                     RL1174.2
008400     DATA RECORD RL-FD3R1-F-G-240.                                RL1174.2
008500 01  RL-FD3R1-F-G-240.                                            RL1174.2
008600     05 RL-FD3-WRK-120 PIC X(120).                                RL1174.2
008700     05 RL-FD3-GRP-120.                                           RL1174.2
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
009400     05 WRK-CS-09V00-012  PIC S9(9) USAGE COMP  VALUE ZERO.       RL1174.2
009500     05 WRK-CS-09V00-013  PIC S9(9) USAGE COMP  VALUE ZERO.       RL1174.2
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
009800     05 WRK-CS-09V00-016  PIC S9(9) USAGE COMP  VALUE ZERO.       RL1174.2
009900     05 WRK-CS-09V00-017  PIC S9(9) USAGE COMP  VALUE ZERO.       RL1174.2
010000     05 WRK-CS-09V00-018  PIC S9(9) USAGE COMP  VALUE ZERO.       RL1174.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
010700     05 WRK-XN-0002-005   PIC  X(2) VALUE  SPACE.                 RL1174.2
010800     05 WRK-XN-0002-006   PIC  X(2) VALUE  SPACE.                 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
011600        05 FILLER                 PICTURE X(46)       VALUE       RL1174.2
011700             ",ODO=0000,PGM=     ,LRECL=000000,BLKSIZ  =0000".    RL1174.2
011800        05 FILLER                 PICTURE X(26)       VALUE       RL1174.2
011900             ",LFIL=000000,ORG=  ,LBLR= ".                        RL1174.2
012000        05 FILLER                 PICTURE X(37)       VALUE       RL1174.2
012100             ",RECKEY=                             ".             RL1174.2
012200        05 FILLER                 PICTURE X(38)       VALUE       RL1174.2
012300             ",ALTKEY1=                             ".            RL1174.2
012400        05 FILLER                 PICTURE X(38)       VALUE       RL1174.2
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 X(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       PIC 9(6).                      RL1174.2
013700           07 FILLER              PIC X(6).                       RL1174.2
013800           07 UPDATE-NUMBER       PIC 9(2).                       RL1174.2
013900           07 FILLER              PIC X(5).                       RL1174.2
014000           07 ODO-NUMBER          PIC 9(4).                       RL1174.2
014100           07 FILLER              PIC X(5).                       RL1174.2
014200           07 XPROGRAM-NAME        PIC X(5).                      RL1174.2
014300           07 FILLER              PIC X(7).                       RL1174.2
014400           07 XRECORD-LENGTH       PIC 9(6).                      RL1174.2
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 9(4).                      RL1174.2
014900           07 FILLER              PIC X(6).                       RL1174.2
015000           07 RECORDS-IN-FILE     PIC 9(6).                       RL1174.2
015100           07 FILLER              PIC X(5).                       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        05 FILE-RECORD-INFO-P121-240.                             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      PIC X(29).                      RL1174.2
016000           07 FILLER              PIC X(9).                       RL1174.2
016100           07 ALTERNATE-KEY2      PIC X(29).                      RL1174.2
016200           07 FILLER              PIC X(7).                       RL1174.2
016300 01  TEST-RESULTS.                                                RL1174.2
016400     02 FILLER                   PIC X      VALUE SPACE.          RL1174.2
016500     02 FEATURE                  PIC X(20)  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  PAR-NAME.                                                RL1174.2
017000       03 FILLER                 PIC X(19)  VALUE SPACE.          RL1174.2
017100       03  PARDOT-X              PIC X      VALUE SPACE.          RL1174.2
017200       03 DOTVALUE               PIC 99     VALUE ZERO.           RL1174.2
017300     02 FILLER                   PIC X(8)   VALUE SPACE.          RL1174.2
017400     02 RE-MARK                  PIC X(61).                       RL1174.2
017500 01  TEST-COMPUTED.                                               RL1174.2
017600     02 FILLER                   PIC X(30)  VALUE SPACE.          RL1174.2
017700     02 FILLER                   PIC X(17)  VALUE                 RL1174.2
017800            "       COMPUTED=".                                   RL1174.2
017900     02 COMPUTED-X.                                               RL1174.2
018000     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          RL1174.2
018100     03 COMPUTED-N               REDEFINES COMPUTED-A             RL1174.2
018200                                 PIC -9(9).9(9).                  RL1174.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         04 COMPUTED-18V0                    PIC -9(18).          RL1174.2
018800         04 FILLER                           PIC 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 FILLER PIC X(17) VALUE "       CORRECT =".                RL1174.2
019300     02 CORRECT-X.                                                RL1174.2
019400     03 CORRECT-A                  PIC X(20) VALUE SPACE.         RL1174.2
019500     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).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
019800     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     RL1174.2
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
020200     03 FILLER PIC X(2) VALUE SPACE.                              RL1174.2
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 " FEATURE              PARL1174.2
020600-    "SS  PARAGRAPH-NAME                                          RL1174.2
020700-    "       REMARKS".                                            RL1174.2
020800     02 FILLER                     PIC X(20)    VALUE SPACE.      RL1174.2
020900 01  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
02130002FILLER                    PIC X(4     VALUE "".RL1174
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 ZERO000800*    "ON-SITE VALIDATION, NATIONAL 000900*                                                              *  RL1174.2
021700 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       RL1174.2
021800 01  ERROR-COUNTER001900*            X-69   ADDITIONAL VALUE OF CLAUSES                *  RL1174.2
021900 01  INSPECT-COUNTER               002300*            X-83   OBJECT-COMPUTER.                           *  RL1174.2
022000 01  PASS-COUNTER002700***************002800*            THIS PROGRAM TESTS THE SYNTACTICAL CONSTRUCTS 002900*            SEMANTIC ACTIONS ASSOCIATED WITH THE "STATUS"     *03000*            CLAUSE FOR THE VALUES "10" AND "14".              *  003100*                                                              *  RL1174.2
022100 01  TOTAL-ERROR                                                                        2
022200 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       RL1174.2
 Card0131                                                    java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
022400 01  RECORD-COUNT                  PIC 9(5)     VALUE     C0085"                                                    
022500 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     RL1174.2
022600 01  CCVS-H-1.                                                    FILE  .                           RL11742
022700     02  FILLER                    PIC X(39)    VALUE SPACES.     RL1174.2
022800     02  FILLER                    PIC X(42)    VALUE             RL1174.2
022900     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 RL1174.2
023000     02  FILLER                    PIC X(39)    VALUE SPACES.     RL1174.2
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
023400   02  FILLER                        PIC XXXX   VALUE             RL1174.2
023500     "4.2 ".                                                      RL1174.2
023600   02  FILLER                        005100     SELECTRL-FD3 ASSIGN                                       RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023700            " COPY - NOT FOR DISTRIBUTION".                       RL1174.2
LERPICX)VALUESPACE.     .2
023900                                                                                                                          .
024000 01  CCVS-H-2B.                                                   RL1174.2
024100   02  FILLER                        PIC X(15)  VALUE             RL1174.2
024200            "TEST RESULT OF00710001RL-FD2R1-F-G-240.                                           
024300   02  RL-FD2-WRK-XN-0001-O120F
024400   02  FILLER                        PIC  PICTURE OCCURS .               .
024500            " 007700     VALUE OF   RL1174.2
024600   02  FILLER                        PIC X(12)  VALUE             RL1174.2
024700007900                                                           
024800   02  FILLER                        PIC X(22)  VALUE             RL1174.2
 VALIDATION "                             
025000   02  FILLER                        PIC X(58)  VALUE             RL1174.2
025100     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".RL1174.2
025200 01  CCVS-H-3.                                                    RL1174.2
025300     02  FILLER                      PIC X(34)  VALUE             RL1174.2
025400            " FOR OFFICIAL USE ONLY    ".                         RL1174.2
   FILLER                       (58)VALUE.2
025600     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".RL1174.2
025700     02  FILLER                      PIC X(28)  VALUE             RL1174.2
025800            "  COPYRIGHT   1985 ".                                RL1174.2
02590000910001.                                                   
026000     02 FILLER                       PIC X(52)  VALUE SPACE.      RL1174.2
026100     0200940005    (9 USAGE COMP  VALUE ZERO.       RL1174.2
     02ID-AGAINPIC9).                   2
026300     02 FILLER                       PIC X(45)  VALUE SPACES.     RL1174.2
026400 01  CCVS-E-2.                                                    RL1174.2
026500     02  FILLER                      PIC X009800     05 WRK-CS-09V00-016  PIC (9)USAGECOMP ZERO.      .2
   PICX21)   RL11742
 java.lang.StringIndexOutOfBoundsException: Range [32, 27) out of bounds for length 80
026800         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      RL1174.2
026900         03 FILLER                   PIC X      VALUE SPACE.      RL1174.2
027000         03 ENDER-DESC               PIC X(44)  VALUE             RL1174.2
     X2 SPACE                 .
027200 01  CCVS-E-3.                                                    05WRK-XN-0002-006(   SPACE                 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
027300     02  FILLER                      PIC X(22)  VALUE             RL1174.2
027400            " 011600         FILLER                 PICTURE X(46)       VALUE       RL1174.2
 02  FILLERPIC 12  SPACE RL1174.
027600     02  FILLER                      PIC X(58)  VALUE             RL1174.2011800        05                  PICTURE()VALUE.
027700"ON-SITE , NATIONAL INSTITUTE STD&TECH."RL11742
027800     02  FILLER                      PIC X(13)  VALUE SPACE.      RL1174.2
027900     02 FILLER                       PIC X(15)  VALUE             RL1174.2
         RL1174.2
028100 01  CCVS-E-4.                                                    RL1174.2
028200     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      RL1174.2
028300       XRL1174
028400     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      RL1174.2
028500     02 FILLER                       PIC X(40)  VALUE             RL1174.2
028600      "01360007 ()                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028700 01  XXINFO.                                                      013800           07 UPDATE-NUMBER       PIC 9(2).                       RL1174
028800     02 FILLER                       PIC X(19)  VALUE             RL1174.2
028900            "*** INFORMATION ***".                                RL1174.2
029000      .                                                .2
029100       04 FILLER                     PIC X(8)   VALUE SPACE.      RL1174.2
029200       04 07 XPROGRAM-NAME ()                      .2
                 X5   VALUE .      2
029400       04 014400           07       PIC().java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029500     02 INF-ANSI-REFERENCEjava.lang.StringIndexOutOfBoundsException: Range [40, 36) out of bounds for length 80
029600  9.2
029700     02 07FILLER )RL1174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
      IS  *********java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
029900-    "***************************************java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02 java.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 80
030100-    "******************************".                            RL1174.2
030200 01  CCVS-PGM-ID                                java.lang.StringIndexOutOfBoundsException: Range [41, 31) out of bounds for length 80
030300     PIC)RL1174
030400 PROCEDURE 9                       
030500 CCVS1 SECTION.                                                    X) .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030600 OPEN-FILES.                                                      RL1174.2
030700     OPEN    OUTPUT PRINT-FILE01650002                   (20VALUE          java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030800     MOVE  CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.  RL1174.2
030900     MOVE    SPACE 02  PAR-NAME RL1174.2
031000     PERFORM HEAD-ROUTINE THRU017000       03 FILLER                  X19)  VALUE SPACE.RL1174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031100     017300                        java.lang.StringIndexOutOfBoundsException: Range [62, 61) out of bounds for length 80
031200     01750001 .RL1174
031300 .                                                  RL1174.2
031400          1 REC-SKL-SUB                                    2
031500     MOVE    FILE-RECORD-INFO-SKELETON                            RL1174.2
.java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
RL1174
018300java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032000     PERFORMPIC.java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
032100 TERMINATE-CCVS.                                                  RL1174019000 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
032200     EXIT PROGRAM019200     02  X(         CORRECT.RL1174.2
032300 TERMINATE-CALL.019400PIC(0)SPACERL1174.2
032400     019500     CORRECT-N     PIC9999).RL1174
032500 INSPT  java.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 80
 PASS.  MOVE "TO               .2
032700 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          RL1174.2
032800 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      RL1174.2
032900     MOVE "****TEST DELETED****" TO RE-MARK020200     03 FILLERPIC X2) VALUE.                              .2
033000 PRINT-DETAIL.                                                    RL1174.2
033100     IF REC-CT NOT EQUAL TO ZERO                                  RL1174.2
033200MOVE"TO                                  
033300             MOVE REC-CT TO DOTVALUE.                             RL1174.020600java.lang.StringIndexOutOfBoundsException: Range [72, 30) out of bounds for length 80
     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE      RL1174.2
033500     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               RL117402090001  CCVS-C-2                                                    
033600        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 RL1174.2
033700                java.lang.StringIndexOutOfBoundsException: Range [44, 20) out of bounds for length 80
033800     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              RL1174.2
033900     MOVESPACETO CORRECT-X.RL1174.2
034000     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         RL1174.2
034100     MOVE     SPACE TO RE-MARK.                                                       ZEROjava.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
034200 .RL1174.2
034300     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  RL1174.2
034400     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  RL1174.2
034500    MOVE TODUMMY-RECORD.PERFORM WRITE-LINE3 RL1174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
03460002FILLERPICXSPACES     .2
034700 COLUMN-NAMES-ROUTINE.                                            RL1174.2
034800     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           RL1174.2
034900     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL1174.02300002                     X39 .RL11742
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 5RL1174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02                                         .
TO.   TIMES2
035500 END-ROUTINE-1.                                                   RL1174.2
        java.lang.StringIndexOutOfBoundsException: Range [44, 43) out of bounds for length 80
035700      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               RL1174.2
035800      ADD PASS-COUNTER TO 024100   02  FILLER               15RL11742
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
036100      MOVE ERROR-HOLD TO CCVS-E-4-2.                              RL1174.2
036200      MOVE CCVS-E-4 TO CCVS-E-2-2.                                
TO  .RL1174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
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.2
036700         MOVE "025200  .                                                    
036800         ELSE                                                     RL1174.2
036900         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       RL1174.2
037000     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           RL1174.2
037100     PERFORM WRITE-LINE.                                          RL1174.2
037200 END-ROUTINE-13.                                                  "COPYRIGHT .RL1174
037300     IF DELETE-COUNTER IS EQUAL026000     PIC  .java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
NO                              java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
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. PERFORM WRITE-LINE.           RL1174.2
037800      IF   INSPECT-COUNTER EQUAL TO ZERO                          RL1174.2
037900          MOVE "NO " TO ERROR-TOTAL                               RL1174.2
 ERROR-TOTAL.                   2
038100      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            RL1174.2
038200      MOVE CCVS-E-2 TO DUMMY-RECORD027200 01   01  CCVS-E-3.                                                   2
038300     MOVE CCVS-E-3 027400             OFFICIAL "                             
038400 WRITE-LINE.                                                      RL1174.2
038500     ADD 1 TO RECORD-COUNTN   java.lang.StringIndexOutOfBoundsException: Range [58, 57) out of bounds for length 80
038600     IF RECORD-COUNT GREATER 50                                   RL1174.2
038700         MOVE DUMMY-RECORD TO DUMMY-HOLD                          RL1174.2
038800         MOVE SPACE TO DUMMY-RECORD                               RL1174.2
038900         WRITE DUMMY-RECORD AFTER ADVANCING   .RL1174.2
039000         MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN             .
039100         MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES     RL1174.2
039200         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          RL1174.2
039300         MOVE DUMMY-HOLD TO DUMMY-RECORD                          RL1174.2
039400         MOVE ZERO TO RECORD-COUNT.                               RL1174.2
039500     PERFORM WRT-LN.                                              RL1174.2
039600 WRT-LN.                                                          RL1174.2
039700     WRITE    DUMMY-RECORD AFTER                              ()   .      RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039800     MOVE SPACE TO DUMMY-RECORD.                                  RL1174.2
039900 BLANK-LINE-PRINT.                                                RL1174.2
040000 01HYPHEN-LINE                                                 
040100 FAIL-ROUTINE.                                                    RL1174.2
040200     IF     COMPUTED-X NOT EQUAL TO SPACE                             *********************.                2
040300GOTO   FAIL-ROUTINE-WRITE.                          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040400     IF     CORRECT-X   SPACE  TO RL1174.
040500     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 RL1174.2
040600     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   RL1174.2
040700     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL1174.2
040800     MOVE   SPACES TO INF-ANSI-REFERENCE.                         RL1174.2
040900     GO TOCCVS1.                                                   RL11742
 java.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 80
041100        TEST-COMPUTED TO PERFORMWRITE-LINE         RL11742
041200     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 RL1174.2
041300     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES.031000      HEAD-ROUTINE THRU .              RL1174
041400     MOVE   SPACES TO COR-ANSI-REFERENCE.                         RL1174.2
041500 FAIL-ROUTINE-EX. EXIT.                                           RL1174.2
041600 BAIL-OUT.                                                         RL11742
041700     IF     COMPUTED-A NOT EQUAL TO SPACE  TO (REC-SKL-SUB.RL1174.2
041800     031700 CCVS-INIT-EXIT                                                  
041900 BAIL-OUT-WRITE.                                                  RL1174.2
042000     MOVE CORRECT-A   .RL11742
 java.lang.StringIndexOutOfBoundsException: Range [35, 32) out of bounds for length 80
042200     MOVE   032300 TERMINATE-CALL.  RL1174
042300     MOVE   RUN                                                
042400 BAIL-OUT-EX. EXIT.                                               RL1174.032600PASS   "PASS   .ADD  PASS-COUNTER.RL1174.2
042500 032800 DE-LETE.  *.ADD1..
042600      ** TO java.lang.StringIndexOutOfBoundsException: Range [50, 49) out of bounds for length 80
042700 033100      EQUAL                                  2
042800 REL-INIT-009.                                                    RL1174.2
042900     MOVE    "VIII-36 4.033400MOVE  PRINT-RECWRITE-LINE      java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
043000     PERFORM FAIL-ROUTINE-EX2
043100     " FEATURE                         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043200     MOVEMOVESPACEjava.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 80
          RL11742
043400     MOVE     CCVS-PGM-ID     TO  XPROGRAM-NAME (2).              RL1174.2
043500     MOVE     000240          TO  XRECORD-LENGTH (2).             RL1174.034200 java.lang.StringIndexOutOfBoundsException: Range [72, 19) out of bounds for length 80
043600     MOVE     "RC"            TO  CHARS-OR-RECORDS (2).           034400      TO.PERFORM   .  2
   ().RL1174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043800      java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 80
043900     MOVE          java.lang.StringIndexOutOfBoundsException: Range [30, 27) out of bounds for length 80
2)2

044200*INITIALIZE  RECORD WORK AREA NUMBER 2.                           RL1174.2
044300     MOVE ERROR-HOLD  java.lang.StringIndexOutOfBoundsException: Range [57, 56) out of bounds for length 80
044400     MOVE     ZERO      TO  WRK-CS-09V00-013 035900*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   RL1174.2
044500                             WRK-CS-09V00-016RL1174.2
044600                            WRK-CS-09V00-017 WRK-CS-09V00-018.    RL1174.2
044700               TO.java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
044800     MOVE     90000002  TO  RL-FD2-KEY.                           RL1174.2
044900     MOVE     01 TO REC-CT.                                       RL1174.2
java.lang.StringIndexOutOfBoundsException: Range [37, 36) out of bounds for length 80
045100     MOVE     RL-FD2-STATUS TO WRK-XN-0002-001.                   RL1174.2
045200*CAPTURE STATUS KEY AFTER  OPEN STATEMENT IS EXECUTED.            RL1174.2
045300 REL-TEST-009-R.                                                  RL1174.2
045400     036900MOVEERROR-COUNTER  ERROR-TOTAL.RL1174.2
045500     MOVE    "99"  TO RL-FD2-STATUS.                              RL1174.2
045600     MOVE          PERFORM WRITE-LINE.RL11742
045700     (                       
045800               java.lang.StringIndexOutOfBoundsException: Range [36, 35) out of bounds for length 80
045900     WRITE    RL-FD2R1-F-G-240037400          ""java.lang.StringIndexOutOfBoundsException: Range [42, 40) out of bounds for length 80
046000              GO TO REL-TEST-009-2.                               RL1174.2
 "00                    
046200              GO TO  REL-TEST-009-2    TOZERO                         .
046300     IF        MOVE INSPECT-COUNTER                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046400             GO TO REL-TEST-009-2.                                RL1174.2
046500     ADD      01 TO  MOVE CCVS-E-3 TO DUMMY-RECORD.          .
046600     GO TO    REL-TEST-009-R2
 RL1174
046800     IF       WRK-CS-09V00-014 NOT EQUAL TO ZERO                  RL1174.2
046900              MOVE "EXCEPTIONS/ERRORS" TO RE-MARK                 RL1174.2
047000              java.lang.StringIndexOutOfBoundsException: Range [31, 28) out of bounds for length 80
047100             WRK-CS-09V00-014 TO COMPUTED-18V0              RL1174.2
047200              PERFORM   FAIL                                      RL1174.2
047300ELSE                                               2
047400              PERFORM   PASS.                                     RL1174.2
047500PERFORM  .000100 .RL1174.2
047600     java.lang.StringIndexOutOfBoundsException: Range [11, 6) out of bounds for length 80
047700*    .01                                                          RL1174.2
047800     IF       000900*001100*                                                              *  RL1174.2
047900              001900*            002300*               OBJECT-COMPUTER                                           OF 002400*                                 002100*            X-75   OBJECTOF002200                                             002300               OBJECT-COMPUTER*    **  RL1174.2
   RELATIVE  RL-FD3-KEY.
   java.lang.StringIndexOutOfBoundsException: Range [42, 41) out of bounds for length 80
 PERFORM                                       
048300              ELSE PICTURE (.                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
048400      RECORDS                                    
048500     PERFORM  PRINT-DETAIL.                                                                                   
048600                                                           RL1174.
048700*    .02                                                          RL1174.2
048800IF         TO 00RL1174
048900008400DATARL-FD3R1-F-G-240.RL1174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049000                                                               
049100              MOVE  .                                        
049200                FAIL009400     05 WRK-CS-09V00-012  PIC S9(9) USAGE COMP  VALUE ZERO.       RL1174     05    05java.lang.StringIndexOutOfBoundsException: Range [32, 30) out of bounds for length 80
04930005      05 WRK-CS-09V00-016)VALUE.2
049400               WRK-CS-09V00-018 9 USAGE  java.lang.StringIndexOutOfBoundsException: Range [60, 59) out of bounds for length 80
P  .                                       
049600     java.lang.StringIndexOutOfBoundsException: Range [14, 6) out of bounds for length 80
049700*    .03                                                          RL1174.2
049800     IF        01070005WRK-XN-0002-005  (   .IF  java.lang.StringIndexOutOfBoundsException: Range [47, 41) out of bounds for length 80
049900              MOVE "   X()VALUE  . 05     IF     CORRECT-XTOGOjava.lang.StringIndexOutOfBoundsException: Range [53, 52) out of bounds for length 80
              java.lang.StringIndexOutOfBoundsException: Range [41, 38) out of bounds for length 80
040800     MOVESPACES  INF-ANSI-REFERENCE.                         RL1174.2
050200               )java.lang.StringIndexOutOfBoundsException: Range [81, 78) out of bounds for length 80
050300              ELSE                                                =                            .RL1174. X       041000 FAIL-ROUTINE-WRITE.                                       
PASS                                     .
RL1174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
.2
050700*    .04                                                          RL1174.2
041800 X                     java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050900     041900 BAIL-OUT-01320007java.lang.StringIndexOutOfBoundsException: Range [41, 32) out of bounds for length 80
051000     IF        RL-FD2-STATUS NOT EQUAL TO "00"                    013000           07 XFILE-NAME           PIC X(6).                      RL1174
051100              MOVE07FILLERPIC(.                                  042200     MOVE   XXINFO TO DUMMY-.PERFORM WRITE-LINE      RL1174.2
051200              01380007        PIC9(2)                       RL1174.
051300042400. EXIT.                                               
051400              PERFORM FAIL                                        RL1174.2
051500              ELSE                                                RL1174.2
051600PERFORMPASS.                                      2
051700     PERFORM  PRINT-DETAIL.                                                                                           
051800*                                                                 RL1174.2
051900 REL-INIT-1.                                                      RL1174.2
   REL-TEST-1" PAR-NAMERL1174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
052100     MOVE   "VII-3014900            PIC (6.RL1174.
52200     MOVE    0TO015000     PIC()                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
052300         I-ORL-FD3                                         FILLER              PIC X(7).                       RL1174.2
052400* DELETE THE NEXT LINE TO DELETE THE TEST                         RL1174.2
052500*    GO TO REL-INIT-1-BETA.                                       RL1174.2
052600 REL-INIT-1-ALPHA.                                                RL1174.2
052700GO                                           .

052900     SPACETO.RL1174.
053000                             RL11742
               (RL1174             2         .
053200REL-INIT-1-A2
053300     READMOVE     000001          01530007 01620007FILLER(7).
053400PIC          2
05350002PIC(          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
053600     PERFORM 044400     MOVEZERO     TO  WRK-CS-09V00-013     .2
053700     GO TO   REL-INIT-2.                                          RL1174.2
.
053900     015900       07 ALTERNATE-KEY1PIC X29.                      RL1174.2
             RL1174.2
054100MOVEPICVALUE          RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
     044800             java.lang.StringIndexOutOfBoundsException: Range [45, 44) out of bounds for length 80
              FAILRL1174.2
054400             PRINT-DETAILRL1174.
054500                                                              
054600              PASS                                         
PERFORMPRINT-DETAIL .                                               
054800*                                                                 RL1174.2
                                                       045400MOVEXRECORD-NUMBER()                                      RL1174.
""PAR-NAME                             
055100     ..42DTOANSI-REFERENCE     03COMPUTED-14V4  PIC149).RL11742
055200     MOVE    SPACE TO RL-FD3-STATUS017200       03DOTVALUE045700MOVE ( 018700         04COMPUTED-18V0PIC9(.         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 REL-INIT-2-ALPHA.                                                RL1174.2
055600     GO TO 02FILLER                   PICX30)  SPACE.046100IF          EQUALTO"0                    .
055700 REL-INIT-2-BETA.                                                 RL1174.2
AT java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
0196000182009().
056000REL-DELETE-2.                                                    java.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 80
056100     PERFORM DE-LETE018400     019900      CR-18V0REDEFINESCORRECT-A                         RL1174
056200     PERFORM PRINT-DETAIL.                                        RL1174.2
056300     GO TO   REL-INIT-3PICX               2
056400 020200      FILLER PIC047100              MOVE  COMPUTED-18V0RL1174.      FILLER PICX()VALUESPACERL117402030003COR-ANSI-REFERENCEPIC (48VALUE     2
 IFRL-FD3-STATUS NOT EQUAL   "6 -S  PARAGRAPH-NAME                                          .
056600             MOVE   "SEQUENTIAL READ FOLLOWING 'AT END' CONDITION"RL1174.2
047400                 RL11742
056800             MOVE    RL-FD3-STATUS TO           CR-18V0047900"INCORRECT   RE-MARK                   021500 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       RL1174
056900             MOVE   "46" TO CORRECT-A                             RL1174.2
057000            java.lang.StringIndexOutOfBoundsException: Range [32, 31) out of bounds for length 80
                                               2
                                                              RL1174.
057300             PERFORM PASS                                         RL1174.2
057400             PERFORM PRINT-DETAIL.                                RL1174.022400 RECORD-COUNTPIC5     .      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
057500*                                                                 RL1174.2
057600 REL-INIT-3.                                                      048700*    .02                                                          RL1174.2
057700     MOVE   "REL-TEST-3" TO PAR-NAME.                             RL1174.   .                                                    RL1174.2
        "13. 2"  ANSI-REFERENCE                   .2
2
 02FILLERPIC4     ""RL11742
058100     PERFORM REL-INIT-3-A 100 TIMES.                              RL1174.2
058200     GO TO   REL-TEST-3.                                          RL1174.2
058300 EL-INIT-3-A                                                    .2
058400     READ    RL-FD3 RECORD AT END GO TO REL-TEST-3.02180001ERROR-COUNTER                 PIC 999      VALUE ZERO.       RL1174.2
ELETE-3.RL1174.2
058600     PERFORM DE-LETE022100  01TOTAL-ERROR                    999VALUE        RL1174.2
058700     PERFORM PRINT-DETAIL.                                        RL1174.2
058800     GO TO   RL-TEST-3-EXIT.                                      RL1174.2
058900 REL-TEST-3.                                                       01                  PICX48)     SPACES     RL11742
059000     IF      RL-FD3-STATUS NOT EQUAL  TO "14"                     RL1174.2
059100             MOVE    RL-FD3-STATUS TO COMPUTED-A                  RL1174.2
059200                "14 TO CORRECT-A                             RL1174050200                                                      02320002FILLER                         (40)VALUE .RL1174.2
 "LEVEL                               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
 PERFORM                                 .2
059500.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
059600             PERFORM PASS                                           FILLER                         X()VALUE  PICX34  050700*.                                                          
.2
059800     CLOSE   RL-FD3.                                              RL1174.2
059900.                                                  
060000     EXIT.RL1174.2
060100*                                                                 RL1174.2
060200 CCVS-EXIT SECTIONRL1174.2
060300 CCVS-999999.                                                     2
060400     GO TO 025100     "ON-SITEVALIDATION, NATIONAL 026400 01  CCVS-E-2.                         RL1174051600              PERFORM PASS RL1174.