SSL ix102a.cob

000100 IDENTIFICATION DIVISION.                                         IX1024.2
000200 PROGRAM-IDIX1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
000300     IX102A002300003100003400003800*             X-62003900*             X-82   IMPLEMENTOR-NAME004000*             X-83   IMPLEMENTOR-NAME FOR OBJECT-COMPUTER004100*                                                                 IX1024.2
000400****************************************************************  IX1024.2
000500*                                                              *  IX1024.2
000600*    VALIDATION FOR:-                                          *  IX1024.2
000700*                                                              *  IX1024.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX1024.2
000900*                                                              *  IX1024.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IX1024.2
001100*                                                              *  IX1024.2
001200****************************************************************  IX1024.2
001300*                                                                 IX1024.2
001400*         NEW TEST:                                               IX1024.2
001500*                  SELECT ... ASSIGN TO <LITERAL-1> ...           IX1024.2
001600*                                                                 IX1024.2
001700*         NOTE: <LITERAL-1> WILL BE ASSIGNED BY THE X-CARD X-24.  IX1024.2
001800*               X-24 SHOULD ASSIGN  A <LITERAL-1>}                IX1024.2
001900*                                                                 IX1024.2
002000*                                                                 IX1024.2
002100*    THE FUNCTION OF THIS PROGRAM IS TO PROCESS AN INDEXED FILE   IX1024.2
002200*    RANDOMLY (ACCESS MODE IS RANDOM).  THE FILE USED AS INPUT IS IX1024.2
002300*    THAT CREATED BY IX101.                                       IX1024.2
002400*                                                                 IX1024.2
002500*    FIRST THE FILE IS VERIFIED AS TO THE EXISTANCE AND ACCURACY  IX1024.2
002600*    OF THE 500 RECORDS CREATED IN IX101.  SECONDLY, RECORDS      IX1024.2
002700*    OF THE FILE ARE SELECTIVELY UPDATED; AND THIRDLY, THE        IX1024.2
002800*    ACCURACY OF EACH RECORD IN THE FILE IS AGAIN VERIFIED.       IX1024.2
002900*                                                                 IX1024.2
003000*                                                                 IX1024.2
003100*       X-CARDS  WHICH MUST BE REPLACED FOR THIS PROGRAM ARE      IX1024.2
003200*                                                                 IX1024.2
003300*             X-24   INDEXED FILE <LITERAL-1>      IN ASSGN TO    IX1024.2
003400*                    CLAUSE FOR DATA FILE IX-FS1                  IX1024.2
003500*             X-44   INDEXED FILE IMPLEMENTOR-NAME IN ASSGN TO    IX1024.2
003600*                    CLAUSE FOR INDEX FILE IX-FS1                 IX1024.2
003700*             X-55   IMPLEMENTOR-NAME FOR SYSTEM PRINTER          IX1024.2
003800*             X-62   IMPLEMENTOR-NAME FOR RAW-DATA                IX1024.2
003900*             X-82   IMPLEMENTOR-NAME FOR SOURCE-COMPUTER         IX1024.2
004000*             X-83   IMPLEMENTOR-NAME FOR OBJECT-COMPUTER         IX1024.2
004100*                                                                 IX1024.2
004200*         NOTE:  X-CARDS 44 AND 62          ARE OPTIONAL          IX1024.2
004300*               AND NEED ONLY TO BE PRESENT IF THE COMPILER RE-   IX1024.2
004400*               QUIRES THIS CODE BE AVAILABLE FOR PROPER PROGRAM  IX1024.2
004500*               COMPILATION AND EXECUTION. IF THE VP-ROUTINE IS   IX1024.2
004600*               USED THE  X-CARDS MAY BE AUTOMATICALLY SELECTED   IX1024.2
004700*               FOR INCLUSION IN THE PROGRAM BY SPECIFYING THE    IX1024.2
004800*               APPROPRIATE LETTER IN THE "*OPT" VP-ROUTINE       IX1024.2
004900*               CONTROL CARD. THE LETTER  CORRESPONDS TO A        IX1024.2
005000*               CHARACTER IN POSITION 7 OF THE SOURCE LINE AND    IX1024.2
005100*               THEY ARE AS FOLLOWS                               IX1024.2
005200*                                                                 IX1024.2
005300*                  J  SELECTS X-CARD 44                           IX1024.2
005400*                  P  SELECTS X-CARD 62                           IX1024.2
005500*                                                                 IX1024.2
005600******************************************************            IX1024.2
005700 ENVIRONMENT DIVISION.                                            IX1024.2
005800 CONFIGURATION SECTION.                                           IX1024.2
005900 SOURCE-COMPUTER.                                                 IX1024.2
006000     Card0130.                                                    IX1024.2
006100 OBJECT-COMPUTER.                                                 IX1024.2
006200     Card0131.                                                    IX1024.2
006300 INPUT-OUTPUT SECTION.                                            IX1024.2
006400 FILE-CONTROL.                                                    IX1024.2
006500     SELECT RAW-DATA   ASSIGN TO                                  IX1024.2
006600     "C0098"                                                      IX1024.2
006700            ORGANIZATION IS INDEXED                               IX1024.2
006800            ACCESS MODE IS RANDOM                                 IX1024.2
006900            RECORD KEY IS RAW-DATA-KEY.                           IX1024.2
007000     SELECT PRINT-FILE ASSIGN TO                                  IX1024.2
007100     "C0085" .                                                    IX1024.2
007200     SELECT   IX-FS1 ASSIGN                                       IX1024.2
007300     XXXXP024                                                     IX1024.2
007400     XXXXP044                                                     IX1024.2
007500        ACCESS MODE IS RANDOM                                     IX1024.2
007600        ORGANIZATION INDEXED                                      IX1024.2
007700     RECORD KEY IX-FS1-KEY.                                       IX1024.2
007800 DATA DIVISION.                                                   IX1024.2
007900 FILE SECTION.                                                    IX1024.2
008000                                                                  IX1024.2
008100 FD  RAW-DATA.                                                    IX1024.2
008200                                                                  IX1024.2
008300 01  RAW-DATA-SATZ.                                               IX1024.2
008400     05  RAW-DATA-KEY        PIC X(6).                            IX1024.2
008500     05  C-DATE              PIC 9(6).                            IX1024.2
008600     05  C-TIME              PIC 9(8).                            IX1024.2
008700     05  C-NO-OF-TESTS       PIC 99.                              IX1024.2
008800     05  C-OK                PIC 999.                             IX1024.2
008900     05  C-ALL               PIC 999.                             IX1024.2
009000     05  C-FAIL              PIC 999.                             IX1024.2
009100     05  C-DELETED           PIC 999.                             IX1024.2
009200     05  C-INSPECT           PIC 999.                             IX1024.2
009300     05  C-NOTE              PIC X(13).                           IX1024.2
009400     05  C-INDENT            PIC X.                               IX1024.2
009500     05  C-ABORT             PIC X(8).                            IX1024.2
009600 FD  PRINT-FILE.                                                  IX1024.2
009700 01  PRINT-REC PICTURE X(120).                                    IX1024.2
009800 01  DUMMY-RECORD PICTURE X(120).                                 IX1024.2
009900 FD  IX-FS1                                                       IX1024.2
010000     LABEL RECORDS STANDARD                                       IX1024.2
010100     ; DATA RECORD IX-FS1R1-F-G-240                               IX1024.2
010200     BLOCK   1   RECORDS                                          IX1024.2
010300     RECORD    240  CHARACTERS.                                   IX1024.2
010400 01  IX-FS1R1-F-G-240.                                            IX1024.2
010500     05 IX-FS1-REC-120   PIC  X(120).                             IX1024.2
010600     05 IX-FS1-REC-120-240.                                       IX1024.2
010700        10 FILLER   PIC X(8).                                     IX1024.2
010800        10 IX-FS1-KEY   PIC X(29).                                IX1024.2
010900        10 FILLER        PIC X(83).                               IX1024.2
011000 WORKING-STORAGE SECTION.                                         IX1024.2
011100 01  WRK-CS-09V00 PIC S9(09)      USAGE COMP VALUE ZERO.          IX1024.2
011200 01  WRK-DS-09V00-002 PIC S9(9) VALUE ZERO.                       IX1024.2
011300 01  WRK-CS-09V00-002 PIC S9(09)       USAGE COMP VALUE ZERO.     IX1024.2
011400 01  I-O-ERROR-IX-FS1 PIC X(3) VALUE "NO ".                       IX1024.2
011500 01  WRK-CS-09V00-001 PIC S9(09)       USAGE COMP VALUE ZERO.     IX1024.2
011600 01  WRK-CS-09V00-004 PIC S9(09)       USAGE COMP VALUE ZERO.     IX1024.2
011700 01  WRK-CS-09V00-005 PIC S9(09)       USAGE COMP VALUE ZERO.     IX1024.2
011800 01  IX-WRK-KEY.                                                  IX1024.2
011900     02 FILLER   PIC  X(10)  VALUE "ABCDLKJXYZ".                  IX1024.2
012000     02  WRK-DU-09V00-001 PIC 9(9) VALUE ZERO.                    IX1024.2
012100     02 FILLER   PIC  X(10)  VALUE "ZIF,.$-+CD".                  IX1024.2
012200 01  DUMMY-WRK-REC.                                               IX1024.2
012300     02 DUMMY-WRK1       PIC X(120).                              IX1024.2
012400     02 DUMMY-WRK2  REDEFINES  DUMMY-WRK1.                        IX1024.2
012500        03 FILLER   PIC X(5).                                     IX1024.2
012600        03 DUMMY-WRK-INDENT-5  PIC X(115).                        IX1024.2
012700 01  FILE-RECORD-INFORMATION-REC.                                 IX1024.2
012800     03 FILE-RECORD-INFO-SKELETON.                                IX1024.2
012900        05 FILLER                 PICTURE X(48)       VALUE       IX1024.2
013000             "FILE=      ,RECORD=      /0,RECNO=000000,UPDT=00".  IX1024.2
013100        05 FILLER                 PICTURE X(46)       VALUE       IX1024.2
013200             ",ODO=0000,PGM=     ,LRECL=000000,BLKSIZ  =0000".    IX1024.2
013300        05 FILLER                 PICTURE X(26)       VALUE       IX1024.2
013400             ",LFIL=000000,ORG=  ,LBLR= ".                        IX1024.2
013500        05 FILLER                 PICTURE X(37)       VALUE       IX1024.2
013600             ",RECKEY=                             ".             IX1024.2
013700        05 FILLER                 PICTURE X(38)       VALUE       IX1024.2
013800             ",ALTKEY1=                             ".            IX1024.2
013900        05 FILLER                 PICTURE X(38)       VALUE       IX1024.2
014000             ",ALTKEY2=                             ".            IX1024.2
014100        05 FILLER                 PICTURE X(7)        VALUE SPACE.IX1024.2
014200     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              IX1024.2
014300        05 FILE-RECORD-INFO-P1-120.                               IX1024.2
014400           07 FILLER              PIC X(5).                       IX1024.2
014500           07 XFILE-NAME           PIC X(6).                      IX1024.2
014600           07 FILLER              PIC X(8).                       IX1024.2
014700           07 XRECORD-NAME         PIC X(6).                      IX1024.2
014800           07 FILLER              PIC X(1).                       IX1024.2
014900           07 REELUNIT-NUMBER     PIC 9(1).                       IX1024.2
015000           07 FILLER              PIC X(7).                       IX1024.2
015100           07 XRECORD-NUMBER       PIC 9(6).                      IX1024.2
015200           07 FILLER              PIC X(6).                       IX1024.2
015300           07 UPDATE-NUMBER       PIC 9(2).                       IX1024.2
015400           07 FILLER              PIC X(5).                       IX1024.2
015500           07 ODO-NUMBER          PIC 9(4).                       IX1024.2
015600           07 FILLER              PIC X(5).                       IX1024.2
015700           07 XPROGRAM-NAME        PIC X(5).                      IX1024.2
015800           07 FILLER              PIC X(7).                       IX1024.2
015900           07 XRECORD-LENGTH       PIC 9(6).                      IX1024.2
016000           07 FILLER              PIC X(7).                       IX1024.2
016100           07 CHARS-OR-RECORDS    PIC X(2).                       IX1024.2
016200           07 FILLER              PIC X(1).                       IX1024.2
016300           07 XBLOCK-SIZE          PIC 9(4).                      IX1024.2
016400           07 FILLER              PIC X(6).                       IX1024.2
016500           07 RECORDS-IN-FILE     PIC 9(6).                       IX1024.2
016600           07 FILLER              PIC X(5).                       IX1024.2
016700           07 XFILE-ORGANIZATION   PIC X(2).                      IX1024.2
016800           07 FILLER              PIC X(6).                       IX1024.2
016900           07 XLABEL-TYPE          PIC X(1).                      IX1024.2
017000        05 FILE-RECORD-INFO-P121-240.                             IX1024.2
017100           07 FILLER              PIC X(8).                       IX1024.2
017200           07 XRECORD-KEY          PIC X(29).                     IX1024.2
017300           07 FILLER              PIC X(9).                       IX1024.2
017400           07 ALTERNATE-KEY1      PIC X(29).                      IX1024.2
017500           07 FILLER              PIC X(9).                       IX1024.2
017600           07 ALTERNATE-KEY2      PIC X(29).                      IX1024.2
017700           07 FILLER              PIC X(7).                       IX1024.2
017800 01  TEST-RESULTS.                                                IX1024.2
017900     02 FILLER                   PIC X      VALUE SPACE.          IX1024.2
018000     02 FEATURE                  PIC X(20)  VALUE SPACE.          IX1024.2
018100     02 FILLER                   PIC X      VALUE SPACE.          IX1024.2
018200     02 P-OR-F                   PIC X(5)   VALUE SPACE.          IX1024.2
018300     02 FILLER                   PIC X      VALUE SPACE.          IX1024.2
018400     02  PAR-NAME.                                                IX1024.2
018500       03 FILLER                 PIC X(19)  VALUE SPACE.          IX1024.2
018600       03  PARDOT-X              PIC X      VALUE SPACE.          IX1024.2
018700       03 DOTVALUE               PIC 99     VALUE ZERO.           IX1024.2
018800     02 FILLER                   PIC X(8)   VALUE SPACE.          IX1024.2
018900     02 RE-MARK                  PIC X(61).                       IX1024.2
019000 01  TEST-COMPUTED.                                               IX1024.2
019100     02 FILLER                   PIC X(30)  VALUE SPACE.          IX1024.2
019200     02 FILLER                   PIC X(17)  VALUE                 IX1024.2
019300            "       COMPUTED=".                                   IX1024.2
019400     02 COMPUTED-X.                                               IX1024.2
019500     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          IX1024.2
019600     03 COMPUTED-N               REDEFINES COMPUTED-A             IX1024.2
019700                                 PIC -9(9).9(9).                  IX1024.2
019800     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         IX1024.2
019900     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     IX1024.2
020000     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     IX1024.2
020100     03       CM-18V0 REDEFINES COMPUTED-A.                       IX1024.2
020200         04 COMPUTED-18V0                    PIC -9(18).          IX1024.2
020300         04 FILLER                           PIC X.               IX1024.2
020400     03 FILLER PIC X(50) VALUE SPACE.                             IX1024.2
020500 01  TEST-CORRECT.                                                IX1024.2
020600     02 FILLER PIC X(30) VALUE SPACE.                             IX1024.2
020700     02 FILLER PIC X(17) VALUE "       CORRECT =".                IX1024.2
020800     02 CORRECT-X.                                                IX1024.2
020900     03 CORRECT-A                  PIC X(20) VALUE SPACE.         IX1024.2
021000     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      IX1024.2
021100     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         IX1024.2
021200     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     IX1024.2
021300     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     IX1024.2
021400     03      CR-18V0 REDEFINES CORRECT-A.                         IX1024.2
021500         04 CORRECT-18V0                     PIC -9(18).          IX1024.2
021600         04 FILLER                           PIC X.               IX1024.2
021700     03 FILLER PIC X(2) VALUE SPACE.                              IX1024.2
021800     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     IX1024.2
021900 01  CCVS-C-1.                                                    IX1024.2
022000     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE              PAIX1024.2
022100-    "SS  PARAGRAPH-NAME                                          IX1024.2
022200-    "       REMARKS".                                            IX1024.2
022300     02 FILLER                     PIC X(20)    VALUE SPACE.      IX1024.2
022400 01  CCVS-C-2.                                                    IX1024.2
022500     02 FILLER                     PIC X        VALUE SPACE.      IX1024.2
022600     02 FILLER                     PIC X(6)     VALUE "TESTED".   IX1024.2
022700     02 FILLER                     PIC X(15)    VALUE SPACE.      IX1024.2
022800     02 FILLER                     PIC X(4)     VALUE "FAIL".     IX1024.2
022900     02 FILLER                     PIC X(94)    VALUE SPACE.      IX1024.2
023000 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       IX1024.2
023100 01  REC-CT                        PIC 99       VALUE ZERO.       IX1024.2
023200 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       IX1024.2
023300 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       IX1024.2
023400 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       IX1024.2
023500 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       IX1024.2
023600 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       IX1024.2
023700 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       IX1024.2
023800 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      IX1024.2
023900 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       IX1024.2
024000 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     IX1024.2
024100 01  CCVS-H-1.                                                    IX1024.2
024200     02  FILLER                    PIC X(39)    VALUE SPACES.     IX1024.2
024300     02  FILLER                    PIC X(42)    VALUE             IX1024.2
024400     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 IX1024.2
024500     02  FILLER                    PIC X(39)    VALUE SPACES.     IX1024.2
024600 01  CCVS-H-2A.                                                   IX1024.2
024700   02  FILLER                        PIC X(40)  VALUE SPACE.      IX1024.2
024800   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  IX1024.2
024900   02  FILLER                        PIC XXXX   VALUE             IX1024.2
025000     "4.2 ".                                                      IX1024.2
025100   02  FILLER                        PIC X(28)  VALUE             IX1024.2
025200            " COPY - NOT FOR DISTRIBUTION".                       IX1024.2
025300   02  FILLER                        PIC X(41)  VALUE SPACE.      IX1024.2
025400                                                                  IX1024.2
025500 01  CCVS-H-2B.                                                   IX1024.2
025600   02  FILLER                        PIC X(15)  VALUE             IX1024.2
025700            "TEST RESULT OF ".                                    IX1024.2
025800   02  TEST-ID                       PIC X(9).                    IX1024.2
025900   02  FILLER                        PIC X(4)   VALUE             IX1024.2
026000            " IN ".                                               IX1024.2
026100   02  FILLER                        PIC X(12)  VALUE             IX1024.2
026200     " HIGH       ".                                              IX1024.2
026300   02  FILLER                        PIC X(22)  VALUE             IX1024.2
026400            " LEVEL VALIDATION FOR ".                             IX1024.2
026500   02  FILLER                        PIC X(58)  VALUE             IX1024.2
026600     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX1024.2
026700 01  CCVS-H-3.                                                    IX1024.2
026800     02  FILLER                      PIC X(34)  VALUE             IX1024.2
026900            " FOR OFFICIAL USE ONLY    ".                         IX1024.2
027000     02  FILLER                      PIC X(58)  VALUE             IX1024.2
027100     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IX1024.2
027200     02  FILLER                      PIC X(28)  VALUE             IX1024.2
027300            "  COPYRIGHT   1985 ".                                IX1024.2
027400 01  CCVS-E-1.                                                    IX1024.2
027500     02 FILLER                       PIC X(52)  VALUE SPACE.      IX1024.2
027600     02 FILLER  PIC X(14) VALUE IS "END OF TEST-  ".              IX1024.2
027700     02 ID-AGAIN                     PIC X(9).                    IX1024.2
027800     02 FILLER                       PIC X(45)  VALUE SPACES.     IX1024.2
027900 01  CCVS-E-2.                                                    IX1024.2
028000     02  FILLER                      PIC X(31)  VALUE SPACE.      IX1024.2
028100     02  FILLER                      PIC X(21)  VALUE SPACE.      IX1024.2
028200     02 CCVS-E-2-2.                                               IX1024.2
028300         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      IX1024.2
028400         03 FILLER                   PIC X      VALUE SPACE.      IX1024.2
028500         03 ENDER-DESC               PIC X(44)  VALUE             IX1024.2
028600            "ERRORS ENCOUNTERED".                                 IX1024.2
028700 01  CCVS-E-3.                                                    IX1024.2
028800     02  FILLER                      PIC X(22)  VALUE             IX1024.2
028900            " FOR OFFICIAL USE ONLY".                             IX1024.2
029000     02  FILLER                      PIC X(12)  VALUE SPACE.      IX1024.2
029100     02  FILLER                      PIC X(58)  VALUE             IX1024.2
029200     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX1024.2
029300     02  FILLER                      PIC X(13)  VALUE SPACE.      IX1024.2
029400     02 FILLER                       PIC X(15)  VALUE             IX1024.2
029500             " COPYRIGHT 1985".                                   IX1024.2
029600 01  CCVS-E-4.                                                    IX1024.2
029700     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      IX1024.2
029800     02 FILLER                       PIC X(4)   VALUE " OF ".     IX1024.2
029900     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      IX1024.2
030000     02 FILLER                       PIC X(40)  VALUE             IX1024.2
030100      "  TESTS WERE EXECUTED SUCCESSFULLY".                       IX1024.2
030200 01  XXINFO.                                                      IX1024.2
030300     02 FILLER                       PIC X(19)  VALUE             IX1024.2
030400            "*** INFORMATION ***".                                IX1024.2
030500     02 INFO-TEXT.                                                IX1024.2
030600       04 FILLER                     PIC X(8)   VALUE SPACE.      IX1024.2
030700       04 XXCOMPUTED                 PIC X(20).                   IX1024.2
030800       04 FILLER                     PIC X(5)   VALUE SPACE.      IX1024.2
030900       04 XXCORRECT                  PIC X(20).                   IX1024.2
031000     02 INF-ANSI-REFERENCE           PIC X(48).                   IX1024.2
031100 01  HYPHEN-LINE.                                                 IX1024.2
031200     02 FILLER  PIC IS X VALUE IS SPACE.                          IX1024.2
031300     02 FILLER  PIC IS X(65)    VALUE IS "************************IX1024.2
031400-    "*****************************************".                 IX1024.2
031500     02 FILLER  PIC IS X(54)    VALUE IS "************************IX1024.2
031600-    "******************************".                            IX1024.2
031700 01  CCVS-PGM-ID                     PIC X(9)   VALUE             IX1024.2
031800     "IX102A".                                                    IX1024.2
031900 PROCEDURE DIVISION.                                              IX1024.2
032000 CCVS1 SECTION.                                                   IX1024.2
032100 OPEN-FILES.                                                      IX1024.2
032200     OPEN I-O RAW-DATA.                                           IX1024.2
032300     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            IX1024.2
032400     READ RAW-DATA INVALID KEY GO TO END-E-1.                     IX1024.2
032500     MOVE "ABORTED " TO C-ABORT.                                  IX1024.2
032600     ADD 1 TO C-NO-OF-TESTS.                                      IX1024.2
032700     ACCEPT C-DATE  FROM DATE.                                    IX1024.2
032800     ACCEPT C-TIME  FROM TIME.                                    IX1024.2
032900     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1.             IX1024.2
033000 END-E-1.                                                         IX1024.2
033100     CLOSE RAW-DATA.                                              IX1024.2
033200     OPEN    OUTPUT PRINT-FILE.                                   IX1024.2
033300     MOVE  CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.  IX1024.2
033400     MOVE    SPACE TO TEST-RESULTS.                               IX1024.2
033500     PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.              IX1024.2
033600     MOVE    ZERO TO REC-SKL-SUB.                                 IX1024.2
033700     PERFORM CCVS-INIT-FILE 9 TIMES.                              IX1024.2
033800 CCVS-INIT-FILE.                                                  IX1024.2
033900     ADD     1 TO REC-SKL-SUB.                                    IX1024.2
034000     MOVE    FILE-RECORD-INFO-SKELETON                            IX1024.2
034100          TO FILE-RECORD-INFO (REC-SKL-SUB).                      IX1024.2
034200 CCVS-INIT-EXIT.                                                  IX1024.2
034300     GO TO CCVS1-EXIT.                                            IX1024.2
034400 CLOSE-FILES.                                                     IX1024.2
034500     OPEN I-O RAW-DATA.                                           IX1024.2
034600     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            IX1024.2
034700     READ RAW-DATA INVALID KEY GO TO END-E-2.                     IX1024.2
034800     MOVE "OK.     " TO C-ABORT.                                  IX1024.2
034900     MOVE PASS-COUNTER TO C-OK.                                   IX1024.2
 ERROR-COUNTER VALUE.       .2
