Quelle  ix217a.cob

000100 IDENTIFICATION DIVISION.                                         IX2174.2
000200 PROGRAM-ID.                                                      IX2174.2
000300     IX217A.                                                      IX2174.2
000400****************************************************************  IX2174.2
000500*                                                              *  IX2174.2
000600*    VALIDATION FOR:-                                          *  IX2174.2
000700*                                                              *  IX2174.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX2174.2
000900*                                                              *  IX2174.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IX2174.2
001100*                                                              *  IX2174.2
001200****************************************************************  IX2174.2
001300*                                                                 IX2174.2
001400*                      THE FUNCTION OF THIS PROGRAM IS TO CREATE  IX2174.2
001500*     THE  OPTIONAL  BUT  NOT EXISTING INDEXED FILES BY THE OPEN  IX2174.2
001600*     I-O  AND  THE OPEN EXTEND STATEMENTS. THE FILE STATUS CODE  IX2174.2
001700*     FOR  BOTH  FILES  MUST  BE  "05" AFTER PROCESSING THE OPEN  IX2174.2
001800*     STATEMENT. FILE IX-FS1 CONTAINS 50 RECORDS AFTER CORRECT    IX2174.2
001900*     EXECUTION AND FILE IX-VS1 CONTAINS 25 LONG RECORDS (240)    IX2174.2
002000*     AND 25 SHORT RECORDS (200) AFTER CORRECT EXECUTION.         IX2174.2
002100*                                                                 IX2174.2
002200*                                                                 IX2174.2
002300*       X-CARDS  WHICH MUST BE REPLACED FOR THIS PROGRAM ARE      IX2174.2
002400*                                                                 IX2174.2
002500*             X-24   INDEXED FILE IMPLEMENTOR-NAME IN ASSGN TO    IX2174.2
002600*                    CLAUSE FOR DATA FILE IX-FS1                  IX2174.2
002700*             X-25   INDEXED FILE IMPLEMENTOR-NAME IN ASSGN TO    IX2174.2
002800*                    CLAUSE FOR DATA FILE IX-VS1                  IX2174.2
002900*             X-44   INDEXED FILE IMPLEMENTOR-NAME IN ASSGN TO    IX2174.2
003000*                    CLAUSE FOR INDEX FILE IX-FS1                 IX2174.2
003100*             X-45   INDEXED FILE IMPLEMENTOR-NAME IN ASSGN TO    IX2174.2
003200*                    CLAUSE FOR INDEX FILE IX-VS1                 IX2174.2
003300*             X-55   IMPLEMENTOR-NAME FOR SYSTEM PRINTER          IX2174.2
003400*             X-82   IMPLEMENTOR-NAME FOR SOURCE-COMPUTER         IX2174.2
003500*             X-83   IMPLEMENTOR-NAME FOR OBJECT-COMPUTER         IX2174.2
003600*                                                                 IX2174.2
003700*         NOTE:  X-CARDS 44 AND 62          ARE OPTIONAL          IX2174.2
003800*               AND NEED ONLY TO BE PRESENT IF THE COMPILER RE-   IX2174.2
003900*               QUIRES THIS CODE BE AVAILABLE FOR PROPER PROGRAM  IX2174.2
004000*               COMPILATION AND EXECUTION. IF THE VP-ROUTINE IS   IX2174.2
004100*               USED THE  X-CARDS MAY BE AUTOMATICALLY SELECTED   IX2174.2
004200*               FOR INCLUSION IN THE PROGRAM BY SPECIFYING THE    IX2174.2
004300*               APPROPRIATE LETTER IN THE "*OPT" VP-ROUTINE       IX2174.2
004400*               CONTROL CARD. THE LETTER  CORRESPONDS TO A        IX2174.2
004500*               CHARACTER IN POSITION 7 OF THE SOURCE LINE AND    IX2174.2
004600*               THEY ARE AS FOLLOWS                               IX2174.2
004700*                                                                 IX2174.2
004800*                  J  SELECTS X-CARD 44                           IX2174.2
004900*                  J  SELECTS X-CARD 45                           IX2174.2
005000*                  C  SELECTS X-CARD 84                           IX2174.2
005100*                                                                 IX2174.2
005200******************************************************            IX2174.2
005300 ENVIRONMENT DIVISION.                                            IX2174.2
005400 CONFIGURATION SECTION.                                           IX2174.2
005500 SOURCE-COMPUTER.                                                 IX2174.2
005600     Card0130.                                                    IX2174.2
005700 OBJECT-COMPUTER.                                                 IX2174.2
005800     Card0131.                                                    IX2174.2
005900 INPUT-OUTPUT SECTION.                                            IX2174.2
006000 FILE-CONTROL.                                                    IX2174.2
006100     SELECT PRINT-FILE ASSIGN TO                                  IX2174.2
006200     "C0085" .                                                    IX2174.2
006300                                                                  IX2174.2
006400     SELECT OPTIONAL   IX-FS1 ASSIGN TO                           IX2174.2
006500     XXXXP024                                                     IX2174.2
006600     XXXXP044                                                     IX2174.2
006700     ORGANIZATION IS INDEXED                                      IX2174.2
006800     RECORD KEY IS IX-FS1-KEY                                     IX2174.2
006900     ACCESS MODE IS DYNAMIC                                       IX2174.2
007000     FILE STATUS IS IX-FS1-STATUS.                                IX2174.2
007100                                                                  IX2174.2
007200     SELECT OPTIONAL   IX-VS1 ASSIGN TO                           IX2174.2
007300     XXXXP025                                                     IX2174.2
007400     XXXXP045                                                     IX2174.2
007500     ORGANIZATION IS INDEXED                                      IX2174.2
007600     RECORD KEY IS IX-VS1-KEY                                     IX2174.2
007700     ACCESS MODE IS SEQUENTIAL                                    IX2174.2
007800     FILE STATUS IS IX-VS1-STATUS.                                IX2174.2
007900                                                                  IX2174.2
008000 DATA DIVISION.                                                   IX2174.2
008100FILE.                                                    IX2174.2
008200 FD.                                                  IX2174
008300 01  PRINT-REC PICTURE X(120).                                    IX21742
008400 01  DUMMY-RECORD PICTURE X(120).                                 IX2174.2
008500                                                                  IX2174.2
008600 FD  IX-FS1                                                       IX2174.2
008700     LABEL RECORD IS STANDARD                                     IX2174.2
008800     DATA RECORD IS IX-FS1R1-F-G-240                              IX2174.2
008900     BLOCK CONTAINS 1 RECORDS                                     IX2174000600*    VALIDATION FOR:-                                          *  IX2174.2
009000     RECORD CONTAINS 240 CHARACTERS001200***********01300*                                                                 IX2174.2
009100 01  IX-FS1R1-F-G-240.                                            IX2174.2
009200     03 IX-FS1-WRK-120ORDS (200) AFTER CORRECT002100*                                                                 IX2174.2
009300002500*             X-24   INDEXED FILE002600*                    CLAUSE FOR DATA FILE002700*             002800*                    CLAUSE002900*             X-44003000*                    CLAUSE FOR INDEX FILE003100*             X-45   INDEXED003200*                    CLAUSE FOR INDEX FILE IX-VS1                 IX2174.2
009400     05 FILLER   PIC004800*                  J  SELECTS X-CARD 44004900*                  J  SELECTS X-CARD 45                           IX2174005000*                  C  SELECTS X-CARD 84                           IX2174.2
009500      IX-FS1-KEY   X()                                    .2
009600     05 FILLERPIC()                                         .2
009700                                                                  IX21742
009800 FD  IX-VS1 .                                                 .2
009900     LABEL RECORD IS STANDARD                                     IX2174.2
010000     DATA RECORD IS  SECTION                                            .2
010100     BLOCK CONTAINS 1 RECORDS                                     IX2174.2
010200     RECORDVARYING  200 TO 240  REC-LENGTH             .2
010300IX2174.2
010400 01  IX-VS1R1-F-G-240.                                            IX2174.2
010500     03 IX-VS1-WRK-120 X(120)                                .2
VS1-GRP-120.IX2174.2
010700        05 FILLER   PIC   X(8).                                   IX2174.2
010800        05 IX-VS1-KEY  PIC X(29).                                 IX2174.2
010900        05 FILLER PIC X(83).                                      IX2174.2
011000                                                                  IX2174IS                                    .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01110001IX-VS1R1-F-G-200IX2174
011200  X)java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
011300     03 IX-VS1-GRP-80.                                            IX2174.2
       05 FILLER      X()                                   .2
