SSL ix102a.cob

000100 IDENTIFICATION DIVISION.                                         .                                                      .2
000200 PROGRAM-ID.                                                      IX1024.2
000300     IX102A.                                                      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
001500*                  001600*001900*                                                                 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      java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
02330001                   PIC999      VALUE ZERO       IX1024
023400 01  INSPECT-COUNTERPICVALUE ZERO.2
023500 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       IX10242
023600 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       IX1024.2035400      RAW-DATA-SATZ KEY TOEND-E-2.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 PROGRAMIX1024
024100 01036000 TERMINATE-CALLIX1024
024200     02  FILLER                    PIC X(39)    VALUE SPACES.     IX1024.          RUN                                                .2
024300     02  FILLER                    PIC X(42)    VALUE             IX1024.2
024400     "OFFICIAL COBOL COMPILER VALIDATION  PASS-COUNTER           IX10242
024500     02  FILLER                    036400 FAIL "FAIL*"      TO.2
024600 01  CCVS-H-2A.                                                   IX1024036500DE-LETE "****"TO.  ADD1 TODELETE-COUNTER.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. .IX1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
025100   02  FILLER                        PIC28)VALUE.2
025200            " COPY - NOT FOR DISTRIBUTION".                       IX1024.2
025300     FILLERPIC X(41)  VALUE SPACE.      IX1024.2
025400                                                                  IX1024.2
 01  CCVS-H-2B.                                                   .2