035100     MOVE ERROR-COUNTER                999      .       IX1024
IX1024.2
035300     MOVE INSPECT-COUNTER TO C-INSPECT.                           IX1024.2
035400REWRITE INVALID GO .             IX1024
035500 END-E-2.                                                         IX1024.2
035600     CLOSE RAW-DATA.                                              IX1024.2
035700     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   IX1024.2
035800 TERMINATE-CCVS.                                                  IX1024.2
035900     EXIT.                                                .2
 .                                                  .2
36100STOP.                                                IX1024
036200 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         IX1024.2
..
 .  MOVE"TOP-OR-F.ADD 1TO ERROR-COUNTER.          IX10242
 .  MOVE*  P-OR-F 1TO .      IX1024
036600     MOVE "****TEST DELETED****" TO RE-MARK.                      IX1024.2
036700 PRINT-DETAIL.                                                    IX1024.2
036800     IF REC-CT NOT EQUAL TO ZERO                                  IX1024.2
036900             MOVE"2"                                                      2
037000             MOVE REC-CT TOFILLER                         X(28               IX1024
037100     MOVE     TEST-RESULTS TO02530002FILLER                        
037200     IF P-OR-F EQUAL TO02550001CCVS-H-2B                                                   IX1024
037300        PERFORM            TESTIX1024
037400          ELSE PERFORM BAIL-OUT02  TEST-ID X().                    .2
037500      SPACE P-OR-FMOVE  TO .              IX10242
037600     MOVE SPACE TO CORRECT-X.                                     IX1024.2
IF-  TO  MOVE TOPAR-AME.         IX1024
           TORE-.                                   java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
 HEADROUTINEIX1024.2
038000     MOVE CCVS-H026600"-SITE VALIDATION,NATIONALINSTITUTE OFSTD &TECH.     "IX10242
038100     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IX1024.2
038200     MOVE CCVS-H-2B TO DUMMY-RECORD. 027000                        (               .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038300     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM01CCVS-E-1.                                                    IX1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
038400 COLUMN-NAMES-ROUTINE.                                            IX1024.2
038500     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX1024   -E-.IX1024.2
038600     MOVE CCVS--2TODUMMY-RECORD. PERFORM WRITE-INE2TIMES.   IX1024.
038700     MOVE HYPHEN-02810002                       X21   SPACE      .2
038800 END-ROUTINE.                                                     IX1024.2
038900     MOVE HYPHEN-LINE03FILLERPICVALUE.IX1024
 ENDRTNEXIT.                                                   
039100     MOVE CCVS-028600ERRORS                                 java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
039200 END-ROUTINE-1.                                                   IX1024.2
       - TO-HOLD ADDINSPECT- TOIX1024.
      -. ADDDELETE-OUNTER TO -HOLD.              .2
039500      ADDFILLERPIC(   SPACEIX1024
039600*IF-OUNTER EQUALTO-HOLD GO TO ENDROUTINE.  IX10242
039700      MOVE PASS-COUNTER TO CCVS-E-4-1.                            IX1024.2
039800      MOVE ERROR-HOLD TO CCVS-E02970002 -E4-                    XXXVALUESPACEIX1024.
039900      MOVE CCVS-E-4 TO CCVS-E-2-2.                                IX1024.2
ERFORM-LINE.           IX1024.
040100  END-ROUTINE-12.                                                 IX1024.2
040200      MOVE "TEST(S) FAILED" TO030400            "** INFORMATION ***".                                .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
040300     IFERROR-COUNTERISEQUAL TO ZERO                      IX1024  ZEROIX1024.2
040400         MOVE "NO " TO ERROR-TOTAL     02 INFANSIREFERENCEPIC(48.                   IX1024.2
040500         ELSE                                                     
040600         MOVE ERRORCOUNTERTO ERROR-.                       .2
40700     --TODUMMYRECORD                           IX10242
040800     PERFORM WRITE-LINE.                                          IX1024.2
040900END-.                                                  
041000     IF DELETE-COUNTER IS EQUAL TO ZERO                           IX1024.2
041100         MOVE "NO " TO ERROR-TOTAL  ELSE                          IX1024.2
041200         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      IX1024.2
041300     MOVE "TEST(S) DELETED     " TO ENDER-DESC.                   IX1024.2
041400     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX1024.2
041500      IF   INSPECT-COUNTER EQUAL TO ZERO                          IX1024.2
041600          MOVE "NO " TO ERROR-TOTAL                               IX1024.2
041700      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   IX1024.2
041800      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            IX1024.2
041900      MOVE"BORTED"TO-.IX10242
042000      CCVSE3TO DUMMYRECORD.PERFORMWRITE-LINE.IX1024
032700ACCEPT-   .IX1024.
042200     ADD 1 TO RECORD-COUNT.                                       IX1024032800ACCEPT C-TIME  FROMTIME                                    .
042300     IF RECORD-COUNT GREATER 42                                   IX1024 ENDE-1.                                                        .
042400         MOVE DUMMY-RECORD TO DUMMY-HOLD                          IX1024.2
042500033300MOVECCVSPGM- TO TEST-.  CCVS-PGM-DTO IDAGAIN  IX1024.
042600         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  IX1024.2
042700         MOVE CCVS-H-1  TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    IX1024.2
042800         MOVE CCVS-H-2APERFORMCCVS-INIT- 9 .                              IX1024.2
042900         MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    IX1024.2
043000         MOVE CCVS-H-3  TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    IX1024.2
043100         MOVE CCVS-C-1  TO DUMMY-RECORD PERFORM WRT-LN            IX1024.2
043200         MOVE CCVS-C-2  TO DUMMY-RECORD PERFORM WRT-LN            IX1024.2
043300         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          IX1024.2
043400         MOVE DUMMY-HOLD TO DUMMY-RECORD                          IX1024.2
043500          ZERO TORECORDCOUNT                               .2
043600     PERFORM WRT-LN.                                              IX1024OPEN I-RAWDATA.IX1024.2
043700 WRT-LN.                                                          RAW- INVALIDKEY GOTOENDE2.                     
043800     WRITE    DUMMY034900      PASSCOUNTERTOOK.                                   .2
043900     MOVE SPACE TO DUMMY-RECORD.                                  IX1024.2
044000 BLANK-LINE-PRINT.                                                IX1024.2
044100     PERFORM WRT-LN.                                              IX1024.2
044200 FAIL-ROUTINE.                                                         REWRITERAWDATA- INVALIDKEYGO TOEND-E.            .2
044300     IF     COMPUTED-X NOT EQUAL TO SPACE                         IX1024.2
044400            GO TO   FAIL-ROUTINE-WRITE.                           IX1024.2
044500     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IX1024.2
044600MOVEANSIREFERENCE TOINF-ANSI-REFERENCE.                IX10242
044700     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   IX1024.2
044800     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX1024.2
044900     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IX1024.2
045000     GO TOFAIL-OUTINEEX.                                      IX1024.2
045100036500DELETE  MOVE"****"TO P-OR-F.  ADD1 TO DELETECOUNTER      IX10242
045200     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         IX1024.2
045300     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 IX1024.2-                                                    2
045400     MOVE    MOVE"" TOPARDOTX                                 IX10242
045500     MOVE   SPACES TO CORANSIREFERENCEIX10242
045600 FAIL-ROUTINE-EX. EXIT.                                           IX1024.2
045700 BAIL-OUT.                                                        IX1024.2
045800     IF     COMPUTED-A NOT EQUAL TOPERFORMFAIL-ROUTINE THRUFAIL--                 .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
045900ROUTINEIX1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
BAILWRITE                                                  
     MOVE CORRECTATOXXCORRECT.MOVE -ATO .  .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046200     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.COLUMN--ROUTINE                                            
046300     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-038600MOVE --TO DUMMYRECORD  WRITELINE 2TIMESIX10242
046400     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IX1024
046500 BAIL-OUT-EX.039000ENDRTNEXIT                                                    IX10242
046600 CCVS1-EXIT.                                                      IX1024.2
046700     EXITADDERROR TO -OLDADD -       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
046800 SECT-IX-02-001 SECTION.                                          IX1024.2
.2
047000*                                                                 IX1024.2
047100      MOVE- TOCCVSE--.IX1024.2
047200*                                                                 IX1024.2
047300     OPEN     INPUT  IX-FS1.                                      IX1024.2
047400     040000MOVE-2TO -RECORD PERFORM WRITE-LINE.           IX1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
047500     MOVE    ZERO TO WRK-DU-09V00-001.                            IX1024.2
047600     MOVE    IX-WRK-KEY  TO         MOVE"O"TOERRORTOTALIX1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
047700     MOVE     ZERO TO   WRK-CS-09V00-002                          IX1024.2
047800     MOVE     ZERO  TO  WRK-DU-09V00-001                          IX1024.2
047900     MOVE    "READ ... INVALID"040800      WRITE-LINE.                                          IX1024.2
048000 READ-TEST-F2IF -   TOZERO                           IX1024.
048100     ADD      1 TO WRK-DU-09V00-001                               IX1024.2
048200     MOVE      IX-WRK-KEY TO IX-FS1-KEY.                          IX1024.2
048300     IF     WRK-DU-09V00-001  GREATER  501                        IX1024.2
048400              MOVE "INVALID KEY NOT TAKEN" TO COMPUTEDIFINSPECT- EQUALTOZERO                          IX1024.2
048500             MOVE    WRK-DU-09V00-001  TO CORRECT041700ELSE -  -TOTAL.IX10242
048600              PERFORM FAIL                                        IX1024.2
048700              PERFORM PRINT-DETAIL                                IX1024.2
048800              GO TO READ-WRITE-F2-01.                             IX1024.2
048900     READ     IX-FS1                                              IX1024.2
049000INVALID GOTO READWRITE-201                  2
049100     MOVEMOVE - TO-                          2
           -1  TO--09-001         .2
049300GO  READ-                              
MOVE    YESTO IOERRORIX-FS1                           IX1024.
049500     ADD      1 TO WRK-CS-09V00-002                               IX1024.2
049600     GO TO    READ-TEST-F2-01.                                    IX1024.2
049700 READ-WRITE-F2-01.                                                IX1024.2MOVE-1TODUMMYRECORD  -LN            .2
049800               HYPHENLINE DUMMY-RECORDPERFORM WRTLN          IX10242
049900              MOVE "WRONG KEY/NOT 500" TO CORRECT-A               IX1024.2
050000             MOVE    WRK-DU-09V00-001        WRT-.                                              
050100              MOVE "IX-28 4.5.2                       " TO RE-MARKIX1024.2
050200              PERFORM FAIL                                        IX1024.2
050300              ELSE                                                IX1024.2
050400               PASS.                                       .2
050500     PERFORM PRINT-DETAIL.                                        IX1024.2
050600 READ-TEST-F2-02.                                                 IX1024.2
050700     MOVE     "READ-TEST-F2-02" TO PAR-NAME.                      IX1024.2
050800     MOVE"READ ... INVALID"  TO .                      .2
050900*                                                                 IX1024.2
051000*  TEST   2                                                       IX1024.2
051100*                                                                 IX1024.2
051200     IF       XRECORD-NUMBER (1) NOT EQUAL TO 500                 IX1024.2
051300              MOVE "WRONG RECORD/NOT 500" TO CORRECT-A            IX1024.2
051400              MOVE  XRECORD-NUMBER (1 TO COMPUTED18V0           IX1024.2
051500MOVEIX 52                       TO -2
051600              PERFORM FAIL                                        IX1024.2
051700              ELSE                                                IX1024.2
051800              PERFORM PASS.                                       IX1024.2
051900     PERFORM PRINT-ETAIL                                        .
052000 READ-TEST-F2-03.                                                 IX1024.2
052100          MOVE     "EADTESTF2-"TO -.                      IX1024.2
052200     MOVE    "READ ... INVALID"  TO FEATURE.                      IX1024.2
052300*                                                                 IX1024.2
052400*  TEST   3                                                       IX1024.2
052500*                                                                 IX1024.2
052600     IF      WRK-DU-09V00-001 NOT EQUAL TO 501                    IX1024.2
052700              MOVE "INCORRECT RECORD COUNT" TO RE-MARK            IX1024.2
052800              MOVE  WRK-DU-09V00-001 TO COMPUTED-18V0             IX1024.2
052900             MOVE 501  TO CORRECT-18V0                            IX1024.2
053000              MOVE "IX-28 4.5.2                       " TO .   IX10242
053100              PERFORM FAIL                                        IX1024.2
053200              ELSE                                                .IX1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
053300              PERFORM PASS.                                       IX1024.2
053400     PERFORM PRINT-DETAIL.                                        IX1024.2
053500 READ-TESTF2-04.                                                 2
053600     MOVE     047100*TEST   1IX1024.2
053700     MOVE    "READ ... INVALID"  047200*                                                                 
053800*                                                                 IX1024.2
053900*  TEST   4                                                       IX1024.2
054000MOVE--KEYTOIX-FS1-KEY.IX1024.2
054100     IF       I-O-ERRORMOVEZEROTO   WRKCS09-IX1024
-09- TOCOMPUTED-V0IX1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
               RECORDS NOT COMPARE  REMARK           .
054400              MOVE "IX-28 4.5.2                       " TO RE-MARKIX1024.2
054500              PERFORM FAIL                                        IX1024.2
054600              ELSE                                                IX1024.2
054700              PERFORM PASS.                                       IX1024.2
054800     PERFORM PRINT048500MOVE    WRK-U09-001TOCORRECT-18            IX10242
054900     CLOSE    IX-FS1.                                             IX1024.2
055000 REWRITE-INIT-F2048900     READ     -                                              
055100     MOVE     "REWRITE-TEST-F2-01"MOVEFS1R1-240 TOFILERECORD- (1)           .2
055200     OPEN049200     IFXRECORDNUMBER ()EQUAL TO WRK-DU-09V00-001         IX10242
055300     MOVE     ZERO TO IX-FS1-KEY.                                 IX1024.2
055400     MOVE     ZERO TO WRK-CS-09V00-002.                           IX1024.2
055500     MOVE     ZERO TO WRK-DU-09V00-001.                           IX1024.2
055600     MOVE"REWRITE .. INVALID    FEATURE.                  IX10242
055700     MOVE     SPACE049500ADD  WRK--09-002                               .
055800 REWRITE-TEST-F2-01.                                              IX1024.2
055900*                                                                 IX1024.2
056000* REWRITE TEST1                                                .2
056100*                                                                 IX1024.2
056200     ADD      5 TO  WRK-DU-09V00-001.                             IX1024.2
056300     MOVE    IX-WRK-KEY TO IX-FS1                 WRK--09V00-001    COMPUTED-18V0          IX1024.
056400     IF    WRK-DU-09V00-001  GREATER 505                          IX1024.2
056500              MOVE "INVALID KEY/NOT TAKEN" TO COMPUTED-A          IX1024.2
             WRK09-TO-V0IX1024
056700              PERFORM               .                                      IX1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
056800              PERFORM PRINT-DETAIL                                IX1024.2
056900              GO TO REWRITE-TEST-F2-01-3.                         IX1024.2
057000     READ     IX-FS1                                              IX1024.2
057100              INVALID KEY  TOREWRITE-TEST-F201-.             IX1024.2
057200     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1)             IX1024.2
057300     ADD      01 TO UPDATE-NUMBER (1).                            IX1024.2
057400     MOVE  CCVS-PGM-ID  TO XPROGRAM-NAME (1).                     IX1024.2
OIXFS1R1FG-.IX10242
057600     REWRITE    IX-FS1R1-F-G-240                                  IX1024.2
057700              INVALID KEY GO TO REWRITE-TEST-F2-01-2.             IX1024.2
057800     GO TO    REWRITE-TEST-F2-01.                                 IX1024.2
057900 REWRITE-TEST-F2-01-1.                                            IX1024
058000     IF      WRK-DU-09V00-001  LESS THAN 501                      IX1024.2*IX1024.2
058100              ADD 1 TO  WRK-CS-09V00-004                          IX1024.2
               TOREWRITE-F201.IX10242
058300     PERFORM   PASS.                                              IX1024.2
058400     PERFORM    PRINT-DETAIL053000MOVEIX ..                        TO RE-ARKIX1024.2
058500 REWRITE-TEST-F2-02.                                              IX1024.2
058600MOVEREWRITE--2" -.IX1024.2
058700           PRINT.IX1024.
058800                                                                 
058900*  REWRITE TEST          "--F2-"TOPARNAMEIX1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
059000*                                                                 TEST
059100     GO
 ---01-.                                           
059300     ADD      1 TO WRK-CS-09V00-005.                               -TESTF2-01                                              IX1024.2
059400     IFIX1024.
059500                   ADD      5TO  --V00-001.IX10242
059600 REWRITE-TEST-F2-01-3.                                            IX1024.2
     WRK-- NOTEQUAL TOZEROIX10242
059800              MOVE "INVALID java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
               WRK--  CORRECT18               .2
060000              MOVE "         --F-G-240IX1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
060200              ELSE                                                IX1024.2
060300              PERFORM PASS.                                       IX1024.2
060400     PERFORM PRINT-DETAIL.                                        IX1024.2
REWRITE-03                                              
060600     MOVE     "*IX1024.2
060700     MOVE    "REWRITE ... INVALID                                 IX1024.2
060800*                                                                 IX1024.2
060900*  REWRITE TEST  059200-TESTF2--.                                           
061000*                                                                 IX1024.2
061100     IF       WRK-059500GO REWRITETEST-.                          .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
061200              MOVE "INVALID KEY ON REWRITE" TO COMPUTED-A         IX1024.2
061300              MOVE  WRK-CS-0900004  CORRECT18V0IX1024
061400              MOVE "IX-28 4.5.2                       " TO RE-MARKIX1024.2
061500              PERFORM 060100               FAILIX1024
061600              ELSE                                                IX1024.2
061700              PERFORM PASS.                                       IX1024.2
061800     PERFORM PRINTREWRITE---03                                              .
061900     CLOSE    IX-FS1    " ..INVALID    .                  .
062000 READ-INIT-F2-05.                                                 IX1024.2
062100     MOVE     061100IFWRK--005NOT TOZEROIX1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
062200OPENINPUTIXFS1                                      
062300     MOVE     501  TO WRK-DU-09V00-001.                           IX1024.2
062400     MOVE    ZERO TO WRK-CS-09V00-004.                            IX1024.2
062500     MOVE    ZERO TO WRK-CS-09V00-005.                            IX1024.2
062600     MOVE    ZERO TO WRK-CS-09V00-002.                            IX1024.2
062700     MOVE     SPACE TO  FILE-RECORD-INFO (1).                     IX1024.2
062800     MOVE"  ... INVALID "   TO FEATURE.                   .2
062900 READ-TEST-F2-05.                                                 IX1024.2
IF--V00001  EQUALTO                       .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
063100              MOVE "INVALID KEY/NOT TAKEN" TO COMPUTED-A          IX1024.2
063200             MOVE    WRK-DU-09V00-001  TO  COMPUTED-18V0          IX1024.2
MOVE CORRECT18IX10242
063400              MOVE "IX-28 4.5.2                       " TO RE-MARKIX1024.2
063500              PERFORM FAIL                                        IX1024.2
063600              PERFORM PRINT-DETAIL                                IX1024.2
063700              GO TO READ-TEST-F2-05.                              IX1024.2
063800               1   WRKDU09-001.                      IX1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
063900     MOVE      IX-WRK-KEY TO IX-FS1-KEY.                          IX1024.2
064000     READ     IX-FS1                                              IX1024.2
064100              INVALID KEY  GOTOREAD-TEST-2-.              IX1024.2
064200     MOVE     IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).           IX1024.2
064300     064300     IF     -NUMBER(1)EQUAL TO 00IX1024.2
064400              ADD 1064400                             1TO WRK-CS-V00004.                          IX10242
064500     IF     UPDATE-NUMBER (1) EQUAL TO 01                         IX1024.2
.                          IX1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
064700     GO TO    READ-TEST-F2-05.                                    IX1024.2
064800 READ-TEST065400-TEST-06                                                 
064900     IF      WRK-DU-09V00-001  GREATER ZERO                       IX1024.2
              1TOWRK-V002
065100              GO TO READ-TEST-F2-05065800     6IX1024.2
     PERFORM   PASS                                              IX1024.
065300     PERFORM   PRINT-DETAIL.                                      IX1024.2
065400 READ-TEST-F2-06.                                                 IX1024.2
065500     MOVE     "READ-TEST-F2-06" TO PAR-NAME.                      IX1024.2
065600066300               "SHOULD BE400"TORE-ARKIX1024.
065700*                                                                 IX1024.2
065800*  TEST   6                                                       IX1024.2
065900*                                                                 IX1024.2
066000            -09V00 EQUAL                    .
066100              MOVE "NON-UPDATED RECORDS" TO COMPUTED-A            IX1024.2
066200              MOVE WRK-CS.
066300              MOVE "SHOULD BE 400" TO RE-MARK                     IX1024.2
066400              MOVE "IX-28 4.5.2                       " TO RE-MARKIX1024               -CS09-005TOCORRECT18               .2
066500              PERFORM FAIL                                        IX1024.2
066600              ELSEPERFORM -DETAILIX1024.2
066700              PERFORM068400READ-F208.IX1024.2
066800     PERFORM PRINT-DETAIL.                                        IX1024.2
066900 READ-TEST-F2-07.                                                 IX1024.2
067000     MOVE     "READ-TEST-F2-07" TO PAR-NAME.                      IX1024.2
067100     MOVE    "READ ... INVALID"  TO FEATURE.                      IX1024.2
067200*                                                                 IX1024     IF      WRK-CS-V00                             IX10242
067300*  TEST   7                                                       IX1024.2
067400*                                                                 IX1024.2
067500     IF       WRK-CS-09V00-005   NOT EQUAL TO 100                 IX1024.2
               " " TOCOMPUTED-A                IX1024.2
067700              MOVE WRK-CS-09V00-005 TO CORRECT-18V0               IX1024.2
067800              MOVE "SHOULD BE 100" TO RE-ARK                     IX1024.
067900              MOVE "IX-28 4069900 CCVS-EXIT SECTION.IX1024.2
068000              PERFORM FAIL                                        IX1024.2
068100              ELSE                                                IX1024.2
068200              PERFORM                                           
068300     PERFORM PRINT-DETAIL.                                        IX1024.2
068400 READ-TEST-F2-08.                                                 IX1024.2
068500     MOVE     "READ-TEST-F2-08" TO PAR-NAME.                      IX1024.2
068600     MOVE    "READ ... INVALID"  TO FEATURE.                      IX1024.2
068700*                                                                 IX1024.2
068800*  TEST   8                                                       IX1024.2
068900*                                                                 IX1024.2
069000     IF      WRK-CS-09V00-002 GREATER 1                           IX1024.2
069100             MOVE WRK-CS-09V00-002 TO COMPUTED-N                  IX1024.2
069200             MOVE  "INVALID KEY/READS" TO CORRECT-A               IX1024.2
069300              MOVE "IX-28 4.5.2                       " TO RE-MARKIX1024.2
069400             PERFORM FAIL                                         IX1024.2
069500              ELSE                                                IX1024.2
069600              PERFORM PASS.                                       IX1024.2
069700     PERFORM PRINT-DETAIL.                                        IX1024.2
069800     CLOSE    IX-FS1.                                             IX1024.2
069900 CCVS-EXIT SECTION.                                               IX1024.2
070000 CCVS-999999.                                                     IX1024.2
070100     GO TO CLOSE-FILES.                                           IX1024.2