Quelle  ix108a.cob

000100 IDENTIFICATION DIVISION.                                         IX1084.2
000200 PROGRAM-ID.                                                      IX1084.2
000300     IX108A.                                                      IX1084.2
000400****************************************************************  IX1084.2
000500*                                                              *  IX1084.2
000600*    VALIDATION FOR:-                                          *  IX1084.2
000700*                                                              *  IX1084.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX1084.2
000900*                                                              *  IX1084.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IX1084.2
001100*                                                              *  IX1084.2
001200****************************************************************  IX1084.2
001300*                                                                 IX1084.2
001400*         NEW TESTS:                                              IX1084.2
001500*                                                                 IX1084.2
001600*         READ STATEMENT WITH THE PHRASES:                        IX1084.2
001700*         READ ...  NOT AT END   AND   END-READ                   IX1084.2
001800*         FOR FORMAT 1 AND 2 OF THE READ STATEMENT                IX1084.2
001900*                                                                 IX1084.2
002000*         DELETE STATEMENT WITH THE PHRASES:                      IX1084.2
002100*         DELETE ... NOT INVALID  AND  END-DELETE                 IX1084.2
002200*                                                                 IX1084.2
002300*         REWRITE STATEMENT WITH THE PHRASES:                     IX1084.2
002400*         REWRITE  ...   NOT INVALID KEY   AND   END-REWRITE      IX1084.2
002500*                                                                 IX1084.2
002600*         WRITE STATEMENT WITH THE PHRASES:                       IX1084.2
002700*         WRITE  ...   NOT INVALID KEY   AND  END-WRITE           IX1084.2
002800*                                                                 IX1084.2
002900*                                                                 IX1084.2
003000*                                                                 IX1084.2
003100*                                                                 IX1084.2
003200*       X-CARDS  WHICH MUST BE REPLACED FOR THIS PROGRAM ARE      IX1084.2
003300*                                                                 IX1084.2
003400*             X-24   INDEXED FILE IMPLEMENTOR-NAME IN ASSIGN TO   IX1084.2
003500*                    CLAUSE FOR DATA FILE IX-FD1                  IX1084.2
003600*             X-44   INDEXED FILE IMPLEMENTOR-NAME IN ASSIGN TO   IX1084.2
003700*                    CLAUSE FOR INDEX FILE IX-FD1                 IX1084.2
003800*             X-25   INDEXED FILE IMPLEMENTOR-NAME IN ASSIGN TO   IX1084.2
003900*                    CLAUSE FOR DATA FILE IX-FD2                  IX1084.2
004000*             X-45   INDEXED FILE IMPLEMENTOR-NAME IN ASSIGN TO   IX1084.2
004100*                    CLAUSE FOR INDEX FILE IX-FD2                 IX1084.2
004200*             X-55   IMPLEMENTOR-NAME FOR SYSTEM PRINTER          IX1084.2
004300*             X-62   FOR RAW-DATA                                 IX1084.2
004400*             X-82   IMPLEMENTOR-NAME FOR SOURCE-COMPUTER         IX1084.2
004500*             X-84   LABEL RECORDS OF PRINT-FILE                  IX1084.2
004600*                                                                 IX1084.2
004700*         NOTE:  X-CARDS 45, 62 AND 84   ARE OPTIONAL             IX1084.2
004800*               AND NEED ONLY TO BE PRESENT IF THE COMPILER RE-   IX1084.2
004900*               QUIRES THIS CODE BE AVAILABLE FOR PROPER PROGRAM  IX1084.2
005000*               COMPILATION AND EXECUTION. IF THE VP-ROUTINE IS   IX1084.2
005100*               USED THE  X-CARDS MAY BE AUTOMATICALLY SELECTED   IX1084.2
005200*               FOR INCLUSION IN THE PROGRAM BY SPECIFYING THE    IX1084.2
005300*               APPROPRIATE LETTER IN THE "*OPT" VP-ROUTINE       IX1084.2
005400*               CONTROL CARD. THE LETTER  CORRESPONDS TO A        IX1084.2
005500*               CHARACTER IN POSITION 7 OF THE SOURCE LINE AND    IX1084.2
005600*               THEY ARE AS FOLLOWS                               IX1084.2
005700*                                                                 IX1084.2
005800*                  J  SELECTS X-CARD 45                           IX1084.2
005900*                                                                 IX1084.2
006000******************************************************            IX1084.2
006100 ENVIRONMENT DIVISION.                                            IX1084.2
006200 CONFIGURATION SECTION.                                           IX1084.2
006300 SOURCE-COMPUTER.                                                 IX1084.2
006400     Card0130.                                                    IX1084.2
006500 OBJECT-COMPUTER.                                                 IX1084.2
006600     Card0131.                                                    IX1084.2
006700 INPUT-OUTPUT SECTION.                                            IX1084.2
006800 FILE-CONTROL.                                                    IX1084.2
006900     SELECT RAW-DATA   ASSIGN TO                                  IX1084.2
007000     "C0098"                                                      IX1084.2
007100            ORGANIZATION IS INDEXED                               IX1084.2
007200            ACCESS MODE IS RANDOM                                 IX1084.2
007300            RECORD KEY IS RAW-DATA-KEY.                           IX1084.2
007400     SELECT PRINT-FILE ASSIGN TO                                  IX1084.2
007500     "C0085" .                                                    IX1084.2
007600     SELECT   IX-FS1 ASSIGN                                       IX1084.2
007700     "C0036"                                                      IX1084.2
007800     "C0068"                                                      IX1084.2
007900             ORGANIZATION IS INDEXED                              IX1084.2
008000        ACCESS SEQUENTIAL                                         IX1084.2
008100        FILE STATUS IS IX-FS1-STATUS                              IX1084.2
008200        RECORD  IX-FS1-KEY.                                       IX1084.2
008300     SELECT   IX-FS2 ASSIGN                                       IX1084.2
008400     "C0037"                                                      IX1084.2
008500     "C0069"                                                      IX1084.2
008600             ORGANIZATION IS INDEXED                              IX1084.2
008700        ACCESS RANDOM                                             IX1084.2
008800        FILE STATUS IS IX-FS2-STATUS                              IX1084.2
008900        RECORD  IX-FS2-KEY.                                       IX1084.2
009000 DATA DIVISION.                                                   IX1084.2
009100 FILE SECTION.                                                    IX1084.2
009200                                                                  IX1084.2
009300 FD  RAW-DATA.                                                    IX1084.2
009400                                                                  IX1084.2
009500 01  RAW-DATA-SATZ.                                               IX1084.2
009600     05  RAW-DATA-KEY        PIC X(6).                            IX1084.2
009700     05  C-DATE              PIC 9(6).                            IX1084.2
009800     05  C-TIME              PIC 9(8).                            IX1084.2
009900     05  C-NO-OF-TESTS       PIC 99.                              IX1084.2
010000     05  C-OK                PIC 999.                             IX1084.2
010100     05  C-ALL               PIC 999.                             IX1084.2
010200     05  C-FAIL              PIC 999.                             IX1084.2
010300     05  C-DELETED           PIC 999.                             IX1084.2
010400     05  C-INSPECT           PIC 999.                             IX1084.2
010500     05  C-NOTE              PIC X(13).                           IX1084.2
010600     05  C-INDENT            PIC X.                               IX1084.2
010700     05  C-ABORT             PIC X(8).                            IX1084.2
010800 FD  PRINT-FILE.                                                  IX1084.2
010900 01  PRINT-REC PICTURE X(120).                                    IX1084.2
011000 01  DUMMY-RECORD PICTURE X(120).                                 IX1084.2
011100 FD  IX-FS1                                                       IX1084.2
011200     LABEL RECORDS ARE STANDARD                                   IX1084.2
011300     DATA RECORDS IX-FS1R1-F-G-240                                IX1084.2
011400     BLOCK CONTAINS 480.                                          IX1084.2
011500                                                                  IX1084.2
011600 01  IX-FS1R1-F-G-240.                                            IX1084.2
011700     05 IX-FS1-REC-120    PIC X(120).                             IX1084.2
011800     05 IX-FS1-REC-120-240.                                       IX1084.2
011900     10  FILLER PICTURE X(8).                                     IX1084.2
012000     10  IX-FS1-KEY PIC X(29).                                    IX1084.2
012100     10  FILLER PIC X(83).                                        IX1084.2
012200                                                                  IX1084.2
012300 FD  IX-FS2                                                       IX1084.2
012400     LABEL RECORDS ARE STANDARD                                   IX1084.2
012500     DATA RECORDS IX-FS2R1-F-G-240                                IX1084.2
012600     BLOCK CONTAINS 480.                                          IX1084.2
012700                                                                  IX1084.2
012800 01  IX-FS2R1-F-G-240.                                            IX1084.2
012900     05 IX-FS2-REC-120    PIC X(120).                             IX1084.2
013000     05 IX-FS2-REC-120-240.                                       IX1084.2
013100     10  FILLER PICTURE X(8).                                     IX1084.2
013200     10  IX-FS2-KEY PIC X(29).                                    IX1084.2
013300     10  FILLER PIC X(83).                                        IX1084.2
013400 WORKING-STORAGE SECTION.                                         IX1084.2
013500 01  SWITCHES-FOR-TEST.                                           IX1084.2
013600     05  SWITCH-NOT-INVALID    PIC 9 VALUE ZERO.                  IX1084.2
013700     05  SWITCH-END-XXX        PIC 9 VALUE ZERO.                  IX1084.2
013800     05  SWITCH-END-X9X        PIC 9 VALUE ZERO.                  IX1084.2
013900     05  SWITCH-IF             PIC 9 VALUE ZERO.                  IX1084.2
014000 01  GRP-0101.                                                    IX1084.2
014100     02 FILLER PIC X(10) VALUE "ABCD921XYZ".                      IX1084.2
014200     02  WRK-DU-09V00-001 PIC 9(9) VALUE ZERO.                    IX1084.2
014300     02 FILLER PIC X(10) VALUE "Z2F()$+-AB".                      IX1084.2
014400 01  GRP-0001.                                                    IX1084.2
014500     05 WRK-CS-09V00-012  PIC S9(9) USAGE COMP  VALUE ZERO.       IX1084.2
014600     05 WRK-CS-09V00-013  PIC S9(9) USAGE COMP  VALUE ZERO.       IX1084.2
014700     05 WRK-CS-09V00-014  PIC S9(9) USAGE COMP  VALUE ZERO.       IX1084.2
014800     05 WRK-CS-09V00-015  PIC S9(9) USAGE COMP  VALUE ZERO.       IX1084.2
014900     05 WRK-CS-09V00-016  PIC S9(9) USAGE COMP  VALUE ZERO.       IX1084.2
015000     05 WRK-CS-09V00-017  PIC S9(9) USAGE COMP  VALUE ZERO.       IX1084.2
015100     05 WRK-CS-09V00-018  PIC S9(9) USAGE COMP  VALUE ZERO.       IX1084.2
015200     05 IX-FS1-STATUS     PIC  XX  VALUE  SPACE.                  IX1084.2
015300     05 IX-FS2-STATUS     PIC  XX  VALUE  SPACE.                  IX1084.2
015400     05 WRK-XN-0002-001   PIC  X(2) VALUE  SPACE.                 IX1084.2
015500     05 WRK-XN-0002-002   PIC  X(2) VALUE  SPACE.                 IX1084.2
015600     05 WRK-XN-0002-003   PIC  X(2) VALUE  SPACE.                 IX1084.2
015700     05 WRK-XN-0002-004   PIC  X(2) VALUE  SPACE.                 IX1084.2
015800     05 WRK-XN-0002-005   PIC  X(2) VALUE  SPACE.                 IX1084.2
015900     05 WRK-XN-0002-006   PIC  X(2) VALUE  SPACE.                 IX1084.2
016000     05 WRK-XN-0002-007   PIC  X(2) VALUE  SPACE.                 IX1084.2
016100     05 WRK-XN-0002-008   PIC  X(2) VALUE  SPACE.                 IX1084.2
016200     05 WRK-XN-0002-009   PIC  X(2) VALUE  SPACE.                 IX1084.2
016300 01  DUMMY-WRK-REC.                                               IX1084.2
016400     02 DUMMY-WRK1       PIC X(120).                              IX1084.2
016500     02 DUMMY-WRK2  REDEFINES  DUMMY-WRK1.                        IX1084.2
016600        03 FILLER   PIC X(5).                                     IX1084.2
016700        03 DUMMY-WRK-INDENT-5  PIC X(115).                        IX1084.2
016800 01  FILE-RECORD-INFORMATION-REC.                                 IX1084.2
016900     03 FILE-RECORD-INFO-SKELETON.                                IX1084.2
017000        05 FILLER                 PICTURE X(48)       VALUE       IX1084.2
017100             "FILE=      ,RECORD=      /0,RECNO=000000,UPDT=00".  IX1084.2
017200        05 FILLER                 PICTURE X(46)       VALUE       IX1084.2
017300             ",ODO=0000,PGM=     ,LRECL=000000,BLKSIZ  =0000".    IX1084.2
017400        05 FILLER                 PICTURE X(26)       VALUE       IX1084.2
017500             ",LFIL=000000,ORG=  ,LBLR= ".                        IX1084.2
017600        05 FILLER                 PICTURE X(37)       VALUE       IX1084.2
017700             ",RECKEY=                             ".             IX1084.2
017800        05 FILLER                 PICTURE X(38)       VALUE       IX1084.2
017900             ",ALTKEY1=                             ".            IX1084.2
018000        05 FILLER                 PICTURE X(38)       VALUE       IX1084.2
018100             ",ALTKEY2=                             ".            IX1084.2
018200        05 FILLER                 PICTURE X(7)        VALUE SPACE.IX1084.2
018300     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              IX1084.2
018400        05 FILE-RECORD-INFO-P1-120.                               IX1084.2
018500           07 FILLER              PIC X(5).                       IX1084.2
018600           07 XFILE-NAME           PIC X(6).                      IX1084.2
018700           07 FILLER              PIC X(8).                       IX1084.2
018800           07 XRECORD-NAME         PIC X(6).                      IX1084.2
018900           07 FILLER              PIC X(1).                       IX1084.2
019000           07 REELUNIT-NUMBER     PIC 9(1).                       IX1084.2
019100           07 FILLER              PIC X(7).                       IX1084.2
019200           07 XRECORD-NUMBER       PIC 9(6).                      IX1084.2
019300           07 FILLER              PIC X(6).                       IX1084.2
019400           07 UPDATE-NUMBER       PIC 9(2).                       IX1084.2
019500           07 FILLER              PIC X(5).                       IX1084.2
019600           07 ODO-NUMBER          PIC 9(4).                       IX1084.2
019700           07 FILLER              PIC X(5).                       IX1084.2
019800           07 XPROGRAM-NAME        PIC X(5).                      IX1084.2
019900           07 FILLER              PIC X(7).                       IX1084.2
020000           07 XRECORD-LENGTH       PIC 9(6).                      IX1084.2
020100           07 FILLER              PIC X(7).                       IX1084.2
020200           07 CHARS-OR-RECORDS    PIC X(2).                       IX1084.2
020300           07 FILLER              PIC X(1).                       IX1084.2
020400           07 XBLOCK-SIZE          PIC 9(4).                      IX1084.2
020500           07 FILLER              PIC X(6).                       IX1084.2
020600           07 RECORDS-IN-FILE     PIC 9(6).                       IX1084.2
020700           07 FILLER              PIC X(5).                       IX1084.2
020800           07 XFILE-ORGANIZATION   PIC X(2).                      IX1084.2
020900           07 FILLER              PIC X(6).                       IX1084.2
021000           07 XLABEL-TYPE          PIC X(1).                      IX1084.2
021100        05 FILE-RECORD-INFO-P121-240.                             IX1084.2
021200           07 FILLER              PIC X(8).                       IX1084.2
021300           07 XRECORD-KEY          PIC X(29).                     IX1084.2
021400           07 FILLER              PIC X(9).                       IX1084.2
021500           07 ALTERNATE-KEY1      PIC X(29).                      IX1084.2
021600           07 FILLER              PIC X(9).                       IX1084.2
021700           07 ALTERNATE-KEY2      PIC X(29).                      IX1084.2
021800           07 FILLER              PIC X(7).                       IX1084.2
021900 01  TEST-RESULTS.                                                IX1084.2
022000     02 FILLER                   PIC X      VALUE SPACE.          IX1084.2
022100     02 FEATURE                  PIC X(20)  VALUE SPACE.          IX1084.2
022200     02 FILLER                   PIC X      VALUE SPACE.          IX1084.2
022300     02 P-OR-F                   PIC X(5)   VALUE SPACE.          IX1084.2
022400     02 FILLER                   PIC X      VALUE SPACE.          IX1084.2
022500     02  PAR-NAME.                                                IX1084.2
022600       03 FILLER                 PIC X(19)  VALUE SPACE.          IX1084.2
022700       03  PARDOT-X              PIC X      VALUE SPACE.          IX1084.2
022800       03 DOTVALUE               PIC 99     VALUE ZERO.           IX1084.2
022900     02 FILLER                   PIC X(8)   VALUE SPACE.          IX1084.2
023000     02 RE-MARK                  PIC X(61).                       IX1084.2
023100 01  TEST-COMPUTED.                                               IX1084.2
023200     02 FILLER                   PIC X(30)  VALUE SPACE.          IX1084.2
023300     02 FILLER                   PIC X(17)  VALUE                 IX1084.2
023400            "       COMPUTED=".                                   IX1084.2
023500     02 COMPUTED-X.                                               IX1084.2
023600     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          IX1084.2
023700     03 COMPUTED-N               REDEFINES COMPUTED-A             IX1084.2
023800                                 PIC -9(9).9(9).                  IX1084.2
023900     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         IX1084.2
024000     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     IX1084.2
024100     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     IX1084.2
024200     03       CM-18V0 REDEFINES COMPUTED-A.                       IX1084.2
024300         04 COMPUTED-18V0                    PIC -9(18).          IX1084.2
024400         04 FILLER                           PIC X.               IX1084.2
024500     03 FILLER PIC X(50) VALUE SPACE.                             IX1084.2
024600 01  TEST-CORRECT.                                                IX1084.2
024700     02 FILLER PIC X(30) VALUE SPACE.                             IX1084.2
024800     02 FILLER PIC X(17) VALUE "       CORRECT =".                IX1084.2
024900     02 CORRECT-X.                                                IX1084.2
025000     03 CORRECT-A                  PIC X(20) VALUE SPACE.         IX1084.2
025100     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      IX1084.2
025200     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         IX1084.2
025300     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     IX1084.2
025400     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     IX1084.2
025500     03      CR-18V0 REDEFINES CORRECT-A.                         IX1084.2
025600         04 CORRECT-18V0                     PIC -9(18).          IX1084.2
025700         04 FILLER                           PIC X.               IX1084.2
025800     03 FILLER PIC X(2) VALUE SPACE.                              IX1084.2
025900     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     IX1084.2
026000 01  CCVS-C-1.                                                    IX1084.2
026100     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE              PAIX1084.2
026200-    "SS  PARAGRAPH-NAME                                          IX1084.2
026300-    "       REMARKS".                                            IX1084.2
026400     02 FILLER                     PIC X(20)    VALUE SPACE.      IX1084.2
026500 01  CCVS-C-2.                                                    IX1084.2
026600     02 FILLER                     PIC X        VALUE SPACE.      IX1084.2
026700     02 FILLER                     PIC X(6)     VALUE "TESTED".   IX1084.2
026800     02 FILLER                     PIC X(15)    VALUE SPACE.      IX1084.2
026900     02 FILLER                     PIC X(4)     VALUE "FAIL".     IX1084.2
027000     02 FILLER                     PIC X(94)    VALUE SPACE.      IX1084.2
027100 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       IX1084.2
027200 01  REC-CT                        PIC 99       VALUE ZERO.       IX1084.2
027300 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       IX1084.2
027400 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       IX1084.2
027500 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       IX1084.2
027600 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       IX1084.2
027700 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       IX1084.2
027800 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       IX1084.2
027900 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      IX1084.2
028000 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       IX1084.2
028100 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     IX1084.2
028200 01  CCVS-H-1.                                                    IX1084.2
028300     02  FILLER                    PIC X(39)    VALUE SPACES.     IX1084.2
028400     02  FILLER                    PIC X(42)    VALUE             IX1084.2
028500     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 IX1084.2
028600     02  FILLER                    PIC X(39)    VALUE SPACES.     IX1084.2
028700 01  CCVS-H-2A.                                                   IX1084.2
028800   02  FILLER                        PIC X(40)  VALUE SPACE.      IX1084.2
028900   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  IX1084.2
029000   02  FILLER                        PIC XXXX   VALUE             IX1084.2
029100     "4.2 ".                                                      IX1084.2
029200   02  FILLER                        PIC X(28)  VALUE             IX1084.2
029300            " COPY - NOT FOR DISTRIBUTION".                       IX1084.2
029400   02  FILLER                        PIC X(41)  VALUE SPACE.      IX1084.2
029500                                                                  IX1084.2
029600 01  CCVS-H-2B.                                                   IX1084.2
029700   02  FILLER                        PIC X(15)  VALUE             IX1084.2
029800            "TEST RESULT OF ".                                    IX1084.2
029900   02  TEST-ID                       PIC X(9).                    IX1084.2
030000   02  FILLER                        PIC X(4)   VALUE             IX1084.2
030100            " IN ".                                               IX1084.2
030200   02  FILLER                        PIC X(12)  VALUE             IX1084.2
030300     " HIGH       ".                                              IX1084.2
030400   02  FILLER                        PIC X(22)  VALUE             IX1084.2
030500            " LEVEL VALIDATION FOR ".                             IX1084.2
030600   02  FILLER                        PIC X(58)  VALUE             IX1084.2
030700     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX1084.2
030800 01  CCVS-H-3.                                                    IX1084.2
030900     02  FILLER                      PIC X(34)  VALUE             IX1084.2
031000            " FOR OFFICIAL USE ONLY    ".                         IX1084.2
031100     02  FILLER                      PIC X(58)  VALUE             IX1084.2
031200     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IX1084.2
031300     02  FILLER                      PIC X(28)  VALUE             IX1084.2
031400            "  COPYRIGHT   1985 ".                                IX1084.2
031500 01  CCVS-E-1.                                                    IX1084.2
031600     02 FILLER                       PIC X(52)  VALUE SPACE.      IX1084.2
031700     02 FILLER  PIC X(14) VALUE IS "END OF TEST-  ".              IX1084.2
031800     02 ID-AGAIN                     PIC X(9).                    IX1084.2
031900     02 FILLER                       PIC X(45)  VALUE SPACES.     IX1084.2
032000 01  CCVS-E-2.                                                    IX1084.2
032100     02  FILLER                      PIC X(31)  VALUE SPACE.      IX1084.2
032200     02  FILLER                      PIC X(21)  VALUE SPACE.      IX1084.2
032300     02 CCVS-E-2-2.                                               IX1084.2
032400         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      IX1084.2
032500         03 FILLER                   PIC X      VALUE SPACE.      IX1084.2
032600         03 ENDER-DESC               PIC X(44)  VALUE             IX1084.2
032700            "ERRORS ENCOUNTERED".                                 IX1084.2
032800 01  CCVS-E-3.                                                    IX1084.2
032900     02  FILLER                      PIC X(22)  VALUE             IX1084.2
033000            " FOR OFFICIAL USE ONLY".                             IX1084.2
033100     02  FILLER                      PIC X(12)  VALUE SPACE.      IX1084.2
033200     02  FILLER                      PIC X(58)  VALUE             IX1084.2
033300     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX1084.2
033400     02  FILLER                      PIC X(13)  VALUE SPACE.      IX1084.2
033500     02 FILLER                       PIC X(15)  VALUE             IX1084.2
033600             " COPYRIGHT 1985".                                   IX1084.2
033700 01  CCVS-E-4.                                                    IX1084.2
033800     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      IX1084.2
033900     02 FILLER                       PIC X(4)   VALUE " OF ".     IX1084.2
034000     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      IX1084.2
034100     02 FILLER                       PIC X(40)  VALUE             IX1084.2
034200      "  TESTS WERE EXECUTED SUCCESSFULLY".                       IX1084.2
034300 01  XXINFO.                                                      IX1084.2
034400     02 FILLER                       PIC X(19)  VALUE             IX1084.2
034500            "*** INFORMATION ***".                                IX1084.2
034600     02 INFO-TEXT.                                                IX1084.2
034700       04 FILLER                     PIC X(8)   VALUE SPACE.      IX1084.2
034800       04 XXCOMPUTED                 PIC X(20).                   IX1084.2
034900       04 FILLER                     PIC X(5)   VALUE SPACE.      IX1084.2
035000       04 XXCORRECT                  PIC X(20).                   IX1084.2
035100     02 INF-ANSI-REFERENCE           PIC X(48).                   IX1084.2
035200 01  HYPHEN-LINE.                                                 IX1084.2
035300     02 FILLER  PIC IS X VALUE IS SPACE.                          IX1084.2
035400     02 FILLER  PIC IS X(65)    VALUE IS "************************IX1084.2
035500-    "*****************************************".                 IX1084.2
035600     02 FILLER  PIC IS X(54)    VALUE IS "************************IX1084.2
035700-    "******************************".                            IX1084.2
035800 01  CCVS-PGM-ID                     PIC X(9)   VALUE             IX1084.2
035900     "IX108A".                                                    IX1084.2
036000 PROCEDURE DIVISION.                                              IX1084.2
036100 DECLARATIVES.                                                    IX1084.2
036200 IX-FS2-01 SECTION.                                               IX1084.2
036300     USE    AFTER STANDARD ERROR PROCEDURE ON IX-FS2.             IX1084.2
036400 IX-FS2-01-01.                                                    IX1084.2
036500     ADD      1 TO  WRK-CS-09V00-013.                             IX1084.2
036600     GO TO    IX-FS2-01-03                                        IX1084.2
036700              IX-FS2-01-05                                        IX1084.2
036800              DEPENDING ON  WRK-CS-09V00-012.                     IX1084.2
036900     GO TO    IX-FS2-01-EXIT.                                     IX1084.2
037000 IX-FS2-01-03.                                                    IX1084.2
037100*ENTRY FROM SEGMENT INX-TEST-001.                                 IX1084.2
037200*    SHOULD NOT ENTER HERE UNLESS SPACE ALLOCATION TOO SMALL.     IX1084.2
037300     ADD     1 TO  WRK-CS-09V00-014.                              IX1084.2
037400 IX-FS2-01-05.                                                    IX1084.2
037500     ADD      1 TO WRK-CS-09V00-017.                              IX1084.2
037600     IF       XRECORD-NUMBER (2) EQUAL TO 500                     IX1084.2
037700              MOVE   IX-FS2-STATUS TO WRK-XN-0002-002             IX1084.2
037800              MOVE  "10" TO WRK-XN-0002-003.                      IX1084.2
037900 IX-FS2-01-EXIT.                                                  IX1084.2
038000     EXIT.                                                        IX1084.2
038100 END DECLARATIVES.                                                IX1084.2
038200 CCVS1 SECTION.                                                   IX1084.2
038300 OPEN-FILES.                                                      IX1084.2
038400     OPEN I-O RAW-DATA.                                           IX1084.2
038500     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            IX1084.2
038600     READ RAW-DATA INVALID KEY GO TO END-E-1.                     IX1084.2
038700     MOVE "ABORTED " TO C-ABORT.                                  IX1084.2
038800     ADD 1 TO C-NO-OF-TESTS.                                      IX1084.2
038900     ACCEPT C-DATE  FROM DATE.                                    IX1084.2
039000     ACCEPT C-TIME  FROM TIME.                                    IX1084.2
039100     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1.             IX1084.2
039200 END-E-1.                                                         IX1084.2
039300     CLOSE RAW-DATA.                                              IX1084.2
039400     OPEN    OUTPUT PRINT-FILE.                                   IX1084.2
039500     MOVE  CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.  IX1084.2
039600     MOVE    SPACE TO TEST-RESULTS.                               IX1084.2
039700     PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.              IX1084.2
039800     MOVE    ZERO TO REC-SKL-SUB.                                 IX1084.2
039900     PERFORM CCVS-INIT-FILE 9 TIMES.                              IX1084.2
040000 CCVS-INIT-FILE.                                                  IX1084.2
040100     ADD     1 TO REC-SKL-SUB.                                    IX1084.2
040200     MOVE    FILE-RECORD-INFO-SKELETON                            IX1084.2
040300          TO FILE-RECORD-INFO (REC-SKL-SUB).                      IX1084.2
040400 CCVS-INIT-EXIT.                                                  IX1084.2
040500     GO TO CCVS1-EXIT.                                            IX1084.2
040600 CLOSE-FILES.                                                     IX1084.2
040700     OPEN I-O RAW-DATA.                                           IX1084.2
040800     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            IX1084.2
040900     READ RAW-DATA INVALID KEY GO TO END-E-2.                     IX1084.2
041000     MOVE "OK.     " TO C-ABORT.                                  IX1084.2
041100     MOVE PASS-COUNTER TO C-OK.                                   IX1084.2
041200     MOVE ERROR-HOLD   TO C-ALL.                                  IX1084.2
041300     MOVE ERROR-COUNTER TO C-FAIL.                                IX1084.2
041400     MOVE DELETE-COUNTER TO C-DELETED.                            IX1084.2
041500     MOVE INSPECT-COUNTER TO C-INSPECT.                           IX1084.2
041600     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2.             IX1084.2
041700 END-E-2.                                                         IX1084.2
041800     CLOSE RAW-DATA.                                              IX1084.2
041900     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   IX1084.2
042000 TERMINATE-CCVS.                                                  IX1084.2
042100     EXIT PROGRAM.                                                IX1084.2
042200 TERMINATE-CALL.                                                  IX1084.2
042300     STOP     RUN.                                                IX1084.2
042400 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         IX1084.2
042500 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           IX1084.2
042600 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          IX1084.2
042700 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      IX1084.2
042800     MOVE "****TEST DELETED****" TO RE-MARK.                      IX1084.2
042900 PRINT-DETAIL.                                                    IX1084.2
043000     IF REC-CT NOT EQUAL TO ZERO                                  IX1084.2
043100             MOVE "." TO PARDOT-X                                 IX1084.2
043200             MOVE REC-CT TO DOTVALUE.                             IX1084.2
043300     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      IX1084.2
043400     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               IX1084.2
043500        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 IX1084.2
043600          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 IX1084.2
043700     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              IX1084.2
043800     MOVE SPACE TO CORRECT-X.                                     IX1084.2
043900     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         IX1084.2
044000     MOVE     SPACE TO RE-MARK.                                   IX1084.2
044100 HEAD-ROUTINE.                                                    IX1084.2
044200     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IX1084.2
044300     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IX1084.2
044400     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IX1084.2
044500     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IX1084.2
044600 COLUMN-NAMES-ROUTINE.                                            IX1084.2
044700     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX1084.2
044800     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX1084.2
044900     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        IX1084.2
045000 END-ROUTINE.                                                     IX1084.2
045100     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.IX1084.2
045200 END-RTN-EXIT.                                                    IX1084.2
045300     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX1084.2
045400 END-ROUTINE-1.                                                   IX1084.2
045500      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      IX1084.2
045600      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               IX1084.2
045700      ADD PASS-COUNTER TO ERROR-HOLD.                             IX1084.2
045800*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   IX1084.2
045900      MOVE PASS-COUNTER TO CCVS-E-4-1.                            IX1084.2
046000      MOVE ERROR-HOLD TO CCVS-E-4-2.                              IX1084.2
046100      MOVE CCVS-E-4 TO CCVS-E-2-2.                                IX1084.2
046200      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           IX1084.2
046300  END-ROUTINE-12.                                                 IX1084.2
046400      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        IX1084.2
046500     IF       ERROR-COUNTER IS EQUAL TO ZERO                      IX1084.2
046600         MOVE "NO " TO ERROR-TOTAL                                IX1084.2
046700         ELSE                                                     IX1084.2
046800         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       IX1084.2
046900     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           IX1084.2
047000     PERFORM WRITE-LINE.                                          IX1084.2
047100 END-ROUTINE-13.                                                  IX1084.2
047200     IF DELETE-COUNTER IS EQUAL TO ZERO                           IX1084.2
047300         MOVE "NO " TO ERROR-TOTAL  ELSE                          IX1084.2
047400         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      IX1084.2
047500     MOVE "TEST(S) DELETED     " TO ENDER-DESC.                   IX1084.2
047600     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX1084.2
047700      IF   INSPECT-COUNTER EQUAL TO ZERO                          IX1084.2
047800          MOVE "NO " TO ERROR-TOTAL                               IX1084.2
047900      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   IX1084.2
048000      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            IX1084.2
048100      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          IX1084.2
048200     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX1084.2
048300 WRITE-LINE.                                                      IX1084.2
048400     ADD 1 TO RECORD-COUNT.                                       IX1084.2
048500     IF RECORD-COUNT GREATER 42                                   IX1084.2
048600         MOVE DUMMY-RECORD TO DUMMY-HOLD                          IX1084.2
048700         MOVE SPACE TO DUMMY-RECORD                               IX1084.2
048800         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  IX1084.2
048900         MOVE CCVS-H-1  TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    IX1084.2
049000         MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    IX1084.2
049100         MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    IX1084.2
049200         MOVE CCVS-H-3  TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    IX1084.2
049300         MOVE CCVS-C-1  TO DUMMY-RECORD PERFORM WRT-LN            IX1084.2
049400         MOVE CCVS-C-2  TO DUMMY-RECORD PERFORM WRT-LN            IX1084.2
049500         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          IX1084.2
049600         MOVE DUMMY-HOLD TO DUMMY-RECORD                          IX1084.2
049700         MOVE ZERO TO RECORD-COUNT.                               IX1084.2
049800     PERFORM WRT-LN.                                              IX1084.2
049900 WRT-LN.                                                          IX1084.2
050000     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               IX1084.2
050100     MOVE SPACE TO DUMMY-RECORD.                                  IX1084.2
050200 BLANK-LINE-PRINT.                                                IX1084.2
050300     PERFORM WRT-LN.                                              IX1084.2
050400 FAIL-ROUTINE.                                                    IX1084.2
050500     IF     COMPUTED-X NOT EQUAL TO SPACE                         IX1084.2
050600            GO TO   FAIL-ROUTINE-WRITE.                           IX1084.2
050700     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IX1084.2
050800     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IX1084.2
050900     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   IX1084.2
051000     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX1084.2
051100     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IX1084.2
051200     GO TO  FAIL-ROUTINE-EX.                                      IX1084.2
051300 FAIL-ROUTINE-WRITE.                                              IX1084.2
051400     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         IX1084.2
051500     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 IX1084.2
051600     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. IX1084.2
051700     MOVE   SPACES TO COR-ANSI-REFERENCE.                         IX1084.2
051800 FAIL-ROUTINE-EX. EXIT.                                           IX1084.2
051900 BAIL-OUT.                                                        IX1084.2
052000     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   IX1084.2
052100     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           IX1084.2
052200 BAIL-OUT-WRITE.                                                  IX1084.2
052300     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  IX1084.2
052400     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IX1084.2
052500     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX1084.2
052600     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IX1084.2
052700 BAIL-OUT-EX. EXIT.                                               IX1084.2
052800 CCVS1-EXIT.                                                      IX1084.2
052900     EXIT.                                                        IX1084.2
053000 SECT-IX-04-001 SECTION.                                          IX1084.2
053100******************************************************************IX1084.2
053200*                                                                *IX1084.2
053300*   TEST  1   CREATE INDEXED FILE IX-FS2                         *IX1084.2
053400*                                                                *IX1084.2
053500******************************************************************IX1084.2
053600 WRITE-INIT-GF-01.                                                IX1084.2
053700     MOVE     "WRITE NOT INVALID END-" TO  FEATURE.               IX1084.2
053800     MOVE     "IX-FS2"        TO  XFILE-NAME (2).                 IX1084.2
053900     MOVE     "R1-F-G"        TO  XRECORD-NAME (2).               IX1084.2
054000     MOVE     CCVS-PGM-ID     TO  XPROGRAM-NAME (2).              IX1084.2
054100     MOVE     000240          TO  XRECORD-LENGTH (2).             IX1084.2
054200     MOVE     "RC"            TO  CHARS-OR-RECORDS (2).           IX1084.2
054300     MOVE     0001            TO  XBLOCK-SIZE       (2).          IX1084.2
054400     MOVE     000500          TO  RECORDS-IN-FILE  (2).           IX1084.2
054500     MOVE    "IX"                TO XFILE-ORGANIZATION (2).       IX1084.2
054600     MOVE    "WRITE-TEST-GF-01" TO PAR-NAME.                      IX1084.2
054700     MOVE     "S"             TO  XLABEL-TYPE        (2).         IX1084.2
054800     MOVE     000001          TO  XRECORD-NUMBER     (2).         IX1084.2
054900     MOVE     1         TO  WRK-CS-09V00-012.                     IX1084.2
055000     MOVE     ZERO      TO  WRK-CS-09V00-013 WRK-CS-09V00-014     IX1084.2
055100                            WRK-CS-09V00-015 WRK-CS-09V00-016     IX1084.2
055200                            WRK-CS-09V00-017 WRK-CS-09V00-018.    IX1084.2
055300     MOVE     SPACE     TO  IX-FS1-STATUS.                        IX1084.2
055400     MOVE     SPACE     TO  IX-FS2-STATUS.                        IX1084.2
055500     MOVE    ZERO TO WRK-DU-09V00-001.                            IX1084.2
055600     OPEN     OUTPUT    IX-FS1.                                   IX1084.2
055700     OPEN     OUTPUT    IX-FS2.                                   IX1084.2
055800     MOVE GRP-0101 TO IX-FS2-KEY.                                 IX1084.2
055900     MOVE     IX-FS2-STATUS TO WRK-XN-0002-001.                   IX1084.2
056000 WRITE-TEST-GF-01.                                                IX1084.2
056100     MOVE ZERO TO SWITCH-NOT-INVALID.                             IX1084.2
056200     MOVE ZERO TO SWITCH-END-XXX.                                 IX1084.2
056300     MOVE ZERO TO SWITCH-END-X9X.                                 IX1084.2
056400     MOVE    "99"  TO IX-FS2-STATUS.                              IX1084.2
056500     MOVE     XRECORD-NUMBER (2) TO WRK-DU-09V00-001.             IX1084.2
056600     MOVE     GRP-0101 TO XRECORD-KEY (2).                        IX1084.2
056700     MOVE     "IX-FS2"        TO  XFILE-NAME (2).                 IX1084.2
056800     MOVE     FILE-RECORD-INFO (2) TO IX-FS2R1-F-G-240.           IX1084.2
056900 WRITE-TEST-GF-01-1.                                              IX1084.2
057000     WRITE   IX-FS2R1-F-G-240                                     IX1084.2
057100       NOT INVALID                                                IX1084.2
057200         MOVE 1 TO SWITCH-NOT-INVALID.                            IX1084.2
057300     IF SWITCH-NOT-INVALID = 1                                    IX1084.2
057400         MOVE 0 TO SWITCH-NOT-INVALID                             IX1084.2
057500      ELSE                                                        IX1084.2
057600         MOVE "WRITE NOT INVALID" TO FEATURE                      IX1084.2
057700         PERFORM FAIL                                             IX1084.2
057800         MOVE "FILE IX-FS2 CANNOT BE CREATED CORRECTLY; IX-41"    IX1084.2
057900              TO RE-MARK                                          IX1084.2
058000         GO TO CCVS-EXIT.                                         IX1084.2
058100 WRITE-TEST-GF-01-2.                                              IX1084.2
058200     MOVE ZERO TO SWITCH-NOT-INVALID.                             IX1084.2
058300     MOVE ZERO TO SWITCH-END-XXX.                                 IX1084.2
058400     MOVE ZERO TO SWITCH-END-X9X.                                 IX1084.2
058500     MOVE     "IX-FS1"        TO  XFILE-NAME (2).                 IX1084.2
058600     WRITE   IX-FS1R1-F-G-240 FROM FILE-RECORD-INFO (2)           IX1084.2
058700          INVALID KEY GO TO WRITE-TEST-GF-01-2-1                  IX1084.2
058800          NOT INVALID                                             IX1084.2
058900         MOVE 1 TO SWITCH-NOT-INVALID                             IX1084.2
059000      END-WRITE.                                                  IX1084.2
059100 WRITE-TEST-GF-01-2-1.                                            IX1084.2
059200         MOVE 1 TO SWITCH-END-XXX.                                IX1084.2
059300     IF SWITCH-NOT-INVALID = 1                                    IX1084.2
059400         MOVE 0 TO SWITCH-NOT-INVALID                             IX1084.2
059500      ELSE                                                        IX1084.2
059600         MOVE "WRITE NOT INVALID" TO FEATURE                      IX1084.2
059700         PERFORM FAIL                                             IX1084.2
059800         MOVE "FILE IX-FS1 CANNOT BE CREATED CORRECTLY; IX-41"    IX1084.2
059900              TO RE-MARK                                          IX1084.2
060000         GO TO CCVS-EXIT.                                         IX1084.2
060100     IF SWITCH-END-XXX     = 1                                    IX1084.2
060200         MOVE 0 TO SWITCH-END-XXX                                 IX1084.2
060300      ELSE                                                        IX1084.2
060400         MOVE "WRITE .. END-WRITE" TO FEATURE                     IX1084.2
060500         MOVE "FILE IX-FS1 CANNOT BE CREATED CORRECTLY; IX-41"    IX1084.2
060600              TO RE-MARK                                          IX1084.2
060700         PERFORM FAIL                                             IX1084.2
060800         GO TO CCVS-EXIT.                                         IX1084.2
060900     IF        IX-FS2-STATUS NOT EQUAL TO "00"                    IX1084.2
061000         ADD  1  TO WRK-CS-09V00-016.                             IX1084.2
061100     IF        IX-FS1-STATUS NOT EQUAL TO "00"                    IX1084.2
061200         ADD  1  TO WRK-CS-09V00-016.                             IX1084.2
061300     IF       XRECORD-NUMBER (2) EQUAL TO 100                     IX1084.2
061400              GO TO  WRITE-TEST-GF-01-3.                          IX1084.2
061500     ADD      01 TO  XRECORD-NUMBER (2).                          IX1084.2
061600     GO TO    WRITE-TEST-GF-01.                                   IX1084.2
061700 WRITE-TEST-GF-01-3.                                              IX1084.2
061800     IF       WRK-CS-09V00-014 NOT EQUAL TO ZERO                  IX1084.2
061900              MOVE "EXCEPTIONS/ERRORS" TO RE-MARK                 IX1084.2
062000              MOVE  ZERO TO CORRECT-18V0                          IX1084.2
062100              MOVE WRK-CS-09V00-014 TO COMPUTED-18V0              IX1084.2
062200              MOVE "IX-41 4.9.2                       " TO RE-MARKIX1084.2
062300              PERFORM   FAIL                                      IX1084.2
062400              ELSE                                                IX1084.2
062500              PERFORM   PASS.                                     IX1084.2
062600     PERFORM  PRINT-DETAIL.                                       IX1084.2
062700 WRITE-TEST-GF-02.                                                IX1084.2
062800     MOVE     "CREATE IX-FS2" TO  FEATURE                         IX1084.2
062900     MOVE    "WRITE-TEST-GF-02" TO PAR-NAME.                      IX1084.2
063000     IF       XRECORD-NUMBER (2) NOT EQUAL TO 100                 IX1084.2
063100              MOVE "INCORRECT COUNT" TO RE-MARK                   IX1084.2
063200              MOVE  500 TO CORRECT-18V0                           IX1084.2
063300             MOVE   XRECORD-NUMBER (2)  TO COMPUTED-18V0          IX1084.2
063400              MOVE "IX-41 4.9.2                       " TO RE-MARKIX1084.2
063500              PERFORM  FAIL                                       IX1084.2
063600              ELSE                                                IX1084.2
063700              PERFORM PASS.                                       IX1084.2
063800     PERFORM  PRINT-DETAIL.                                       IX1084.2
063900                                                                  IX1084.2
064000     CLOSE IX-FS1 IX-FS2.                                         IX1084.2
064100                                                                  IX1084.2
064200******************************************************************IX1084.2
064300*                                                                *IX1084.2
064400*   TESTS:      R E A D         NOT INVALID    END-READ          *IX1084.2
064500*                                                                *IX1084.2
064600******************************************************************IX1084.2
064700 READ-INIT-F1-01.                                                 IX1084.2
064800     OPEN INPUT IX-FS1.                                           IX1084.2
064900     MOVE "READ-TEST-F1-01" TO PAR-NAME.                          IX1084.2
065000     MOVE "READ NOT AT END  " TO FEATURE.                         IX1084.2
065100     MOVE     ZERO  TO  SWITCH-NOT-INVALID.                       IX1084.2
065200     MOVE     ZERO  TO  SWITCH-END-XXX.                           IX1084.2
065300 READ-TEST-F1-01-0.                                               IX1084.2
065400     READ  IX-FS1 AT END                                          IX1084.2
065500              GO TO READ-FAIL-F1-01                               IX1084.2
065600          NOT AT END                                              IX1084.2
065700           MOVE 1 TO SWITCH-NOT-INVALID.                          IX1084.2
065800 READ-TEST-F1-01.                                                 IX1084.2
065900     IF SWITCH-NOT-INVALID = 1                                    IX1084.2
066000          GO TO READ-PASS-F1-01.                                  IX1084.2
066100 READ-FAIL-F1-01.                                                 IX1084.2
066200     MOVE "IX-28 4.5.4 (11) C                        " TO RE-MARK.IX1084.2
066300     PERFORM FAIL.                                                IX1084.2
066400     GO TO READ-WRITE-F1-01.                                      IX1084.2
066500 READ-PASS-F1-01.                                                 IX1084.2
066600     PERFORM PASS.                                                IX1084.2
066700 READ-WRITE-F1-01.                                                IX1084.2
066800     PERFORM PRINT-DETAIL.                                        IX1084.2
066900                                                                  IX1084.2
067000******************************************************************IX1084.2
067100*   TEST  READ .. NOT AT END   ... END-READ.                     *IX1084.2
067200*                                                                *IX1084.2
067300*         IX-28, 4.5.4                                           *IX1084.2
067400******************************************************************IX1084.2
067500 READ-INIT-F1-02.                                                 IX1084.2
067600     MOVE "READ-TEST-F1-02-1" TO PAR-NAME.                        IX1084.2
067700     MOVE "READ . NOT INV. . END-" TO FEATURE.                    IX1084.2
067800     MOVE     ZERO  TO  SWITCH-NOT-INVALID.                       IX1084.2
067900     MOVE     ZERO  TO  SWITCH-END-XXX.                           IX1084.2
068000 READ-TEST-F1-02.                                                 IX1084.2
068100     READ  IX-FS1 AT END                                          IX1084.2
068200              GO TO READ-FAIL-F1-02-1                             IX1084.2
068300          NOT END                                                 IX1084.2
068400           MOVE 1 TO SWITCH-NOT-INVALID                           IX1084.2
068500        END-READ.                                                 IX1084.2
068600     MOVE 1 TO SWITCH-END-XXX.                                    IX1084.2
068700 READ-TEST-F1-02-1.                                               IX1084.2
068800     IF SWITCH-NOT-INVALID = 1                                    IX1084.2
068900          GO TO READ-PASS-F1-02-1.                                IX1084.2
069000 READ-FAIL-F1-02-1.                                               IX1084.2
069100     MOVE "IX-28 4.5.4 (11) C                        " TO RE-MARK.IX1084.2
069200     PERFORM FAIL.                                                IX1084.2
069300     GO TO READ-WRITE-F1-02-1.                                    IX1084.2
069400 READ-PASS-F1-02-1.                                               IX1084.2
069500     PERFORM PASS.                                                IX1084.2
069600 READ-WRITE-F1-02-1.                                              IX1084.2
069700     PERFORM PRINT-DETAIL.                                        IX1084.2
069800                                                                  IX1084.2
069900 READ-TEST-F1-02-2.                                               IX1084.2
070000     MOVE "READ-TEST-F1-02-2" TO PAR-NAME.                        IX1084.2
070100     MOVE "END-READ.        " TO FEATURE.                         IX1084.2
070200     IF SWITCH-END-XXX     = 1                                    IX1084.2
070300          GO TO READ-PASS-F1-02-2.                                IX1084.2
070400 READ-FAIL-F1-02-2.                                               IX1084.2
070500     MOVE "IX-32 4.5.4 (19)                          " TO RE-MARK.IX1084.2
070600     PERFORM FAIL.                                                IX1084.2
070700     GO TO READ-WRITE-F1-02-2.                                    IX1084.2
070800 READ-PASS-F1-02-2.                                               IX1084.2
070900     PERFORM PASS.                                                IX1084.2
071000 READ-WRITE-F1-02-2.                                              IX1084.2
071100     PERFORM PRINT-DETAIL.                                        IX1084.2
071200                                                                  IX1084.2
071300******************************************************************IX1084.2
071400*   TEST: IF READ .. NOT AT END   ... END-READ ...      .        *IX1084.2
071500*                                                                *IX1084.2
071600*         IX-28, 4.5.4                                           *IX1084.2
071700******************************************************************IX1084.2
071800 READ-INIT-F1-03.                                                 IX1084.2
071900     MOVE "READ-TEST-F1-03-1" TO PAR-NAME.                        IX1084.2
072000     MOVE "IF . READ . NOT INV. . END-" TO FEATURE.               IX1084.2
072100     MOVE     ZERO  TO  SWITCH-NOT-INVALID.                       IX1084.2
072200     MOVE     ZERO  TO  SWITCH-END-XXX.                           IX1084.2
072300     MOVE    1      TO  SWITCH-IF.                                IX1084.2
072400 READ-TEST-F1-03.                                                 IX1084.2
072500     IF SWITCH-IF = 1                                             IX1084.2
072600        READ  IX-FS1 AT END                                       IX1084.2
072700              GO TO READ-FAIL-F1-03-1                             IX1084.2
072800          NOT END                                                 IX1084.2
072900             MOVE 1 TO SWITCH-NOT-INVALID                         IX1084.2
073000        END-READ                                                  IX1084.2
073100             MOVE 1 TO SWITCH-END-XXX.                            IX1084.2
073200     MOVE 9 TO SWITCH-END-X9X.                                    IX1084.2
073300 READ-TEST-F1-03-1.                                               IX1084.2
073400     IF SWITCH-NOT-INVALID = 1                                    IX1084.2
073500          GO TO READ-PASS-F1-03-1.                                IX1084.2
073600 READ-FAIL-F1-03-1.                                               IX1084.2
073700     MOVE "IX-28 4.5.4 (11) C                        " TO RE-MARK.IX1084.2
073800     PERFORM FAIL.                                                IX1084.2
073900     GO TO READ-WRITE-F1-03-1.                                    IX1084.2
074000 READ-PASS-F1-03-1.                                               IX1084.2
074100     PERFORM PASS.                                                IX1084.2
074200 READ-WRITE-F1-03-1.                                              IX1084.2
074300     PERFORM PRINT-DETAIL.                                        IX1084.2
074400                                                                  IX1084.2
074500 READ-TEST-F1-03-2.                                               IX1084.2
074600     MOVE "READ-TEST-F1-03-2" TO PAR-NAME.                        IX1084.2
074700     IF SWITCH-END-XXX     = 1                                    IX1084.2
074800          GO TO READ-PASS-F1-03-2.                                IX1084.2
074900 READ-FAIL-F1-03-2.                                               IX1084.2
075000     MOVE "IX-32 4.5.4 (19)                          " TO RE-MARK.IX1084.2
075100     PERFORM FAIL.                                                IX1084.2
075200     GO TO READ-WRITE-F1-03-2.                                    IX1084.2
075300 READ-PASS-F1-03-2.                                               IX1084.2
075400     PERFORM PASS.                                                IX1084.2
075500 READ-WRITE-F1-03-2.                                              IX1084.2
075600     PERFORM PRINT-DETAIL.                                        IX1084.2
075700                                                                  IX1084.2
075800 READ-TEST-F1-03-3.                                               IX1084.2
075900     MOVE "READ-TEST-F1-03-3" TO PAR-NAME.                        IX1084.2
076000     IF SWITCH-END-X9X     = 9                                    IX1084.2
076100          GO TO READ-PASS-F1-03-3.                                IX1084.2
076200 READ-FAIL-F1-03-3.                                               IX1084.2
076300     MOVE "IX-32 4.5.4 (19)                          " TO RE-MARK.IX1084.2
076400     PERFORM FAIL.                                                IX1084.2
076500     GO TO READ-WRITE-F1-03-3.                                    IX1084.2
076600 READ-PASS-F1-03-3.                                               IX1084.2
076700     PERFORM PASS.                                                IX1084.2
076800 READ-WRITE-F1-03-3.                                              IX1084.2
076900     PERFORM PRINT-DETAIL.                                        IX1084.2
077000                                                                  IX1084.2
077100     CLOSE IX-FS1.                                                IX1084.2
077200                                                                  IX1084.2
077300******************************************************************IX1084.2
077400*   TEST  READ    NOT INVALID                                    *IX1084.2
077500*                                                                *IX1084.2
077600*         IX-28, 4.5.4                                           *IX1084.2
077700******************************************************************IX1084.2
077800 READ-INIT-F2-01.                                                 IX1084.2
077900     MOVE     2     TO  WRK-CS-09V00-012.                         IX1084.2
078000     MOVE     ZERO  TO  WRK-CS-09V00-013.                         IX1084.2
078100     MOVE     ZERO  TO  WRK-CS-09V00-014.                         IX1084.2
078200     MOVE     ZERO  TO  WRK-CS-09V00-015.                         IX1084.2
078300     MOVE     ZERO  TO  WRK-CS-09V00-016.                         IX1084.2
078400     MOVE     ZERO  TO  WRK-CS-09V00-017.                         IX1084.2
078500     MOVE     ZERO  TO  WRK-CS-09V00-018.                         IX1084.2
078600     MOVE    SPACE TO IX-FS2-STATUS.                              IX1084.2
078700     OPEN     I-O  IX-FS2.                                        IX1084.2
078800     MOVE     SPACE     TO  WRK-XN-0002-002                       IX1084.2
078900     MOVE     SPACE     TO  WRK-XN-0002-003                       IX1084.2
079000     MOVE     SPACE     TO  WRK-XN-0002-004                       IX1084.2
079100     MOVE      IX-FS2-STATUS TO WRK-XN-0002-001                   IX1084.2
079200     MOVE      IX-FS2-STATUS TO WRK-XN-0002-001                   IX1084.2
079300     MOVE     SPACE TO IX-FS2-STATUS.                             IX1084.2
079400     MOVE "READ-TEST-F2-01" TO PAR-NAME.                          IX1084.2
079500     MOVE "READ NOT INVALID." TO FEATURE.                         IX1084.2
079600     MOVE     ZERO  TO  SWITCH-NOT-INVALID.                       IX1084.2
079700     MOVE     ZERO  TO  SWITCH-END-XXX.                           IX1084.2
079800 READ-TEST-F2-01-0.                                               IX1084.2
079900     MOVE 1 TO WRK-DU-09V00-001.                                  IX1084.2
080000     MOVE GRP-0101  TO IX-FS2-KEY.                                IX1084.2
080100     READ  IX-FS2 INVALID                                         IX1084.2
080200              GO TO READ-FAIL-F2-01                               IX1084.2
080300          NOT INVALID                                             IX1084.2
080400           MOVE 1 TO SWITCH-NOT-INVALID.                          IX1084.2
080500 READ-TEST-F2-01.                                                 IX1084.2
080600     IF SWITCH-NOT-INVALID = 1                                    IX1084.2
080700          GO TO READ-PASS-F2-01.                                  IX1084.2
080800 READ-FAIL-F2-01.                                                 IX1084.2
080900     MOVE "IX-28 4.5.4 (11) C                        " TO RE-MARK.IX1084.2
081000     PERFORM FAIL.                                                IX1084.2
081100     GO TO READ-WRITE-F2-01.                                      IX1084.2
081200 READ-PASS-F2-01.                                                 IX1084.2
081300     PERFORM PASS.                                                IX1084.2
081400 READ-WRITE-F2-01.                                                IX1084.2
081500     PERFORM PRINT-DETAIL.                                        IX1084.2
081600                                                                  IX1084.2
081700******************************************************************IX1084.2
081800*   TEST  READ .. NOT INVALID  ... END-READ.                     *IX1084.2
081900*                                                                *IX1084.2
082000*         IX-28, 4.5.4                                           *IX1084.2
082100******************************************************************IX1084.2
082200 READ-INIT-F2-02.                                                 IX1084.2
082300     MOVE "READ-TEST-F2-02-1" TO PAR-NAME.                        IX1084.2
082400     MOVE "READ . NOT INV. . END-" TO FEATURE.                    IX1084.2
082500     MOVE     ZERO  TO  SWITCH-NOT-INVALID.                       IX1084.2
082600     MOVE     ZERO  TO  SWITCH-END-XXX.                           IX1084.2
082700 READ-TEST-F2-02.                                                 IX1084.2
082800     MOVE 2 TO WRK-DU-09V00-001.                                  IX1084.2
082900     MOVE GRP-0101  TO IX-FS2-KEY.                                IX1084.2
083000     READ  IX-FS2 INVALID KEY                                     IX1084.2
083100              GO TO READ-FAIL-F2-02-1                             IX1084.2
083200          NOT INVALID KEY                                         IX1084.2
083300           MOVE 1 TO SWITCH-NOT-INVALID                           IX1084.2
083400        END-READ.                                                 IX1084.2
083500     MOVE 1 TO SWITCH-END-XXX.                                    IX1084.2
083600 READ-TEST-F2-02-1.                                               IX1084.2
083700     IF SWITCH-NOT-INVALID = 1                                    IX1084.2
083800          GO TO READ-PASS-F2-02-1.                                IX1084.2
083900 READ-FAIL-F2-02-1.                                               IX1084.2
084000     MOVE "IX-28 4.5.4 (11) C                        " TO RE-MARK.IX1084.2
084100     PERFORM FAIL.                                                IX1084.2
084200     GO TO READ-WRITE-F2-02-1.                                    IX1084.2
084300 READ-PASS-F2-02-1.                                               IX1084.2
084400     PERFORM PASS.                                                IX1084.2
084500 READ-WRITE-F2-02-1.                                              IX1084.2
084600     PERFORM PRINT-DETAIL.                                        IX1084.2
084700                                                                  IX1084.2
084800 READ-TEST-F2-02-2.                                               IX1084.2
084900     MOVE "READ-TEST-F2-02-2" TO PAR-NAME.                        IX1084.2
085000     MOVE "END-READ.        " TO FEATURE.                         IX1084.2
085100     IF SWITCH-END-XXX     = 1                                    IX1084.2
085200          GO TO READ-PASS-F2-02-2.                                IX1084.2
085300 READ-FAIL-F2-02-2.                                               IX1084.2
085400     MOVE "IX-32 4.5.4 (19)                          " TO RE-MARK.IX1084.2
085500     PERFORM FAIL.                                                IX1084.2
085600     GO TO READ-WRITE-F2-02-2.                                    IX1084.2
085700 READ-PASS-F2-02-2.                                               IX1084.2
085800     PERFORM PASS.                                                IX1084.2
085900 READ-WRITE-F2-02-2.                                              IX1084.2
086000     PERFORM PRINT-DETAIL.                                        IX1084.2
086100                                                                  IX1084.2
086200******************************************************************IX1084.2
086300*   TEST: IF READ .. NOT INVALID  ... END-READ ...      .        *IX1084.2
086400*                                                                *IX1084.2
086500*         IX-28, 4.5.4                                           *IX1084.2
086600******************************************************************IX1084.2
086700 READ-INIT-F2-03.                                                 IX1084.2
086800     MOVE "READ-TEST-F2-03-1" TO PAR-NAME.                        IX1084.2
086900     MOVE "IF . READ . NOT INV. . END-" TO FEATURE.               IX1084.2
087000     MOVE     ZERO  TO  SWITCH-NOT-INVALID.                       IX1084.2
087100     MOVE     ZERO  TO  SWITCH-END-XXX.                           IX1084.2
087200     MOVE    1      TO  SWITCH-IF.                                IX1084.2
087300 READ-TEST-F2-03.                                                 IX1084.2
087400     MOVE 3 TO WRK-DU-09V00-001.                                  IX1084.2
087500     MOVE GRP-0101  TO IX-FS2-KEY.                                IX1084.2
087600     IF SWITCH-IF = 1                                             IX1084.2
087700        READ  IX-FS2 INVALID KEY                                  IX1084.2
087800              GO TO READ-FAIL-F2-03-1                             IX1084.2
087900          NOT INVALID KEY                                         IX1084.2
088000             MOVE 1 TO SWITCH-NOT-INVALID                         IX1084.2
088100        END-READ                                                  IX1084.2
088200             MOVE 1 TO SWITCH-END-XXX.                            IX1084.2
088300     MOVE 9 TO SWITCH-END-X9X.                                    IX1084.2
088400 READ-TEST-F2-03-1.                                               IX1084.2
088500     IF SWITCH-NOT-INVALID = 1                                    IX1084.2
088600          GO TO READ-PASS-F2-03-1.                                IX1084.2
088700 READ-FAIL-F2-03-1.                                               IX1084.2
088800     MOVE "IX-28 4.5.4 (11) C                        " TO RE-MARK.IX1084.2
088900     PERFORM FAIL.                                                IX1084.2
089000     GO TO READ-WRITE-F2-03-1.                                    IX1084.2
089100 READ-PASS-F2-03-1.                                               IX1084.2
089200     PERFORM PASS.                                                IX1084.2
089300 READ-WRITE-F2-03-1.                                              IX1084.2
089400     PERFORM PRINT-DETAIL.                                        IX1084.2
089500                                                                  IX1084.2
089600 READ-TEST-F2-03-2.                                               IX1084.2
089700     MOVE "READ-TEST-F2-03-2" TO PAR-NAME.                        IX1084.2
089800     IF SWITCH-END-XXX     = 1                                    IX1084.2
089900          GO TO READ-PASS-F2-03-2.                                IX1084.2
090000 READ-FAIL-F2-03-2.                                               IX1084.2
090100     MOVE "IX-32 4.5.4 (19)                          " TO RE-MARK.IX1084.2
090200     PERFORM FAIL.                                                IX1084.2
090300     GO TO READ-WRITE-F2-03-2.                                    IX1084.2
090400 READ-PASS-F2-03-2.                                               IX1084.2
090500     PERFORM PASS.                                                IX1084.2
090600 READ-WRITE-F2-03-2.                                              IX1084.2
090700     PERFORM PRINT-DETAIL.                                        IX1084.2
090800                                                                  IX1084.2
090900 READ-TEST-F2-03-3.                                               IX1084.2
091000     MOVE "READ-TEST-F2-03-3" TO PAR-NAME.                        IX1084.2
091100     IF SWITCH-END-X9X     = 9                                    IX1084.2
091200          GO TO READ-PASS-F2-03-3.                                IX1084.2
091300 READ-FAIL-F2-03-3.                                               IX1084.2
091400     MOVE "IX-32 4.5.4 (19)                          " TO RE-MARK.IX1084.2
091500     PERFORM FAIL.                                                IX1084.2
091600     GO TO READ-WRITE-F2-03-3.                                    IX1084.2
091700 READ-PASS-F2-03-3.                                               IX1084.2
091800     PERFORM PASS.                                                IX1084.2
091900 READ-WRITE-F2-03-3.                                              IX1084.2
092000     PERFORM PRINT-DETAIL.                                        IX1084.2
092100                                                                  IX1084.2
092200     CLOSE IX-FS2.                                                IX1084.2
092300                                                                  IX1084.2
092400******************************************************************IX1084.2
092500*                                                                *IX1084.2
092600*   TESTS:   D E L E T E        NOT INVALID    END-DELETE        *IX1084.2
092700*         FOR A FILE WHICH IS IN RANDOM ACCESS MODE              *IX1084.2
092800*                                                                *IX1084.2
092900*                                                                *IX1084.2
093000*   TEST  DELETE  NOT INVALID                                    *IX1084.2
093100*                                                                *IX1084.2
093200*         IX-21, 4.3.2                                           *IX1084.2
093300******************************************************************IX1084.2
093400 DELETE-INIT-GF-01.                                               IX1084.2
093500     MOVE     2     TO  WRK-CS-09V00-012.                         IX1084.2
093600     MOVE     ZERO  TO  WRK-CS-09V00-013.                         IX1084.2
093700     MOVE     ZERO  TO  WRK-CS-09V00-014.                         IX1084.2
093800     MOVE     ZERO  TO  WRK-CS-09V00-015.                         IX1084.2
093900     MOVE     ZERO  TO  WRK-CS-09V00-016.                         IX1084.2
094000     MOVE     ZERO  TO  WRK-CS-09V00-017.                         IX1084.2
094100     MOVE     ZERO  TO  WRK-CS-09V00-018.                         IX1084.2
094200     MOVE    SPACE TO IX-FS2-STATUS.                              IX1084.2
094300     OPEN     I-O  IX-FS2.                                        IX1084.2
094400     MOVE     SPACE     TO  WRK-XN-0002-002                       IX1084.2
094500     MOVE     SPACE     TO  WRK-XN-0002-003                       IX1084.2
094600     MOVE     SPACE     TO  WRK-XN-0002-004                       IX1084.2
094700     MOVE      IX-FS2-STATUS TO WRK-XN-0002-001                   IX1084.2
094800     MOVE      IX-FS2-STATUS TO WRK-XN-0002-001                   IX1084.2
094900     MOVE     SPACE TO IX-FS2-STATUS.                             IX1084.2
095000     MOVE "DELETE-TEST-GF-01" TO PAR-NAME.                        IX1084.2
095100     MOVE "DELETE NOT INVALID." TO FEATURE.                       IX1084.2
095200     MOVE     ZERO  TO  SWITCH-NOT-INVALID.                       IX1084.2
095300     MOVE     ZERO  TO  SWITCH-END-XXX.                           IX1084.2
095400 DELETE-TEST-GF-01-0.                                             IX1084.2
095500     MOVE 1 TO WRK-DU-09V00-001.                                  IX1084.2
095600     MOVE GRP-0101  TO IX-FS2-KEY.                                IX1084.2
095700     READ  IX-FS2 INVALID KEY                                     IX1084.2
095800              MOVE " READ FAILED " TO RE-MARK                     IX1084.2
095900              PERFORM FAIL                                        IX1084.2
096000              GO TO DELETE-WRITE-GF-01.                           IX1084.2
096100     DELETE IX-FS2 RECORD                                         IX1084.2
096200            INVALID KEY   MOVE "DELETE IS INVALID" TO RE-MARK     IX1084.2
096300                          PERFORM FAIL                            IX1084.2
096400                          GO TO DELETE-WRITE-GF-01                IX1084.2
096500          NOT INVALID KEY                                         IX1084.2
096600           MOVE 1 TO SWITCH-NOT-INVALID.                          IX1084.2
096700 DELETE-TEST-GF-01.                                               IX1084.2
096800     IF SWITCH-NOT-INVALID = 1                                    IX1084.2
096900          GO TO DELETE-PASS-GF-01.                                IX1084.2
097000 DELETE-FAIL-GF-01.                                               IX1084.2
097100     MOVE "IX-21, 4.3.2                              " TO RE-MARK.IX1084.2
097200     PERFORM FAIL.                                                IX1084.2
097300     GO TO DELETE-WRITE-GF-01.                                    IX1084.2
097400 DELETE-PASS-GF-01.                                               IX1084.2
097500     PERFORM PASS.                                                IX1084.2
097600 DELETE-WRITE-GF-01.                                              IX1084.2
097700     PERFORM PRINT-DETAIL.                                        IX1084.2
097800                                                                  IX1084.2
097900******************************************************************IX1084.2
098000*   TEST  DELETE  NOT INVALID  ... END-DELETE.                   *IX1084.2
098100*                                                                *IX1084.2
098200*         IX-21, 4.3.2                                           *IX1084.2
098300******************************************************************IX1084.2
098400 DELETE-INIT-GF-02.                                               IX1084.2
098500     MOVE "DELETE-TEST-GF-02-1"   TO PAR-NAME.                    IX1084.2
098600     MOVE "DELETE NOT INV. . END-" TO FEATURE.                    IX1084.2
098700     MOVE     ZERO  TO  SWITCH-NOT-INVALID.                       IX1084.2
098800     MOVE     ZERO  TO  SWITCH-END-XXX.                           IX1084.2
098900 DELETE-TEST-GF-02.                                               IX1084.2
099000     MOVE 2 TO WRK-DU-09V00-001.                                  IX1084.2
099100     MOVE GRP-0101  TO IX-FS2-KEY.                                IX1084.2
099200     READ  IX-FS2 INVALID KEY                                     IX1084.2
099300              MOVE "READ FAILED " TO RE-MARK                      IX1084.2
099400              PERFORM FAIL                                        IX1084.2
099500              GO TO DELETE-WRITE-GF-02-1.                         IX1084.2
099600     DELETE IX-FS2 RECORD                                         IX1084.2
099700            INVALID       MOVE "DELETE IS INVALID" TO RE-MARK     IX1084.2
099800                          PERFORM FAIL                            IX1084.2
099900                          GO TO DELETE-WRITE-GF-02-1              IX1084.2
100000          NOT INVALID                                             IX1084.2
100100           MOVE 1 TO SWITCH-NOT-INVALID                           IX1084.2
100200        END-DELETE.                                               IX1084.2
100300     MOVE 1 TO SWITCH-END-XXX.                                    IX1084.2
100400 DELETE-TEST-GF-02-1.                                             IX1084.2
100500     IF SWITCH-NOT-INVALID = 1                                    IX1084.2
100600          GO TO DELETE-PASS-GF-02-1.                              IX1084.2
100700 DELETE-FAIL-GF-02-1.                                             IX1084.2
100800     MOVE "IX-21, 4.3.2                              " TO RE-MARK.IX1084.2
100900     PERFORM FAIL.                                                IX1084.2
101000     GO TO DELETE-WRITE-GF-02-1.                                  IX1084.2
101100 DELETE-PASS-GF-02-1.                                             IX1084.2
101200     PERFORM PASS.                                                IX1084.2
101300 DELETE-WRITE-GF-02-1.                                            IX1084.2
101400     PERFORM PRINT-DETAIL.                                        IX1084.2
101500                                                                  IX1084.2
101600 DELETE-TEST-GF-02-2.                                             IX1084.2
101700     MOVE "DELETE-TEST-GF-02-2"   TO PAR-NAME.                    IX1084.2
101800     MOVE "END-DELETE.      " TO FEATURE.                         IX1084.2
101900     IF SWITCH-END-XXX     = 1                                    IX1084.2
102000          GO TO DELETE-PASS-GF-02-2.                              IX1084.2
102100 DELETE-FAIL-GF-02-2.                                             IX1084.2
102200     MOVE "IX-32 4.5.4 (19)                          " TO RE-MARK.IX1084.2
102300     PERFORM FAIL.                                                IX1084.2
102400     GO TO DELETE-WRITE-GF-02-2.                                  IX1084.2
102500 DELETE-PASS-GF-02-2.                                             IX1084.2
102600     PERFORM PASS.                                                IX1084.2
102700 DELETE-WRITE-GF-02-2.                                            IX1084.2
102800     PERFORM PRINT-DETAIL.                                        IX1084.2
102900                                                                  IX1084.2
103000******************************************************************IX1084.2
103100*   TEST: IF DELETE. NOT INVALID  ... END-DELETE ...    .        *IX1084.2
103200*                                                                *IX1084.2
103300*         IX-21, 4.3.2                                           *IX1084.2
103400******************************************************************IX1084.2
103500 DELETE-INIT-GF-03.                                               IX1084.2
103600     MOVE "DELETE-TEST-GF-03-1"   TO PAR-NAME.                    IX1084.2
103700     MOVE "IF .DELETE. NOT INV. . END-" TO FEATURE.               IX1084.2
103800     MOVE     ZERO  TO  SWITCH-NOT-INVALID.                       IX1084.2
103900     MOVE     ZERO  TO  SWITCH-END-XXX.                           IX1084.2
104000     MOVE    1      TO  SWITCH-IF.                                IX1084.2
104100 DELETE-TEST-GF-03.                                               IX1084.2
104200     MOVE 3 TO WRK-DU-09V00-001.                                  IX1084.2
104300     MOVE GRP-0101  TO IX-FS2-KEY.                                IX1084.2
104400     READ  IX-FS2 INVALID KEY                                     IX1084.2
104500              MOVE "READ FAILED " TO RE-MARK                      IX1084.2
104600              PERFORM FAIL                                        IX1084.2
104700              GO TO DELETE-WRITE-GF-03-1.                         IX1084.2
104800     IF SWITCH-IF = 1                                             IX1084.2
104900        DELETE IX-FS2 RECORD                                      IX1084.2
105000            INVALID KEY   MOVE "DELETE IS INVALID" TO RE-MARK     IX1084.2
105100                          PERFORM FAIL                            IX1084.2
105200                          GO TO DELETE-WRITE-GF-03-1              IX1084.2
105300          NOT INVALID KEY                                         IX1084.2
105400             MOVE 1 TO SWITCH-NOT-INVALID                         IX1084.2
105500        END-DELETE                                                IX1084.2
105600             MOVE 1 TO SWITCH-END-XXX.                            IX1084.2
105700     MOVE 9 TO SWITCH-END-X9X.                                    IX1084.2
105800 DELETE-TEST-GF-03-1.                                             IX1084.2
105900     IF SWITCH-NOT-INVALID = 1                                    IX1084.2
106000          GO TO DELETE-PASS-GF-03-1.                              IX1084.2
106100 DELETE-FAIL-GF-03-1.                                             IX1084.2
106200     MOVE "IX-21, 4.3.2                              " TO RE-MARK.IX1084.2
106300     PERFORM FAIL.                                                IX1084.2
106400     GO TO DELETE-WRITE-GF-03-1.                                  IX1084.2
106500 DELETE-PASS-GF-03-1.                                             IX1084.2
106600     PERFORM PASS.                                                IX1084.2
106700 DELETE-WRITE-GF-03-1.                                            IX1084.2
106800     PERFORM PRINT-DETAIL.                                        IX1084.2
106900                                                                  IX1084.2
107000 DELETE-TEST-GF-03-2.                                             IX1084.2
107100     MOVE "END-DELETE" TO FEATURE.                                IX1084.2
107200     MOVE "DELETE-TEST-GF-03-2"   TO PAR-NAME.                    IX1084.2
107300     IF SWITCH-END-XXX     = 1                                    IX1084.2
107400          GO TO DELETE-PASS-GF-03-2.                              IX1084.2
107500 DELETE-FAIL-GF-03-2.                                             IX1084.2
107600     MOVE "IX-32 4.5.4 (19)                          " TO RE-MARK.IX1084.2
107700     PERFORM FAIL.                                                IX1084.2
107800     GO TO DELETE-WRITE-GF-03-2.                                  IX1084.2
107900 DELETE-PASS-GF-03-2.                                             IX1084.2
108000     PERFORM PASS.                                                IX1084.2
108100 DELETE-WRITE-GF-03-2.                                            IX1084.2
108200     PERFORM PRINT-DETAIL.                                        IX1084.2
108300                                                                  IX1084.2
108400 DELETE-TEST-GF-03-3.                                             IX1084.2
108500     MOVE "DELETE-TEST-GF-03-3"   TO PAR-NAME.                    IX1084.2
108600     IF SWITCH-END-X9X     = 9                                    IX1084.2
108700          GO TO DELETE-PASS-GF-03-3.                              IX1084.2
108800 DELETE-FAIL-GF-03-3.                                             IX1084.2
108900     MOVE "IX-32 4.5.4 (19)                          " TO RE-MARK.IX1084.2
109000     PERFORM FAIL.                                                IX1084.2
109100     GO TO DELETE-WRITE-GF-03-3.                                  IX1084.2
109200 DELETE-PASS-GF-03-3.                                             IX1084.2
109300     PERFORM PASS.                                                IX1084.2
109400 DELETE-WRITE-GF-03-3.                                            IX1084.2
109500     PERFORM PRINT-DETAIL.                                        IX1084.2
109600                                                                  IX1084.2
109700      CLOSE IX-FS2.                                               IX1084.2
109800                                                                  IX1084.2
109900******************************************************************IX1084.2
110000*                                                                *IX1084.2
110100*   TESTS:   R E W R I T E      NOT INVALID    END-REWRITE       *IX1084.2
110200*         FOR A FILE WHICH IS IN RANDOM ACCESS MODE              *IX1084.2
110300*                                                                *IX1084.2
110400*                                                                *IX1084.2
110500*   TEST  REWRITE NOT INVALID                                    *IX1084.2
110600*                                                                *IX1084.2
110700*         IX-33, 4.6.2                                           *IX1084.2
110800******************************************************************IX1084.2
110900 REWRITE-INIT-GF-01.                                              IX1084.2
111000     MOVE     2     TO  WRK-CS-09V00-012.                         IX1084.2
111100     MOVE     ZERO  TO  WRK-CS-09V00-013.                         IX1084.2
111200     MOVE     ZERO  TO  WRK-CS-09V00-014.                         IX1084.2
111300     MOVE     ZERO  TO  WRK-CS-09V00-015.                         IX1084.2
111400     MOVE     ZERO  TO  WRK-CS-09V00-016.                         IX1084.2
111500     MOVE     ZERO  TO  WRK-CS-09V00-017.                         IX1084.2
111600     MOVE     ZERO  TO  WRK-CS-09V00-018.                         IX1084.2
111700     MOVE    SPACE TO IX-FS2-STATUS.                              IX1084.2
111800     OPEN     I-O  IX-FS2.                                        IX1084.2
111900     MOVE     SPACE     TO  WRK-XN-0002-002                       IX1084.2
112000     MOVE     SPACE     TO  WRK-XN-0002-003                       IX1084.2
112100     MOVE     SPACE     TO  WRK-XN-0002-004                       IX1084.2
112200     MOVE      IX-FS2-STATUS TO WRK-XN-0002-001                   IX1084.2
112300     MOVE      IX-FS2-STATUS TO WRK-XN-0002-001                   IX1084.2
112400     MOVE     SPACE TO IX-FS2-STATUS.                             IX1084.2
112500     MOVE "REWRITE-TEST-GF-01" TO PAR-NAME.                       IX1084.2
112600     MOVE "REWRITE NOT INVALID." TO FEATURE.                      IX1084.2
112700     MOVE     ZERO  TO  SWITCH-NOT-INVALID.                       IX1084.2
112800     MOVE     ZERO  TO  SWITCH-END-XXX.                           IX1084.2
112900 REWRITE-TEST-GF-01-0.                                            IX1084.2
113000     MOVE 5 TO WRK-DU-09V00-001.                                  IX1084.2
113100     MOVE GRP-0101  TO IX-FS2-KEY.                                IX1084.2
113200     READ  IX-FS2 INVALID KEY                                     IX1084.2
113300              MOVE " READ FAILED " TO RE-MARK                     IX1084.2
113400              PERFORM FAIL                                        IX1084.2
113500              GO TO REWRITE-WRITE-GF-01.                          IX1084.2
113600     MOVE "RECORD REPLACED BY REWRITE STATEMENT" TO IX-FS2-REC-120IX1084.2
113700     REWRITE IX-FS2R1-F-G-240                                     IX1084.2
113800            INVALID KEY   MOVE "REWRITE IS INVALID" TO RE-MARK    IX1084.2
113900                          PERFORM FAIL                            IX1084.2
114000                          GO TO REWRITE-WRITE-GF-01               IX1084.2
114100          NOT INVALID KEY                                         IX1084.2
114200           MOVE 1 TO SWITCH-NOT-INVALID.                          IX1084.2
114300 REWRITE-TEST-GF-01.                                              IX1084.2
114400     IF SWITCH-NOT-INVALID = 1                                    IX1084.2
114500          GO TO REWRITE-PASS-GF-01.                               IX1084.2
114600 REWRITE-FAIL-GF-01.                                              IX1084.2
114700     MOVE "IX-33, 4.6.2                              " TO RE-MARK.IX1084.2
114800     PERFORM FAIL.                                                IX1084.2
114900     GO TO REWRITE-WRITE-GF-01.                                   IX1084.2
115000 REWRITE-PASS-GF-01.                                              IX1084.2
115100     PERFORM PASS.                                                IX1084.2
115200 REWRITE-WRITE-GF-01.                                             IX1084.2
115300     PERFORM PRINT-DETAIL.                                        IX1084.2
115400                                                                  IX1084.2
115500******************************************************************IX1084.2
115600*   TEST  REWRITE NOT INVALID  ... END-DELETE.                   *IX1084.2
115700*                                                                *IX1084.2
115800*         IX-33, 4.6.2                                           *IX1084.2
115900******************************************************************IX1084.2
116000 REWRITE-INIT-GF-02.                                              IX1084.2
116100     MOVE "REWRITE-TEST-GF-02-1"  TO PAR-NAME.                    IX1084.2
116200     MOVE "REWRITE NOT INV. . END-" TO FEATURE.                   IX1084.2
116300     MOVE     ZERO  TO  SWITCH-NOT-INVALID.                       IX1084.2
116400     MOVE     ZERO  TO  SWITCH-END-XXX.                           IX1084.2
116500 REWRITE-TEST-GF-02.                                              IX1084.2
116600     MOVE 6 TO WRK-DU-09V00-001.                                  IX1084.2
116700     MOVE GRP-0101  TO IX-FS2-KEY.                                IX1084.2
116800     READ  IX-FS2 INVALID KEY                                     IX1084.2
116900              MOVE "READ FAILED " TO RE-MARK                      IX1084.2
117000              PERFORM FAIL                                        IX1084.2
117100              GO TO REWRITE-WRITE-GF-02-1.                        IX1084.2
117200     MOVE "RECORD REPLACED BY REWRITE STATEMENT" TO IX-FS2-REC-120IX1084.2
117300     REWRITE IX-FS2R1-F-G-240                                     IX1084.2
117400            INVALID KEY   MOVE "REWRITE IS INVALID" TO RE-MARK    IX1084.2
117500                          PERFORM FAIL                            IX1084.2
117600                          GO TO REWRITE-WRITE-GF-02-1             IX1084.2
117700          NOT INVALID                                             IX1084.2
117800           MOVE 1 TO SWITCH-NOT-INVALID                           IX1084.2
117900        END-REWRITE.                                              IX1084.2
118000     MOVE 1 TO SWITCH-END-XXX.                                    IX1084.2
118100 REWRITE-TEST-GF-02-1.                                            IX1084.2
118200     IF SWITCH-NOT-INVALID = 1                                    IX1084.2
118300          GO TO REWRITE-PASS-GF-02-1.                             IX1084.2
118400 REWRITE-FAIL-GF-02-1.                                            IX1084.2
118500     MOVE "IX-33, 4.6.2                              " TO RE-MARK.IX1084.2
118600     PERFORM FAIL.                                                IX1084.2
118700     GO TO REWRITE-WRITE-GF-02-1.                                 IX1084.2
118800 REWRITE-PASS-GF-02-1.                                            IX1084.2
118900     PERFORM PASS.                                                IX1084.2
119000 REWRITE-WRITE-GF-02-1.                                           IX1084.2
119100     PERFORM PRINT-DETAIL.                                        IX1084.2
119200                                                                  IX1084.2
119300 REWRITE-TEST-GF-02-2.                                            IX1084.2
119400     MOVE "REWRITE-TEST-GF-02-2"  TO PAR-NAME.                    IX1084.2
119500     MOVE "END-REWRITE.     " TO FEATURE.                         IX1084.2
119600     IF SWITCH-END-XXX     = 1                                    IX1084.2
119700          GO TO REWRITE-PASS-GF-02-2.                             IX1084.2
119800 REWRITE-FAIL-GF-02-2.                                            IX1084.2
119900     MOVE "IX-32 4.5.4 (19)                          " TO RE-MARK.IX1084.2
120000     PERFORM FAIL.                                                IX1084.2
120100     GO TO REWRITE-WRITE-GF-02-2.                                 IX1084.2
120200 REWRITE-PASS-GF-02-2.                                            IX1084.2
120300     PERFORM PASS.                                                IX1084.2
120400 REWRITE-WRITE-GF-02-2.                                           IX1084.2
120500     PERFORM PRINT-DETAIL.                                        IX1084.2
120600                                                                  IX1084.2
120700******************************************************************IX1084.2
120800*   TEST: IF REWRITE. NOT INVALID ... END-DELETE ...    .        *IX1084.2
120900*                                                                *IX1084.2
121000*         IX-33, 4.6.2                                           *IX1084.2
121100******************************************************************IX1084.2
121200 REWRITE-INIT-GF-03.                                              IX1084.2
121300     MOVE "REWRITE-TEST-GF-03-1"  TO PAR-NAME.                    IX1084.2
121400     MOVE "IF .REWRITE. NOT INV. . END-" TO FEATURE.              IX1084.2
121500     MOVE     ZERO  TO  SWITCH-NOT-INVALID.                       IX1084.2
121600     MOVE     ZERO  TO  SWITCH-END-XXX.                           IX1084.2
121700     MOVE    1      TO  SWITCH-IF.                                IX1084.2
121800 REWRITE-TEST-GF-03.                                              IX1084.2
121900     MOVE 7 TO WRK-DU-09V00-001.                                  IX1084.2
122000     MOVE GRP-0101  TO IX-FS2-KEY.                                IX1084.2
122100     READ  IX-FS2 INVALID KEY                                     IX1084.2
122200              MOVE "READ FAILED " TO RE-MARK                      IX1084.2
122300              PERFORM FAIL                                        IX1084.2
122400              GO TO REWRITE-WRITE-GF-03-1.                        IX1084.2
122500     IF SWITCH-IF = 1                                             IX1084.2
122600     MOVE "RECORD REPLACED BY REWRITE STATEMENT" TO IX-FS2-REC-120IX1084.2
122700        REWRITE IX-FS2R1-F-G-240                                  IX1084.2
122800            INVALID KEY   MOVE "REWRITE IS INVALID" TO RE-MARK    IX1084.2
122900                          PERFORM FAIL                            IX1084.2
123000                          GO TO REWRITE-WRITE-GF-03-1             IX1084.2
123100          NOT INVALID KEY                                         IX1084.2
123200             MOVE 1 TO SWITCH-NOT-INVALID                         IX1084.2
123300        END-REWRITE                                               IX1084.2
123400             MOVE 1 TO SWITCH-END-XXX.                            IX1084.2
123500     MOVE 9 TO SWITCH-END-X9X.                                    IX1084.2
123600 REWRITE-TEST-GF-03-1.                                            IX1084.2
123700     IF SWITCH-NOT-INVALID = 1                                    IX1084.2
123800          GO TO REWRITE-PASS-GF-03-1.                             IX1084.2
123900 REWRITE-FAIL-GF-03-1.                                            IX1084.2
124000     MOVE "IX-33, 4.6.2                              " TO RE-MARK.IX1084.2
124100     PERFORM FAIL.                                                IX1084.2
124200     GO TO REWRITE-WRITE-GF-03-1.                                 IX1084.2
124300 REWRITE-PASS-GF-03-1.                                            IX1084.2
124400     PERFORM PASS.                                                IX1084.2
124500 REWRITE-WRITE-GF-03-1.                                           IX1084.2
124600     PERFORM PRINT-DETAIL.                                        IX1084.2
124700                                                                  IX1084.2
124800 REWRITE-TEST-GF-03-2.                                            IX1084.2
124900     MOVE "END-REWRITE" TO FEATURE.                               IX1084.2
125000     MOVE "REWRITE-TEST-GF-03-2"  TO PAR-NAME.                    IX1084.2
125100     IF SWITCH-END-XXX     = 1                                    IX1084.2
125200          GO TO REWRITE-PASS-GF-03-2.                             IX1084.2
125300 REWRITE-FAIL-GF-03-2.                                            IX1084.2
125400     MOVE "IX-32 4.5.4 (19)                          " TO RE-MARK.IX1084.2
125500     PERFORM FAIL.                                                IX1084.2
125600     GO TO REWRITE-WRITE-GF-03-2.                                 IX1084.2
125700 REWRITE-PASS-GF-03-2.                                            IX1084.2
125800     PERFORM PASS.                                                IX1084.2
125900 REWRITE-WRITE-GF-03-2.                                           IX1084.2
126000     PERFORM PRINT-DETAIL.                                        IX1084.2
126100                                                                  IX1084.2
126200 REWRITE-TEST-GF-03-3.                                            IX1084.2
126300     MOVE "REWRITE-TEST-GF-03-3"  TO PAR-NAME.                    IX1084.2
126400     IF SWITCH-END-X9X     = 9                                    IX1084.2
126500          GO TO REWRITE-PASS-GF-03-3.                             IX1084.2
126600 REWRITE-FAIL-GF-03-3.                                            IX1084.2
126700     MOVE "IX-32 4.5.4 (19)                          " TO RE-MARK.IX1084.2
126800     PERFORM FAIL.                                                IX1084.2
126900     GO TO REWRITE-WRITE-GF-03-3.                                 IX1084.2
127000 REWRITE-PASS-GF-03-3.                                            IX1084.2
127100     PERFORM PASS.                                                IX1084.2
127200 REWRITE-WRITE-GF-03-3.                                           IX1084.2
127300     PERFORM PRINT-DETAIL.                                        IX1084.2
127400                                                                  IX1084.2
127500     CLOSE IX-FS2.                                                IX1084.2
127600                                                                  IX1084.2
127700                                                                  IX1084.2
127800******************************************************************IX1084.2
127900*                                                                *IX1084.2
128000*   TESTS:   R E W R I T E      NOT INVALID    END-REWRITE       *IX1084.2
128100*         FOR A FILE WHICH IS IN SEQUENTIAL ACCESS MODE          *IX1084.2
128200*                                                                *IX1084.2
128300*                                                                *IX1084.2
128400*   TEST  REWRITE NOT INVALID                                    *IX1084.2
128500*                                                                *IX1084.2
128600*         IX-33, 4.6.2                                           *IX1084.2
128700******************************************************************IX1084.2
128800 RWR-SEQ-INIT-GF-01.                                              IX1084.2
128900     MOVE     2     TO  WRK-CS-09V00-012.                         IX1084.2
129000     MOVE     ZERO  TO  WRK-CS-09V00-013.                         IX1084.2
129100     MOVE     ZERO  TO  WRK-CS-09V00-014.                         IX1084.2
129200     MOVE     ZERO  TO  WRK-CS-09V00-015.                         IX1084.2
129300     MOVE     ZERO  TO  WRK-CS-09V00-016.                         IX1084.2
129400     MOVE     ZERO  TO  WRK-CS-09V00-017.                         IX1084.2
129500     MOVE     ZERO  TO  WRK-CS-09V00-018.                         IX1084.2
129600     MOVE    SPACE TO IX-FS1-STATUS.                              IX1084.2
129700     OPEN     I-O  IX-FS1.                                        IX1084.2
129800     MOVE     SPACE     TO  WRK-XN-0002-002                       IX1084.2
129900     MOVE     SPACE     TO  WRK-XN-0002-003                       IX1084.2
130000     MOVE     SPACE     TO  WRK-XN-0002-004                       IX1084.2
130100     MOVE      IX-FS1-STATUS TO WRK-XN-0002-001                   IX1084.2
130200     MOVE      IX-FS1-STATUS TO WRK-XN-0002-001                   IX1084.2
130300     MOVE     SPACE TO IX-FS1-STATUS.                             IX1084.2
130400     MOVE "RWR-SEQ-TEST-GF-01"  TO PAR-NAME.                      IX1084.2
130500     MOVE "REWRITE NOT INVALID." TO FEATURE.                      IX1084.2
130600     MOVE     ZERO  TO  SWITCH-NOT-INVALID.                       IX1084.2
130700     MOVE     ZERO  TO  SWITCH-END-XXX.                           IX1084.2
130800 RWR-SEQ-TEST-GF-01-0.                                            IX1084.2
130900******************************************************************IX1084.2
131000*                                                                *IX1084.2
131100*   READ AND REWRITE THE FIRST THREE RECORDS                     *IX1084.2
131200*                                                                *IX1084.2
131300******************************************************************IX1084.2
131400     READ  IX-FS1 AT END                                          IX1084.2
131500              MOVE " READ FAILED " TO RE-MARK                     IX1084.2
131600              PERFORM FAIL                                        IX1084.2
131700              GO TO RWR-SEQ-WRITE-GF-01.                          IX1084.2
131800     MOVE "RECORD REPLACED BY REWRITE STATEMENT" TO IX-FS1-REC-120IX1084.2
131900     REWRITE IX-FS1R1-F-G-240                                     IX1084.2
132000            INVALID KEY   MOVE "REWRITE IS INVALID" TO RE-MARK    IX1084.2
132100                          PERFORM FAIL                            IX1084.2
132200                          GO TO RWR-SEQ-WRITE-GF-01               IX1084.2
132300          NOT INVALID KEY                                         IX1084.2
132400           MOVE 1 TO SWITCH-NOT-INVALID.                          IX1084.2
132500 RWR-SEQ-TEST-GF-01.                                              IX1084.2
132600     IF SWITCH-NOT-INVALID = 1                                    IX1084.2
132700          GO TO RWR-SEQ-PASS-GF-01.                               IX1084.2
132800 RWR-SEQ-FAIL-GF-01.                                              IX1084.2
132900     MOVE "IX-33, 4.6.2                              " TO RE-MARK.IX1084.2
133000     PERFORM FAIL.                                                IX1084.2
133100     GO TO RWR-SEQ-WRITE-GF-01.                                   IX1084.2
133200 RWR-SEQ-PASS-GF-01.                                              IX1084.2
133300     PERFORM PASS.                                                IX1084.2
133400 RWR-SEQ-WRITE-GF-01.                                             IX1084.2
133500     PERFORM PRINT-DETAIL.                                        IX1084.2
133600                                                                  IX1084.2
133700******************************************************************IX1084.2
133800*   TEST  REWRITE NOT INVALID  ... END-DELETE.                   *IX1084.2
133900*                                                                *IX1084.2
134000*         IX-33, 4.6.2                                           *IX1084.2
134100******************************************************************IX1084.2
134200 RWR-SEQ-INIT-GF-02.                                              IX1084.2
134300     MOVE "RWR-SEQ-TEST-GF-02-1"  TO PAR-NAME.                    IX1084.2
134400     MOVE "REWRITE NOT INV. . END-" TO FEATURE.                   IX1084.2
134500     MOVE     ZERO  TO  SWITCH-NOT-INVALID.                       IX1084.2
134600     MOVE     ZERO  TO  SWITCH-END-XXX.                           IX1084.2
134700 RWR-SEQ-TEST-GF-02.                                              IX1084.2
134800     READ  IX-FS1 AT END                                          IX1084.2
134900              MOVE "READ FAILED " TO RE-MARK                      IX1084.2
135000              PERFORM FAIL                                        IX1084.2
135100              GO TO RWR-SEQ-WRITE-GF-02-1.                        IX1084.2
135200     MOVE "RECORD REPLACED BY REWRITE STATEMENT" TO IX-FS1-REC-120IX1084.2
135300     REWRITE IX-FS1R1-F-G-240                                     IX1084.2
135400            INVALID       MOVE "REWRITE IS INVALID" TO RE-MARK    IX1084.2
135500                          PERFORM FAIL                            IX1084.2
135600                          GO TO RWR-SEQ-WRITE-GF-02-1             IX1084.2
135700          NOT INVALID                                             IX1084.2
135800           MOVE 1 TO SWITCH-NOT-INVALID                           IX1084.2
135900        END-REWRITE.                                              IX1084.2
136000     MOVE 1 TO SWITCH-END-XXX.                                    IX1084.2
136100 RWR-SEQ-TEST-GF-02-1.                                            IX1084.2
136200     IF SWITCH-NOT-INVALID = 1                                    IX1084.2
136300          GO TO RWR-SEQ-PASS-GF-02-1.                             IX1084.2
136400 RWR-SEQ-FAIL-GF-02-1.                                            IX1084.2
136500     MOVE "IX-33, 4.6.2                              " TO RE-MARK.IX1084.2
136600     PERFORM FAIL.                                                IX1084.2
136700     GO TO RWR-SEQ-WRITE-GF-02-1.                                 IX1084.2
136800 RWR-SEQ-PASS-GF-02-1.                                            IX1084.2
136900     PERFORM PASS.                                                IX1084.2
137000 RWR-SEQ-WRITE-GF-02-1.                                           IX1084.2
137100     PERFORM PRINT-DETAIL.                                        IX1084.2
137200                                                                  IX1084.2
137300 RWR-SEQ-TEST-GF-02-2.                                            IX1084.2
137400     MOVE "RWR-SEQ-TEST-GF-02-2"  TO PAR-NAME.                    IX1084.2
137500     MOVE "END-REWRITE.     " TO FEATURE.                         IX1084.2
137600     IF SWITCH-END-XXX     = 1                                    IX1084.2
137700          GO TO RWR-SEQ-PASS-GF-02-2.                             IX1084.2
137800 RWR-SEQ-FAIL-GF-02-2.                                            IX1084.2
137900     MOVE "IX-32 4.5.4 (19)                          " TO RE-MARK.IX1084.2
138000     PERFORM FAIL.                                                IX1084.2
138100     GO TO RWR-SEQ-WRITE-GF-02-2.                                 IX1084.2
138200 RWR-SEQ-PASS-GF-02-2.                                            IX1084.2
138300     PERFORM PASS.                                                IX1084.2
138400 RWR-SEQ-WRITE-GF-02-2.                                           IX1084.2
138500     PERFORM PRINT-DETAIL.                                        IX1084.2
138600                                                                  IX1084.2
138700******************************************************************IX1084.2
138800*   TEST: IF REWRITE. NOT INVALID ... END-DELETE ...    .        *IX1084.2
138900*                                                                *IX1084.2
139000*         IX-33, 4.6.2                                           *IX1084.2
139100******************************************************************IX1084.2
139200 RWR-SEQ-INIT-GF-03.                                              IX1084.2
139300     MOVE "RWR-SEQ-TEST-GF-03-1"  TO PAR-NAME.                    IX1084.2
139400     MOVE "IF .REWRITE. NOT INV. . END-" TO FEATURE.              IX1084.2
139500     MOVE     ZERO  TO  SWITCH-NOT-INVALID.                       IX1084.2
139600     MOVE     ZERO  TO  SWITCH-END-XXX.                           IX1084.2
139700     MOVE    1      TO  SWITCH-IF.                                IX1084.2
139800 RWR-SEQ-TEST-GF-03.                                              IX1084.2
139900     READ  IX-FS1 END                                             IX1084.2
140000              MOVE "READ FAILED " TO RE-MARK                      IX1084.2
140100              PERFORM FAIL                                        IX1084.2
140200              GO TO RWR-SEQ-WRITE-GF-03-1.                        IX1084.2
140300     IF SWITCH-IF = 1                                             IX1084.2
140400     MOVE "RECORD REPLACED BY REWRITE STATEMENT" TO IX-FS1-REC-120IX1084.2
140500        REWRITE IX-FS1R1-F-G-240                                  IX1084.2
140600            INVALID KEY   MOVE "REWRITE IS INVALID" TO RE-MARK    IX1084.2
140700                          PERFORM FAIL                            IX1084.2
140800                          GO TO RWR-SEQ-WRITE-GF-03-1             IX1084.2
140900          NOT INVALID KEY                                         IX1084.2
141000             MOVE 1 TO SWITCH-NOT-INVALID                         IX1084.2
141100        END-REWRITE                                               IX1084.2
141200             MOVE 1 TO SWITCH-END-XXX.                            IX1084.2
141300     MOVE 9 TO SWITCH-END-X9X.                                    IX1084.2
141400 RWR-SEQ-TEST-GF-03-1.                                            IX1084.2
141500     IF SWITCH-NOT-INVALID = 1                                    IX1084.2
141600          GO TO RWR-SEQ-PASS-GF-03-1.                             IX1084.2
141700 RWR-SEQ-FAIL-GF-03-1.                                            IX1084.2
141800     MOVE "IX-33, 4.6.2                              " TO RE-MARK.IX1084.2
141900     PERFORM FAIL.                                                IX1084.2
142000     GO TO RWR-SEQ-WRITE-GF-03-1.                                 IX1084.2
142100 RWR-SEQ-PASS-GF-03-1.                                            IX1084.2
142200     PERFORM PASS.                                                IX1084.2
142300 RWR-SEQ-WRITE-GF-03-1.                                           IX1084.2
142400     PERFORM PRINT-DETAIL.                                        IX1084.2
142500                                                                  IX1084.2
142600 RWR-SEQ-TEST-GF-03-2.                                            IX1084.2
142700     MOVE "END-REWRITE" TO FEATURE.                               IX1084.2
142800     MOVE "RWR-SEQ-TEST-GF-03-2"  TO PAR-NAME.                    IX1084.2
142900     IF SWITCH-END-XXX     = 1                                    IX1084.2
143000          GO TO RWR-SEQ-PASS-GF-03-2.                             IX1084.2
143100 RWR-SEQ-FAIL-GF-03-2.                                            IX1084.2
143200     MOVE "IX-32 4.5.4 (19)                          " TO RE-MARK.IX1084.2
143300     PERFORM FAIL.                                                IX1084.2
143400     GO TO RWR-SEQ-WRITE-GF-03-2.                                 IX1084.2
143500 RWR-SEQ-PASS-GF-03-2.                                            IX1084.2
143600     PERFORM PASS.                                                IX1084.2
143700 RWR-SEQ-WRITE-GF-03-2.                                           IX1084.2
143800     PERFORM PRINT-DETAIL.                                        IX1084.2
143900                                                                  IX1084.2
144000 RWR-SEQ-TEST-GF-03-3.                                            IX1084.2
144100     MOVE "RWR-SEQ-TEST-GF-03-3"  TO PAR-NAME.                    IX1084.2
144200     IF SWITCH-END-X9X     = 9                                    IX1084.2
144300          GO TO RWR-SEQ-PASS-GF-03-3.                             IX1084.2
144400 RWR-SEQ-FAIL-GF-03-3.                                            IX1084.2
144500     MOVE "IX-32 4.5.4 (19)                          " TO RE-MARK.IX1084.2
144600     PERFORM FAIL.                                                IX1084.2
144700     GO TO RWR-SEQ-WRITE-GF-03-3.                                 IX1084.2
144800 RWR-SEQ-PASS-GF-03-3.                                            IX1084.2
144900     PERFORM PASS.                                                IX1084.2
145000 RWR-SEQ-WRITE-GF-03-3.                                           IX1084.2
145100     PERFORM PRINT-DETAIL.                                        IX1084.2
145200                                                                  IX1084.2
145300     CLOSE IX-FS1.                                                IX1084.2
145400                                                                  IX1084.2
145500                                                                  IX1084.2
145600 CCVS-EXIT SECTION.                                               IX1084.2
145700 CCVS-999999.                                                     IX1084.2
145800     GO TO CLOSE-FILES.                                           IX1084.2