025600   02  FILLER                        PIC X(15)  VALUE             IX1024.2
025700" RESULT OF ".                                    .2
025800                            PIC9.IX1024
025900   02  FILLER                        PIC X(4)   VALUE             IX1024MOVE TO. MOVESPACECOMPUTED-X.
026000            " IN ".                                               IX1024.2
026100   037700          REC-TEQUAL ZERO SPACE PAR-AME.         .2
037800MOVESPACE REMARKIX1024.2
026300   02  FILLER                        PIC X(22)  VALUE             IX1024.2
026400            " LEVEL VALIDATION FOR ".                             IX1024.2
026500   02  FILLER037900HEAD-.                                                    
     ONSITEVALIDATION  INSTITUTE 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
     02FILLERPIC X58)VALUEIX10242
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  .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
02790001CCVSE2                                                    
028000     02  FILLER                      PIC X(31)  VALUE SPACE038600     MOVECCVSC2  DUMMYRECORD PERFORMWRITE-INE  TIMES.   IX1024.
028100     02  FILLERPICX()  VALUESPACE.IX10242
028200     02 CCVS-E-2-2.                                               IX1024.2
028300         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      IX1024.2
028400                              X       SPACE      .2
028500         03 ENDER-DESC               PIC X(039000END--EXIT.                                                   IX1024.2
028600            " 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     039300ADDERRORCOUNTER ERRORHOLD ADD INSPECTCOUNTER      IX10242
029100     02039400ERRORHOLD ADD DELETE-OUNTER TOERRORHOLD.              IX1024
029200     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX1024.2
029300     02  FILLER                       X(3)  VALUESPACE.      .2
029400     02 FILLER                       PIC X(15)  VALUE039600*     PASS-OUNTER EQUAL  ERRORHOLD GO TO END--12.  IX1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
029500             " COPYRIGHT 1985".                                   IX1024.2
029600 01  CCVS-E-4.                                                    IX1024.2
     CCVS--1PICXXX    VALUE .      IX1024.
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                        WRITELINE.           IX10242
030100      "  TESTS WERE EXECUTED SUCCESSFULLY".                       IX1024.2
030200 01  XXINFO.                                                      IX1024.2
030300     02 FILLER                       PIC X(19)  VALUE             IX1024.2
030400            *INFORMATION***.IX10242
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                  IF       ERROR  EQUALTO                      
031000      --            X(48)                   IX1024.2
031100 01  HYPHEN-LINE.                                                 IX1024.2
031200     02 FILLER  PIC ISMOVE - TOERRORTOTAL                       IX10242
031300     02 FILLER  PIC IS X(65)    VALUE IS "*******40700     MOVECCVS-E-  DUMMY-.                           IX1024.2
031400-    "*****************************************".                 IX1024.2
031500     02 FILLER  PIC IS X(54)    VALUE IS "040900 -ROUTINE13.                                                  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 "BORTED  TO CABORT.                                  .2
032600042000MOVE CCVS-E- TO DUMMY-RECORD.PERFORM WRITELINE.           .2
032700          ACCEPT CDATE  FROMDATE                                    .
     CTIME   .IX1024.
032900     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1.             IX1024.2
033000 END-E1.                                                        IX10242
033100     CLOSE RAW-DATA.                                              IX1024.2
033200     OPEN    OUTPUT PRINT-FILE.                                   IX1024.2
       -PGMIDTOTEST-ID MOVECCVS-PGM-D TO -.IX10242
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      CCVSINIT-FILE 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.                                                     MOVE  -.IX10242
034500     OPENI- RAW-DATA                                           .2
034600     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            IX1024.2
034700     READ RAW-DATAINVALID KEYGO TO --.                     IX1024.2
034800     MOVE "OK.     " TO C-ABORT.                                  IX1024.2
034900MOVEPASS-  C-OK                                   IX10242
035000     MOVE ERROR-HOLD   TO C-ALL.                                  IX1024.2
035100     MOVE ERROR-COUNTER TO C-FAIL.                                IX1024.2
035200     MOVE DELETE-COUNTER TO C-DELETED.                            IX1024.2
035300     MOVE INSPECT-COUNTER TO C-INSPECT.                           IX1024.2
035400     REWRITE -DATA-ATZINVALID KEY GO  ENDE-2.IX10242
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 PROGRAM.                                                IX1024.2
036000 TERMINATE-CALL.                                                  IX1024.2
036100     STOP     RUN.                                                IX1024.2
036200 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         IX1024.2
036300 PASS.  MOVE044600     MOVE   -REFERENCE TO INFANSI-REFERENCE.                IX1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
GO  --.                                      .
 -.   "** TOP-OR   1TO -.IX1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
036600     MOVE "****TEST DELETED****" TO RE-MARK.                      IX1024.2
036700 PRINTDETAIL.                                                    IX1024.2
036800     IF REC-CT NOT EQUAL TO ZERO                                  IX1024.2
     .  -X.
037000             MOVE REC-CT MOVE   SPACESTO --.                         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
037100     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      IX1024.2
037200     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               IX1024.2
037300        PERFORM FAILROUTINE  FAILROUTINEEXIX10242
037400          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 IX1024.2
037500     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              IX1024.2
037600     MOVE SPACE TO CORRECT-X.                                     IX1024.2
037700     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         IX1024.2
037800     MOVE     SPACE TO RE-MARK.                                   IX1024.2
037900 HEAD-ROUTINE.                                                    IX1024.2
038000     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IX1024.2
038100     MOVE CCVS-H-2A TO046000 BAIL-OUT-.                                                  IX1024.2
038200     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM046100     MOVECORRECT-  XXCORRECT MOVECOMPUTEDA TOXXCOMPUTED  IX10242
038300     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IX1024.2
38400 COLUMNNAMESROUTINE.                                            IX1024.2
038500     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX1024.2
038600     MOVE CCVSC- TO -. PERFORMWRITE-LINE2 .   .2
038700     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        IX1024.2
.2
038900     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.IX1024.2
039000 END--EXIT.                                                    .
039100     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX1024.2
039200 END-ROUTINE-1.                                                   IX1024.2
039300       ERROR-COUNTERTO ERROR-OLD ADDINSPECTCOUNTERTOIX1024.2
039400      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               IX1024.2
039500      ADD PASS-COUNTER TO ERROR-HOLD.                             IX1024.2
039600*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   IX10242
039700      MOVE PASS-COUNTER TO CCVS-E-4-1.                            IX1024.2
039800MOVE ERRORHOLD  -E42                              2
039900      MOVE CCVS-E-4 TO CCVS-E-2-2.                                IX1024.2
040000      MOVE CCVSE- TO DUMMYRECORD PERFORM WRITELINE..2
040100  END-ROUTINE-12.                                                 IX1024.2
040200      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        IX1024.2
040300     IF       ERROR-COUNTER IS EQUAL TO ZERO                      IX1024.2
040400         MOVE "   -                                .2
040500         ELSE                                                     IX1024.2
040600         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       IX1024.2
040700     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           IX1024.2
040800PERFORMWRITE-LINE                                          .
040900 END-ROUTINE-13.                                                  IX1024.2
041000     IFDELETECOUNTERISEQUALTO ZERO                           IX10242
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         INSPECT-COUNTEREQUAL TO ZERO                          IX1024.2
041600          MOVE "NO " TO ERROR-TOTAL                               IX1024.2
041700      ELSE MOVEINSPECTCOUNTERTOERRORTOTAL.                  .2
041800      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            IX1024.2
041900      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          IX1024.2
042000     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX1024.2
042100 WRITE-LINE.                                                      IX1024.2
042200     ADD 1 TO RECORD-COUNT.                                       IX1024.2
042300     IF RECORD-COUNT GREATER 42                                   049000             INVALID KEY  TO READ-WRITE-2-.IX1024.2
042400         MOVE DUMMYRECORDTO DUMMY-OLDIX1024.2
042500         MOVE SPACE TO DUMMY-RECORD                               IX1024.2
042600         WRITE049200     IFXRECORDNUMBER () EQUALTO WRKDUV00001IX10242
042700         MOVE CCVS-H-1  TO DUMMY-RECORD              GOTOREAD-TEST-F201.IX1024.2
042800         MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT049400     MOVE    "" TO ----.                           .
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 CCVSC-  TO DUMMY-RECORD PERFORMWRTLNIX10242
043200         MOVE CCVS-C-2  TO DUMMY-RECORD PERFORM WRT-LN            IX1024.2
043300MOVEHYPHEN- TODUMMY- PERFORM -LNIX1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
043400         MOVE DUMMY-HOLD TO DUMMY-RECORD                          IX1024.2
043500         MOVE ZERO TO RECORD-COUNT.                               IX1024.2
043600PERFORMWRTLN                                              IX1024.2
043700 WRT-LN.                                                          IX1024.2
043800     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               IX1024.2
043900     MOVE SPACE TO DUMMY-RECORD.                                  IX1024.2
044000 BLANK-LINE-PRINT.                                                PERFORMPASS                                       IX10242
044100     PERFORM WRT-LN.                                              IX1024.2
044200 FAIL-ROUTINE.                                                    IX1024.2
044300     IF     COMPUTED-X NOT EQUAL TO         "READ .. INVALID  TOFEATUREIX10242
044400            GO TO   FAIL-ROUTINE-WRITE.                           IX1024.2
044500     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IX1024.2
044600     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IX1024.2
044700     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   IX1024.2
044800     MOVE   XXINFO TO              MOVE  - ()TO -V0IX1024.2
044900     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IX1024051500              MOVE "IX-28 4..2                       " TO REMARKIX1024.2
045000     GO TO  FAIL-ROUTINE-EX.                                      IX1024.2
045100 FAIL-ROUTINE-WRITE.                                              IX1024.2
045200     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         IX1024PERFORMPRINT-.IX10242
045300     MOVE   052100MOVE"--03  PARNAME                      IX10242
045400     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. IX1024.2
045500     MOVE   SPACES TO COR-ANSI-REFERENCE.                         IX1024.2
045600 FAIL-ROUTINE-EX. EXIT.                                           IX1024.2
045700 BAIL-OUT.                                                        IX1024.2
045800     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   IX1024.2
045900     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           IX1024.2
046000 BAIL-OUT-WRITE.                                                  IX1024.2
046100     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  IX1024.2
046200     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IX1024.2
MESIX1024.
046400     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IX1024.2
046500 BAIL-OUT-EX. EXIT.                                               IX1024.2
046600 CCVS1-EXIT                                                      .2
046700     EXIT.                                                        IX1024.2
046800 SECT-IX-02-001 SECTION.                                          IX1024.2
046900 READ-INIT-F2-01.                                                 IX1024.2
047000*                                                                 --F204.IX1024.
047100  TEST                                                          
047200*                                                                 IX1024.2
047300     OPEN     INPUT  IX-FS1.                                      IX1024.2
047400     MOVE     "READ-TEST-F2-01" TO PAR-NAME.                      IX1024.2
047500     MOVE    ZERO TO WRK-DU-09V00-001.                            IX1024.2
047600     MOVE    IXWRKKEY  TO IXFS1KEY                           .
047700     MOVE     ZERO TO   WRK-CS-09V00002                          IX1024.2
047800     MOVE     ZERO  RKCS-V00002 TO COMPUTED18              IX1024.2
047900     MOVE    "READ ... INVALID"  TO FEATURE.                      IX1024.2
048000 READ-TEST-F2-01.                                                 IX1024054300              MOVE " DID NOT COMPARE"TO-MARKIX1024.
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 COMPUTED-A          IX1024.2
048500             MOVE    WRK-U-V00   CORRECT-V0IX1024.2
048600              PERFORM FAIL                                        IX1024.2
048700              PERFORM PRINT-DETAIL                                IX1024.2
048800              GO TO READ-WRITE-F2-01.                             IX1024.2
048900     READ     IXFS1IX1024.2
049000             INVALID KEY GO TO READ-WRITE-F2-01.                  IX1024.2
49100          IX-FS1R1-FG-240 TO FILE-RECORD-INFO1.IX10242
049200      -NUMBER(1 EQUALWRKDUV00         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
049300              GO TO READ-TEST-F2-01.                              IX1024.2
049400     MOVE    "YES" TO I-O         REWRITE ."TOFEATURE.                  .
049500           1TOWRKCS09V00                               IX10242
049600     GO TO    READ-TEST-F2-01.                                    IX1024.2
049700 READ-WRITE-F2-01.                                                IX1024.2
049800     IF      WRK-DU-09V00*REWRITE                                                   IX10242
049900              MOVE "WRONG KEY/NOT 500" TO CORRECT-A               IX1024.2
050000MOVEWRKDU09V00-001TOCOMPUTED-V0          IX1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
050100              MOVE "IX-28 4.5.2                       " TO RE-MARKIX1024.2
050200              PERFORM FAIL                                        IX1024.2
050300056600             MOVE    WRK-DU-09V00-01   CORRECT18            .2
050400              PERFORMPASS.                                      IX1024.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 FEATURE.                      IX1024.2
050900*                                                                 IX1024.2
051000*  TEST   2                                                       INVALIDKEY GO -TEST--1             IX1024.
051100*                                                                 IX1024.2
051200     IF       XRECORD-NUMBER (1) NOT EQUAL TO 500                 IX1024.2
051300              MOVE "WRONG RECORD/NOT --F-240           .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
051400              MOVE  XRECORD-NUMBER (1) TO COMPUTED-18V0           IX1024.2
051500              MOVE "IX-28 4.5.2                       " TO RE-MARKIX1024.2
051600              PERFORM FAIL                                        IX1024.2
051700              ELSE                                                IX1024.2
051800              PERFORM PASS.                                       IX1024.2
051900     PERFORM PRINT-DETAIL.                                        IX1024.2
052000 READ-TEST-F2-03.                                                 IX1024.2
052100     MOVE     "READ-TEST-F2-03" TO PAR-NAME.                      IX1024.2
052200     MOVE    "READ ... INVALID"  TO FEATURE.                      IX1024.2
052300*                                                                 IX1024.2
052400*  TEST   3                                                       IX1024.2
052500                                                                 
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.058200              GOTO -TEST-01.                          .2
052900             MOVE 501  TO CORRECT-18V0                            IX1024.2
053000               "-28 45.                       "TO RE-ARKIX10242
053100              PERFORM FAIL                                        IX1024.2
053200              ELSE                                                IX1024.2
053300              PERFORM PASS.                                                 "REWRITE-TESTF2-2 TOPARNAME                   2
053400PERFORMPRINT-DETAIL                                        .
053500 READ-TEST-F2-04.                                                 IX1024058800**                                                                 IX1024.2
053600     MOVEREADTESTF204 TO PAR-.                      .2
053700     MOVE    "READ ... INVALID"  TO FEATURE.                      IX1024.2
053800*                                                                 IX1024.2
053900*  TEST   4                                                       IX1024.2
054000*                                                                 IX1024.2
054100     IF       I-O-ERROR-IX-FS1 EQUAL TO "YES"                     IX1024.2
054200              MOVE WRK-CS-09V00-002 TO COMPUTED-18V0              IX1024.2
054300              MOVE "RECORDS DID NOT COMPARE" TO RE-MARK           IX1024.2
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 PRINT-DETAIL.                                        IX1024.2
054900     CLOSE    IX-FS1.                                             IX1024.2
055000 REWRITE-INIT-F2-01.                                              IX1024.2
055100     MOVE     "REWRITE-TEST-F2-01" TO PAR-NAME.                   IX1024.2
055200     OPEN I-O IX-FS1.                                             IX1024.2
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"   TO FEATURE.                  IX1024.2
055700     MOVE     SPACE TO  FILE-RECORD-INFO 059200 REWRITETESTF201-.                                           IX1024.2
055800REWRITETEST-F2-01.                                              2
055900*                                                                 IX1024.2
056000*  REWRITE TEST  1                                                IX1024.2
056100*                                                                 .2
056200     ADD      5 TOWRKDU09V00-001                             .2
056300     MOVE    IX-WRK-KEY TO IX-FS1-KEY.                            IX1024.2
056400     IF    WRK-DU-09V00-001  GREATER 505                          IX1024.2
056500              MOVE "INVALID KEY/NOT TAKEN"059700     IF       WRK-CS09V00004 NOT EQUAL ZERO                  .2
056600             MOVE    WRK-DU-09V00-001  TO CORRECT-18V0            IX1024.2
056700              PERFORM FAIL                                        IX1024.2
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 GO TO REWRITE-TEST-F2-01-1.             IX1024.2
057200     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1)             IX1024.2
057300     ADD      01 TO UPDATE059900              MOVE WRK-CS09V00004TOCORRECT-V0IX1024
057400     MOVE  CCVS-PGM-ID  TO XPROGRAM-NAME (1).                     IX1024.2
057500     MOVE     FILE-RECORD-INFO (1) TO IX-FS1R1-F-G-240.           IX1024.2
057600     REWRITEIXFS1R1F-G-                                  2
057700              INVALID KEY GO TO REWRITE-TEST-F2-01-2.             IX1024.2
057800     GO TO    REWRITE-TEST-F2-01.                                 060100              PERFORM FAIL                                        IX1024.2
057900 REWRITE-TEST-F2-01-1.                                            IX1024.2
058000     IF      WRK-DU-09V00-001  LESS THAN 501                      IX1024.2
058100              ADD 1 TO  WRK-CS-09V00-004                          IX1024.2
058200              GO TO REWRITE-TEST-F2-01.                           IX1024.2
058300     PERFORM   PASS.                                              
058400     PERFORM    PRINT-DETAIL.                                     IX1024.2
058500 REWRITE-TEST-F2-02.                                              IX1024.2
058600     MOVE     "REWRITE-TEST-F2-02" TO PAR-NAME.                   IX1024.2
058700     MOVE    "REWRITE ... INVALID"   TO FEATURE.                  IX1024060500 REWRITE-TESTF2-.                                              IX1024.2
58800                                                                 
                                 IX1024
059000*                                                                 IX1024.2
059100     GO TO    REWRITE-TEST-F2-01-3.                               IX1024.2
 REWRITETEST-F2-012.                                           IX1024.2
059300     ADD      1 TO WRK-CS-09V00-005.                              IX1024.2
059400     IF      WRK-DU-09V00-001  LESS THAN 501                      IX1024.2
               TOREWRITE--F201.                          IX1024.2
059600 REWRITE-TEST-F2-01-3.                                            IX1024.2
059700     IF       WRK-CS-09V00-004 NOT EQUAL TO ZERO                  IX1024.2
059800              MOVE "INVALID KEY ON READ" TO COMPUTED-A            IX1024.2
00- TO-18V0               .2
060000              MOVE "IX-28 4.5.2                       " TO RE-MARKIX1024.2
060100              PERFORM                                        .2
060200              ELSE                                                IX1024.2
060300              PERFORM PASS.                                       IX1024.2
060400     PERFORM PRINT-DETAIL.                                        IX1024.2
060500 REWRITE-TESTF2.                                              IX1024.
060600     MOVE     "REWRITE-TEST-F2-03" TO PAR-NAME.                   IX1024.2
060700     MOVEREWRITE. "TOFEATURE                  IX1024.
060800*                                                                 IX1024.2
060900*  REWRITE TEST  3                                                IX1024.2
061000*                                                                 IX1024.2
061100     IF       -CS-9V00  EQUALTO                   IX1024.2
061200              MOVE "INVALID KEY ON REWRITE" TO COMPUTED-A         IX1024.2
061300              MOVE  WRK-CS-09V00-005 TO CORRECT-18V0              IX1024.2
061400              MOVE "IX-28 4.5.2                       " TO RE-MARKIX1024.2062200          OPEN       IX-.IX1024.2
061500              PERFORM FAIL                                        IX1024.2
061600              ELSE                                                IX1024.2
061700              PERFORM PASS.                                       IX1024.2
061800     PERFORM PRINT-DETAIL.                                        IX1024.2
061900     CLOSE    IX-FS1.                                             IX1024.2
062000 READ-INIT-F2-05.                                                 IX1024.2
062100     MOVE     "READ-TEST-F2-05" TO PAR-NAME.                      IX1024.2
062200     OPEN     INPUT  IX-FS1.                                      IX1024.2
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    "READ  ... INVALID "   TO FEATURE.                   IX1024.2
062900 READ-TEST-F2-05     MOVE    READ.. INVALID   TO .                   IX1024java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
063000063000     IF      WRKDU09V00-001  EQUAL TOZEROIX10242
063100              MOVE "INVALID KEY/NOT TAKEN" TO COMPUTED-A          IX1024.2
063200             MOVE    WRK-DU-09V00-001  TO  COMPUTED-18V0          IX1024.2
063300             MOVE    ZERO TO CORRECT-18V0                         IX1024.2
063400              MOVE "IX063300                 ZERO TO CORRECT-18V0                         .java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
063500              PERFORM FAIL                                        IX1024.2
063600              PERFORM PRINT-DETAIL                                IX1024.2
063700              GO TO READ-TEST-F2-05.                              IX1024.2
063800SUBTRACT  FROMWRK--V00001.                      IX10242
063900     MOVE      IX-WRK-KEY TO IX-FS1-KEY.                          IX1024.2
064000     READ     IX-FS1                                              IX1024.2
064100              INVALID KEY  GO TO READ-TEST-F2-05-1.               IX1024.2
              KEY  READTEST--05-1.IX1024.java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
     IFUPDATE 1 EQUALTO                         
064400ADD  WRK-CS09-.                          .
064500     IF     UPDATE-NUMBER (1) EQUAL TO 01                         IX1024.2
064600              ADD 1 TO WRK-CS-09V00-005                          IX1024.2
064700     GO TO    READ-TEST-F2-05.                                    IX1024.2
064800 READ-TEST-F2-05-1.                                               IX1024.2
064900     IF      WRK-DU-09V00-001  GREATER ZERO                       IX1024.2
065000             ADD 1 TO WRK-CS-09V00-002                            IX1024.2
065100              GO TO READ-TEST-F2-05.                              IX1024.2
065200     PERFORM   PASS.                                              IX1024.2
065300     PERFORM   PRINT-DETAIL.                                      IX1024.2
065400  READ-F206.                                                 IX1024.2
065500     MOVE     "READ-TEST-F2-06" TO PAR-NAME.                      IX1024.2
065600     MOVE    "READ ... INVALID"  TO FEATURE.                      IX1024.2
065700*065000             ADD TO WRK-CS09-002                            IX1024.2
*TEST                                                       
065900*                                                                 IX1024.065200     PERFORM   .                                              IX1024.
066000     IF       WRK-CS-09V00-004 NOT EQUAL TO 400                   IX1024.2
066100              MOVE "NON-UPDATED RECORDS" TO COMPUTED-A            IX1024.2
066200              MOVE WRK-CS-09V00-004 TO CORRECT-18V0               IX1024.2
MOVESHOULD  TO RE-                     IX10242
066400              MOVE "IX-28 4.5.2                       " TO RE-MARKIX1024.2
066500              PERFORM FAIL                                        IX1024.2
066600              ELSE                                                IX1024.2
066700              PERFORM PASS.                                       IX1024.2
066800     PERFORM PRINT-DETAIL.                                        IX1024.2
066900 READ-TEST-F2-07.                                                 IX1024.2
067000     MOVE     "066000IFWRKCS-V00-004 NOTEQUAL TO400IX10242
067100     MOVE    "READ ... INVALID"  TO FEATURE.                      IX1024.2
067200*                                                                 IX1024.2
067300*  TEST   7                                                       IX1024.2
067400*                                                                 IX10242
067500     IF       WRK-CS-09V00-005   NOT EQUAL TO 100                 IX1024.2
067600              MOVE "UPDATED RECORDS" TO COMPUTED-A                IX1024.2
067700MOVEWRK-V00  -18V0IX1024
067800              MOVE "SHOULD BE 100" TO RE-MARK                     IX1024.2
067900              MOVE "IX-28 4.5.2                       " TO RE-MARKIX1024.2
068000              PERFORM FAIL                                        IX1024.2
068100              ELSE                                                IX1024.2
068200              PERFORM PASS.                                       IX1024.2
068300     PERFORMPRINT.                                        2
068400 -TEST-08                                                 

068600     MOVE    "READ ... INVALID"  TO FEATURE.                      IX1024.2
068700*                                                                 IX1024.2
068800*  TEST   8                                                       IX1024.2
068900*                                                                 IX1024.2
069000     IF      WRK-CS09-002GREATER 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.067600MOVEUPDATEDRECORDS  COMPUTED-A                IX10242
069800     CLOSE    IX-FS1.                                              -                     .
CCVS                                               
070000 CCVS-999999.                                                     IX1024.2
S.IX1024.2