Quellcode-Bibliothek ix214a.cob

Sprache: Cobol
000100 IDENTIFICATION DIVISION.                                         IX2144.2

000200 PROGRAM-ID.                                                      IX2144.2

000300     IX214A.                                                      IX2144.2

000400****************************************************************  IX2144.2

000500*                                                              *  IX2144.2

000600*    VALIDATION FOR:-                                          *  IX2144.2

000700*                                                              *  IX2144.2

000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX2144.2

000900*                                                              *  IX2144.2

001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IX2144.2

001100*                                                              *  IX2144.2

001200****************************************************************  IX2144.2

001300*                                                              *  IX2144.2

001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  IX2144.2

001500*                                                              *  IX2144.2

001600*        X-55  - SYSTEM PRINTER NAME.                          *  IX2144.2

001700*        X-82  - SOURCE COMPUTER NAME.                         *  IX2144.2

001800*        X-83  - OBJECT COMPUTER NAME.                         *  IX2144.2

001900*                                                              *  IX2144.2

002000****************************************************************  IX2144.2

002100*         "IX214A"                                                IX2144.2

002200******************************************************************IX2144.2

002300*    THE PURPOSE OF THE  PROGRAM IS TO TEST USE OF THE            IX2144.2

002400*    START --- NOT LESS THAN --- STATEMENT USING FIRST THE PRIME  IX2144.2

002500*    RECORD KEY AND THEN WITH AN ALTERNATE RECORD KEY             IX2144.2

002600*    AS THE KEY OF REFERENCE.   THE START STATEMENT NAMES,        IX2144.2

002700*    IN ITS CONSTRUCT , EITHER THE DATA NAME SPECIFIED IN THE     IX2144.2

002800*    KEY CLAUSE OR A DATA ITEM THAT IS SUBORDINATE TO THE         IX2144.2

002900*    KEY NAME.   DIFFERENT KEY VALUES ARE USED FOR TESTING.       IX2144.2

003000*    IF A KEY VALUE IS PROVIDED WHICH MATCHES A RECORD IN THE FILEIX2144.2

003100*    WHEN THE START IS EXECUTED THEN THE RECORD IS EXPECTED TO    IX2144.2

003200*    MADE AVAILABLE BY THE SUBSEQUENT READ STATEMENT.  IF A KEY   IX2144.2

003300*    VALUE IS PROVIDED WHICH DOES NOT  MATCH ANY RECORD IN THE    IX2144.2

003400*    FILE THEN THE INVALID KEY PATH IS EXPECTED TO BE TAKEN.      IX2144.2

003500*    THE FILE STATUS CONTENTS RESULTING FROM EXECUTION OF THE     IX2144.2

003600*    START TESTS ARE SAVED AND CHECKED IN LATER TESTS.            IX2144.2

003700*                                                                 IX2144.2

003800*            REFERENCE   AMERICAN NATIONAL STANDARD               IX2144.2

003900*                        PROGRAMMING LANGUAGE COBOL, X3.23-1985.  IX2144.2

004000*                        SECTION IX, INDEX I-O, THE START         IX2144.2

004100*                        STATEMENT. PARAGRAPHS 4.7.3 (3), (4);    IX2144.2

004200*                                              4.7.4 (1), (4), (5)IX2144.2

004300*                                                        AND      IX2144.2

004400*                        THE FILE STATUS PARAGRAPH 1.3.4          IX2144.2

004500*                                                                 IX2144.2

004600*    BEFORE EXECUTION OF THE START IN EACH TEST, A RECORD IS MADE IX2144.2

004700*    AVAILABLE FROM THE FILE THAT IS DIFFERENT THAN WILL RESULT   IX2144.2

004800*    FROM THE TEST.  IF DURING THIS PROCEDURE AN INVALID KEY OCCURIX2144.2

004900*    THE TEST IS DELETED.  ALSO BEFORE EACH TEST THE RECORD KEY ISIX2144.2

005000*    LOADED WITH A KEY VALUE AND DEPENDING ON THE NATURE OF THE TEIX2144.2

005100*    THE KEY VALUE MAY OR MAY NOT BE A VALID KEY FOR THE FILE.    IX2144.2

005200*                                                                 IX2144.2

005300*    THIS PROGRAM FIRST CREATES AN  INDEXED SEQUENTIAL FILE       IX2144.2

005400*    CONTAINING TWO ALTERNATE KEYS AND  THE ONE REQUIRED RECORD   IX2144.2

005500*    KEY FOR THE FILE.  IMMEDIATELY FOLLOWING FILE CREATION THE   IX2144.2

005600*    FILE IS READ AND THE RECORDS OF THE FILE VERIFIED FOR        IX2144.2

005700*    ACCURACY.  NEXT THE TESTS ARE EXECUTED USING THE START ---   IX2144.2

005800*    NOT LESS THAN ---STATEMENT.                                  IX2144.2

005900*    THE RECORDS IN THE FILE ARE CREATED IN SEQUENTIAL ORDER BY   IX2144.2

006000*    RECORD KEY VALUE.  FOLLOWING  IS A SAMPLE OF THE DATA        IX2144.2

006100*    CONTENTS FOR THE RECORD KEY AND TWO ALTERNATE RECORD KEYS IN IX2144.2

006200*    THE FILE.                                                    IX2144.2

006300*                                                                 IX2144.2

006400*   REC-NO  RECORD-KEY      ALTERNATE-KEY-1     ALTERNATE-KEY-2   IX2144.2

006500*   ------  ----------      ---------------     ---------------   IX2144.2

006600*    001   BBBBBBBBBC002 EEEEEEEEEF000ALTKEY1 WWWWWWWWWV398ALTKEY2IX2144.2

006700*    002   BBBBBBBBCC004 EEEEEEEEFF004ALTKEY1 WWWWWWWWVV396ALTKEY2IX2144.2

006800*    003   BBBBBBBCCC006 EEEEEEEFFF006ALTKEY1 WWWWWWWVVV394ALTKEY2IX2144.2

006900*     .          .                 .                    .         IX2144.2

007000*     .          .                 .                    .         IX2144.2

007100*     .          .                 .                    .         IX2144.2

007200*    010   CCCCCCCCCC020 FFFFFFFFFF020ALTKEY1 VVVVVVVVVV380ALTKEY2IX2144.2

007300*    011   CCCCCCCCCD022 FFFFFFFFFG022ALTKEY1 VVVVVVVVVV380ALTKEY2IX2144.2

007400*    012   CCCCCCCCDD024 FFFFFFFFGG024ALTKEY1 VVVVVVVVUU376ALTKEY2IX2144.2

007500*     .          .                 .                    .         IX2144.2

007600*     .          .                 .                    .         IX2144.2

007700*     .          .                 .                    .         IX2144.2

007800*    200   UUUUUUUUUU400 YYYYYYYYYY400ALTKEY1 DDDDDDDDDD000ALTKEY2IX2144.2

007900*                                                                 IX2144.2

008000*     NOTE 1 - ALTERNATE KEY NUMBER 2 CONTAINS DUPLICATE KEYS     IX2144.2

008100*              EVERY 10TH AND 11TH RECORDS.                       IX2144.2

008200*                                                                 IX2144.2

008300*     NOTE 2 - THE FIRST 50 RECORDS AND LAST 25 RECORDS OF THE    IX2144.2

008400*    FILE FOLLOW THE ABOVE SEQUENTIAL KEY PATTERN.  FOR THE MIDDLEIX2144.2

008500*    125 RECORDS ONLY THE NUMBER PART OF THE KEYS ARE VARIED      IX2144.2

008600*    AND VARIED IN THE SEQUENCE SHOWN ABOVE.  THAT IS, RECORD-KEY IX2144.2

008700*    AND ALTERNATE-KEY-1 ARE INCREMENTED BY 2 AND THE ALTERNATE-  IX2144.2

008800*    KEY-2 IS DECREMENTED BY 2 EACH TIME A RECORD IS WRITTEN TO   IX2144.2

008900*    THE FILE.  THE FILE IS DESIGNED TO BE LARGE ENOUGH SO THAT   IX2144.2

009000*    AN I-O OPERATION IS REQUIRED FOR EACH RECORD ACCESSED FROM   IX2144.2

009100*    THE FILE.                                                    IX2144.2

009200*                                                                 IX2144.2

009300*    FILE CHARACTERISTICS ARE: FILE SIZE            = 200 RECORDS IX2144.2

009400*                              RECORD SIZE          = 240 CHARS.  IX2144.2

009500*                              RECORD KEY SIZE      = 13  CHARS.  IX2144.2

009600*                              ALTERNATE KEY 1 SIZE = 20  CHARS.  IX2144.2

009700*                              ALTERNATE KEY 2 SIZE = 20  CHARS.  IX2144.2

009800*                              ACCESS MODE          = SEQUENTIAL  IX2144.2

009900*                                                                 IX2144.2

010000*    A LIST OF COBOL ELEMENTS WITH THE PARAGRAPH NAME IN PARENTH- IX2144.2

010100*    ESIS THAT TESTS THE ELEMENT AND A SHORT DESCRIPTION OF THE   IX2144.2

010200*    TEST FOLLOWS.                                                IX2144.2

010300*                                                                 IX2144.2

010400*      PROGRAM COLLATING SEQUENCE CLAUSE. (ALL START TESTS) -     IX2144.2

010500*            THE PROGRAM COLLATING SEQUENCE CLAUSE SHOULD HAVE NO IX2144.2

010600*            EFFECT ON THE COMARAISIONS ASSOCIATED WITH THE START IX2144.2

010700*            STATEMENT.  THIS PROGRAM ASSUMES THAT THE PROGRAM    IX2144.2

010800*            COLLATING SEQUENCE CLAUSE ALSO DOES NOT IN ANY WAY   IX2144.2

010900*            EFFECT THE SEQUENTIAL ORDER OF RECORDS ACCESSED      IX2144.2

011000*            FROM OR WRITTEN TO THE FILE.                         IX2144.2

011100*      WRITE --- INVALID KEY---. (INX-TEST-001) - THIS TEST CREATEIX2144.2

011200*            A FILE OF 200 RECORDS CONTAINING ONE RECORD KEY AND  IX2144.2

011300*            TWO ALTERNATE KEYS.                                  IX2144.2

011400*      READ ---AT END ---. (INX-TEST-002) - THIS TEST READS THE   IX2144.2

011500*            FILE CREATED IN INX-TEST-001 AND VERIFIES THAT   THE IX2144.2

011600*            FILE WAS CREATED CORRECTLY.                          IX2144.2

011700*      START ---KEY NOT LESS THAN RECORD-KEY INVALID KEY ---. (INXIX2144.2

011800*            TEST-003.01 THRU INX-TEST-003.04) - THE START        IX2144.2

011900*            STATEMENT IS EXECUTED USING THE RECORD-KEY FOR THE   IX2144.2

012000*            FILE CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2144.2

012100*            RECORD IN THE FILE (.01), BETWEEN TWO EXISTING KEY   IX2144.2

012200*            VALUES (02), LESS THAN THE FIRST RECORD IN THE FILE  IX2144.2

012300*            (.03) AND NOT LESS THAN THAN THE LAST RECORD IN THE  IX2144.2

012400*            FILE (.04).                                          IX2144.2

012500*      START ---KEY NOT LESS THAN DATA-ITEM  INVALID KEY ---. (INXIX2144.2

012600*            TEST-003.05 THRU INX-TEST-003.09) - THE START        IX2144.2

012700*            STATEMENT IS EXECUTED USING A DATA ITEM WHICH IS     IX2144.2

012800*            SUBORDINATE TO  THE RECORD-KEY NAME OF THE FILE      IX2144.2

012900*            AND  CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2144.2

013000*            RECORD IN THE FILE (.05), EQUAL A VALUE PRESENT IN   IX2144.2

013100*            IN MORE THAN ONE RECORD IN THE FILE (.06),           IX2144.2

