Quellcode-Bibliothek ix217a.cob

000100   SECTION
000200 PROGRAM-ID.   PRINT-FILE.2
000300     IX217A.                                                      ).java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
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 009500     05IX-FS1-KEYPIC29.IX2174
005500 SOURCE-COMPUTER.                                                   X83.IX21742
005600     009700                                                                  .2
005700OBJECT-COMPUTERIX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
005800     Card0131.                                                    IX2174.2
005900INPUT-OUTPUT.IX2174
006000 FILE-CONTROL.                                                    IX2174.2
006100     SELECT PRINT-FILE VARYINGTODEPENDING.IX2174
006200     "                                                                  
006300010500     03  PIC.IX2174
006400     SELECT                                           .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  SEQUENTIALIX21742
007800     FILE STATUS IS IX-VS1-STATUS.                                IX2174.2
007900                                                                  IX2174.2
008000 DATA DIVISION.                                                   IX2174.2
008100 FILE SECTION.                                                    IX2174.2
008200 FD  PRINT-FILE.                                                  IX2174.2
008300 01  PRINT-REC   IX-VS1R1-F-G-200.                                            .2
 01  DUMMY-RECORDPICTUREX(120.                                 IX2174.2
008500                                                                  IX2174.2
008600 05 FILLER   PICX8.IX2174
008700     LABEL RECORD IS STANDARD                                             05FILLER-KEY X29.IX2174
008800     DATA RECORD IS IX-FS1R1-F-G-240                              IX2174.2
008900     BLOCK CONTAINS 1 RECORDS                                     IX2174.2
009000     RECORD CONTAINS 240 CHARACTERS.                              IX217401REC-LENGTH 9999VALUE.IX2174.2
009100 01  IX-FS1R1-F-G-240.                                            IX2174.2
009200     03 IX-FS1-WRK-120    ()VALUEABCDLKJXYZIX2174
009300     03 IX-FS1-GRP-120.                                           02WRK-DU-09V00-001PIC   .                    .2
009400     05 FILLER   PIC   X(012400      FILLER  PIC()VALUE.-"
009500     05   PICX()                                    .2
009600     0501260003FILE-RECORD-INFO-SKELETON.2
009700                                                                  IX217405FILLER X()VALUE.2
009800 FD  IX-VS1                                                       IX2174.2
009900     LABEL RECORD IS STANDARD                                     IX2174.2
010000     DATA RECORD IS IX-VS1R1-F-G-240 IX-VS1R1-F-G-200             "ODO0000PGM     LRECL000000BLKSIZ="    .2
010100      CONTAINS                                      IX2174
010200     RECORD VARYING  200 TO 240 DEPENDING REC-LENGTH,=000000,=,="                        . ()VALUEIX2174.2
010300                                                                  IX2174.2
 01IX-VS1R1-F-G-240IX2174
010500     03 IX-VS1-WRK-120 PIC X(120).                                IX2174.2
010600     013600             ALTKEY1"            .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010700        05 FILLERX7         SPACE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
010800        05 IX-VS1-KEY  PIC X(29).                                 01410005 FILE-RECORD-INFO-P1-120IX2174
010900        05 FILLER PIC X(83).                                      IX2174.2
011000                                                                  IX2174.2
011100 01  IX-VS1R1-F-G-200IX2174
011200     03 IX-VS1-WRK-120-SHORT PIC X(120).                          IX2174.2
011300     03 IX-VS1-GRP-80.                                            IX2174.2
011400        05 FILLERPICX8).                                   IX2174.2
011500        05 FILLER-KEY  PIC X(29).                                 IX2174.2
011600        05VIERZIG X()                                     .2
011700                                                                  IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
011800 WORKING-STORAGE SECTION.                                         IX2174.2
011900 01  REC-LENGTH07XRECORD-NUMBERPIC(6).IX2174
01200001STATUS-ERROR ZERO.
012100 01  GRP-0101.                                                    IX2174.2
012200     02 FILLER   PIC X(10)  VALUE "ABCDLKJXYZ".                   IX2174.2
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
01240002FILLER X10  VALUE",.$-CD.                    IX21742
012500 01  FILE-RECORD-INFORMATION-REC01530007ODO-NUMBER 94.IX2174
012600     03 FILE-RECORD-INFO-SKELETON.                                IX2174.2
012700        05 FILLER                 PICTURE X(48)       VALUE       IX2174.2
01560007PIC.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
012900        05 FILLER                 PICTURE X(46)       VALUE       IX2174.2
013000             "ODO0000PGM     LRECL000000BLKSIZ  ="    .
013100        05 FILLER                 PICTURE X(26)       VALUE       IX2174.2
013200",=000000,ORG=  ,LBLR= ".IX2174
013300        05 FILLER                 PICTURE X(37)       VALUE       IX2174.2
013400             ",RECKEY=                             01340007               PIC X1).                       IX21742
013500        05 FILLER                 PICTURE X(38)       VALUE       IX2174.2
013600             ",ALTKEY1=                             "           XBLOCK-SIZE ()                      .2
                           X38              IX2174
013800             ",ALTKEY2=                             ".            IX2174.2
013900        05 FILLER                 PICTURE X(7)        VALUE SPACE.IX2174.2
014000     03 FILE-RECORD-INFO          OCCURS07FILLER X6.IX2174.2
014100        05 FILE-RECORD-INFO-P1-120.                               IX2174.2
014200           07 FILLER              PIC X(5).                                  07           PIC ()                      .2
014300           07 XFILE-NAME           01700007XRECORD-KEY          PIC29.IX21742
014400                    999VALUE ZERO.       IX2174.2
014500           07 XRECORD-NAME02440001ERROR-HOLD                     999       ZERO.2
01460007FILLER ()                       IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
014700                 PIC)                       .2
014800           07 FILLER              PIC X(7).                       IX2174.2
014900           07 XRECORD-NUMBER       PIC 9(6).                      IX2174FILLERPICX39VALUEIX2174
           07FILLERPICX)IX2174
