Quelle  rl117a.cob   Sprache: Cobol

 DIVISION                                         
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
002300*            X-83   OBJECT-COMPUTER.                           *  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 003400************************003500 .RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
003700 SOURCE-COMPUTER.                                                 RL1174.003700SOURCE-COMPUTER.                                                 
003800     Card0130.                                                    RL1174.2004000     .                                                    RL1174.2
                                                 
004000     Card0131.                                                    RL1174.2
004100 INPUT-OUTPUT SECTION.                                            RL1174.2
004200 FILE-CONTROL.                                                    004500SELECTRL-FD2                                        RL11742
004300     SELECT PRINT-FILE ASSIGN TO                                  RL1174.2
004400     "C0085                                                      .
004500     SELECT   RL-FD2 ASSIGN  java.lang.StringIndexOutOfBoundsException: Range [44, 43) out of bounds for length 80
004600     "C0034"                                                                                                            2
004700              ORGANIZATION RELATIVE                               RL1174.2
              RANDOMRL1174.2
004900              RELATIVE  RL-FD2-KEY                                RL1174.2
005000          STATUSISRL-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                                .2
005600         FILE 048100             MOVE XRECORD-NUMBER (2)  TO COMPUTED-18V0         RL1174.2
005700 DATA DIVISION.                                                   01  PRINT-RECPICTUREX120)                                    2
005800SECTIONRL1174.2
005900 FD  PRINT-FILE.                                                  RL1174.2
006000 01 PRINT-REC  X(20)RL11742
006100 01  DUMMY-RECORD PICTURE X(120).                                 RL1174.2
006200 FD  RL-FD2                                                       RL1174.2
006300     VALUE                                                      RL1174.2
006400     Impl1                                                        
006500     IS                                                           RL1174.2
006600     4711                                                         RL1174.2
006700RL1174.2
006800     LABEL RECORDS ARE STANDARD                                   RL1174.2
006900     BLOCK CONTAINS 1 RECORDS                                     RL1174.2
007000     DATA RL-FD2R1-F-G-240                                .2
007100 01  RL-FD2R1-F-G-240.RL1174.2
007000java.lang.StringIndexOutOfBoundsException: Range [72, 39) out of bounds for length 80
007300     05 RL-FD2-GRP-120.                                           RL1174.2
007400        10 RL-FD2-WRK-XN-0001-O120F                               RL1174.2
007500                        PICTURE X OCCURS 120 TIMES.               00740010 RL-FD2-WRK-XN-0001-O120F                               RL1174
007600 FD  RL-FD3007600 FD                                                         
     VALUEOFRL1174.2
007800Impl1                                                       .
007900     IS                                                           IS                                                           2
008000     4711                                                         RL1174.2
008100                                                                  RL1174.2
2
008300     BLOCK CONTAINS 1 RECORDS                                     RL1174.2
      RECORD RL-FD3R1-F-G-240.                               .2
008500 01  008500 01  RL-FD3R1-F-G-240
008600     05 008600     05 RL-FD3-WRK-120RL1174
008700     05RL-FD3-GRP-120.RL1174008700     05 RL-FD3-GRP-120.                                          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
008800        10 RL-FD3-WRK-XN-0001-O120F                               RL1174.2
008900                                                                               
009000 WORKING-STORAGE SECTION.                                        RL1174.2
009100 01  GRP-0001.                                                    RL1174.2
.2
009300     RL-FD3-KEYPIC   VALUE ZERO.                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
.
00950005WRK-CS-09V00-013 05  S99  COMPVALUEZERO       2
  PIC S9() USAGE COMP  ZERO      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
009700     0500980005java.lang.StringIndexOutOfBoundsException: Range [32, 30) out of bounds for length 80
009800  PIC( COMP.
009900     05 WRK-CS-09V00-017  PIC S9(9) USAGE COMP  VALUE ZERO.       RL1174.2
010000     05 WRK-CS-09V00-018010100     05        XX  VALUESPACERL11742
010100     05049500ERFORM  .RL11742
10200     05RL-FD3-STATUS     PIC  XX    .                 RL1174.2
010300     05 WRK-XN-0002-001   PIC  X(2) VALUE  SPACE.                 RL1174.2
 05 WRK-XN-0002-002   PIC  2 049700*    .03                                 RL1174
010500     05 WRK-XN-0002-003   PIC  X(2) VALUE  SPACE.                 RL1174.2
010600     05 WRK-XN-0002-004010400     05WRK-XN-0002-002   PIC  X(2) VALUE  SPACE.                 RL1174.2
      010700     05 WRK-XN-0002-005)java.lang.StringIndexOutOfBoundsException: Range [49, 47) out of bounds for length 80
