Impressum ix210a.cob

000100 IDENTIFICATION DIVISION.                                         IX2104.2
000200 PROGRAM-ID.                                                      IX2104.2
000300     IX210A.                                                      IX2104.2
000400****************************************************************  IX2104.2
000500*                                                              *  IX2104.2
000600*    VALIDATION FOR:-                                          *  IX2104.2
000700*                                                              *  IX2104.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX2104.2
000900*                                                              *  IX2104.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IX2104.2
001100*                                                              *  IX2104.2
001200****************************************************************  IX2104.2
001300*                                                              *  IX2104.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  IX2104.2
001500*                                                              *  IX2104.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  IX2104.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  IX2104.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  IX2104.2
001900*                                                              *  IX2104.2
002000****************************************************************  IX2104.2
002100*    THE PURPOSE OF THE  PROGRAM IS TO TEST USE OF THE            IX2104.2
002200*    START --- GREATER THAN --- STATEMENT USING FIRST THE PRIME   IX2104.2
002300*    RECORD KEY AND THEN WITH AN ALTERNATE RECORD KEY             IX2104.2
002400*    AS THE KEY OF REFERENCE.   THE START STATEMENT NAMES,        IX2104.2
002500*    IN ITS CONSTRUCT , EITHER THE DATA NAME SPECIFIED IN THE     IX2104.2
002600*    KEY CLAUSE OR A DATA ITEM THAT IS SUBORDINATE TO THE         IX2104.2
002700*    KEY NAME.   DIFFERENT KEY VALUES ARE USED FOR TESTING.       IX2104.2
002800*    IF A KEY VALUE IS PROVIDED WHICH MATCHES A RECORD IN THE FILEIX2104.2
002900*    WHEN THE START IS EXECUTED THEN THE RECORD IS EXPECTED TO    IX2104.2
003000*    MADE AVAILABLE BY THE SUBSEQUENT READ STATEMENT.  IF A KEY   IX2104.2
003100*    VALUE IS PROVIDED WHICH DOES NOT  MATCH ANY RECORD IN THE    IX2104.2
003200*    FILE THEN THE INVALID KEY PATH IS EXPECTED TO BE TAKEN.      IX2104.2
003300*    THE FILE STATUS CONTENTS RESULTING FROM EXECUTION OF THE     IX2104.2
003400*    START TESTS ARE SAVED AND CHECKED IN LATER TESTS.            IX2104.2
003500*                                                                 IX2104.2
003600*            REFERENCE   AMERICAN NATIONAL STANDARD               IX2104.2
003700*                        PROGRAMMING LANGUAGE COBOL, X3.23-1985.  IX2104.2
003800*                        SECTION IX, INDEX I-O, THE START         IX2104.2
003900*                        STATEMENT. PARAGRAPHS 4.7.3 (3);         IX2104.2
004000*                                              4.7.4 (1), (4), (4)IX2104.2
004100*                                                        AND      IX2104.2
004200*                        THE FILE STATUS PARAGRAPH 1.3.4          IX2104.2
004300*                                                                 IX2104.2
004400*    BEFORE EXECUTION OF THE START IN EACH TEST, A RECORD IS MADE IX2104.2
004500*    AVAILABLE FROM THE FILE THAT IS DIFFERENT THAN WILL RESULT   IX2104.2
004600*    FROM THE TEST, AND THE RECORD KEY IS LOADED WITH A KEY VALUE.IX2104.2
004700*    DEPENDING ON THE NATURE OF THE TEST THE KEY VALUE MAY OR     IX2104.2
004800*    MAY NOT BE A VALID KEY FOR THE FILE.                         IX2104.2
004900*                                                                 IX2104.2
005000*    THIS PROGRAM FIRST CREATES AN  INDEXED SEQUENTIAL FILE       IX2104.2
005100*    CONTAINING TWO ALTERNATE KEYS AND  THE ONE REQUIRED RECORD   IX2104.2
005200*    KEY FOR THE FILE.  IMMEDIATELY FOLLOWING FILE CREATION THE   IX2104.2
005300*    FILE IS READ AND THE RECORDS OF THE FILE VERIFIED FOR        IX2104.2
005400*    ACCURACY.  NEXT THE TESTS ARE EXECUTED USING THE START ---   IX2104.2
005500*    GREATER THAN ---STATEMENT.                                   IX2104.2
005600*    THE RECORDS IN THE FILE ARE CREATED IN SEQUENTIAL ORDER BY   IX2104.2
005700*    RECORD KEY VALUE.  FOLLOWING  IS A SAMPLE OF THE DATA        IX2104.2
005800*    CONTENTS FOR THE RECORD KEY AND TWO ALTERNATE RECORD KEYS IN IX2104.2
005900*    THE FILE.                                                    IX2104.2
006000*                                                                 IX2104.2
006100*   REC-NO  RECORD-KEY      ALTERNATE-KEY-1     ALTERNATE-KEY-2   IX2104.2
006200*   ------  ----------      ---------------     ---------------   IX2104.2
006300*    001   BBBBBBBBBC002 EEEEEEEEEF000ALTKEY1 WWWWWWWWWV398ALTKEY2IX2104.2
006400*    002   BBBBBBBBCC004 EEEEEEEEFF004ALTKEY1 WWWWWWWWVV396ALTKEY2IX2104.2
006500*    003   BBBBBBBCCC006 EEEEEEEFFF006ALTKEY1 WWWWWWWVVV394ALTKEY2IX2104.2
006600*     .          .                 .                    .         IX2104.2
006700*     .          .                 .                    .         IX2104.2
006800*     .          .                 .                    .         IX2104.2
006900*    010   CCCCCCCCCC020 FFFFFFFFFF020ALTKEY1 VVVVVVVVVV380ALTKEY2IX2104.2
007000*    011   CCCCCCCCCD022 FFFFFFFFFG022ALTKEY1 VVVVVVVVVV380ALTKEY2IX2104.2
007100*    012   CCCCCCCCDD024 FFFFFFFFGG024ALTKEY1 VVVVVVVVUU376ALTKEY2IX2104.2
007200*     .          .                 .                    .         IX2104.2
007300*     .          .                 .                    .         IX2104.2
007400*     .          .                 .                    .         IX2104.2
007500*    200   UUUUUUUUUU400 YYYYYYYYYY400ALTKEY1 DDDDDDDDDD000ALTKEY2IX2104.2
007600*                                                                 IX2104.2
007700*     NOTE 1 - ALTERNATE KEY NUMBER 2 CONTAINS DUPLICATE KEYS     IX2104.2
007800*              EVERY 10TH AND 11TH RECORDS.                       IX2104.2
007900*                                                                 IX2104.2
008000*     NOTE 2 - THE FIRST 50 RECORDS AND LAST 25 RECORDS OF THE    IX2104.2
008100*    FILE FOLLOW THE ABOVE SEQUENTIAL KEY PATTERN.  FOR THE MIDDLEIX2104.2
008200*    125 RECORDS ONLY THE NUMBER PART OF THE KEYS ARE VARIED      IX2104.2
008300*    AND VARIED IN THE SEQUENCE SHOWN ABOVE.  THAT IS, RECORD-KEY IX2104.2
008400*    AND ALTERNATE-KEY-1 ARE INCREMENTED BY 2 AND THE ALTERNATE-  IX2104.2
008500*    KEY-2 IS DECREMENTED BY 2 EACH TIME A RECORD IS WRITTEN TO   IX2104.2
008600*    THE FILE.  THE FILE IS DESIGNED TO BE LARGE ENOUGH SO THAT   IX2104.2
008700*    AN I-O OPERATION IS REQUIRED FOR EACH RECORD ACCESSED FROM   IX2104.2
008800*    THE FILE.                                                    IX2104.2
008900*                                                                 IX2104.2
009000*    FILE CHARACTERISTICS ARE: FILE SIZE            = 200 RECORDS IX2104.2
009100*                              RECORD SIZE          = 240 CHARS.  IX2104.2
009200*                              RECORD KEY SIZE      = 13  CHARS.  IX2104.2
009300*                              ALTERNATE KEY 1 SIZE = 20  CHARS.  IX2104.2
009400*                              ALTERNATE KEY 2 SIZE = 20  CHARS.  IX2104.2
009500*                              ACCESS MODE          = SEQUENTIAL  IX2104.2
009600*                                                                 IX2104.2
009700*    A LIST OF COBOL ELEMENTS WITH THE PARAGRAPH NAME IN PARENTH- IX2104.2
009800*    ESIS THAT TESTS THE ELEMENT AND A SHORT DESCRIPTION OF THE   IX2104.2
009900*    TEST FOLLOWS.                                                IX2104.2
010000*                                                                 IX2104.2
010100*      PROGRAM COLLATING SEQUENCE CLAUSE. (ALL START TESTS) -     IX2104.2
010200*            THE PROGRAM COLLATING SEQUENCE CLAUSE SHOULD HAVE NO IX2104.2
010300*            EFFECT ON THE COMARAISIONS ASSOCIATED WITH THE START IX2104.2
010400*            STATEMENT.  THIS PROGRAM ASSUMES THAT THE PROGRAM    IX2104.2
010500*            COLLATING SEQUENCE CLAUSE ALSO DOES NOT IN ANY WAY   IX2104.2
010600*            EFFECT THE SEQUENTIAL ORDER OF RECORDS ACCESSED      IX2104.2
010700*            FROM OR WRITTEN TO THE FILE.                         IX2104.2
010800*      WRITE --- INVALID KEY---. (INX-TEST-001) - THIS TEST CREATEIX2104.2
010900*            A FILE OF 200 RECORDS CONTAINING ONE RECORD KEY AND  IX2104.2
011000*            TWO ALTERNATE KEYS.                                  IX2104.2
011100*      READ ---AT END ---. (INX-TEST-002) - THIS TEST READS THE   IX2104.2
011200*            FILE CREATED IN INX-TEST-001 AND VERIFIES THAT   THE IX2104.2
011300*            FILE WAS CREATED CORRECTLY.                          IX2104.2
011400*      START ---KEY GREATER THAN RECORD-KEY INVALID KEY ---. (INX-IX2104.2
011500*            TEST-003.01 THRU INX-TEST-003.04) - THE START        IX2104.2
011600*            STATEMENT IS EXECUTED USING THE RECORD-KEY FOR THE   IX2104.2
011700*            FILE CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2104.2
011800*            RECORD IN THE FILE (.01), BETWEEN TWO EXISTING KEY   IX2104.2
011900*            VALUES (02), LESS THAN THE FIRST RECORD IN THE FILE  IX2104.2
012000*            (.03) AND GREATER THAN THAN THE LAST RECORD IN THE   IX2104.2
012100*            FILE (.04).                                          IX2104.2
012200*      START ---KEY GREATER THAN DATA-ITEM  INVALID KEY ---. (INX-IX2104.2
012300*            TEST-003.05 THRU INX-TEST-003.09) - THE START        IX2104.2
012400*            STATEMENT IS EXECUTED USING A DATA ITEM WHICH IS     IX2104.2
012500*            SUBORDINATE TO  THE RECORD-KEY NAME OF THE FILE      IX2104.2
012600*            AND  CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2104.2
012700*            RECORD IN THE FILE (.05), EQUAL A VALUE PRESENT IN   IX2104.2
012800*            IN MORE THAN ONE RECORD IN THE FILE (.06),           IX2104.2
012900*            NOT EQUAL TO ANY RECORD IN THE FILE (.07, LESS THAN  IX2104.2
013000*            THE FIRST RECORD IN THE FILE (.08) AND GREATER THAN  IX2104.2
013100*            THE LAST RECORD IN THE FILE (.09.                    IX2104.2
013200*                                                                 IX2104.2
013300*            NOTE -- IN SOME OF THE TESTS THE DATA ITEM SPECIFIED IX2104.2
013400*                    IS AN ENTRY SUBORDINATE TO A REDEFINES       IX2104.2
013500*                    ENTRY WHICH USES AS ITS OBJECT THE KEY       IX2104.2
013600*                   NAMED BY THE RECORD KEY CLAUSE.               IX2104.2
013700*                                                                 IX2104.2
013800*      FILE STATUS. (INX-TEST-004.01 THRU INX-TEST-004.09) - THESEIX2104.2
013900*            TESTS CHECK THE CONTENTS OF THE FILE STATUS RESULTINGIX2104.2
014000*            FROM THE START IN INX-TEST-003.01 THRU               IX2104.2
014100*            INX-TEST-003.09.                                     IX2104.2
014200*      START ---KEY GREATER THAN ALTNATE-KEY INVALID KEY --. (INX-IX2104.2
014300*            TEST-005.01 THRU INX-TEST-005.04) - THE START        IX2104.2
014400*            STATEMENT IS EXECUTED USING THE ALTERNATE-KEY FOR THEIX2104.2
014500*            FILE CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2104.2
014600*            RECORD IN THE FILE (.01), BETWEEN TWO EXISTING KEY   IX2104.2
014700*            VALUES (02), LESS THAN THE FIRST RECORD IN THE FILE  IX2104.2
014800*            (.03) AND GREATER THAN THAN THE LAST RECORD IN THE   IX2104.2
014900*            FILE (.04).                                          IX2104.2
015000*      START ---KEY GREATER THAN DATA-ITEM   INVALID KEY --. (INX-IX2104.2
015100*            TEST-005.05 THRU INX-TEST-005.09) - THE START        IX2104.2
015200*            STATEMENT IS EXECUTED USING A DATA ITEM WHICH IS     IX2104.2
015300*            SUBORDINATE TO THE ALTERNATE-KEY NAME OF THE FILE    IX2104.2
015400*            AND  CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2104.2
015500*            RECORD IN THE FILE (.05), EQUAL A VALUE PRESENT IN   IX2104.2
015600*            IN MORE THAN ONE RECORD IN THE FILE (.06),           IX2104.2
015700*            NOT EQUAL TO ANY RECORD IN THE FILE (.07, LESS THAN  IX2104.2
015800*            THE FIRST RECORD IN THE FILE (.08) AND GREATER THAN  IX2104.2
015900*            THE LAST RECORD IN THE FILE (.09.                    IX2104.2
016000*                                                                 IX2104.2
016100*            NOTE -- IN SOME OF THE TESTS THE DATA ITEM SPECIFIED IX2104.2
016200*                    IS AN ENTRY SUBORDINATE TO A REDEFINES       IX2104.2
016300*                    ENTRY WHICH USES AS ITS OBJECT THE KEY       IX2104.2
016400*                   NAMED BY THE RECORD KEY CLAUSE.               IX2104.2
016500*                                                                 IX2104.2
016600*      FILE STATUS. (INX-TEST-006.01 THRU INX-TEST-006.09) - THESEIX2104.2
016700*            TESTS CHECK THE CONTENTS OF THE FILE STATUS RESULTINGIX2104.2
016800*            FROM THE START IN INX-TEST-005.01 THRU               IX2104.2
016900*            INX-TEST-005.09.                                     IX2104.2
017000*      MULTIPLE STARTS. (INX-TEST-007) -  THIS TEST EXECUTES      IX2104.2
017100*            SEVERAL START STATEMENTS FOLLOWED BY A READ STATEMENTIX2104.2
017200*            AND EXPECTS THE RECORD  DESIGNATED BY THE LAST       IX2104.2
017300*            START BE MADE AVAILABLE.                             IX2104.2
017400*                                                                 IX2104.2
017500******************************************************************IX2104.2
017600*                                                                 IX2104.2
017700 ENVIRONMENT DIVISION.                                            IX2104.2
017800 CONFIGURATION SECTION.                                           IX2104.2
017900 SOURCE-COMPUTER.                                                 IX2104.2
018000     Card0130.                                                    IX2104.2
018100 OBJECT-COMPUTER.                                                 IX2104.2
018200     Card0131                                                     IX2104.2
018300          PROGRAM COLLATING SEQUENCE IS FOR-INX-START-TEST.       IX2104.2
018400 SPECIAL-NAMES.                                                   IX2104.2
018500     ALPHABET                                                     IX2104.2
018600     FOR-INX-START-TEST IS "WVUTSRJIHGFEDCB".                     IX2104.2
018700 INPUT-OUTPUT SECTION.                                            IX2104.2
018800 FILE-CONTROL.                                                    IX2104.2
018900     SELECT RAW-DATA   ASSIGN TO                                  IX2104.2
019000     "C0098"                                                      IX2104.2
019100            ORGANIZATION IS INDEXED                               IX2104.2
019200            ACCESS MODE IS RANDOM                                 IX2104.2
019300            RECORD KEY IS RAW-DATA-KEY.                           IX2104.2
019400     SELECT PRINT-FILE ASSIGN TO                                  IX2104.2
019500     "C0085" .                                                    IX2104.2
019600     SELECT  IX-FS1                                               IX2104.2
019700     ASSIGN TO                                                    IX2104.2
019800     "C0036"                                                      IX2104.2
019900     "C0068"                                                      IX2104.2
020000        ACCESS MODE IS SEQUENTIAL                                 IX2104.2
020100        ORGANIZATION IS INDEXED                                   IX2104.2
020200        RECORD KEY IS IX-FS1-KEY                                  IX2104.2
020300        ALTERNATE RECORD KEY IS IX-FS1-ALTKEY1                    IX2104.2
020400        ALTERNATE RECORD KEY IS IX-FS1-ALTKEY2 WITH DUPLICATES    IX2104.2
020500        FILE STATUS IS FS1-STATUS.                                IX2104.2
020600 DATA DIVISION.                                                   IX2104.2
020700 FILE SECTION.                                                    IX2104.2
020800                                                                  IX2104.2
020900 FD  RAW-DATA.                                                    IX2104.2
021000                                                                  IX2104.2
021100 01  RAW-DATA-SATZ.                                               IX2104.2
021200     05  RAW-DATA-KEY        PIC X(6).                            IX2104.2
021300     05  C-DATE              PIC 9(6).                            IX2104.2
021400     05  C-TIME              PIC 9(8).                            IX2104.2
021500     05  C-NO-OF-TESTS       PIC 99.                              IX2104.2
021600     05  C-OK                PIC 999.                             IX2104.2
021700     05  C-ALL               PIC 999.                             IX2104.2
021800     05  C-FAIL              PIC 999.                             IX2104.2
021900     05  C-DELETED           PIC 999.                             IX2104.2
022000     05  C-INSPECT           PIC 999.                             IX2104.2
022100     05  C-NOTE              PIC X(13).                           IX2104.2
022200     05  C-INDENT            PIC X.                               IX2104.2
022300     05  C-ABORT             PIC X(8).                            IX2104.2
022400 FD  PRINT-FILE.                                                  IX2104.2
022500 01  PRINT-REC PICTURE X(120).                                    IX2104.2
022600 01  DUMMY-RECORD PICTURE X(120).                                 IX2104.2
022700 FD  IX-FS1                                                       IX2104.2
022800     LABEL RECORDS ARE STANDARD                                   IX2104.2
022900     DATA RECORD IS IX-FS1R1-F-G-240                              IX2104.2
023000     RECORD CONTAINS 240 CHARACTERS.                              IX2104.2
023100 01  IX-FS1R1-F-G-240.                                            IX2104.2
023200     05 IX-FS1-REC-120           PICTURE X(120).                  IX2104.2
023300     05 IX-FS1-REC-121-240.                                       IX2104.2
023400        10 FILLER                PICTURE X(8).                    IX2104.2
023500        10 IX-REC-KEY-AREA.                                       IX2104.2
023600           15 IX-FS1-KEY.                                         IX2104.2
023700              20 IX-FS1-KEY-1-10.                                 IX2104.2
023800                 25 IX-FS1-KEY-1-5      PICTURE X(5).             IX2104.2
023900                 25 IX-FS1-KEY-6-10     PICTURE X(5).             IX2104.2
024000               20 IX-FS1-KEY-11-13      PICTURE X(3).             IX2104.2
024100           15 IX-REDF-RECKEY REDEFINES IX-FS1-KEY.                IX2104.2
024200              20 R-RECKEY-1-7    PICTURE X(7).                    IX2104.2
024300              20 R-RECKEY-8-13   PICTURE X(6).                    IX2104.2
024400           15 FILLER             PICTURE X(16).                   IX2104.2
024500        10 FILLER                PICTURE X(9).                    IX2104.2
024600        10 IX-ALT-KEY1-AREA.                                      IX2104.2
024700           15 IX-FS1-ALTKEY1.                                     IX2104.2
024800              20 IX-FS1-ALTKEY1-1-10.                             IX2104.2
024900                 25 IX-FS1-ALTKEY1-1-5  PICTURE X(5).             IX2104.2
025000                 25 IX-FS1-ALTKEY1-6-10 PICTURE X(5).             IX2104.2
025100              20 IX-FS1-ALTKEY1-11-13   PICTURE X(3).             IX2104.2
025200              20 IX-FS1-ALTKEY1-14-20   PICTURE X(7).             IX2104.2
025300           15 IX-REDF-ALTKEY1 REDEFINES IX-FS1-ALTKEY1.           IX2104.2
025400              20 R-ALTKEY1-1-6   PICTURE X(6).                    IX2104.2
025500              20 R-ALTKEY1-7-10  PICTURE X(4).                    IX2104.2
025600              20 R-ALTKEY1-11-20 PICTURE X(10).                   IX2104.2
025700           15 FILLER             PICTURE X(9).                    IX2104.2
025800        10 FILLER                PICTURE X(9).                    IX2104.2
025900        10 IX-ALT-KEY2-AREA.                                      IX2104.2
026000           15 IX-FS1-ALTKEY2.                                     IX2104.2
026100              20 IX-FS1-ALTKEY2-1-10.                             IX2104.2
026200                 25 IX-FS1-ALTKEY2-1-5  PICTURE X(5).             IX2104.2
026300                 25 IX-FS1-ALTKEY2-6-10 PICTURE X(5).             IX2104.2
026400              20 IX-FS1-ALTKEY2-11-13   PICTURE X(3).             IX2104.2
026500              20 IX-FS1-ALTKEY2-14-20   PICTURE X(7).             IX2104.2
026600           15 FILLER             PICTURE X(9).                    IX2104.2
026700        10 FILLER                PICTURE X(7).                    IX2104.2
026800 WORKING-STORAGE SECTION.                                         IX2104.2
026900 01  WRK-FS1-RECKEY.                                              IX2104.2
027000     05 FS1-RECKEY-1-13.                                          IX2104.2
027100        10 FS1-RECKEY-1-10       PICTURE X(10).                   IX2104.2
027200        10 FS1-RECKEY-11-13      PICTURE 9(3).                    IX2104.2
027300     05 FILLER                   PICTURE X(16)  VALUE SPACE.      IX2104.2
027400 01  WRK-FS1-ALTKEY1.                                             IX2104.2
027500      05 FS1-ALTKEY1-1-20.                                        IX2104.2
027600       10  FS1-ALTKEY1-1-10.                                      IX2104.2
027700        15 FS1-ALTKEY1-1-5       PICTURE X(5).                    IX2104.2
027800        15 FS1-ALTKEY1-6-10      PICTURE X(5).                    IX2104.2
027900       10 FS1-ALTKEY1-11-13      PICTURE 9(3).                    IX2104.2
028000       10 FS1-ALTKEY1-14-20      PICTURE X(7).                    IX2104.2
028100     05 FILLER                   PICTURE X(9)  VALUE SPACE.       IX2104.2
028200 01  WRK-FS1-ALTKEY2.                                             IX2104.2
028300     05 FS1-ALTKEY2-1-20.                                         IX2104.2
028400        10 FS1-ALTKEY2-1-10.                                      IX2104.2
028500           15 FS1-ALTKEY2-1-5    PICTURE X(5).                    IX2104.2
028600           15 FS1-ALTKEY2-6-10   PICTURE X(5).                    IX2104.2
028700        10 FS1-ALTKEY2-11-13     PICTURE 9(3).                    IX2104.2
028800        10 FS1-ALTKEY2-14-20     PICTURE X(7).                    IX2104.2
028900     05 FILLER                   PICTURE X(9) VALUE SPACE.        IX2104.2
029000 01  RECNO                       PICTURE 9(5)  VALUE ZERO.        IX2104.2
029100 01  FS1-STATUS                  PICTURE XX   VALUE SPACE.        IX2104.2
029200 01  EXCUT-COUNTER-06V00         PICTURE 9(6) VALUE ZERO.         IX2104.2
029300 01  KEYSUB                      PICTURE 9(3) COMPUTATIONAL.      IX2104.2
029400 01  INVKEY-COUNTER              PICTURE 9(3) COMPUTATIONAL.      IX2104.2
029500 01  RECORDS-WRITTEN             PICTURE 9(3).                    IX2104.2
029600 01  RECKEY-NUM                  PICTURE 9(3).                    IX2104.2
029700 01  ALTKEY1-NUM                 PICTURE 9(3).                    IX2104.2
029800 01  ALTKEY2-NUM                 PICTURE 9(3).                    IX2104.2
029900 01  RECORD-KEY-CONTENT.                                          IX2104.2
030000     05 FILLER PIC X(53) VALUE                                    IX2104.2
030100          "BBBBBBBBBC002EEEEEEEEEF002ALTKEY1WWWWWWWWWV398ALTKEY2".IX2104.2
030200     05 FILLER PIC X(53) VALUE                                    IX2104.2
030300          "BBBBBBBBCC004EEEEEEEEFF004ALTKEY1WWWWWWWWVV396ALTKEY2".IX2104.2
030400     05 FILLER PIC X(53) VALUE                                    IX2104.2
030500          "BBBBBBBCCC006EEEEEEEFFF006ALTKEY1WWWWWWWVVV394ALTKEY2".IX2104.2
030600     05 FILLER PIC X(53) VALUE                                    IX2104.2
030700          "BBBBBBCCCC008EEEEEEFFFF008ALTKEY1WWWWWWVVVV392ALTKEY2".IX2104.2
030800     05 FILLER PIC X(53) VALUE                                    IX2104.2
030900          "BBBBBCCCCC010EEEEEFFFFF010ALTKEY1WWWWWVVVVV390ALTKEY2".IX2104.2
031000     05 FILLER PIC X(53) VALUE                                    IX2104.2
031100          "BBBBCCCCCC012EEEEFFFFFF012ALTKEY1WWWWVVVVVV388ALTKEY2".IX2104.2
031200     05 FILLER PIC X(53) VALUE                                    IX2104.2
031300          "BBBCCCCCCC014EEEFFFFFFF014ALTKEY1WWWVVVVVVV386ALTKEY2".IX2104.2
031400     05 FILLER PIC X(53) VALUE                                    IX2104.2
031500          "BBCCCCCCCC016EEFFFFFFFF016ALTKEY1WWVVVVVVVV384ALTKEY2".IX2104.2
031600     05 FILLER PIC X(53) VALUE                                    IX2104.2
031700          "BCCCCCCCCC018EFFFFFFFFF018ALTKEY1WVVVVVVVVV382ALTKEY2".IX2104.2
031800     05 FILLER PIC X(53) VALUE                                    IX2104.2
031900          "CCCCCCCCCC020FFFFFFFFFF020ALTKEY1VVVVVVVVVV380ALTKEY2".IX2104.2
032000     05 FILLER PIC X(53) VALUE                                    IX2104.2
032100          "CCCCCCCCCD022FFFFFFFFFG022ALTKEY1VVVVVVVVVV380ALTKEY2".IX2104.2
032200     05 FILLER PIC X(53) VALUE                                    IX2104.2
032300          "CCCCCCCCDD024FFFFFFFFGG024ALTKEY1VVVVVVVVUU376ALTKEY2".IX2104.2
032400     05 FILLER PIC X(53) VALUE                                    IX2104.2
032500          "CCCCCCCDDD026FFFFFFFGGG026ALTKEY1VVVVVVVUUU374ALTKEY2".IX2104.2
032600     05 FILLER PIC X(53) VALUE                                    IX2104.2
032700          "CCCCCCDDDD028FFFFFFGGGG028ALTKEY1VVVVVVUUUU372ALTKEY2".IX2104.2
032800     05 FILLER PIC X(53) VALUE                                    IX2104.2
032900          "CCCCCDDDDD030FFFFFGGGGG030ALTKEY1VVVVVUUUUU370ALTKEY2".IX2104.2
033000     05 FILLER PIC X(53) VALUE                                    IX2104.2
033100          "CCCCDDDDDD032FFFFGGGGGG032ALTKEY1VVVVUUUUUU368ALTKEY2".IX2104.2
033200     05 FILLER PIC X(53) VALUE                                    IX2104.2
033300          "CCCDDDDDDD034FFFGGGGGGG034ALTKEY1VVVUUUUUUU366ALTKEY2".IX2104.2
033400     05 FILLER PIC X(53) VALUE                                    IX2104.2
033500          "CCDDDDDDDD036FFGGGGGGGG036ALTKEY1VVUUUUUUUU364ALTKEY2".IX2104.2
033600     05 FILLER PIC X(53) VALUE                                    IX2104.2
033700          "CDDDDDDDDD038FGGGGGGGGG038ALTKEY1VUUUUUUUUU362ALTKEY2".IX2104.2
033800     05 FILLER PIC X(53) VALUE                                    IX2104.2
033900          "DDDDDDDDDD040GGGGGGGGGG040ALTKEY1UUUUUUUUUU360ALTKEY2".IX2104.2
034000     05 FILLER PIC X(53) VALUE                                    IX2104.2
034100          "DDDDDDDDDE042GGGGGGGGGH042ALTKEY1UUUUUUUUUU360ALTKEY2".IX2104.2
034200     05 FILLER PIC X(53) VALUE                                    IX2104.2
034300          "DDDDDDDDEE044GGGGGGGGHH044ALTKEY1UUUUUUUUTT356ALTKEY2".IX2104.2
034400     05 FILLER PIC X(53) VALUE                                    IX2104.2
034500          "DDDDDDDEEE046GGGGGGGHHH046ALTKEY1UUUUUUUTTT354ALTKEY2".IX2104.2
034600     05 FILLER PIC X(53) VALUE                                    IX2104.2
034700          "DDDDDDEEEE048GGGGGGHHHH048ALTKEY1UUUUUUTTTT352ALTKEY2".IX2104.2
034800     05 FILLER PIC X(53) VALUE                                    IX2104.2
034900          "DDDDDEEEEE050GGGGGHHHHH050ALTKEY1UUUUUTTTTT350ALTKEY2".IX2104.2
035000     05 FILLER PIC X(53) VALUE                                    IX2104.2
035100          "DDDDEEEEEE052GGGGHHHHHH052ALTKEY1UUUUTTTTTT348ALTKEY2".IX2104.2
035200     05 FILLER PIC X(53) VALUE                                    IX2104.2
035300          "DDDEEEEEEE054GGGHHHHHHH054ALTKEY1UUUTTTTTTT346ALTKEY2".IX2104.2
035400     05 FILLER PIC X(53) VALUE                                    IX2104.2
035500          "DDEEEEEEEE056GGHHHHHHHH056ALTKEY1UUTTTTTTTT344ALTKEY2".IX2104.2
035600     05 FILLER PIC X(53) VALUE                                    IX2104.2
035700          "DEEEEEEEEE058GHHHHHHHHH058ALTKEY1UTTTTTTTTT342ALTKEY2".IX2104.2
035800     05 FILLER PIC X(53) VALUE                                    IX2104.2
035900          "EEEEEEEEEE060HHHHHHHHHH060ALTKEY1TTTTTTTTTT340ALTKEY2".IX2104.2
036000     05 FILLER PIC X(53) VALUE                                    IX2104.2
036100          "EEEEEEEEEF062HHHHHHHHHI062ALTKEY1TTTTTTTTTT340ALTKEY2".IX2104.2
036200     05 FILLER PIC X(53) VALUE                                    IX2104.2
036300          "EEEEEEEEFF064HHHHHHHHII064ALTKEY1TTTTTTTTSS336ALTKEY2".IX2104.2
036400     05 FILLER PIC X(53) VALUE                                    IX2104.2
036500          "EEEEEEEFFF066HHHHHHHIII066ALTKEY1TTTTTTTSSS334ALTKEY2".IX2104.2
036600     05 FILLER PIC X(53) VALUE                                    IX2104.2
036700          "EEEEEEFFFF068HHHHHHIIII068ALTKEY1TTTTTTSSSS332ALTKEY2".IX2104.2
036800     05 FILLER PIC X(53) VALUE                                    IX2104.2
036900          "EEEEEFFFFF070HHHHHIIIII070ALTKEY1TTTTTSSSSS330ALTKEY2".IX2104.2
037000     05 FILLER PIC X(53) VALUE                                    IX2104.2
037100          "EEEEFFFFFF072HHHHIIIIII072ALTKEY1TTTTSSSSSS328ALTKEY2".IX2104.2
037200     05 FILLER PIC X(53) VALUE                                    IX2104.2
037300          "EEEFFFFFFF074HHHIIIIIII074ALTKEY1TTTSSSSSSS326ALTKEY2".IX2104.2
037400     05 FILLER PIC X(53) VALUE                                    IX2104.2
037500          "EEFFFFFFFF076HHIIIIIIII076ALTKEY1TTSSSSSSSS324ALTKEY2".IX2104.2
037600     05 FILLER PIC X(53) VALUE                                    IX2104.2
037700          "EFFFFFFFFF078HIIIIIIIII078ALTKEY1TSSSSSSSSS322ALTKEY2".IX2104.2
037800     05 FILLER PIC X(53) VALUE                                    IX2104.2
037900          "FFFFFFFFFF080IIIIIIIIII080ALTKEY1SSSSSSSSSS320ALTKEY2".IX2104.2
038000     05 FILLER PIC X(53) VALUE                                    IX2104.2
038100          "FFFFFFFFFG082IIIIIIIIIJ082ALTKEY1SSSSSSSSSS320ALTKEY2".IX2104.2
038200     05 FILLER PIC X(53) VALUE                                    IX2104.2
038300          "FFFFFFFFGG084IIIIIIIIJJ084ALTKEY1SSSSSSSSRR316ALTKEY2".IX2104.2
038400     05 FILLER PIC X(53) VALUE                                    IX2104.2
038500          "FFFFFFFGGG086IIIIIIIJJJ086ALTKEY1SSSSSSSRRR314ALTKEY2".IX2104.2
038600     05 FILLER PIC X(53) VALUE                                    IX2104.2
038700          "FFFFFFGGGG088IIIIIIJJJJ088ALTKEY1SSSSSSRRRR312ALTKEY2".IX2104.2
038800     05 FILLER PIC X(53) VALUE                                    IX2104.2
038900          "FFFFFGGGGG090IIIIIJJJJJ090ALTKEY1SSSSSRRRRR310ALTKEY2".IX2104.2
039000     05 FILLER PIC X(53) VALUE                                    IX2104.2
039100          "FFFFGGGGGG092IIIIJJJJJJ092ALTKEY1SSSSRRRRRR308ALTKEY2".IX2104.2
039200     05 FILLER PIC X(53) VALUE                                    IX2104.2
039300          "FFFGGGGGGG094IIIJJJJJJJ094ALTKEY1SSSRRRRRRR306ALTKEY2".IX2104.2
039400     05 FILLER PIC X(53) VALUE                                    IX2104.2
039500          "FFGGGGGGGG096IIJJJJJJJJ096ALTKEY1SSRRRRRRRR304ALTKEY2".IX2104.2
039600     05 FILLER PIC X(53) VALUE                                    IX2104.2
039700          "FGGGGGGGGG098IJJJJJJJJJ098ALTKEY1SRRRRRRRRR302ALTKEY2".IX2104.2
039800     05 FILLER PIC X(53) VALUE                                    IX2104.2
039900          "GGGGGGGGGG100JJJJJJJJJJ100ALTKEY1RRRRRRRRRR300ALTKEY2".IX2104.2
040000     05 FILLER PIC X(53) VALUE                                    IX2104.2
040100          "RRRRSSSSSS352VVVVWWWWWW352ALTKEY1GGGGFFFFFF048ALTKEY2".IX2104.2
040200     05 FILLER PIC X(53) VALUE                                    IX2104.2
040300          "RRRSSSSSSS354VVVWWWWWWW354ALTKEY1GGGFFFFFFF046ALTKEY2".IX2104.2
040400     05 FILLER PIC X(53) VALUE                                    IX2104.2
040500          "RRSSSSSSSS356VVWWWWWWWW356ALTKEY1GGFFFFFFFF044ALTKEY2".IX2104.2
040600     05 FILLER PIC X(53) VALUE                                    IX2104.2
040700          "RSSSSSSSSS358VWWWWWWWWW358ALTKEY1GFFFFFFFFF042ALTKEY2".IX2104.2
040800     05 FILLER PIC X(53) VALUE                                    IX2104.2
040900          "SSSSSSSSSS360WWWWWWWWWW360ALTKEY1FFFFFFFFFF040ALTKEY2".IX2104.2
041000     05 FILLER PIC X(53) VALUE                                    IX2104.2
041100          "SSSSSSSSST362WWWWWWWWWX362ALTKEY1FFFFFFFFFF040ALTKEY2".IX2104.2
041200     05 FILLER PIC X(53) VALUE                                    IX2104.2
041300          "SSSSSSSSTT364WWWWWWWWXX364ALTKEY1FFFFFFFFEE036ALTKEY2".IX2104.2
041400     05 FILLER PIC X(53) VALUE                                    IX2104.2
041500          "SSSSSSSTTT366WWWWWWWXXX366ALTKEY1FFFFFFFEEE034ALTKEY2".IX2104.2
041600     05 FILLER PIC X(53) VALUE                                    IX2104.2
041700          "SSSSSSTTTT368WWWWWWXXXX368ALTKEY1FFFFFFEEEE032ALTKEY2".IX2104.2
041800     05 FILLER PIC X(53) VALUE                                    IX2104.2
041900          "SSSSSTTTTT370WWWWWCard0880ALTKEY1FFFFFEEEEE030ALTKEY2".IX2104.2
042000     05 FILLER PIC X(53) VALUE                                    IX2104.2
042100          "SSSSTTTTTT372WWWWXXXXXX372ALTKEY1FFFFEEEEEE028ALTKEY2".IX2104.2
042200     05 FILLER PIC X(53) VALUE                                    IX2104.2
042300          "SSSTTTTTTT374WWWXXXXXXX374ALTKEY1FFFEEEEEEE026ALTKEY2".IX2104.2
042400     05 FILLER PIC X(53) VALUE                                    IX2104.2
042500          "SSTTTTTTTT376WWXXXXXXXX376ALTKEY1FFEEEEEEEE024ALTKEY2".IX2104.2
042600     05 FILLER PIC X(53) VALUE                                    IX2104.2
042700          "STTTTTTTTT378WXXXXXXXXX378ALTKEY1FEEEEEEEEE022ALTKEY2".IX2104.2
042800     05 FILLER PIC X(53) VALUE                                    IX2104.2
042900          "TTTTTTTTTT380XXXXXXXXXX380ALTKEY1EEEEEEEEEE020ALTKEY2".IX2104.2
043000     05 FILLER PIC X(53) VALUE                                    IX2104.2
043100          "TTTTTTTTTU382XXXXXXXXXY382ALTKEY1EEEEEEEEEE020ALTKEY2".IX2104.2
043200     05 FILLER PIC X(53) VALUE                                    IX2104.2
043300          "TTTTTTTTUU384XXXXXXXXYY384ALTKEY1EEEEEEEEDD016ALTKEY2".IX2104.2
043400     05 FILLER PIC X(53) VALUE                                    IX2104.2
043500          "TTTTTTTUUU386XXXXXXXYYY386ALTKEY1EEEEEEEDDD014ALTKEY2".IX2104.2
043600     05 FILLER PIC X(53) VALUE                                    IX2104.2
043700          "TTTTTTUUUU388XXXXXXYYYY388ALTKEY1EEEEEEDDDD012ALTKEY2".IX2104.2
043800     05 FILLER PIC X(53) VALUE                                    IX2104.2
043900          "TTTTTUUUUU390XXXXXYYYYY390ALTKEY1EEEEEDDDDD010ALTKEY2".IX2104.2
044000     05 FILLER PIC X(53) VALUE                                    IX2104.2
044100          "TTTTUUUUUU392XXXXYYYYYY392ALTKEY1EEEEDDDDDD008ALTKEY2".IX2104.2
044200     05 FILLER PIC X(53) VALUE                                    IX2104.2
044300          "TTTUUUUUUU394XXXYYYYYYY394ALTKEY1EEEDDDDDDD006ALTKEY2".IX2104.2
044400     05 FILLER PIC X(53) VALUE                                    IX2104.2
044500          "TTUUUUUUUU396XXYYYYYYYY396ALTKEY1EEDDDDDDDD004ALTKEY2".IX2104.2
044600     05 FILLER PIC X(53) VALUE                                    IX2104.2
044700          "TUUUUUUUUU398XYYYYYYYYY398ALTKEY1EDDDDDDDDD002ALTKEY2".IX2104.2
044800     05 FILLER PIC X(53) VALUE                                    IX2104.2
044900          "UUUUUUUUUU400YYYYYYYYYY400ALTKEY1DDDDDDDDDD000ALTKEY2".IX2104.2
045000 01  RECORD-KEY-DATA   REDEFINES  RECORD-KEY-CONTENT.             IX2104.2
045100     05 KEY-VALUES                  OCCURS 75  TIMES.             IX2104.2
045200       10 RECKEY-VALUE           PICTURE X(13).                   IX2104.2
045300       10 ALTKEY1-VALUE          PICTURE X(20).                   IX2104.2
045400       10 ALTKEY2-VALUE          PICTURE X(20).                   IX2104.2
045500 01  INIT-FLAG                   PICTURE 9.                       IX2104.2
045600 01  HOLD-FILESTATUS-RECORD.                                      IX2104.2
045700     05 FILESTATUS               PICTURE XX  OCCURS 10 TIMES.     IX2104.2
045800 01  FILE-RECORD-INFORMATION-REC.                                 IX2104.2
045900     03 FILE-RECORD-INFO-SKELETON.                                IX2104.2
046000        05 FILLER                 PICTURE X(48)       VALUE       IX2104.2
046100             "FILE=      ,RECORD=      /0,RECNO=000000,UPDT=00".  IX2104.2
046200        05 FILLER                 PICTURE X(46)       VALUE       IX2104.2
046300             ",ODO=0000,PGM=     ,LRECL=000000,BLKSIZ  =0000".    IX2104.2
046400        05 FILLER                 PICTURE X(26)       VALUE       IX2104.2
046500             ",LFIL=000000,ORG=  ,LBLR= ".                        IX2104.2
046600        05 FILLER                 PICTURE X(37)       VALUE       IX2104.2
046700             ",RECKEY=                             ".             IX2104.2
046800        05 FILLER                 PICTURE X(38)       VALUE       IX2104.2
046900             ",ALTKEY1=                             ".            IX2104.2
047000        05 FILLER                 PICTURE X(38)       VALUE       IX2104.2
047100             ",ALTKEY2=                             ".            IX2104.2
047200        05 FILLER                 PICTURE X(7)        VALUE SPACE.IX2104.2
047300     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              IX2104.2
047400        05 FILE-RECORD-INFO-P1-120.                               IX2104.2
047500           07 FILLER              PIC X(5).                       IX2104.2
047600           07 XFILE-NAME           PIC X(6).                      IX2104.2
047700           07 FILLER              PIC X(8).                       IX2104.2
047800           07 XRECORD-NAME         PIC X(6).                      IX2104.2
047900           07 FILLER              PIC X(1).                       IX2104.2
048000           07 REELUNIT-NUMBER     PIC 9(1).                       IX2104.2
048100           07 FILLER              PIC X(7).                       IX2104.2
048200           07 XRECORD-NUMBER       PIC 9(6).                      IX2104.2
048300           07 FILLER              PIC X(6).                       IX2104.2
048400           07 UPDATE-NUMBER       PIC 9(2).                       IX2104.2
048500           07 FILLER              PIC X(5).                       IX2104.2
048600           07 ODO-NUMBER          PIC 9(4).                       IX2104.2
048700           07 FILLER              PIC X(5).                       IX2104.2
048800           07 XPROGRAM-NAME        PIC X(5).                      IX2104.2
048900           07 FILLER              PIC X(7).                       IX2104.2
049000           07 XRECORD-LENGTH       PIC 9(6).                      IX2104.2
049100           07 FILLER              PIC X(7).                       IX2104.2
049200           07 CHARS-OR-RECORDS    PIC X(2).                       IX2104.2
049300           07 FILLER              PIC X(1).                       IX2104.2
049400           07 XBLOCK-SIZE          PIC 9(4).                      IX2104.2
049500           07 FILLER              PIC X(6).                       IX2104.2
049600           07 RECORDS-IN-FILE     PIC 9(6).                       IX2104.2
049700           07 FILLER              PIC X(5).                       IX2104.2
049800           07 XFILE-ORGANIZATION   PIC X(2).                      IX2104.2
049900           07 FILLER              PIC X(6).                       IX2104.2
050000           07 XLABEL-TYPE          PIC X(1).                      IX2104.2
050100        05 FILE-RECORD-INFO-P121-240.                             IX2104.2
050200           07 FILLER              PIC X(8).                       IX2104.2
050300           07 XRECORD-KEY          PIC X(29).                     IX2104.2
050400           07 FILLER              PIC X(9).                       IX2104.2
050500           07 ALTERNATE-KEY1      PIC X(29).                      IX2104.2
050600           07 FILLER              PIC X(9).                       IX2104.2
050700           07 ALTERNATE-KEY2      PIC X(29).                      IX2104.2
050800           07 FILLER              PIC X(7).                       IX2104.2
050900 01  TEST-RESULTS.                                                IX2104.2
051000     02 FILLER                   PIC X      VALUE SPACE.          IX2104.2
051100     02 FEATURE                  PIC X(20)  VALUE SPACE.          IX2104.2
051200     02 FILLER                   PIC X      VALUE SPACE.          IX2104.2
051300     02 P-OR-F                   PIC X(5)   VALUE SPACE.          IX2104.2
051400     02 FILLER                   PIC X      VALUE SPACE.          IX2104.2
051500     02  PAR-NAME.                                                IX2104.2
051600       03 FILLER                 PIC X(19)  VALUE SPACE.          IX2104.2
051700       03  PARDOT-X              PIC X      VALUE SPACE.          IX2104.2
051800       03 DOTVALUE               PIC 99     VALUE ZERO.           IX2104.2
051900     02 FILLER                   PIC X(8)   VALUE SPACE.          IX2104.2
052000     02 RE-MARK                  PIC X(61).                       IX2104.2
052100 01  TEST-COMPUTED.                                               IX2104.2
052200     02 FILLER                   PIC X(30)  VALUE SPACE.          IX2104.2
052300     02 FILLER                   PIC X(17)  VALUE                 IX2104.2
052400            "       COMPUTED=".                                   IX2104.2
052500     02 COMPUTED-X.                                               IX2104.2
052600     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          IX2104.2
052700     03 COMPUTED-N               REDEFINES COMPUTED-A             IX2104.2
052800                                 PIC -9(9).9(9).                  IX2104.2
052900     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         IX2104.2
053000     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     IX2104.2
053100     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     IX2104.2
053200     03       CM-18V0 REDEFINES COMPUTED-A.                       IX2104.2
053300         04 COMPUTED-18V0                    PIC -9(18).          IX2104.2
053400         04 FILLER                           PIC X.               IX2104.2
053500     03 FILLER PIC X(50) VALUE SPACE.                             IX2104.2
053600 01  TEST-CORRECT.                                                IX2104.2
053700     02 FILLER PIC X(30) VALUE SPACE.                             IX2104.2
053800     02 FILLER PIC X(17) VALUE "       CORRECT =".                IX2104.2
053900     02 CORRECT-X.                                                IX2104.2
054000     03 CORRECT-A                  PIC X(20) VALUE SPACE.         IX2104.2
054100     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      IX2104.2
054200     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         IX2104.2
054300     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     IX2104.2
054400     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     IX2104.2
054500     03      CR-18V0 REDEFINES CORRECT-A.                         IX2104.2
054600         04 CORRECT-18V0                     PIC -9(18).          IX2104.2
054700         04 FILLER                           PIC X.               IX2104.2
054800     03 FILLER PIC X(2) VALUE SPACE.                              IX2104.2
054900     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     IX2104.2
055000 01  CCVS-C-1.                                                    IX2104.2
055100     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE              PAIX2104.2
055200-    "SS  PARAGRAPH-NAME                                          IX2104.2
055300-    "       REMARKS".                                            IX2104.2
055400     02 FILLER                     PIC X(20)    VALUE SPACE.      IX2104.2
055500 01  CCVS-C-2.                                                    IX2104.2
055600     02 FILLER                     PIC X        VALUE SPACE.      IX2104.2
055700     02 FILLER                     PIC X(6)     VALUE "TESTED".   IX2104.2
055800     02 FILLER                     PIC X(15)    VALUE SPACE.      IX2104.2
055900     02 FILLER                     PIC X(4)     VALUE "FAIL".     IX2104.2
056000     02 FILLER                     PIC X(94)    VALUE SPACE.      IX2104.2
056100 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       IX2104.2
056200 01  REC-CT                        PIC 99       VALUE ZERO.       IX2104.2
056300 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       IX2104.2
056400 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       IX2104.2
056500 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       IX2104.2
056600 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       IX2104.2
056700 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       IX2104.2
056800 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       IX2104.2
056900 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      IX2104.2
057000 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       IX2104.2
057100 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     IX2104.2
057200 01  CCVS-H-1.                                                    IX2104.2
057300     02  FILLER                    PIC X(39)    VALUE SPACES.     IX2104.2
057400     02  FILLER                    PIC X(42)    VALUE             IX2104.2
057500     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 IX2104.2
057600     02  FILLER                    PIC X(39)    VALUE SPACES.     IX2104.2
057700 01  CCVS-H-2A.                                                   IX2104.2
057800   02  FILLER                        PIC X(40)  VALUE SPACE.      IX2104.2
057900   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  IX2104.2
058000   02  FILLER                        PIC XXXX   VALUE             IX2104.2
058100     "4.2 ".                                                      IX2104.2
058200   02  FILLER                        PIC X(28)  VALUE             IX2104.2
058300            " COPY - NOT FOR DISTRIBUTION".                       IX2104.2
058400   02  FILLER                        PIC X(41)  VALUE SPACE.      IX2104.2
058500                                                                  IX2104.2
058600 01  CCVS-H-2B.                                                   IX2104.2
058700   02  FILLER                        PIC X(15)  VALUE             IX2104.2
058800            "TEST RESULT OF ".                                    IX2104.2
058900   02  TEST-ID                       PIC X(9).                    IX2104.2
059000   02  FILLER                        PIC X(4)   VALUE             IX2104.2
059100            " IN ".                                               IX2104.2
059200   02  FILLER                        PIC X(12)  VALUE             IX2104.2
059300     " HIGH       ".                                              IX2104.2
059400   02  FILLER                        PIC X(22)  VALUE             IX2104.2
059500            " LEVEL VALIDATION FOR ".                             IX2104.2
059600   02  FILLER                        PIC X(58)  VALUE             IX2104.2
059700     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX2104.2
059800 01  CCVS-H-3.                                                    IX2104.2
059900     02  FILLER                      PIC X(34)  VALUE             IX2104.2
060000            " FOR OFFICIAL USE ONLY    ".                         IX2104.2
060100     02  FILLER                      PIC X(58)  VALUE             IX2104.2
060200     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IX2104.2
060300     02  FILLER                      PIC X(28)  VALUE             IX2104.2
060400            "  COPYRIGHT   1985 ".                                IX2104.2
060500 01  CCVS-E-1.                                                    IX2104.2
060600     02 FILLER                       PIC X(52)  VALUE SPACE.      IX2104.2
060700     02 FILLER  PIC X(14) VALUE IS "END OF TEST-  ".              IX2104.2
060800     02 ID-AGAIN                     PIC X(9).                    IX2104.2
060900     02 FILLER                       PIC X(45)  VALUE SPACES.     IX2104.2
061000 01  CCVS-E-2.                                                    IX2104.2
061100     02  FILLER                      PIC X(31)  VALUE SPACE.      IX2104.2
061200     02  FILLER                      PIC X(21)  VALUE SPACE.      IX2104.2
061300     02 CCVS-E-2-2.                                               IX2104.2
061400         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      IX2104.2
061500         03 FILLER                   PIC X      VALUE SPACE.      IX2104.2
061600         03 ENDER-DESC               PIC X(44)  VALUE             IX2104.2
061700            "ERRORS ENCOUNTERED".                                 IX2104.2
061800 01  CCVS-E-3.                                                    IX2104.2
061900     02  FILLER                      PIC X(22)  VALUE             IX2104.2
062000            " FOR OFFICIAL USE ONLY".                             IX2104.2
062100     02  FILLER                      PIC X(12)  VALUE SPACE.      IX2104.2
062200     02  FILLER                      PIC X(58)  VALUE             IX2104.2
062300     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX2104.2
062400     02  FILLER                      PIC X(13)  VALUE SPACE.      IX2104.2
062500     02 FILLER                       PIC X(15)  VALUE             IX2104.2
062600             " COPYRIGHT 1985".                                   IX2104.2
062700 01  CCVS-E-4.                                                    IX2104.2
062800     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      IX2104.2
062900     02 FILLER                       PIC X(4)   VALUE " OF ".     IX2104.2
063000     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      IX2104.2
063100     02 FILLER                       PIC X(40)  VALUE             IX2104.2
063200      "  TESTS WERE EXECUTED SUCCESSFULLY".                       IX2104.2
063300 01  XXINFO.                                                      IX2104.2
063400     02 FILLER                       PIC X(19)  VALUE             IX2104.2
063500            "*** INFORMATION ***".                                IX2104.2
063600     02 INFO-TEXT.                                                IX2104.2
063700       04 FILLER                     PIC X(8)   VALUE SPACE.      IX2104.2
063800       04 XXCOMPUTED                 PIC X(20).                   IX2104.2
063900       04 FILLER                     PIC X(5)   VALUE SPACE.      IX2104.2
064000       04 XXCORRECT                  PIC X(20).                   IX2104.2
064100     02 INF-ANSI-REFERENCE           PIC X(48).                   IX2104.2
064200 01  HYPHEN-LINE.                                                 IX2104.2
064300     02 FILLER  PIC IS X VALUE IS SPACE.                          IX2104.2
064400     02 FILLER  PIC IS X(65)    VALUE IS "************************IX2104.2
064500-    "*****************************************".                 IX2104.2
064600     02 FILLER  PIC IS X(54)    VALUE IS "************************IX2104.2
064700-    "******************************".                            IX2104.2
064800 01  CCVS-PGM-ID                     PIC X(9)   VALUE             IX2104.2
064900     "IX210A".                                                    IX2104.2
065000 PROCEDURE DIVISION.                                              IX2104.2
065100 CCVS1 SECTION.                                                   IX2104.2
065200 OPEN-FILES.                                                      IX2104.2
065300     OPEN I-O RAW-DATA.                                           IX2104.2
065400     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            IX2104.2
065500     READ RAW-DATA INVALID KEY GO TO END-E-1.                     IX2104.2
065600     MOVE "ABORTED " TO C-ABORT.                                  IX2104.2
065700     ADD 1 TO C-NO-OF-TESTS.                                      IX2104.2
065800     ACCEPT C-DATE  FROM DATE.                                    IX2104.2
065900     ACCEPT C-TIME  FROM TIME.                                    IX2104.2
066000     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1.             IX2104.2
066100 END-E-1.                                                         IX2104.2
066200     CLOSE RAW-DATA.                                              IX2104.2
066300     OPEN    OUTPUT PRINT-FILE.                                   IX2104.2
066400     MOVE  CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.  IX2104.2
066500     MOVE    SPACE TO TEST-RESULTS.                               IX2104.2
066600     PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.              IX2104.2
066700     MOVE    ZERO TO REC-SKL-SUB.                                 IX2104.2
066800     PERFORM CCVS-INIT-FILE 9 TIMES.                              IX2104.2
066900 CCVS-INIT-FILE.                                                  IX2104.2
067000     ADD     1 TO REC-SKL-SUB.                                    IX2104.2
067100     MOVE    FILE-RECORD-INFO-SKELETON                            IX2104.2
067200          TO FILE-RECORD-INFO (REC-SKL-SUB).                      IX2104.2
067300 CCVS-INIT-EXIT.                                                  IX2104.2
067400     GO TO CCVS1-EXIT.                                            IX2104.2
067500 CLOSE-FILES.                                                     IX2104.2
067600     OPEN I-O RAW-DATA.                                           IX2104.2
067700     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            IX2104.2
067800     READ RAW-DATA INVALID KEY GO TO END-E-2.                     IX2104.2
067900     MOVE "OK.     " TO C-ABORT.                                  IX2104.2
068000     MOVE PASS-COUNTER TO C-OK.                                   IX2104.2
068100     MOVE ERROR-HOLD   TO C-ALL.                                  IX2104.2
068200     MOVE ERROR-COUNTER TO C-FAIL.                                IX2104.2
068300     MOVE DELETE-COUNTER TO C-DELETED.                            IX2104.2
068400     MOVE INSPECT-COUNTER TO C-INSPECT.                           IX2104.2
068500     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2.             IX2104.2
068600 END-E-2.                                                         IX2104.2
068700     CLOSE RAW-DATA.                                              IX2104.2
068800     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   IX2104.2
068900 TERMINATE-CCVS.                                                  IX2104.2
069000     EXIT PROGRAM.                                                IX2104.2
069100 TERMINATE-CALL.                                                  IX2104.2
069200     STOP     RUN.                                                IX2104.2
069300 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         IX2104.2
069400 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           IX2104.2
069500 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          IX2104.2
069600 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      IX2104.2
069700     MOVE "****TEST DELETED****" TO RE-MARK.                      IX2104.2
069800 PRINT-DETAIL.                                                    IX2104.2
069900     IF REC-CT NOT EQUAL TO ZERO                                  IX2104.2
070000             MOVE "." TO PARDOT-X                                 IX2104.2
070100             MOVE REC-CT TO DOTVALUE.                             IX2104.2
070200     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      IX2104.2
070300     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               IX2104.2
070400        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 IX2104.2
070500          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 IX2104.2
070600     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              IX2104.2
070700     MOVE SPACE TO CORRECT-X.                                     IX2104.2
070800     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         IX2104.2
070900     MOVE     SPACE TO RE-MARK.                                   IX2104.2
071000 HEAD-ROUTINE.                                                    IX2104.2
071100     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IX2104.2
071200     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IX2104.2
071300     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IX2104.2
071400     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IX2104.2
071500 COLUMN-NAMES-ROUTINE.                                            IX2104.2
071600     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX2104.2
071700     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX2104.2
071800     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        IX2104.2
071900 END-ROUTINE.                                                     IX2104.2
072000     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.IX2104.2
072100 END-RTN-EXIT.                                                    IX2104.2
072200     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX2104.2
072300 END-ROUTINE-1.                                                   IX2104.2
072400      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      IX2104.2
072500      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               IX2104.2
072600      ADD PASS-COUNTER TO ERROR-HOLD.                             IX2104.2
072700*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   IX2104.2
072800      MOVE PASS-COUNTER TO CCVS-E-4-1.                            IX2104.2
072900      MOVE ERROR-HOLD TO CCVS-E-4-2.                              IX2104.2
073000      MOVE CCVS-E-4 TO CCVS-E-2-2.                                IX2104.2
073100      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           IX2104.2
073200  END-ROUTINE-12.                                                 IX2104.2
073300      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        IX2104.2
073400     IF       ERROR-COUNTER IS EQUAL TO ZERO                      IX2104.2
073500         MOVE "NO " TO ERROR-TOTAL                                IX2104.2
073600         ELSE                                                     IX2104.2
073700         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       IX2104.2
073800     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           IX2104.2
073900     PERFORM WRITE-LINE.                                          IX2104.2
074000 END-ROUTINE-13.                                                  IX2104.2
074100     IF DELETE-COUNTER IS EQUAL TO ZERO                           IX2104.2
074200         MOVE "NO " TO ERROR-TOTAL  ELSE                          IX2104.2
074300         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      IX2104.2
074400     MOVE "TEST(S) DELETED     " TO ENDER-DESC.                   IX2104.2
074500     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX2104.2
074600      IF   INSPECT-COUNTER EQUAL TO ZERO                          IX2104.2
074700          MOVE "NO " TO ERROR-TOTAL                               IX2104.2
074800      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   IX2104.2
074900      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            IX2104.2
075000      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          IX2104.2
075100     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX2104.2
075200 WRITE-LINE.                                                      IX2104.2
075300     ADD 1 TO RECORD-COUNT.                                       IX2104.2
075400     IF RECORD-COUNT GREATER 42                                   IX2104.2
075500         MOVE DUMMY-RECORD TO DUMMY-HOLD                          IX2104.2
075600         MOVE SPACE TO DUMMY-RECORD                               IX2104.2
075700         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  IX2104.2
075800         MOVE CCVS-H-1  TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    IX2104.2
075900         MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    IX2104.2
076000         MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    IX2104.2
076100         MOVE CCVS-H-3  TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    IX2104.2
076200         MOVE CCVS-C-1  TO DUMMY-RECORD PERFORM WRT-LN            IX2104.2
076300         MOVE CCVS-C-2  TO DUMMY-RECORD PERFORM WRT-LN            IX2104.2
076400         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          IX2104.2
076500         MOVE DUMMY-HOLD TO DUMMY-RECORD                          IX2104.2
076600         MOVE ZERO TO RECORD-COUNT.                               IX2104.2
076700     PERFORM WRT-LN.                                              IX2104.2
076800 WRT-LN.                                                          IX2104.2
076900     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               IX2104.2
077000     MOVE SPACE TO DUMMY-RECORD.                                  IX2104.2
077100 BLANK-LINE-PRINT.                                                IX2104.2
077200     PERFORM WRT-LN.                                              IX2104.2
077300 FAIL-ROUTINE.                                                    IX2104.2
077400     IF     COMPUTED-X NOT EQUAL TO SPACE                         IX2104.2
077500            GO TO   FAIL-ROUTINE-WRITE.                           IX2104.2
077600     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IX2104.2
077700     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IX2104.2
077800     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   IX2104.2
077900     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX2104.2
078000     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IX2104.2
078100     GO TO  FAIL-ROUTINE-EX.                                      IX2104.2
078200 FAIL-ROUTINE-WRITE.                                              IX2104.2
078300     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         IX2104.2
078400     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 IX2104.2
078500     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. IX2104.2
078600     MOVE   SPACES TO COR-ANSI-REFERENCE.                         IX2104.2
078700 FAIL-ROUTINE-EX. EXIT.                                           IX2104.2
078800 BAIL-OUT.                                                        IX2104.2
078900     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   IX2104.2
079000     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           IX2104.2
079100 BAIL-OUT-WRITE.                                                  IX2104.2
079200     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  IX2104.2
079300     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IX2104.2
079400     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX2104.2
079500     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IX2104.2
079600 BAIL-OUT-EX. EXIT.                                               IX2104.2
079700 CCVS1-EXIT.                                                      IX2104.2
079800     EXIT.                                                        IX2104.2
079900 SECT-0001-IX210A SECTION.                                        IX2104.2
080000 WRITE-INT-GF.                                                    IX2104.2
080100     OPEN    OUTPUT IX-FS1.                                       IX2104.2
080200     MOVE    "IX-FS1" TO XFILE-NAME           (1).                IX2104.2
080300     MOVE    "R1-F-G" TO  XRECORD-NAME        (1).                IX2104.2
080400     MOVE    ZERO     TO  XRECORD-NUMBER      (1).                IX2104.2
080500     MOVE    "RC"     TO  CHARS-OR-RECORDS    (1).                IX2104.2
080600     MOVE    CCVS-PGM-ID TO  XPROGRAM-NAME       (1).             IX2104.2
080700     MOVE    240      TO  XRECORD-LENGTH      (1).                IX2104.2
080800     MOVE    001      TO  XBLOCK-SIZE         (1).                IX2104.2
080900     MOVE    "IX"     TO  XFILE-ORGANIZATION  (1).                IX2104.2
081000     MOVE    "S"      TO  XLABEL-TYPE         (1).                IX2104.2
081100     MOVE    200      TO  RECORDS-IN-FILE     (1).                IX2104.2
081200     MOVE    "CREATE-FILE-FS1" TO FEATURE.                        IX2104.2
081300     MOVE    "WRITE-TEST-GF-1"  TO PAR-NAME.                      IX2104.2
081400     MOVE    ZERO TO KEYSUB.                                      IX2104.2
081500     MOVE    ZERO TO INVKEY-COUNTER.                              IX2104.2
081600 WRITE-INIT-GF-01.                                                IX2104.2
081700     PERFORM WRITE-TEST-GF-01  50 TIMES.                          IX2104.2
081800     PERFORM WRITE-TEST-GF-02  125 TIMES.                         IX2104.2
081900     PERFORM WRITE-TEST-GF-01  25 TIMES.                          IX2104.2
082000     GO TO   WRITE-TEST-GF-1.                                     IX2104.2
082100 WRITE-TEST-GF-01.                                                IX2104.2
082200     ADD     001  TO XRECORD-NUMBER (1).                          IX2104.2
082300     ADD     001  TO  KEYSUB.                                     IX2104.2
082400     MOVE    RECKEY-VALUE (KEYSUB) TO FS1-RECKEY-1-13.            IX2104.2
082500     MOVE    ALTKEY1-VALUE (KEYSUB) TO FS1-ALTKEY1-1-20.          IX2104.2
082600     MOVE    ALTKEY2-VALUE (KEYSUB) TO FS1-ALTKEY2-1-20.          IX2104.2
082700     MOVE    WRK-FS1-RECKEY   TO    XRECORD-KEY (1).              IX2104.2
082800     MOVE    WRK-FS1-ALTKEY1  TO ALTERNATE-KEY1 (1).              IX2104.2
082900     MOVE    WRK-FS1-ALTKEY2  TO ALTERNATE-KEY2 (1).              IX2104.2
083000     MOVE    FILE-RECORD-INFO (1)  TO IX-FS1R1-F-G-240.           IX2104.2
083100     WRITE   IX-FS1R1-F-G-240                                     IX2104.2
083200                        INVALID KEY ADD 001 TO INVKEY-COUNTER.    IX2104.2
083300     ADD     001 TO  EXCUT-COUNTER-06V00.                         IX2104.2
083400 WRITE-TEST-GF-02.                                                IX2104.2
083500     ADD     002  TO FS1-RECKEY-11-13.                            IX2104.2
083600     ADD     002 TO FS1-ALTKEY1-11-13.                            IX2104.2
083700     SUBTRACT  002 FROM FS1-ALTKEY2-11-13.                        IX2104.2
083800     ADD     001  TO XRECORD-NUMBER (1).                          IX2104.2
083900     MOVE    WRK-FS1-RECKEY   TO    XRECORD-KEY (1).              IX2104.2
084000     MOVE    WRK-FS1-ALTKEY1  TO ALTERNATE-KEY1 (1).              IX2104.2
084100     MOVE    WRK-FS1-ALTKEY2  TO ALTERNATE-KEY2 (1).              IX2104.2
084200     MOVE    FILE-RECORD-INFO (1) TO IX-FS1R1-F-G-240.            IX2104.2
084300     WRITE   IX-FS1R1-F-G-240                                     IX2104.2
084400                        INVALID KEY ADD 001 TO INVKEY-COUNTER.    IX2104.2
084500     ADD     001 TO EXCUT-COUNTER-06V00.                          IX2104.2
084600 WRITE-TEST-GF-1.                                                 IX2104.2
084700     SUBTRACT INVKEY-COUNTER FROM EXCUT-COUNTER-06V00             IX2104.2
084800             GIVING RECORDS-WRITTEN.                              IX2104.2
084900     MOVE    200  TO CORRECT-18V0.                                IX2104.2
085000     MOVE    RECORDS-WRITTEN TO COMPUTED-18V0.                    IX2104.2
085100     IF      RECORDS-WRITTEN EQUAL TO 200                         IX2104.2
085200             PERFORM  PASS                                        IX2104.2
085300             ELSE                                                 IX2104.2
085400             PERFORM FAIL.                                        IX2104.2
085500     MOVE    "RECORDS IN FILE" TO RE-MARK.                        IX2104.2
085600     GO TO   WRITE-TEST-GF-END.                                   IX2104.2
085700 WRITE-DELETE-GF-1.                                               IX2104.2
085800     PERFORM DE-LETE.                                             IX2104.2
085900 WRITE-TEST-GF-END.                                               IX2104.2
086000     PERFORM  PRINT-DETAIL.                                       IX2104.2
086100     CLOSE   IX-FS1.                                              IX2104.2
086200 READ-INIT-F1.                                                    IX2104.2
086300     OPEN    INPUT  IX-FS1.                                       IX2104.2
086400     MOVE    "READ FILE IX-FS1" TO FEATURE.                       IX2104.2
086500     MOVE    ZERO TO EXCUT-COUNTER-06V00.                         IX2104.2
086600     MOVE    02   TO RECKEY-NUM.                                  IX2104.2
086700     MOVE    002 TO ALTKEY1-NUM.                                  IX2104.2
086800 READ-TEST-F1-R1.                                                 IX2104.2
086900     READ    IX-FS1  AT END  GO TO READ-TEST-F1.                  IX2104.2
087000     MOVE    IX-REC-KEY-AREA TO WRK-FS1-RECKEY.                   IX2104.2
087100     MOVE    IX-ALT-KEY1-AREA TO WRK-FS1-ALTKEY1.                 IX2104.2
087200     IF      FS1-RECKEY-11-13 EQUAL TO RECKEY-NUM                 IX2104.2
087300             AND FS1-ALTKEY1-11-13 EQUAL TO ALTKEY1-NUM           IX2104.2
087400             NEXT SENTENCE                                        IX2104.2
087500             ELSE                                                 IX2104.2
087600             PERFORM  READ-FAIL-F1.                               IX2104.2
087700     IF      EXCUT-COUNTER-06V00 GREATER THAN 200                 IX2104.2
087800             GO TO READ-TEST-F1.                                  IX2104.2
087900     ADD     001  TO EXCUT-COUNTER-06V00.                         IX2104.2
088000     ADD     002  TO RECKEY-NUM                                   IX2104.2
088100     ADD     002  TO ALTKEY1-NUM.                                 IX2104.2
088200     GO TO   READ-TEST-F1-R1.                                     IX2104.2
088300 READ-TEST-F1.                                                    IX2104.2
088400     IF      EXCUT-COUNTER-06V00 EQUAL TO 200                     IX2104.2
088500             PERFORM PASS ELSE                                    IX2104.2
088600             PERFORM FAIL.                                        IX2104.2
088700     MOVE    EXCUT-COUNTER-06V00 TO  COMPUTED-18V0.               IX2104.2
088800     MOVE    200  TO  CORRECT-18V0.                               IX2104.2
088900     MOVE    "RECORDS IN FILE" TO RE-MARK.                        IX2104.2
089000     GO TO   READ-EXIT-F1.                                        IX2104.2
089100 READ-FAIL-F1.                                                    IX2104.2
089200     PERFORM FAIL.                                                IX2104.2
089300     MOVE    FS1-RECKEY-11-13  TO COMPUTED-18V0.                  IX2104.2
089400     MOVE    RECKEY-NUM  TO CORRECT-18V0.                         IX2104.2
089500     MOVE "NUM EMBEDDED IN RECKEY; IX-41 & IX-28"  TO RE-MARK.    IX2104.2
089600 READ-EXIT-F1.                                                    IX2104.2
089700     PERFORM PRINT-DETAIL.                                        IX2104.2
089800     CLOSE   IX-FS1.                                              IX2104.2
089900 START-INIT.                                                      IX2104.2
090000     OPEN    INPUT  IX-FS1.                                       IX2104.2
090100     MOVE    "START GT RECKEY " TO FEATURE.                       IX2104.2
090200     MOVE    "START-TEST-GF-01" TO PAR-NAME.                      IX2104.2
090300     MOVE    SPACE TO HOLD-FILESTATUS-RECORD.                     IX2104.2
090400*                                                                 IX2104.2
090500* THE "START -- GREATER THAN--" IS CHECKED FOR PROPER POSITIONING IX2104.2
090600* OF THE RECORD POINTER FOR THE SUBSEQUENT READ STATEMENT.        IX2104.2
090700* START-TEST-GF  USE ONLY THE PRIME RECORD KEY FOR ESTABLISHING   IX2104.2
090800* THE CURRENT RECORD POINTER FOR THE FILE.  THE FOLLOWING IS A    IX2104.2
090900* SUMMARY OF THE TEST CONDITIONS AND THE EXPECTED ACTION TO BE    IX2104.2
091000* TAKEN FOR THE  TESTS.                                           IX2104.2
091100*                                                                 IX2104.2
091200*                      CONDITIONS (CONTENTS OF KEY) / ACTION      IX2104.2
091300*                                                                 IX2104.2
091400*   START-TEST-GF-01 - EQUAL A RECORD IN FILE / RECORD FOUND      IX2104.2
091500*   START-TEST-GF-02 - BETWEEN 2 KEY VALUES / RECORD FOUND        IX2104.2
091600*   START-TEST-GF-03 - LESS THAN FIRST FILE REC. / REC. FOUND     IX2104.2
091700*   START-TEST-GF-04 - GREATER THAN LAST FILE RECORD / INVALID KEYIX2104.2
091800*   START-TEST-GF-05 - UNEQUAL SIZE OPERANDS (EQUAL) / RECORD FOUNIX2104.2
091900*   START-TEST-GF-06 - UNEQUAL SIZE OPERANDS (EQUAL) / RECORD FOUNIX2104.2
092000*   START-TEST-GF-07 - UNEQUAL SIZE OPERANDS (UNEQUAL) / INVLD KEYIX2104.2
092100*   START-TEST-GF-08 - UNEQUAL SIZE OPERANDS (UNEQUAL) / REC FOUNDIX2104.2
092200*   START-TEST-GF-09 - UNEQUAL SIZE OPERANDS (UNEQUAL) /INVLD KEY IX2104.2
092300*                                                                 IX2104.2
092400*  BEFORE EACH TEST A RECORD IS MADE AVAILABLE WHICH IS DIFFERENT IX2104.2
092500*  THAN THE ONE WHICH IS EXPECTED TO BE PRESENT FOLLOWING A TEST. IX2104.2
092600*  IF AN INVALID KEY IS EXPECTED FROM THE TEST, THE KEYS          IX2104.2
092700*  ASSOCIATED WITH THE FILE WHICH ARE NOT PARTICIPATING IN THE    IX2104.2
092800*  START STATEMENT WILL BE LOADED WITH VALUES WHICH WOULD         IX2104.2
092900*  MATCH RECORDS IN THE FILE.  IF KEY MATCH IS EXPECTED FROM      IX2104.2
093000*  THE TEST, THE KEYS ASSOCIATED WITH THE FILE WHICH ARE NOT      IX2104.2
093100*  PARTICIPATING IN THE START STATEMENT WILL BE LOADED WITH       IX2104.2
093200*  VALUES WHICH WOULD NOT MATCH RECORDS IN THE FILE.  THE FILE    IX2104.2
093300*  STATUS FROM EXECUTION OF EACH START IS CAPTURED FOR LATER TESTSIX2104.2
093400*                                                                 IX2104.2
093500 START-INIT-GF-01.                                                IX2104.2
093600     MOVE    "START-TEST-GF-01" TO PAR-NAME.                      IX2104.2
093700     PERFORM START-INITIALIZE-RECORD.                             IX2104.2
093800     IF      INIT-FLAG NOT EQUAL TO ZERO                          IX2104.2
093900             MOVE   "**"  TO FILESTATUS (1)                       IX2104.2
094000             MOVE   "TEST IMPROPERLY INITIALIZED" TO RE-MARK      IX2104.2
094100             GO TO START-DELETE-GF-01.                            IX2104.2
094200     MOVE    "CCCCCCCCCD022" TO FS1-RECKEY-1-13.                  IX2104.2
094300     MOVE    "EEEEEFFFFF022ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2104.2
094400     MOVE    "EEEEEFFFFF022ALTKEY2" TO FS1-ALTKEY2-1-20.          IX2104.2
094500     MOVE    WRK-FS1-RECKEY TO IX-REC-KEY-AREA.                   IX2104.2
094600     MOVE    WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA.                 IX2104.2
094700     MOVE    WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA.                 IX2104.2
094800 START-TEST-GF-01.                                                IX2104.2
094900*                                                                 IX2104.2
095000*  START-TEST-GF-01  - THE START SHOULD FIND A RECORD IN THE FILE IX2104.2
095100*                    WHICH HAS A RECORD KEY VALUE OF              IX2104.2
095200*                    CCCCCCCCDD024  (RECORD NUMBER 12).           IX2104.2
095300*                                                                 IX2104.2
095400     START   IX-FS1                                               IX2104.2
095500                    KEY IS GREATER THAN IX-FS1-KEY                IX2104.2
095600          INVALID KEY   MOVE FS1-STATUS TO FILESTATUS (1)         IX2104.2
095700                     MOVE  "INVALID KEY ON START" TO COMPUTED-A   IX2104.2
095800                        GO TO START-FAIL-GF-01.                   IX2104.2
095900     MOVE    FS1-STATUS TO FILESTATUS (1).                        IX2104.2
096000     READ    IX-FS1  AT END                                       IX2104.2
096100                     MOVE  "AT END ON READ" TO COMPUTED-A         IX2104.2
096200                     GO TO START-FAIL-GF-01.                      IX2104.2
096300     MOVE    IX-FS1R1-F-G-240  TO  FILE-RECORD-INFO (1).          IX2104.2
096400     IF      XRECORD-NUMBER (1)  EQUAL TO 12                      IX2104.2
096500             PERFORM PASS                                         IX2104.2
096600             MOVE SPACE TO RE-MARK                                IX2104.2
096700             GO TO START-EXIT-GF-01.                              IX2104.2
096800     MOVE    12  TO RECNO.                                        IX2104.2
096900     PERFORM DISPLAY-RECORD-KEYS.                                 IX2104.2
097000     MOVE     XRECORD-NUMBER (1)  TO COMPUTED-18V0.               IX2104.2
097100 START-FAIL-GF-01.                                                IX2104.2
097200     PERFORM FAIL.                                                IX2104.2
097300     MOVE    12  TO CORRECT-18V0.                                 IX2104.2
097400     MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK.                 IX2104.2
097500     GO TO   START-EXIT-GF-01.                                    IX2104.2
097600 START-DELETE-GF-01.                                              IX2104.2
097700     PERFORM DE-LETE.                                             IX2104.2
097800 START-EXIT-GF-01.                                                IX2104.2
097900     PERFORM PRINT-DETAIL.                                        IX2104.2
098000 START-INIT-GF-02.                                                IX2104.2
098100     MOVE    "START GT RECKEY " TO FEATURE.                       IX2104.2
098200     MOVE    "START-TEST-GF-02" TO PAR-NAME.                      IX2104.2
098300     PERFORM START-INITIALIZE-RECORD.                             IX2104.2
098400     IF      INIT-FLAG NOT EQUAL TO ZERO                          IX2104.2
098500             MOVE   "**"  TO FILESTATUS (2)                       IX2104.2
098600             MOVE   "TEST IMPROPERLY INITIALIZED" TO RE-MARK      IX2104.2
098700             GO TO START-DELETE-GF-02.                            IX2104.2
098800     MOVE    "EEEEEEEFFF067" TO FS1-RECKEY-1-13.                  IX2104.2
098900     MOVE    "HHHHHHHHII064ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2104.2
099000     MOVE    "TTTTTTTTSS336ALTKEY2" TO FS1-ALTKEY2-1-20.          IX2104.2
099100     MOVE    WRK-FS1-RECKEY TO IX-REC-KEY-AREA.                   IX2104.2
099200     MOVE    WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA.                 IX2104.2
099300     MOVE    WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA.                 IX2104.2
099400 START-TEST-GF-02.                                                IX2104.2
099500*                                                                 IX2104.2
099600*  START-TEST-GF-02 - THE START SHOULD FIND A RECORD IN THE FILE  IX2104.2
099700*                    WHICH HAS A RECORD KEY VALUE OF EEEEEEFFFF068IX2104.2
099800*                    (RECORD NUMBER 34).  THIS KEY VALUE IS       IX2104.2
099900*                    SEQUENTIALLY A LOGICAL RECORD HIGHER THAN    IX2104.2
100000*                    THE RECORD CONTAINING THE KEY VALUE  LOADED  IX2104.2
100100*                    INTO THE RECORD KEY BEFORE THE START WAS     IX2104.2
100200*                    EXECUTED.  THE KEY VALUE INITIALLY LOADED    IX2104.2
100300*                    WAS A VALUE BETWEEN TWO EXISTING KEY VALUES. IX2104.2
100400*                                                                 IX2104.2
100500     START   IX-FS1                                               IX2104.2
100600        KEY GREATER THAN OR EQUAL TO IX-FS1-KEY                   IX2104.2
100700          INVALID KEY   MOVE FS1-STATUS TO FILESTATUS (2)         IX2104.2
100800                     MOVE  "INVALID KEY ON START" TO COMPUTED-A   IX2104.2
100900                        GO TO START-FAIL-GF-02.                   IX2104.2
101000     MOVE    FS1-STATUS TO FILESTATUS (2).                        IX2104.2
101100     READ    IX-FS1  AT END                                       IX2104.2
101200                     MOVE  "AT END ON READ" TO COMPUTED-A         IX2104.2
101300                     GO TO START-FAIL-GF-02.                      IX2104.2
101400     MOVE    IX-FS1R1-F-G-240  TO  FILE-RECORD-INFO (1).          IX2104.2
101500     IF      XRECORD-NUMBER (1) EQUAL TO 34                       IX2104.2
101600             PERFORM PASS                                         IX2104.2
101700             MOVE SPACE TO RE-MARK                                IX2104.2
101800             GO TO START-EXIT-GF-02.                              IX2104.2
101900     MOVE    34  TO RECNO.                                        IX2104.2
102000     PERFORM DISPLAY-RECORD-KEYS.                                 IX2104.2
102100     MOVE     XRECORD-NUMBER (1)  TO COMPUTED-18V0.               IX2104.2
102200 START-FAIL-GF-02.                                                IX2104.2
102300     PERFORM FAIL.                                                IX2104.2
102400     MOVE    34   TO CORRECT-18V0.                                IX2104.2
102500     MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK.                 IX2104.2
102600     GO TO   START-EXIT-GF-02.                                    IX2104.2
102700 START-DELETE-GF-02.                                              IX2104.2
102800     PERFORM DE-LETE.                                             IX2104.2
102900 START-EXIT-GF-02.                                                IX2104.2
103000     PERFORM PRINT-DETAIL.                                        IX2104.2
103100 START-INIT-GF-03.                                                IX2104.2
103200     PERFORM START-INITIALIZE-RECORD.                             IX2104.2
103300     MOVE    "START GT RECKEY " TO FEATURE.                       IX2104.2
103400     MOVE    "START-TEST-GF-03" TO PAR-NAME.                      IX2104.2
103500     IF      INIT-FLAG NOT EQUAL TO ZERO                          IX2104.2
103600             MOVE   "**"  TO FILESTATUS (3)                       IX2104.2
103700             MOVE   "TEST IMPROPERLY INITIALIZED" TO RE-MARK      IX2104.2
103800             GO TO START-DELETE-GF-03.                            IX2104.2
103900     MOVE    "BBBBBBBBBC001" TO FS1-RECKEY-1-13.                  IX2104.2
104000     MOVE    "EEEEEEEEEF003ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2104.2
104100     MOVE    "WWWWWWWWWV399ALTKEY2" TO FS1-ALTKEY2-1-20.          IX2104.2
104200     MOVE    WRK-FS1-RECKEY TO IX-REC-KEY-AREA.                   IX2104.2
104300     MOVE    WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA.                 IX2104.2
104400     MOVE    WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA.                 IX2104.2
104500 START-TEST-GF-03.                                                IX2104.2
104600*                                                                 IX2104.2
104700*  START-TEST-GF-03  - THE START STATEMENT SHOULD FIND A          IX2104.2
104800*                    RECORD IN THE FILE WHICH HAS A RECORD KEY    IX2104.2
104900*                    VALUE OF "BBBBBBBBBC002" (RECORD NUMBER 1).  IX2104.2
105000*                    THE KEY WAS LOADED BEFORE THE START IS       IX2104.2
105100*                    EXECUTED WITH THE VALUE THAT IS SEQUENTIALLY IX2104.2
105200*                    LOWER THAN ANY CURRENTLY EXISTING KEY IN     IX2104.2
105300*                    THE FILE.                                    IX2104.2
105400*                                                                 IX2104.2
105500     START   IX-FS1                                               IX2104.2
105600                    KEY IS GREATER THAN IX-FS1-KEY                IX2104.2
105700          INVALID KEY   MOVE FS1-STATUS TO FILESTATUS (3)         IX2104.2
105800                     MOVE  "INVALID KEY ON START" TO COMPUTED-A   IX2104.2
105900                        GO TO START-FAIL-GF-03                    IX2104.2
106000            END-START.                                            IX2104.2
106100     MOVE    FS1-STATUS TO FILESTATUS (3).                        IX2104.2
106200     READ    IX-FS1  AT END                                       IX2104.2
106300                     MOVE  "AT END ON READ" TO COMPUTED-A         IX2104.2
106400                     GO TO START-FAIL-GF-03.                      IX2104.2
106500     MOVE    IX-FS1R1-F-G-240  TO  FILE-RECORD-INFO (1).          IX2104.2
106600     IF      XRECORD-NUMBER (1) EQUAL TO 01                       IX2104.2
106700             PERFORM PASS                                         IX2104.2
106800             MOVE SPACE TO RE-MARK                                IX2104.2
106900             GO TO START-EXIT-GF-03.                              IX2104.2
107000     MOVE    01  TO RECNO.                                        IX2104.2
107100     PERFORM DISPLAY-RECORD-KEYS.                                 IX2104.2
107200     MOVE     XRECORD-NUMBER (1)  TO COMPUTED-18V0.               IX2104.2
107300 START-FAIL-GF-03.                                                IX2104.2
107400     PERFORM FAIL.                                                IX2104.2
107500     MOVE    01   TO CORRECT-18V0.                                IX2104.2
107600     MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK.                 IX2104.2
107700     GO TO   START-EXIT-GF-03.                                    IX2104.2
107800 START-DELETE-GF-03.                                              IX2104.2
107900     PERFORM DE-LETE.                                             IX2104.2
108000 START-EXIT-GF-03.                                                IX2104.2
108100     PERFORM PRINT-DETAIL.                                        IX2104.2
108200 START-INIT-GF-04.                                                IX2104.2
108300     PERFORM START-INITIALIZE-RECORD.                             IX2104.2
108400     MOVE    "START GT RECKEY " TO FEATURE.                       IX2104.2
108500     MOVE    "START-TEST-GF-04" TO PAR-NAME.                      IX2104.2
108600     IF      INIT-FLAG NOT EQUAL TO ZERO                          IX2104.2
108700             MOVE    "TEST IMPROPERLY INITIALIZED"  TO RE-MARK    IX2104.2
108800             MOVE   "**"  TO FILESTATUS (4)                       IX2104.2
108900             GO TO   START-DELETE-GF-04.                          IX2104.2
109000     MOVE    "UUUUUUUUUU401"  TO FS1-RECKEY-1-13.                 IX2104.2
109100     MOVE    "YYYYYYYYYY400ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2104.2
109200     MOVE    "DDDDDDDDDD000ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2104.2
109300     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2104.2
109400     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2104.2
109500     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2104.2
109600 START-TEST-GF-04.                                                IX2104.2
109700*                                                                 IX2104.2
109800*  START-TEST-GF-04 -  THE START STATEMENT SHOULD NOT FIND A      IX2104.2
109900*                    RECORD IN THE  FILE WHICH HAS A RECORD       IX2104.2
110000*                    KEY VALUE GREATER THAN "UUUUUUUUUU401". THIS IX2104.2
110100*                    VALUE IS SEQUENTIALLY GREATER THAN           IX2104.2
110200*                    ANY RECORD KEY CURRENTLY EXISTING IN         IX2104.2
110300*                    THE FILE.  AN INVALID KEY CONDITION          IX2104.2
110400*                    IS EXPECTED WHEN THE START IS EXECUTED.      IX2104.2
110500*                                                                 IX2104.2
110600     START   IX-FS1                                               IX2104.2
110700                    KEY IS GREATER THAN IX-FS1-KEY                IX2104.2
110800          INVALID KEY    MOVE  FS1-STATUS TO FILESTATUS (4)       IX2104.2
110900                         GO TO START-PASS-GF-04.                  IX2104.2
111000     MOVE    FS1-STATUS TO FILESTATUS (4).                        IX2104.2
111100     READ    IX-FS1 AT END                                        IX2104.2
111200                     MOVE  "AT END PATH TAKEN ON READ" TO RE-MARK.IX2104.2
111300     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2104.2
111400     PERFORM FAIL.                                                IX2104.2
111500     MOVE    XRECORD-KEY (1) TO COMPUTED-A.                       IX2104.2
111600     MOVE    "INVALID KEY" TO CORRECT-A.                          IX2104.2
111700     MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK.                 IX2104.2
111800     GO TO   START-EXIT-GF-04.                                    IX2104.2
111900 START-PASS-GF-04.                                                IX2104.2
112000     PERFORM  PASS.                                               IX2104.2
112100     MOVE     "INVALID KEY OK."  TO RE-MARK.                      IX2104.2
112200     GO TO   START-EXIT-GF-04.                                    IX2104.2
112300 START-DELETE-GF-04.                                              IX2104.2
112400     PERFORM DE-LETE.                                             IX2104.2
112500 START-EXIT-GF-04.                                                IX2104.2
112600     PERFORM PRINT-DETAIL.                                        IX2104.2
112700 START-INIT-GF-05.                                                IX2104.2
112800     PERFORM START-INITIALIZE-RECORD.                             IX2104.2
112900     MOVE    "START GT RECKEY " TO FEATURE.                       IX2104.2
113000     MOVE    "START-TEST-GF-05" TO PAR-NAME.                      IX2104.2
113100     IF      INIT-FLAG NOT EQUAL TO ZERO                          IX2104.2
113200             MOVE    "TEST IMPROPERLY INITIALIZED"  TO RE-MARK    IX2104.2
113300             MOVE   "**"  TO FILESTATUS (5)                       IX2104.2
113400             GO TO   START-DELETE-GF-05.                          IX2104.2
113500     MOVE    "CDDDDDDDDD039" TO FS1-RECKEY-1-13.                  IX2104.2
113600     MOVE    "IIIIIIIIJJ083ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2104.2
113700     MOVE    "ABCXXXXXXX400ALTKEY2" TO FS1-ALTKEY2-1-20.          IX2104.2
113800     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2104.2
113900     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2104.2
114000     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2104.2
114100 START-TEST-GF-05.                                                IX2104.2
114200*  START-TEST-GF-05 -  THE START STATEMENT USES AN OPERAND        IX2104.2
114300*                    IN THE KEY PHRASE WHICH IS NOT THE NAME      IX2104.2
114400*                    OF A RECORD   KEY BUT IS THE NAME OF A       IX2104.2
114500*                    DATA ITEM WHICH IS SUBORDINATE TO THE        IX2104.2
114600*                    RECORD KEY.  THE CONTENTS OF THE DATA ITEM   IX2104.2
114700*                    (POSITIONS 1 THRU 7 OF THE RECORD KEY)       IX2104.2
114800*                    IS A UNIQUE KEY VALUE FOR THE FILE. THE      IX2104.2
114900*                    BALANCE OF THE KEY (POSITIONS 8 THRU 13) IS  IX2104.2
115000*                    NOT A VALID KEY VALUE FOR THE FILE.  THE     IX2104.2
115100*                    RECORD WITH THE RECORD KEY "DDDDDDDDDD040"   IX2104.2
115200*                    (RECORD NUMBER 20) IS EXPECTED TO BE FOUND.  IX2104.2
115300*                                                                 IX2104.2
115400     START   IX-FS1                                               IX2104.2
115500                    KEY IS GREATER THAN R-RECKEY-1-7              IX2104.2
115600          INVALID KEY    MOVE  FS1-STATUS TO FILESTATUS (5)       IX2104.2
115700                     MOVE  "INVALID KEY ON START" TO COMPUTED-A   IX2104.2
115800                     GO TO START-FAIL-GF-05.                      IX2104.2
115900     MOVE    FS1-STATUS TO FILESTATUS (5).                        IX2104.2
116000     READ    IX-FS1  AT END                                       IX2104.2
116100                     MOVE  "AT END ON READ" TO COMPUTED-A         IX2104.2
116200                     GO TO  START-FAIL-GF-05.                     IX2104.2
116300     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2104.2
116400     IF      XRECORD-NUMBER (1) EQUAL TO 20                       IX2104.2
116500             PERFORM  PASS                                        IX2104.2
116600             MOVE  "SUBORDINATE DATA ITEM OF KEY" TO RE-MARK      IX2104.2
116700             GO TO START-EXIT-GF-05.                              IX2104.2
116800     MOVE    20  TO RECNO.                                        IX2104.2
116900     PERFORM DISPLAY-RECORD-KEYS.                                 IX2104.2
117000     MOVE    XRECORD-NUMBER (1)  TO COMPUTED-18V0.                IX2104.2
117100 START-FAIL-GF-05.                                                IX2104.2
117200     PERFORM  FAIL.                                               IX2104.2
117300     MOVE    20  TO CORRECT-18V0.                                 IX2104.2
117400     MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK.                 IX2104.2
117500     GO TO   START-EXIT-GF-05.                                    IX2104.2
117600 START-DELETE-GF-05.                                              IX2104.2
117700     PERFORM DE-LETE.                                             IX2104.2
117800 START-EXIT-GF-05.                                                IX2104.2
117900     PERFORM PRINT-DETAIL.                                        IX2104.2
118000 START-INIT-GF-06.                                                IX2104.2
118100     PERFORM START-INITIALIZE-RECORD.                             IX2104.2
118200     MOVE "START GT RECKEY " TO FEATURE.                          IX2104.2
118300     MOVE "START-TEST-GF-06" TO PAR-NAME.                         IX2104.2
118400     IF      INIT-FLAG NOT EQUAL TO ZERO                          IX2104.2
118500             MOVE    "TEST IMPROPERLY INITIALIZED"  TO RE-MARK    IX2104.2
118600             MOVE   "**"  TO FILESTATUS (6)                       IX2104.2
118700             GO TO   START-DELETE-GF-06.                          IX2104.2
118800     MOVE    "TTTTTTTTTT380"  TO FS1-RECKEY-1-13.                 IX2104.2
118900     MOVE    "XYYYYYYYYY399ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2104.2
119000     MOVE    "WWWWWWWWWV399ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2104.2
119100     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2104.2
119200     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2104.2
119300     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2104.2
119400 START-TEST-GF-06.                                                IX2104.2
119500*                                                                 IX2104.2
119600*  START-TEST-GF-06 -  THE START STATEMENT USES AN OPERAND IN THE IX2104.2
119700*                    KEY PHRASE WHICH IS NOT THE NAME OF A RECORD IX2104.2
119800*                    KEY BUT IS THE NAME OF A DATA ITEM THAT IS   IX2104.2
119900*                    SUBORDINATE TO THE RECORD KEY.  THE CONTENTS IX2104.2
120000*                    OF THE DATA ITEM (POSITIONS 1 THRU 5 OF THE  IX2104.2
120100*                    RECORD KEY)  IS A DUPLICATE OF THE FIRST     IX2104.2
120200*                    5 POSITIONS OF 5 OTHER RECORDS IN THE FILE.  IX2104.2
120300*                    THIS TEST EXPECTS THE RECORD POINTER         IX2104.2
120400*                    TO BE POSITIONED TO RECORD KEY TTTTUUUUUU392 IX2104.2
120500*                    (RECORD NUMBER 196) WHICH WAS THE RECORD     IX2104.2
120600*                    WRITTEN TO THE FILE AFTER THE LAST RECORD    IX2104.2
120700*                    THAT CONTAINS TTTTT IN THE FIRST 5 POSITIONS IX2104.2
120800*                    OF THE KEY.  THE RECORD KEY WAS LOADED WITH  IX2104.2
120900*                    THE VALUE "TTTTTTTTTT380" (KEY FOR RECORD    IX2104.2
121000*                    NUMBER 190) BEFORE THE START WAS EXECUTED.   IX2104.2
121100*                                                                 IX2104.2
121200     START   IX-FS1                                               IX2104.2
121300                    KEY IS GREATER THAN IX-FS1-KEY-1-5            IX2104.2
121400          INVALID KEY    MOVE  FS1-STATUS TO FILESTATUS (6)       IX2104.2
121500                     MOVE  "INVALID KEY ON START"  TO COMPUTED-A  IX2104.2
121600                     GO TO START-FAIL-GF-06.                      IX2104.2
121700     MOVE    FS1-STATUS TO FILESTATUS (6).                        IX2104.2
121800     READ    IX-FS1  AT END                                       IX2104.2
121900                     MOVE "AT END ON READ" TO COMPUTED-A          IX2104.2
122000                     GO TO START-FAIL-GF-06.                      IX2104.2
122100     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2104.2
122200     IF      XRECORD-NUMBER (1) EQUAL TO 196                      IX2104.2
122300             PERFORM  PASS                                        IX2104.2
122400             MOVE  "SUBORDINATE DATA ITEM IN KEY"  TO RE-MARK     IX2104.2
122500             GO TO START-EXIT-GF-06.                              IX2104.2
122600     MOVE    71  TO RECNO.                                        IX2104.2
122700     PERFORM DISPLAY-RECORD-KEYS.                                 IX2104.2
122800     MOVE    XRECORD-NUMBER (1)  TO COMPUTED-18V0.                IX2104.2
122900 START-FAIL-GF-06.                                                IX2104.2
123000     PERFORM  FAIL.                                               IX2104.2
123100     MOVE    196  TO CORRECT-18V0.                                IX2104.2
123200     MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK.                 IX2104.2
123300     GO TO   START-EXIT-GF-06.                                    IX2104.2
123400 START-DELETE-GF-06.                                              IX2104.2
123500     PERFORM DE-LETE.                                             IX2104.2
123600 START-EXIT-GF-06.                                                IX2104.2
123700     PERFORM PRINT-DETAIL.                                        IX2104.2
123800 START-INIT-GF-07.                                                IX2104.2
123900     PERFORM START-INITIALIZE-RECORD.                             IX2104.2
124000     MOVE "START GT RECKEY " TO FEATURE.                          IX2104.2
124100     MOVE "START-TEST-GF-07" TO PAR-NAME.                         IX2104.2
124200     IF      INIT-FLAG NOT EQUAL TO ZERO                          IX2104.2
124300             MOVE    "TEST IMPROPERLY INITIALIZED"  TO RE-MARK    IX2104.2
124400             MOVE   "**"  TO FILESTATUS (7)                       IX2104.2
124500             GO TO   START-DELETE-GF-07.                          IX2104.2
124600     MOVE    "UUUUUUUUUU400"  TO FS1-RECKEY-1-13.                 IX2104.2
124700     MOVE    "FFFFFFFFFG022ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2104.2
124800     MOVE    "VVVVVVVVVV380ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2104.2
124900     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2104.2
125000     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2104.2
125100     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2104.2
125200 START-TEST-GF-07.                                                IX2104.2
125300*                                                                 IX2104.2
125400*  START-TEST-GF-07 -  THE START STATEMENT USES AN OPERAND IN THE IX2104.2
125500*                    KEY PHRASE OF THE START STATEMENT WHICH IS   IX2104.2
125600*                    A DATA ITEM SUBORDINATE TO THE RECORD KEY    IX2104.2
125700*                    NAME.  THE CONTENTS OF THE DATA ITEM         IX2104.2
125800*                    (POSITIONS 1 THRU 7 OF THE RECORD KEY)       IX2104.2
125900*                    IS LOADED WITH "UUUUUUU" WHICH IS THE        IX2104.2
126000*                    KEY VALUE OF THE LAST RECORD IN THE FILE.    IX2104.2
126100*                    THERE SHOULD BE NO RECORD IN THE FILE GREATERIX2104.2
126200*                    THAN THIS KEY VALUE THUS AND INVALID KEY     IX2104.2
126300*                    IS EXPECTED WHEN THE START IS EXECUTED.      IX2104.2
126400*                                                                 IX2104.2
126500     START  IX-FS1                                                IX2104.2
126600                   KEY IS GREATER THAN R-RECKEY-1-7               IX2104.2
126700          INVALID KEY    MOVE  FS1-STATUS TO FILESTATUS (7)       IX2104.2
126800                     GO TO START-PASS-GF-07.                      IX2104.2
126900     MOVE    FS1-STATUS TO FILESTATUS (7).                        IX2104.2
127000     READ    IX-FS1  AT END                                       IX2104.2
127100                     MOVE  "AT END PATH TAKEN ON READ" TO RE-MARK.IX2104.2
127200     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2104.2
127300     PERFORM FAIL.                                                IX2104.2
127400     MOVE    XRECORD-KEY (1) TO COMPUTED-A.                       IX2104.2
127500     MOVE    "INVALID KEY" TO CORRECT-A.                          IX2104.2
127600     MOVE "AT END PATH TAKEN & IX-36 ETC " TO RE-MARK.            IX2104.2
127700     GO TO   START-EXIT-GF-07.                                    IX2104.2
127800 START-PASS-GF-07.                                                IX2104.2
127900     PERFORM PASS.                                                IX2104.2
128000     MOVE    "INVALID KEY OK."  TO RE-MARK.                       IX2104.2
128100     GO TO   START-EXIT-GF-07.                                    IX2104.2
128200 START-DELETE-GF-07.                                              IX2104.2
128300     PERFORM DE-LETE.                                             IX2104.2
128400 START-EXIT-GF-07.                                                IX2104.2
128500     PERFORM PRINT-DETAIL.                                        IX2104.2
128600 START-INIT-GF-08.                                                IX2104.2
128700     PERFORM START-INITIALIZE-RECORD.                             IX2104.2
128800     MOVE "START GT RECKEY " TO FEATURE.                          IX2104.2
128900     MOVE "START-TEST-GF-08" TO PAR-NAME.                         IX2104.2
129000     IF      INIT-FLAG NOT EQUAL TO ZERO                          IX2104.2
129100             MOVE    "TEST IMPROPERLY INITIALIZED"  TO RE-MARK    IX2104.2
129200             MOVE   "**"  TO FILESTATUS (8)                       IX2104.2
129300             GO TO   START-DELETE-GF-08.                          IX2104.2
129400     MOVE    "ABBBBBBBBC002"  TO FS1-RECKEY-1-13.                 IX2104.2
129500     MOVE    "XYYYYYYYYY399ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2104.2
129600     MOVE    "WWWWWWWWWV399ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2104.2
129700     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2104.2
129800     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2104.2
129900     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2104.2
130000 START-TEST-GF-08.                                                IX2104.2
130100*                                                                 IX2104.2
130200*  START-TEST-GF-08 -  THIS TEST USES AN OPERAND IN THE KEY       IX2104.2
130300*                    PHRASE OF THE START STATEMENT WHICH IS A DATAIX2104.2
130400*                    ITEM SUBORDINATE TO THE RECORD KEY NAME.  THEIX2104.2
130500*                    CONTENTS OF THE DATA ITEM (POSITIONS 1 THRU  IX2104.2
130600*                    7 OF THE RECORD KEY) IS LOADED WITH "ABBBBBBBIX2104.2
130700*                    BC".  THIS KEY VALUE IS LOWER THAN ANY RECORDIX2104.2
130800*                    KEY VALUE IN POSITIONS 1 THRU 7 EXISTING     IX2104.2
130900*                    IN THE FILE.  THE START STATEMENT WITH THE   IX2104.2
131000*                    KEY IS GREATER THAN PHRASE IS EXECUTED AND   IX2104.2
131100*                    SHOULD FIND THE RECORD WITH THE KEY VALUE    IX2104.2
131200*                    "BBBBBBBBBC002" (RECORD NUMBER 01).          IX2104.2
131300*                                                                 IX2104.2
131400     START   IX-FS1                                               IX2104.2
131500                    KEY IS GREATER THAN R-RECKEY-1-7              IX2104.2
131600          INVALID KEY    MOVE  FS1-STATUS TO FILESTATUS (8)       IX2104.2
131700                     MOVE  "INVALID KEY ON START"  TO COMPUTED-A  IX2104.2
131800                     GO TO START-FAIL-GF-08.                      IX2104.2
131900     MOVE    FS1-STATUS TO FILESTATUS (8).                        IX2104.2
132000     READ    IX-FS1  AT END                                       IX2104.2
132100                     MOVE "AT END ON READ" TO COMPUTED-A          IX2104.2
132200                     GO TO START-FAIL-GF-08.                      IX2104.2
132300     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2104.2
132400     IF      XRECORD-NUMBER (1) EQUAL TO 001                      IX2104.2
132500             PERFORM  PASS                                        IX2104.2
132600             MOVE  "SUBORDINATE DATA ITEM IN KEY"  TO RE-MARK     IX2104.2
132700             GO TO START-EXIT-GF-08.                              IX2104.2
132800     MOVE    01  TO RECNO.                                        IX2104.2
132900     PERFORM DISPLAY-RECORD-KEYS.                                 IX2104.2
133000     MOVE    XRECORD-NUMBER (1)  TO COMPUTED-18V0.                IX2104.2
133100 START-FAIL-GF-08.                                                IX2104.2
133200     PERFORM  FAIL.                                               IX2104.2
133300     MOVE    001   TO CORRECT-18V0.                               IX2104.2
133400     MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK.                 IX2104.2
133500     GO TO   START-EXIT-GF-08.                                    IX2104.2
133600 START-DELETE-GF-08.                                              IX2104.2
133700     PERFORM DE-LETE.                                             IX2104.2
133800 START-EXIT-GF-08.                                                IX2104.2
133900     PERFORM PRINT-DETAIL.                                        IX2104.2
134000 START-INIT-GF-09.                                                IX2104.2
134100     PERFORM START-INITIALIZE-RECORD.                             IX2104.2
134200     MOVE "START GT RECKEY " TO FEATURE.                          IX2104.2
134300     MOVE "START-TEST-GF-09" TO PAR-NAME.                         IX2104.2
134400     IF      INIT-FLAG NOT EQUAL TO ZERO                          IX2104.2
134500             MOVE    "TEST IMPROPERLY INITIALIZED"  TO RE-MARK    IX2104.2
134600             MOVE   "**"  TO FILESTATUS (9)                       IX2104.2
134700             GO TO   START-DELETE-GF-09.                          IX2104.2
134800     MOVE    "UUUUUUVVVV400"  TO FS1-RECKEY-1-13.                 IX2104.2
134900     MOVE    "EEEEEEEEEF002ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2104.2
135000     MOVE    "WWWWWWWWWV398ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2104.2
135100     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2104.2
135200     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2104.2
135300     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2104.2
135400 START-TEST-GF-09.                                                IX2104.2
135500*                                                                 IX2104.2
135600*  START-TEST-GF-09 -  THIS TEST USES AN OPERAND IN THE           IX2104.2
135700*                    KEY PHRASE OF THE START STATEMENT WHICH IS   IX2104.2
135800*                    A DATA ITEM SUBORDINATE TO THE RECORD KEY    IX2104.2
135900*                    NAME.  THE CONTENTS OF THE DATA ITEM         IX2104.2
136000*                    (POSITIONS 1 THRU 7  OF THE RECORD KEY) IS   IX2104.2
136100*                    LOADED WITH "UUUUUUV".  THIS KEY VALUE       IX2104.2
136200*                    IS GREATER THAN ANY RECORD KEY VALUE IN      IX2104.2
136300*                    POSITION 1 THRU 7 EXISTING IN THE FILE       IX2104.2
136400*                    THEREFORE AN INVALID KEY CONDITION IS        IX2104.2
136500*                    EXPECTED WHEN THE START STATEMENT IS         IX2104.2
136600*                    EXECUTED.                                    IX2104.2
136700*                                                                 IX2104.2
136800     START   IX-FS1                                               IX2104.2
136900                    KEY IS GREATER THAN R-RECKEY-1-7              IX2104.2
137000          INVALID KEY    MOVE  FS1-STATUS TO FILESTATUS (9)       IX2104.2
137100                     GO TO START-PASS-GF-09.                      IX2104.2
137200     MOVE    FS1-STATUS TO FILESTATUS (9).                        IX2104.2
137300     READ    IX-FS1  AT END                                       IX2104.2
137400      MOVE "IX-36 ETS &     AT END PATH TAKEN ON READ" TO RE-MARK.IX2104.2
137500     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2104.2
137600     PERFORM FAIL.                                                IX2104.2
137700     MOVE    XRECORD-KEY (1)  TO COMPUTED-A.                      IX2104.2
137800     MOVE     "INVALID KEY" TO CORRECT-A.                         IX2104.2
137900     GO TO   START-EXIT-GF-09.                                    IX2104.2
138000 START-PASS-GF-09.                                                IX2104.2
138100     PERFORM PASS.                                                IX2104.2
138200     MOVE    "INVALID KEY OK."  TO RE-MARK.                       IX2104.2
138300     GO TO   START-EXIT-GF-09.                                    IX2104.2
138400 START-DELETE-GF-09.                                              IX2104.2
138500     PERFORM DE-LETE.                                             IX2104.2
138600 START-EXIT-GF-09.                                                IX2104.2
138700     PERFORM PRINT-DETAIL.                                        IX2104.2
138800 START-TERM-GF.                                                   IX2104.2
138900     CLOSE   IX-FS1.                                              IX2104.2
139000 START-INIT-GF-10.                                                IX2104.2
139100     MOVE "FILE STATUS START:00"  TO FEATURE.                     IX2104.2
139200     MOVE "START-TEST-GF-10" TO PAR-NAME.                         IX2104.2
139300*                                                                 IX2104.2
139400*  THIS SERIES OF TESTS CHECKS THE CONTENTS OF THE FILE STATUS    IX2104.2
139500*  CAPTURED FROM THE TESTS IN START-TEST-GF-01 TO -09             IX2104.2
139600*                                                                 IX2104.2
139700 START-TEST-GF-10.                                                IX2104.2
139800     IF      FILESTATUS (1)  EQUAL TO "**"                        IX2104.2
139900             PERFORM DE-LETE                                      IX2104.2
140000             GO TO  START-WRITE-GF-10.                            IX2104.2
140100*                                                                 IX2104.2
140200*  START-TEST-GF-10  - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2104.2
140300*                    RESULTING FROM START-TEST-GF-01.  THE FILE   IX2104.2
140400*                    STATUS CONTENTS IS EXPECTED TO BE "00".      IX2104.2
140500*                                                                 IX2104.2
140600     IF      FILESTATUS (1)  EQUAL TO "00"                        IX2104.2
140700             PERFORM PASS                                         IX2104.2
140800     ELSE                                                         IX2104.2
140900         MOVE "FROM START-TEST-GF-01; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2
141000             PERFORM  FAIL                                        IX2104.2
141100             MOVE  "00"  TO CORRECT-A                             IX2104.2
141200             MOVE   FILESTATUS (1)  TO COMPUTED-A.                IX2104.2
141300 START-WRITE-GF-10.                                               IX2104.2
141400     PERFORM  PRINT-DETAIL.                                       IX2104.2
141500 START-TEST-GF-11.                                                IX2104.2
141600     MOVE "FILE STATUS START:00"  TO FEATURE.                     IX2104.2
141700     MOVE "START-TEST-GF-11" TO PAR-NAME.                         IX2104.2
141800     IF      FILESTATUS (2)  EQUAL TO "**"                        IX2104.2
141900             PERFORM DE-LETE                                      IX2104.2
142000             GO TO  START-WRITE-GF-11.                            IX2104.2
142100*                                                                 IX2104.2
142200*  START-TEST-GF-02  - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2104.2
142300*                    RESULTING FROM START-TEST-003.02. THE FILE   IX2104.2
142400*                    STATUS CONTENTS IS EXPECTED TO BE "00"       IX2104.2
142500*                                                                 IX2104.2
142600     IF      FILESTATUS (2) EQUAL TO "00"                         IX2104.2
142700             PERFORM  PASS                                        IX2104.2
142800             ELSE  PERFORM  FAIL                                  IX2104.2
142900         MOVE "FROM START-TEST-GF-02; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2
143000             MOVE    "00"  TO CORRECT-A                           IX2104.2
143100             MOVE   FILESTATUS (2)  TO COMPUTED-A.                IX2104.2
143200 START-WRITE-GF-11.                                               IX2104.2
143300     PERFORM  PRINT-DETAIL.                                       IX2104.2
143400 START-TEST-GF-12.                                                IX2104.2
143500     MOVE "FILE STATUS START:00"  TO FEATURE.                     IX2104.2
143600     MOVE "START-TEST-GF-12" TO PAR-NAME.                         IX2104.2
143700     IF      FILESTATUS (3)  EQUAL TO "**"                        IX2104.2
143800             PERFORM DE-LETE                                      IX2104.2
143900             GO TO  START-WRITE-GF-12.                            IX2104.2
144000*                                                                 IX2104.2
144100*  START-TEST-GF-03  - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2104.2
144200*                    RESULTING FROM START-TEST-003.03. THE FILE   IX2104.2
144300*                    STATUS CONTENTS IS EXPECTED TO BE "00"       IX2104.2
144400*                                                                 IX2104.2
144500     IF      FILESTATUS (3) EQUAL TO "00"                         IX2104.2
144600             PERFORM  PASS                                        IX2104.2
144700             ELSE  PERFORM  FAIL                                  IX2104.2
144800         MOVE "FROM START-TEST-GF-03; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2
144900             MOVE    "00"  TO CORRECT-A                           IX2104.2
145000             MOVE   FILESTATUS (3)  TO COMPUTED-A.                IX2104.2
145100 START-WRITE-GF-12.                                               IX2104.2
145200     PERFORM  PRINT-DETAIL.                                       IX2104.2
145300 START-TEST-GF-13.                                                IX2104.2
145400     MOVE "FILE STATUS START:23"  TO FEATURE.                     IX2104.2
145500     MOVE "START-TEST-GF-13" TO PAR-NAME.                         IX2104.2
145600     IF      FILESTATUS (4)  EQUAL TO "**"                        IX2104.2
145700             PERFORM DE-LETE                                      IX2104.2
145800             GO TO  START-WRITE-GF-13.                            IX2104.2
145900*                                                                 IX2104.2
146000*  START-TEST-GF-04  - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2104.2
146100*                    RESULTING FROM START-TEST-003.04. THE FILE   IX2104.2
146200*                    STATUS CONTENTS IS EXPECTED TO BE "23".      IX2104.2
146300*                                                                 IX2104.2
146400     IF      FILESTATUS (4)  EQUAL TO "23"                        IX2104.2
146500             PERFORM  PASS                                        IX2104.2
146600             ELSE  PERFORM  FAIL                                  IX2104.2
146700         MOVE "FROM START-TEST-GF-04; IX-4 1.3.4 (3) C" TO RE-MARKIX2104.2
146800             MOVE    "23"  TO CORRECT-A                           IX2104.2
146900             MOVE   FILESTATUS (4)  TO COMPUTED-A.                IX2104.2
147000 START-WRITE-GF-13.                                               IX2104.2
147100     PERFORM  PRINT-DETAIL.                                       IX2104.2
147200 START-TEST-GF-14.                                                IX2104.2
147300     MOVE "FILE STATUS START:00"  TO FEATURE.                     IX2104.2
147400     MOVE "START-TEST-GF-14" TO PAR-NAME.                         IX2104.2
147500     IF      FILESTATUS (5)  EQUAL TO "**"                        IX2104.2
147600             PERFORM DE-LETE                                      IX2104.2
147700             GO TO  START-WRITE-GF-14.                            IX2104.2
147800*                                                                 IX2104.2
147900*  START-TEST-GF-05  - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2104.2
148000*                    RESULTING FROM START-TEST-GF-05.  THE FILE   IX2104.2
148100*                    STATUS CONTENTS IS EXPECTED TO BE "00"       IX2104.2
148200*                                                                 IX2104.2
148300     IF      FILESTATUS (5)  EQUAL TO "00"                        IX2104.2
148400             PERFORM  PASS                                        IX2104.2
148500             ELSE  PERFORM  FAIL                                  IX2104.2
148600         MOVE "FROM START-TEST-GF-05; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2
148700             MOVE    "00"  TO CORRECT-A                           IX2104.2
148800             MOVE   FILESTATUS (5)  TO COMPUTED-A.                IX2104.2
148900 START-WRITE-GF-14.                                               IX2104.2
149000     PERFORM  PRINT-DETAIL.                                       IX2104.2
149100 START-TEST-GF-15.                                                IX2104.2
149200     MOVE "FILE STATUS START:00"  TO FEATURE.                     IX2104.2
149300     MOVE "START-TEST-GF-15" TO PAR-NAME.                         IX2104.2
149400     IF      FILESTATUS (6)  EQUAL TO "**"                        IX2104.2
149500             PERFORM DE-LETE                                      IX2104.2
149600             GO TO  START-WRITE-GF-15.                            IX2104.2
149700*                                                                 IX2104.2
149800*  START-TEST-GF-15  - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2104.2
149900*                    RESULTING FROM START-TEST-GF-06.  THE FILE   IX2104.2
150000*                    STATUS CONTENTS IS EXPECTED TO BE "00"       IX2104.2
150100*                                                                 IX2104.2
150200     IF      FILESTATUS (6)  EQUAL TO "00"                        IX2104.2
150300             PERFORM  PASS                                        IX2104.2
150400             ELSE  PERFORM  FAIL                                  IX2104.2
150500         MOVE "FROM START-TEST-GF-01; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2
150600             MOVE   "00"  TO CORRECT-A                            IX2104.2
150700             MOVE   FILESTATUS (6)  TO COMPUTED-A.                IX2104.2
150800 START-WRITE-GF-15.                                               IX2104.2
150900     PERFORM  PRINT-DETAIL.                                       IX2104.2
151000 START-TEST-GF-16.                                                IX2104.2
151100     MOVE "FILE STATUS START:23"  TO FEATURE.                     IX2104.2
151200     MOVE "START-TEST-GF-16" TO PAR-NAME.                         IX2104.2
151300     IF      FILESTATUS (7)  EQUAL TO "**"                        IX2104.2
151400             PERFORM DE-LETE                                      IX2104.2
151500             GO TO  START-WRITE-GF-16.                            IX2104.2
151600*                                                                 IX2104.2
151700*  START-TEST-GF-16  - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2104.2
151800*                    RESULTING FROM START-TEST-GF-07.  THE FILE   IX2104.2
151900*                    STATUS CONTENTS IS EXPECTED TO BE "23"       IX2104.2
152000*                                                                 IX2104.2
152100     IF      FILESTATUS (7)  EQUAL TO "23"                        IX2104.2
152200             PERFORM  PASS                                        IX2104.2
152300             ELSE  PERFORM  FAIL                                  IX2104.2
152400         MOVE "FROM START-TEST-GF-07; IX-4 1.3.4 (3) C" TO RE-MARKIX2104.2
152500             MOVE    "23"  TO CORRECT-A                           IX2104.2
152600             MOVE   FILESTATUS (7)  TO COMPUTED-A.                IX2104.2
152700 START-WRITE-GF-16.                                               IX2104.2
152800       PERFORM  PRINT-DETAIL.                                     IX2104.2
152900 START-TEST-GF-17.                                                IX2104.2
153000     MOVE "FILE STATUS START:00"  TO FEATURE.                     IX2104.2
153100     MOVE "START-TEST-GF-17" TO PAR-NAME.                         IX2104.2
153200     IF      FILESTATUS (8)  EQUAL TO "**"                        IX2104.2
153300             PERFORM DE-LETE                                      IX2104.2
153400             GO TO  START-WRITE-GF-17.                            IX2104.2
153500*                                                                 IX2104.2
153600*  START-TEST-GF-17  - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2104.2
153700*                    RESULTING FROM START-TEST-GF-08.  THE FILE   IX2104.2
153800*                    STATUS CONTENTS IS EXPECTED TO BE "00"       IX2104.2
153900*                                                                 IX2104.2
154000     IF      FILESTATUS (8) EQUAL TO "00"                         IX2104.2
154100             PERFORM  PASS                                        IX2104.2
154200             ELSE  PERFORM  FAIL                                  IX2104.2
154300         MOVE "FROM START-TEST-GF-08; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2
154400             MOVE    "00"  TO CORRECT-A                           IX2104.2
154500             MOVE   FILESTATUS (8)  TO COMPUTED-A.                IX2104.2
154600 START-WRITE-GF-17.                                               IX2104.2
154700     PERFORM  PRINT-DETAIL.                                       IX2104.2
154800 START-TEST-GF-18.                                                IX2104.2
154900     MOVE "FILE STATUS START:23"  TO FEATURE.                     IX2104.2
155000     MOVE "START-TEST-GF-18" TO PAR-NAME.                         IX2104.2
155100     IF      FILESTATUS (9)  EQUAL TO "**"                        IX2104.2
155200             PERFORM DE-LETE                                      IX2104.2
155300             GO TO  START-WRITE-GF-18.                            IX2104.2
155400*                                                                 IX2104.2
155500*  START-WRITE-GF-18 - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2104.2
155600*                    RESULTING FROM START-TEST-GF-09.  THE FILE   IX2104.2
155700*                    STATUS CONTENTS IS EXPECTED TO BE "23".      IX2104.2
155800*                                                                 IX2104.2
155900     IF      FILESTATUS (9)  EQUAL TO "23"                        IX2104.2
156000             PERFORM PASS                                         IX2104.2
156100     ELSE    PERFORM FAIL                                         IX2104.2
156200         MOVE "FROM START-TEST-GF-09; IX-4 1.3.4 (3) C" TO RE-MARKIX2104.2
156300             MOVE  "23"  TO CORRECT-A                             IX2104.2
156400             MOVE   FILESTATUS (9)  TO COMPUTED-A.                IX2104.2
156500 START-WRITE-GF-18.                                               IX2104.2
156600     PERFORM  PRINT-DETAIL.                                       IX2104.2
156700                                                                  IX2104.2
156800                                                                  IX2104.2
156900 START-INIT-GF-19-0.                                              IX2104.2
157000     OPEN    INPUT  IX-FS1.                                       IX2104.2
157100     MOVE    SPACE TO HOLD-FILESTATUS-RECORD.                     IX2104.2
157200*                                                                 IX2104.2
157300* THE "START -- GREATER THAN--" IS CHECKED FOR PROPER POSITIONING IX2104.2
157400* OF THE RECORD POINTER FOR THE SUBSEQUENT READ STATEMENT.        IX2104.2
157500* START-TEST-GF  USES ONLY THE ALTERNATE RECORD KEY WITHOUT THE   IX2104.2
157600* THE DUPLICATES OPTION FOR ESTABLISHING THE CURRENT RECORD       IX2104.2
157700* POINTER FOR THE FILE.  THE FOLLOWING IS A SUMMARY OF THE TEST   IX2104.2
157800* CONDITIONS AND THE EXPECTED ACTION TO BE TAKEN FOR THE TESTS.   IX2104.2
157900*                                                                 IX2104.2
158000*                      CONDITIONS (CONTENTS OF KEY) / ACTION      IX2104.2
158100*                                                                 IX2104.2
158200*   START-TEST-GF-01  - EQUAL A RECORD IN FILE / RECORD FOUND     IX2104.2
158300*   START-TEST-GF-02  - BETWEEN 2 KEY VALUES / RECORD FOUND       IX2104.2
158400*   START-TEST-GF-03  - LESS THAN FIRST FILE REC. / REC. FOUND    IX2104.2
158500*   START-TEST-GF-04  - GREATER THAN LAST FILE RECORD / INVALID KEIX2104.2
158600*   START-TEST-GF-05 - UNEQUAL SIZE OPERANDS (EQUAL) / RECORD FOUNIX2104.2
158700*   START-TEST-GF-06 - UNEQUAL SIZE OPERANDS (EQUAL) / RECORD FOUNIX2104.2
158800*   START-TEST-GF-07 - UNEQUAL SIZE OPERANDS (UNEQUAL) / INVLD KEYIX2104.2
158900*   START-TEST-GF-08 - UNEQUAL SIZE OPERANDS (UNEQUAL) / REC FOUNDIX2104.2
159000*   START-TEST-GF-09 - UNEQUAL SIZE OPERANDS (UNEQUAL) /INVLD KEY IX2104.2
159100*                                                                 IX2104.2
159200*  BEFORE EACH TEST A RECORD IS MADE AVAILABLE WHICH IS DIFFERENT IX2104.2
159300*  THAN THE ONE WHICH IS EXPECTED TO BE PRESENT FOLLOWING A TEST. IX2104.2
159400*  IF AN INVALID KEY IS EXPECTED FROM THE TEST, THE KEYS          IX2104.2
159500*  ASSOCIATED WITH THE FILE WHICH ARE NOT PARTICIPATING IN THE    IX2104.2
159600*  START STATEMENT WILL BE LOADED WITH VALUES WHICH WOULD         IX2104.2
159700*  MATCH RECORDS IN THE FILE.  IF KEY MATCH IS EXPECTED FROM      IX2104.2
159800*  THE TEST, THE KEYS ASSOCIATED WITH THE FILE WHICH ARE NOT      IX2104.2
159900*  PARTICIPATING IN THE START STATEMENT WILL BE LOADED WITH       IX2104.2
160000*  VALUES WHICH WOULD NOT MATCH RECORDS IN THE FILE.  THE FILE    IX2104.2
160100*  STATUS FROM EXECUTION OF EACH START IS CAPTURED FOR LATER TESTSIX2104.2
160200*                                                                 IX2104.2
160300 START-INIT-GF-19.                                                IX2104.2
160400     PERFORM START-INITIALIZE-RECORD.                             IX2104.2
160500     MOVE "STR GT ALTKY W/O DUP" TO FEATURE.                      IX2104.2
160600     MOVE "START-TEST-GF-19"  TO PAR-NAME.                        IX2104.2
160700     IF      INIT-FLAG NOT EQUAL TO ZERO                          IX2104.2
160800             MOVE   "**"  TO FILESTATUS (1)                       IX2104.2
160900             MOVE   "TEST IMPROPERLY INITIALIZED" TO RE-MARK      IX2104.2
161000             GO TO START-DELETE-GF-19.                            IX2104.2
161100     MOVE    "CCCCCDDDDD022"  TO FS1-RECKEY-1-13.                 IX2104.2
161200     MOVE    "XXXXXXXXXY382ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2104.2
161300     MOVE    "EEEEEFFFFF022ALTKEY2" TO FS1-ALTKEY2-1-20.          IX2104.2
161400     MOVE    WRK-FS1-RECKEY TO IX-REC-KEY-AREA.                   IX2104.2
161500     MOVE    WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA.                 IX2104.2
161600     MOVE    WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA.                 IX2104.2
161700 START-TEST-19.                                                   IX2104.2
161800*                                                                 IX2104.2
161900*  START-TEST-GF-19  - THE START SHOULD FIND A RECORD IN THE FILE IX2104.2
162000*                    WHICH HAS AN ALTERNATE KEY VALUE OF          IX2104.2
162100*                    XXXXXXXXYY384ALTKEY1 (RECORD NUMBER 192).    IX2104.2
162200*                                                                 IX2104.2
162300     START   IX-FS1                                               IX2104.2
162400                    KEY IS GREATER THAN IX-FS1-ALTKEY1            IX2104.2
162500          INVALID KEY   MOVE FS1-STATUS TO FILESTATUS (1)         IX2104.2
162600                     MOVE  "INVALID KEY ON START" TO COMPUTED-A   IX2104.2
162700                        GO TO START-FAIL-GF-19.                   IX2104.2
162800     MOVE    FS1-STATUS TO FILESTATUS (1).                        IX2104.2
162900     READ    IX-FS1  AT END                                       IX2104.2
163000                     MOVE  "AT END ON READ" TO COMPUTED-A         IX2104.2
163100                     GO TO START-FAIL-GF-19.                      IX2104.2
163200     MOVE    IX-FS1R1-F-G-240  TO  FILE-RECORD-INFO (1).          IX2104.2
163300     IF      XRECORD-NUMBER (1)  EQUAL TO 192                     IX2104.2
163400             PERFORM PASS                                         IX2104.2
163500             MOVE SPACE TO RE-MARK                                IX2104.2
163600             GO TO START-EXIT-GF-19.                              IX2104.2
163700     MOVE    67  TO RECNO.                                        IX2104.2
163800     PERFORM DISPLAY-ALTERNATE-KEY1.                              IX2104.2
163900     MOVE     XRECORD-NUMBER (1)  TO COMPUTED-18V0.               IX2104.2
164000 START-FAIL-GF-19.                                                IX2104.2
164100     PERFORM FAIL.                                                IX2104.2
164200     MOVE    192  TO CORRECT-18V0.                                IX2104.2
164300     MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK.                 IX2104.2
164400     GO TO   START-EXIT-GF-19.                                    IX2104.2
164500 START-DELETE-GF-19.                                              IX2104.2
164600     PERFORM DE-LETE.                                             IX2104.2
164700 START-EXIT-GF-19.                                                IX2104.2
164800     PERFORM PRINT-DETAIL.                                        IX2104.2
164900 START-INIT-GF-20.                                                IX2104.2
165000     PERFORM START-INITIALIZE-RECORD.                             IX2104.2
165100     MOVE "STR GT ALTKY W/O DUP" TO FEATURE.                      IX2104.2
165200     MOVE "START-TEST-GF-20"  TO PAR-NAME.                        IX2104.2
165300     IF      INIT-FLAG NOT EQUAL TO ZERO                          IX2104.2
165400             MOVE   "**"  TO FILESTATUS (2)                       IX2104.2
165500             MOVE   "TEST IMPROPERLY INITIALIZED" TO RE-MARK      IX2104.2
165600             GO TO START-DELETE-GF-20.                            IX2104.2
165700     MOVE    "CCCCCDDDDD022"  TO FS1-RECKEY-1-13.                 IX2104.2
165800     MOVE    "HHHHHHHIII67ALTKEY1"  TO FS1-ALTKEY1-1-20.          IX2104.2
165900     MOVE    "EEEEEFFFFF022ALTKEY2" TO FS1-ALTKEY2-1-20.          IX2104.2
166000     MOVE    WRK-FS1-RECKEY TO IX-REC-KEY-AREA.                   IX2104.2
166100     MOVE    WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA.                 IX2104.2
166200     MOVE    WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA.                 IX2104.2
166300 START-TEST-GF-20.                                                IX2104.2
166400*                                                                 IX2104.2
166500*  START-TEST-GF-20  - THE START SHOULD FIND A RECORD IN THE FILE IX2104.2
166600*                    WHICH HAS AN ALTERNATE KEY VALUE OF          IX2104.2
166700*                    HHHHHHIIII068ALTKEY1 (RECORD NUMBER 34).     IX2104.2
166800*                    THE DATA ITEM WAS LOADED WITH A KEY VALUE    IX2104.2
166900*                    SEQUENTIALLY LOCATED BETWEEN TWO CURRENTLY   IX2104.2
167000*                    EXISTING ALTERNATE KEYS IN THE FILE.         IX2104.2
167100*                                                                 IX2104.2
167200     START   IX-FS1                                               IX2104.2
167300                    KEY IS GREATER THAN IX-FS1-ALTKEY1            IX2104.2
167400          INVALID KEY   MOVE FS1-STATUS TO FILESTATUS (2)         IX2104.2
167500                     MOVE  "INVALID KEY ON START" TO COMPUTED-A   IX2104.2
167600                        GO TO START-FAIL-GF-20.                   IX2104.2
167700     MOVE    FS1-STATUS TO FILESTATUS (2).                        IX2104.2
167800     READ    IX-FS1  AT END                                       IX2104.2
167900                     MOVE  "AT END ON READ" TO COMPUTED-A         IX2104.2
168000                     GO TO START-FAIL-GF-20.                      IX2104.2
168100     MOVE    IX-FS1R1-F-G-240  TO  FILE-RECORD-INFO (1).          IX2104.2
168200     IF      XRECORD-NUMBER (1)  EQUAL TO 034                     IX2104.2
168300             PERFORM PASS                                         IX2104.2
168400             MOVE SPACE TO RE-MARK                                IX2104.2
168500             GO TO START-EXIT-GF-20.                              IX2104.2
168600     MOVE    34  TO RECNO.                                        IX2104.2
168700     PERFORM DISPLAY-ALTERNATE-KEY1.                              IX2104.2
168800     MOVE     XRECORD-NUMBER (1)  TO COMPUTED-18V0.               IX2104.2
168900 START-FAIL-GF-20.                                                IX2104.2
169000     PERFORM FAIL.                                                IX2104.2
169100     MOVE    034  TO CORRECT-18V0.                                IX2104.2
169200     MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK.                 IX2104.2
169300     GO TO   START-EXIT-GF-20.                                    IX2104.2
169400 START-DELETE-GF-20.                                              IX2104.2
169500     PERFORM DE-LETE.                                             IX2104.2
169600 START-EXIT-GF-20.                                                IX2104.2
169700     PERFORM PRINT-DETAIL.                                        IX2104.2
169800 START-INIT-GF-21.                                                IX2104.2
169900     PERFORM START-INITIALIZE-RECORD.                             IX2104.2
170000     MOVE "STR GT ALTKY W/O DUP" TO FEATURE.                      IX2104.2
170100     MOVE "START-TEST-GF-21"  TO PAR-NAME.                        IX2104.2
170200     IF      INIT-FLAG NOT EQUAL TO ZERO                          IX2104.2
170300             MOVE   "**"  TO FILESTATUS (3)                       IX2104.2
170400             MOVE   "TEST IMPROPERLY INITIALIZED" TO RE-MARK      IX2104.2
170500             GO TO START-DELETE-GF-21.                            IX2104.2
170600     MOVE    "CCCCCDDDDD022"  TO FS1-RECKEY-1-13.                 IX2104.2
170700     MOVE    "EEEEEEEEEF001ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2104.2
170800     MOVE    "EEEEEFFFFF022ALTKEY2" TO FS1-ALTKEY2-1-20.          IX2104.2
170900     MOVE    WRK-FS1-RECKEY TO IX-REC-KEY-AREA.                   IX2104.2
171000     MOVE    WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA.                 IX2104.2
171100     MOVE    WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA.                 IX2104.2
171200 START-TEST-GF-21.                                                IX2104.2
171300*                                                                 IX2104.2
171400*  START-TEST-GF-21  - THE START STATEMENT SHOULD FIND A          IX2104.2
171500*                    RECORD IN THE FILE WHICH HAS AN ALTERNATE    IX2104.2
171600*                    KEY VALUE OF EEEEEEEEEF002ALTKEY1 (RECORD    IX2104.2
171700*                    NUMBER 01).  THE ALTERNATE KEY WAS LOADED    IX2104.2
171800*                    WITH A VALUE THAT IS SEQUENTIALLY LOWER      IX2104.2
171900*                    THAN ANY CURRENTLY EXISTNNG KEY IN THE FILE  IX2104.2
172000*                    BEFORE THE START WAS EXECUTED.               IX2104.2
172100*                                                                 IX2104.2
172200     START   IX-FS1                                               IX2104.2
172300                    KEY IS GREATER THAN IX-FS1-ALTKEY1            IX2104.2
172400          INVALID KEY   MOVE FS1-STATUS TO FILESTATUS (3)         IX2104.2
172500                     MOVE  "INVALID KEY ON START" TO COMPUTED-A   IX2104.2
172600                        GO TO START-FAIL-GF-21.                   IX2104.2
172700     MOVE    FS1-STATUS TO FILESTATUS (3).                        IX2104.2
172800     READ    IX-FS1  AT END                                       IX2104.2
172900                     MOVE  "AT END ON READ" TO COMPUTED-A         IX2104.2
173000                     GO TO START-FAIL-GF-21.                      IX2104.2
173100     MOVE    IX-FS1R1-F-G-240  TO  FILE-RECORD-INFO (1).          IX2104.2
173200     IF      XRECORD-NUMBER (1)  EQUAL TO 001                     IX2104.2
173300             PERFORM PASS                                         IX2104.2
173400             MOVE SPACE TO RE-MARK                                IX2104.2
173500             GO TO START-EXIT-GF-21.                              IX2104.2
173600     MOVE    01  TO RECNO.                                        IX2104.2
173700     PERFORM DISPLAY-ALTERNATE-KEY1.                              IX2104.2
173800     MOVE     XRECORD-NUMBER (1)  TO COMPUTED-18V0.               IX2104.2
173900 START-FAIL-GF-21.                                                IX2104.2
174000     PERFORM FAIL.                                                IX2104.2
174100     MOVE    001  TO CORRECT-18V0.                                IX2104.2
174200     MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK.                 IX2104.2
174300     GO TO   START-EXIT-GF-21.                                    IX2104.2
174400 START-DELETE-GF-21.                                              IX2104.2
174500     PERFORM DE-LETE.                                             IX2104.2
174600 START-EXIT-GF-21.                                                IX2104.2
174700     PERFORM PRINT-DETAIL.                                        IX2104.2
174800 START-INIT-GF-22.                                                IX2104.2
174900     PERFORM START-INITIALIZE-RECORD.                             IX2104.2
175000     MOVE "STR GT ALTKY W/O DUP" TO FEATURE.                      IX2104.2
175100     MOVE "START-TEST-GF-22"  TO PAR-NAME.                        IX2104.2
175200     IF      INIT-FLAG NOT EQUAL TO ZERO                          IX2104.2
175300             MOVE    "TEST IMPROPERLY INITIALIZED"  TO RE-MARK    IX2104.2
175400             MOVE   "**"  TO FILESTATUS (4)                       IX2104.2
175500             GO TO   START-DELETE-GF-22.                          IX2104.2
175600     MOVE    "UUUUUUUUUU400"  TO FS1-RECKEY-1-13.                 IX2104.2
175700     MOVE    "YYYYYYYYYY401ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2104.2
175800     MOVE    "DDDDDDDDDD000ALTKEY2" TO FS1-ALTKEY2-1-20.          IX2104.2
175900     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2104.2
176000     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2104.2
176100     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2104.2
176200 START-TEST-GF-22.                                                IX2104.2
176300*                                                                 IX2104.2
176400*  START-TEST-GF-04  - THE START STATEMENT SHOULD NOT FIND A      IX2104.2
176500*                    RECORD IN THE FILE WHICH HAS AN ALTERNATE    IX2104.2
176600*                    KEY VALUE OF YYYYYYYYYY401ALTKEY1.  THIS     IX2104.2
176700*                    VALUE IS SEQUENTIALLY GREATER THAN           IX2104.2
176800*                    ANY ALTERNATE KEY CURRENTLY EXISTING IN      IX2104.2
176900*                    THE FILE.  AN INVALID KEY CONDITION          IX2104.2
177000*                    IS EXPECTED WHEN THE START IS EXECUTED.      IX2104.2
177100*                                                                 IX2104.2
177200     START   IX-FS1                                               IX2104.2
177300                    KEY IS GREATER THAN IX-FS1-ALTKEY1            IX2104.2
177400          INVALID KEY    MOVE  FS1-STATUS TO FILESTATUS (4)       IX2104.2
177500                         GO TO START-PASS-GF-22.                  IX2104.2
177600     MOVE    FS1-STATUS TO FILESTATUS (4).                        IX2104.2
177700     READ    IX-FS1 AT END                                        IX2104.2
177800                     MOVE  "AT END PATH TAKEN ON READ" TO RE-MARK.IX2104.2
177900     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2104.2
178000     PERFORM FAIL.                                                IX2104.2
178100     MOVE    ALTERNATE-KEY1 (1) TO COMPUTED-A.                    IX2104.2
178200     MOVE    "INVALID KEY" TO CORRECT-A.                          IX2104.2
178300     GO TO   START-EXIT-GF-22.                                    IX2104.2
178400 START-PASS-GF-22.                                                IX2104.2
178500     PERFORM  PASS.                                               IX2104.2
178600     MOVE     "INVALID KEY OK."  TO RE-MARK.                      IX2104.2
178700     GO TO   START-EXIT-GF-22.                                    IX2104.2
178800 START-DELETE-GF-22.                                              IX2104.2
178900     PERFORM DE-LETE.                                             IX2104.2
179000 START-EXIT-GF-22.                                                IX2104.2
179100     PERFORM PRINT-DETAIL.                                        IX2104.2
179200 START-INIT-GF-23.                                                IX2104.2
179300     PERFORM START-INITIALIZE-RECORD.                             IX2104.2
179400     MOVE "STR GT ALTKY W/O DUP" TO FEATURE.                      IX2104.2
179500     MOVE "START-TEST-GF-23"  TO PAR-NAME.                        IX2104.2
179600     IF      INIT-FLAG NOT EQUAL TO ZERO                          IX2104.2
179700             MOVE    "TEST IMPROPERLY INITIALIZED"  TO RE-MARK    IX2104.2
179800             MOVE   "**"  TO FILESTATUS (5)                       IX2104.2
179900             GO TO   START-DELETE-GF-23.                          IX2104.2
180000     MOVE    "CDDDDDDDDD039"  TO FS1-RECKEY-1-13.                 IX2104.2
180100     MOVE    "GGGGHHHHHH100ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2104.2
180200     MOVE    "ABCXXXXXXX400ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2104.2
180300     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2104.2
180400     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2104.2
180500     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2104.2
180600 START-TEST-GF-23.                                                IX2104.2
180700*                                                                 IX2104.2
180800*  START-TEST-GF-23  - THE START STATEMENT USES AN OPERAND        IX2104.2
180900*                    IN THE KEY PHRASE WHICH IS NOT THE NAME      IX2104.2
181000*                    OF AN ALTERNATE KEY BUT IS THE NAME OF A     IX2104.2
181100*                    DATA ITEM WHICH IS SUBORDINATE TO THE        IX2104.2
181200*                    ALTERNATE KEY.  THE CONTENTS OF THE DATA ITEMIX2104.2
181300*                    (POSITIONS 1 THRU 6 OF THE ALTERNATE KEY)    IX2104.2
181400*                    IS A UNIQUE KEY VALUE FOR THE FILE.  THE     IX2104.2
181500*                    BALANCE OF THE KEY (POSITIONS 7 THRU 20 OF   IX2104.2
181600*                    THE ALTERNATE KEY IS NOT A VALID KEY VALUE   IX2104.2
181700*                    FOR THE FILE.  THE                           IX2104.2
181800*                    RECORD WITH THE ALTERNATE KEY "GGGHHHHHHH054 IX2104.2
181900*                    ALTKEY1 (RECORD NUMBER 27) IS EXPECTED TO    IX2104.2
182000*                    BE FOUND.                                    IX2104.2
182100*                                                                 IX2104.2
182200     START   IX-FS1                                               IX2104.2
182300                    KEY IS GREATER THAN R-ALTKEY1-1-6             IX2104.2
182400          INVALID KEY    MOVE  FS1-STATUS TO FILESTATUS (5)       IX2104.2
182500                     MOVE  "INVALID KEY ON START" TO COMPUTED-A   IX2104.2
182600                     GO TO START-FAIL-GF-23.                      IX2104.2
182700     MOVE    FS1-STATUS TO FILESTATUS (5).                        IX2104.2
182800     READ    IX-FS1  AT END                                       IX2104.2
182900                     MOVE  "AT END ON READ" TO COMPUTED-A         IX2104.2
183000                     GO TO  START-FAIL-GF-23.                     IX2104.2
183100     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2104.2
183200     IF      XRECORD-NUMBER (1)  EQUAL TO 27                      IX2104.2
183300             PERFORM  PASS                                        IX2104.2
183400             MOVE  "SUBORDINATE DATA ITEM OF KEY" TO RE-MARK      IX2104.2
183500             GO TO START-EXIT-GF-23.                              IX2104.2
183600     MOVE    27  TO RECNO.                                        IX2104.2
183700     PERFORM DISPLAY-ALTERNATE-KEY1.                              IX2104.2
183800     MOVE    XRECORD-NUMBER (1)  TO COMPUTED-18V0.                IX2104.2
183900 START-FAIL-GF-23.                                                IX2104.2
184000     PERFORM  FAIL.                                               IX2104.2
184100     MOVE    27  TO CORRECT-18V0.                                 IX2104.2
184200     MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK.                 IX2104.2
184300     GO TO   START-EXIT-GF-23.                                    IX2104.2
184400 START-DELETE-GF-23.                                              IX2104.2
184500     PERFORM DE-LETE.                                             IX2104.2
184600 START-EXIT-GF-23.                                                IX2104.2
184700     PERFORM PRINT-DETAIL.                                        IX2104.2
184800 START-INIT-GF-24.                                                IX2104.2
184900     PERFORM START-INITIALIZE-RECORD.                             IX2104.2
185000     MOVE "STR GT ALTKY W/O DUP" TO FEATURE.                      IX2104.2
185100     MOVE "START-TEST-GF-24"  TO PAR-NAME.                        IX2104.2
185200     IF INIT-FLAG NOT EQUAL  TO ZERO                              IX2104.2
185300             MOVE    "TEST IMPROPERLY INITIALIZED"  TO RE-MARK    IX2104.2
185400             MOVE   "**"  TO FILESTATUS (6)                       IX2104.2
185500             GO TO   START-DELETE-GF-24.                          IX2104.2
185600     MOVE    "YYYYYUUUUU390"  TO FS1-RECKEY-1-13.                 IX2104.2
185700     MOVE    "XXXXXXXXXX380ALTKEY1" TO FS1-ALTKEY1-1-20.          IX2104.2
185800     MOVE    "WWWWWWWWWV399ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2104.2
185900     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2104.2
186000     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2104.2
186100     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2104.2
186200 START-TEST-GF-24.                                                IX2104.2
186300*                                                                 IX2104.2
186400*  START-TEST-GF-24  - THE START STATEMENT USES AN OPERAND IN THE IX2104.2
186500*                    KEY PHRASE WHICH IS NOT THE NAME OF AN       IX2104.2
186600*                    ALTERNATE KEY BUT IS THE NAME OF A DATA ITEM IX2104.2
186700*                    THAT IS SUBORDINATE TO THE KEY.  THE CONTENTSIX2104.2
186800*                    OF THE DATA ITEM (POSITIONS 1 THRU 5 OF THE  IX2104.2
186900*                    ALTERNATE KEY) IS A DUPLICATE OF THE FIRST   IX2104.2
187000*                    5 POSITIONS OF 5 OTHER RECORDS IN THE FILE.  IX2104.2
187100*                    THIS TEST EXPECTS THE RECORD POINTER         IX2104.2
187200*                    TO BE POSITIONED TO RECORD KEY XXXXYYYYYY392 IX2104.2
187300*                    ALTKEY1 (RECORD NUMBER 196) WHICH WAS THE    IX2104.2
187400*                    RECORD WRITTEN AFTER THE LAST RECORD THAT    IX2104.2
187500*                    CONTAINS XXXXX IN THE FIRST 5 POSITIONS OF   IX2104.2
187600*                  THE KEY.  THE ALTERNATE KEY WAS LOADED WITH THEIX2104.2
187700*                    VALUE XXXXXXXXXX380ALTKEY1 (KEY FOR RECORD   IX2104.2
187800*                    NUMBER 190) BEFORE THE START WAS EXECUTED.   IX2104.2
187900*                                                                 IX2104.2
188000     START   IX-FS1                                               IX2104.2
188100                    KEY IS GREATER THAN IX-FS1-ALTKEY1-1-5        IX2104.2
188200                     INVALID KEY                                  IX2104.2
188300                         MOVE  FS1-STATUS TO FILESTATUS (6)       IX2104.2
188400                     MOVE  "INVALID KEY ON START"  TO COMPUTED-A  IX2104.2
188500                     GO TO START-FAIL-GF-24.                      IX2104.2
188600     MOVE    FS1-STATUS TO FILESTATUS (6).                        IX2104.2
188700     READ    IX-FS1  AT END                                       IX2104.2
188800                     MOVE "AT END ON READ" TO COMPUTED-A          IX2104.2
188900                     GO TO START-FAIL-GF-24.                      IX2104.2
189000     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2104.2
189100     IF      XRECORD-NUMBER (1) EQUAL TO 196                      IX2104.2
189200             PERFORM  PASS                                        IX2104.2
189300             MOVE  "SUBORDINATE DATA ITEM IN KEY"  TO RE-MARK     IX2104.2
189400             GO TO START-EXIT-GF-24.                              IX2104.2
189500     MOVE    71  TO RECNO.                                        IX2104.2
189600     PERFORM DISPLAY-ALTERNATE-KEY1.                              IX2104.2
189700     MOVE    XRECORD-NUMBER (1)  TO COMPUTED-18V0.                IX2104.2
189800 START-FAIL-GF-24.                                                IX2104.2
189900     PERFORM  FAIL.                                               IX2104.2
190000     MOVE    196  TO CORRECT-18V0.                                IX2104.2
190100     MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK.                 IX2104.2
190200     GO TO   START-EXIT-GF-24.                                    IX2104.2
190300 START-DELETE-GF-24.                                              IX2104.2
190400     PERFORM DE-LETE.                                             IX2104.2
190500 START-EXIT-GF-24.                                                IX2104.2
190600     PERFORM PRINT-DETAIL.                                        IX2104.2
190700 START-INIT-GF-25.                                                IX2104.2
190800     PERFORM START-INITIALIZE-RECORD.                             IX2104.2
190900     MOVE "STR GT ALTKY W/O DUP" TO FEATURE.                      IX2104.2
191000     MOVE "START-TEST-GF-25"  TO PAR-NAME.                        IX2104.2
191100     IF INIT-FLAG NOT EQUAL TO ZERO                               IX2104.2
191200             MOVE    "TEST IMPROPERLY INITIALIZED"  TO RE-MARK    IX2104.2
191300             MOVE   "**"  TO FILESTATUS (7)                       IX2104.2
191400             GO TO   START-DELETE-GF-25.                          IX2104.2
191500     MOVE    "CCCCCCCCCD022"  TO FS1-RECKEY-1-13.                 IX2104.2
191600     MOVE    "YYYYYYYYYY400ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2104.2
191700     MOVE    "VVVVVVVVVV380ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2104.2
191800     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2104.2
191900     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2104.2
192000     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2104.2
192100 START-TEST-GF-25.                                                IX2104.2
192200*                                                                 IX2104.2
192300*  START-TEST-GF-25  - THE START STATEMENT USES AN OPERAND IN THE IX2104.2
192400*                    KEY PHRASE OF THE START STATEMENT WHICH IS   IX2104.2
192500*                    A DATA ITEM SUBORDINATE TO THE ALTERNATE KEY IX2104.2
192600*                    NAME.  THE CONTENTS OF THE DATA ITEM         IX2104.2
192700*                    POSITIONS 1 THRU 6 OF THE ALTERNATE KEY)     IX2104.2
192800*                    IS LOADED WITH YYYYYY WHICH IS THE KEY VALUE IX2104.2
192900*                    OF THE LAST RECORD IN THE FILE.  THERE SHOULDIX2104.2
193000*                    BE NO RECORD IN THE FILE WITH A KEY VALUE    IX2104.2
193100*                    GREATER THUS AN INVALID KEY IS EXPECTED      IX2104.2
193200*                    WHEN THE START IS EXECUTED.                  IX2104.2
193300*                                                                 IX2104.2
193400     START   IX-FS1                                               IX2104.2
193500                    KEY IS GREATER THAN R-ALTKEY1-1-6             IX2104.2
193600          INVALID KEY    MOVE  FS1-STATUS TO FILESTATUS (7)       IX2104.2
193700                     GO TO START-PASS-GF-25.                      IX2104.2
193800     MOVE    FS1-STATUS TO FILESTATUS (7).                        IX2104.2
193900     READ    IX-FS1  AT END                                       IX2104.2
194000                     MOVE  "AT END PATH TAKEN ON READ" TO RE-MARK.IX2104.2
194100     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2104.2
194200     PERFORM FAIL.                                                IX2104.2
194300     MOVE "AT END PATH AND IX-36 ETC " TO RE-MARK.                IX2104.2
194400     MOVE    XRECORD-KEY (1) TO COMPUTED-A.                       IX2104.2
194500     MOVE    "INVALID KEY" TO CORRECT-A.                          IX2104.2
194600     GO TO   START-EXIT-GF-25.                                    IX2104.2
194700 START-PASS-GF-25.                                                IX2104.2
194800     PERFORM PASS.                                                IX2104.2
194900     MOVE    "INVALID KEY"  TO RE-MARK.                           IX2104.2
195000     GO TO   START-EXIT-GF-25.                                    IX2104.2
195100 START-DELETE-GF-25.                                              IX2104.2
195200     PERFORM DE-LETE.                                             IX2104.2
195300 START-EXIT-GF-25.                                                IX2104.2
195400     PERFORM PRINT-DETAIL.                                        IX2104.2
195500 START-INIT-GF-26.                                                IX2104.2
195600     PERFORM START-INITIALIZE-RECORD.                             IX2104.2
195700     MOVE "STR GT ALTKY W/O DUP" TO FEATURE.                      IX2104.2
195800     MOVE "START-TEST-GF-26"  TO PAR-NAME.                        IX2104.2
195900     IF      INIT-FLAG NOT EQUAL TO ZERO                          IX2104.2
196000             MOVE    "TEST IMPROPERLY INITIALIZED"  TO RE-MARK    IX2104.2
196100             MOVE   "**"  TO FILESTATUS (8)                       IX2104.2
196200             GO TO   START-DELETE-GF-26.                          IX2104.2
196300     MOVE    "YYYYYUUUUU390"  TO FS1-RECKEY-1-13.                 IX2104.2
196400     MOVE    "EEEEDEEEEE002ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2104.2
196500     MOVE    "WWWWWWWWWV399ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2104.2
196600     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2104.2
196700     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2104.2
196800     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2104.2
196900 START-TEST-GF-26.                                                IX2104.2
197000*                                                                 IX2104.2
197100*  START-TEST-GF-26  - THIS TEST USES AN OPERAND IN THE           IX2104.2
197200*                    KEY PHRASE OF THE START STATEMENT WHICH IS   IX2104.2
197300*                    A DATA ITEM SUBORDINATE TO THE ALTERNATE KEY IX2104.2
197400*                    NAME.  THE CONTENTS OF THE DATA ITEM         IX2104.2
197500*                    (POSITIONS 1 THRU 6 OF THE ALTERNATE KEY) IS IX2104.2
197600*                    LOADED WITH "EEEEDE".  THIS KEY VALUE        IX2104.2
197700*                    IS LOWER THAN ANY ALTERNATE KEY VALUE IN     IX2104.2
197800*                    POSITION 1 THRU 6 EXISTING IN THE FILE       IX2104.2
197900*                    THE START STATEMENT WITH THE KEY IS GREATER  IX2104.2
198000*                    THAN PHRASE IS EXECUTED AND SHOULD FIND A    IX2104.2
198100*                    RECORD WITH THE KEY VALUE "EEEEEEEEEF002     IX2104.2
198200*                    ALTKEY1 (RECORD NUMBER 01).                  IX2104.2
198300*                                                                 IX2104.2
198400     START   IX-FS1                                               IX2104.2
198500                    KEY IS GREATER THAN R-ALTKEY1-1-6             IX2104.2
198600          INVALID KEY    MOVE  FS1-STATUS TO FILESTATUS (8)       IX2104.2
198700                     MOVE  "INVALID KEY ON START"  TO COMPUTED-A  IX2104.2
198800                     GO TO START-FAIL-GF-26.                      IX2104.2
198900     MOVE    FS1-STATUS TO FILESTATUS (8).                        IX2104.2
199000     READ    IX-FS1  AT END                                       IX2104.2
199100                     MOVE "AT END ON READ" TO COMPUTED-A          IX2104.2
199200                     GO TO START-FAIL-GF-26.                      IX2104.2
199300     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2104.2
199400     IF      XRECORD-NUMBER (1) EQUAL TO 001                      IX2104.2
199500             PERFORM  PASS                                        IX2104.2
199600             MOVE  "SUBORDINATE DATA ITEM IN KEY"  TO RE-MARK     IX2104.2
199700             GO TO START-EXIT-GF-26.                              IX2104.2
199800     MOVE    01  TO RECNO.                                        IX2104.2
199900     PERFORM DISPLAY-ALTERNATE-KEY1.                              IX2104.2
200000     MOVE    XRECORD-NUMBER (1)  TO COMPUTED-18V0.                IX2104.2
200100 START-FAIL-GF-26.                                                IX2104.2
200200     PERFORM  FAIL.                                               IX2104.2
200300     MOVE    001   TO CORRECT-18V0.                               IX2104.2
200400     MOVE "RECORD NUMBER; IX-36 ETC " TO RE-MARK.                 IX2104.2
200500     GO TO   START-EXIT-GF-26.                                    IX2104.2
200600 START-DELETE-GF-26.                                              IX2104.2
200700     PERFORM DE-LETE.                                             IX2104.2
200800 START-EXIT-GF-26.                                                IX2104.2
200900     PERFORM PRINT-DETAIL.                                        IX2104.2
201000 START-INIT-GF-27.                                                IX2104.2
201100     PERFORM START-INITIALIZE-RECORD.                             IX2104.2
201200     MOVE "STR GT ALTKY W/O DUP" TO FEATURE.                      IX2104.2
201300     MOVE "START-TEST-GF-27"  TO PAR-NAME.                        IX2104.2
201400     IF      INIT-FLAG NOT EQUAL TO ZERO                          IX2104.2
201500             MOVE    "TEST IMPROPERLY INITIALIZED"  TO RE-MARK    IX2104.2
201600             MOVE   "**"  TO FILESTATUS (9)                       IX2104.2
201700             GO TO   START-DELETE-GF-27.                          IX2104.2
201800     MOVE    "UUUUUUUUUU400"  TO FS1-RECKEY-1-13.                 IX2104.2
201900     MOVE    "YYYYYZYYYY400ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2104.2
202000     MOVE    "WWWWWWWWWV398ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2104.2
202100     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2104.2
202200     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2104.2
202300     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2104.2
202400 START-TEST-GF-27.                                                IX2104.2
202500*                                                                 IX2104.2
202600*  START-TEST-GF-27  - THIS TEST USES AN OPERAND IN THE           IX2104.2
202700*                    KEY PHRASE OF THE START STATEMENT WHICH IS   IX2104.2
202800*                    A DATA ITEM SUBORDINATE TO THE ALTERNATE KEY IX2104.2
202900*                    NAME.  THE CONTENTS OF THE DATA ITEM         IX2104.2
203000*                    (POSITIONS 1 THRU 10 OF THE RECORD KEY) IS   IX2104.2
203100*                    LOADED WITH "YYYYYZYYYY". THIS KEY VALUE     IX2104.2
203200*                    IS GREATER THAN ANY ALTERNATE KEY VALUE IN   IX2104.2
203300*                    POSITION 1 THRU 10 EXISTING IN THE FILE      IX2104.2
203400*                    THEREFORE AN INVALID KEY CONDITION IS        IX2104.2
203500*                    EXPECTED WHEN THE START STATEMENT IS         IX2104.2
203600*                    EXECUTED.                                    IX2104.2
203700*                                                                 IX2104.2
203800     START   IX-FS1                                               IX2104.2
203900                    KEY IS GREATER THAN IX-FS1-ALTKEY1-1-10       IX2104.2
204000                                 INVALID KEY                      IX2104.2
204100                         MOVE  FS1-STATUS TO FILESTATUS (9)       IX2104.2
204200                     GO TO START-PASS-GF-27.                      IX2104.2
204300     MOVE    FS1-STATUS TO FILESTATUS (9).                        IX2104.2
204400     READ    IX-FS1  AT END                                       IX2104.2
204500       MOVE "IX-36 ETC.;    AT END PATH TAKEN ON READ" TO RE-MARK.IX2104.2
204600     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2104.2
204700     PERFORM FAIL.                                                IX2104.2
204800     MOVE    XRECORD-KEY (1)  TO COMPUTED-A.                      IX2104.2
204900     MOVE     "INVALID KEY" TO CORRECT-A.                         IX2104.2
205000     GO TO   START-EXIT-GF-27.                                    IX2104.2
205100 START-PASS-GF-27.                                                IX2104.2
205200     PERFORM PASS.                                                IX2104.2
205300     MOVE    "INVALID KEY OK." TO RE-MARK.                        IX2104.2
205400     GO TO   START-EXIT-GF-27.                                    IX2104.2
205500 START-DELETE-GF-27.                                              IX2104.2
205600     PERFORM DE-LETE.                                             IX2104.2
205700 START-EXIT-GF-27.                                                IX2104.2
205800     PERFORM PRINT-DETAIL.                                        IX2104.2
205900                                                                  IX2104.2
206000     CLOSE   IX-FS1.                                              IX2104.2
206100                                                                  IX2104.2
206200*                                                                 IX2104.2
206300*  THIS SERIES OF TESTS CHECKS THE CONTENTS OF THE FILE STATUS    IX2104.2
206400*  CAPTURED FROM THE TESTS IN START-TEST-005.                     IX2104.2
206500*                                                                 IX2104.2
206600 START-TEST-GF-28.                                                IX2104.2
206700     MOVE "FILE STATUS START:00"  TO FEATURE.                     IX2104.2
206800     MOVE "START-TEST-GF-28"  TO PAR-NAME.                        IX2104.2
206900     IF      FILESTATUS (1)  EQUAL TO "**"                        IX2104.2
207000             PERFORM DE-LETE                                      IX2104.2
207100             GO TO  START-WRITE-GF-28.                            IX2104.2
207200*                                                                 IX2104.2
207300*  START-TEST-GF-28  - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2104.2
207400*                    RESULTING FROM START-TEST-GF-19.  THE FILE   IX2104.2
207500*                    STATUS CONTENTS IS EXPECTED TO BE "00".      IX2104.2
207600*                                                                 IX2104.2
207700     IF      FILESTATUS (1)  EQUAL TO "00"                        IX2104.2
207800             PERFORM PASS                                         IX2104.2
207900     ELSE                                                         IX2104.2
208000         MOVE "FROM START-TEST-GF-19; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2
208100             PERFORM  FAIL                                        IX2104.2
208200             MOVE  "00"  TO CORRECT-A                             IX2104.2
208300             MOVE   FILESTATUS (1)  TO COMPUTED-A.                IX2104.2
208400 START-WRITE-GF-28.                                               IX2104.2
208500     PERFORM  PRINT-DETAIL.                                       IX2104.2
208600 START-TEST-GF-29.                                                IX2104.2
208700     MOVE "FILE STATUS START:00"  TO FEATURE.                     IX2104.2
208800     MOVE "START-TEST-GF-29"  TO PAR-NAME.                        IX2104.2
208900     IF      FILESTATUS (2)  EQUAL TO "**"                        IX2104.2
209000             PERFORM DE-LETE                                      IX2104.2
209100             GO TO  START-WRITE-GF-29.                            IX2104.2
209200*                                                                 IX2104.2
209300*  START-TEST-GF-29  - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2104.2
209400*                    RESULTING FROM START-TEST-GF-20.  THE FILE   IX2104.2
209500*                    STATUS CONTENTS IS EXPECTED TO BE "00"       IX2104.2
209600*                                                                 IX2104.2
209700     IF      FILESTATUS (2) EQUAL TO "00"                         IX2104.2
209800             PERFORM  PASS                                        IX2104.2
209900             ELSE  PERFORM  FAIL                                  IX2104.2
210000         MOVE "FROM START-TEST-GF-20; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2
210100             MOVE    "00"  TO CORRECT-A                           IX2104.2
210200             MOVE   FILESTATUS (2)  TO COMPUTED-A.                IX2104.2
210300 START-WRITE-GF-29.                                               IX2104.2
210400     PERFORM  PRINT-DETAIL.                                       IX2104.2
210500 START-TEST-GF-30.                                                IX2104.2
210600     MOVE "FILE STATUS START:00"  TO FEATURE.                     IX2104.2
210700     MOVE "START-TEST-GF-30"  TO PAR-NAME.                        IX2104.2
210800     IF      FILESTATUS (3)  EQUAL TO "**"                        IX2104.2
210900             PERFORM DE-LETE                                      IX2104.2
211000             GO TO  START-WRITE-GF-30.                            IX2104.2
211100*                                                                 IX2104.2
211200*  START-TEST-GF-30  - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2104.2
211300*                    RESULTING FROM START-TEST-GF-21.  THE FILE   IX2104.2
211400*                    STATUS CONTENTS IS EXPECTED TO BE "00"       IX2104.2
211500*                                                                 IX2104.2
211600     IF      FILESTATUS (3) EQUAL TO "00"                         IX2104.2
211700             PERFORM  PASS                                        IX2104.2
211800             ELSE  PERFORM  FAIL                                  IX2104.2
211900         MOVE "FROM START-TEST-GF-21; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2
212000             MOVE    "00"  TO CORRECT-A                           IX2104.2
212100             MOVE   FILESTATUS (3)  TO COMPUTED-A.                IX2104.2
212200 START-WRITE-GF-30.                                               IX2104.2
212300     PERFORM  PRINT-DETAIL.                                       IX2104.2
212400 START-TEST-GF-31.                                                IX2104.2
212500     MOVE "FILE STATUS START:23"  TO FEATURE.                     IX2104.2
212600     MOVE "START-TEST-GF-31"  TO PAR-NAME.                        IX2104.2
212700     IF      FILESTATUS (4)  EQUAL TO "**"                        IX2104.2
212800             PERFORM DE-LETE                                      IX2104.2
212900             GO TO  START-WRITE-GF-31.                            IX2104.2
213000*                                                                 IX2104.2
213100*  START-TEST-GF-31  - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2104.2
213200*                    RESULTING FROM START-TEST-GF-22.  THE FILE   IX2104.2
213300*                    STATUS CONTENTS IS EXPECTED TO BE "23".      IX2104.2
213400*                                                                 IX2104.2
213500     IF      FILESTATUS (4)  EQUAL TO "23"                        IX2104.2
213600             PERFORM  PASS                                        IX2104.2
213700             ELSE  PERFORM  FAIL                                  IX2104.2
213800         MOVE "FROM START-TEST-GF-22; IX-4 1.3.4 (3) C" TO RE-MARKIX2104.2
213900             MOVE    "23"  TO CORRECT-A                           IX2104.2
214000             MOVE   FILESTATUS (4)  TO COMPUTED-A.                IX2104.2
214100 START-WRITE-GF-31.                                               IX2104.2
214200     PERFORM  PRINT-DETAIL.                                       IX2104.2
214300 START-TEST-GF-32.                                                IX2104.2
214400     MOVE "FILE STATUS START:00"  TO FEATURE.                     IX2104.2
214500     MOVE "START-TEST-GF-32"  TO PAR-NAME.                        IX2104.2
214600     IF      FILESTATUS (5)  EQUAL TO "**"                        IX2104.2
214700             PERFORM DE-LETE                                      IX2104.2
214800             GO TO  START-WRITE-GF-32.                            IX2104.2
214900*                                                                 IX2104.2
215000*  START-TEST-GF.05  - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2104.2
215100*                    RESULTING FROM START-TEST-GF-23.  THE FILE   IX2104.2
215200*                    STATUS CONTENTS IS EXPECTED TO BE "00"       IX2104.2
215300*                                                                 IX2104.2
215400     IF      FILESTATUS (5)  EQUAL TO "00"                        IX2104.2
215500             PERFORM  PASS                                        IX2104.2
215600             ELSE  PERFORM  FAIL                                  IX2104.2
215700         MOVE "FROM START-TEST-GF-23; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2
215800             MOVE    "00"  TO CORRECT-A                           IX2104.2
215900             MOVE   FILESTATUS (5)  TO COMPUTED-A.                IX2104.2
216000 START-WRITE-GF-32.                                               IX2104.2
216100     PERFORM  PRINT-DETAIL.                                       IX2104.2
216200 START-TEST-GF-33.                                                IX2104.2
216300     MOVE "FILE STATUS START:00"  TO FEATURE.                     IX2104.2
216400     MOVE "START-TEST-GF-33"  TO PAR-NAME.                        IX2104.2
216500     IF      FILESTATUS (6)  EQUAL TO "**"                        IX2104.2
216600             PERFORM DE-LETE                                      IX2104.2
216700             GO TO  START-WRITE-GF-33.                            IX2104.2
216800*                                                                 IX2104.2
216900*  START-TEST-GF-33  - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2104.2
217000*                    RESULTING FROM START-TEST-GF-24.  THE FILE   IX2104.2
217100*                    STATUS CONTENTS IS EXPECTED TO BE "00"       IX2104.2
217200*                                                                 IX2104.2
217300     IF      FILESTATUS (6)  EQUAL TO "00"                        IX2104.2
217400             PERFORM  PASS                                        IX2104.2
217500             ELSE  PERFORM  FAIL                                  IX2104.2
217600         MOVE "FROM START-TEST-GF-24; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2
217700             MOVE   "00"  TO CORRECT-A                            IX2104.2
217800             MOVE   FILESTATUS (6)  TO COMPUTED-A.                IX2104.2
217900 START-WRITE-GF-33.                                               IX2104.2
218000     PERFORM  PRINT-DETAIL.                                       IX2104.2
218100 START-TEST-GF-34.                                                IX2104.2
218200     MOVE "FILE STATUS START:00"  TO FEATURE.                     IX2104.2
218300     MOVE "START-TEST-GF-34"  TO PAR-NAME.                        IX2104.2
218400     IF      FILESTATUS (7)  EQUAL TO "**"                        IX2104.2
218500             PERFORM DE-LETE                                      IX2104.2
218600             GO TO  START-WRITE-GF-34.                            IX2104.2
218700*                                                                 IX2104.2
218800*  START-TEST-GF-34  - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2104.2
218900*                    RESULTING FROM START-TEST-GF-25.  THE FILE   IX2104.2
219000*                    STATUS CONTENTS IS EXPECTED TO BE "23"       IX2104.2
219100*                                                                 IX2104.2
219200     IF      FILESTATUS (7)  EQUAL TO "23"                        IX2104.2
219300             PERFORM  PASS                                        IX2104.2
219400             ELSE  PERFORM  FAIL                                  IX2104.2
219500         MOVE "FROM START-TEST-GF-25; IX-4 1.3.4 (3) C" TO RE-MARKIX2104.2
219600             MOVE    "23"  TO CORRECT-A                           IX2104.2
219700             MOVE   FILESTATUS (7)  TO COMPUTED-A.                IX2104.2
219800 START-WRITE-GF-34.                                               IX2104.2
219900     PERFORM  PRINT-DETAIL.                                       IX2104.2
220000 START-TEST-GF-35.                                                IX2104.2
220100     MOVE "FILE STATUS START:00"  TO FEATURE.                     IX2104.2
220200     MOVE "START-TEST-GF-35"  TO PAR-NAME.                        IX2104.2
220300     IF      FILESTATUS (8)  EQUAL TO "**"                        IX2104.2
220400             PERFORM DE-LETE                                      IX2104.2
220500             GO TO  START-WRITE-GF-35.                            IX2104.2
220600*                                                                 IX2104.2
220700*  START-TEST-GF-35  - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2104.2
220800*                    RESULTING FROM START-TEST-GF-26.  THE FILE   IX2104.2
220900*                    STATUS CONTENTS IS EXPECTED TO BE "00"       IX2104.2
221000*                                                                 IX2104.2
221100     IF      FILESTATUS (8) EQUAL TO "00"                         IX2104.2
221200             PERFORM  PASS                                        IX2104.2
221300             ELSE  PERFORM  FAIL                                  IX2104.2
221400         MOVE "FROM START-TEST-GF-26; IX-3 1.3.4 (1) A" TO RE-MARKIX2104.2
221500             MOVE    "00"  TO CORRECT-A                           IX2104.2
221600             MOVE   FILESTATUS (8)  TO COMPUTED-A.                IX2104.2
221700 START-WRITE-GF-35.                                               IX2104.2
221800     PERFORM  PRINT-DETAIL.                                       IX2104.2
221900 START-TEST-GF-36.                                                IX2104.2
222000     MOVE "FILE STATUS START:23"  TO FEATURE.                     IX2104.2
222100     MOVE "START-TEST-GF-36"  TO PAR-NAME.                        IX2104.2
222200     IF      FILESTATUS (9)  EQUAL TO "**"                        IX2104.2
222300             PERFORM DE-LETE                                      IX2104.2
222400             GO TO  START-WRITE-GF-36.                            IX2104.2
222500*                                                                 IX2104.2
222600*  START-TEST-GF-36  - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2104.2
222700*                    RESULTING FROM START-TEST-GF-27.  THE FILE   IX2104.2
222800*                    STATUS CONTENTS IS EXPECTED TO BE "23".      IX2104.2
222900*                                                                 IX2104.2
223000     IF      FILESTATUS (9)  EQUAL TO "23"                        IX2104.2
223100             PERFORM PASS                                         IX2104.2
223200     ELSE    PERFORM FAIL                                         IX2104.2
223300         MOVE "FROM START-TEST-GF-27; IX-4 1.3.4 (3) C" TO RE-MARKIX2104.2
223400             MOVE  "23"  TO CORRECT-A                             IX2104.2
223500             MOVE   FILESTATUS (9)  TO COMPUTED-A.                IX2104.2
223600 START-WRITE-GF-36.                                               IX2104.2
223700     PERFORM  PRINT-DETAIL.                                       IX2104.2
223800                                                                  IX2104.2
223900                                                                  IX2104.2
224000 START-INIT-GF-SERIES.                                            IX2104.2
224100     OPEN  I-O   IX-FS1.                                          IX2104.2
224200     MOVE     "START SERIES" TO FEATURE.                          IX2104.2
224300     MOVE    "START-TEST-GF-37" TO PAR-NAME.                      IX2104.2
224400     MOVE    ZERO TO INVKEY-COUNTER.                              IX2104.2
224500*                                                                 IX2104.2
224600*    THIS TEST EXECUTES SEVERAL START STATEMENTS USING DIFFERENT  IX2104.2
224700*    KEY VALUES.  FOLLOWING EXECUTION OF THE LAST START           IX2104.2
224800*    STATEMENT THE READ STATEMENT IS EXECUTED.  THE START         IX2104.2
224900*    STATEMENT SHOULD HAVE POSITION THE RECORD POINTER            IX2104.2
225000*    SUCH THAT RECORD NUMBER 49 IS MADE AVAILABLE FOLLOWING       IX2104.2
225100*    EXECUTION OF THE READ STATEMENT.  THE KEY OF REFERENCE       IX2104.2
225200*    SHOULD BE ALTERNATE-KEY-2.                                   IX2104.2
225300*                                                                 IX2104.2
225400 START-TEST-GF-37.                                                IX2104.2
225500     MOVE    "FGGGGGGGGG098"  TO FS1-RECKEY-1-13.                 IX2104.2
225600     MOVE    "WWWWWWWXXX366ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2104.2
225700     MOVE    "RRRRRRRRRR300ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2104.2
225800     MOVE    WRK-FS1-RECKEY TO IX-REC-KEY-AREA.                   IX2104.2
225900     MOVE    WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA.                 IX2104.2
226000     MOVE    WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA.                 IX2104.2
226100     START   IX-FS1                                               IX2104.2
226200                     KEY IS EQUAL TO IX-FS1-ALTKEY2               IX2104.2
226300                       INVALID KEY ADD 1  TO INVKEY-COUNTER.      IX2104.2
226400     START   IX-FS1                                               IX2104.2
226500                      INVALID KEY  ADD  01  TO INVKEY-COUNTER.    IX2104.2
226600     START   IX-FS1                                               IX2104.2
226700                    KEY IS NOT LESS THAN R-ALTKEY1-1-6            IX2104.2
226800                       INVALID KEY ADD 1  TO INVKEY-COUNTER.      IX2104.2
226900     START   IX-FS1                                               IX2104.2
227000                     KEY IS GREATER THAN IX-FS1-ALTKEY2-1-5       IX2104.2
227100                       INVALID KEY ADD 1  TO INVKEY-COUNTER.      IX2104.2
227200     READ    IX-FS1  AT END                                       IX2104.2
227300                     MOVE  "AT END ON READ"  TO COMPUTED-A        IX2104.2
227400                     GO TO  START-FAIL-GF-37.                     IX2104.2
227500     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2104.2
227600     IF      XRECORD-NUMBER (1) EQUAL TO 49                       IX2104.2
227700             PERFORM  PASS                                        IX2104.2
227800             MOVE    "MULTIPLE STARTS BEFORE READ " TO RE-MARK    IX2104.2
227900             GO TO  START-EXIT-GF-37.                             IX2104.2
228000     MOVE    49   TO RECNO.                                       IX2104.2
228100     PERFORM   DISPLAY-ALTERNATE-KEY2.                            IX2104.2
228200 START-FAIL-GF-37.                                                IX2104.2
228300     PERFORM FAIL.                                                IX2104.2
228400     MOVE    49  TO CORRECT-18V0.                                 IX2104.2
228500     MOVE "AFTER MULTIPLE STARTS; IX-36 ETC " TO RE-MARK.         IX2104.2
228600     GO TO START-EXIT-GF-37.                                      IX2104.2
228700 START-DELETE-GF-37.                                              IX2104.2
228800     PERFORM DE-LETE.                                             IX2104.2
228900 START-EXIT-GF-37.                                                IX2104.2
229000     PERFORM  PRINT-DETAIL.                                       IX2104.2
229100     CLOSE   IX-FS1.                                              IX2104.2
229200 START-CLOSE-FILES.                                               IX2104.2
229300     GO TO   START-TEST-COMPLETE.                                 IX2104.2
229400 START-INITIALIZE-RECORD.                                         IX2104.2
229500     MOVE    "**"  TO FS1-STATUS.                                 IX2104.2
229600     MOVE    "GGGGGGGGGG200" TO  FS1-RECKEY-1-13.                 IX2104.2
229700     MOVE    ZERO  TO INIT-FLAG.                                  IX2104.2
229800     MOVE    9999  TO XRECORD-NUMBER (1).                         IX2104.2
229900     MOVE    SPACE TO IX-FS1R1-F-G-240.                           IX2104.2
230000     MOVE    WRK-FS1-RECKEY TO IX-REC-KEY-AREA.                   IX2104.2
230100     START   IX-FS1                                               IX2104.2
230200                     KEY IS EQUAL TO IX-FS1-KEY                   IX2104.2
230300          INVALID KEY MOVE  1  TO INIT-FLAG.                      IX2104.2
230400     READ    IX-FS1  INTO  FILE-RECORD-INFO (1)                   IX2104.2
230500                     AT END  MOVE  1 TO INIT-FLAG.                IX2104.2
230600     IF      XRECORD-NUMBER (1) NOT EQUAL TO 100                  IX2104.2
230700             MOVE 1 TO INIT-FLAG.                                 IX2104.2
230800 DISPLAY-RECORD-KEYS.                                             IX2104.2
230900     MOVE    XRECORD-KEY (1)  TO WRK-FS1-RECKEY.                  IX2104.2
231000     MOVE    FS1-RECKEY-1-13  TO COMPUTED-A.                      IX2104.2
231100     MOVE    RECKEY-VALUE (RECNO)  TO CORRECT-A.                  IX2104.2
231200     MOVE    SPACE TO P-OR-F.                                     IX2104.2
231300     MOVE    "RECORD KEY VALUES" TO RE-MARK.                      IX2104.2
231400     PERFORM PRINT-DETAIL.                                        IX2104.2
231500 DISPLAY-ALTERNATE-KEY1.                                          IX2104.2
231600     MOVE    ALTERNATE-KEY1 (1)  TO WRK-FS1-ALTKEY1.              IX2104.2
231700     MOVE    FS1-ALTKEY1-1-20  TO COMPUTED-A.                     IX2104.2
231800     MOVE    ALTKEY1-VALUE (RECNO)  TO CORRECT-A.                 IX2104.2
231900     MOVE    SPACE TO P-OR-F.                                     IX2104.2
232000     MOVE    "ALTERNATE RECORD KEY1 VALUES"  TO RE-MARK.          IX2104.2
232100     PERFORM PRINT-DETAIL.                                        IX2104.2
232200 DISPLAY-ALTERNATE-KEY2.                                          IX2104.2
232300     MOVE    ALTERNATE-KEY2 (1) TO WRK-FS1-ALTKEY2.               IX2104.2
232400     MOVE    FS1-ALTKEY2-1-20  TO COMPUTED-A.                     IX2104.2
232500     MOVE    ALTKEY2-VALUE (RECNO)  TO CORRECT-A.                 IX2104.2
232600     MOVE    SPACE TO P-OR-F.                                     IX2104.2
232700     MOVE    "ALTERNATE RECORD KEY2 VALUES"  TO RE-MARK.          IX2104.2
232800     PERFORM PRINT-DETAIL.                                        IX2104.2
232900 START-TEST-COMPLETE.                                             IX2104.2
233000     EXIT.                                                        IX2104.2
233100 CCVS-EXIT SECTION.                                               IX2104.2
233200 CCVS-999999.                                                     IX2104.2
233300     GO TO CLOSE-FILES.                                           IX2104.2