015100           07 UPDATE-NUMBER       PIC 9(2).                       IX2174.2
015200           07 FILLER              PIC X(5).                       IX2174.2  PICX) .     .2
ODO-NUMBER          PIC9(4.IX2174
015400           07 FILLER              PIC X(5).                       IX2174.02540002                          PIC()VALUE.IX2174
015500           07 XPROGRAM-NAME        PIC X(5).                      IX2174.2
015600           07 FILLER              PIC X(7).                       IX2174.2
015700           07 XRECORD-LENGTH       PIC 9(6).                      IX2174.2
015800           07 FILLER              PIC X(7).                       IX2174.2
015900           07 CHARS-OR-RECORDS    PIC X(2).                       IX2174.2
016000           07 FILLER              PIC X(1).                       IX2174.2
016100           07 XBLOCK-SIZE          PIC 9(4).                      IX2174.2
016200           07 FILLER              PIC X(6).                       IX2174.2
016300           07RECORDS-IN-FILE ()                       .2
016400           07 FILLER              PIC X(5).                       IX2174.2
016500           07 XFILE-ORGANIZATION   PIC X(2).                      IX2174.2
IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
           XLABEL-TYPE (.IX2174
016800        05 FILE-RECORD-INFO-P121-240.                             IX2174.2
016900           07 FILLER              PIC X(8).                       IX2174.2
017000           07 XRECORD-KEY          PIC X(29).                     IX2174.2
017100                          PIC)                       .2
017200           07 ALTERNATE-KEY1      PIC X(29).                      IX2174        .IX2174
017300           07 FILLER              PIC X(9).                       IX2174.2
017400                  PIC X(29).                      IX2174
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
017900027100            "LEVEL VALIDATION FOR.
018000                                                                  IX2174                         ()VALUE2
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
                                          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018600     02 FILLER                   PIC X      VALUE SPACE.          IX2174.2
018700     02 FEATURE X20)VALUE.          IX2174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
018800     02 FILLER                   PIC X      VALUE SPACE.          IX2174.2
018900     02 P-OR-F                   PIC X(5)   VALUE            "FOROFFICIALUSE ONLY    ".                         .2
      FILLER                    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 027800     COBOL85 VERSION                          ..2