011500           PIC()                                 .2
011600        05 VIERZIG PIC X(43).                                     IX2174.2
011700                                                                  IX2174.2
011800 WORKING-STORAGE SECTION.                                         IX2174.2
011900          PIC  ZERO                        IX2174.2
012000 01  STATUS-ERROR     PIC    9 VALUE ZERO.                        IX2174.2
012100 01  GRP-0101.                                                    IX2174.2
012200     02 FILLERPICX(10  VALUE "ABCDLKJXYZ".                   .2
012300     02 WRK-DU-09V00-001 PIC 9(9)VALUEZEROIX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01240002 FILLER   X10   "ZIF,$+CD.                    IX2174.2
012500 01  FILE-RECORD-INFORMATION-REC     IX-FS1-KEY X29.IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
      .                                IX2174
012700                          PICTURE48              IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012800             "FILE=      ,RECORD=      /0,RECNO=000000,UPDT=00".  IX2174.2
012900        05 FILLER                 PICTURE X(46)       VALUE       IX2174.2
013000             ,=,=,=,  0000.    IX2174
013100        05 FILLER                 PICTURE X(26)       VALUE       IX2174BLOCK 1RECORDS.2
013200             "LFIL=,ORG  LBLR .IX2174.2
013300        05 FILLER                 PICTUREX37              .2
013400             ",RECKEY=                             ".             IX2174.2
013500        05 FILLER                 PICTURE X(38)       VALUE       IX2174.01040001  .                                            .2
013600",=                             .            IX21742
013700        05 FILLER                 PICTURE X(38)       VALUE       IX2174.2
013800             ",ALTKEY2=                             ".            IX2174.2
                 PICTURE X()VALUE.IX21742
014000     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              IX2174.2
014100         FILE-RECORD-INFO-P1-120.                               .2
014200           07 FILLER              PIC X(5).                       IX2174.2
014300           07 XFILE-NAME           PIC X(6).                      IX2174.2
014400           07 FILLER              PIC01  .                                            .2
014500           07 XRECORD-NAME         PIC X(6).                      IX2174.2
014600           07 FILLER              PIC X(1).                       IX2174      (.IX2174
01470001160005  PIC43.IX2174
014800           07011700                                                                  .2
014900                   PIC 9                      .2
015000           07 FILLER              PIC X(6).                       IX2174012000 01       PIC    9 VALUE .                        IX21742
015100           07 UPDATE-NUMBER       PIC 9(2).                       IX2174.2
015200           07 FILLER        PIC()VALUE ZIF+"                    IX2174.2
                      PIC9()                       .2
015400           07 FILLER              PIC X(5).                       IX2174.2
015500           07 XPROGRAM-NAME        PIC X(5).                      IX2174.2
015600           07 FILLER               X(7).                       IX21742
015700           07 XRECORD-LENGTH       PIC 9(6).                      IX2174.2
015800           07 FILLER             "=,=     ,=,BLKSIZ  =0000.IX21742
015900           07 CHARS-OR-RECORDS    PIC X(             LFIL"                        .2
           FILLER (                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
1610007 XBLOCK-SIZE          PIC94.IX2174
016200           07 FILLER              PIC X(6).                       IX217401370005FILLERPICTURE()VALUE.2
016300           07 RECORDS-IN-FILE     PIC 9(6).                       IX2174.2
016400           07 FILLER              PIC X(5).                       IX2174.2
016500           07 XFILE-ORGANIZATION   PIC X(2).                      IX2174.2
016600           07               PIC()                       IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
016700           07XLABEL-TYPEPICX1.IX2174
016800        05 FILE-RECORD-INFO-P121-240.                             IX2174.2
016900           07 FILLER              PIC X(8).                       IX2174.2
017000            XRECORD-KEY           X()                     IX2174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
017100           07 FILLER              PIC X(9).                       IX2174.2
017200           07 ALTERNATE-KEY1      PIC X(29).                      IX2174.2
017300           07 FILLER              PIC X(9).                       IX2174.2
017400           07 ALTERNATE-KEY2      PIC X(29).                      IX2174.2
017500           07 FILLER              PIC X(7).                       IX2174.2
017600                                                                  IX2174.2
017700 01  IX-FS1-STATUS.                                               IX2174.2
017800     05  IX-FS1-STAT1        PIC X.                               IX2174.2
017900     05  IX-FS1-STAT2        PIC X.                               IX2174.2
018000                                                                  IX2174.2
018100 01  IX-VS1-STATUS.                                               IX2174.2
018200     05  IX-VS1-STAT1        PIC X.                               IX2174.2
018300     05  IX-VS1-STAT2        PIC X.                               IX2174.2
018400                                                                  IX2174.2
018500 01  TEST-RESULTS.                                                IX2174.2
018600     02 FILLER                   PIC X      VALUE SPACE.          IX2174.2
018700     02 FEATURE                  PIC X(20)  VALUE SPACE.          IX2174.2
018800     02 FILLER                   PIC X      VALUE SPACE.          IX2174.2
018900     02 P-OR-F                   PIC X(5)   VALUE SPACE.          IX2174.2
019000     02 FILLER                   PIC X      VALUE SPACE.          IX2174.2
019100     02  PAR-NAME.                                                IX2174.2
019200       03 FILLER                 PIC X(19)  VALUE SPACE.          IX2174.2
019300       03  PARDOT-X              PIC X      VALUE SPACE.          IX2174.2
019400       03 DOTVALUE               PIC 99     VALUE ZERO.           IX2174.2
019500     02 FILLER                   PIC X(8)   VALUE SPACE.          IX2174.2
019600     02 RE-MARK                  PIC X(61).                       IX2174.2
019700 01  TEST-COMPUTED.                                               IX2174.2
019800     02 FILLER                   PIC X(30)  VALUE SPACE.          IX2174.2
019900     02 FILLER                   PIC X(17)  VALUE                 IX2174.2
020000            "       COMPUTED=".                                   IX2174.2
020100     02 COMPUTED-X.                                               IX2174.2
020200     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          IX2174.2
020300     03 COMPUTED-N               REDEFINES COMPUTED-A             IX2174.2
020400                                 PIC -9(9).9(9).                  IX2174.2
020500     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         IX2174.2
020600     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     IX2174.2
020700     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     IX2174.2
020800     03       CM-18V0 REDEFINES COMPUTED-A.                       IX2174.2
020900         04 COMPUTED-18V0                    PIC -9(18).          IX2174.2
021000         04 FILLER                           PIC X.               IX2174.2
021100     03 FILLER PIC X(50) VALUE SPACE.                             IX2174.2
021200 01  TEST-CORRECT.                                                IX2174.2
021300     02 FILLER PIC X(30) VALUE SPACE.                             IX2174.2
021400     02 FILLER PIC X(17) VALUE "       CORRECT =".                IX2174.2
021500     02 CORRECT-X.                                                IX2174.2
021600     03 CORRECT-A                  PIC X(20) VALUE SPACE.         IX2174.2
021700     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      IX2174.2
021800     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         IX2174.2
021900     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     IX2174.2
022000     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     IX2174.2
022100     03      CR-18V0 REDEFINES CORRECT-A.                         IX2174.2
022200         04 CORRECT-18V0                     PIC -9(18).          IX2174.2
022300         04 FILLER                           PIC X.               IX2174.2
022400     03 FILLER PIC X(2) VALUE SPACE.                              IX2174.2
022500     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     IX2174.2
022600 01  CCVS-C-1.                                                    IX2174.2
022700     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE              PAIX2174.2
022800-    "SS  PARAGRAPH-NAME                                          IX2174.2
022900-    "       REMARKS".                                            IX2174.2
023000     02 FILLER                     PIC X(20)    VALUE SPACE.      IX2174.2
023100 01  CCVS-C-2.                                                    IX2174.2
023200     02 FILLER                     PIC X        VALUE SPACE.      IX2174.2
023300     02 FILLER                     PIC X(6)     VALUE "TESTED".   IX2174.2
023400     02 FILLER                     PIC X(15)    VALUE SPACE.      IX2174.2
023500     02 FILLER                     PIC X(4)     VALUE "FAIL".     IX2174.2
023600     02 FILLER                     PIC X(94)    VALUE SPACE.      IX2174.2
023700 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       IX2174.2
023800 01  REC-CT                        PIC 99       VALUE ZERO.       IX2174.2
023900 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       IX2174.2
024000 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       IX2174.2
024100 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       IX2174.2
024200 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       IX2174.2
024300 01  TOTAL-ERRORPIC 999      VALUE
   ERROR-HOLDPICVALUE.       IX2174
024500 01  DUMMY-HOLD                    PIC X(120)   VALUE                          PICX1.                       IX2174.2
024600 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       IX2174.2
024700 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES07REELUNIT-NUMBER 9(1.IX21742
024800 01  CCVS-H-1.                                                    IX2174.2
024900     02  FILLER                    PIC X()     SPACES.     IX2174.2
025000     02  FILLER                    PIC X(42)    VALUE015000            FILLER              PIC (6.                       .2
025100     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 IX2174.2
025200     02FILLER                     X(39    VALUESPACESIX2174
025300 01  CCVS-H-2A 9()                       .2
   02  FILLER X40   SPACE      IX2174.2
025500   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  IX2174.2
025600   02  FILLER                        PIC XXXX   VALUE             IX2174.2
025700     "4.2 ".                                                      IX2174.2
025800   02  FILLER                        PIC X(28)  VALUE             IX2174.2
025900            " COPY - NOT FOR DISTRIBUTION".                       IX2174.2
026000   02  FILLER                        PIC X(41)  VALUE SPACE.      IX2174.2
026100                                                                  IX2174.2
026200 01  CCVS-H-2B.                                                   IX2174.2
026300   02  FILLER                        PIC X(15)  VALUE             IX2174                 PIC96.IX2174
026400            "TEST RESULT OF ".                                    .2
026500   01670007           PICX1)                      .2
026600   02  FILLER                        PIC X(4)   VALUE             IX2174.2
026700            " IN ".                                               IX2174.2
026800   02  FILLER                        PIC X(12)  VALUE             IX217407FILLER X(9.IX2174
026900     "HIGH       ".                                              .2
027000   02  FILLER                        07ALTERNATE-KEY2().                      .2
             LEVEL ".                             IX21742
027200   02  FILLERPICX58               IX2174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
027300     "ON-SITE VALIDATIONIX21742
027400 01  CCVS-H-3.                                                    IX2174.2
027500     02  FILLER                      PIC X(34)  VALUE             IX2174                  PIC(   SPACE          IX21742
027600               USE.IX2174
027700     02  FILLER                      PIC X(5801900002FILLERPIC      VALUESPACE          IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
"   4.2,Apr1993SSVG"IX2174
027900     02  FILLER                      PIC X(28)  VALUE             IX2174.2
028000            01950002FILLERPIC)VALUE.          IX2174
028100 01  CCVS-E-1.                                                    IX2174.2
                              X52) SPACE.2
       PIC) IS"  TEST-                
028400     02 ID-AGAIN                     PIC X(9).                    IX2174.2
028500     02 FILLER                       PIC X( .                                               .2
028600 01CCVS-E-2IX2174
028700     02  FILLER                      PIC X(31)  VALUE SPACE.      IX2174.2
028800     02  FILLER020400PIC-(9)9().                 IX2174.2
02890002CCVS-E-2-2IX21742
029000         03 ERROR-TOTAL              PIC XXXCOMPUTED-4V14 COMPUTED-A(.(14.IX2174.2
029100         03 FILLER                   PIC X      VALUE SPACE.      IX2174.2
02920002070003COMPUTED-14V4 COMPUTED-A-().(4)     IX21742
029300            "ERRORS ENCOUNTERED".                                 IX2174.2
029400 01  CCVS-E-3.                                                    IX2174.2
029500     02  FILLER                      PIC X(22)  VALUE             IX2174.2
029600            " FOR OFFICIAL USE ONLY".                             IX2174.2
029700     02  FILLER                      PIC X(12)  VALUE SPACE.      IX2174.2
029800          02FILLER X(58               IX2174
029900"ON-SITEVALIDATION, NATIONAL INSTITUTE OF STD & TECH     "IX2174
030000                             (   SPACEIX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
     FILLERPIC)VALUE             .2
030200             " COPYRIGHT 1985".                                   IX2174.2
030300 01  CCVS-E-4.                                                    IX2174.2
03040002CCVS-E-4-1 XXXVALUE.      IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
030500     02 FILLER                       PIC X(4)   VALUE02210003CR-18V0.                         .2
030600                         PICXXX SPACE      IX2174.2
                         X40               IX2174
030800"TESTSWEREEXECUTEDSUCCESSFULLY.                       IX21742
030900 01  XXINFO.                                                      IX2174.2
031000     02 FILLER                       PIC X(19)  VALUE              01  .                                                    IX21742
031100            "*** INFORMATION ***".                                IX2174.2
031200     023300      FILLERPIC()     VALUETESTED   .2
031300                             PICX()    SPACE.      .2
031400                         PICX(20)                   .2
031500       FILLERPICX94)     SPACE.      IX2174
031600        XXCORRECT                   X20)                   .2
031700     02 INF-ANSI-REFERENCEPIC X().IX21742
031800 01  HYPHEN-LINE.                                                 IX2174.2
031900     02FILLERPICIS  IS SPACE                          .2
032000     02FILLERPIC X()     IS "******************IX2174.
032100-    "*******02410001  INSPECT-COUNTER               PIC 999VALUE ZERO.       IX2174.2
***********IX2174
032300-    "**************************PIC999VALUEZERO       .2
 01  CCVS-PGM-ID X(9   VALUE             IX2174
032500     "IX217A".                                                    .2
032600 PROCEDURE DIVISION.                                              IX2174.2
032700 CCVS1 SECTION.IX2174.2
032800 OPEN-FILES.                                                      IX2174.2
032900     OPEN    OUTPUT PRINT-FILE.                                   IX2174.2
033000     MOVE  CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO024900                           PICX39)VALUE.     IX21742
033100     MOVE    SPACE TO TEST-RESULTS.                               IX2174.2
033200     PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.              IX2174.2
033300     MOVE    ZERO TO REC-SKL-SUB.                                 IX2174.2
033400     PERFORM CCVS-INIT-FILE 9 TIMES.                              IX2174.2
            IX2174.2
033600     ADD     1 TO REC-SKL-SUB.                                    IX2174.2
033700     MOVE    FILE-RECORD-INFO-SKELETON                            IX2174.2
033800           FILE-RECORD-INFO (REC-SKL-SUB.IX2174.2
033900 CCVS-INIT-EXIT".2 ".IX2174
034000     GO     FILLER X28               IX2174
034100 CLOSE-FILES.                                                     IX2174.2
034200     PERFORM                                                                  
034300 TERMINATE-CCVS.                                                  IX2174.2                             PIC()VALUE.2
034400     STOP     RUN.                                                IX217402TEST-ID ()                    .2
034500 INSPT "INSPT" TOP-OR-F 1TO.         IX21742
034600 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           IX2174.2
IX2174.2
034800 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO                             PICX12)VALUE.2
034900     MOVE "****TEST DELETED****" TO RE-MARK.                      IX2174.2
035000 PRINT-DETAIL.                                                    IX2174.2
035100     IF REC-CT NOT EQUAL TO ZERO02FILLER ()VALUE.2
                  .2
035300             02740001  .                                                    IX2174
035400     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      IX2174.2
035500     IF P-OR-F02                         X(               IX2174
035600PERFORM THRU                 .
035700          ELSE PERFORM BAIL-OUT  FILLER                       X(28               IX21742
035800     MOVE SPACE TO 028100  .                                                    
035900     MOVE SPACE TO CORRECT-X.                                     IX2174.2
036000     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         028400     02                      PIC X(9)                    .2
036100     MOVE     SPACE TO RE-MARK.                                   IX2174.2
036200 HEAD-ROUTINE.                                                    IX2174.2
036300     MOVE CCVS-H-1  TO DUMMY-RECORD      .                                               IX2174
036400     MOVE CCVS-H-2A TO DUMMY-RECORD                              XVALUE.IX21742
036500     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM                      IX2174.2
036600     MOVE 02950002FILLER                       ()VALUE             .2
036700 COLUMN-NAMES-ROUTINE.                                            IX2174  FILLER                       X12   SPACE      .2
036800     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX2174     "N-SITEVALIDATION   OFSTD&TECH     ..2
03690003000002FILLER X13) SPACE.2
.PERFORM.        IX2174
030200"COPYRIGHT1985"                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
037200MOVE TODUMMY-RECORD  WRITE-LINE..2
037300 02FILLER X()VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
037400     MOVE CCVS-E-1.2
037500 END-ROUTINE-1.                                                   IX2174.2
037600      ADD ERROR-COUNTER"**INFORMATION **"                                .2
037700      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               IX2174.2
037800      ADD PASS-COUNTER TO03140004XXCOMPUTEDX20.                   .2
037900*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   IX2174.2
038000      MOVE PASS-COUNTER TO CCVS-E-4-1                 PIC()                   .2
038100      MOVE ERROR-HOLDFILLER  X  ISSPACE.2
       CCVS-E-4 CCVS-E-2-2.2
038300      MOVE-    ********************".                 .2
038400END-ROUTINE-12IX2174
038500      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        IX2174.2
038600     IF       ERROR-COUNTER IS EQUAL TO     IX217A.2
IX2174
038800         ELSE                                                     IX2174.2
038900         MOVE ERROR-COUNTER TO ERROR-TOTAL .                                                      IX21742
039000     MOVE     CCVS-E-2  CCVS-PGM-ID TEST-ID  TO.  IX2174
039100      WRITE-LINE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
END-ROUTINE-13IX2174
039300     IF DELETE-COUNTER 033300MOVE TO.                                 .2
039400         MOVE "NO "  .                                                  
039500         MOVE    FILE-RECORD-INFO-SKELETON.2
039600     MOVE "TEST() DELETED     " TO.                   IX21742
039700     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM033900 .                                                  IX21742
039800      IF   INSPECT-COUNTER EQUAL TO .                                                     
MOVENO  ERROR-TOTAL.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040000      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   IX2174.2
040100      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.   "***"  .ADD1TO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040200MOVE TO. .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040300     MOVEIF NOT
 .                                                      
040500      1TO                                       .2
040600     IF  42                                   .2
040700         MOVE DUMMY-RECORD TO DUMMY-HOLD                          IX2174.2
040800         MOVE SPACE TO DUMMY-RECORD                               IX2174.2
          DUMMY-RECORDADVANCING                  IX2174
041000         MOVECCVS-H-1TO  WRT-LN    IX2174
041100          CCVS-H-2A  PERFORM 2 TIMES.2
041200         MOVE CCVS-H-2B TO DUMMY-RECORDIF EQUAL ZERO  TO.         IX2174
041300         MOVE CCVS-H-3  TO DUMMY-RECORD PERFORM .                                                    .2
041400         MOVE CCVS-C-1  TO CCVS-H-2ADUMMY-RECORD  2TIMES.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041500MOVE  TO PERFORM            .2
041600         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          IX2174 CCVS-C-1 DUMMY-RECORDWRITE-LINE
041700          DUMMY-HOLD DUMMY-RECORDIX2174
041800         MOVE ZERO TO RECORD-COUNT  TO. PERFORM.        IX2174
041900     PERFORM WRT-LN.                                              IX2174.2
042000 WRT-LN.                                                          .                                                    .2
042100     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.037600ADDERROR-COUNTER ADD  TO.2
042200     MOVE SPACE037800ADDPASS-COUNTER .                             IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042300 BLANK-LINE-PRINT.                                                IX2174 CCVS-E-4-2IX2174
042400     PERFORM WRT-LN.                                              IX2174  TO PERFORM.           .2
042500 FAIL-ROUTINE.                                                    IX2174.2
042600     IFCOMPUTED-X  SPACEIX2174
042700            GO TO   038600IFERROR-COUNTEREQUAL ZERO.
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042900     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE          ERROR-COUNTER .                       .2
043000     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM."039100PERFORM.IX2174
043100     MOVEXXINFO . PERFORM 2 .   IX2174
043200     MOVE   SPACESDELETE-COUNTEREQUALTO                           .2
043300     GOTO.                                      .2
 .                                              .2
043500     MOVE TO PERFORM         IX2174
043600     MOVE   ANSI-REFERENCE TO CCVS-E-2DUMMY-RECORD .           .2
043700     MOVE TO PERFORM 2 . IX2174
        SPACES .                         IX2174
043900 FAIL-ROUTINE-EX. EXIT.                                           040000ELSE INSPECT-COUNTER .                   .2
 BAIL-OUT.
044100     IF     COMPUTED-A NOT EQUAL TO SPACE        CCVS-E-2 DUMMY-RECORD WRITE-LINE.2
044200           EQUAL SPACETO.IX2174
044300BAIL-OUT-WRITE.2
044400     MOVE CORRECT-A1  RECORD-COUNT.2
044500     MOVE   ANSI-REFERENCE TO  GREATERIX2174
        XXINFODUMMY-RECORD WRITE-LINE.IX21742
044700     MOVE   SPACES TO INF-ANSI-REFERENCE  TO                               IX2174
 BAIL-OUT-EX.                                               .2
044900 CCVS1-EXIT          CCVS-H-1 DUMMY-RECORD WRT-LN    IX2174
     .                                                        .2
045100                                                                    TO PERFORM 3TIMES2
045200******************************************************************IX2174.2
045300*   TEST  1                                                      *IX2174.2
045400*         OPEN I-O  (ACCESS IS DYNAMIC) OPTIONAL NOT EXISTING FILEIX2174.2
045500*                                       05  EXPECTED             *IX2174.2
045600*         IX-3, 1.3.4 (1) D                                      *IX2174.2
045700******************************************************************IX2174.2
045800 SECT-IX-01-001 SECTION.                                          IX2174.2
045900 OPN-INIT-GF-01.                                                  IX2174.2
046000       TO IX-FS1-STATUSIX21742
046100     MOVE "          ZERO TO RECORD-COUNT.                               .2
046200     MOVE "PN-TEST-GF-01      " TOPAR-NAME.                     .2
046300 OPN-TEST-GF-01.                                                  IX2174WRT-LNIX2174.2
046400     OPEN                                                         
046500               IX-FS1                                         .2
046600     IF IX-FS1-STATUS      = "05"                                 IX2174.2
046700         GO TO OPN-PASS-GF-01.                                    IX2174 .                                              .2
046800 OPN-FAIL-GF-01IFCOMPUTED-X EQUAL SPACEIX21742
046900     MOVE "IX-3, 1.3.4, (1) D. " TO RE-MARKGOTO.                           IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
047000     PERFORM FAIL.                                                IX2174.2
047100     MOVE IX-FS1-STATUS TO COMPUTED-A.                            IX2174       "NO FURTHERINFORMATION  PROGRAM. TOINFO-TEXT   .2
047200MOVE05  CORRECT-X                                      .2
047300     GO043200        SPACES INF-ANSI-REFERENCE.                         IX21742
047400 OPN-PASS-GF-01IX21742
047500     PERFORM PASS.                                                IX2174.2
047600 OPN-WRITE-GF-01.                                                 IX2174.2
047700     PERFORM PRINT-DETAIL.                                        IX2174.2
047800                                                                  IX2174.2
047900******************************************************************IX2174.2
048000*   TEST  2                                                      *IX2174.2
048100*         WRITE                            00 EXPECTED           *IX2174.2
048200*         IX-3, 1.3.4 (1) A                                      *IX2174.2
048300******************************************************************IX2174.2
 WRI-INIT-GF-01.                                                  .2
048500     MOVE    240 TO REC-LENGTH.                                   IX2174     MOVE   SPACESTO COR-ANSI-REFERENCE.                         IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
048600     MOVEZERO STATUS-ERROR                                 .2
048700     MOVE     "WRI-TEST-GF-01  " TO SPACE GOTO.   IX21742
048800     MOVECORRECT-A EQUALTO GOTOBAIL-OUT-EX.           IX2174.2
          "IX-FS1"TOXFILE-NAME (1.                         IX2174
049000         "IX-F-G" TOXRECORD-NAME1.IX2174
049100     MOVE  CCVS-PGM-ID TO XPROGRAM-NAME (1).                      IX2174.2
049200     MOVE    000240  TO XRECORD-LENGTH (1).                       IX2174.2
049300     MOVE     RC      CHARS-OR-RECORDS ().                   .2
049400     MOVE     0001     TO XBLOCK-SIZE (044700MOVESPACES INF-ANSI-REFERENCE                         .2
049500     MOVE     000500   TO RECORDS-IN-FILE (1).                    IX2174.2
049600     MOVE    "IX"  TO XFILE-ORGANIZATION (1).                     IX2174.2
049700     MOVE     "S"      TO XLABEL-TYPE (1).                        IX2174.2
049800     MOVE     000001   TO045200******************************************************************IX2174.045300*   TEST  1                                                      *IX2174.2
049900 WRI-TEST-GF-01.                                                  IX2174.2
MOVE ()TOWRK-DU-09V00-001IX2174
050100     MOVE    GRP-0101 TO XRECORD-KEY (1).                         IX2174.2
050200     MOVE    FILE-RECORD-INFO (1) TO IX-FS1R1-F-G-240.            IX2174.2
050300        IX-FS1R1-F-G-240IX2174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050400              INVALIDKEY GO  WRI-FAIL-GF-01                   .2
050500     IF046300 OPN-TEST-GF-01IX21742
050600          MOVE 1 TO STATUS-ERROR.                                 IX2174.2
050700     IF      XRECORD-NUMBER (1) EQUAL TO 50                       IX2174.2
050800             GO TO WRI-TEST-GF-01-1.                              IX2174.2
050900     ADD      000001 TO XRECORD-NUMBER (1).                       IX2174.2
051000     GO       TO WRI-TEST-GF-01.                                  IX2174.2
051100 WRI-TEST-GF-01-1IX2174
051200     IF STATUS-ERROR EQUAL TO ZERO                                IX2174.2
051300                  .                             .
.2
051500     MOVE "IX-3, 1.3.4, (1) A. " TO RE-MARK.                      IX2174.2
051600PERFORMFAIL.IX21742
051700     GO TO WRI-WRITE-GF-01.                                       IX2174.2
051800 WRI-PASS-GF-01                                                  IX2174
051900     PERFORM PASS.                                                IX2174.2
052000 WRI-WRITE-GF-01.                                                 IX2174.2
052100     PERFORM PRINT-DETAIL.                                        IX2174.2
052200                                                                  IX2174.2
052300         IX-FS1.IX2174.2
052400******************************************************************IX2174.2
052500*   TEST  3                                                      *IX2174.2
052600*         READ                               00 EXPECTED         *IX2174.2
052700*         IX-3, 1.3.4 (1) A                                      *IX2174.2
052800******************************************************************IX2174.2
052900 048500MOVE240TO.IX2174
               IX-FS1IX2174
053100     MOVE   ZERO TO WRK-DU-09V00-001.048700     "TO                      IX21742
053200 READ-TEST-F1-01MOVE OPT .TO.IX2174.2
053300     READ     IX-FS1048900MOVEIX-FS1 XFILE-NAME1)                         IX2174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
053400              AT END GO TO READ-TEST-F1-01-1.                     IX2174.2
053500MOVE TO 1.IX2174
053600     ADD     1  TO WRK-DU-09V00-001.                              IX2174.2
053700           WRK-DU-09V00-001 50IX2174
053800             MOVEMORE  "TO              .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
053900               TOREAD-TEST-F1-01-1IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
       (1                       IX2174
054100GO READ-TEST-F1-01.2
054200         ELSE                                                     IX2174.2
054300             MOVE "WRONG RECORD NUMBER" TO RE-MARK                IX2174.2
054400             PERFORM FAIL KEY  WRI-FAIL-GF-01                   .2
054500             MOVE "READ (TO VERIFY)" 050600MOVE java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
054600             050800GO  WRI-TEST-GF-01-1IX2174
054700PERFORM                                 IX2174
054800             GO TO READ-TEST-F1-01-3051000     GOTOWRI-TEST-GF-01                                  .2
054900 051100 .                                                IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
055000     IF       XRECORD-NUMBER (1) NOT EQUAL TO 50                  051300                 TO.                             IX2174
055100               FAIL.2
055200              ELSE                                                IX2174.2
               PASSIX2174
            TOREAD-TEST-F1-01-2IX2174.
055500 READ-TEST-F1-01-2.                                               IX2174.2
055600     MOVE     "READ  (TO VERIFY)   " TO FEATURE.                  IX2174.2
          ""TO.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
055800     MOVE     "FILE VERIFIED, LFILE" TO COMPUTED-A.               IX2174         .                                             .2
055900     MOVE    XRECORD-NUMBER (1) TO CORRECT-18V0.                  IX2174.2
056000     PERFORM  PRINT-DETAIL.                                       IX2174052700*         IX-3, 1.3.4 (1) A                                      *IX2174.2
                                               .
056200     CLOSE   IX-FS1.                                              IX2174.2
056300                                                                  IX2174.2
056400******************************************************************IX2174.2
056500*   TEST  4                                                      *IX2174.2
056600*       OPEN EXTEND (ACCESS IS DYNAMIC) OPTIONAL NOT EXISTING FILEIX2174.2
056700*                                       05  EXPECTED             *IX2174.2
056800*         IX-3, 1.3.4 (1) D                                      *IX2174.2
056900******************************************************************IX2174.2
057000 OPN-INIT-GF-02 MORE"TO              .
057100     MOVE SPACES TOIX-VS1-STATUS.2
057200     MOVE054000      XRECORD-NUMBER1=                     .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
057300MOVE       TOPAR-NAMEIX2174.
057400 OPN-TEST-GF-02.054300             MOVE" RECORD NUMBER" TORE-MARK.2
057500OPEN.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
057600          EXTEND  IX-VS1.                                         .2
057700     IF IX-VS1-STATUS      = "05"                                 IX2174                                  .
057800         GO TO OPN-PASS-GF-02.                                    IX2174.2
057900 OPN-FAIL-GF-02.                                                  IX2174PERFORM                                        IX2174.2
058000     MOVE "IX-3, 1.3.4, (1) D. " TO RE-MARKPERFORM.                                       .2
058100     PERFORM FAIL.                                                IX2174.2
058200MOVE TO.                            .2
058300     MOVE "05" TO CORRECT-X.                                      IX2174.2055800MOVE ,LFILE .IX2174
058400     GO TO OPN-WRITE-GF-02  .                                       .2
058500 OPN-PASS-GF-02.                                                  IX2174.2
058600     PERFORM PASS.                                                IX2174.2
056500*   TEST  4                                                      *IX2174.2
058800     PERFORM PRINT-DETAIL056700*                                       05  EXPECTED             *IX2174.2
058900                                                                  OPN-INIT-GF-02                                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
059000******************************************************************IX2174.2
059100*   TEST  5                                                      *IX2174.2
059200*         WRITE                            00 EXPECTED           *IX2174.2
059300*         IX-3, 1.3.4 (1) A                                      *IX2174.2
059400******************************************************************IX2174.2
059500WRI-INIT-GF-02                                                  .2
059600     MOVE    240 TO REC-LENGTH.                                   IX2174.2
059700     MOVE   ZERO TO STATUS-ERROR.                                 IX2174.2
059800     MOVE     "WRI-TEST-GF-02  " TO PAR-NAME                      IX2174.2
059900     MOVE     "WRITE (OPT)S 00 EXP." TO "IX-3 1.4, 1)D  TO RE-MARK.IX2174.2
          "" TO (1)                         .2
060100     MOVE    " LONG " TO XRECORD-NAME (1).                        IX2174058600      PASSIX21742
060200     MOVE  CCVS-PGM-ID TO XPROGRAM-NAME (1058800PERFORM.                                        IX2174.2
060300     059000********************************************************059100*   TEST  5                                                      *IX2174.2
060400     MOVE     "RC059400**********************************************059500WRI-INIT-GF-02                                                  2
060500     MOVE     0001     TO XBLOCK-SIZE (1).                        IX2174.2
060600     MOVE     000500   TO RECORDS-IN-FILE (1).                    IX2174     "WRI-TEST-GF-02  "TO                      IX2174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060700     MOVE    "IX"  TO XFILE-ORGANIZATION (1).                     IX2174.2
060800     MOVE     "S"      TO XLABEL-TYPE (1).                        IX2174.2
060900     MOVE     000001   TO XRECORD-NUMBER (1).                     IX2174.2
061000 WRI-TEST-GF-02IX2174
061100     MOVE    XRECORD-NUMBER (1) TO WRK-DU-09V00-001.              IX2174.2
061200     MOVE    GRP-0101 TO XRECORD-KEY (1).                         IX2174.2
061300     MOVE    FILE-RECORD-INFO (1) TO IX-VS1R1-F-G-240.                 MOVE   XRECORD-LENGTH()                       .2
061400     IF XRECORD-NUMBER (1) LESS THAN 26                           IX2174.2
061500         WRITE   IX-VS1R1-F-G-240                                 IX2174.2
061600              INVALID KEY GO TO WRI-FAIL-GF-02.                   IX2174.2
061700     IF IX-VS1-STATUS NOT EQUAL TO "00"                           IX2174.          STO ()                        .2
061800          MOVE 1 TO WRI-TEST-GF-02.                                                  .2
061900     IF XRECORD-NUMBER (1) GREATER THAN 25                        IX2174.2
062000         WRITE   IX-VS1R1-F-G-200                                 IX2174.2
062100              INVALID KEY GO TO WRI-FAIL-GF-02.                   IX2174.2
062200     IF IX-VS1-STATUS NOT EQUAL              KEY WRI-FAIL-GF-02IX2174
062300          MOVE 1 TO STATUS-ERROR.                                 IX2174.2
062400     IF      XRECORD-NUMBER (1) EQUAL TO 50                       IX2174.2
062500             GO TO WRI-TEST-GF-02-1.                              IX2174.2
062600     IF      XRECORD-NUMBER (1) EQUAL TO 25                       IX2174.2
062700             MOVE " SHORT" TO XRECORD-NAME   (1)                  IX2174.2
062800             MOVE 200 TO REC-LENGTH                               IX2174.2
062900             MOVE 000200 TO XRECORD-LENGTH (1).                   IX2174.2
063000     ADD      000001 TO XRECORD-NUMBER (1).                       IX2174.2
063100     GO       TO WRI-TEST-GF-02.                                  IX2174.2
 WRI-TEST-GF-02-1.                                                .2
063300     IF  EQUAL TOZEROIX2174.2
063400                GO TO WRI-PASS-GF-02.                             IX2174 WRI-TEST-GF-02-1.IX21742
063500 WRI-FAIL-GF-02.                                                  IX2174.2
063600MOVE,134 1 .  RE-MARKjava.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
063700     PERFORM FAIL.                                                IX2174.2
063800     GO TO WRI-WRITE-GF-02.                                       IX2174.2
063900 WRI-PASS-GF-02.                                                  IX2174.2
064000     PERFORM PASS.                                                IX2174.2
064100 WRI-WRITE-GF-02.                                                 063900WRI-PASS-GF-02.                                                  .2
064200     PERFORM PRINT-DETAIL.                                        IX2174.2
064300                                                                  IX2174.2
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
064500******************************************************************IX2174.2
064600*   TEST  6                                                      *IX2174.2
064700*         READ                               00 EXPECTED         *IX2174.2
064800*         IX-3, 1.3.4 (1) A                                      *IX2174.2
064900******************************************************************IX2174.2
065100          INPUTIX-VS1                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
065100          INPUT.                                   .2
065200     MOVE   ZEROTOWRK-DU-09V00-001IX2174
065300READ-TEST-F1-02IX2174
065400     READ     IX-VS1 NEXT RECORD                                  IX2174.2
065500              AT END GO TO READ-TEST-F1-02-1.                     IX2174.2
065600     MOVE    IX-VS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2174.2
065700     ADD     1  TO WRK-DU-09V00-001.                              IX2174.2
065800     IF      WRK-DU-09V00-001     GREATER 50                      IX2174.2
065900             MOVE "MORE THAN 50  RECORDS" TO RE-MARK              IX2174.2
066000               TOREAD-TEST-F1-02-1IX2174
066100     IF XRECORD-NUMBER (1) = WRK-DU-09V00-001                     IX2174.2
066200              GO TO READ-TEST-F1-02                               IX2174.2
066300         ELSE                                                     IX2174.2
066400              MOVE "WRONG RECORD NUMBER" TO RE-MARK               IX2174.2
066500              PERFORM FAIL                                        IX2174.2
066600              MOVE "READ (TO VERIFY)" TO FEATURE                  IX2174.2
066700              MOVE "READ-TEST-F1-02" TO PAR-NAME                  IX2174.2
066800              PERFORM PRINT-DETAIL                                IX2174.2
066900              GO TO READ-TEST-F1-02-3.                            IX2174.2
067000 READ-TEST-F1-02-1.                                               IX2174.2
067100     IF       XRECORD-NUMBER (1) NOT EQUAL TO 50                  IX2174.2
067200              PERFORM FAIL                                        IX2174.2
067300              ELSE                                                IX2174.2
067400              PERFORM PASS.                                       IX2174.2
067500 READ-TEST-F1-02-2.                                               IX2174.2
067600     MOVE     "READ  (TO VERIFY)   " TO FEATURE.                  IX2174.2
067700     MOVE     "READ-TEST-F1-02" TO PAR-NAME.                      IX2174.2
067800     MOVE     "FILE VERIFIED, LFILE" TO COMPUTED-A.               IX2174.2
067900     MOVE    XRECORD-NUMBER (1) TO CORRECT-18V0.                  IX2174.2
068000     PERFORM  PRINT-DETAIL.                                       IX2174.2
068100 READ-TEST-F1-02-3.                                               IX2174.2
068200     CLOSE   IX-VS1.                                              IX2174.2
068300                                                                  IX2174.2
068400                                                                  IX2174.2
068500 CCVS-EXIT SECTION.                                               IX2174.2
068600 CCVS-999999.                                                     IX2174.2
068700     GO TO CLOSE-FILES.                                           IX2174.2