010800     05 WRK-XN-0002-006   PIC  X(2) VALUE  SPACE.                 RL1174.2
010900        PIC                      RL1174.2
011000        PIC  X( VALUE  SPACE.                RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
011100    WRK-XN-0002-009     NOTEQUALTO  GOTO..java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
011200   .                                 
011300     03FILE-RECORD-INFO-SKELETON                                2
011400        05 FILLER                   RL1174
=0000000  java.lang.StringIndexOutOfBoundsException: Range [39, 38) out of bounds for length 80
         PICTURE()java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
   ,LRECL=000000,BLKSIZ  =000".   RL1174.2
011800        05 FILLERPICTUREX26       RL1174.2
011900             ",PERFORM   050200              PERFORM   FAILPICTURE  X46      VALUE       RL1174.
                   37              2
012100             ",RECKEY=                            "             01180005PICTURE)VALUE       RL1174.2
012200        05 FILLER                 PICTURE011900",FIL000000ORG=  ,BLR .RL1174.2
           2
012400        050400              PERFORM   .                                     RL11742
012500             ",ALTKEY2=                             ".            RL1174.2
012600        05 FILLER                 PICTURE X(7)        VALUE SPACE.RL1174.2
012700     03         05 FILLERPICTURE X38)VALUE       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012800        05 .012600       05                 X()VALUE SPACER.2
012700      FILE-RECORD-INFO          OCCURS10TIMES.RL1174.2
                      ().2
013100           07                (8.RL11742
013200           07           X6.RL1174.
013300           07 FILLER              PIC X(1).012900            042000     MOVE CORRECT-A   TO  .2
)                       .2
FILLERPIC X()                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01360007 XRECORD-NUMBERRECORD 2TIMES.2
013700           07 FILLER              PIC X(6).                       RL1174.2
013800            java.lang.StringIndexOutOfBoundsException: Range [40, 34) out of bounds for length 80
013900           07 FILLER              PIC X(5).                       RL1174.2
014000           07 ODO-NUMBER          PIC 042500.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                  PIC96.RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014500           07 FILLER              PICX)                       .2
014600           07     PIC014000           07 ODO-NUMBER          PIC 9                       2
014700           07 FILLER              PIC X(1).                       RL1174.2
014800           07 XBLOCK-SIZE          PIC 9(4).                      RL1174.2
014900                      07FILLER              X)                       .
01500007java.lang.StringIndexOutOfBoundsException: Range [36, 35) out of bounds for length 80
015100           07 FILLER              PIC X(5).                       2052300OPEN     .RL1174.2
01520007XFILE-ORGANIZATIONPICX2)                      .2
015300           07 FILLER              PIC X(6).                       RL1174.2
1540007 A.RL1174.
015500        05 FILE-RECORD-INFO-P121-240.                             RL1174.2
014700            PIC(1.                      .
014800           07 XBLOCK-SIZE          PIC 94.RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
015800           07 FILLER              PIC X(9).                       RL1174.2
                  PIC ()                      
016000           07 ILLER              PIC X().                       RL1174.2
016100                  PIC (016100MOVE"053200 REL-INIT-1-A                                                    
016200           07 PICX7)RL1174.
016300 01  TEST-RESULTS.                                                RL1174.2
016400     02 FILLER                   PIC X      VALUE SPACE.          RL1174.2
     02 FEATURE                  PIC X(0)  VALUE SPACE.RL1174.2
016600                          XVALUESPACE. RL11742
016700     02 P-OR-F                   PIC X(5)   VALUE SPACE.          RL1174.2
01680002FILLERPIC X      044500     RL1174.
016900     02  PAR-NAME.                                                RL1174.2
017000        FILLER                PIC X(19)VALUESPACE.          .2
017100       03  PARDOT-X              PIC X      VALUE SPACE.          RL1174.2
017200       03 DOTVALUE               PIC 99     VALUE 054000             MOVE   "AT END STATUS" TO RE-MARK       
             )SPACE2