019400       03 DOTVALUE               PIC 99     VALUE ZERO.           IX2174.2
019500                          X(8   VALUE SPACEIX2174.2
019600     02 RE-MARK                  PIC X(61).                       IX2174.2
019700 01  TEST-COMPUTED.                                               IX2174.2
019800     02 02820002 FILLERPIC()  VALUE.      IX2174.2
019900     02 FILLER                   PIC X(17)  VALUE                 IX217402830002 FILLER X(14 VALUE ENDOF".IX2174.2
020000            "       COMPUTED=".                                   IX2174.2
20100     02COMPUTED-XIX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
020200     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          IX2174  .                                                    .2
020300     03 COMPUTED-N               REDEFINES COMPUTED-A             IX2174.2
020400                                  9(9.9.                 IX2174
020500     03 COMPUTED-0V18 REDEFINES COMPUTED-A      .                                               .2
020600     03 COMPUTED-4V14 REDEFINES   PIC -94)9()     IX2174
       REDEFINES   PIC 914.94.IX2174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
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-CORRECT029800                             PIC()VALUE.2
021300     029900      VALIDATIONOF...2
021400     02 FILLER PIC X(17) VALUE "       CORRECT =".                IX2174.2
021500     02 CORRECT-X02FILLERPIC X13)VALUE.      IX2174.2
021600     03 CORRECT-A                  PIC X(20) VALUE SPACE.         IX2174.2
021700     03 CORRECT-N    REDEFINES03010002 FILLER                        X(15  VALUE             IX2174
021800     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         IX2174.2
021900     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -                         PIC     SPACE.2
022000     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     IX2174.2
            REDEFINES CORRECT-AIX2174
022200         04 CORRECT-18V0                     PIC -9(18).          IX2174.2
022300         04 FILLER                           PIC02CCVS-E-4-2     VALUE.IX2174
022400     03 FILLER PIC X(2) VALUE SPACE.                              IX2174.2
022500     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     IX2174.2
022600 01  02FILLERPIC()VALUE.2
022700     02 FILLER  PIC IS X(99)    VALUE IS           "                       .
022800-    "SS  PARAGRAPH-NAME                                          IX2174.2
022900-    "       REMARKS".                                            IX2174.2
023000     02 FILLER                     PIC X(20)    VALUE SPACE.      IX2174.2
02310001CCVS-C-2.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023200     02 FILLER                     PIC X        VALUE SPACE.      IX2174.2
02                      X6      "".IX2174
023400     0203130004FILLER 8VALUEIX2174
023500     02 FILLER                     PIC03140004XXCOMPUTED X20.IX2174
                       ()VALUE.2
023700 01  REC-SKL-SUB                   PIC04XXCORRECTPIC(.IX2174
023800                 X48.                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
023900 01  DELETE-COUNTER                PIC02     XVALUE.IX2174
024000 01  ERROR-COUNTER                 PIC 999      VALUE    IS65VALUE************.
024100   INSPECT-COUNTER       ZERO
024200 01  PASS-COUNTER                  PIC 999      VALUE***.2
           .IX2174
024400 0103240001                       PIC)VALUE.2
IX2174
024600 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       IX2174.2
024700 01  ANSI-REFERENCE                PIC X(48)    VALUECCVS1SECTION                                                   .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
024800 01  CCVS-H-1.                                                    IX2174.2
02490002FILLER (     SPACES.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025000     02  FILLER                    PIC X(42)    VALUE             IX2174.2
025100     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 IX2174.2
025200     02  FILLER                    PIC X(39)    VALUE SPACES.     IX2174.2
025300 01  CCVS-H-2A.                                                   IX2174.2
025400   02  FILLER                        PIC X(40)  VALUE IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025500   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  IX2174.2
025600   02  FILLERTO ()                      .2
025700     42 "                                                      .2
025800   02  FILLER                        PIC X()VALUEIX2174.2
025900            " COPY - NOT FOR DISTRIBUTION".                       IX2174.2
026000   02  FILLER                        PIC X(41)  VALUE SPACE.      IX2174.2
026100IX2174.2
026200 01  CCVS-H-2B.                                                   IX2174.2
02630002FILLER X15               IX2174
026400            "TEST RESULT OF ".                                    IX2174.2
026500                            PICX9.IX2174
026600   02  FILLER                        PIC X(4)   VALUE. MOVEINSPT . ADD1  INSPECT-COUNTER.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
026700            " IN ".                                               2
02680002FILLER (               IX2174
026900     " HIGH       ".                                              IX2174.2
027000   02  FILLER                        PIC X(22)  VALUE             IX2174.2
027100            " LEVEL VALIDATION FOR ".                             IX2174.2
027200                             PICX58               IX2174
027300     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF IX21742
 01CCVS-H-3.2
027500     02  FILLER                      PIC X(34)  VALUE             IX2174.2
027600            " FOR OFFICIAL USE ONLY    ".                         IX2174.2
027700     02FILLERPIC58)VALUE.2
027800     "COBOL 85 VERSION 4.2, Apr  1993          FAIL-ROUTINE FAIL-ROUTINE-EXIX21742
027900     02  FILLERPIC)VALUE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
028000            "  COPYRIGHT   1985 ".                                IX2174.2
028100 01CCVS-E-1IX2174.2
028200     02 FILLER                       PIC X(52)  VALUE SPACE.      IX2174.2
028300     02 FILLER  PIC X(14) VALUE IS "END OF TEST-  ".              IX2174.2
     02ID-AGAIN(9.IX2174
028500     02 FILLER                       PIC X(45)  VALUE SPACES.     IX2174.2
028600 01  CCVS-E-2.                                                    IX2174.2
028700     02  FILLER                      PIC X(31)  VALUE SPACE.      IX2174.2
028800     02  FILLER                      PIC X(21)  VALUE SPACE.      IX2174.2
02890002CCVS-E-2-2.2
029000         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      IX2174.2
02910003FILLERPIC       SPACE      IX2174.2
029200         03 ENDER-DESC               PIC X(44)  VALUE             IX2174.2
                     IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029400 01  CCVS-E-3.                                                    IX2174.2
029500       FILLER                      PICX22  VALUEIX2174
029600            " FOR OFFICIAL USE ONLY".                             IX2174.2
029700     02  FILLERPIC()VALUE.IX2174
029800     02  FILLER                      PIC X(58)  VALUE             IX2174.2
029900     " ,NATIONALINSTITUTE   ."IX2174
       FILLER                      PIC(13  VALUE.      IX2174
030100     02 FILLER                         WRITE-LINE        .2
030200               1985.IX2174.2
030300 01  CCVS-E-4.                                                    IX2174.2
030400     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      IX2174.2
030500     02 FILLER                       PIC X(4)   VALUE " OF ".     IX2174.2
030600     02 CCVS-E-4-2                   PIC XXX      HYPHEN-LINE TO DUMMY-RECORD.PERFORM 5 TIMESIX2174
    02 FILLER                       PIC40               IX21742
030800      "  TESTS WERE EXECUTED SUCCESSFULLY".                       IX2174.2
                                                IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
031000     02 FILLER                       PIC X(19)  VALUE             IX2174.2
031100            *  *.IX2174
031200     02 INFO-TEXT.                                                IX2174.2
031300       04 FILLER                     PIC X(8)   VALUE SPACE.      IX2174.2
                         PIC ().IX2174
031500       04 FILLER                     PIC X(5)   VALUE SPACE.      IX2174.2
031600       04 XXCORRECT                  PIC X(20).                   IX2174.2
03170002INF-ANSI-REFERENCE X48.IX2174
031800 01  HYPHEN-LINE.                                                 IX2174.2
031900     02   PICISVALUE .                          IX2174
032000     02 FILLER038200MOVE TO.                                IX2174
032100-    "*********************".IX2174
032200     02 FILLER  PIC IS X(54)    VALUE  END-ROUTINE-12.                                                 .2
032300-    "******************************".                            IX2174.2
032400 01  CCVS-PGM-ID                     PIC X(9)   VALUE             IX2174.2
032500"".                                                    IX2174
032600 PROCEDURE DIVISION.                                              .2
032700 CCVS1 SECTION.                                                   IX2174.2
032800OPEN-FILESIX2174.
032900     OPEN    OUTPUT PRINT-FILE.                                   IX2174.2
033000     MOVE TO. MOVECCVS-PGM-ID ID-AGAIN.2
033100     MOVE    SPACE TO TEST-RESULTS.                               039100     PERFORM.                                          IX21742
033200     PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE039200 END-ROUTINE-13.                                                  .2
033300         ZERO REC-SKL-SUB                                 IX2174
033400     PERFORM CCVS-INIT-FILE 9 TIMES.                              IX2174.2
033500CCVS-INIT-FILEIX2174.2
033600     ADD     1 TO REC-SKL-SUB.                                    IX2174.2
033700     MOVE                            IX2174
033800          TOMOVESDELETED ENDER-DESCIX2174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
033900CCVS-INIT-EXITIX2174.2
034000     GO TO CCVS1-EXIT.                                            IX2174.2
034100CLOSE-FILESIX2174.2
034200     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   IX2174.2
034300 TERMINATE-CCVS.                                                  IX2174039900          MOVE "NO "TO                               IX21742
034400     STOP     RUN.                                                IX2174.2
034500 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         IX2174.2
034600 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           IX2174.2
034700 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          IX2174.2
034800 DE-LETEMOVE**"TOP-OR-F  ADD   DELETE-COUNTER.      IX21742
034900     MOVE "****TEST DELETED****" TO RE-MARK.                      IX2174.2
035000 PRINT-DETAIL.                                                           CCVS-E-2 DUMMY-RECORDPERFORM WRITE-LINE.          IX21742
035100      REC-CT EQUAL TO ZERO                                  IX2174.2
035200             MOVE040400WRITE-LINE                                                      IX2174.2
035300             MOVE REC-CTADD1  RECORD-COUNT.IX2174
035400     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      IX2174 RECORD-COUNTGREATER                                   IX2174
035500     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               IX2174.2
035600        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 IX2174.2
035700          ELSE040900WRITE AFTER  PAGE.2
035800     MOVE SPACE TO P-OR-F. MOVEMOVE CCVS-H-1   DUMMY-RECORDPERFORM 2 TIMES.2
035900     MOVE SPACE TO CORRECT-XMOVE TODUMMY-RECORD WRT-LN    IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036000          REC-CT TO  MOVESPACE PAR-NAME.2
036100     MOVE     SPACE TO RE-MARK.                                   IX2174.2
036200 HEAD-ROUTINEIX2174
036300     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IX2174.2
036400     MOVE  TO . PERFORMWRITE-LINE .  IX21742
036500     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IX2174.2
036600     MOVE CCVS-H-3  TO          CCVS-C-2 DUMMY-RECORD WRT-LNIX2174
036700 COLUMN-NAMES-ROUTINE.                                            IX2174.2
036800     MOVECCVS-C-1 TO. PERFORM .           IX2174.2
036900     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX2174MOVE TODUMMY-RECORD                          .2
037000     MOVEHYPHEN-LINE DUMMY-RECORD WRITE-LINE        IX2174.2
037100 END-ROUTINE.                                                     IX2174.2
037200     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.IX2174.2
037300 END-RTN-EXITIX2174
037400     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX2174.2
037500 END-ROUTINE-1.                                                   IX2174.2
037600        TO ERROR-HOLDINSPECT-COUNTER      IX21742
037700      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               IX2174.2
        TOERROR-HOLD                             IX2174.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.                            IX2174.2
038100      MOVE ERROR-HOLD TO CCVS-E-4-2.                              IX2174.2
038200      MOVE CCVS-E-4 TO CCVS-E-2-2.                                IX2174.2
038300      MOVECCVS-E-2 DUMMY-RECORD WRITE-LINEIX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038400  END-ROUTINE-12.                                                 IX2174.2
038500      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        IX2174      NOT EQUALTO                         .2
             IS  TO                      IX21742
038700         MOVE "NO " TO ERROR-TOTAL                                IX2174.2
038800         ELSE                                                     IX2174.2
038900         MOVE TOERROR-TOTALIX2174
039000     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           IX2174.2
      WRITE-LINE                                          .2
039200 END-ROUTINE-13.                                                  IX2174MOVE    TODUMMY-RECORD WRITE-LINETIMES.2
039300     IF  IS EQUAL  ZEROIX2174
039400         MOVE "NO " TO ERROR-TOTAL   FAIL-ROUTINE-EXIX2174
039500         MOVE DELETE-COUNTER TO 043400FAIL-ROUTINE-WRITEIX2174
039600     MOVE "TEST(S) DELETED     " TO ENDER-DESC   TEST-COMPUTED PRINT-REC WRITE-LINE.2
039700     MOVE TO . PERFORMWRITE-LINEIX2174
039800      IF   INSPECT-COUNTER EQUAL TO ZERO   TEST-CORRECT PRINT-REC WRITE-LINETIMES.2
039900043800MOVE TOCOR-ANSI-REFERENCE.2
       MOVE TOERROR-TOTALIX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040100      MOVE "TEST(S) REQUIRE044000BAIL-OUT.                                                        IX21742
040200MOVE TO. PERFORM.          IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040300     MOVE CCVS-E-3IFCORRECT-A TO GO  BAIL-OUT-EX           .2
040400 WRITE-LINE .                                                  IX2174
040500     ADD 1TO.                                       IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040600     IF RECORD-COUNT 42                                   .2
040700         MOVE DUMMY-RECORD044600MOVE TO . PERFORM  2 TIMES   IX2174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040800         MOVESPACE DUMMY-RECORD.2
040900         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  IX2174044800. EXITIX2174
041000MOVE  TODUMMY-RECORD PERFORM 2 TIMES.2
041100         MOVE 045000EXITIX2174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
041200         MOVECCVS-H-2B DUMMY-RECORD WRT-LN     IX2174.2
041300         MOVE CCVS-H-3  TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    IX2174.2
041400         MOVE CCVS-C-1  TO DUMMY-RECORD PERFORM WRT-LN           *IX2174.2
041500         MOVE CCVS-C-2  TO DUMMY-RECORD PERFORM WRT-LN045400*         OPEN I-O  (ACCESS IS DYNAMIC) OPTIONAL NOT EXISTING FILEIX2174.045500*                                       05  EXPECTED             *IX2174.2
041600         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          IX2174.2
041700         MOVE DUMMY-HOLD TO DUMMY-RECORDMOVESPACES.                                .2
041800MOVE RECORD-COUNTIX2174
041900     PERFORM WRT-LN.                                              IX2174"PN-TEST-GF-01"  PAR-NAMEIX2174
042000 .                                                          
042100IX2174.2
042200     MOVE SPACE TO          I-O.IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042300 BLANK-LINE-PRINT.                                                IX2174.2
042400     PERFORMWRT-LNIX2174
042500 FAIL-ROUTINE.                                                    IX2174.2
042600           NOT TO                         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
042700                FAIL-ROUTINE-WRITE.2
042800     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IX2174.2
042900     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IX2174.2
043000MOVENO  ,SEE"TO .IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043100     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX2174      ""TO.IX2174
043200MOVE TO..
043300     GO TO  FAIL-ROUTINE-EX.                                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043400 FAIL-ROUTINE-WRITE.                                              IX2174.2
043500     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         IX2174.2
043600     MOVE   ANSI-REFERENCE TO 047900*************************048000*   TEST  2                                                      *IX2174.2
043700048300***********************************************048400WRI-INIT-GF-01.IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043800MOVE TOCOR-ANSI-REFERENCE.2
043900 FAIL-ROUTINE-EX. EXIT.                                           IX2174.2
044000 BAIL-OUT.                                                        IX2174    TO.IX2174
SPACE  BAIL-OUT-WRITE.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
   CORRECT-A  SPACE  BAIL-OUT-EXIX2174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
044300MOVE  XFILE-NAME()                         .2
044400     MOVEMOVE   ()                        .2
044500     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IX2174.2
044600     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES     MOVE""TO 1.IX2174
         TO.IX2174
044800 BAIL-OUT-EX. EXIT.                                               IX2174.2
044900 CCVS1-EXIT.                                                      IX2174.2
045000     EXIT.                                                        IX2174.2
045100                                                                  IX2174.2
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.050000         XRECORD-NUMBER1  .              .2
046000     MOVE SPACES TO IX-FS1-STATUS.                                IX2174.2
046100     MOVE "OPEN WRITEIX-FS1R1-F-G-240                                     .2
046200     MOVE "OPN-TEST-GF-01      " TO PAR-NAME KEYGOTO.IX2174
046300 .                                                  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046400     OPEN                                                         IX2174.2
046500          I-O     IX-FS1.                                         IX2174.2
046600     IF IX-FS1-STATUS      = "05"                                 IX2174.2
046700         GO TO OPN-PASS-GF-01.                                    IX2174.2
046800 OPN-FAIL-GF-01.                                                  IX2174.                                                .2
046900     MOVE "IX-3, 1.3.4, (1) D. " TO RE-MARKGO TOWRI-PASS-GF-01IX2174.2
047000     PERFORM FAIL.                                                IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
047100     MOVE IX-FS1-STATUS TO COMPUTED-A.                            IX2174      FAIL                                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
047200     MOVE.                                                  .2
047300     GO TO OPN-WRITE-GF-01.                                       IX2174.2
047400 OPN-PASS-GF-01.                                                  IX2174.2
047500     PERFORM PASS.                                                IX2174.2
047600 OPN-WRITE-GF-01.                                                 IX2174.2
047700     PERFORM PRINT-DETAIL052300CLOSEIX-FS1                                             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
048400 WRI-INIT-GF-01.                                                  IX2174.2
     MOVE      REC-LENGTH                                   .2
048600     MOVE   ZERO TO053000OPENINPUTIX-FS1.                                   .2
     MOVE"RI-TEST-GF-01  "  PAR-NAME.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
048800          "WRITE()F 00EXP"  FEATURE                  IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
          "" TO (1.                         IX21742
049000     MOVE    "IX-F-G" TO XRECORD-NAME (1).                        IX2174.2
049100     MOVE  CCVS-PGM-ID TO XPROGRAM-NAME (1).                      IX2174.2
049200     MOVE    000240  TO XRECORD-LENGTH (1).                       IX2174.2
049300     MOVE     "         IX-FS1R1-F-G-240 TO FILE-RECORD-INFO()            .2
049400     MOVE     0001     TO XBLOCK-SIZE (1).                        IX2174.2
049500     MOVE     000500   TO RECORDS-IN-FILE (1).                    IX2174.2
049600     MOVE053700IF     GREATER 50                      .2
049700     MOVE     "S"      TO              "MORE THAN 50RECORDS  RE-MARKIX21742
049800     MOVE     000001   TO XRECORD-NUMBER (1).                     IX2174.2
049900 WRI-TEST-GF-01053900GO .                            .2
050000     MOVE    054000IFXRECORD-NUMBER)=WRK-DU-09V00-001.2
050100     MOVE    GRP-0101 TO XRECORD-KEY (1).                         IX2174              TO                                IX21742
050200     MOVE    FILE-RECORD-INFO (1) TO IX-FS1R1-F-G-240.            IX2174.2
050300     WRITE   IX-FS1R1-F-G-240                                     IX2174.2
050400              INVALID GOTO.IX2174
050500     IF IX-FS1-STATUS NOT EQUAL TO "00"                           IX2174.2
           1 TO STATUS-ERROR.                                 IX2174.2
050700     IF      XRECORD-NUMBER (1) EQUAL TO 50                       IX2174.2
             GOTO.                              .2
050900     ADD      000001 TO              PRINT-DETAIL.2
             .IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051100WRI-TEST-GF-01-1.2
051200     IF STATUS-ERROR EQUAL TO ZERO                                IX2174.2
051300GO WRI-PASS-GF-01.2
051400 WRI-FAIL-GF-01.                                                  IX2174.2
051500     MOVE "IX-3, 1.3.4, (1) A. " TOPERFORM                                        IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051600     PERFORM FAIL.                                                IX2174.2
055300              PERFORMPASS.                                       .2
051800 WRI-PASS-GF-01.                                                  055400GO .                               2
051900     PERFORM PASS.                                                IX2174.2
052000 WRI-WRITE-GF-01.                                                 IX2174.2
052100     PERFORM PRINT-DETAIL.055700     MOVE"EAD-TEST-F1-01  PAR-NAME.                      IX2174.2
052200                                                                  IX2174.2
052300CLOSEIX-FS1IX2174
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 READ-INIT-F1-01.                                                 IX2174.2
053000     OPEN     INPUTIX21742
053100     MOVE   ZERO TO WRK-DU-09V00-001.                             IX2174.2
053200 READ-TEST-F1-01.                                                 IX2174.2
053300     READ     IX-FS1 NEXT RECORD                                  IX2174.2
053400              AT END GO TO READ-TEST-F1-01-1.                     IX2174.2
053500     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFONOT EXISTING FILEIX2174.2
053600     ADD     1  TO WRK-DU-09V00-001.                              IX2174.2
053700     IF      WRK-DU-09V00-001056800*         IX-3, 1.3.4 (1) D                                      *IX2174.2
053800             MOVE" THAN 50  RECORDS  RE-MARKIX21742
053900              GO TO READ-TEST-F1-01-1.                            IX2174 .                                IX2174
054000IF (1) = WRK-DU-09V00-001IX21742
054100             GO TO READ-TEST-F1-01                                IX2174.2
054200         ELSE      "OPN-TEST-GF-02" .                     .
              WRONG                 IX2174
054400             PERFORM FAIL                                                                                                       IX21742
IX21742
054600             MOVE "READ-TEST-F1-01" TO PAR-NAME                   IX2174.2
054700             PERFORMPRINT-DETAILIX21742
054800             GO TO READ-TEST-F1-01-3.                             IX2174.2
054900 READ-TEST-F1-01-1.                                               IX2174.2
055000     IF       XRECORD-NUMBER (1) NOT EQUAL TO 50                  IX2174.2
055100               FAILIX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
055200              ELSE                                                IX2174.2
055300               PASSIX2174
055400     GO       TO READ-TEST-F1-01-2.                               IX2174.2
055500 READ-TEST-F1-01-2.                                               IX2174.2
055600     MOVE      IX-VS1-STATUS COMPUTED-AIX2174
055700     MOVE     "READ-TEST-F1-01" TO PAR-NAME.                      IX2174.2
055800          "FILEVERIFIED " TO COMPUTED-A               .2
055900     MOVE    XRECORD-NUMBER (1) TO CORRECT-18V0.                  IX2174.2
056000     PERFORMPRINT-DETAILIX2174
056100 READ-TEST-F1-01-3.                                               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.IX21742
057100     MOVE SPACES TO IX-VS1-STATUS.                                IX2174.2
057200     MOVE "OPEN EXTEND: 05 EXP." TO FEATURE.                      IX2174.2
057300     MOVE059000**************************************************************059100*   TEST  5                                                      *IX2174.2
057400 OPN-TEST-GF-02.                                                  IX2174.2
057500     OPEN                                                         IX2174.2
057600          EXTEND WRI-INIT-GF-02.IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
057700     IF IX-VS1-STATUS      = "05"                                 IX2174.2
057800         GO TO OPN-PASS-GF-02.                                    IX2174.2
057900 OPN-FAIL-GF-02.                                                  IX2174.2
058000     MOVE,..,( ."RE-MARK                      2
058100     PERFORM FAIL.                                                IX2174.2
058200     MOVE IX-VS1-STATUS TO COMPUTED-A.                            IX2174.2
058300     MOVE "05" TO CORRECT-X.                                      IX2174.2
058400     GO TO OPN-WRITE-GF-02.                                       060000MOVEIX-VS1 XFILE-NAME.IX2174
058500 OPN-PASS-GF-02.                                                  IX2174.2
058600PERFORM.                                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
058700 OPN-WRITE-GF-02.                                                 IX2174.2
      PRINT-DETAILIX2174
058900                                                                  IX2174.2
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
059500 .IX2174.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
059600     MOVE    240 TO REC-LENGTH.                                   IX2174.2
059700     MOVE   ZERO TO STATUS-ERROR.                                 IX2174.2
059800     MOVEWRI-TEST-GF-02  PAR-NAME.2
059900     MOVE     "WRITE (OPT)S 00 EXP." TO FEATURE.                  IX2174.2
060000     MOVE     "IX-VS1" TO XFILE-NAME (1).                         IX2174.                                                  .2
060100     MOVE    " LONG " TO XRECORD-NAME (1).                        IX2174.2
060200     MOVE  CCVS-PGM-ID TO XPROGRAM-NAME (1).                      IX2174.2
060300         000240TO 1.IX2174
060400     MOVE     "RC"     TO CHARS-OR-RECORDS (1).                   IX2174.2
060500     MOVE     0001     TO XBLOCK-SIZE (1).                        IX2174.2
060600     MOVE     000500   TO RECORDS-IN-FILE (1).                    IX2174.2
060700     MOVE    "IX"  TO XFILE-ORGANIZATION (1).                     IX2174.2
60800     MOVE     MOVE""       XLABEL-TYPE1.IX2174
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.            IX2174.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.2
061800          MOVE 1 TO STATUS-ERROR.                                 IX2174.2
061900     IF XRECORD-NUMBER (1) GREATER THAN 25                        IX2174.2
062000         WRITE   IX-VS1R1-F-G-200                                 IX2174.2
062100INVALID KEY GO TOWRI-FAIL-GF-02.                   .2
062200     IF IX-VS1-STATUSIX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
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 TO063200WRI-TEST-GF-02-1IX2174
063100     GO       TOIFSTATUS-ERROR                                 IX2174
063200WRI-TEST-GF-02-1                                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
063300     IF STATUS-ERROR EQUAL TO ZERO                                IX2174      "IX-3 .3.,()A " TO.                      IX2174.2
063400                GO TO WRI-PASS-GF-02.                             IX2174.2
063500 WRI-FAIL-GF-02.                                                  IX2174.2
063600     MOVE "IX-3, 1.3.4, (1) A. " TO RE-MARK.                      IX2174.2
063700     PERFORM FAIL.                                                IX2174.2
063800     GO TO WRI-WRITE-GF-02.                                       IX2174.2
063900 WRI-PASS-GF-02IX2174java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
064000     PERFORM PASS.                                                IX2174.2
064100 WRI-WRITE-GF-02.                                                 IX2174.2
064200     PERFORM PRINT-DETAIL.                                        IX2174.2
064300                                                                  IX2174.2
064400     CLOSE    IX-VS1.                                             IX2174.2
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
065000 READ-INIT-F1-02.                                                 IX2174.2
065100OPEN     IX-VS1.IX21742
065200     MOVE   ZERO TO WRK-DU-09V00-001.                             IX2174.2
065300 READ-TEST-F1-02065100OPEN     IX-VS1IX2174
065400     READMOVE  .                             .2
065500              AT END GO TO .                                                 .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              GO TO READ-TEST-F1-02-1.                            IX2174.2
066100     IF XRECORD-NUMBER (1) = WRK-DU-09V00-001GO .                            .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