013200*            NOT EQUAL TO ANY RECORD IN THE FILE (.07, LESS THAN  IX2144.2

013300*            THE FIRST RECORD IN THE FILE (.08) AND NOT LESS THAN IX2144.2

013400*            THE LAST RECORD IN THE FILE (.09.                    IX2144.2

013500*                                                                 IX2144.2

013600*            NOTE -- IN SOME OF THE TESTS THE DATA ITEM SPECIFIED IX2144.2

013700*                    IS AN ENTRY SUBORDINATE TO A REDEFINES       IX2144.2

013800*                    ENTRY WHICH USES AS ITS OBJECT THE KEY       IX2144.2

013900*                   NAMED BY THE RECORD KEY CLAUSE.               IX2144.2

014000*                                                                 IX2144.2

014100*      FILE STATUS. (INX-TEST-004.01 THRU INX-TEST-004.09) - THESEIX2144.2

014200*            TESTS CHECK THE CONTENTS OF THE FILE STATUS RESULTINGIX2144.2

014300*            FROM THE START IN INX-TEST-003.01 THRU               IX2144.2

014400*            INX-TEST-003.09.                                     IX2144.2

014500*      START ---KEY NOT LESS THAN ALTNATE-KEY INVALID KEY --. (INXIX2144.2

014600*            TEST-005.01 THRU INX-TEST-005.04) - THE START        IX2144.2

014700*            STATEMENT IS EXECUTED USING THE ALTERNATE-KEY FOR THEIX2144.2

014800*            FILE CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2144.2

014900*            RECORD IN THE FILE (.01), BETWEEN TWO EXISTING KEY   IX2144.2

015000*            VALUES (02), LESS THAN THE FIRST RECORD IN THE FILE  IX2144.2

015100*            (.03) AND NOT LESS THAN THAN THE LAST RECORD IN THE  IX2144.2

015200*            FILE (.04).                                          IX2144.2

015300*      START ---KEY NOT LESS THAN DATA-ITEM   INVALID KEY --. (INXIX2144.2

015400*            TEST-005.05 THRU INX-TEST-005.09) - THE START        IX2144.2

015500*            STATEMENT IS EXECUTED USING A DATA ITEM WHICH IS     IX2144.2

015600*            SUBORDINATE TO THE ALTERNATE-KEY NAME OF THE FILE    IX2144.2

015700*            AND  CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2144.2

015800*            RECORD IN THE FILE (.05), EQUAL A VALUE PRESENT IN   IX2144.2

015900*            IN MORE THAN ONE RECORD IN THE FILE (.06),           IX2144.2

016000*            NOT EQUAL TO ANY RECORD IN THE FILE (.07, LESS THAN  IX2144.2

016100*            THE FIRST RECORD IN THE FILE (.08) AND NOT LESS THAN IX2144.2

016200*            THE LAST RECORD IN THE FILE (.09.                    IX2144.2

016300*                                                                 IX2144.2

016400*            NOTE -- IN SOME OF THE TESTS THE DATA ITEM SPECIFIED IX2144.2

016500*                    IS AN ENTRY SUBORDINATE TO A REDEFINES       IX2144.2

016600*                    ENTRY WHICH USES AS ITS OBJECT THE KEY       IX2144.2

016700*                   NAMED BY THE RECORD KEY CLAUSE.               IX2144.2

016800*                                                                 IX2144.2

016900*      FILE STATUS. (INX-TEST-006.01 THRU INX-TEST-006.09) - THESEIX2144.2

017000*            TESTS CHECK THE CONTENTS OF THE FILE STATUS RESULTINGIX2144.2

017100*            FROM THE START IN INX-TEST-005.01 THRU               IX2144.2

017200*            INX-TEST-005.09.                                     IX2144.2

017300*      MULTIPLE STARTS. (INX-TEST-007) -  THIS TEST EXECUTES      IX2144.2

017400*            SEVERAL START STATEMENTS FOLLOWED BY A READ STATEMENTIX2144.2

017500*            AND EXPECTS THE RECORD  DESIGNATED BY THE LAST       IX2144.2

017600*            START BE MADE AVAILABLE.                             IX2144.2

017700*                                                                 IX2144.2

017800******************************************************************IX2144.2

017900*                                                                 IX2144.2

018000 ENVIRONMENT DIVISION.                                            IX2144.2

018100 CONFIGURATION SECTION.                                           IX2144.2

018200 SOURCE-COMPUTER.                                                 IX2144.2

018300     Card0130.                                                    IX2144.2

018400 OBJECT-COMPUTER.                                                 IX2144.2

018500     Card0131                                                     IX2144.2

018600          PROGRAM COLLATING SEQUENCE IS FOR-INX-START-TEST.       IX2144.2

018700 SPECIAL-NAMES.                                                   IX2144.2

018800     ALPHABET                                                     IX2144.2

018900     FOR-INX-START-TEST IS "WVUTSRJIHGFEDCB".                     IX2144.2

019000 INPUT-OUTPUT SECTION.                                            IX2144.2

019100 FILE-CONTROL.                                                    IX2144.2

019200     SELECT RAW-DATA   ASSIGN TO                                  IX2144.2

019300     "C0098"                                                      IX2144.2

019400            ORGANIZATION IS INDEXED                               IX2144.2

019500            ACCESS MODE IS RANDOM                                 IX2144.2

019600            RECORD KEY IS RAW-DATA-KEY.                           IX2144.2

019700     SELECT PRINT-FILE ASSIGN TO                                  IX2144.2

019800     "C0085" .                                                    IX2144.2

019900     SELECT  IX-FS1                                               IX2144.2

020000     ASSIGN TO                                                    IX2144.2

020100     "C0036"                                                      IX2144.2

020200     "C0068"                                                      IX2144.2

020300        ACCESS MODE IS SEQUENTIAL                                 IX2144.2

020400        ORGANIZATION IS INDEXED                                   IX2144.2

020500        RECORD KEY IS IX-FS1-KEY                                  IX2144.2

020600        ALTERNATE RECORD KEY IS IX-FS1-ALTKEY1                    IX2144.2

020700        ALTERNATE RECORD KEY IS IX-FS1-ALTKEY2 WITH DUPLICATES    IX2144.2

020800        FILE STATUS IS FS1-STATUS.                                IX2144.2

020900 DATA DIVISION.                                                   IX2144.2

021000 FILE SECTION.                                                    IX2144.2

021100                                                                  IX2144.2

021200 FD  RAW-DATA.                                                    IX2144.2

021300                                                                  IX2144.2

021400 01  RAW-DATA-SATZ.                                               IX2144.2

021500     05  RAW-DATA-KEY        PIC X(6).                            IX2144.2

021600     05  C-DATE              PIC 9(6).                            IX2144.2

021700     05  C-TIME              PIC 9(8).                            IX2144.2

021800     05  C-NO-OF-TESTS       PIC 99.                              IX2144.2

021900     05  C-OK                PIC 999.                             IX2144.2

022000     05  C-ALL               PIC 999.                             IX2144.2

022100     05  C-FAIL              PIC 999.                             IX2144.2

022200     05  C-DELETED           PIC 999.                             IX2144.2

022300     05  C-INSPECT           PIC 999.                             IX2144.2

022400     05  C-NOTE              PIC X(13).                           IX2144.2

022500     05  C-INDENT            PIC X.                               IX2144.2

022600     05  C-ABORT             PIC X(8).                            IX2144.2

022700 FD  PRINT-FILE.                                                  IX2144.2

022800 01  PRINT-REC PICTURE X(120).                                    IX2144.2

022900 01  DUMMY-RECORD PICTURE X(120).                                 IX2144.2

023000 FD  IX-FS1                                                       IX2144.2

023100     LABEL RECORDS ARE STANDARD                                   IX2144.2

023200     DATA RECORD IS IX-FS1R1-F-G-240                              IX2144.2

023300     RECORD CONTAINS 240 CHARACTERS.                              IX2144.2

023400 01  IX-FS1R1-F-G-240.                                            IX2144.2

023500     05 IX-FS1-REC-120           PICTURE X(120).                  IX2144.2

023600     05 IX-FS1-REC-121-240.                                       IX2144.2

023700        10 FILLER                PICTURE X(8).                    IX2144.2

023800        10 IX-REC-KEY-AREA.                                       IX2144.2

023900           15 IX-FS1-KEY.                                         IX2144.2

024000              20 IX-FS1-KEY-1-10.                                 IX2144.2

024100                 25 IX-FS1-KEY-1-5      PICTURE X(5).             IX2144.2

024200                 25 IX-FS1-KEY-6-10     PICTURE X(5).             IX2144.2

024300               20 IX-FS1-KEY-11-13      PICTURE X(3).             IX2144.2

024400           15 IX-REDF-RECKEY REDEFINES IX-FS1-KEY.                IX2144.2

024500              20 R-RECKEY-1-7    PICTURE X(7).                    IX2144.2

024600              20 R-RECKEY-8-13   PICTURE X(6).                    IX2144.2

024700           15 FILLER             PICTURE X(16).                   IX2144.2

024800        10 FILLER                PICTURE X(9).                    IX2144.2

024900        10 IX-ALT-KEY1-AREA.                                      IX2144.2

025000           15 IX-FS1-ALTKEY1.                                     IX2144.2

025100              20 IX-FS1-ALTKEY1-1-10.                             IX2144.2

025200                 25 IX-FS1-ALTKEY1-1-5  PICTURE X(5).             IX2144.2

025300                 25 IX-FS1-ALTKEY1-6-10 PICTURE X(5).             IX2144.2

025400              20 IX-FS1-ALTKEY1-11-13   PICTURE X(3).             IX2144.2

025500              20 IX-FS1-ALTKEY1-14-20   PICTURE X(7).             IX2144.2

025600           15 IX-REDF-ALTKEY1 REDEFINES IX-FS1-ALTKEY1.           IX2144.2

025700              20 R-ALTKEY1-1-6   PICTURE X(6).                    IX2144.2

025800              20 R-ALTKEY1-7-10  PICTURE X(4).                    IX2144.2

025900              20 R-ALTKEY1-11-20 PICTURE X(10).                   IX2144.2

026000           15 FILLER             PICTURE X(9).                    IX2144.2

026100        10 FILLER                PICTURE X(9).                    IX2144.2

026200        10 IX-ALT-KEY2-AREA.                                      IX2144.2

026300           15 IX-FS1-ALTKEY2.                                     IX2144.2

026400              20 IX-FS1-ALTKEY2-1-10.                             IX2144.2

026500                 25 IX-FS1-ALTKEY2-1-5  PICTURE X(5).             IX2144.2

026600                 25 IX-FS1-ALTKEY2-6-10 PICTURE X(5).             IX2144.2

026700              20 IX-FS1-ALTKEY2-11-13   PICTURE X(3).             IX2144.2

026800              20 IX-FS1-ALTKEY2-14-20   PICTURE X(7).             IX2144.2

026900           15 FILLER             PICTURE X(9).                    IX2144.2

027000        10 FILLER                PICTURE X(7).                    IX2144.2

027100 WORKING-STORAGE SECTION.                                         IX2144.2

027200 01  WRK-FS1-RECKEY.                                              IX2144.2

027300     05 FS1-RECKEY-1-13.                                          IX2144.2

027400        10 FS1-RECKEY-1-10       PICTURE X(10).                   IX2144.2

027500        10 FS1-RECKEY-11-13      PICTURE 9(3).                    IX2144.2

027600     05 FILLER                   PICTURE X(16)  VALUE SPACE.      IX2144.2

027700 01  WRK-FS1-ALTKEY1.                                             IX2144.2

027800      05 FS1-ALTKEY1-1-20.                                        IX2144.2

027900       10  FS1-ALTKEY1-1-10.                                      IX2144.2

028000        15 FS1-ALTKEY1-1-5       PICTURE X(5).                    IX2144.2

028100        15 FS1-ALTKEY1-6-10      PICTURE X(5).                    IX2144.2

028200       10 FS1-ALTKEY1-11-13      PICTURE 9(3).                    IX2144.2

028300       10 FS1-ALTKEY1-14-20      PICTURE X(7).                    IX2144.2

028400     05 FILLER                   PICTURE X(9)  VALUE SPACE.       IX2144.2

028500 01  WRK-FS1-ALTKEY2.                                             IX2144.2

028600     05 FS1-ALTKEY2-1-20.                                         IX2144.2

028700        10 FS1-ALTKEY2-1-10.                                      IX2144.2

028800           15 FS1-ALTKEY2-1-5    PICTURE X(5).                    IX2144.2

028900           15 FS1-ALTKEY2-6-10   PICTURE X(5).                    IX2144.2

029000        10 FS1-ALTKEY2-11-13     PICTURE 9(3).                    IX2144.2

029100        10 FS1-ALTKEY2-14-20     PICTURE X(7).                    IX2144.2

029200     05 FILLER                   PICTURE X(9) VALUE SPACE.        IX2144.2

029300 01  RECNO                       PICTURE 9(5)  VALUE ZERO.        IX2144.2

029400 01  FS1-STATUS                  PICTURE XX   VALUE SPACE.        IX2144.2

029500 01  EXCUT-COUNTER-06V00         PICTURE 9(6) VALUE ZERO.         IX2144.2

029600 01  KEYSUB                      PICTURE 9(3) COMPUTATIONAL.      IX2144.2

029700 01  INVKEY-COUNTER              PICTURE 9(3) COMPUTATIONAL.      IX2144.2

029800 01  RECORDS-WRITTEN             PICTURE 9(3).                    IX2144.2

029900 01  RECKEY-NUM                  PICTURE 9(3).                    IX2144.2

030000 01  ALTKEY1-NUM                 PICTURE 9(3).                    IX2144.2

030100 01  ALTKEY2-NUM                 PICTURE 9(3).                    IX2144.2

030200 01  RECORD-KEY-CONTENT.                                          IX2144.2

030300     05 FILLER PIC X(53) VALUE                                    IX2144.2

030400          "BBBBBBBBBC002EEEEEEEEEF002ALTKEY1WWWWWWWWWV398ALTKEY2".IX2144.2

030500     05 FILLER PIC X(53) VALUE                                    IX2144.2

030600          "BBBBBBBBCC004EEEEEEEEFF004ALTKEY1WWWWWWWWVV396ALTKEY2".IX2144.2

030700     05 FILLER PIC X(53) VALUE                                    IX2144.2

030800          "BBBBBBBCCC006EEEEEEEFFF006ALTKEY1WWWWWWWVVV394ALTKEY2".IX2144.2

030900     05 FILLER PIC X(53) VALUE                                    IX2144.2

031000          "BBBBBBCCCC008EEEEEEFFFF008ALTKEY1WWWWWWVVVV392ALTKEY2".IX2144.2

031100     05 FILLER PIC X(53) VALUE                                    IX2144.2

031200          "BBBBBCCCCC010EEEEEFFFFF010ALTKEY1WWWWWVVVVV390ALTKEY2".IX2144.2

031300     05 FILLER PIC X(53) VALUE                                    IX2144.2

031400          "BBBBCCCCCC012EEEEFFFFFF012ALTKEY1WWWWVVVVVV388ALTKEY2".IX2144.2

031500     05 FILLER PIC X(53) VALUE                                    IX2144.2

031600          "BBBCCCCCCC014EEEFFFFFFF014ALTKEY1WWWVVVVVVV386ALTKEY2".IX2144.2

031700     05 FILLER PIC X(53) VALUE                                    IX2144.2

031800          "BBCCCCCCCC016EEFFFFFFFF016ALTKEY1WWVVVVVVVV384ALTKEY2".IX2144.2

031900     05 FILLER PIC X(53) VALUE                                    IX2144.2

032000          "BCCCCCCCCC018EFFFFFFFFF018ALTKEY1WVVVVVVVVV382ALTKEY2".IX2144.2

032100     05 FILLER PIC X(53) VALUE                                    IX2144.2

032200          "CCCCCCCCCC020FFFFFFFFFF020ALTKEY1VVVVVVVVVV380ALTKEY2".IX2144.2

032300     05 FILLER PIC X(53) VALUE                                    IX2144.2

032400          "CCCCCCCCCD022FFFFFFFFFG022ALTKEY1VVVVVVVVVV380ALTKEY2".IX2144.2

032500     05 FILLER PIC X(53) VALUE                                    IX2144.2

032600          "CCCCCCCCDD024FFFFFFFFGG024ALTKEY1VVVVVVVVUU376ALTKEY2".IX2144.2

032700     05 FILLER PIC X(53) VALUE                                    IX2144.2

032800          "CCCCCCCDDD026FFFFFFFGGG026ALTKEY1VVVVVVVUUU374ALTKEY2".IX2144.2

032900     05 FILLER PIC X(53) VALUE                                    IX2144.2

033000          "CCCCCCDDDD028FFFFFFGGGG028ALTKEY1VVVVVVUUUU372ALTKEY2".IX2144.2

033100     05 FILLER PIC X(53) VALUE                                    IX2144.2

033200          "CCCCCDDDDD030FFFFFGGGGG030ALTKEY1VVVVVUUUUU370ALTKEY2".IX2144.2

033300     05 FILLER PIC X(53) VALUE                                    IX2144.2

033400          "CCCCDDDDDD032FFFFGGGGGG032ALTKEY1VVVVUUUUUU368ALTKEY2".IX2144.2

033500     05 FILLER PIC X(53) VALUE                                    IX2144.2

033600          "CCCDDDDDDD034FFFGGGGGGG034ALTKEY1VVVUUUUUUU366ALTKEY2".IX2144.2

033700     05 FILLER PIC X(53) VALUE                                    IX2144.2

033800          "CCDDDDDDDD036FFGGGGGGGG036ALTKEY1VVUUUUUUUU364ALTKEY2".IX2144.2

033900     05 FILLER PIC X(53) VALUE                                    IX2144.2

034000          "CDDDDDDDDD038FGGGGGGGGG038ALTKEY1VUUUUUUUUU362ALTKEY2".IX2144.2

034100     05 FILLER PIC X(53) VALUE                                    IX2144.2

034200          "DDDDDDDDDD040GGGGGGGGGG040ALTKEY1UUUUUUUUUU360ALTKEY2".IX2144.2

034300     05 FILLER PIC X(53) VALUE                                    IX2144.2

034400          "DDDDDDDDDE042GGGGGGGGGH042ALTKEY1UUUUUUUUUU360ALTKEY2".IX2144.2

034500     05 FILLER PIC X(53) VALUE                                    IX2144.2

034600          "DDDDDDDDEE044GGGGGGGGHH044ALTKEY1UUUUUUUUTT356ALTKEY2".IX2144.2

034700     05 FILLER PIC X(53) VALUE                                    IX2144.2

034800          "DDDDDDDEEE046GGGGGGGHHH046ALTKEY1UUUUUUUTTT354ALTKEY2".IX2144.2

034900     05 FILLER PIC X(53) VALUE                                    IX2144.2

035000          "DDDDDDEEEE048GGGGGGHHHH048ALTKEY1UUUUUUTTTT352ALTKEY2".IX2144.2

035100     05 FILLER PIC X(53) VALUE                                    IX2144.2

035200          "DDDDDEEEEE050GGGGGHHHHH050ALTKEY1UUUUUTTTTT350ALTKEY2".IX2144.2

035300     05 FILLER PIC X(53) VALUE                                    IX2144.2

035400          "DDDDEEEEEE052GGGGHHHHHH052ALTKEY1UUUUTTTTTT348ALTKEY2".IX2144.2

035500     05 FILLER PIC X(53) VALUE                                    IX2144.2

035600          "DDDEEEEEEE054GGGHHHHHHH054ALTKEY1UUUTTTTTTT346ALTKEY2".IX2144.2

035700     05 FILLER PIC X(53) VALUE                                    IX2144.2

035800          "DDEEEEEEEE056GGHHHHHHHH056ALTKEY1UUTTTTTTTT344ALTKEY2".IX2144.2

035900     05 FILLER PIC X(53) VALUE                                    IX2144.2

036000          "DEEEEEEEEE058GHHHHHHHHH058ALTKEY1UTTTTTTTTT342ALTKEY2".IX2144.2

036100     05 FILLER PIC X(53) VALUE                                    IX2144.2

036200          "EEEEEEEEEE060HHHHHHHHHH060ALTKEY1TTTTTTTTTT340ALTKEY2".IX2144.2

036300     05 FILLER PIC X(53) VALUE                                    IX2144.2

036400          "EEEEEEEEEF062HHHHHHHHHI062ALTKEY1TTTTTTTTTT340ALTKEY2".IX2144.2

036500     05 FILLER PIC X(53) VALUE                                    IX2144.2

036600          "EEEEEEEEFF064HHHHHHHHII064ALTKEY1TTTTTTTTSS336ALTKEY2".IX2144.2

036700     05 FILLER PIC X(53) VALUE                                    IX2144.2

036800          "EEEEEEEFFF066HHHHHHHIII066ALTKEY1TTTTTTTSSS334ALTKEY2".IX2144.2

036900     05 FILLER PIC X(53) VALUE                                    IX2144.2

037000          "EEEEEEFFFF068HHHHHHIIII068ALTKEY1TTTTTTSSSS332ALTKEY2".IX2144.2

037100     05 FILLER PIC X(53) VALUE                                    IX2144.2

037200          "EEEEEFFFFF070HHHHHIIIII070ALTKEY1TTTTTSSSSS330ALTKEY2".IX2144.2

037300     05 FILLER PIC X(53) VALUE                                    IX2144.2

037400          "EEEEFFFFFF072HHHHIIIIII072ALTKEY1TTTTSSSSSS328ALTKEY2".IX2144.2

037500     05 FILLER PIC X(53) VALUE                                    IX2144.2

037600          "EEEFFFFFFF074HHHIIIIIII074ALTKEY1TTTSSSSSSS326ALTKEY2".IX2144.2

037700     05 FILLER PIC X(53) VALUE                                    IX2144.2

037800          "EEFFFFFFFF076HHIIIIIIII076ALTKEY1TTSSSSSSSS324ALTKEY2".IX2144.2

037900     05 FILLER PIC X(53) VALUE                                    IX2144.2

038000          "EFFFFFFFFF078HIIIIIIIII078ALTKEY1TSSSSSSSSS322ALTKEY2".IX2144.2

038100     05 FILLER PIC X(53) VALUE                                    IX2144.2

038200          "FFFFFFFFFF080IIIIIIIIII080ALTKEY1SSSSSSSSSS320ALTKEY2".IX2144.2

038300     05 FILLER PIC X(53) VALUE                                    IX2144.2

038400          "FFFFFFFFFG082IIIIIIIIIJ082ALTKEY1SSSSSSSSSS320ALTKEY2".IX2144.2

038500     05 FILLER PIC X(53) VALUE                                    IX2144.2

038600          "FFFFFFFFGG084IIIIIIIIJJ084ALTKEY1SSSSSSSSRR316ALTKEY2".IX2144.2

038700     05 FILLER PIC X(53) VALUE                                    IX2144.2

038800          "FFFFFFFGGG086IIIIIIIJJJ086ALTKEY1SSSSSSSRRR314ALTKEY2".IX2144.2

038900     05 FILLER PIC X(53) VALUE                                    IX2144.2

039000          "FFFFFFGGGG088IIIIIIJJJJ088ALTKEY1SSSSSSRRRR312ALTKEY2".IX2144.2

039100     05 FILLER PIC X(53) VALUE                                    IX2144.2

039200          "FFFFFGGGGG090IIIIIJJJJJ090ALTKEY1SSSSSRRRRR310ALTKEY2".IX2144.2

039300     05 FILLER PIC X(53) VALUE                                    IX2144.2

039400          "FFFFGGGGGG092IIIIJJJJJJ092ALTKEY1SSSSRRRRRR308ALTKEY2".IX2144.2

039500     05 FILLER PIC X(53) VALUE                                    IX2144.2

039600          "FFFGGGGGGG094IIIJJJJJJJ094ALTKEY1SSSRRRRRRR306ALTKEY2".IX2144.2

039700     05 FILLER PIC X(53) VALUE                                    IX2144.2

039800          "FFGGGGGGGG096IIJJJJJJJJ096ALTKEY1SSRRRRRRRR304ALTKEY2".IX2144.2

039900     05 FILLER PIC X(53) VALUE                                    IX2144.2

040000          "FGGGGGGGGG098IJJJJJJJJJ098ALTKEY1SRRRRRRRRR302ALTKEY2".IX2144.2

040100     05 FILLER PIC X(53) VALUE                                    IX2144.2

040200          "GGGGGGGGGG100JJJJJJJJJJ100ALTKEY1RRRRRRRRRR300ALTKEY2".IX2144.2

040300     05 FILLER PIC X(53) VALUE                                    IX2144.2

040400          "RRRRSSSSSS352VVVVWWWWWW352ALTKEY1GGGGFFFFFF048ALTKEY2".IX2144.2

040500     05 FILLER PIC X(53) VALUE                                    IX2144.2

040600          "RRRSSSSSSS354VVVWWWWWWW354ALTKEY1GGGFFFFFFF046ALTKEY2".IX2144.2

040700     05 FILLER PIC X(53) VALUE                                    IX2144.2

040800          "RRSSSSSSSS356VVWWWWWWWW356ALTKEY1GGFFFFFFFF044ALTKEY2".IX2144.2

040900     05 FILLER PIC X(53) VALUE                                    IX2144.2

041000          "RSSSSSSSSS358VWWWWWWWWW358ALTKEY1GFFFFFFFFF042ALTKEY2".IX2144.2

041100     05 FILLER PIC X(53) VALUE                                    IX2144.2

041200          "SSSSSSSSSS360WWWWWWWWWW360ALTKEY1FFFFFFFFFF040ALTKEY2".IX2144.2

041300     05 FILLER PIC X(53) VALUE                                    IX2144.2

041400          "SSSSSSSSST362WWWWWWWWWX362ALTKEY1FFFFFFFFFF040ALTKEY2".IX2144.2

041500     05 FILLER PIC X(53) VALUE                                    IX2144.2

041600          "SSSSSSSSTT364WWWWWWWWXX364ALTKEY1FFFFFFFFEE036ALTKEY2".IX2144.2

041700     05 FILLER PIC X(53) VALUE                                    IX2144.2

041800          "SSSSSSSTTT366WWWWWWWXXX366ALTKEY1FFFFFFFEEE034ALTKEY2".IX2144.2

041900     05 FILLER PIC X(53) VALUE                                    IX2144.2

042000          "SSSSSSTTTT368WWWWWWXXXX368ALTKEY1FFFFFFEEEE032ALTKEY2".IX2144.2

042100     05 FILLER PIC X(53) VALUE                                    IX2144.2

042200          "SSSSSTTTTT370WWWWWCard0880ALTKEY1FFFFFEEEEE030ALTKEY2".IX2144.2

042300     05 FILLER PIC X(53) VALUE                                    IX2144.2

042400          "SSSSTTTTTT372WWWWXXXXXX372ALTKEY1FFFFEEEEEE028ALTKEY2".IX2144.2

042500     05 FILLER PIC X(53) VALUE                                    IX2144.2

042600          "SSSTTTTTTT374WWWXXXXXXX374ALTKEY1FFFEEEEEEE026ALTKEY2".IX2144.2

042700     05 FILLER PIC X(53) VALUE                                    IX2144.2

042800          "SSTTTTTTTT376WWXXXXXXXX376ALTKEY1FFEEEEEEEE024ALTKEY2".IX2144.2

042900     05 FILLER PIC X(53) VALUE                                    IX2144.2

043000          "STTTTTTTTT378WXXXXXXXXX378ALTKEY1FEEEEEEEEE022ALTKEY2".IX2144.2

043100     05 FILLER PIC X(53) VALUE                                    IX2144.2

043200          "TTTTTTTTTT380XXXXXXXXXX380ALTKEY1EEEEEEEEEE020ALTKEY2".IX2144.2

043300     05 FILLER PIC X(53) VALUE                                    IX2144.2

043400          "TTTTTTTTTU382XXXXXXXXXY382ALTKEY1EEEEEEEEEE020ALTKEY2".IX2144.2

043500     05 FILLER PIC X(53) VALUE                                    IX2144.2

043600          "TTTTTTTTUU384XXXXXXXXYY384ALTKEY1EEEEEEEEDD016ALTKEY2".IX2144.2

043700     05 FILLER PIC X(53) VALUE                                    IX2144.2

043800          "TTTTTTTUUU386XXXXXXXYYY386ALTKEY1EEEEEEEDDD014ALTKEY2".IX2144.2

043900     05 FILLER PIC X(53) VALUE                                    IX2144.2

044000          "TTTTTTUUUU388XXXXXXYYYY388ALTKEY1EEEEEEDDDD012ALTKEY2".IX2144.2

044100     05 FILLER PIC X(53) VALUE                                    IX2144.2

044200          "TTTTTUUUUU390XXXXXYYYYY390ALTKEY1EEEEEDDDDD010ALTKEY2".IX2144.2

044300     05 FILLER PIC X(53) VALUE                                    IX2144.2

044400          "TTTTUUUUUU392XXXXYYYYYY392ALTKEY1EEEEDDDDDD008ALTKEY2".IX2144.2

044500     05 FILLER PIC X(53) VALUE                                    IX2144.2

044600          "TTTUUUUUUU394XXXYYYYYYY394ALTKEY1EEEDDDDDDD006ALTKEY2".IX2144.2

044700     05 FILLER PIC X(53) VALUE                                    IX2144.2

044800          "TTUUUUUUUU396XXYYYYYYYY396ALTKEY1EEDDDDDDDD004ALTKEY2".IX2144.2

044900     05 FILLER PIC X(53) VALUE                                    IX2144.2

045000          "TUUUUUUUUU398XYYYYYYYYY398ALTKEY1EDDDDDDDDD002ALTKEY2".IX2144.2

045100     05 FILLER PIC X(53) VALUE                                    IX2144.2

045200          "UUUUUUUUUU400YYYYYYYYYY400ALTKEY1DDDDDDDDDD000ALTKEY2".IX2144.2

045300 01  RECORD-KEY-DATA   REDEFINES  RECORD-KEY-CONTENT.             IX2144.2

045400     05 KEY-VALUES                  OCCURS 75  TIMES.             IX2144.2

045500       10 RECKEY-VALUE           PICTURE X(13).                   IX2144.2

045600       10 ALTKEY1-VALUE          PICTURE X(20).                   IX2144.2

045700       10 ALTKEY2-VALUE          PICTURE X(20).                   IX2144.2

045800 01  INIT-FLAG                   PICTURE 9.                       IX2144.2

045900 01  HOLD-FILESTATUS-RECORD.                                      IX2144.2

046000     05 FILESTATUS               PICTURE XX  OCCURS 10 TIMES.     IX2144.2

046100 01  FILE-RECORD-INFORMATION-REC.                                 IX2144.2

046200     03 FILE-RECORD-INFO-SKELETON.                                IX2144.2

046300        05 FILLER                 PICTURE X(48)       VALUE       IX2144.2

046400             "FILE=      ,RECORD=      /0,RECNO=000000,UPDT=00".  IX2144.2

046500        05 FILLER                 PICTURE X(46)       VALUE       IX2144.2

046600             ",ODO=0000,PGM=     ,LRECL=000000,BLKSIZ  =0000".    IX2144.2

046700        05 FILLER                 PICTURE X(26)       VALUE       IX2144.2

046800             ",LFIL=000000,ORG=  ,LBLR= ".                        IX2144.2

046900        05 FILLER                 PICTURE X(37)       VALUE       IX2144.2

047000             ",RECKEY=                             ".             IX2144.2

047100        05 FILLER                 PICTURE X(38)       VALUE       IX2144.2

047200             ",ALTKEY1=                             ".            IX2144.2

047300        05 FILLER                 PICTURE X(38)       VALUE       IX2144.2

047400             ",ALTKEY2=                             ".            IX2144.2

047500        05 FILLER                 PICTURE X(7)        VALUE SPACE.IX2144.2

047600     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              IX2144.2

047700        05 FILE-RECORD-INFO-P1-120.                               IX2144.2

047800           07 FILLER              PIC X(5).                       IX2144.2

047900           07 XFILE-NAME           PIC X(6).                      IX2144.2

048000           07 FILLER              PIC X(8).                       IX2144.2

048100           07 XRECORD-NAME         PIC X(6).                      IX2144.2

048200           07 FILLER              PIC X(1).                       IX2144.2

048300           07 REELUNIT-NUMBER     PIC 9(1).                       IX2144.2

048400           07 FILLER              PIC X(7).                       IX2144.2

048500           07 XRECORD-NUMBER       PIC 9(6).                      IX2144.2

048600           07 FILLER              PIC X(6).                       IX2144.2

048700           07 UPDATE-NUMBER       PIC 9(2).                       IX2144.2

048800           07 FILLER              PIC X(5).                       IX2144.2

048900           07 ODO-NUMBER          PIC 9(4).                       IX2144.2

049000           07 FILLER              PIC X(5).                       IX2144.2

049100           07 XPROGRAM-NAME        PIC X(5).                      IX2144.2

049200           07 FILLER              PIC X(7).                       IX2144.2

049300           07 XRECORD-LENGTH       PIC 9(6).                      IX2144.2

049400           07 FILLER              PIC X(7).                       IX2144.2

049500           07 CHARS-OR-RECORDS    PIC X(2).                       IX2144.2

049600           07 FILLER              PIC X(1).                       IX2144.2

049700           07 XBLOCK-SIZE          PIC 9(4).                      IX2144.2

049800           07 FILLER              PIC X(6).                       IX2144.2

049900           07 RECORDS-IN-FILE     PIC 9(6).                       IX2144.2

050000           07 FILLER              PIC X(5).                       IX2144.2

050100           07 XFILE-ORGANIZATION   PIC X(2).                      IX2144.2

050200           07 FILLER              PIC X(6).                       IX2144.2

050300           07 XLABEL-TYPE          PIC X(1).                      IX2144.2

050400        05 FILE-RECORD-INFO-P121-240.                             IX2144.2

050500           07 FILLER              PIC X(8).                       IX2144.2

050600           07 XRECORD-KEY          PIC X(29).                     IX2144.2

050700           07 FILLER              PIC X(9).                       IX2144.2

050800           07 ALTERNATE-KEY1      PIC X(29).                      IX2144.2

050900           07 FILLER              PIC X(9).                       IX2144.2

051000           07 ALTERNATE-KEY2      PIC X(29).                      IX2144.2

051100           07 FILLER              PIC X(7).                       IX2144.2

051200 01  TEST-RESULTS.                                                IX2144.2

051300     02 FILLER                   PIC X      VALUE SPACE.          IX2144.2

051400     02 FEATURE                  PIC X(20)  VALUE SPACE.          IX2144.2

051500     02 FILLER                   PIC X      VALUE SPACE.          IX2144.2

051600     02 P-OR-F                   PIC X(5)   VALUE SPACE.          IX2144.2

051700     02 FILLER                   PIC X      VALUE SPACE.          IX2144.2

051800     02  PAR-NAME.                                                IX2144.2

051900       03 FILLER                 PIC X(19)  VALUE SPACE.          IX2144.2

052000       03  PARDOT-X              PIC X      VALUE SPACE.          IX2144.2

052100       03 DOTVALUE               PIC 99     VALUE ZERO.           IX2144.2

052200     02 FILLER                   PIC X(8)   VALUE SPACE.          IX2144.2

052300     02 RE-MARK                  PIC X(61).                       IX2144.2

052400 01  TEST-COMPUTED.                                               IX2144.2

052500     02 FILLER                   PIC X(30)  VALUE SPACE.          IX2144.2

052600     02 FILLER                   PIC X(17)  VALUE                 IX2144.2

052700            "       COMPUTED=".                                   IX2144.2

052800     02 COMPUTED-X.                                               IX2144.2

052900     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          IX2144.2

053000     03 COMPUTED-N               REDEFINES COMPUTED-A             IX2144.2

053100                                 PIC -9(9).9(9).                  IX2144.2

053200     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         IX2144.2

053300     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     IX2144.2

053400     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     IX2144.2

053500     03       CM-18V0 REDEFINES COMPUTED-A.                       IX2144.2

053600         04 COMPUTED-18V0                    PIC -9(18).          IX2144.2

053700         04 FILLER                           PIC X.               IX2144.2

053800     03 FILLER PIC X(50) VALUE SPACE.                             IX2144.2

053900 01  TEST-CORRECT.                                                IX2144.2

054000     02 FILLER PIC X(30) VALUE SPACE.                             IX2144.2

054100     02 FILLER PIC X(17) VALUE "       CORRECT =".                IX2144.2

054200     02 CORRECT-X.                                                IX2144.2

054300     03 CORRECT-A                  PIC X(20) VALUE SPACE.         IX2144.2

054400     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      IX2144.2

054500     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         IX2144.2

054600     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     IX2144.2

054700     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     IX2144.2

054800     03      CR-18V0 REDEFINES CORRECT-A.                         IX2144.2

054900         04 CORRECT-18V0                     PIC -9(18).          IX2144.2

055000         04 FILLER                           PIC X.               IX2144.2

055100     03 FILLER PIC X(2) VALUE SPACE.                              IX2144.2

055200     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     IX2144.2

055300 01  CCVS-C-1.                                                    IX2144.2

055400     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE              PAIX2144.2

055500-    "SS  PARAGRAPH-NAME                                          IX2144.2

055600-    "       REMARKS".                                            IX2144.2

055700     02 FILLER                     PIC X(20)    VALUE SPACE.      IX2144.2

055800 01  CCVS-C-2.                                                    IX2144.2

055900     02 FILLER                     PIC X        VALUE SPACE.      IX2144.2

056000     02 FILLER                     PIC X(6)     VALUE "TESTED".   IX2144.2

056100     02 FILLER                     PIC X(15)    VALUE SPACE.      IX2144.2

056200     02 FILLER                     PIC X(4)     VALUE "FAIL".     IX2144.2

056300     02 FILLER                     PIC X(94)    VALUE SPACE.      IX2144.2

056400 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       IX2144.2

056500 01  REC-CT                        PIC 99       VALUE ZERO.       IX2144.2

056600 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       IX2144.2

056700 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       IX2144.2

056800 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       IX2144.2

056900 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       IX2144.2

057000 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       IX2144.2

057100 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       IX2144.2

057200 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      IX2144.2

057300 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       IX2144.2

057400 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     IX2144.2

057500 01  CCVS-H-1.                                                    IX2144.2

057600     02  FILLER                    PIC X(39)    VALUE SPACES.     IX2144.2

057700     02  FILLER                    PIC X(42)    VALUE             IX2144.2

057800     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 IX2144.2

057900     02  FILLER                    PIC X(39)    VALUE SPACES.     IX2144.2

058000 01  CCVS-H-2A.                                                   IX2144.2

058100   02  FILLER                        PIC X(40)  VALUE SPACE.      IX2144.2

058200   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  IX2144.2

058300   02  FILLER                        PIC XXXX   VALUE             IX2144.2

058400     "4.2 ".                                                      IX2144.2

058500   02  FILLER                        PIC X(28)  VALUE             IX2144.2

058600            " COPY - NOT FOR DISTRIBUTION".                       IX2144.2

058700   02  FILLER                        PIC X(41)  VALUE SPACE.      IX2144.2

058800                                                                  IX2144.2

058900 01  CCVS-H-2B.                                                   IX2144.2

059000   02  FILLER                        PIC X(15)  VALUE             IX2144.2

059100            "TEST RESULT OF ".                                    IX2144.2

059200   02  TEST-ID                       PIC X(9).                    IX2144.2

059300   02  FILLER                        PIC X(4)   VALUE             IX2144.2

059400            " IN ".                                               IX2144.2

059500   02  FILLER                        PIC X(12)  VALUE             IX2144.2

059600     " HIGH       ".                                              IX2144.2

059700   02  FILLER                        PIC X(22)  VALUE             IX2144.2

059800            " LEVEL VALIDATION FOR ".                             IX2144.2

059900   02  FILLER                        PIC X(58)  VALUE             IX2144.2

060000     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX2144.2

060100 01  CCVS-H-3.                                                    IX2144.2

060200     02  FILLER                      PIC X(34)  VALUE             IX2144.2

060300            " FOR OFFICIAL USE ONLY    ".                         IX2144.2

060400     02  FILLER                      PIC X(58)  VALUE             IX2144.2

060500     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IX2144.2

060600     02  FILLER                      PIC X(28)  VALUE             IX2144.2

060700            "  COPYRIGHT   1985 ".                                IX2144.2

060800 01  CCVS-E-1.                                                    IX2144.2

060900     02 FILLER                       PIC X(52)  VALUE SPACE.      IX2144.2

061000     02 FILLER  PIC X(14) VALUE IS "END OF TEST-  ".              IX2144.2

061100     02 ID-AGAIN                     PIC X(9).                    IX2144.2

061200     02 FILLER                       PIC X(45)  VALUE SPACES.     IX2144.2

061300 01  CCVS-E-2.                                                    IX2144.2

061400     02  FILLER                      PIC X(31)  VALUE SPACE.      IX2144.2

061500     02  FILLER                      PIC X(21)  VALUE SPACE.      IX2144.2

061600     02 CCVS-E-2-2.                                               IX2144.2

061700         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      IX2144.2

061800         03 FILLER                   PIC X      VALUE SPACE.      IX2144.2

061900         03 ENDER-DESC               PIC X(44)  VALUE             IX2144.2

062000            "ERRORS ENCOUNTERED".                                 IX2144.2

062100 01  CCVS-E-3.                                                    IX2144.2

062200     02  FILLER                      PIC X(22)  VALUE             IX2144.2

062300            " FOR OFFICIAL USE ONLY".                             IX2144.2

062400     02  FILLER                      PIC X(12)  VALUE SPACE.      IX2144.2

062500     02  FILLER                      PIC X(58)  VALUE             IX2144.2

062600     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX2144.2

062700     02  FILLER                      PIC X(13)  VALUE SPACE.      IX2144.2

062800     02 FILLER                       PIC X(15)  VALUE             IX2144.2

062900             " COPYRIGHT 1985".                                   IX2144.2

063000 01  CCVS-E-4.                                                    IX2144.2

063100     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      IX2144.2

063200     02 FILLER                       PIC X(4)   VALUE " OF ".     IX2144.2

063300     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      IX2144.2

063400     02 FILLER                       PIC X(40)  VALUE             IX2144.2

063500      "  TESTS WERE EXECUTED SUCCESSFULLY".                       IX2144.2

063600 01  XXINFO.                                                      IX2144.2

063700     02 FILLER                       PIC X(19)  VALUE             IX2144.2

063800            "*** INFORMATION ***".                                IX2144.2

063900     02 INFO-TEXT.                                                IX2144.2

064000       04 FILLER                     PIC X(8)   VALUE SPACE.      IX2144.2

064100       04 XXCOMPUTED                 PIC X(20).                   IX2144.2

064200       04 FILLER                     PIC X(5)   VALUE SPACE.      IX2144.2

064300       04 XXCORRECT                  PIC X(20).                   IX2144.2

064400     02 INF-ANSI-REFERENCE           PIC X(48).                   IX2144.2

064500 01  HYPHEN-LINE.                                                 IX2144.2

064600     02 FILLER  PIC IS X VALUE IS SPACE.                          IX2144.2

064700     02 FILLER  PIC IS X(65)    VALUE IS "************************IX2144.2

064800-    "*****************************************".                 IX2144.2

064900     02 FILLER  PIC IS X(54)    VALUE IS "************************IX2144.2

065000-    "******************************".                            IX2144.2

065100 01  CCVS-PGM-ID                     PIC X(9)   VALUE             IX2144.2

065200     "IX214A".                                                    IX2144.2

065300 PROCEDURE DIVISION.                                              IX2144.2

065400 CCVS1 SECTION.                                                   IX2144.2

065500 OPEN-FILES.                                                      IX2144.2

065600     OPEN I-O RAW-DATA.                                           IX2144.2

065700     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            IX2144.2

065800     READ RAW-DATA INVALID KEY GO TO END-E-1.                     IX2144.2

065900     MOVE "ABORTED " TO C-ABORT.                                  IX2144.2

066000     ADD 1 TO C-NO-OF-TESTS.                                      IX2144.2

066100     ACCEPT C-DATE  FROM DATE.                                    IX2144.2

066200     ACCEPT C-TIME  FROM TIME.                                    IX2144.2

066300     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1.             IX2144.2

066400 END-E-1.                                                         IX2144.2

066500     CLOSE RAW-DATA.                                              IX2144.2

066600     OPEN    OUTPUT PRINT-FILE.                                   IX2144.2

066700     MOVE  CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.  IX2144.2

066800     MOVE    SPACE TO TEST-RESULTS.                               IX2144.2

066900     PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.              IX2144.2

067000     MOVE    ZERO TO REC-SKL-SUB.                                 IX2144.2

067100     PERFORM CCVS-INIT-FILE 9 TIMES.                              IX2144.2

067200 CCVS-INIT-FILE.                                                  IX2144.2

067300     ADD     1 TO REC-SKL-SUB.                                    IX2144.2

067400     MOVE    FILE-RECORD-INFO-SKELETON                            IX2144.2

067500          TO FILE-RECORD-INFO (REC-SKL-SUB).                      IX2144.2

067600 CCVS-INIT-EXIT.                                                  IX2144.2

067700     GO TO CCVS1-EXIT.                                            IX2144.2

067800 CLOSE-FILES.                                                     IX2144.2

067900     OPEN I-O RAW-DATA.                                           IX2144.2

068000     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            IX2144.2

068100     READ RAW-DATA INVALID KEY GO TO END-E-2.                     IX2144.2

068200     MOVE "OK.     " TO C-ABORT.                                  IX2144.2

068300     MOVE PASS-COUNTER TO C-OK.                                   IX2144.2

068400     MOVE ERROR-HOLD   TO C-ALL.                                  IX2144.2

068500     MOVE ERROR-COUNTER TO C-FAIL.                                IX2144.2

068600     MOVE DELETE-COUNTER TO C-DELETED.                            IX2144.2

068700     MOVE INSPECT-COUNTER TO C-INSPECT.                           IX2144.2

068800     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2.             IX2144.2

068900 END-E-2.                                                         IX2144.2

069000     CLOSE RAW-DATA.                                              IX2144.2

069100     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   IX2144.2

069200 TERMINATE-CCVS.                                                  IX2144.2

069300     EXIT PROGRAM.                                                IX2144.2

069400 TERMINATE-CALL.                                                  IX2144.2

069500     STOP     RUN.                                                IX2144.2

069600 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         IX2144.2

069700 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           IX2144.2

069800 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          IX2144.2

069900 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      IX2144.2

070000     MOVE "****TEST DELETED****" TO RE-MARK.                      IX2144.2

070100 PRINT-DETAIL.                                                    IX2144.2

070200     IF REC-CT NOT EQUAL TO ZERO                                  IX2144.2

070300             MOVE "." TO PARDOT-X                                 IX2144.2

070400             MOVE REC-CT TO DOTVALUE.                             IX2144.2

070500     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      IX2144.2

070600     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               IX2144.2

070700        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 IX2144.2

070800          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 IX2144.2

070900     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              IX2144.2

071000     MOVE SPACE TO CORRECT-X.                                     IX2144.2

071100     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         IX2144.2

071200     MOVE     SPACE TO RE-MARK.                                   IX2144.2

071300 HEAD-ROUTINE.                                                    IX2144.2

071400     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IX2144.2

071500     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IX2144.2

071600     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IX2144.2

071700     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IX2144.2

071800 COLUMN-NAMES-ROUTINE.                                            IX2144.2

071900     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX2144.2

072000     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX2144.2

072100     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        IX2144.2

072200 END-ROUTINE.                                                     IX2144.2

072300     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.IX2144.2

072400 END-RTN-EXIT.                                                    IX2144.2

072500     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX2144.2

072600 END-ROUTINE-1.                                                   IX2144.2

072700      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      IX2144.2

072800      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               IX2144.2

072900      ADD PASS-COUNTER TO ERROR-HOLD.                             IX2144.2

073000*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   IX2144.2

073100      MOVE PASS-COUNTER TO CCVS-E-4-1.                            IX2144.2

073200      MOVE ERROR-HOLD TO CCVS-E-4-2.                              IX2144.2

073300      MOVE CCVS-E-4 TO CCVS-E-2-2.                                IX2144.2

073400      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           IX2144.2

073500  END-ROUTINE-12.                                                 IX2144.2

073600      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        IX2144.2

073700     IF       ERROR-COUNTER IS EQUAL TO ZERO                      IX2144.2

073800         MOVE "NO " TO ERROR-TOTAL                                IX2144.2

073900         ELSE                                                     IX2144.2

074000         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       IX2144.2

074100     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           IX2144.2

074200     PERFORM WRITE-LINE.                                          IX2144.2

074300 END-ROUTINE-13.                                                  IX2144.2

074400     IF DELETE-COUNTER IS EQUAL TO ZERO                           IX2144.2

074500         MOVE "NO " TO ERROR-TOTAL  ELSE                          IX2144.2

074600         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      IX2144.2

074700     MOVE "TEST(S) DELETED     " TO ENDER-DESC.                   IX2144.2

074800     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX2144.2

074900      IF   INSPECT-COUNTER EQUAL TO ZERO                          IX2144.2

075000          MOVE "NO " TO ERROR-TOTAL                               IX2144.2

075100      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   IX2144.2

075200      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            IX2144.2

075300      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          IX2144.2

075400     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX2144.2

075500 WRITE-LINE.                                                      IX2144.2

075600     ADD 1 TO RECORD-COUNT.                                       IX2144.2

075700     IF RECORD-COUNT GREATER 42                                   IX2144.2

075800         MOVE DUMMY-RECORD TO DUMMY-HOLD                          IX2144.2

075900         MOVE SPACE TO DUMMY-RECORD                               IX2144.2

076000         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  IX2144.2

076100         MOVE CCVS-H-1  TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    IX2144.2

076200         MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    IX2144.2

076300         MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    IX2144.2

076400         MOVE CCVS-H-3  TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    IX2144.2

076500         MOVE CCVS-C-1  TO DUMMY-RECORD PERFORM WRT-LN            IX2144.2

076600         MOVE CCVS-C-2  TO DUMMY-RECORD PERFORM WRT-LN            IX2144.2

076700         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          IX2144.2

076800         MOVE DUMMY-HOLD TO DUMMY-RECORD                          IX2144.2

076900         MOVE ZERO TO RECORD-COUNT.                               IX2144.2

077000     PERFORM WRT-LN.                                              IX2144.2

077100 WRT-LN.                                                          IX2144.2

077200     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               IX2144.2

077300     MOVE SPACE TO DUMMY-RECORD.                                  IX2144.2

077400 BLANK-LINE-PRINT.                                                IX2144.2

077500     PERFORM WRT-LN.                                              IX2144.2

077600 FAIL-ROUTINE.                                                    IX2144.2

077700     IF     COMPUTED-X NOT EQUAL TO SPACE                         IX2144.2

077800            GO TO   FAIL-ROUTINE-WRITE.                           IX2144.2

077900     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IX2144.2

078000     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IX2144.2

078100     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   IX2144.2

078200     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX2144.2

078300     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IX2144.2

078400     GO TO  FAIL-ROUTINE-EX.                                      IX2144.2

078500 FAIL-ROUTINE-WRITE.                                              IX2144.2

078600     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         IX2144.2

078700     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 IX2144.2

078800     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. IX2144.2

078900     MOVE   SPACES TO COR-ANSI-REFERENCE.                         IX2144.2

079000 FAIL-ROUTINE-EX. EXIT.                                           IX2144.2

079100 BAIL-OUT.                                                        IX2144.2

079200     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   IX2144.2

079300     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           IX2144.2

079400 BAIL-OUT-WRITE.                                                  IX2144.2

079500     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  IX2144.2

079600     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IX2144.2

079700     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX2144.2

079800     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IX2144.2

079900 BAIL-OUT-EX. EXIT.                                               IX2144.2

080000 CCVS1-EXIT.                                                      IX2144.2

080100     EXIT.                                                        IX2144.2

080200 SECT-0001-IX214A SECTION.                                        IX2144.2

080300 WRITE-INT-GF-01.                                                 IX2144.2

080400     OPEN    OUTPUT IX-FS1.                                       IX2144.2

080500     MOVE    "IX-FS1" TO XFILE-NAME           (1).                IX2144.2

080600     MOVE    "R1-F-G" TO  XRECORD-NAME        (1).                IX2144.2

080700     MOVE    ZERO     TO  XRECORD-NUMBER      (1).                IX2144.2

080800     MOVE    "RC"     TO  CHARS-OR-RECORDS    (1).                IX2144.2

080900     MOVE "IX214A"    TO  XPROGRAM-NAME       (1).                IX2144.2

081000     MOVE    240      TO  XRECORD-LENGTH      (1).                IX2144.2

081100     MOVE    001      TO  XBLOCK-SIZE         (1).                IX2144.2

081200     MOVE    "IX"     TO  XFILE-ORGANIZATION  (1).                IX2144.2

081300     MOVE    "S"      TO  XLABEL-TYPE         (1).                IX2144.2

081400     MOVE    200      TO  RECORDS-IN-FILE     (1).                IX2144.2

081500     MOVE    "CREATE-FILE-FS1" TO FEATURE.                        IX2144.2

081600     MOVE    "WRITE-TEST-GF-01" TO PAR-NAME.                      IX2144.2

081700     MOVE    ZERO TO KEYSUB.                                      IX2144.2

081800     MOVE    ZERO TO INVKEY-COUNTER.                              IX2144.2

081900 WRITE-INIT-GF-01-01.                                             IX2144.2

082000     PERFORM WRITE-TEST-GF-01-R1 50 TIMES.                        IX2144.2

082100     PERFORM WRITE-TEST-GF-01-R2 125 TIMES.                       IX2144.2

082200     PERFORM WRITE-TEST-GF-01-R1 25 TIMES.                        IX2144.2

082300     GO TO   WRITE-TEST-GF-01.                                    IX2144.2

082400 WRITE-TEST-GF-01-R1.                                             IX2144.2

082500     ADD     001  TO XRECORD-NUMBER (1).                          IX2144.2

082600     ADD     001  TO  KEYSUB.                                     IX2144.2

082700     MOVE    RECKEY-VALUE (KEYSUB) TO FS1-RECKEY-1-13.            IX2144.2

082800     MOVE    ALTKEY1-VALUE (KEYSUB) TO FS1-ALTKEY1-1-20.          IX2144.2

082900     MOVE    ALTKEY2-VALUE (KEYSUB) TO FS1-ALTKEY2-1-20.          IX2144.2

083000     MOVE    WRK-FS1-RECKEY   TO    XRECORD-KEY (1).              IX2144.2

083100     MOVE    WRK-FS1-ALTKEY1  TO ALTERNATE-KEY1 (1).              IX2144.2

083200     MOVE    WRK-FS1-ALTKEY2  TO ALTERNATE-KEY2 (1).              IX2144.2

083300     MOVE    FILE-RECORD-INFO (1)  TO IX-FS1R1-F-G-240.           IX2144.2

083400     WRITE   IX-FS1R1-F-G-240                                     IX2144.2

083500                        INVALID KEY ADD 001 TO INVKEY-COUNTER.    IX2144.2

083600     ADD     001 TO  EXCUT-COUNTER-06V00.                         IX2144.2

083700 WRITE-TEST-GF-01-R2.                                             IX2144.2

083800     ADD     002  TO FS1-RECKEY-11-13.                            IX2144.2

083900     ADD     002 TO FS1-ALTKEY1-11-13.                            IX2144.2

084000     SUBTRACT  002 FROM FS1-ALTKEY2-11-13.                        IX2144.2

084100     ADD     001  TO XRECORD-NUMBER (1).                          IX2144.2

084200     MOVE    WRK-FS1-RECKEY   TO    XRECORD-KEY (1).              IX2144.2

084300     MOVE    WRK-FS1-ALTKEY1  TO ALTERNATE-KEY1 (1).              IX2144.2

084400     MOVE    WRK-FS1-ALTKEY2  TO ALTERNATE-KEY2 (1).              IX2144.2

084500     MOVE    FILE-RECORD-INFO (1) TO IX-FS1R1-F-G-240.            IX2144.2

084600     WRITE   IX-FS1R1-F-G-240                                     IX2144.2

084700                        INVALID KEY ADD 001 TO INVKEY-COUNTER.    IX2144.2

084800     ADD     001 TO EXCUT-COUNTER-06V00.                          IX2144.2

084900 WRITE-TEST-GF-01.                                                IX2144.2

085000     SUBTRACT INVKEY-COUNTER FROM EXCUT-COUNTER-06V00             IX2144.2

085100             GIVING RECORDS-WRITTEN.                              IX2144.2

085200     MOVE    200  TO CORRECT-18V0.                                IX2144.2

085300     MOVE    RECORDS-WRITTEN TO COMPUTED-18V0.                    IX2144.2

085400     IF      RECORDS-WRITTEN EQUAL TO 200                         IX2144.2

085500             PERFORM  PASS                                        IX2144.2

085600             ELSE                                                 IX2144.2

085700             PERFORM FAIL.                                        IX2144.2

085800     MOVE    "RECORDS IN FILE" TO RE-MARK.                        IX2144.2

085900     GO TO   WRITE-TEST-GF-01-END.                                IX2144.2

086000 WRITE-DELETE-GF-01.                                              IX2144.2

086100     PERFORM DE-LETE.                                             IX2144.2

086200 WRITE-TEST-GF-01-END.                                            IX2144.2

086300     PERFORM  PRINT-DETAIL.                                       IX2144.2

086400     CLOSE   IX-FS1.                                              IX2144.2

086500                                                                  IX2144.2

086600                                                                  IX2144.2

086700 READ-INIT-F1-01.                                                 IX2144.2

086800     OPEN    INPUT  IX-FS1.                                       IX2144.2

086900     MOVE    "READ-TEST-F1-01" TO PAR-NAME.                       IX2144.2

087000     MOVE    "READ FILE IX-FS1" TO FEATURE.                       IX2144.2

087100     MOVE    ZERO TO EXCUT-COUNTER-06V00.                         IX2144.2

087200     MOVE    02   TO RECKEY-NUM.                                  IX2144.2

087300     MOVE    002 TO ALTKEY1-NUM.                                  IX2144.2

087400 READ-TEST-F1-01-R1.                                              IX2144.2

087500     READ    IX-FS1  AT END  GO TO READ-TEST-F1-01.               IX2144.2

087600     MOVE    IX-REC-KEY-AREA TO WRK-FS1-RECKEY.                   IX2144.2

087700     MOVE    IX-ALT-KEY1-AREA TO WRK-FS1-ALTKEY1.                 IX2144.2

087800     IF      FS1-RECKEY-11-13 EQUAL TO RECKEY-NUM                 IX2144.2

087900             AND FS1-ALTKEY1-11-13 EQUAL TO ALTKEY1-NUM           IX2144.2

088000             NEXT SENTENCE                                        IX2144.2

088100             ELSE                                                 IX2144.2

088200             PERFORM  READ-FAIL-F1-01.                            IX2144.2

088300     IF      EXCUT-COUNTER-06V00 NOT LESS THAN 200                IX2144.2

088400             GO TO READ-TEST-F1-01.                               IX2144.2

088500     ADD     001  TO EXCUT-COUNTER-06V00.                         IX2144.2

088600     ADD     002  TO RECKEY-NUM                                   IX2144.2

088700     ADD     002  TO ALTKEY1-NUM.                                 IX2144.2

088800     GO TO   READ-TEST-F1-01-R1.                                  IX2144.2

088900 READ-TEST-F1-01.                                                 IX2144.2

089000     IF      EXCUT-COUNTER-06V00 EQUAL TO 200                     IX2144.2

089100             PERFORM PASS ELSE                                    IX2144.2

089200             PERFORM FAIL.                                        IX2144.2

089300     MOVE    EXCUT-COUNTER-06V00 TO  COMPUTED-18V0.               IX2144.2

089400     MOVE    200  TO  CORRECT-18V0.                               IX2144.2

089500     MOVE    "RECORDS IN FILE" TO RE-MARK.                        IX2144.2

089600     GO TO   READ-WRITE-F1-01.                                    IX2144.2

089700 READ-FAIL-F1-01.                                                 IX2144.2

089800     PERFORM FAIL.                                                IX2144.2

089900     MOVE    FS1-RECKEY-11-13  TO COMPUTED-18V0.                  IX2144.2

090000     MOVE    RECKEY-NUM  TO CORRECT-18V0.                         IX2144.2

090100     MOVE    "NUM EMBEDDED IN RECKEY"  TO RE-MARK.                IX2144.2

090200 READ-WRITE-F1-01.                                                IX2144.2

090300     PERFORM PRINT-DETAIL.                                        IX2144.2

090400     CLOSE   IX-FS1.                                              IX2144.2

090500 START-INIT.                                                      IX2144.2

090600     OPEN    INPUT  IX-FS1.                                       IX2144.2

090700     MOVE    "START NLT RECKEY " TO FEATURE.                      IX2144.2

090800     MOVE "START-TEST-GF-01" TO PAR-NAME.                         IX2144.2

090900     MOVE    SPACE TO HOLD-FILESTATUS-RECORD.                     IX2144.2

091000*                                                                 IX2144.2

091100* THE "START -- NOT LESS THAN--" IS CHECKED FOR PROPER POSITIONINGIX2144.2

091200* OF THE RECORD POINTER FOR THE SUBSEQUENT READ STATEMENT.        IX2144.2

091300* START-TEST-GF- USE ONLY THE PRIME RECORD KEY FOR ESTABLISHING   IX2144.2

091400* THE CURRENT RECORD POINTER FOR THE FILE.  THE FOLLOWING IS A    IX2144.2

091500* SUMMARY OF THE TEST CONDITIONS AND THE EXPECTED ACTION TO BE    IX2144.2

091600* TAKEN FOR THE  TESTS.                                           IX2144.2

091700*                                                                 IX2144.2

091800*                      CONDITIONS (CONTENTS OF KEY) / ACTION      IX2144.2

091900*                                                                 IX2144.2

092000*   START-TEST-GF-01 - EQUAL A RECORD IN FILE / RECORD FOUND      IX2144.2

092100*   START-TEST-GF-02 - BETWEEN 2 KEY VALUES / RECORD FOUND        IX2144.2

092200*   START-TEST-GF-03 - LESS THAN FIRST FILE REC. / REC. FOUND     IX2144.2

092300*   START-TEST-GF-04 - NOT LESS THAN LAST FILE RECORD / INVALID KEIX2144.2

092400*   START-TEST-GF-05 - UNEQUAL SIZE OPERANDS (EQUAL) / RECORD FOUNIX2144.2

092500*   START-TEST-GF-06 - UNEQUAL SIZE OPERANDS (EQUAL) / RECORD FOUNIX2144.2

092600*   START-TEST-GF-07 - UNEQUAL SIZE OPERANDS (UNEQUAL) / INVLD KEYIX2144.2

092700*   START-TEST-GF-08 - UNEQUAL SIZE OPERANDS (UNEQUAL) / REC FOUNDIX2144.2

092800*   START-TEST-GF-09 - UNEQUAL SIZE OPERANDS (UNEQUAL) /INVLD KEY IX2144.2

092900*                                                                 IX2144.2

093000*  BEFORE EACH TEST A RECORD IS MADE AVAILABLE WHICH IS DIFFERENT IX2144.2

093100*  THAN THE ONE WHICH IS EXPECTED TO BE PRESENT FOLLOWING A TEST. IX2144.2

093200*  IF DURING THIS INITIALIZATION AN INVALID KEY OCCURS THE TEST   IX2144.2

093300*  WILL BE DELETED AND CONTROL WILL BE PASSED TO THE NEXT TEST.   IX2144.2

093400*  WHEN TESTING IF AN INVALID KEY IS EXPECTED, THE KEYS           IX2144.2

093500*  ASSOCIATED WITH THE FILE WHICH ARE NOT PARTICIPATING IN THE    IX2144.2

093600*  START STATEMENT WILL BE LOADED WITH VALUES WHICH WOULD         IX2144.2

093700*  MATCH RECORDS IN THE FILE.  BUT IF A KEY MATCH IS EXPECTED FROMIX2144.2

093800*  THE TEST, THE KEYS ASSOCIATED WITH THE FILE WHICH ARE NOT      IX2144.2

093900*  PARTICIPATING IN THE START STATEMENT WILL BE LOADED WITH       IX2144.2

094000*  VALUES WHICH WOULD NOT MATCH RECORDS IN THE FILE.  THE FILE    IX2144.2

094100*  STATUS FROM EXECUTION OF EACH START IS CAPTURED FOR LATER TESTSIX2144.2

094200*                                                                 IX2144.2

094300 START-INIT-GF-01.                                                IX2144.2

094400     PERFORM START-INITIALIZE-RECORD.                             IX2144.2

094500     IF      INIT-FLAG NOT EQUAL ZERO                             IX2144.2

094600             PERFORM START-INIT-ERROR                             IX2144.2

094700             GO TO START-DELETE-GF-01.                            IX2144.2

094800     MOVE    "CCCCCCCCCD022" TO FS1-RECKEY-1-13.                  IX2144.2

094900     MOVE    "EEEEEFFFFF022ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2144.2

095000     MOVE    "EEEEEFFFFF022ALTKEY2" TO FS1-ALTKEY2-1-20.          IX2144.2

095100     MOVE    WRK-FS1-RECKEY TO IX-REC-KEY-AREA.                   IX2144.2

095200     MOVE    WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA.                 IX2144.2

095300     MOVE    WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA.                 IX2144.2

095400 START-TEST-GF-01.                                                IX2144.2

095500*                                                                 IX2144.2

095600*  START-TEST-GF-.01 - THE START SHOULD FIND A RECORD IN THE FILE IX2144.2

095700*                    WHICH HAS A RECORD KEY VALUE OF              IX2144.2

095800*                    CCCCCCCCDD022  (RECORD NUMBER 11).           IX2144.2

095900*                                                                 IX2144.2

096000     START   IX-FS1                                               IX2144.2

096100                    KEY IS NOT LESS THAN IX-FS1-KEY               IX2144.2

096200       INVALID KEY     MOVE FS1-STATUS TO FILESTATUS (1)          IX2144.2

096300                     MOVE  "INVALID KEY ON START" TO COMPUTED-A   IX2144.2

096400                        GO TO START-FAIL-GF-01.                   IX2144.2

096500     MOVE    FS1-STATUS TO FILESTATUS (1).                        IX2144.2

096600     READ    IX-FS1  AT END                                       IX2144.2

096700                     MOVE  "AT END ON READ" TO COMPUTED-A         IX2144.2

096800                     GO TO START-FAIL-GF-01.                      IX2144.2

096900     MOVE    IX-FS1R1-F-G-240  TO  FILE-RECORD-INFO (1).          IX2144.2

097000     IF      XRECORD-NUMBER (1)  EQUAL TO 11                      IX2144.2

097100             PERFORM PASS                                         IX2144.2

097200             MOVE SPACE TO RE-MARK                                IX2144.2

097300             GO TO START-WRITE-GF-01.                             IX2144.2

097400     MOVE    11  TO RECNO.                                        IX2144.2

097500     PERFORM DISPLAY-RECORD-KEYS.                                 IX2144.2

097600     MOVE     XRECORD-NUMBER (1)  TO COMPUTED-18V0.               IX2144.2

097700 START-FAIL-GF-01.                                                IX2144.2

097800     PERFORM FAIL.                                                IX2144.2

097900     MOVE    11  TO CORRECT-18V0.                                 IX2144.2

098000     MOVE "IX-36; IX-6: INVALID KEY PATH TAKEN OR AT END ON READ" IX2144.2

098100           TO RE-MARK.                                            IX2144.2

098200     GO TO   START-WRITE-GF-01.                                   IX2144.2

098300 START-DELETE-GF-01.                                              IX2144.2

098400     PERFORM DE-LETE.                                             IX2144.2

098500 START-WRITE-GF-01.                                               IX2144.2

098600     PERFORM PRINT-DETAIL.                                        IX2144.2

098700 START-INIT-GF-02.                                                IX2144.2

098800     PERFORM START-INITIALIZE-RECORD.                             IX2144.2

098900     MOVE "START-TEST-GF-02" TO PAR-NAME.                         IX2144.2

099000     IF      INIT-FLAG NOT EQUAL ZERO                             IX2144.2

099100             PERFORM START-INIT-ERROR                             IX2144.2

099200             GO TO START-DELETE-GF-02.                            IX2144.2

099300     MOVE    "EEEEEEEFFF067" TO FS1-RECKEY-1-13.                  IX2144.2

099400     MOVE    "HHHHHHHHII064ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2144.2

099500     MOVE    "TTTTTTTTSS336ALTKEY2" TO FS1-ALTKEY2-1-20.          IX2144.2

099600     MOVE    WRK-FS1-RECKEY TO IX-REC-KEY-AREA.                   IX2144.2

099700     MOVE    WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA.                 IX2144.2

099800     MOVE    WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA.                 IX2144.2

099900 START-TEST-GF-02.                                                IX2144.2

100000*                                                                 IX2144.2

100100*  START-TEST-GF-.02 - THE START SHOULD FIND A RECORD IN THE FILE IX2144.2

100200*                    WHICH HAS A RECORD KEY VALUE OF EEEEEEFFFF068IX2144.2

100300*                    (RECORD NUMBER 34).  THIS KEY VALUE IS       IX2144.2

100400*                    SEQUENTIALLY A LOGICAL RECORD HIGHER THAN    IX2144.2

100500*                    THE RECORD CONTAINING THE KEY VALUE  LOADED  IX2144.2

100600*                    INTO THE RECORD KEY BEFORE THE START WAS     IX2144.2

100700*                    EXECUTED.  THE KEY VALUE INITIALLY LOADED    IX2144.2

100800*                    WAS A VALUE BETWEEN TWO EXISTING KEY VALUES. IX2144.2

100900*                                                                 IX2144.2

101000     START   IX-FS1                                               IX2144.2

101100                    KEY NOT LESS THAN IX-FS1-KEY                  IX2144.2

101200        INVALID KEY    MOVE FS1-STATUS TO FILESTATUS (2)          IX2144.2

101300                     MOVE  "INVALID KEY ON START" TO COMPUTED-A   IX2144.2

101400                        GO TO START-FAIL-GF-02.                   IX2144.2

101500     MOVE    FS1-STATUS TO FILESTATUS (2).                        IX2144.2

101600     READ    IX-FS1  AT END                                       IX2144.2

101700                     MOVE  "AT END ON READ" TO COMPUTED-A         IX2144.2

101800                     GO TO START-FAIL-GF-02.                      IX2144.2

101900     MOVE    IX-FS1R1-F-G-240  TO  FILE-RECORD-INFO (1).          IX2144.2

102000     IF      XRECORD-NUMBER (1) EQUAL TO 34                       IX2144.2

102100             PERFORM PASS                                         IX2144.2

102200             MOVE SPACE TO RE-MARK                                IX2144.2

102300             GO TO START-WRITE-GF-02.                             IX2144.2

102400     MOVE    34  TO RECNO.                                        IX2144.2

102500     PERFORM DISPLAY-RECORD-KEYS.                                 IX2144.2

102600     MOVE     XRECORD-NUMBER (1)  TO COMPUTED-18V0.               IX2144.2

102700 START-FAIL-GF-02.                                                IX2144.2

102800     PERFORM FAIL.                                                IX2144.2

102900     MOVE    34   TO CORRECT-18V0.                                IX2144.2

103000     MOVE "IX-36; IX-6: INVALID KEY PATH TAKEN OR AT END ON READ" IX2144.2

103100           TO RE-MARK.                                            IX2144.2

103200     GO TO   START-WRITE-GF-02.                                   IX2144.2

103300 START-DELETE-GF-02.                                              IX2144.2

103400     PERFORM DE-LETE.                                             IX2144.2

103500 START-WRITE-GF-02.                                               IX2144.2

103600     PERFORM PRINT-DETAIL.                                        IX2144.2

103700 START-INIT-GF-03.                                                IX2144.2

103800     PERFORM START-INITIALIZE-RECORD.                             IX2144.2

103900     MOVE "START-TEST-GF-03" TO PAR-NAME.                         IX2144.2

104000     IF      INIT-FLAG NOT EQUAL ZERO                             IX2144.2

104100             PERFORM START-INIT-ERROR                             IX2144.2

104200             GO TO START-DELETE-GF-03.                            IX2144.2

104300     MOVE    "BBBBBBBBBC001" TO FS1-RECKEY-1-13.                  IX2144.2

104400     MOVE    "EEEEEEEEEF003ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2144.2

104500     MOVE    "WWWWWWWWWV399ALTKEY2" TO FS1-ALTKEY2-1-20.          IX2144.2

104600     MOVE    WRK-FS1-RECKEY TO IX-REC-KEY-AREA.                   IX2144.2

104700     MOVE    WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA.                 IX2144.2

104800     MOVE    WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA.                 IX2144.2

104900 START-TEST-GF-03.                                                IX2144.2

105000*                                                                 IX2144.2

105100*  START-TEST-GF-.03 - THE START STATEMENT SHOULD FIND A          IX2144.2

105200*                    RECORD IN THE FILE WHICH HAS A RECORD KEY    IX2144.2

105300*                    VALUE OF "BBBBBBBBBC002" (RECORD NUMBER 1).  IX2144.2

105400*                    THE KEY WAS LOADED BEFORE THE START IS       IX2144.2

105500*                    EXECUTED WITH THE VALUE THAT IS SEQUENTIALLY IX2144.2

105600*                    LOWER THAN ANY CURRENTLY EXISTING KEY IN     IX2144.2

105700*                    THE FILE.                                    IX2144.2

105800*                                                                 IX2144.2

105900     START   IX-FS1                                               IX2144.2

106000                    KEY IS NOT LESS THAN IX-FS1-KEY               IX2144.2

106100       INVALID KEY      MOVE FS1-STATUS TO FILESTATUS (3)         IX2144.2

106200                     MOVE  "INVALID KEY ON START" TO COMPUTED-A   IX2144.2

106300                        GO TO START-FAIL-GF-03.                   IX2144.2

106400     MOVE    FS1-STATUS TO FILESTATUS (3).                        IX2144.2

106500     READ    IX-FS1  AT END                                       IX2144.2

106600                     MOVE  "AT END ON READ" TO COMPUTED-A         IX2144.2

106700                     GO TO START-FAIL-GF-03.                      IX2144.2

106800     MOVE    IX-FS1R1-F-G-240  TO  FILE-RECORD-INFO (1).          IX2144.2

106900     IF      XRECORD-NUMBER (1) EQUAL TO 01                       IX2144.2

107000             PERFORM PASS                                         IX2144.2

107100             MOVE SPACE TO RE-MARK                                IX2144.2

107200             GO TO START-WRITE-GF-03.                             IX2144.2

107300     MOVE    01  TO RECNO.                                        IX2144.2

107400     PERFORM DISPLAY-RECORD-KEYS.                                 IX2144.2

107500     MOVE     XRECORD-NUMBER (1)  TO COMPUTED-18V0.               IX2144.2

107600 START-FAIL-GF-03.                                                IX2144.2

107700     PERFORM FAIL.                                                IX2144.2

107800     MOVE    01   TO CORRECT-18V0.                                IX2144.2

107900     MOVE "IX-36; IX-6: INVALID KEY PATH TAKEN OR AT END ON READ" IX2144.2

108000           TO RE-MARK.                                            IX2144.2

108100     GO TO   START-WRITE-GF-03.                                   IX2144.2

108200 START-DELETE-GF-03.                                              IX2144.2

108300     PERFORM DE-LETE.                                             IX2144.2

108400 START-WRITE-GF-03.                                               IX2144.2

108500     PERFORM PRINT-DETAIL.                                        IX2144.2

108600 START-INIT-GF-04.                                                IX2144.2

108700     PERFORM START-INITIALIZE-RECORD.                             IX2144.2

108800     MOVE "START-TEST-GF-04" TO PAR-NAME.                         IX2144.2

108900     IF      INIT-FLAG NOT EQUAL ZERO                             IX2144.2

109000             PERFORM START-INIT-ERROR                             IX2144.2

109100             GO TO START-DELETE-GF-04.                            IX2144.2

109200     MOVE    "UUUUUUUUUU401"  TO FS1-RECKEY-1-13.                 IX2144.2

109300     MOVE    "YYYYYYYYYY400ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2144.2

109400     MOVE    "DDDDDDDDDD000ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2144.2

109500     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2144.2

109600     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2144.2

109700     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2144.2

109800 START-TEST-GF-04.                                                IX2144.2

109900*                                                                 IX2144.2

110000*  START-TEST-GF-.04 - THE START STATEMENT SHOULD NOT FIND A      IX2144.2

110100*                    RECORD IN THE  FILE WHICH HAS A RECORD       IX2144.2

110200*                    KEY VALUE NOT LESS THAN "UUUUUUUUUU401". THISIX2144.2

110300*                    VALUE IS SEQUENTIALLY NOT LESS THAN          IX2144.2

110400*                    ANY RECORD KEY CURRENTLY EXISTING IN         IX2144.2

110500*                    THE FILE.  AN INVALID KEY CONDITION          IX2144.2

110600*                    IS EXPECTED WHEN THE START IS EXECUTED.      IX2144.2

110700*                                                                 IX2144.2

110800     START   IX-FS1                                               IX2144.2

110900                    KEY IS NOT LESS THAN IX-FS1-KEY               IX2144.2

111000          INVALID KEY    MOVE  FS1-STATUS TO FILESTATUS (4)       IX2144.2

111100                         GO TO START-PASS-GF-04.                  IX2144.2

111200     MOVE    FS1-STATUS TO FILESTATUS (4).                        IX2144.2

111300     READ    IX-FS1 AT END                                        IX2144.2

111400                     MOVE  "AT END PATH TAKEN ON READ" TO RE-MARK.IX2144.2

111500     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2144.2

111600     PERFORM FAIL.                                                IX2144.2

111700     MOVE    XRECORD-KEY (1) TO COMPUTED-A.                       IX2144.2

111800     MOVE    "INVALID KEY" TO CORRECT-A.                          IX2144.2

111900     MOVE "IX-36 INVALID KEY PATH NOT BE TAKEN OR AT END ON READ" IX2144.2

112000           TO RE-MARK.                                            IX2144.2

112100     GO TO   START-WRITE-GF-04.                                   IX2144.2

112200 START-PASS-GF-04.                                                IX2144.2

112300     PERFORM  PASS.                                               IX2144.2

112400     MOVE     "INVALID KEY"  TO RE-MARK.                          IX2144.2

112500     GO TO   START-WRITE-GF-04.                                   IX2144.2

112600 START-DELETE-GF-04.                                              IX2144.2

112700     PERFORM DE-LETE.                                             IX2144.2

112800 START-WRITE-GF-04.                                               IX2144.2

112900     PERFORM PRINT-DETAIL.                                        IX2144.2

113000 START-INIT-GF-05.                                                IX2144.2

113100     PERFORM START-INITIALIZE-RECORD.                             IX2144.2

113200     MOVE "START-TEST-GF-05" TO PAR-NAME.                         IX2144.2

113300     IF      INIT-FLAG NOT EQUAL ZERO                             IX2144.2

113400             PERFORM START-INIT-ERROR                             IX2144.2

113500             GO TO START-DELETE-GF-05.                            IX2144.2

113600     MOVE    "CDDDDDDDDD039" TO FS1-RECKEY-1-13.                  IX2144.2

113700     MOVE    "IIIIIIIIJJ083ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2144.2

113800     MOVE    "ABCXXXXXXX400ALTKEY2" TO FS1-ALTKEY2-1-20.          IX2144.2

113900     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2144.2

114000     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2144.2

114100     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2144.2

114200 START-TEST-GF-05.                                                IX2144.2

114300*  START-TEST-GF-.05 - THE START STATEMENT USES AN OPERAND        IX2144.2

114400*                    IN THE KEY PHRASE WHICH IS NOT THE NAME      IX2144.2

114500*                    OF A RECORD   KEY BUT IS THE NAME OF A       IX2144.2

114600*                    DATA ITEM WHICH IS SUBORDINATE TO THE        IX2144.2

114700*                    RECORD KEY.  THE CONTENTS OF THE DATA ITEM   IX2144.2

114800*                    (POSITIONS 1 THRU 7 OF THE RECORD KEY)       IX2144.2

114900*                    IS A UNIQUE KEY VALUE FOR THE FILE. THE      IX2144.2

115000*                    BALANCE OF THE KEY (POSITIONS 8 THRU 13) IS  IX2144.2

115100*                    NOT A VALID KEY VALUE FOR THE FILE.  THE     IX2144.2

115200*                    RECORD WITH THE RECORD KEY "CDDDDDDDDD038"   IX2144.2

115300*                    (RECORD NUMBER 19) IS EXPECTED TO BE FOUND.  IX2144.2

115400*                                                                 IX2144.2

115500     START   IX-FS1                                               IX2144.2

115600                    KEY IS NOT LESS THAN R-RECKEY-1-7             IX2144.2

115700          INVALID KEY    MOVE  FS1-STATUS TO FILESTATUS (5)       IX2144.2

115800                     MOVE  "INVALID KEY ON START" TO COMPUTED-A   IX2144.2

115900                     GO TO START-FAIL-GF-05.                      IX2144.2

116000     MOVE    FS1-STATUS TO FILESTATUS (5).                        IX2144.2

116100     READ    IX-FS1  AT END                                       IX2144.2

116200                     MOVE  "AT END ON READ" TO COMPUTED-A         IX2144.2

116300                     GO TO  START-FAIL-GF-05.                     IX2144.2

116400     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2144.2

116500     IF      XRECORD-NUMBER (1) EQUAL TO 19                       IX2144.2

116600             PERFORM  PASS                                        IX2144.2

116700             MOVE  "SUBORDINATE DATA ITEM OF KEY" TO RE-MARK      IX2144.2

116800             GO TO START-WRITE-GF-05.                             IX2144.2

116900     MOVE    19  TO RECNO.                                        IX2144.2

117000     PERFORM DISPLAY-RECORD-KEYS.                                 IX2144.2

117100     MOVE    XRECORD-NUMBER (1)  TO COMPUTED-18V0.                IX2144.2

117200 START-FAIL-GF-05.                                                IX2144.2

117300     PERFORM  FAIL.                                               IX2144.2

117400     MOVE    19  TO CORRECT-18V0.                                 IX2144.2

117500     MOVE "IX-36; IX-6: INVALID KEY PATH TAKEN OR AT END ON READ" IX2144.2

117600           TO RE-MARK.                                            IX2144.2

117700     GO TO   START-WRITE-GF-05.                                   IX2144.2

117800 START-DELETE-GF-05.                                              IX2144.2

117900     PERFORM DE-LETE.                                             IX2144.2

118000 START-WRITE-GF-05.                                               IX2144.2

118100     PERFORM PRINT-DETAIL.                                        IX2144.2

118200 START-INIT-GF-06.                                                IX2144.2

118300     PERFORM START-INITIALIZE-RECORD.                             IX2144.2

118400     MOVE "START-TEST-GF-06" TO PAR-NAME.                         IX2144.2

118500     IF      INIT-FLAG NOT EQUAL ZERO                             IX2144.2

118600             PERFORM START-INIT-ERROR                             IX2144.2

118700             GO TO START-DELETE-GF-06.                            IX2144.2

118800     MOVE    "TTTTTUUUUU390"  TO FS1-RECKEY-1-13.                 IX2144.2

118900     MOVE    "XYYYYYYYYY399ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2144.2

119000     MOVE    "WWWWWWWWWV399ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2144.2

119100     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2144.2

119200     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2144.2

119300     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2144.2

119400 START-TEST-GF-06.                                                IX2144.2

119500*                                                                 IX2144.2

119600*  START-TEST-GF-.06 - THE START STATEMENT USES AN OPERAND IN THE IX2144.2

119700*                    KEY PHRASE WHICH IS NOT THE NAME OF A RECORD IX2144.2

119800*                    KEY BUT IS THE NAME OF A DATA ITEM THAT IS   IX2144.2

119900*                    SUBORDINATE TO THE RECORD KEY.  THE CONTENTS IX2144.2

120000*                    OF THE DATA ITEM (POSITIONS 1 THRU 5 OF THE  IX2144.2

120100*                    RECORD KEY)  IS A DUPLICATE OF THE FIRST     IX2144.2

120200*                    5 POSITIONS OF 6 OTHER RECORDS IN THE FILE.  IX2144.2

120300*                    THIS TEST EXPECTS THE RECORD POINTER         IX2144.2

120400*                    TO BE POSITIONED TO RECORD KEY TTTTTTTTTT380 IX2144.2

120500*                    (RECORD NUMBER 190) WHICH WAS THE FIRST      IX2144.2

120600*                    RECORD WRITTEN TO THE FILE                   IX2144.2

120700*                    THAT CONTAINS TTTTT IN THE FIRST 5 POSITIONS IX2144.2

120800*                    OF THE KEY.  THE RECORD KEY WAS LOADED WITH  IX2144.2

120900*                    THE VALUE "TTTTTUUUUU390" (KEY FOR RECORD    IX2144.2

121000*                    NUMBER 195) BEFORE THE START WAS EXECUTED.   IX2144.2

121100*                                                                 IX2144.2

121200     START   IX-FS1                                               IX2144.2

121300                    KEY IS NOT LESS THAN IX-FS1-KEY-1-5           IX2144.2

121400                INVALID KEY  MOVE  FS1-STATUS TO FILESTATUS (6)   IX2144.2

121500                     MOVE  "INVALID KEY ON START"  TO COMPUTED-A  IX2144.2

121600                     GO TO START-FAIL-GF-06.                      IX2144.2

121700     MOVE    FS1-STATUS TO FILESTATUS (6).                        IX2144.2

121800     READ    IX-FS1  AT END                                       IX2144.2

121900                     MOVE "AT END ON READ" TO COMPUTED-A          IX2144.2

122000                     GO TO START-FAIL-GF-06.                      IX2144.2

122100     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2144.2

122200     IF      XRECORD-NUMBER (1) EQUAL TO 190                      IX2144.2

122300             PERFORM  PASS                                        IX2144.2

122400             MOVE  "SUBORDINATE DATA ITEM IN KEY"  TO RE-MARK     IX2144.2

122500             GO TO START-WRITE-GF-06.                             IX2144.2

122600     MOVE    65  TO RECNO.                                        IX2144.2

122700     PERFORM DISPLAY-RECORD-KEYS.                                 IX2144.2

122800     MOVE    XRECORD-NUMBER (1)  TO COMPUTED-18V0.                IX2144.2

122900 START-FAIL-GF-06.                                                IX2144.2

123000     PERFORM  FAIL.                                               IX2144.2

123100     MOVE    190  TO CORRECT-18V0.                                IX2144.2

123200     MOVE "IX-36; IX-6: INVALID KEY PATH TAKEN OR AT END ON READ" IX2144.2

123300           TO RE-MARK.                                            IX2144.2

123400     GO TO   START-WRITE-GF-06.                                   IX2144.2

123500 START-DELETE-GF-06.                                              IX2144.2

123600     PERFORM DE-LETE.                                             IX2144.2

123700 START-WRITE-GF-06.                                               IX2144.2

123800     PERFORM PRINT-DETAIL.                                        IX2144.2

123900 START-INIT-GF-07.                                                IX2144.2

124000     PERFORM START-INITIALIZE-RECORD.                             IX2144.2

124100     MOVE "START-TEST-GF-07" TO PAR-NAME.                         IX2144.2

124200     IF      INIT-FLAG NOT EQUAL ZERO                             IX2144.2

124300             PERFORM START-INIT-ERROR                             IX2144.2

124400             GO TO START-DELETE-GF-07.                            IX2144.2

124500     MOVE    "UUUUUUVUUU410"  TO FS1-RECKEY-1-13.                 IX2144.2

124600     MOVE    "FFFFFFFFFG022ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2144.2

124700     MOVE    "VVVVVVVVVV380ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2144.2

124800     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2144.2

124900     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2144.2

125000     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2144.2

125100 START-TEST-GF-07.                                                IX2144.2

125200*                                                                 IX2144.2

125300*  START-TEST-GF-.07 - THE START STATEMENT USES AN OPERAND IN THE IX2144.2

125400*                    KEY PHRASE OF THE START STATEMENT WHICH IS   IX2144.2

125500*                    A DATA ITEM SUBORDINATE TO THE RECORD KEY    IX2144.2

125600*                    NAME.  THE CONTENTS OF THE DATA ITEM         IX2144.2

125700*                    (POSITIONS 1 THRU 7 OF THE RECORD KEY)       IX2144.2

125800*                    IS LOADED WITH "UUUUUUV" WHICH IS HIGHER THANIX2144.2

125900*                    THE KEY VALUE OF THE LAST RECORD IN THE FILE.IX2144.2

126000*                    THERE SHOULD BE NO RECORD IN THE FILE NOT    IX2144.2

126100*                    LESS THAN THIS KEY VALUE THUS AND INVALID KEYIX2144.2

126200*                    IS EXPECTED WHEN THE START IS EXECUTED.      IX2144.2

126300*                                                                 IX2144.2

126400     START  IX-FS1                                                IX2144.2

126500                   KEY IS NOT LESS THAN R-RECKEY-1-7              IX2144.2

126600          INVALID KEY    MOVE  FS1-STATUS TO FILESTATUS (7)       IX2144.2

126700                     GO TO START-PASS-GF-07.                      IX2144.2

126800     MOVE    FS1-STATUS TO FILESTATUS (7).                        IX2144.2

126900     READ    IX-FS1  AT END                                       IX2144.2

127000                     MOVE  "AT END PATH TAKEN ON READ" TO RE-MARK.IX2144.2

127100     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2144.2

127200     PERFORM FAIL.                                                IX2144.2

127300     MOVE    XRECORD-KEY (1) TO COMPUTED-A.                       IX2144.2

127400     MOVE    "INVALID KEY" TO CORRECT-A.                          IX2144.2

127500     MOVE "IX-36 INVALID KEY PATH NOT BE TAKEN OR AT END ON READ" IX2144.2

127600           TO RE-MARK.                                            IX2144.2

127700     GO TO   START-WRITE-GF-07.                                   IX2144.2

127800 START-PASS-GF-07.                                                IX2144.2

127900     PERFORM PASS.                                                IX2144.2

128000     MOVE    "INVALID KEY"  TO RE-MARK.                           IX2144.2

128100     GO TO   START-WRITE-GF-07.                                   IX2144.2

128200 START-DELETE-GF-07.                                              IX2144.2

128300     PERFORM DE-LETE.                                             IX2144.2

128400 START-WRITE-GF-07.                                               IX2144.2

128500     PERFORM PRINT-DETAIL.                                        IX2144.2

128600 START-INIT-GF-08.                                                IX2144.2

128700     PERFORM START-INITIALIZE-RECORD.                             IX2144.2

128800     MOVE "START-TEST-GF-08" TO PAR-NAME.                         IX2144.2

128900     IF      INIT-FLAG NOT EQUAL ZERO                             IX2144.2

129000             PERFORM START-INIT-ERROR                             IX2144.2

129100             GO TO START-DELETE-GF-08.                            IX2144.2

129200     MOVE    "ABBBBBBBBC002"  TO FS1-RECKEY-1-13.                 IX2144.2

129300     MOVE    "XYYYYYYYYY399ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2144.2

129400     MOVE    "WWWWWWWWWV399ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2144.2

129500     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2144.2

129600     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2144.2

129700     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2144.2

129800 START-TEST-GF-08.                                                IX2144.2

129900*                                                                 IX2144.2

130000*  START-TEST-GF-.08 - THIS TEST USES AN OPERAND IN THE KEY       IX2144.2

130100*                    PHRASE OF THE START STATEMENT WHICH IS A DATAIX2144.2

130200*                    ITEM SUBORDINATE TO THE RECORD KEY NAME.  THEIX2144.2

130300*                    CONTENTS OF THE DATA ITEM (POSITIONS 1 THRU  IX2144.2

130400*                    7 OF THE RECORD KEY) IS LOADED WITH "ABBBBBB"IX2144.2

130500*                    THIS KEY VALUE IS LOWER THAN ANY RECORD      IX2144.2

130600*                    KEY VALUE IN POSITIONS 1 THRU 7 EXISTING     IX2144.2

130700*                    IN THE FILE.  THE START STATEMENT WITH THE   IX2144.2

130800*                    KEY IS NOT LESS THAN PHRASE IS EXECUTED AND  IX2144.2

130900*                    SHOULD FIND THE RECORD WITH THE KEY VALUE    IX2144.2

131000*                    "BBBBBBBBBC002" (RECORD NUMBER 01).          IX2144.2

131100*                                                                 IX2144.2

131200     START   IX-FS1                                               IX2144.2

131300                    KEY IS NOT LESS THAN R-RECKEY-1-7             IX2144.2

131400          INVALID KEY    MOVE  FS1-STATUS TO FILESTATUS (8)       IX2144.2

131500                     MOVE  "INVALID KEY ON START"  TO COMPUTED-A  IX2144.2

131600                     GO TO START-FAIL-GF-08.                      IX2144.2

131700     MOVE    FS1-STATUS TO FILESTATUS (8).                        IX2144.2

131800     READ    IX-FS1  AT END                                       IX2144.2

131900                     MOVE "AT END ON READ" TO COMPUTED-A          IX2144.2

132000                     GO TO START-FAIL-GF-08.                      IX2144.2

132100     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2144.2

132200     IF      XRECORD-NUMBER (1) EQUAL TO 001                      IX2144.2

132300             PERFORM  PASS                                        IX2144.2

132400             MOVE  "SUBORDINATE DATA ITEM IN KEY"  TO RE-MARK     IX2144.2

132500             GO TO START-WRITE-GF-08.                             IX2144.2

132600     MOVE    01  TO RECNO.                                        IX2144.2

132700     PERFORM DISPLAY-RECORD-KEYS.                                 IX2144.2

132800     MOVE    XRECORD-NUMBER (1)  TO COMPUTED-18V0.                IX2144.2

132900 START-FAIL-GF-08.                                                IX2144.2

133000     PERFORM  FAIL.                                               IX2144.2

133100     MOVE    001   TO CORRECT-18V0.                               IX2144.2

133200     MOVE "IX-36; IX-6: INVALID KEY PATH TAKEN OR AT END ON READ" IX2144.2

133300           TO RE-MARK.                                            IX2144.2

133400     GO TO   START-WRITE-GF-08.                                   IX2144.2

133500 START-DELETE-GF-08.                                              IX2144.2

133600     PERFORM DE-LETE.                                             IX2144.2

133700 START-WRITE-GF-08.                                               IX2144.2

133800     PERFORM PRINT-DETAIL.                                        IX2144.2

133900 START-INIT-GF-09.                                                IX2144.2

134000     PERFORM START-INITIALIZE-RECORD.                             IX2144.2

134100     MOVE "START-TEST-GF-09" TO PAR-NAME.                         IX2144.2

134200     IF      INIT-FLAG NOT EQUAL ZERO                             IX2144.2

134300             PERFORM START-INIT-ERROR                             IX2144.2

134400             GO TO START-DELETE-GF-09.                            IX2144.2

134500     MOVE    "UUUUUUVVVV400"  TO FS1-RECKEY-1-13.                 IX2144.2

134600     MOVE    "EEEEEEEEEF002ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2144.2

134700     MOVE    "WWWWWWWWWV398ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2144.2

134800     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2144.2

134900     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2144.2

135000     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2144.2

135100 START-TEST-GF-09.                                                IX2144.2

135200*                                                                 IX2144.2

135300*  START-TEST-GF-.09 - THIS TEST USES AN OPERAND IN THE           IX2144.2

135400*                    KEY PHRASE OF THE START STATEMENT WHICH IS   IX2144.2

135500*                    A DATA ITEM SUBORDINATE TO THE RECORD KEY    IX2144.2

135600*                    NAME.  THE CONTENTS OF THE DATA ITEM         IX2144.2

135700*                    (POSITIONS 1 THRU 7  OF THE RECORD KEY) IS   IX2144.2

135800*                    LOADED WITH "UUUUUUV".  THIS KEY VALUE       IX2144.2

135900*                    IS NOT LESS THAN ANY RECORD KEY VALUE IN     IX2144.2

136000*                    POSITION 1 THRU 7 EXISTING IN THE FILE       IX2144.2

136100*                    THEREFORE AN INVALID KEY CONDITION IS        IX2144.2

136200*                    EXPECTED WHEN THE START STATEMENT IS         IX2144.2

136300*                    EXECUTED.                                    IX2144.2

136400*                                                                 IX2144.2

136500     START   IX-FS1                                               IX2144.2

136600                    KEY IS NOT LESS THAN R-RECKEY-1-7             IX2144.2

136700          INVALID KEY    MOVE  FS1-STATUS TO FILESTATUS (9)       IX2144.2

136800                     GO TO START-PASS-GF-09.                      IX2144.2

136900     MOVE    FS1-STATUS TO FILESTATUS (9).                        IX2144.2

137000     READ    IX-FS1  AT END                                       IX2144.2

137100                     MOVE  "AT END PATH TAKEN ON READ" TO RE-MARK.IX2144.2

137200     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2144.2

137300     PERFORM FAIL.                                                IX2144.2

137400     MOVE    XRECORD-KEY (1)  TO COMPUTED-A.                      IX2144.2

137500     MOVE     "INVALID KEY" TO CORRECT-A.                         IX2144.2

137600     MOVE "IX-36 INVALID KEY PATH NOT BE TAKEN OR AT END ON READ" IX2144.2

137700           TO RE-MARK.                                            IX2144.2

137800     GO TO   START-WRITE-GF-09.                                   IX2144.2

137900 START-PASS-GF-09.                                                IX2144.2

138000     PERFORM PASS.                                                IX2144.2

138100     MOVE    "INVALID KEY"  TO RE-MARK.                           IX2144.2

138200     GO TO   START-WRITE-GF-09.                                   IX2144.2

138300 START-DELETE-GF-09.                                              IX2144.2

138400     PERFORM DE-LETE.                                             IX2144.2

138500 START-WRITE-GF-09.                                               IX2144.2

138600     PERFORM PRINT-DETAIL.                                        IX2144.2

138700     CLOSE   IX-FS1.                                              IX2144.2

138800                                                                  IX2144.2

138900*                                                                 IX2144.2

139000*  THIS SERIES OF TESTS CHECKS THE CONTENTS OF THE FILE STATUS    IX2144.2

139100*  CAPTURED FROM THE TESTS IN START-TEST-GF-.                     IX2144.2

139200*                                                                 IX2144.2

139300 START-TEST-GF-10.                                                IX2144.2

139400     MOVE              "FILE STATUS START:00"  TO FEATURE.        IX2144.2

139500     MOVE "START-TEST-GF-10" TO PAR-NAME.                         IX2144.2

139600     IF      FILESTATUS (1)  EQUAL TO "**"                        IX2144.2

139700             PERFORM DE-LETE                                      IX2144.2

139800             MOVE "FROM START-TEST-GF-01"  TO CORRECT-A           IX2144.2

139900             GO TO  START-TEST-GF-10A.                            IX2144.2

140000*                                                                 IX2144.2

140100*  START-TEST-004.01 - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2144.2

140200*                    RESULTING FROM START-TEST-GF-01.  THE FILE   IX2144.2

140300*                    STATUS CONTENTS IS EXPECTED TO BE "00".      IX2144.2

140400*                                                                 IX2144.2

140500     IF      FILESTATUS (1)  EQUAL TO "00"                        IX2144.2

140600             PERFORM PASS                                         IX2144.2

140700     ELSE                                                         IX2144.2

140800         MOVE "IX-3; 1.3.4 (1) A;FROM START-TEST-GF-01" TO RE-MARKIX2144.2

140900             PERFORM  FAIL                                        IX2144.2

141000             MOVE  "00"  TO CORRECT-A                             IX2144.2

141100             MOVE   FILESTATUS (1)  TO COMPUTED-A.                IX2144.2

141200 START-TEST-GF-10A.                                               IX2144.2

141300     PERFORM  PRINT-DETAIL.                                       IX2144.2

141400 START-TEST-GF-11.                                                IX2144.2

141500     MOVE              "FILE STATUS START:00"  TO FEATURE.        IX2144.2

141600     MOVE "START-TEST-GF-11" TO PAR-NAME.                         IX2144.2

141700     IF      FILESTATUS (2)  EQUAL TO "**"                        IX2144.2

141800             PERFORM DE-LETE                                      IX2144.2

141900             MOVE "FROM START-TEST-GF-02"  TO CORRECT-A           IX2144.2

142000             GO TO  START-TEST-GF-11A.                            IX2144.2

142100*                                                                 IX2144.2

142200*  START-TEST-004.02 - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2144.2

142300*                    RESULTING FROM START-TEST-GF-02.  THE FILE   IX2144.2

142400*                    STATUS CONTENTS IS EXPECTED TO BE "00"       IX2144.2

142500*                                                                 IX2144.2

142600     IF      FILESTATUS (2) EQUAL TO "00"                         IX2144.2

142700             PERFORM  PASS                                        IX2144.2

142800             ELSE  PERFORM  FAIL                                  IX2144.2

142900         MOVE "IX-3; 1.3.4 (1) A;FROM START-TEST-GF-02" TO RE-MARKIX2144.2

143000             MOVE    "00"  TO CORRECT-A                           IX2144.2

143100             MOVE   FILESTATUS (2)  TO COMPUTED-A.                IX2144.2

143200 START-TEST-GF-11A.                                               IX2144.2

143300     PERFORM  PRINT-DETAIL.                                       IX2144.2

143400 START-TEST-GF-12.                                                IX2144.2

143500     MOVE "START-TEST-GF-12" TO PAR-NAME.                         IX2144.2

143600     IF      FILESTATUS (3)  EQUAL TO "**"                        IX2144.2

143700             PERFORM DE-LETE                                      IX2144.2

143800             MOVE "FROM START-TEST-GF-03"  TO CORRECT-A           IX2144.2

143900             GO TO  START-TEST-GF-12A.                            IX2144.2

144000*                                                                 IX2144.2

144100*  START-TEST-004.03 - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2144.2

144200*                    RESULTING FROM START-TEST-GF-03.  THE FILE   IX2144.2

144300*                    STATUS CONTENTS IS EXPECTED TO BE "00"       IX2144.2

144400*                                                                 IX2144.2

144500     IF      FILESTATUS (3) EQUAL TO "00"                         IX2144.2

144600             PERFORM  PASS                                        IX2144.2

144700             ELSE  PERFORM  FAIL                                  IX2144.2

144800         MOVE "IX-3; 1.3.4 (1) A;FROM START-TEST-GF-03" TO RE-MARKIX2144.2

144900             MOVE    "00"  TO CORRECT-A                           IX2144.2

145000             MOVE   FILESTATUS (3)  TO COMPUTED-A.                IX2144.2

145100 START-TEST-GF-12A.                                               IX2144.2

145200     PERFORM  PRINT-DETAIL.                                       IX2144.2

145300 START-TEST-GF-13.                                                IX2144.2

145400     MOVE              "FILE STATUS START:23"  TO FEATURE.        IX2144.2

145500     MOVE "START-TEST-GF-13" TO PAR-NAME.                         IX2144.2

145600     IF      FILESTATUS (4)  EQUAL TO "**"                        IX2144.2

145700             PERFORM DE-LETE                                      IX2144.2

145800             MOVE "FROM START-TEST-GF-04"  TO CORRECT-A           IX2144.2

145900             GO TO  START-TEST-GF-13A.                            IX2144.2

146000*                                                                 IX2144.2

146100*  START-TEST-004.04 - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2144.2

146200*                    RESULTING FROM START-TEST-GF-04.  THE FILE   IX2144.2

146300*                    STATUS CONTENTS IS EXPECTED TO BE "23".      IX2144.2

146400*                                                                 IX2144.2

146500     IF      FILESTATUS (4)  EQUAL TO "23"                        IX2144.2

146600             PERFORM  PASS                                        IX2144.2

146700             ELSE  PERFORM  FAIL                                  IX2144.2

146800         MOVE "FROM START-TEST-GF-04; IX-4 1.3.4 (3) C" TO RE-MARKIX2144.2

146900             MOVE    "23"  TO CORRECT-A                           IX2144.2

147000             MOVE   FILESTATUS (4)  TO COMPUTED-A.                IX2144.2

147100 START-TEST-GF-13A.                                               IX2144.2

147200     PERFORM  PRINT-DETAIL.                                       IX2144.2

147300 START-TEST-GF-14.                                                IX2144.2

147400     MOVE              "FILE STATUS START:00"  TO FEATURE.        IX2144.2

147500     MOVE "START-TEST-GF-14" TO PAR-NAME.                         IX2144.2

147600     IF      FILESTATUS (5)  EQUAL TO "**"                        IX2144.2

147700             PERFORM DE-LETE                                      IX2144.2

147800             MOVE "FROM START-TEST-GF-05"  TO CORRECT-A           IX2144.2

147900             GO TO  START-TEST-GF-14A.                            IX2144.2

148000*                                                                 IX2144.2

148100*  START-TEST-004.05 - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2144.2

148200*                    RESULTING FROM START-TEST-GF-05.  THE FILE   IX2144.2

148300*                    STATUS CONTENTS IS EXPECTED TO BE "00"       IX2144.2

148400*                                                                 IX2144.2

148500     IF      FILESTATUS (5)  EQUAL TO "00"                        IX2144.2

148600             PERFORM  PASS                                        IX2144.2

148700             ELSE  PERFORM  FAIL                                  IX2144.2

148800         MOVE "IX-3; 1.3.4 (1) A;FROM START-TEST-GF-05" TO RE-MARKIX2144.2

148900             MOVE    "00"  TO CORRECT-A                           IX2144.2

149000             MOVE   FILESTATUS (5)  TO COMPUTED-A.                IX2144.2

149100 START-TEST-GF-14A.                                               IX2144.2

149200     PERFORM  PRINT-DETAIL.                                       IX2144.2

149300 START-TEST-GF-15.                                                IX2144.2

149400     MOVE "START-TEST-GF-15" TO PAR-NAME.                         IX2144.2

149500     IF      FILESTATUS (6)  EQUAL TO "**"                        IX2144.2

149600             PERFORM DE-LETE                                      IX2144.2

149700             MOVE "FROM START-TEST-GF-06"  TO CORRECT-A           IX2144.2

149800             GO TO  START-TEST-GF-15A.                            IX2144.2

149900*                                                                 IX2144.2

150000*  START-TEST-004.06 - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2144.2

150100*                    RESULTING FROM START-TEST-GF-06.  THE FILE   IX2144.2

150200*                    STATUS CONTENTS IS EXPECTED TO BE "00"       IX2144.2

150300*                                                                 IX2144.2

150400     IF      FILESTATUS (6)  EQUAL TO "00"                        IX2144.2

150500             PERFORM  PASS                                        IX2144.2

150600             ELSE  PERFORM  FAIL                                  IX2144.2

150700         MOVE "IX-3; 1.3.4 (1) A;FROM START-TEST-GF-06" TO RE-MARKIX2144.2

150800             MOVE   "00"  TO CORRECT-A                            IX2144.2

150900             MOVE   FILESTATUS (6)  TO COMPUTED-A.                IX2144.2

151000 START-TEST-GF-15A.                                               IX2144.2

151100     PERFORM  PRINT-DETAIL.                                       IX2144.2

151200 START-TEST-GF-16.                                                IX2144.2

151300     MOVE              "FILE STATUS START:23"  TO FEATURE.        IX2144.2

151400     MOVE "START-TEST-GF-16" TO PAR-NAME.                         IX2144.2

151500     IF      FILESTATUS (7)  EQUAL TO "**"                        IX2144.2

151600             PERFORM DE-LETE                                      IX2144.2

151700             MOVE "FROM START-TEST-GF-07"  TO CORRECT-A           IX2144.2

151800             GO TO  START-TEST-GF-16A.                            IX2144.2

151900*                                                                 IX2144.2

152000*  START-TEST-004.07 - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2144.2

152100*                    RESULTING FROM START-TEST-GF-07.  THE FILE   IX2144.2

152200*                    STATUS CONTENTS IS EXPECTED TO BE "23"       IX2144.2

152300*                                                                 IX2144.2

152400     IF      FILESTATUS (7)  EQUAL TO "23"                        IX2144.2

152500             PERFORM  PASS                                        IX2144.2

152600             ELSE  PERFORM  FAIL                                  IX2144.2

152700         MOVE "FROM START-TEST-GF-07; IX-4 1.3.4 (3) C" TO RE-MARKIX2144.2

152800             MOVE    "23"  TO CORRECT-A                           IX2144.2

152900             MOVE   FILESTATUS (7)  TO COMPUTED-A.                IX2144.2

153000 START-TEST-GF-16A.                                               IX2144.2

153100     PERFORM  PRINT-DETAIL.                                       IX2144.2

153200 START-TEST-GF-17.                                                IX2144.2

153300     MOVE              "FILE STATUS START:00"  TO FEATURE.        IX2144.2

153400     MOVE "START-TEST-GF-17" TO PAR-NAME.                         IX2144.2

153500     IF      FILESTATUS (8)  EQUAL TO "**"                        IX2144.2

153600             PERFORM DE-LETE                                      IX2144.2

153700             MOVE "FROM START-TEST-GF-08"  TO CORRECT-A           IX2144.2

153800             GO TO  START-TEST-GF-17A.                            IX2144.2

153900*                                                                 IX2144.2

154000*  START-TEST-004.08 - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2144.2

154100*                    RESULTING FROM START-TEST-GF-08.  THE FILE   IX2144.2

154200*                    STATUS CONTENTS IS EXPECTED TO BE "00"       IX2144.2

154300*                                                                 IX2144.2

154400     IF      FILESTATUS (8) EQUAL TO "00"                         IX2144.2

154500             PERFORM  PASS                                        IX2144.2

154600             ELSE  PERFORM  FAIL                                  IX2144.2

154700         MOVE "IX-3; 1.3.4 (1) A;FROM START-TEST-GF-08" TO RE-MARKIX2144.2

154800             MOVE    "00"  TO CORRECT-A                           IX2144.2

154900             MOVE   FILESTATUS (8)  TO COMPUTED-A.                IX2144.2

155000 START-TEST-GF-17A.                                               IX2144.2

155100     PERFORM  PRINT-DETAIL.                                       IX2144.2

155200 START-TEST-GF-18.                                                IX2144.2

155300     MOVE              "FILE STATUS START:23"  TO FEATURE.        IX2144.2

155400     MOVE "START-TEST-GF-18" TO PAR-NAME.                         IX2144.2

155500     IF      FILESTATUS (9)  EQUAL TO "**"                        IX2144.2

155600             PERFORM DE-LETE                                      IX2144.2

155700             MOVE "FROM START-TEST-GF-09"  TO CORRECT-A           IX2144.2

155800             GO TO  START-TEST-GF-18A.                            IX2144.2

155900*                                                                 IX2144.2

156000*  START-TEST-004.09 - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2144.2

156100*                    RESULTING FROM START-TEST-GF-09.  THE FILE   IX2144.2

156200*                    STATUS CONTENTS IS EXPECTED TO BE "23".      IX2144.2

156300*                                                                 IX2144.2

156400     IF      FILESTATUS (9)  EQUAL TO "23"                        IX2144.2

156500             PERFORM PASS                                         IX2144.2

156600     ELSE    PERFORM FAIL                                         IX2144.2

156700         MOVE "FROM START-TEST-GF-09; IX-4 1.3.4 (3) C" TO RE-MARKIX2144.2

156800             MOVE  "23"  TO CORRECT-A                             IX2144.2

156900             MOVE   FILESTATUS (9)  TO COMPUTED-A.                IX2144.2

157000 START-TEST-GF-18A.                                               IX2144.2

157100     PERFORM  PRINT-DETAIL.                                       IX2144.2

157200                                                                  IX2144.2

157300                                                                  IX2144.2

157400*START-INIT-005.                                                  IX2144.2

157500     OPEN    INPUT  IX-FS1.                                       IX2144.2

157600     MOVE    "STR NLT ALTKY W/O DUP" TO FEATURE.                  IX2144.2

157700     MOVE    SPACE TO HOLD-FILESTATUS-RECORD.                     IX2144.2

157800*                                                                 IX2144.2

157900* THE "START -  NOT LESS THAN--" IS CHECKED FOR PROPER POSITIONINGIX2144.2

158000* OF THE RECORD POINTER FOR THE SUBSEQUENT READ STATEMENT.        IX2144.2

158100* START-TEST-GF  USES ONLY THE ALTERNATE RECORD KEY WITHOUT THE   IX2144.2

158200* THE DUPLICATES OPTION FOR ESTABLISHING THE CURRENT RECORD       IX2144.2

158300* POINTER FOR THE FILE.  THE FOLLOWING IS A SUMMARY OF THE TEST   IX2144.2

158400* CONDITIONS AND THE EXPECTED ACTION TO BE TAKEN FOR THE TESTS.   IX2144.2

158500*                                                                 IX2144.2

158600*                      CONDITIONS (CONTENTS OF KEY) / ACTION      IX2144.2

158700*                                                                 IX2144.2

158800*   START-TEST-GF-19  - EQUAL A RECORD IN FILE / RECORD FOUND     IX2144.2

158900*   START-TEST-GF-20  - BETWEEN 2 KEY VALUES / RECORD FOUND       IX2144.2

159000*   START-TEST-GF-21  - LESS THAN FIRST FILE REC. / REC. FOUND    IX2144.2

159100*   START-TEST-GF-22  - NOT LESS THAN LAST FILE RECORD / INVALID KIX2144.2

159200*   START-TEST-GF-23  - UNEQUAL SIZE OPERANDS (EQUAL) / RECORD FOUIX2144.2

159300*   START-TEST-GF-24  - UNEQUAL SIZE OPERANDS (EQUAL) / RECORD FOUIX2144.2

159400*   START-TEST-GF-25  - UNEQUAL SIZE OPERANDS (UNEQUAL) / INVLD KEIX2144.2

159500*   START-TEST-GF-26  - UNEQUAL SIZE OPERANDS (UNEQUAL) / REC FOUNIX2144.2

159600*   START-TEST-GF-27  - UNEQUAL SIZE OPERANDS (UNEQUAL) /INVLD KEYIX2144.2

159700*                                                                 IX2144.2

159800*  BEFORE EACH TEST A RECORD IS MADE AVAILABLE WHICH IS DIFFERENT IX2144.2

159900*  THAN THE ONE WHICH IS EXPECTED TO BE PRESENT FOLLOWING A TEST. IX2144.2

160000*  IF DURING THIS INITIALIZATION AN INVALID KEY OCCURS THE TEST   IX2144.2

160100*  WILL BE DELETED AND CONTROL WILL BE PASSED TO THE NEXT TEST.   IX2144.2

160200*  WHEN TESTING IF AN INVALID KEY IS EXPECTED, THE KEYS           IX2144.2

160300*  ASSOCIATED WITH THE FILE WHICH ARE NOT PARTICIPATING IN THE    IX2144.2

160400*  START STATEMENT WILL BE LOADED WITH VALUES WHICH WOULD         IX2144.2

160500*  MATCH RECORDS IN THE FILE.  BUT IF A KEY MATCH IS EXPECTED FROMIX2144.2

160600*  THE TEST, THE KEYS ASSOCIATED WITH THE FILE WHICH ARE NOT      IX2144.2

160700*  PARTICIPATING IN THE START STATEMENT WILL BE LOADED WITH       IX2144.2

160800*  VALUES WHICH WOULD NOT MATCH RECORDS IN THE FILE.  THE FILE    IX2144.2

160900*  STATUS FROM EXECUTION OF EACH START IS CAPTURED FOR LATER TESTSIX2144.2

161000*                                                                 IX2144.2

161100 START-INIT-GF-19.                                                IX2144.2

161200     PERFORM START-INITIALIZE-RECORD.                             IX2144.2

161300     MOVE "START-TEST-GF-19"  TO PAR-NAME.                        IX2144.2

161400     IF      INIT-FLAG NOT EQUAL ZERO                             IX2144.2

161500             PERFORM START-INIT-ERROR                             IX2144.2

161600             GO TO START-DELETE-GF-19.                            IX2144.2

161700     MOVE    "CCCCCDDDDD022"  TO FS1-RECKEY-1-13.                 IX2144.2

161800     MOVE    "XXXXXXXXYY384ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2144.2

161900     MOVE    "EEEEEFFFFF022ALTKEY2" TO FS1-ALTKEY2-1-20.          IX2144.2

162000     MOVE    WRK-FS1-RECKEY TO IX-REC-KEY-AREA.                   IX2144.2

162100     MOVE    WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA.                 IX2144.2

162200     MOVE    WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA.                 IX2144.2

162300 START-TEST-GF-19.                                                IX2144.2

162400*                                                                 IX2144.2

162500*  START-TEST-GF.01  - THE START SHOULD FIND A RECORD IN THE FILE IX2144.2

162600*                    WHICH HAS AN ALTERNATE KEY VALUE OF          IX2144.2

162700*                    XXXXXXXXYY384ALTKEY1 (RECORD NUMBER 192).    IX2144.2

162800*                                                                 IX2144.2

162900     START   IX-FS1                                               IX2144.2

163000                    KEY IS NOT LESS THAN IX-FS1-ALTKEY1           IX2144.2

163100                INVALID KEY  MOVE FS1-STATUS TO FILESTATUS (1)    IX2144.2

163200                     MOVE  "INVALID KEY ON START" TO COMPUTED-A   IX2144.2

163300                        GO TO START-FAIL-GF-19.                   IX2144.2

163400     MOVE    FS1-STATUS TO FILESTATUS (1).                        IX2144.2

163500     READ    IX-FS1  AT END                                       IX2144.2

163600                     MOVE  "AT END ON READ" TO COMPUTED-A         IX2144.2

163700                     GO TO START-FAIL-GF-19.                      IX2144.2

163800     MOVE    IX-FS1R1-F-G-240  TO  FILE-RECORD-INFO (1).          IX2144.2

163900     IF      XRECORD-NUMBER (1)  EQUAL TO 192                     IX2144.2

164000             PERFORM PASS                                         IX2144.2

164100             MOVE SPACE TO RE-MARK                                IX2144.2

164200             GO TO START-WRITE-GF-19.                             IX2144.2

164300     MOVE    67  TO RECNO.                                        IX2144.2

164400     PERFORM DISPLAY-ALTERNATE-KEY1.                              IX2144.2

164500     MOVE     XRECORD-NUMBER (1)  TO COMPUTED-18V0.               IX2144.2

164600 START-FAIL-GF-19.                                                IX2144.2

164700     PERFORM FAIL.                                                IX2144.2

164800     MOVE    192  TO CORRECT-18V0.                                IX2144.2

164900     MOVE "IX-36; IX-6: INVALID KEY PATH TAKEN OR AT END ON READ" IX2144.2

165000           TO RE-MARK.                                            IX2144.2

165100     GO TO   START-WRITE-GF-19.                                   IX2144.2

165200 START-DELETE-GF-19.                                              IX2144.2

165300     PERFORM DE-LETE.                                             IX2144.2

165400 START-WRITE-GF-19.                                               IX2144.2

165500     PERFORM PRINT-DETAIL.                                        IX2144.2

165600 START-INIT-GF-20.                                                IX2144.2

165700     PERFORM START-INITIALIZE-RECORD.                             IX2144.2

165800     MOVE "START-TEST-GF-20"  TO PAR-NAME.                        IX2144.2

165900     IF      INIT-FLAG NOT EQUAL ZERO                             IX2144.2

166000             PERFORM START-INIT-ERROR                             IX2144.2

166100             GO TO START-DELETE-GF-20.                            IX2144.2

166200     MOVE    "CCCCCDDDDD022"  TO FS1-RECKEY-1-13.                 IX2144.2

166300     MOVE    "HHHHHHHIII67ALTKEY1"  TO FS1-ALTKEY1-1-20.          IX2144.2

166400     MOVE    "EEEEEFFFFF022ALTKEY2" TO FS1-ALTKEY2-1-20.          IX2144.2

166500     MOVE    WRK-FS1-RECKEY TO IX-REC-KEY-AREA.                   IX2144.2

166600     MOVE    WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA.                 IX2144.2

166700     MOVE    WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA.                 IX2144.2

166800 START-TEST-GF-20.                                                IX2144.2

166900*                                                                 IX2144.2

167000*  START-TEST-GF.02  - THE START SHOULD FIND A RECORD IN THE FILE IX2144.2

167100*                    WHICH HAS AN ALTERNATE KEY VALUE OF          IX2144.2

167200*                    HHHHHHIIII068ALTKEY1 (RECORD NUMBER 34).     IX2144.2

167300*                    THE DATA ITEM WAS LOADED WITH A KEY VALUE    IX2144.2

167400*                    SEQUENTIALLY LOCATED BETWEEN TWO CURRENTLY   IX2144.2

167500*                    EXISTING ALTERNATE KEYS IN THE FILE.         IX2144.2

167600*                                                                 IX2144.2

167700     START   IX-FS1                                               IX2144.2

167800                    KEY IS NOT LESS THAN IX-FS1-ALTKEY1           IX2144.2

167900                INVALID KEY  MOVE FS1-STATUS TO FILESTATUS (2)    IX2144.2

168000                     MOVE  "INVALID KEY ON START" TO COMPUTED-A   IX2144.2

168100                        GO TO START-FAIL-GF-20.                   IX2144.2

168200     MOVE    FS1-STATUS TO FILESTATUS (2).                        IX2144.2

168300     READ    IX-FS1  AT END                                       IX2144.2

168400                     MOVE  "AT END ON READ" TO COMPUTED-A         IX2144.2

168500                     GO TO START-FAIL-GF-20.                      IX2144.2

168600     MOVE    IX-FS1R1-F-G-240  TO  FILE-RECORD-INFO (1).          IX2144.2

168700     IF      XRECORD-NUMBER (1)  EQUAL TO 034                     IX2144.2

168800             PERFORM PASS                                         IX2144.2

168900             MOVE SPACE TO RE-MARK                                IX2144.2

169000             GO TO START-WRITE-GF-20.                             IX2144.2

169100     MOVE    34  TO RECNO.                                        IX2144.2

169200     PERFORM DISPLAY-ALTERNATE-KEY1.                              IX2144.2

169300     MOVE     XRECORD-NUMBER (1)  TO COMPUTED-18V0.               IX2144.2

169400 START-FAIL-GF-20.                                                IX2144.2

169500     PERFORM FAIL.                                                IX2144.2

169600     MOVE    034  TO CORRECT-18V0.                                IX2144.2

169700     MOVE "IX-36; IX-6: INVALID KEY PATH TAKEN OR AT END ON READ" IX2144.2

169800           TO RE-MARK.                                            IX2144.2

169900     GO TO   START-WRITE-GF-20.                                   IX2144.2

170000 START-DELETE-GF-20.                                              IX2144.2

170100     PERFORM DE-LETE.                                             IX2144.2

170200 START-WRITE-GF-20.                                               IX2144.2

170300     PERFORM PRINT-DETAIL.                                        IX2144.2

170400 START-INIT-GF-21.                                                IX2144.2

170500     PERFORM START-INITIALIZE-RECORD.                             IX2144.2

170600     MOVE "START-TEST-GF-21"  TO PAR-NAME.                        IX2144.2

170700     IF      INIT-FLAG NOT EQUAL ZERO                             IX2144.2

170800             PERFORM START-INIT-ERROR                             IX2144.2

170900             GO TO START-DELETE-GF-21.                            IX2144.2

171000     MOVE    "CCCCCDDDDD022"  TO FS1-RECKEY-1-13.                 IX2144.2

171100     MOVE    "EEEEEEEEEF001ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2144.2

171200     MOVE    "EEEEEFFFFF022ALTKEY2" TO FS1-ALTKEY2-1-20.          IX2144.2

171300     MOVE    WRK-FS1-RECKEY TO IX-REC-KEY-AREA.                   IX2144.2

171400     MOVE    WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA.                 IX2144.2

171500     MOVE    WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA.                 IX2144.2

171600 START-TEST-GF-21.                                                IX2144.2

171700*                                                                 IX2144.2

171800*  START-TEST-GF.03  - THE START STATEMENT SHOULD FIND A          IX2144.2

171900*                    RECORD IN THE FILE WHICH HAS AN ALTERNATE    IX2144.2

172000*                    KEY VALUE OF EEEEEEEEEF002ALTKEY1 (RECORD    IX2144.2

172100*                    NUMBER 01).  THE ALTERNATE KEY WAS LOADED    IX2144.2

172200*                    WITH A VALUE THAT IS SEQUENTIALLY LOWER      IX2144.2

172300*                    THAN ANY CURRENTLY EXISTNNG KEY IN THE FILE  IX2144.2

172400*                    BEFORE THE START WAS EXECUTED.               IX2144.2

172500*                                                                 IX2144.2

172600     START   IX-FS1                                               IX2144.2

172700                    KEY IS NOT LESS THAN IX-FS1-ALTKEY1           IX2144.2

172800                INVALID KEY  MOVE FS1-STATUS TO FILESTATUS (3)    IX2144.2

172900                     MOVE  "INVALID KEY ON START" TO COMPUTED-A   IX2144.2

173000                        GO TO START-FAIL-GF-21.                   IX2144.2

173100     MOVE    FS1-STATUS TO FILESTATUS (3).                        IX2144.2

173200     READ    IX-FS1  AT END                                       IX2144.2

173300                     MOVE  "AT END ON READ" TO COMPUTED-A         IX2144.2

173400                     GO TO START-FAIL-GF-21.                      IX2144.2

173500     MOVE    IX-FS1R1-F-G-240  TO  FILE-RECORD-INFO (1).          IX2144.2

173600     IF      XRECORD-NUMBER (1)  EQUAL TO 001                     IX2144.2

173700             PERFORM PASS                                         IX2144.2

173800             MOVE SPACE TO RE-MARK                                IX2144.2

173900             GO TO START-WRITE-GF-21.                             IX2144.2

174000     MOVE    01  TO RECNO.                                        IX2144.2

174100     PERFORM DISPLAY-ALTERNATE-KEY1.                              IX2144.2

174200     MOVE     XRECORD-NUMBER (1)  TO COMPUTED-18V0.               IX2144.2

174300 START-FAIL-GF-21.                                                IX2144.2

174400     PERFORM FAIL.                                                IX2144.2

174500     MOVE    001  TO CORRECT-18V0.                                IX2144.2

174600     MOVE "IX-36; IX-6: INVALID KEY PATH TAKEN OR AT END ON READ" IX2144.2

174700           TO RE-MARK.                                            IX2144.2

174800     GO TO   START-WRITE-GF-21.                                   IX2144.2

174900 START-DELETE-GF-21.                                              IX2144.2

175000     PERFORM DE-LETE.                                             IX2144.2

175100 START-WRITE-GF-21.                                               IX2144.2

175200     PERFORM PRINT-DETAIL.                                        IX2144.2

175300 START-INIT-GF-22.                                                IX2144.2

175400     PERFORM START-INITIALIZE-RECORD.                             IX2144.2

175500     MOVE "START-TEST-GF-22"  TO PAR-NAME.                        IX2144.2

175600     IF      INIT-FLAG NOT EQUAL ZERO                             IX2144.2

175700             PERFORM START-INIT-ERROR                             IX2144.2

175800             GO TO START-DELETE-GF-22.                            IX2144.2

175900     MOVE    "UUUUUUUUUU400"  TO FS1-RECKEY-1-13.                 IX2144.2

176000     MOVE    "YYYYYYYYYY401ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2144.2

176100     MOVE    "DDDDDDDDDD000ALTKEY2" TO FS1-ALTKEY2-1-20.          IX2144.2

176200     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2144.2

176300     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2144.2

176400     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2144.2

176500 START-TEST-GF-22.                                                IX2144.2

176600*                                                                 IX2144.2

176700*  START-TEST-GF.04  - THE START STATEMENT SHOULD NOT FIND A      IX2144.2

176800*                    RECORD IN THE FILE WHICH HAS AN ALTERNATE    IX2144.2

176900*                    KEY VALUE OF YYYYYYYYYY401ALTKEY1.  THIS     IX2144.2

177000*                    VALUE IS SEQUENTIALLY NOT LESS THAN          IX2144.2

177100*                    ANY ALTERNATE KEY CURRENTLY EXISTING IN      IX2144.2

177200*                    THE FILE.  AN INVALID KEY CONDITION          IX2144.2

177300*                    IS EXPECTED WHEN THE START IS EXECUTED.      IX2144.2

177400*                                                                 IX2144.2

177500     START   IX-FS1                                               IX2144.2

177600                    KEY IS NOT LESS THAN IX-FS1-ALTKEY1           IX2144.2

177700                INVALID KEY  MOVE  FS1-STATUS TO FILESTATUS (4)   IX2144.2

177800                         GO TO START-PASS-GF-22.                  IX2144.2

177900     MOVE    FS1-STATUS TO FILESTATUS (4).                        IX2144.2

178000     READ    IX-FS1 AT END                                        IX2144.2

178100                     MOVE  "AT END PATH TAKEN ON READ" TO RE-MARK.IX2144.2

178200     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2144.2

178300     PERFORM FAIL.                                                IX2144.2

178400     MOVE    ALTERNATE-KEY1 (1) TO COMPUTED-A.                    IX2144.2

178500     MOVE    "INVALID KEY" TO CORRECT-A.                          IX2144.2

178600     MOVE "IX-36 INVALID KEY PATH NOT BE TAKEN OR AT END ON READ" IX2144.2

178700           TO RE-MARK.                                            IX2144.2

178800     GO TO   START-WRITE-GF-22.                                   IX2144.2

178900 START-PASS-GF-22.                                                IX2144.2

179000     PERFORM  PASS.                                               IX2144.2

179100     MOVE     "INVALID KEY"  TO RE-MARK.                          IX2144.2

179200     GO TO   START-WRITE-GF-22.                                   IX2144.2

179300 START-DELETE-GF-22.                                              IX2144.2

179400     PERFORM DE-LETE.                                             IX2144.2

179500 START-WRITE-GF-22.                                               IX2144.2

179600     PERFORM PRINT-DETAIL.                                        IX2144.2

179700 START-INIT-GF-23.                                                IX2144.2

179800     PERFORM START-INITIALIZE-RECORD.                             IX2144.2

179900     MOVE "START-TEST-GF-23"  TO PAR-NAME.                        IX2144.2

180000     IF      INIT-FLAG NOT EQUAL ZERO                             IX2144.2

180100             PERFORM START-INIT-ERROR                             IX2144.2

180200             GO TO START-DELETE-GF-23.                            IX2144.2

180300     MOVE    "CDDDDDDDDD039"  TO FS1-RECKEY-1-13.                 IX2144.2

180400     MOVE    "GGGGHHHHHH100ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2144.2

180500     MOVE    "ABCXXXXXXX400ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2144.2

180600     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2144.2

180700     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2144.2

180800     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2144.2

180900 START-TEST-GF-23.                                                IX2144.2

181000*                                                                 IX2144.2

181100*  START-TEST-GF.05  - THE START STATEMENT USES AN OPERAND        IX2144.2

181200*                    IN THE KEY PHRASE WHICH IS NOT THE NAME      IX2144.2

181300*                    OF AN ALTERNATE KEY BUT IS THE NAME OF A     IX2144.2

181400*                    DATA ITEM WHICH IS SUBORDINATE TO THE        IX2144.2

181500*                    ALTERNATE KEY.  THE CONTENTS OF THE DATA ITEMIX2144.2

181600*                    (POSITIONS 1 THRU 6 OF THE ALTERNATE KEY)    IX2144.2

181700*                    IS A UNIQUE KEY VALUE FOR THE FILE.  THE     IX2144.2

181800*                    BALANCE OF THE KEY (POSITIONS 7 THRU 20 OF   IX2144.2

181900*                    THE ALTERNATE KEY IS NOT A VALID KEY VALUE   IX2144.2

182000*                    FOR THE FILE.  THE                           IX2144.2

182100*                    RECORD WITH THE ALTERNATE KEY GGGGHHHHHH052  IX2144.2

182200*                    ALTKEY1 (RECORD NUMBER 26) IS EXPECTED TO    IX2144.2

182300*                    BE FOUND.                                    IX2144.2

182400*                                                                 IX2144.2

182500     START   IX-FS1                                               IX2144.2

182600                    KEY IS NOT LESS THAN R-ALTKEY1-1-6            IX2144.2

182700          INVALID KEY    MOVE  FS1-STATUS TO FILESTATUS (5)       IX2144.2

182800                     MOVE  "INVALID KEY ON START" TO COMPUTED-A   IX2144.2

182900                     GO TO START-FAIL-GF-23.                      IX2144.2

183000     MOVE    FS1-STATUS TO FILESTATUS (5).                        IX2144.2

183100     READ    IX-FS1  AT END                                       IX2144.2

183200                     MOVE  "AT END ON READ" TO COMPUTED-A         IX2144.2

183300                     GO TO  START-FAIL-GF-23.                     IX2144.2

183400     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2144.2

183500     IF      XRECORD-NUMBER (1)  EQUAL TO 26                      IX2144.2

183600             PERFORM  PASS                                        IX2144.2

183700             MOVE  "SUBORDINATE DATA ITEM OF KEY" TO RE-MARK      IX2144.2

183800             GO TO START-WRITE-GF-23.                             IX2144.2

183900     MOVE    26  TO RECNO.                                        IX2144.2

184000     PERFORM DISPLAY-ALTERNATE-KEY1.                              IX2144.2

184100     MOVE    XRECORD-NUMBER (1)  TO COMPUTED-18V0.                IX2144.2

184200 START-FAIL-GF-23.                                                IX2144.2

184300     PERFORM  FAIL.                                               IX2144.2

184400     MOVE    26  TO CORRECT-18V0.                                 IX2144.2

184500     MOVE "IX-36; IX-6: INVALID KEY PATH TAKEN OR AT END ON READ" IX2144.2

184600           TO RE-MARK.                                            IX2144.2

184700     GO TO   START-WRITE-GF-23.                                   IX2144.2

184800 START-DELETE-GF-23.                                              IX2144.2

184900     PERFORM DE-LETE.                                             IX2144.2

185000 START-WRITE-GF-23.                                               IX2144.2

185100     PERFORM PRINT-DETAIL.                                        IX2144.2

185200 START-INIT-GF-24.                                                IX2144.2

185300     PERFORM START-INITIALIZE-RECORD.                             IX2144.2

185400     MOVE "START-TEST-GF-24"  TO PAR-NAME.                        IX2144.2

185500     IF      INIT-FLAG NOT EQUAL ZERO                             IX2144.2

185600             PERFORM START-INIT-ERROR                             IX2144.2

185700             GO TO START-DELETE-GF-24.                            IX2144.2

185800     MOVE    "YYYYYUUUUU390"  TO FS1-RECKEY-1-13.                 IX2144.2

185900     MOVE    "XXXXXYYYYY390ALTKEY1" TO FS1-ALTKEY1-1-20.          IX2144.2

186000     MOVE    "WWWWWWWWWV399ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2144.2

186100     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2144.2

186200     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2144.2

186300     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2144.2

186400 START-TEST-GF-24.                                                IX2144.2

186500*                                                                 IX2144.2

186600*  START-TEST-GF.06  - THE START STATEMENT USES AN OPERAND IN THE IX2144.2

186700*                    KEY PHRASE WHICH IS NOT THE NAME OF AN       IX2144.2

186800*                    ALTERNATE KEY BUT IS THE NAME OF A DATA ITEM IX2144.2

186900*                    THAT IS SUBORDINATE TO THE KEY.  THE CONTENTSIX2144.2

187000*                    OF THE DATA ITEM (POSITIONS 1 THRU 5 OF THE  IX2144.2

187100*                    ALTERNATE KEY) IS A DUPLICATE OF THE FIRST   IX2144.2

187200*                    5 POSITIONS OF 6 OTHER RECORDS IN THE FILE.  IX2144.2

187300*                    THIS TEST EXPECTS THE RECORD POINTER         IX2144.2

187400*                    TO BE POSITIONED TO RECORD KEY XXXXXXXXXX380 IX2144.2

187500*                    ALTKEY1 (RECORD NUMBER 190) WHICH WAS THE FIRIX2144.2

187600*                    RECORD WRITTEN THAT                          IX2144.2

187700*                    CONTAINS XXXXX IN THE FIRST 5 POSITIONS OF THIX2144.2

187800*                    KEY.  THE ALTERNATE KEY WAS LOADED WITH THE  IX2144.2

187900*                    VALUE XXXXXYYYYY390ALTKEY1 (KEY FOR RECORD   IX2144.2

188000*                    NUMBER 195) BEFORE THE START WAS EXECUTED.   IX2144.2

188100*                                                                 IX2144.2

188200     START   IX-FS1                                               IX2144.2

188300                    KEY IS NOT LESS THAN IX-FS1-ALTKEY1-1-5       IX2144.2

188400                     INVALID KEY                                  IX2144.2

188500                         MOVE  FS1-STATUS TO FILESTATUS (6)       IX2144.2

188600                     MOVE  "INVALID KEY ON START"  TO COMPUTED-A  IX2144.2

188700                     GO TO START-FAIL-GF-24.                      IX2144.2

188800     MOVE    FS1-STATUS TO FILESTATUS (6).                        IX2144.2

188900     READ    IX-FS1  AT END                                       IX2144.2

189000                     MOVE "AT END ON READ" TO COMPUTED-A          IX2144.2

189100                     GO TO START-FAIL-GF-24.                      IX2144.2

189200     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2144.2

189300     IF      XRECORD-NUMBER (1) EQUAL TO 190                      IX2144.2

189400             PERFORM  PASS                                        IX2144.2

189500             MOVE  "SUBORDINATE DATA ITEM IN KEY"  TO RE-MARK     IX2144.2

189600             GO TO START-WRITE-GF-24.                             IX2144.2

189700     MOVE    65  TO RECNO.                                        IX2144.2

189800     PERFORM DISPLAY-ALTERNATE-KEY1.                              IX2144.2

189900     MOVE    XRECORD-NUMBER (1)  TO COMPUTED-18V0.                IX2144.2

190000 START-FAIL-GF-24.                                                IX2144.2

190100     PERFORM  FAIL.                                               IX2144.2

190200     MOVE    190  TO CORRECT-18V0.                                IX2144.2

190300     MOVE "IX-36; IX-6: INVALID KEY PATH TAKEN OR AT END ON READ" IX2144.2

190400           TO RE-MARK.                                            IX2144.2

190500     GO TO   START-WRITE-GF-24.                                   IX2144.2

190600 START-DELETE-GF-24.                                              IX2144.2

190700     PERFORM DE-LETE.                                             IX2144.2

190800 START-WRITE-GF-24.                                               IX2144.2

190900     PERFORM PRINT-DETAIL.                                        IX2144.2

191000 START-INIT-GF-25.                                                IX2144.2

191100     PERFORM START-INITIALIZE-RECORD.                             IX2144.2

191200     MOVE "START-TEST-GF-25"  TO PAR-NAME.                        IX2144.2

191300     IF      INIT-FLAG NOT EQUAL ZERO                             IX2144.2

191400             PERFORM START-INIT-ERROR                             IX2144.2

191500             GO TO START-DELETE-GF-25.                            IX2144.2

191600     MOVE    "CCCCCCCCCD022"  TO FS1-RECKEY-1-13.                 IX2144.2

191700     MOVE    "YYYYYZYYYY410ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2144.2

191800     MOVE    "VVVVVVVVVV380ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2144.2

191900     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2144.2

192000     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2144.2

192100     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2144.2

192200 START-TEST-GF-25.                                                IX2144.2

192300*                                                                 IX2144.2

192400*  START-TEST-GF.07  - THE START STATEMENT USES AN OPERAND IN THE IX2144.2

192500*                    KEY PHRASE OF THE START STATEMENT WHICH IS   IX2144.2

192600*                    A DATA ITEM SUBORDINATE TO THE ALTERNATE KEY IX2144.2

192700*                    NAME.  THE CONTENTS OF THE DATA ITEM         IX2144.2

192800*                    POSITIONS 1 THRU 6 OF THE ALTERNATE KEY)     IX2144.2

192900*                    IS LOADED WITH YYYYYZ WHICH IS HIGHER THAN THIX2144.2

193000*                    KEY VALUE OF THE LAST RECORD IN THE FILE.  THIX2144.2

193100*                    SHOULD BE NO RECORD IN THE FILE NOT LESS THANIX2144.2

193200*                    KEY VALUE THUS AN INVALID KEY IS EXPECTED    IX2144.2

193300*                    WHEN THE START IS EXECUTED.                  IX2144.2

193400*                                                                 IX2144.2

193500     START   IX-FS1                                               IX2144.2

193600                    KEY IS NOT LESS THAN R-ALTKEY1-1-6            IX2144.2

193700          INVALID KEY    MOVE  FS1-STATUS TO FILESTATUS (7)       IX2144.2

193800                     GO TO START-PASS-GF-25.                      IX2144.2

193900     MOVE    FS1-STATUS TO FILESTATUS (7).                        IX2144.2

194000     READ    IX-FS1  AT END                                       IX2144.2

194100                     MOVE  "AT END PATH TAKEN ON READ" TO RE-MARK.IX2144.2

194200     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2144.2

194300     PERFORM FAIL.                                                IX2144.2

194400     MOVE    XRECORD-KEY (1) TO COMPUTED-A.                       IX2144.2

194500     MOVE    "INVALID KEY" TO CORRECT-A.                          IX2144.2

194600     MOVE "IX-36 INVALID KEY PATH NOT BE TAKEN OR AT END ON READ" IX2144.2

194700           TO RE-MARK.                                            IX2144.2

194800     GO TO   START-WRITE-GF-25.                                   IX2144.2

194900 START-PASS-GF-25.                                                IX2144.2

195000     PERFORM PASS.                                                IX2144.2

195100     MOVE    "INVALID KEY"  TO RE-MARK.                           IX2144.2

195200     GO TO   START-WRITE-GF-25.                                   IX2144.2

195300 START-DELETE-GF-25.                                              IX2144.2

195400     PERFORM DE-LETE.                                             IX2144.2

195500 START-WRITE-GF-25.                                               IX2144.2

195600     PERFORM PRINT-DETAIL.                                        IX2144.2

195700 START-INIT-GF-26.                                                IX2144.2

195800     PERFORM START-INITIALIZE-RECORD.                             IX2144.2

195900     MOVE "START-TEST-GF-26"  TO PAR-NAME.                        IX2144.2

196000     IF      INIT-FLAG NOT EQUAL ZERO                             IX2144.2

196100             PERFORM START-INIT-ERROR                             IX2144.2

196200             GO TO START-DELETE-GF-26.                            IX2144.2

196300     MOVE    "YYYYYUUUUU390"  TO FS1-RECKEY-1-13.                 IX2144.2

196400     MOVE    "EEEEDEEEEE002ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2144.2

196500     MOVE    "WWWWWWWWWV399ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2144.2

196600     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2144.2

196700     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2144.2

196800     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2144.2

196900 START-TEST-GF-26.                                                IX2144.2

197000*                                                                 IX2144.2

197100*  START-TEST-GF.08  - THIS TEST USES AN OPERAND IN THE           IX2144.2

197200*                    KEY PHRASE OF THE START STATEMENT WHICH IS   IX2144.2

197300*                    A DATA ITEM SUBORDINATE TO THE ALTERNATE KEY IX2144.2

197400*                    NAME.  THE CONTENTS OF THE DATA ITEM         IX2144.2

197500*                    (POSITIONS 1 THRU 6 OF THE ALTERNATE KEY) IS IX2144.2

197600*                    LOADED WITH "EEEEDE".  THIS KEY VALUE        IX2144.2

197700*                    IS LOWER THAN ANY ALTERNATE KEY VALUE IN     IX2144.2

197800*                    POSITION 1 THRU 6 EXISTING IN THE FILE       IX2144.2

197900*                    THE START STATEMENT WITH THE KEY IS NOT LESS IX2144.2

198000*                    THAN PHRASE IS EXECUTED AND SHOULD FIND A    IX2144.2

198100*                    RECORD WITH THE KEY VALUE "EEEEEEEEEF002     IX2144.2

198200*                    ALTKEY1 (RECORD NUMBER 01).                  IX2144.2

198300*                                                                 IX2144.2

198400     START   IX-FS1                                               IX2144.2

198500                    KEY IS NOT LESS THAN R-ALTKEY1-1-6            IX2144.2

198600          INVALID KEY    MOVE  FS1-STATUS TO FILESTATUS (8)       IX2144.2

198700                     MOVE  "INVALID KEY ON START"  TO COMPUTED-A  IX2144.2

198800                     GO TO START-FAIL-GF-26.                      IX2144.2

198900     MOVE    FS1-STATUS TO FILESTATUS (8).                        IX2144.2

199000     READ    IX-FS1  AT END                                       IX2144.2

199100                     MOVE "AT END ON READ" TO COMPUTED-A          IX2144.2

199200                     GO TO START-FAIL-GF-26.                      IX2144.2

199300     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2144.2

199400     IF      XRECORD-NUMBER (1) EQUAL TO 001                      IX2144.2

199500             PERFORM  PASS                                        IX2144.2

199600             MOVE  "SUBORDINATE DATA ITEM IN KEY"  TO RE-MARK     IX2144.2

199700             GO TO START-WRITE-GF-26.                             IX2144.2

199800     MOVE    01  TO RECNO.                                        IX2144.2

199900     PERFORM DISPLAY-ALTERNATE-KEY1.                              IX2144.2

200000     MOVE    XRECORD-NUMBER (1)  TO COMPUTED-18V0.                IX2144.2

200100 START-FAIL-GF-26.                                                IX2144.2

200200     PERFORM  FAIL.                                               IX2144.2

200300     MOVE    001   TO CORRECT-18V0.                               IX2144.2

200400     MOVE "IX-36; IX-6: INVALID KEY PATH TAKEN OR AT END ON READ" IX2144.2

200500           TO RE-MARK.                                            IX2144.2

200600     GO TO   START-WRITE-GF-26.                                   IX2144.2

200700 START-DELETE-GF-26.                                              IX2144.2

200800     PERFORM DE-LETE.                                             IX2144.2

200900 START-WRITE-GF-26.                                               IX2144.2

201000     PERFORM PRINT-DETAIL.                                        IX2144.2

201100 START-INIT-GF-27.                                                IX2144.2

201200     PERFORM START-INITIALIZE-RECORD.                             IX2144.2

201300     MOVE "START-TEST-GF-27"  TO PAR-NAME.                        IX2144.2

201400     IF      INIT-FLAG NOT EQUAL ZERO                             IX2144.2

201500             PERFORM START-INIT-ERROR                             IX2144.2

201600             GO TO START-DELETE-GF-27.                            IX2144.2

201700     MOVE    "UUUUUUUUUU400"  TO FS1-RECKEY-1-13.                 IX2144.2

201800     MOVE    "YYYYYZYYYY400ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2144.2

201900     MOVE    "WWWWWWWWWV398ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2144.2

202000     MOVE    WRK-FS1-RECKEY   TO IX-REC-KEY-AREA.                 IX2144.2

202100     MOVE    WRK-FS1-ALTKEY1  TO IX-ALT-KEY1-AREA.                IX2144.2

202200     MOVE    WRK-FS1-ALTKEY2  TO IX-ALT-KEY2-AREA.                IX2144.2

202300 START-TEST-GF-27.                                                IX2144.2

202400*                                                                 IX2144.2

202500*  START-TEST-GF.09  - THIS TEST USES AN OPERAND IN THE           IX2144.2

202600*                    KEY PHRASE OF THE START STATEMENT WHICH IS   IX2144.2

202700*                    A DATA ITEM SUBORDINATE TO THE ALTERNATE KEY IX2144.2

202800*                    NAME.  THE CONTENTS OF THE DATA ITEM         IX2144.2

202900*                    (POSITIONS 1 THRU 10 OF THE RECORD KEY) IS   IX2144.2

203000*                    LOADED WITH "YYYYYZYYYY". THIS KEY VALUE     IX2144.2

203100*                    IS NOT LESS THAN ANY ALTERNATE KEY VALUE IN  IX2144.2

203200*                    POSITION 1 THRU 10 EXISTING IN THE FILE      IX2144.2

203300*                    THEREFORE AN INVALID KEY CONDITION IS        IX2144.2

203400*                    EXPECTED WHEN THE START STATEMENT IS         IX2144.2

203500*                    EXECUTED.                                    IX2144.2

203600*                                                                 IX2144.2

203700     START   IX-FS1                                               IX2144.2

203800                    KEY IS NOT LESS THAN IX-FS1-ALTKEY1-1-10      IX2144.2

203900                                 INVALID KEY                      IX2144.2

204000                         MOVE  FS1-STATUS TO FILESTATUS (9)       IX2144.2

204100                     GO TO START-PASS-GF-27.                      IX2144.2

204200     MOVE    FS1-STATUS TO FILESTATUS (9).                        IX2144.2

204300     READ    IX-FS1  AT END                                       IX2144.2

204400                     MOVE  "AT END PATH TAKEN ON READ" TO RE-MARK.IX2144.2

204500     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2144.2

204600     PERFORM FAIL.                                                IX2144.2

204700     MOVE    XRECORD-KEY (1)  TO COMPUTED-A.                      IX2144.2

204800     MOVE     "INVALID KEY" TO CORRECT-A.                         IX2144.2

204900     MOVE "IX-36 INVALID KEY PATH NOT BE TAKEN OR AT END ON READ" IX2144.2

205000           TO RE-MARK.                                            IX2144.2

205100     GO TO   START-WRITE-GF-27.                                   IX2144.2

205200 START-PASS-GF-27.                                                IX2144.2

205300     PERFORM PASS.                                                IX2144.2

205400     MOVE    "INVALID KEY"  TO RE-MARK.                           IX2144.2

205500     GO TO   START-WRITE-GF-27.                                   IX2144.2

205600 START-DELETE-GF-27.                                              IX2144.2

205700     PERFORM DE-LETE.                                             IX2144.2

205800 START-WRITE-GF-27.                                               IX2144.2

205900     PERFORM PRINT-DETAIL.                                        IX2144.2

206000     CLOSE   IX-FS1.                                              IX2144.2

206100                                                                  IX2144.2

206200*                                                                 IX2144.2

206300*  THIS SERIES OF TESTS CHECKS THE CONTENTS OF THE FILE STATUS    IX2144.2

206400*  CAPTURED FROM THE TESTS IN START-TEST-GF.                      IX2144.2

206500*                                                                 IX2144.2

206600 START-TEST-GF-28.                                                IX2144.2

206700     MOVE              "FILE STATUS START:00" TO FEATURE.         IX2144.2

206800     MOVE "START-TEST-GF-28" TO PAR-NAME.                         IX2144.2

206900     IF      FILESTATUS (1)  EQUAL TO "**"                        IX2144.2

207000             PERFORM DE-LETE                                      IX2144.2

207100             MOVE "FROM START-TEST-GF-19"  TO CORRECT-A           IX2144.2

207200             GO TO  START-TEST-GF-28A.                            IX2144.2

207300*                                                                 IX2144.2

207400*  START-TEST-006.01 - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2144.2

207500*                    RESULTING FROM START-TEST-GF-19.  THE FILE   IX2144.2

207600*                    STATUS CONTENTS IS EXPECTED TO BE "00".      IX2144.2

207700*                                                                 IX2144.2

207800     IF      FILESTATUS (1)  EQUAL TO "00"                        IX2144.2

207900             PERFORM PASS                                         IX2144.2

208000     ELSE                                                         IX2144.2

208100         MOVE "IX-3; 1.3.4 (1) A;FROM START-TEST-GF-19" TO RE-MARKIX2144.2

208200             PERFORM  FAIL                                        IX2144.2

208300             MOVE  "00"  TO CORRECT-A                             IX2144.2

208400             MOVE   FILESTATUS (1)  TO COMPUTED-A.                IX2144.2

208500 START-TEST-GF-28A.                                               IX2144.2

208600     PERFORM  PRINT-DETAIL.                                       IX2144.2

208700 START-TEST-GF-29.                                                IX2144.2

208800     MOVE "START-TEST-GF-20" TO PAR-NAME.                         IX2144.2

208900     IF      FILESTATUS (2)  EQUAL TO "**"                        IX2144.2

209000             PERFORM DE-LETE                                      IX2144.2

209100             MOVE "FROM START-TEST-GF-20"  TO CORRECT-A           IX2144.2

209200             GO TO  START-TEST-GF-29A.                            IX2144.2

209300*                                                                 IX2144.2

209400*  START-TEST-006.02 - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2144.2

209500*                    RESULTING FROM START-TEST-GF-20.  THE FILE   IX2144.2

209600*                    STATUS CONTENTS IS EXPECTED TO BE "00"       IX2144.2

209700*                                                                 IX2144.2

209800     IF      FILESTATUS (2) EQUAL TO "00"                         IX2144.2

209900             PERFORM  PASS                                        IX2144.2

210000             ELSE  PERFORM  FAIL                                  IX2144.2

210100         MOVE "IX-3; 1.3.4 (1) A;FROM START-TEST-GF-20" TO RE-MARKIX2144.2

210200             MOVE    "00"  TO CORRECT-A                           IX2144.2

210300             MOVE   FILESTATUS (2)  TO COMPUTED-A.                IX2144.2

210400 START-TEST-GF-29A.                                               IX2144.2

210500     PERFORM  PRINT-DETAIL.                                       IX2144.2

210600 START-TEST-GF-30.                                                IX2144.2

210700     MOVE "START-TEST-GF-30" TO PAR-NAME.                         IX2144.2

210800     IF      FILESTATUS (3)  EQUAL TO "**"                        IX2144.2

210900             PERFORM DE-LETE                                      IX2144.2

211000             MOVE "FROM START-TEST-GF.21"  TO CORRECT-A           IX2144.2

211100             GO TO  START-TEST-GF-30A.                            IX2144.2

211200*                                                                 IX2144.2

211300*  START-TEST-006.03 - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2144.2

211400*                    RESULTING FROM START-TEST-GF-21.  THE FILE   IX2144.2

211500*                    STATUS CONTENTS IS EXPECTED TO BE "00"       IX2144.2

211600*                                                                 IX2144.2

211700     IF      FILESTATUS (3) EQUAL TO "00"                         IX2144.2

211800             PERFORM  PASS                                        IX2144.2

211900             ELSE  PERFORM  FAIL                                  IX2144.2

212000         MOVE "IX-3; 1.3.4 (1) A;FROM START-TEST-GF-21" TO RE-MARKIX2144.2

212100             MOVE    "00"  TO CORRECT-A                           IX2144.2

212200             MOVE   FILESTATUS (3)  TO COMPUTED-A.                IX2144.2

212300 START-TEST-GF-30A.                                               IX2144.2

212400     PERFORM  PRINT-DETAIL.                                       IX2144.2

212500 START-TEST-GF-31.                                                IX2144.2

212600     MOVE              "FILE STATUS START:23" TO FEATURE.         IX2144.2

212700     MOVE "START-TEST-GF-31" TO PAR-NAME.                         IX2144.2

212800     IF      FILESTATUS (4)  EQUAL TO "**"                        IX2144.2

212900             PERFORM DE-LETE                                      IX2144.2

213000             MOVE "FROM START-TEST-GF-22"  TO CORRECT-A           IX2144.2

213100             GO TO  START-TEST-GF-31A.                            IX2144.2

213200*                                                                 IX2144.2

213300*  START-TEST-006.04 - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2144.2

213400*                    RESULTING FROM START-TEST-GF-22.  THE FILE   IX2144.2

213500*                    STATUS CONTENTS IS EXPECTED TO BE "23".      IX2144.2

213600*                                                                 IX2144.2

213700     IF      FILESTATUS (4)  EQUAL TO "23"                        IX2144.2

213800             PERFORM  PASS                                        IX2144.2

213900             ELSE  PERFORM  FAIL                                  IX2144.2

214000         MOVE "FROM START-TEST-GF-04; IX-4 1.3.4 (3) C" TO RE-MARKIX2144.2

214100             MOVE    "23"  TO CORRECT-A                           IX2144.2

214200             MOVE   FILESTATUS (4)  TO COMPUTED-A.                IX2144.2

214300 START-TEST-GF-31A.                                               IX2144.2

214400     PERFORM  PRINT-DETAIL.                                       IX2144.2

214500 START-TEST-GF-32.                                                IX2144.2

214600     MOVE              "FILE STATUS START:00" TO FEATURE.         IX2144.2

214700     MOVE "START-TEST-GF-32" TO PAR-NAME.                         IX2144.2

214800     IF      FILESTATUS (5)  EQUAL TO "**"                        IX2144.2

214900             PERFORM DE-LETE                                      IX2144.2

215000             MOVE "FROM START-TEST-GF-23"  TO CORRECT-A           IX2144.2

215100             GO TO  START-TEST-GF-32A.                            IX2144.2

215200*                                                                 IX2144.2

215300*  START-TEST-006.05 - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2144.2

215400*                    RESULTING FROM START-TEST-GF-23.  THE FILE   IX2144.2

215500*                    STATUS CONTENTS IS EXPECTED TO BE "00"       IX2144.2

215600*                                                                 IX2144.2

215700     IF      FILESTATUS (5)  EQUAL TO "00"                        IX2144.2

215800             PERFORM  PASS                                        IX2144.2

215900             ELSE  PERFORM  FAIL                                  IX2144.2

216000         MOVE "IX-3; 1.3.4 (1) A;FROM START-TEST-GF-23" TO RE-MARKIX2144.2

216100             MOVE    "00"  TO CORRECT-A                           IX2144.2

216200             MOVE   FILESTATUS (5)  TO COMPUTED-A.                IX2144.2

216300 START-TEST-GF-32A.                                               IX2144.2

216400     PERFORM  PRINT-DETAIL.                                       IX2144.2

216500 START-TEST-GF-33.                                                IX2144.2

216600     MOVE              "FILE STATUS START:00" TO FEATURE.         IX2144.2

216700     MOVE "START-TEST-GF-33" TO PAR-NAME.                         IX2144.2

216800     IF      FILESTATUS (6)  EQUAL TO "**"                        IX2144.2

216900             PERFORM DE-LETE                                      IX2144.2

217000             MOVE "FROM START-TEST-GF-24"  TO CORRECT-A           IX2144.2

217100             GO TO  START-TEST-GF-33A.                            IX2144.2

217200*                                                                 IX2144.2

217300*  START-TEST-006.06 - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2144.2

217400*                    RESULTING FROM START-TEST-GF-24.  THE FILE   IX2144.2

217500*                    STATUS CONTENTS IS EXPECTED TO BE "00"       IX2144.2

217600*                                                                 IX2144.2

217700     IF      FILESTATUS (6)  EQUAL TO "00"                        IX2144.2

217800             PERFORM  PASS                                        IX2144.2

217900             ELSE  PERFORM  FAIL                                  IX2144.2

218000         MOVE "IX-3; 1.3.4 (1) A;FROM START-TEST-GF-24" TO RE-MARKIX2144.2

218100             MOVE   "00"  TO CORRECT-A                            IX2144.2

218200             MOVE   FILESTATUS (6)  TO COMPUTED-A.                IX2144.2

218300 START-TEST-GF-33A.                                               IX2144.2

218400     PERFORM  PRINT-DETAIL.                                       IX2144.2

218500 START-TEST-GF-34.                                                IX2144.2

218600     MOVE              "FILE STATUS START:23" TO FEATURE.         IX2144.2

218700     MOVE "START-TEST-GF-34" TO PAR-NAME.                         IX2144.2

218800     IF      FILESTATUS (7)  EQUAL TO "**"                        IX2144.2

218900             PERFORM DE-LETE                                      IX2144.2

219000             MOVE "FROM START-TEST-GF-25" TO CORRECT-A            IX2144.2

219100             GO TO  START-TEST-GF-34A.                            IX2144.2

219200*                                                                 IX2144.2

219300*  START-TEST-006.07 - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2144.2

219400*                    RESULTING FROM START-TEST-GF-25.  THE FILE   IX2144.2

219500*                    STATUS CONTENTS IS EXPECTED TO BE "23"       IX2144.2

219600*                                                                 IX2144.2

219700     IF      FILESTATUS (7)  EQUAL TO "23"                        IX2144.2

219800             PERFORM  PASS                                        IX2144.2

219900             ELSE  PERFORM  FAIL                                  IX2144.2

220000         MOVE "FROM START-TEST-GF-25; IX-4 1.3.4 (3) C" TO RE-MARKIX2144.2

220100             MOVE    "23"  TO CORRECT-A                           IX2144.2

220200             MOVE   FILESTATUS (7)  TO COMPUTED-A.                IX2144.2

220300 START-TEST-GF-34A.                                               IX2144.2

220400     PERFORM  PRINT-DETAIL.                                       IX2144.2

220500 START-TEST-GF-35.                                                IX2144.2

220600     MOVE              "FILE STATUS START:00" TO FEATURE.         IX2144.2

220700     MOVE "START-TEST-GF-35" TO PAR-NAME.                         IX2144.2

220800     IF      FILESTATUS (8)  EQUAL TO "**"                        IX2144.2

220900             PERFORM DE-LETE                                      IX2144.2

221000             MOVE "FROM START-TEST-GF-26" TO CORRECT-A            IX2144.2

221100             GO TO  START-TEST-GF-35A.                            IX2144.2

221200*                                                                 IX2144.2

221300*  START-TEST-006.08 - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2144.2

221400*                    RESULTING FROM START-TEST-GF-26.  THE FILE   IX2144.2

221500*                    STATUS CONTENTS IS EXPECTED TO BE "00"       IX2144.2

221600*                                                                 IX2144.2

221700     IF      FILESTATUS (8) EQUAL TO "00"                         IX2144.2

221800             PERFORM  PASS                                        IX2144.2

221900             ELSE  PERFORM  FAIL                                  IX2144.2

222000         MOVE "IX-3; 1.3.4 (1) A;FROM START-TEST-GF-26" TO RE-MARKIX2144.2

222100             MOVE    "00"  TO CORRECT-A                           IX2144.2

222200             MOVE   FILESTATUS (8)  TO COMPUTED-A.                IX2144.2

222300 START-TEST-GF-35A.                                               IX2144.2

222400     PERFORM  PRINT-DETAIL.                                       IX2144.2

222500 START-TEST-GF-36.                                                IX2144.2

222600     MOVE              "FILE STATUS START:23" TO FEATURE.         IX2144.2

222700     MOVE "START-TEST-GF-36" TO PAR-NAME.                         IX2144.2

222800     IF      FILESTATUS (9)  EQUAL TO "**"                        IX2144.2

222900             PERFORM DE-LETE                                      IX2144.2

223000             MOVE "FROM START-TEST-GF-27"  TO CORRECT-A           IX2144.2

223100             GO TO  START-TEST-GF-36A.                            IX2144.2

223200*                                                                 IX2144.2

223300*  START-TEST-006.09 - THIS TEST CHECKS THE FILE STATUS CONTENTS  IX2144.2

223400*                    RESULTING FROM START-TEST-GF-27.  THE FILE   IX2144.2

223500*                    STATUS CONTENTS IS EXPECTED TO BE "23".      IX2144.2

223600*                                                                 IX2144.2

223700     IF      FILESTATUS (9)  EQUAL TO "23"                        IX2144.2

223800             PERFORM PASS                                         IX2144.2

223900     ELSE    PERFORM FAIL                                         IX2144.2

224000         MOVE "FROM START-TEST-GF-27; IX-4 1.3.4 (3) C" TO RE-MARKIX2144.2

224100             MOVE  "23"  TO CORRECT-A                             IX2144.2

224200             MOVE   FILESTATUS (9)  TO COMPUTED-A.                IX2144.2

224300 START-TEST-GF-36A.                                               IX2144.2

224400     PERFORM  PRINT-DETAIL.                                       IX2144.2

224500                                                                  IX2144.2

224600                                                                  IX2144.2

224700                                                                  IX2144.2

224800 START-INIT-GF-37.                                                IX2144.2

224900     OPEN  I-O   IX-FS1.                                          IX2144.2

225000     MOVE     "START SERIES" TO FEATURE.                          IX2144.2

225100     MOVE    "START-TEST-GF-37" TO PAR-NAME.                      IX2144.2

225200     MOVE    ZERO TO INVKEY-COUNTER.                              IX2144.2

225300*                                                                 IX2144.2

225400*    THIS TEST EXECUTES SEVERAL START STATEMENTS USING DIFFERENT  IX2144.2

225500*    KEY VALUES.  FOLLOWING EXECUTION OF THE LAST START           IX2144.2

225600*    STATEMENT THE READ STATEMENT IS EXECUTED.  THE START         IX2144.2

225700*    STATEMENT SHOULD HAVE POSITION THE RECORD POINTER            IX2144.2

225800*    SUCH THAT RECORD NUMBER 50 IS MADE AVAILABLE                 IX2144.2

225900*    TO THE READ STATEMENT.  THE KEY OF REFERENCE                 IX2144.2

226000*    SHOULD BE ALTERNATE-KEY-2.                                   IX2144.2

226100*                                                                 IX2144.2

226200 START-TEST-GF-37.                                                IX2144.2

226300     MOVE    "FGGGGGGGGG098"  TO FS1-RECKEY-1-13.                 IX2144.2

226400     MOVE    "WWWWWWWXXX366ALTKEY1"  TO FS1-ALTKEY1-1-20.         IX2144.2

226500     MOVE    "RRRRRRRRRR300ALTKEY2"  TO FS1-ALTKEY2-1-20.         IX2144.2

226600     MOVE    WRK-FS1-RECKEY TO IX-REC-KEY-AREA.                   IX2144.2

226700     MOVE    WRK-FS1-ALTKEY1 TO IX-ALT-KEY1-AREA.                 IX2144.2

226800     MOVE    WRK-FS1-ALTKEY2 TO IX-ALT-KEY2-AREA.                 IX2144.2

226900     START   IX-FS1                                               IX2144.2

227000                     KEY IS EQUAL TO IX-FS1-ALTKEY2               IX2144.2

227100                       INVALID KEY ADD 1  TO INVKEY-COUNTER.      IX2144.2

227200     START   IX-FS1   INVALID KEY  ADD  01  TO INVKEY-COUNTER.    IX2144.2

227300     START   IX-FS1                                               IX2144.2

227400                    KEY IS NOT LESS THAN R-ALTKEY1-1-6            IX2144.2

227500                       INVALID KEY ADD 1  TO INVKEY-COUNTER.      IX2144.2

227600     START   IX-FS1                                               IX2144.2

227700                     KEY IS NOT LESS THAN IX-FS1-ALTKEY2-1-5      IX2144.2

227800                       INVALID KEY ADD 1  TO INVKEY-COUNTER.      IX2144.2

227900     READ    IX-FS1  AT END                                       IX2144.2

228000                     MOVE  "AT END ON READ"  TO COMPUTED-A        IX2144.2

228100                     GO TO  START-FAIL-GF-37.                     IX2144.2

228200     MOVE    IX-FS1R1-F-G-240 TO FILE-RECORD-INFO (1).            IX2144.2

228300     IF      XRECORD-NUMBER (1) EQUAL TO 175                      IX2144.2

228400             PERFORM  PASS                                        IX2144.2

228500             MOVE    "MULTIPLE STARTS BEFORE READ " TO RE-MARK    IX2144.2

228600             GO TO  START-WRITE-GF-37.                            IX2144.2

228700     MOVE    "RRRRRRRRRR050ALTKEY2" TO CORRECT-A.                 IX2144.2

228800     MOVE    ALTERNATE-KEY2 (1) TO WRK-FS1-ALTKEY2.               IX2144.2

228900     MOVE    FS1-ALTKEY2-1-20 TO COMPUTED-A.                      IX2144.2

229000     MOVE    SPACE TO P-OR-F.                                     IX2144.2

229100     MOVE    "ALTERNATE RECORD KEY2 VALUES" TO RE-MARK.           IX2144.2

229200     PERFORM PRINT-DETAIL.                                        IX2144.2

229300     MOVE    XRECORD-NUMBER (1) TO COMPUTED-18V0.                 IX2144.2

229400 START-FAIL-GF-37.                                                IX2144.2

229500     PERFORM FAIL.                                                IX2144.2

229600     MOVE    175 TO CORRECT-18V0.                                 IX2144.2

229700     MOVE "WRONG RECORD NUMBER; IX-28 OR IX-36" TO RE-MARK.       IX2144.2

229800     GO TO START-WRITE-GF-37.                                     IX2144.2

229900 START-DELETE-GF-37.                                              IX2144.2

230000     PERFORM DE-LETE.                                             IX2144.2

230100 START-WRITE-GF-37.                                               IX2144.2

230200     PERFORM  PRINT-DETAIL.                                       IX2144.2

230300                                                                  IX2144.2

230400     CLOSE   IX-FS1.                                              IX2144.2

230500     GO TO  CCVS-EXIT.                                            IX2144.2

230600                                                                  IX2144.2

230700                                                                  IX2144.2

230800 START-INITIALIZE-RECORD.                                         IX2144.2

230900     MOVE    "**"  TO FS1-STATUS.                                 IX2144.2

231000     MOVE    "GGGGGGGGGG200" TO  FS1-RECKEY-1-13.                 IX2144.2

231100     MOVE    ZERO  TO INIT-FLAG.                                  IX2144.2

231200     MOVE    9999  TO XRECORD-NUMBER (1).                         IX2144.2

231300     MOVE    SPACE TO IX-FS1R1-F-G-240.                           IX2144.2

231400     MOVE    WRK-FS1-RECKEY TO IX-REC-KEY-AREA.                   IX2144.2

231500     START   IX-FS1                                               IX2144.2

231600                     KEY IS EQUAL TO IX-FS1-KEY                   IX2144.2

231700         INVALID KEY MOVE  "INVALID KEY ON START" TO COMPUTED-A   IX2144.2

231800                     MOVE 01 TO INIT-FLAG.                        IX2144.2

231900     READ    IX-FS1  INTO  FILE-RECORD-INFO (1)                   IX2144.2

232000                     AT END  MOVE  "AT END ON READ" TO COMPUTED-A IX2144.2

232100                     MOVE 01 TO INIT-FLAG.                        IX2144.2

232200     IF      XRECORD-NUMBER (1) NOT EQUAL TO 100                  IX2144.2

232300             MOVE 02 TO INIT-FLAG.                                IX2144.2

232400     MOVE    SPACE TO FS1-STATUS.                                 IX2144.2

232500 START-INIT-ERROR.                                                IX2144.2

232600     MOVE    "TEST IMPROPERLY INITIALIZED" TO RE-MARK.            IX2144.2

232700     MOVE    "GGGGGGGGGG200" TO CORRECT-A.                        IX2144.2

232800     IF      INIT-FLAG NOT EQUAL 01                               IX2144.2

232900             MOVE    XRECORD-KEY (1)  TO WRK-FS1-RECKEY           IX2144.2

233000             MOVE    FS1-RECKEY-1-13  TO COMPUTED-A.              IX2144.2

233100     PERFORM PRINT-DETAIL.                                        IX2144.2

233200     MOVE    "**" TO FILESTATUS (REC-CT).                         IX2144.2

233300 DISPLAY-RECORD-KEYS.                                             IX2144.2

233400     MOVE    XRECORD-KEY (1)  TO WRK-FS1-RECKEY.                  IX2144.2

233500     MOVE    FS1-RECKEY-1-13  TO COMPUTED-A.                      IX2144.2

233600     MOVE    RECKEY-VALUE (RECNO)  TO CORRECT-A.                  IX2144.2

233700     MOVE    SPACE TO P-OR-F.                                     IX2144.2

233800     MOVE    "RECORD KEY VALUES" TO RE-MARK.                      IX2144.2

233900     PERFORM PRINT-DETAIL.                                        IX2144.2

234000 DISPLAY-ALTERNATE-KEY1.                                          IX2144.2

234100     MOVE    ALTERNATE-KEY1 (1)  TO WRK-FS1-ALTKEY1.              IX2144.2

234200     MOVE    FS1-ALTKEY1-1-20  TO COMPUTED-A.                     IX2144.2

234300     MOVE    ALTKEY1-VALUE (RECNO)  TO CORRECT-A.                 IX2144.2

234400     MOVE    SPACE TO P-OR-F.                                     IX2144.2

234500     MOVE    "ALTERNATE RECORD KEY1 VALUES"  TO RE-MARK.          IX2144.2

234600     PERFORM PRINT-DETAIL.                                        IX2144.2

234700 DISPLAY-ALTERNATE-KEY2.                                          IX2144.2

234800     MOVE    ALTERNATE-KEY2 (1) TO WRK-FS1-ALTKEY2.               IX2144.2

234900     MOVE    FS1-ALTKEY2-1-20  TO COMPUTED-A.                     IX2144.2

235000     MOVE    ALTKEY2-VALUE (RECNO)  TO CORRECT-A.                 IX2144.2

235100     MOVE    SPACE TO P-OR-F.                                     IX2144.2

235200     MOVE    "ALTERNATE RECORD KEY2 VALUES"  TO RE-MARK.          IX2144.2

235300     PERFORM PRINT-DETAIL.                                        IX2144.2

235400                                                                  IX2144.2

235500                                                                  IX2144.2

235600 CCVS-EXIT SECTION.                                               IX2144.2

235700 CCVS-999999.                                                     IX2144.2

235800     GO TO CLOSE-FILES.                                           IX2144.2
Messung V0.5 in Prozent
¤ Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.0.118Bemerkung: ¤

*Bot Zugriff
Wurzel
Suchen
Beweissystem der NASA
Beweissystem Isabelle
NIST Cobol Testsuite
Cephes Mathematical Library
Wiener Entwicklungsmethode
Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:

Die farbliche Syntaxdarstellung und die Messung sind noch experimentell.