017400     02 RE-MARK                  PIC X(61).                       RL1174.2
017500 01  054200        044800    MOVE90000002  RL-FD2-KEY                           RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
017600     02 FILLER                   PIC       PIC XVALUE .          054400PERFORM                                  2
ILLERPIC X(  VALUE                                                       
017800            "       COMPUTED=".                                   RL1174.2
017900     02COMPUTED-X                                               RL1174.2
018000     03 COMPUTED-A               PIC X(20)VALUESPACE          RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018100     03 COMPUTED-N               REDEFINES COMPUTED-A             RL1174.2
018200                                 PIC054900 REL-INIT-2.RL1174.2
018300     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         RL1174.2
018400     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9045500    MOVEREL-TEST-2  .                             .2
01850003  REDEFINESCOMPUTED-A   PIC(.(4)    2
018600     03       CM-18V0 REDEFINES COMPUTED-A.                       RL1174.2
018700                              -9() RL1174.2
018800         04 FILLER                           PIC X.               RL1174.2
018900      java.lang.StringIndexOutOfBoundsException: Range [21, 20) out of bounds for length 80
019000 01  TEST-CORRECT.                                                RL1174.55300* DELETE THE NEXT LINE TO DELETE THE TEST                         RL1174.017400                         X61.                      RL1174055400*GO REL-INIT-2-BETA.RL1174.2
019100     02 FILLER PIC X(30) VALUE SPACE.                             RL1174.2
       046300     IF       XRECOR2  .2
019300     046400 java.lang.StringIndexOutOfBoundsException: Range [72, 39) out of bounds for length 80
     055800READ END TO                    .
019500    PIC -9()9)      RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
019600018200                                 9)9)RL11742
019700     03 CORRECT-4V14RL1174.2
019800     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     RL1174.2
019900     03      REDEFINES .                         .2
02000018).          RL1174.2
                       .               RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020200     03 FILLER 047100              WRK-CS-09V00-014 COMPUTED-18V0RL1174.
      COR-ANSI-REFERENCEX48).RL11742
020400 01  CCVS-C-1.                                                    RL1174.2
020500     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE              PARL1174.2
20600    SPARAGRAPH-NAMERL1174.
020700-    "       REMARKS"047200              PERFORM   FAIL                                     
020800     02 FILLER                     047300                                                              
020900 01  CCVS-C-2.                                                    RL1174.2
021000     02 FILLER       .RL1174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
     02FILLERPICX(VALUE"03 REDEFINESCORRECT-A     PIC-918)        .2
                            ()VALUE       2
021300     02 FILLER                     PIC 047700*    .01                                                          RL1174.2
021400     02 FILLER                     PIC X(94)    VALUE SPACE.      RL1174.2
.2
021600 01  REC-CT                        PIC 99       VALUE ZERO.       RL1174.2
021700  DELETE-COUNTERPIC999VALUE.       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02180004CORRECT-18V0PIC 9()                    PERFORM RL11742
021900 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       RL1174.2
 01       057100PERFORMPRINT-DETAIL                                 .
022100 01  TOTAL-ERROR                   PIC 999           03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     RL1174.2
 ERROR-HOLD                            ZERO       2
022300 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      RL1174.2
 01                    9()VALUE ZERO RL1174.2
022500 01                   X48    VALUESPACES     RL1174.2
022600 01048600     ADD*RL1174.2
022700     02  FILLER                    PIC X(39)    VALUE SPACES.     RL1174.2
022800     02FILLER                   PIC(4242    RL11742
022900     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 RL1174.2
023000     02  FILLER                    PIC X(39)    VALUE 048900              MOVE"/"TO                       .2
023100 01  CCVS-H-2A.                                                   RL1174.2
023200   02  FILLER                        PIC X(40)  VALUE049100MOVE00 TOCORRECT-A    02                     ()VALUE FAIL     2
023300               PIC (7 VALUE"CVS85 .RL11742
023400   02  FILLER                        PIC XXXX   VALUE             RL1174.2
023500     "4049300              ELSE                                                .RL11742
023600   01INSPECT-COUNTERPIC      ZERO       2
023700            " COPY 049500java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023800   04960001REC-CTRL11742
023900                            .
02400001CCVS-H-2B                                                   RL1174.2
               PICX)VALUE             RL11742
024200            "TEST RESULT OF ".                                    RL1174.2
024300   02  TEST-ID                       PIC X(9).                    RL1174.2
024400   02  FILLER                        PIC X(4)   VALUE             RL1174.2
024500             ".                                                     FILLER                    X()                 RL1174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050100MOVE"00"TOCORRECT-ARL1174.2
024700     " HIGH       ".059200MOVE14"java.lang.StringIndexOutOfBoundsException: Range [72, 43) out of bounds for length 80
02480002FILLER                         X(7                     java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
024900 FOR                             2
025000   02  FILLER                        PIC X(58)  023500     "4.2 ".                                         .2
025100     ON-SITE VALIDATION,NATIONAL INSTITUTE OF STDTECH.     "RL11740595002
025200 01  050600     ADD    01 TO REC-CT                                       .2
025300       FILLER                       ()050700    04RL1174.2
             FOR OFFICIAL USE ONLY050800    MOVESPACE  TO  RL-FD2-STATUS                           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025500     02FILLERPIC(8)  VALUE             2
025600     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".RL1174.2
RL11742
025800                        "ESTRESULT OF ".                                   RL11742
02590001CVS-E-1.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026000051200                RL-FD2-STATUSTO024500            " IN ".                              ".                                               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026100060000                                                        
02620002PIC9 
026300     02 FILLER                       PIC X(024900             FOR.                                               java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
                      051600.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
                        31VALUE.     RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026600025300051800*RL1174.2
026700     02 CCVS-E-2-2.                                               RL1174.2
026800         03                    java.lang.StringIndexOutOfBoundsException: Range [60, 59) out of bounds for length 80
026900         03 FILLER                   PIC X      VALUE SPACE.      RL1174.2
027000         03 ENDER-DESC               PIC X(44)  VALUE             RL1174.2
027100            " "OBOL85java.lang.StringIndexOutOfBoundsException: Range [29, 28) out of bounds for length 80
027200 01  CCVS-E-3.                                                          RL-FD3                                         java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
027400            " FOR OFFICIAL USE ONLY".                             RL1174.2
027500     02  FILLER                      PIC X(12)  VALUE SPACE.      RL1174.2
02760002FILLER                       X58)VALUE            RL1174.2
027700LIDATION,  INSTITUTE OF & TECH.     .RL1174.2
027800     02  FILLER02630002FILLER                      PIC X()VALUE SPACES.RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
027900     02 FILLER                       PIC X(15)  VALUE             RL1174.2
028000" COPYRIGHT 1985"                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028100                                             java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
 02CCVS-E-4-1                   PIC    VALUESPACE.     RL1174.02670002CCVS-E-2-2                                               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028300     02 FILLER                       PIC X(4)   VALUESPACE.      RL1174.2
                    SPACEjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028500                                                    
028600      "  TESTS WERE EXECUTED SUCCESSFULLY".                       RL1174.2
028700 01  XXINFO.                                                      RL1174.2
028800     02 FILLER                       PIC X(19)  VALUE             RL1174.2
028900            "*** 053900     IF      RL-FD3-STATUS N   10                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029000     02 INFO-TEXT.02FILLERPICX(8  VALUE             RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
        PICX()   VALUE SPACE      (15)  VALUE             RL1174
029200       04 XXCOMPUTED                 PIC X(20).                   RL1174.2
029300       04 FILLER                     PIC X(5)   VALUE SPACE.01.RL1174
       XXCORRECTPIC()                   .2
029500     02 INF-ANSI-REFERENCE           PIC X(48).                   RL1174.2
029600 01054300             PERFORM                                         
029700     02 FILLER  PIC IS X VALUE IS SPACE.                          RL1174.2
029800     02 FILLER  PIC IS028400     02CCVS-E-4-2                                            .
029900-   "***************************".                 RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030000     02 FILLER                                                          
030100-    "******************************".                            RL1174.2
                  X9VALUE             2
030300     "RL117A".                                                    RL1174.2
030400 PROCEDURE055300* DELETE THE NEXT LINE TO DELETE THE TEST                         RL1174.2
030500 CCVS1 REL-INIT-2-ALPHARL1174.
030600 OPEN-FILES.                                                      RL1174.04XXCOMPUTED     E-2                                          2
030700     OPEN       04XXCORRECT                   X(20).                   055800     READ    RL-FD3   AT END GO TO REL-TEST-2.                    RL1174
030800MOVECCVS-PGM-IDTO 056000  RL1174.
030900     MOVE    SPACE TO TEST-RESULTS.                               RL1174.2
031000     PERFORMHEAD-ROUTINE  THRU COLUMN-NAMES-ROUTINE.056200      .                                       RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
VEZERO  REC-SKL-SUB                                 2
031200     PERFORM CCVS-INIT-FILE 9 TIMES.                              RL1174.2
031300 CCVS-INIT-FILE.                                                  RL1174.2
031400ADD1  REC-SKL-SUB                                    RL11742
031500     MOVE    FILE-RECORD-INFO-SKELETON                            RL1174.2
031600          TO FILE-RECORD-INFO (REC-SKL-SUB).                      RL1174.2
C                                                  .
031800     GO TO CCVS1-EXIT.                                            RL1174.2
031900 CLOSE-FILES.                                                     RL1174.2
032000                                                      
057100java.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 80
032200     EXIT
032300 TERMINATE-CALL.                                                  RL1174.2
032400     STOP     .RL1174.2
032500 INSPT.PERFORM.RL1174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
 OPEN-FILES.                                                     .
032700 FAIL.  MOVE     OUTPUT PRINT-FILE.057700" PAR-NAME                             .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
 E-LETEMOVE"**"TOP-OR-F    DELETE-COUNTER.
032900     030900     MOVESPACE TO TEST-RESULTS.                               .2
T-DETAIL                                                    
033100IFREC-CT NOT EQUAL TO                                   .2
033200MOVE"RL1174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
033300             MOVE REC-CT TO DOTVALUE.                             RL1174.2
033400     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      RL1174.2
OR-F TO"*                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
033600        PERFORMFAIL-ROUTINE THRU 058300 REL-INIT-3-A.                                   2
033700          ELSE PERFORM031700CCVS-INIT-EXIT.                                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
033800     MOVE SPACE TO P-OR-F. MOVE 058500REL-DELETE-3.                                                    .2
033900PERFORMEND-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.RL1174.2
034000     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         RL1174032100 PERFORM .RL1174.2
034100     MOVESPACE  RE-MARK                                   .
034200 HEAD-ROUTINE.                                                    RL1174.2
034300     MOVE CCVS-H-1  TO DUMMY-RECORD.032300 TERMINATE-CALL.RL1174.2
034400     MOVE CCVS-H-2A TO     STOPRUN                                                
034500     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  RL1174.2
034600     MOVE CCVS-H-3  032600PASS  MOVE "PASS"TO P-OR-F. ADD                           2
034700 COLUMN-NAMES-ROUTINE059300              FAILRL11742
034800     MOVECCVS-C-1  DUMMY-RECORD.PERFORM .RL1174059400PERFORM                                  RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
034900     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 059600            PERFORM                                          .
035000     MOVE HYPHEN-LINE TO . WRITE-LINE            RL1174.
035100 END-ROUTINE.RL1174.2
035200     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.RL1174.2
035300 END-RTN-EXIT.RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
035400     MOVECCVS-E-1 DUMMY-RECORD. PERFORM WRITE-LINE2TIMES   RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
033300             REC-CTDOTVALUE.RL1174
035600      ADD ERROR-COUNTER TO ERROR-HOLD ADD033400MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.     RL1174.2
035700      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               RL1174.2
035800     ADDPASS-COUNTERTO ERROR-HOLD.                             RL1174.2
035900*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   RL1174.2
036000        TOCCVS-E-4-1                            2
036100     06030099 RL11742
036200      MOVE CCVS-E-4 TO CCVS-E-2-2.                                RL1174.2
036300      MOVE 060400     GO TO CLOSE-FILES                                           034000     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         RL1174
036400  END-ROUTINE-12.                                                 RL1174.2
036500      MOVE TEST)FAILED" TO ENDER-DESC.                        RL1174.2
036600     IF       ERROR-COUNTER IS EQUAL TO ZERO                      RL1174.2
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036800         ELSE                                                          CCVS-H-2ATO DUMMY-RECORD.PERFORM WRITE-LINETIMES. RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
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.                                                  .2
037300     IF DELETE-COUNTER IS EQUAL TO ZERO                           RL1174.2
037400         MOVE N  TO ERROR-TOTAL  ELSE                          .2
037500         MOVE DELETE-COUNTER TO ERROR-TOTAL035000     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        RL1174.2
037600     MOVE "TEST(S) DELETED     " TO ENDER-DESC.                   RL1174.2
037700.           RL1174.2
037800      IF   INSPECT-COUNTER EQUAL TO ZERO035300END-RTN-EXIT                                                    
037900MOVE"O" ERROR-TOTAL                               .2
038000      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   RL1174.2
038100      MOVE R       ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      RL1174.2
038200      MOVE CCVS-E-2 TODUMMY-RECORD. PERFORM WRITE-LINE.          RL1174.2
.2
038400 WRITE-LINE.                                                      RL1174.2
038500ADD 1 TO RECORD-COUNT.                                       RL1174.2
038600     IF RECORD-COUNT GREATER 50                                   RL1174.2
038700         MOVE DUMMY-RECORD 036100MOVEERROR-HOLD TO CCVS-E-4-2.                              RL1174.2
038800.2
038900         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  RL1174.2
039000         MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM036300MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           RL1174.2
039100.2
039200         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          RL1174.2
039300MOVE TO                           RL1174.2
039400         MOVE      IF       ERROR-COUNTER EQUAL TO ZERO                      2
039500     036700MOVE" "TOERROR-TOTALRL11742
039600 WRT-LN.                                                          RL1174.ELSERL1174.2
039700     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES036900         MOVEERROR-COUNTER RL1174.2
039800     MOVE SPACE TO DUMMY-RECORD.                                       MOVE     CCVS-E-2 TODUMMY-RECORD.                           RL1174.2
039900 BLANK-LINE-PRINT.                                                RL1174.2
040000     PERFORM WRT-LN.                                               DELETE-COUNTER IS EQUAL TOZERO                           .
040100 FAIL-ROUTINE.RL1174.2
040200     IF     COMPUTED-X NOT EQUAL TO SPACE                         RL1174.2
040300            GO TO   FAIL-ROUTINE-WRITE.                           RL1174.2
040400     IF     CORRECT-X NOT EQUAL TO037500          DELETE-COUNTER TO ERROR-TOTAL.                      RL1174.2
040500     MOVE   ANSI-REFERENCE TOINF-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.037800IFINSPECT-COUNTER EQUAL TO ZERO                          RL1174.2
E-EX.                                      2
041000 FAIL-ROUTINE-WRITE.                                              RL1174.2
041100     MOVE        INSPECT-COUNTERINSPECT-COUNTER TO ERROR-TOTAL.                   RL1174.2
041200     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 RL1174.2
041300     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2RL1174.2
041400     MOVE   SPACES TO COR-ANSI-REFERENCE.                         RL1174.2
041500 FAIL-ROUTINE-EX. EXIT.                                           ADD 1 TO RECORD-COUNT.                                       RL1174
041600 BAIL-OUT.                                                        DUMMY-RECORD TO DUMMY-HOLD                          RL1174.2
041700     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   RL1174.2
041800     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           RL1174.2
041900 BAIL-OUT-WRITE.                                                  RL1174.2
042000     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  RL1174.2
042100        ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 RL1174.2
042200     MOVE   XXINFO TO DUMMY-RECORDMOVEHYPHEN-LINE DUMMY-RECORD PERFORMWRT-LN          2
042300     MOVE   SPACES TO INF-ANSI-REFERENCE.                         RL1174.2
042400 BAIL-OUT-EX. EXIT.                                               RL1174.
042500 CCVS1-EXIT.                                                      RL1174.2
     EXIT.                                                        RL1174.2
042700 SECT-RL117A-001 SECTION.                                         RL1174.2
042800 REL-INIT-009.                                                    RL1174.2
042900      4.8.4 "TO ANSI-REFERENCE.               RL1174.2
043000     MOVE    "REL-TEST-009" TO PAR-NAME.                          RL1174.2
043100     MOVE     "CREATE RL-FD2" TO  FEATURE                         RL1174.2
043200     MOVE     "RL-FD2"        TO  XFILE-NAME (2).                 RL1174.2
043300     MOVE     "R1-F-G"        TO  XRECORD-NAME (2).               RL1174.2
043400     MOVE     CCVS-PGM-ID     TO  XPROGRAM-NAME (2).              RL1174.2
043500     MOVE     000240          TO  XRECORD-LENGTH (2).             RL1174.2
043600     MOVE     "RC"            TO  CHARS-OR-RECORDS (2040200IFCOMPUTED-X                             java.lang.StringIndexOutOfBoundsException: Range [79, 78) out of bounds for length 80
043700     MOVE     0001            TO  XBLOCK-SIZE       (2).          RL1174.2
043800          000500            RECORDS-IN-FILE  (2).          RL1174.2
043900     MOVE     "RL"            TO  XFILE-ORGANIZATION (2).         RL1174.2
044000     MOVE     "S"             TO  XLABEL-TYPE        (2).         RL1174.2
044100     MOVE     000001          TO  XRECORD-NUMBER     (2).         RL1174.2
044200*INITIALIZE  RECORD WORK AREA NUMBER 2.                           RL1174.2
044300     MOVE     1         TO  WRK-CS-09V00-012.                     RL1174.2
044400     MOVE     ZERO      TO  WRK-CS-09V00-013 WRK-CS-09V00-014     RL1174.2
044500                            WRK-CS-09V00-015 WRK-CS-09V00-016     RL1174.2
044600                            WRK-CS-09V00-017 WRK-CS-09V00-018.    RL1174.2
044700     MOVE     SPACE     TO  RL-FD2-STATUS.                        RL1174.2
044800     MOVE     90000002  TO  RL-FD2-KEY.                           RL1174.2
044900     MOVE     01 TO REC-CT.                                       RL1174.2
045000          OUTPUT    RL-FD2.                                  .
045100     MOVE     RL-FD2-STATUS TO 041300MOVE  TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES.RL1174.2
045200*CAPTURE STATUS KEY AFTER  OPEN STATEMENT IS EXECUTED.            RL1174.2
045300 REL-TEST-009-R.                                                  RL1174.2
045400     MOVE XRECORD-NUMBER (2) TO RL-FD2-KEY.                       RL1174.2
045500     MOVE    "99"  TO RL-FD2-STATUS.                              RL1174.2
045600     java.lang.StringIndexOutOfBoundsException: Range [65, 15) out of bounds for length 80
045700     MOVE     FILE-RECORD-INFO-P1-120 (2) TO                      RL1174.2
045800               RL-FD2-GRP-120.                                    RL1174.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-STATUS NOT EQUAL TO "00"                    RL1174.2
046200              GO TO  REL-TEST-009-2.                              RL1174.2
046300 500                     RL1174.2
046400             GO TO REL-TEST-009-2.                                RL1174.2
046500     ADD      01 TO  XRECORD-NUMBER (2).                          RL1174.2
046600     GO TO    REL-TEST-009-R.                                     RL1174.2
046700 REL-TEST-009-2.                                                  RL1174.2
     IF      WRK-CS-09V00-014 NOT EQUAL TO                   RL1174.2
046900              MOVE "EXCEPTIONS/ERRORS" TO RE-MARK                 RL1174.2
047000              MOVE ZERO TO CORRECT-18V0                           RL1174.2
K-CS-09V00-014TO COMPUTED-18V0              RL1174.
047200              PERFORM   FAIL                                           MOVE    "REL-TEST-009"TOPAR-NAME.                          RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
047300              ELSE                                                RL1174.2
047400              PERFORM   PASS.RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
047500     PERFORM  PRINT-DETAIL.                                       RL1174.2
047600     ADD      01 TO REC-CT.                                       RL1174.2
047700*    .01                                                          RL1174.2
047800     IF       XRECORD-NUMBER (2) NOT EQUAL TO 500                 RL1174.2
047900              MOVE "INCORRECT 043500     MOVE     000240          TO XRECORD-LENGTH (2).             RL1174.2
048000              MOVE  500 TO CORRECT-18V0                           RL1174.2
048100             MOVE    XRECORD-NUMBER (2)  TO COMPUTED-18V0         RL1174.2
048200              PERFORM  FAIL                                       .2
048300              ELSE                                                RL1174.2
048400              PERFORM PASS.                                       RL1174.2
048500     PERFORM  PRINT-DETAIL     MOVE""             TO  XLABEL-TYPE        2.RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
048600     ADD      01 TO REC-CT.                                       RL1174.2
048700*    .02                                                          RL1174.2
048800     IF       WRK-XN-0002-001 NOT EQUAL TO  "00"                  RL1174.2
048900              MOVE "STATUS/OPEN" TO RE-MARK                       RL1174.2
049000              MOVE WRK-XN-0002-001 TO COMPUTED-A                  RL1174.2
049100              MOVE "00" TO CORRECT-A                              RL1174.2
049200              PERFORM  FAIL                                       RL1174.2
049300              ELSE                                                2
049400              044900     MOVE     01 TOREC-CT.                                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049500     PERFORM  PRINT-DETAIL.                                       RL1174.2
049600     ADD       TO REC-CT.                                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049700*    .03                                                          RL1174.2
049800     IF        RL-FD2-STATUS NOT EQUAL TO "0"                    RL1174.2
049900              MOVE "STATUS/WRITE" TO RE-MARK                      RL1174.2
050000              MOVE RL-FD2-STATUS TO COMPUTED-A                    RL1174.2
050100              MOVE "00" TO CORRECT-A                              RL1174.2
050200              PERFORM   FAIL                                      RL-FD2-GRP-120.                                    RL1174.2
050300              ELSE                                                RL1174.2
050400              PERFORM   PASS.                                     RL1174.2
050500     PERFORM  PRINT-DETAIL.                                       RL1174.2
050600     ADD      01TO .RL1174.2
050700*    .04                                                          RL1174.2
050800     MOVE     SPACE      XRECORD-NUMBER (2) EQUAL TO                      .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050900     CLOSE     ADD      01TO XRECORD-NUMBER 2)                          .2
051000     IF        RL-FD2-STATUS NOT EQUAL TO046600GO    REL-TEST-009-R.                                    RL1174.2
051100              MOVE "CLOSE/STATUS" TO RE-MARKRL1174.
051200              MOVE        IF       WRK-CS-09V00-014 EQUAL  ZERO                  2
051300              MOVE "/ERRORS" TO RE-MARK                 RL1174.2
051400              PERFORM FAIL                                        RL1174.2
051500              ELSE                                                .
051600              PERFORM PASS.                                       RL1174.2
051700     PERFORM  PRINT-DETAIL.                                       RL1174.2
051800*                                                                 RL1174.2
051900 REL-INIT-1.                                                      RL1174.2
052000     MOVE   "REL-TEST-1" TO PAR-NAME.                             RL1174.2
052100     MOVE   "VII-3 1..4 2" TO .                   RL1174.2
052200     MOVE    0 TO REC-CT.                                         RL1174.047500    PERFORM  PRINT-DETAIL.RL1174.2
052300     OPEN    I-O  RL-FD3.                                         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.047800           XRECORD-NUMBER ()NOT EQUALTO                  RL1174.2
052700     GO TO REL-DELETE-1.047900             MOVE"INCORRECT COUNT" TO RE-MARK                   RL1174.2
052800 REL-INIT-1-BETA.                                                 RL1174.2
052900     MOVE    SPACE TO RL-FD3-STATUS.                              RL1174.2
053000     PERFORM REL-INIT-1-A 501 TIMES.                              RL1174.2
053100     GO TO   REL-TEST-1.                                          RL1174.2
053200 REL-INIT-1-A.                                                    RL1174.2
053300         RL-FD3 AT END  TO
053400 REL-DELETE-1.                                                    RL1174.2
053500     048600     ADD    ADD      01TO .RL1174.2
053600     PERFORM PRINT-DETAIL.                                        RL1174.2
053700      TOREL-INIT-2.                                          RL1174.2
053800 REL-TEST-1.                                                      RL1174.2
053900     IFRL-FD3-STATUS NOT 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   "10" TO CORRECT-A                             RL1174.2
054300PERFORM                                         RL1174
054400             PERFORM PRINT-DETAIL                                 RL1174.2
054500049200                FAIL                                       2
054600             PERFORM PASS                                         RL1174.2
054700             PERFORM PRINT-DETAIL.                                RL1174.2
054800*                                                                 RL1174.2
054900      PERFORMPRINT-DETAIL..                                       .2
055000     MOVE   REL-TEST-2" TO                              .2
055100     MOVE   "VII-3 1.3.4 2D" TO ANSI-REFERENCE.                   RL1174.2
055200     MOVE    SPACE TO RL-FD3-STATUS.                              RL1174.2
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 REL-DELETE-2.                                          RL1174.2
055700 REL-INIT-2-BETA.                                                 RL1174.2
055800     READ    RL-FD3   AT END GO TO REL-TEST-2.                    RL1174.2
055900     GO TO   REL-TEST-2.                                          RL1174050200PERFORMFAIL                                      RL1174.
056000 REL-DELETE-2.                                                    RL1174.2
056100     PERFORM DE-LETE.                                             RL1174.2
056200     PERFORM PRINT-DETAIL.                                        .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
056300     GO TO   REL-INIT-3.                                          RL1174.2
056400 REL-TEST-2.                                                      RL1174.050700*    .04                                                          RL1174.2
056500     IF      RL-FD3-STATUS NOT EQUAL  TO "46"                     RL1174.2
056600             MOVE   "SEQUENTIAL READ 051000     IF        RL-FD2-STATUS NOT EQUAL TO RL-FD2-STATUS NOT EQUAL TO "00"                    RL1174.2
056700                  TORE-MARK                                      .
056800MOVE    RL-FD3-STATUS TO COMPUTED-A                  RL1174.2
056900             MOVE   46"TO CORRECT-A                             .2
057000.2
057100             PERFORM PRINT-DETAIL                                 RL1174.2
                                                              
057300PERFORMPASS.RL1174.
057400             PERFORM PRINT-DETAIL.                                RL1174.2
057500*                                                                 RL1174.2
057600 REL-INIT-3.                                                      RL1174.2
057700     MOVE   "REL-TEST-3" TO PAR-NAME.                             RL1174.2
057800     MOVE   "VII-3 1.3.4 2B" TO ANSI-REFERENCE.                   RL1174.2
057900     CLOSE   RL-FD3.                                              RL1174.2
058000     OPEN    INPUT RL-FD3.                                        RL1174.2
058100     PERFORM REL-INIT-3-A 100 TIMES.                              RL1174.2
058200     GO TO   REL-TEST-3.                                          RL1174.2
058300 REL-INIT-3-A.                                                    RL1174.2
058400     READ    RL-FD3 RECORD                                        .2
058500 REL-DELETE-3.                                                    2
058600     PERFORM DE-LETE.                                             RL1174.2
058700     PERFORM PRINT-DETAIL.                                        RL1174.2
058800     GO TO   RL-TEST-3-EXIT.                                      RL1174.2
058900REL-TEST-3.                                                      RL1174.2
059000     IF      RL-FD3-STATUS NOT EQUAL       GO TO   REL-TEST-1.                RL1174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
059100             MOVE    RL-FD3-STATUS TO COMPUTED-A                           RL-FD3 AT END  TO REL-TEST-1.                      RL1174.2
059200             MOVE   "14" TO CORRECT-A                             RL1174.2
059300             PERFORM FAIL                                         053400 REL-DELETE-1.                                                    RL1174.2
059400             PERFORM PRINT-DETAIL                                 RL1174.2
059500     ELSE                                                         RL1174.2
   PERFORM PASS                                         .2
059700             PERFORM PRINT-DETAIL                                 RL1174.2
059800     CLOSE   RL-FD3.                                              RL1174.2
                                          RL1174.2
060000     EXIT.                                                        RL1174.2
060100*                                                                 RL1174.2
060200 CCVS-EXIT SECTION.                                               RL1174.2
060300 CCVS-999999.                                                     RL1174.2
060400       CLOSE-FILES.RL1174.2