Quelle  ix209a.cob   Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         IX2094.2
000200 PROGRAM-ID.                                                      IX2094.2
000300     IX209A.                                                      IX2094.2
000400****************************************************************  IX2094.2
000500*                                                              *  IX2094.2
000600*    VALIDATION FOR:-                                          *  IX2094.2
000700*                                                              *  IX2094.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX2094.2
000900*                                                              *  IX2094.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IX2094.2
001100*                                                              *  IX2094.2
001200****************************************************************  IX2094.2
001300*                                                              *  IX2094.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  IX2094.2
001500*                                                              *  IX2094.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  IX2094.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  IX2094.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  IX2094.2
001900*                                                              *  IX2094.2
002000****************************************************************  IX2094.2
002100*         "IX209A"                                                IX2094.2
002200******************************************************************IX2094.2
002300*    THE PURPOSE OF THIS PROGRAM IS TO TEST USE OF THE            IX2094.2
002400*    START --- EQUAL TO --- STATEMENT USING FIRST THE PRIME       IX2094.2
002500*    RECORD KEY AND THEN WITH EACH OF THE ALTERNATE RECORD KEYS   IX2094.2
002600*    AS THE KEY OF REFERENCE.   THE START STATEMENT NAMES,        IX2094.2
002700*    IN ITS CONSTRUCT , EITHER THE DATA NAME SPECIFIED IN THE     IX2094.2
002800*    KEY CLAUSE OR A DATA ITEM THAT IS SUBORDINATE TO THE         IX2094.2
002900*    KEY NAME.   DIFFERENT KEY VALUES ARE USED FOR TESTING.       IX2094.2
003000*    IF A KEY VALUE IS PROVIDED WHICH MATCHES A RECORD IN THE FILEIX2094.2
003100*    WHEN THE START IS EXECUTED THEN THE RECORD IS EXPECTED TO    IX2094.2
003200*    MADE AVAILABLE BY THE SUBSEQUENT READ STATEMENT.  IF A KEY   IX2094.2
003300*    VALUE IS PROVIDED WHICH DOES NOT  MATCH ANY RECORD IN THE    IX2094.2
003400*    FILE THEN THE INVALID KEY PATH IS EXPECTED TO BE TAKEN.      IX2094.2
003500*    THE FILE STATUS CONTENTS RESULTING FROM EXECUTION OF THE     IX2094.2
003600*    START TESTS ARE SAVED AND CHECKED IN LATER TESTS.            IX2094.2
003700*                                                                 IX2094.2
003800*            REFERENCE   AMERICAN NATIONAL STANDARD               IX2094.2
003900*                        PROGRAMMING LANGUAGE COBOL, X3.23-198X.  IX2094.2
004000*                        SECTION IX, INDEX I-O, THE START         IX2094.2
004100*                        STATEMENT. PARAGRAPHS 4.7.3 (3), (4);    IX2094.2
004200*                                              4.7.4 (1), (4), (5)IX2094.2
004300*                                                        AND      IX2094.2
004400*                        THE FILE STATUS PARAGRAPH 1.3.4          IX2094.2
004500*                                                                 IX2094.2
004600*    BEFORE EXECUTION OF THE START IN EACH TEST, A RECORD IS MADE IX2094.2
004700*    AVAILABLE FROM THE FILE THAT IS DIFFERENT THAN WILL RESULT   IX2094.2
004800*    FROM THE TEST, AND THE RECORD KEY IS LOADED WITH A KEY VALUE.IX2094.2
004900*    DEPENDING ON THE NATURE OF THE TEST THE KEY VALUE MAY OR     IX2094.2
005000*    MAY NOT BE A VALID KEY FOR THE FILE.                         IX2094.2
005100*                                                                 IX2094.2
005200*    THIS PROGRAM FIRST CREATES AN  INDEXED SEQUENTIAL FILE       IX2094.2
005300*    CONTAINING TWO ALTERNATE KEYS AND  THE ONE REQUIRED RECORD   IX2094.2
005400*    KEY FOR THE FILE.  IMMEDIATELY FOLLOWING FILE CREATION THE   IX2094.2
005500*    FILE IS READ AND THE RECORDS OF THE FILE VERIFIED FOR        IX2094.2
005600*    ACCURACY.  NEXT THE TESTS ARE EXECUTED USING THE START ---   IX2094.2
005700*    EQUAL TO --- STATEMENT.                                      IX2094.2
005800*    THE RECORDS IN THE FILE ARE CREATED IN SEQUENTIAL ORDER BY   IX2094.2
005900*    RECORD KEY VALUE.  FOLLOWING  IS A SAMPLE OF THE DATA        IX2094.2
006000*    CONTENTS FOR THE RECORD KEY AND TWO ALTERNATE RECORD KEYS IN IX2094.2
006100*    THE FILE.                                                    IX2094.2
006200*                                                                 IX2094.2
006300*   REC-NO  RECORD-KEY      ALTERNATE-KEY-1     ALTERNATE-KEY-2   IX2094.2
006400*   ------  ----------      ---------------     ---------------   IX2094.2
006500*    001   BBBBBBBBBC002 EEEEEEEEEF000ALTKEY1 WWWWWWWWWV398ALTKEY2IX2094.2
006600*    002   BBBBBBBBCC004 EEEEEEEEFF004ALTKEY1 WWWWWWWWVV396ALTKEY2IX2094.2
006700*    003   BBBBBBBCCC006 EEEEEEEFFF006ALTKEY1 WWWWWWWVVV394ALTKEY2IX2094.2
006800*     .          .                 .                    .         IX2094.2
006900*     .          .                 .                    .         IX2094.2
007000*     .          .                 .                    .         IX2094.2
007100*    010   CCCCCCCCCC020 FFFFFFFFFF020ALTKEY1 VVVVVVVVVV380ALTKEY2IX2094.2
007200*    011   CCCCCCCCCD022 FFFFFFFFFG022ALTKEY1 VVVVVVVVVV380ALTKEY2IX2094.2
007300*    012   CCCCCCCCDD024 FFFFFFFFGG024ALTKEY1 VVVVVVVVUU376ALTKEY2IX2094.2
007400*     .          .                 .                    .         IX2094.2
007500*     .          .                 .                    .         IX2094.2
007600*     .          .                 .                    .         IX2094.2
007700*    200   UUUUUUUUUU400 YYYYYYYYYY400ALTKEY1 DDDDDDDDDD000ALTKEY2IX2094.2
007800*                                                                 IX2094.2
007900*     NOTE 1 - ALTERNATE KEY NUMBER 2 CONTAINS DUPLICATE KEYS     IX2094.2
008000*              EVERY 10TH AND 11TH RECORDS.                       IX2094.2
008100*                                                                 IX2094.2
008200*     NOTE 2 - THE FIRST 50 RECORDS AND LAST 25 RECORDS OF THE    IX2094.2
008300*    FILE FOLLOW THE ABOVE SEQUENTIAL KEY PATTERN.  FOR THE MIDDLEIX2094.2
008400*    125 RECORDS ONLY THE NUMBER PART OF THE KEYS ARE VARIED      IX2094.2
008500*    AND VARIED IN THE SEQUENCE SHOWN ABOVE.  THAT IS, RECORD-KEY IX2094.2
008600*    AND ALTERNATE-KEY-1 ARE INCREMENTED BY 2 AND THE ALTERNATE-  IX2094.2
008700*    KEY-2 IS DECREMENTED BY 2 EACH TIME A RECORD IS WRITTEN TO   IX2094.2
008800*    THE FILE.  THE FILE IS DESIGNED TO BE LARGE ENOUGH SO THAT   IX2094.2
008900*    AN I-O OPERATION IS REQUIRED FOR EACH RECORD ACCESSED FROM   IX2094.2
009000*    THE FILE.                                                    IX2094.2
009100*                                                                 IX2094.2
009200*    FILE CHARACTERISTICS ARE: FILE SIZE            = 200 RECORDS IX2094.2
009300*                              RECORD SIZE          = 240 CHARS.  IX2094.2
009400*                              RECORD KEY SIZE      = 13  CHARS.  IX2094.2
009500*                              ALTERNATE KEY 1 SIZE = 20  CHARS.  IX2094.2
009600*                              ALTERNATE KEY 2 SIZE = 20  CHARS.  IX2094.2
009700*                              ACCESS MODE          = SEQUENTIAL  IX2094.2
009800*                                                                 IX2094.2
009900*    A LIST OF COBOL ELEMENTS WITH THE PARAGRAPH NAME IN PARENTH- IX2094.2
010000*    ESIS THAT TESTS THE ELEMENT AND A SHORT DESCRIPTION OF THE   IX2094.2
010100*    TEST FOLLOWS.                                                IX2094.2
010200*                                                                 IX2094.2
010300*      WRITE --- INVALID KEY---. (INX-TEST-001) - THIS TEST CREATEIX2094.2
010400*            A FILE OF 200 RECORDS CONTAINING ONE RECORD KEY AND  IX2094.2
010500*            TWO ALTERNATE KEYS.                                  IX2094.2
010600*      READ ---AT END ---. (INX-TEST-002) - THIS TEST READS THE   IX2094.2
010700*            FILE CREATED IN INX-TEST-001 AND VERIFIES THAT   THE IX2094.2
010800*            FILE WAS CREATED CORRECTLY.                          IX2094.2
010900*      START --- KEY IS EQUAL TO RECORD-KEY INVALID KEY ---. (INX-IX2094.2
011000*            TEST-003.01 THRU INX-TEST-003.04) - THE START        IX2094.2
011100*            STATEMENT IS EXECUTED USING THE RECORD-KEY FOR THE   IX2094.2
011200*            FILE CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2094.2
011300*            RECORD IN THE FILE (.01), BETWEEN TWO EXISTING KEY   IX2094.2
011400*            VALUES (02), LESS THAN THE FIRST RECORD IN THE FILE  IX2094.2
011500*            (.03) AND GREATER THAN THAN THE LAST RECORD IN THE   IX2094.2
011600*            FILE (.04).                                          IX2094.2
011700*      START --- KEY IS EQUAL TO DATA-ITEM  INVALID KEY ---. (INX-IX2094.2
011800*            TEST-003.05 THRU INX-TEST-003.09) - THE START        IX2094.2
011900*            STATEMENT IS EXECUTED USING A DATA ITEM WHICH IS     IX2094.2
012000*            SUBORDINATE TO  THE RECORD-KEY NAME OF THE FILE      IX2094.2
012100*            AND  CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2094.2
012200*            RECORD IN THE FILE (.05), EQUAL A VALUE PRESENT IN   IX2094.2
012300*            IN MORE THAN ONE RECORD IN THE FILE (.06),           IX2094.2
012400*            NOT EQUAL TO ANY RECORD IN THE FILE (.07, LESS THAN  IX2094.2
012500*            THE FIRST RECORD IN THE FILE (.08) AND GREATER THAN  IX2094.2
012600*            THE LAST RECORD IN THE FILE (.09.                    IX2094.2
012700*      FILE STATUS. (INX-TEST-004.01 THRU INX-TEST-004.09) - THESEIX2094.2
012800*            TESTS CHECK THE CONTENTS OF THE FILE STATUS RESULTINGIX2094.2
012900*            FROM THE START IN INX-TEST-003.01 THRU               IX2094.2
013000*            INX-TEST-003.09.                                     IX2094.2
013100*      START --- KEY IS EQUAL TO ALTNATE-KEY INVALID KEY --. (INX-IX2094.2
013200*            TEST-005.01 THRU INX-TEST-005.04) - THE START        IX2094.2
013300*            STATEMENT IS EXECUTED USING THE ALTERNATE-KEY FOR THEIX2094.2
013400*            FILE CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2094.2
013500*            RECORD IN THE FILE (.01), BETWEEN TWO EXISTING KEY   IX2094.2
013600*            VALUES (02), LESS THAN THE FIRST RECORD IN THE FILE  IX2094.2
013700*            (.03) AND GREATER THAN THAN THE LAST RECORD IN THE   IX2094.2
013800*            FILE (.04).                                          IX2094.2
013900*      START --- KEY IS EQUAL TO DATA-ITEM  INVALID KEY ---. (INX-IX2094.2
014000*            TEST-005.05 THRU INX-TEST-005.09) - THE START        IX2094.2
014100*            STATEMENT IS EXECUTED USING A DATA ITEM WHICH IS     IX2094.2
014200*            SUBORDINATE TO THE ALTERNATE-KEY NAME OF THE FILE    IX2094.2
014300*            AND  CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2094.2
014400*            RECORD IN THE FILE (.05), EQUAL A VALUE PRESENT IN   IX2094.2
014500*            IN MORE THAN ONE RECORD IN THE FILE (.06),           IX2094.2
014600*            NOT EQUAL TO ANY RECORD IN THE FILE (.07, LESS THAN  IX2094.2
014700*            THE FIRST RECORD IN THE FILE (.08) AND GREATER THAN  IX2094.2
014800*            THE LAST RECORD IN THE FILE (.09.                    IX2094.2
014900*      FILE STATUS. (INX-TEST-006.01 THRU INX-TEST-006.09) - THESEIX2094.2
015000*            TESTS CHECK THE CONTENTS OF THE FILE STATUS RESULTINGIX2094.2
015100*            FROM THE START IN INX-TEST-005.01 THRU               IX2094.2
015200*            INX-TEST-005.09.                                     IX2094.2
015300*      START --- KEY IS EQUAL TO ALTNATE-KEY INVALID KEY --. (INX-IX2094.2
015400*            TEST-007.01 THRU INX-TEST-007.04) - THE START        IX2094.2
015500*            STATEMENT IS EXECUTED USING THE ALTERNATE-KEY        IX2094.2
015600*            WHICH SPECIFIES THE DUPLICATES OPTION FOR THE FILE   IX2094.2
015700*            AND  CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2094.2
015800*            RECORD IN THE FILE (.01), BETWEEN TWO EXISTING KEY   IX2094.2
015900*            VALUES (02), LESS THAN THE FIRST RECORD IN THE FILE  IX2094.2
016000*            (.03) AND GREATER THAN THAN THE LAST RECORD IN THE   IX2094.2
016100*            FILE (.04).                                          IX2094.2
016200*      START --- KEY IS EQUAL TO DATA-ITEM  INVALID KEY ---. (INX-IX2094.2
016300*            TEST-007.05 THRU INX-TEST-007.09) - THE START        IX2094.2
016400*            STATEMENT IS EXECUTED USING A DATA ITEM WHICH IS     IX2094.2
016500*            SUBORDINATE TO THE ALTERNATE-KEY W/DUP FOR THE FILE  IX2094.2
016600*            AND  CONTAINING KEY VALUES WHICH RESPECTIVELY EQUAL AIX2094.2
016700*            RECORD IN THE FILE (.05), EQUAL A VALUE PRESENT IN   IX2094.2
016800*            IN MORE THAN ONE RECORD IN THE FILE (.06),           IX2094.2
016900*            NOT EQUAL TO ANY RECORD IN THE FILE (.07, LESS THAN  IX2094.2
017000*            THE FIRST RECORD IN THE FILE (.08) AND GREATER THAN  IX2094.2
017100*            THE LAST RECORD IN THE FILE (.09.                    IX2094.2
017200*      FILE STATUS. (INX-TEST-008.01 THRU INX-TEST-008.09) - THESEIX2094.2
017300*            TESTS CHECK THE CONTENTS OF THE FILE STATUS RESULTINGIX2094.2
017400*            FROM THE START IN INX-TEST-007.01 THRU               IX2094.2
017500*            INX-TEST-007.09.                                     IX2094.2
017600*                                                                 IX2094.2
017700******************************************************************IX2094.2
017800 ENVIRONMENT DIVISION.                                            IX2094.2
017900 CONFIGURATION SECTION.                                           IX2094.2
018000 SOURCE-COMPUTER.                                                 IX2094.2
018100     Card0130.                                                    IX2094.2
018200 OBJECT-COMPUTER.                                                 IX2094.2
018300     Card0131.                                                    IX2094.2
018400 INPUT-OUTPUT SECTION.                                            IX2094.2
018500 FILE-CONTROL.                                                    IX2094.2
018600     SELECT RAW-DATA   ASSIGN TO                                  IX2094.2
018700     "C0098"                                                      IX2094.2
018800            ORGANIZATION IS INDEXED                               IX2094.2
018900            ACCESS MODE IS RANDOM                                 IX2094.2
019000            RECORD KEY IS RAW-DATA-KEY.                           IX2094.2
019100     SELECT PRINT-FILE ASSIGN TO                                  IX2094.2
019200     "C0085" .                                                    IX2094.2
019300     SELECT  IX-FS1                                               IX2094.2
019400     ASSIGN TO                                                    IX2094.2
019500     "C0036"                                                      IX2094.2
019600     "C0068"                                                      IX2094.2
019700        ACCESS MODE IS SEQUENTIAL                                 IX2094.2
019800        ORGANIZATION IS INDEXED                                   IX2094.2
019900        RECORD KEY IS IX-FS1-KEY                                  IX2094.2
020000        ALTERNATE RECORD KEY IS IX-FS1-ALTKEY1                    IX2094.2
020100        ALTERNATE RECORD KEY IS IX-FS1-ALTKEY2 WITH DUPLICATES    IX2094.2
020200        FILE STATUS IS FS1-STATUS.                                IX2094.2
020300 DATA DIVISION.                                                   IX2094.2
020400 FILE SECTION.                                                    IX2094.2
020500                                                                  IX2094.2
020600 FD  RAW-DATA.                                                    IX2094.2
020700                                                                  IX2094.2
020800 01  RAW-DATA-SATZ.                                               IX2094.2
020900     05  RAW-DATA-KEY        PIC X(6).                            IX2094.2
021000     05  C-DATE              PIC 9(6).                            IX2094.2
021100     05  C-TIME              PIC 9(8).                            IX2094.2
021200     05  C-NO-OF-TESTS       PIC 99.                              IX2094.2
021300     05  C-OK                PIC 999.                             IX2094.2
021400     05  C-ALL               PIC 999.                             IX2094.2
021500     05  C-FAIL              PIC 999.                             IX2094.2
021600     05  C-DELETED           PIC 999.                             IX2094.2
021700     05  C-INSPECT           PIC 999.                             IX2094.2
021800     05  C-NOTE              PIC X(13).                           IX2094.2
021900     05  C-INDENT            PIC X.                               IX2094.2
022000     05  C-ABORT             PIC X(8).                            IX2094.2
022100 FD  PRINT-FILE.                                                  IX2094.2
022200 01  PRINT-REC PICTURE X(120).                                    IX2094.2
022300 01  DUMMY-RECORD PICTURE X(120).                                 IX2094.2
022400 FD  IX-FS1                                                       IX2094.2
022500     LABEL RECORDS ARE STANDARD                                   IX2094.2
022600     DATA RECORD IS IX-FS1R1-F-G-240                              IX2094.2
022700     RECORD CONTAINS 240 CHARACTERS.                              IX2094.2
022800 01  IX-FS1R1-F-G-240.                                            IX2094.2
022900     05 IX-FS1-REC-120           PICTURE X(120).                  IX2094.2
023000     05 IX-FS1-REC-121-240.                                       IX2094.2
023100        10 FILLER                PICTURE X(8).                    IX2094.2
023200        10 IX-REC-KEY-AREA.                                       IX2094.2
023300           15 IX-FS1-KEY.                                         IX2094.2
023400              20 IX-FS1-KEY-1-10.                                 IX2094.2
023500                 25 IX-FS1-KEY-1-5      PICTURE X(5).             IX2094.2
023600                 25 IX-FS1-KEY-6-10     PICTURE X(5).             IX2094.2
023700               20 IX-FS1-KEY-11-13      PICTURE X(3).             IX2094.2
023800           15 FILLER             PICTURE X(16).                   IX2094.2
023900        10 FILLER                PICTURE X(9).                    IX2094.2
024000        10 IX-ALT-KEY1-AREA.                                      IX2094.2
024100           15 IX-FS1-ALTKEY1.                                     IX2094.2
024200              20 IX-FS1-ALTKEY1-1-10.                             IX2094.2
024300                 25 IX-FS1-ALTKEY1-1-5  PICTURE X(5).             IX2094.2
024400                 25 IX-FS1-ALTKEY1-6-10 PICTURE X(5).             IX2094.2
024500              20 IX-FS1-ALTKEY1-11-13   PICTURE X(3).             IX2094.2
024600              20 IX-FS1-ALTKEY1-14-20   PICTURE X(7).             IX2094.2
024700           15 FILLER             PICTURE X(9).                    IX2094.2
024800        10 FILLER                PICTURE X(9).                    IX2094.2
024900        10 IX-ALT-KEY2-AREA.                                      IX2094.2
025000           15 IX-FS1-ALTKEY2.                                     IX2094.2
025100              20 IX-FS1-ALTKEY2-1-10.                             IX2094.2
025200                 25 IX-FS1-ALTKEY2-1-5  PICTURE X(5).             IX2094.2
025300                 25 IX-FS1-ALTKEY2-6-10 PICTURE X(5).             IX2094.2
025400              20 IX-FS1-ALTKEY2-11-13   PICTURE X(3).             IX2094.2
025500              20 IX-FS1-ALTKEY2-14-20   PICTURE X(7).             IX2094.2
025600           15 FILLER             PICTURE X(9).                    IX2094.2
025700        10 FILLER                PICTURE X(7).                    IX2094.2
025800 WORKING-STORAGE SECTION.                                         IX2094.2
025900 01  WRK-FS1-RECKEY.                                              IX2094.2
026000     05 FS1-RECKEY-1-13.                                          IX2094.2
026100        10 FS1-RECKEY-1-10       PICTURE X(10).                   IX2094.2
026200        10 FS1-RECKEY-11-13      PICTURE 9(3).                    IX2094.2
026300     05 FILLER                   PICTURE X(16)  VALUE SPACE.      IX2094.2
026400 01  WRK-FS1-ALTKEY1.                                             IX2094.2
026500      05 FS1-ALTKEY1-1-20.                                        IX2094.2
026600       10  FS1-ALTKEY1-1-10.                                      IX2094.2
026700        15 FS1-ALTKEY1-1-5       PICTURE X(5).                    IX2094.2
026800        15 FS1-ALTKEY1-6-10      PICTURE X(5).                    IX2094.2
026900       10 FS1-ALTKEY1-11-13      PICTURE 9(3).                    IX2094.2
027000       10 FS1-ALTKEY1-14-20      PICTURE X(7).                    IX2094.2
027100     05 FILLER                   PICTURE X(9)  VALUE SPACE.       IX2094.2
027200 01  WRK-FS1-ALTKEY2.                                             IX2094.2
027300     05 FS1-ALTKEY2-1-20.                                         IX2094.2
027400        10 FS1-ALTKEY2-1-10.                                      IX2094.2
027500           15 FS1-ALTKEY2-1-5    PICTURE X(5).                    IX2094.2
027600           15 FS1-ALTKEY2-6-10   PICTURE X(5).                    IX2094.2
027700        10 FS1-ALTKEY2-11-13     PICTURE 9(3).                    IX2094.2
027800        10 FS1-ALTKEY2-14-20     PICTURE X(7).                    IX2094.2
027900     05 FILLER                   PICTURE X(9) VALUE SPACE.        IX2094.2
028000 01  RECNO                       PICTURE 9(5)  VALUE ZERO.        IX2094.2
028100 01  FS1-STATUS                  PICTURE XX   VALUE SPACE.        IX2094.2
028200 01  EXCUT-COUNTER-06V00         PICTURE 9(6) VALUE ZERO.         IX2094.2
028300 01  KEYSUB                      PICTURE 9(3) COMPUTATIONAL.      IX2094.2
028400 01  INVKEY-COUNTER              PICTURE 9(3) COMPUTATIONAL.      IX2094.2
028500 01  RECORDS-WRITTEN             PICTURE 9(3).                    IX2094.2
028600 01  RECKEY-NUM                  PICTURE 9(3).                    IX2094.2
028700 01  ALTKEY1-NUM                 PICTURE 9(3).                    IX2094.2
028800 01  ALTKEY2-NUM                 PICTURE 9(3).                    IX2094.2
028900 01  RECORD-KEY-CONTENT.                                          IX2094.2
029000     05 FILLER PIC X(53) VALUE                                    IX2094.2
029100          "BBBBBBBBBC002EEEEEEEEEF002ALTKEY1WWWWWWWWWV398ALTKEY2".IX2094.2
029200     05 FILLER PIC X(53) VALUE                                    IX2094.2
029300          "BBBBBBBBCC004EEEEEEEEFF004ALTKEY1WWWWWWWWVV396ALTKEY2".IX2094.2
029400     05 FILLER PIC X(53) VALUE                                    IX2094.2
029500          "BBBBBBBCCC006EEEEEEEFFF006ALTKEY1WWWWWWWVVV394ALTKEY2".IX2094.2
029600     05 FILLER PIC X(53) VALUE                                    IX2094.2
029700          "BBBBBBCCCC008EEEEEEFFFF008ALTKEY1WWWWWWVVVV392ALTKEY2".IX2094.2
029800     05 FILLER PIC X(53) VALUE                                    IX2094.2
029900          "BBBBBCCCCC010EEEEEFFFFF010ALTKEY1WWWWWVVVVV390ALTKEY2".IX2094.2
030000     05 FILLER PIC X(53) VALUE                                    IX2094.2
030100          "BBBBCCCCCC012EEEEFFFFFF012ALTKEY1WWWWVVVVVV388ALTKEY2".IX2094.2
030200     05 FILLER PIC X(53) VALUE                                    IX2094.2
030300          "BBBCCCCCCC014EEEFFFFFFF014ALTKEY1WWWVVVVVVV386ALTKEY2".IX2094.2
030400     05 FILLER PIC X(53) VALUE                                    IX2094.2
030500          "BBCCCCCCCC016EEFFFFFFFF016ALTKEY1WWVVVVVVVV384ALTKEY2".IX2094.2
030600     05 FILLER PIC X(53) VALUE                                    IX2094.2
030700          "BCCCCCCCCC018EFFFFFFFFF018ALTKEY1WVVVVVVVVV382ALTKEY2".IX2094.2
030800     05 FILLER PIC X(53) VALUE                                    IX2094.2
030900          "CCCCCCCCCC020FFFFFFFFFF020ALTKEY1VVVVVVVVVV380ALTKEY2".IX2094.2
031000     05 FILLER PIC X(53) VALUE                                    IX2094.2
031100          "CCCCCCCCCD022FFFFFFFFFG022ALTKEY1VVVVVVVVVV380ALTKEY2".IX2094.2
031200     05 FILLER PIC X(53) VALUE                                    IX2094.2
031300          "CCCCCCCCDD024FFFFFFFFGG024ALTKEY1VVVVVVVVUU376ALTKEY2".IX2094.2
031400     05 FILLER PIC X(53) VALUE                                    IX2094.2
031500          "CCCCCCCDDD026FFFFFFFGGG026ALTKEY1VVVVVVVUUU374ALTKEY2".IX2094.2
031600     05 FILLER PIC X(53) VALUE                                    IX2094.2
031700          "CCCCCCDDDD028FFFFFFGGGG028ALTKEY1VVVVVVUUUU372ALTKEY2".IX2094.2
031800     05 FILLER PIC X(53) VALUE                                    IX2094.2
031900          "CCCCCDDDDD030FFFFFGGGGG030ALTKEY1VVVVVUUUUU370ALTKEY2".IX2094.2
032000     05 FILLER PIC X(53) VALUE                                    IX2094.2
032100          "CCCCDDDDDD032FFFFGGGGGG032ALTKEY1VVVVUUUUUU368ALTKEY2".IX2094.2
032200     05 FILLER PIC X(53) VALUE                                    IX2094.2
032300          "CCCDDDDDDD034FFFGGGGGGG034ALTKEY1VVVUUUUUUU366ALTKEY2".IX2094.2
032400     05 FILLER PIC X(53) VALUE                                    IX2094.2
032500          "CCDDDDDDDD036FFGGGGGGGG036ALTKEY1VVUUUUUUUU364ALTKEY2".IX2094.2
032600     05 FILLER PIC X(53) VALUE                                    IX2094.2
032700          "CDDDDDDDDD038FGGGGGGGGG038ALTKEY1VUUUUUUUUU362ALTKEY2".IX2094.2
032800     05 FILLER PIC X(53) VALUE                                    IX2094.2
032900          "DDDDDDDDDD040GGGGGGGGGG040ALTKEY1UUUUUUUUUU360ALTKEY2".IX2094.2
033000     05 FILLER PIC X(53) VALUE                                    IX2094.2
033100          "DDDDDDDDDE042GGGGGGGGGH042ALTKEY1UUUUUUUUUU360ALTKEY2".IX2094.2
033200     05 FILLER PIC X(53) VALUE                                    IX2094.2
033300          "DDDDDDDDEE044GGGGGGGGHH044ALTKEY1UUUUUUUUTT356ALTKEY2".IX2094.2
033400     05 FILLER PIC X(53) VALUE                                    IX2094.2
033500          "DDDDDDDEEE046GGGGGGGHHH046ALTKEY1UUUUUUUTTT354ALTKEY2".IX2094.2
033600     05 FILLER PIC X(53) VALUE                                    IX2094.2
033700          "DDDDDDEEEE048GGGGGGHHHH048ALTKEY1UUUUUUTTTT352ALTKEY2".IX2094.2
033800     05 FILLER PIC X(53) VALUE                                    IX2094.2
033900          "DDDDDEEEEE050GGGGGHHHHH050ALTKEY1UUUUUTTTTT350ALTKEY2".IX2094.2
034000     05 FILLER PIC X(53) VALUE                                    IX2094.2
034100          "DDDDEEEEEE052GGGGHHHHHH052ALTKEY1UUUUTTTTTT348ALTKEY2".IX2094.2
034200     05 FILLER PIC X(53) VALUE                                    IX2094.2
034300          "DDDEEEEEEE054GGGHHHHHHH054ALTKEY1UUUTTTTTTT346ALTKEY2".IX2094.2
034400     05 FILLER PIC X(53) VALUE                                    IX2094.2
034500          "DDEEEEEEEE056GGHHHHHHHH056ALTKEY1UUTTTTTTTT344ALTKEY2".IX2094.2
034600     05 FILLER PIC X(53) VALUE                                    IX2094.2
034700          "DEEEEEEEEE058GHHHHHHHHH058ALTKEY1UTTTTTTTTT342ALTKEY2".IX2094.2
034800     05 FILLER PIC X(53) VALUE                                    IX2094.2
034900          "EEEEEEEEEE060HHHHHHHHHH060ALTKEY1TTTTTTTTTT340ALTKEY2".IX2094.2
035000     05 FILLER PIC X(53) VALUE                                    IX2094.2
035100          "EEEEEEEEEF062HHHHHHHHHI062ALTKEY1TTTTTTTTTT340ALTKEY2".IX2094.2
035200     05 FILLER PIC X(53) VALUE                                    IX2094.2
035300          "EEEEEEEEFF064HHHHHHHHII064ALTKEY1TTTTTTTTSS336ALTKEY2".IX2094.2
035400     05 FILLER PIC X(53) VALUE                                    IX2094.2
035500          "EEEEEEEFFF066HHHHHHHIII066ALTKEY1TTTTTTTSSS334ALTKEY2".IX2094.2
035600     05 FILLER PIC X(53) VALUE                                    IX2094.2
035700          "EEEEEEFFFF068HHHHHHIIII068ALTKEY1TTTTTTSSSS332ALTKEY2".IX2094.2
035800     05 FILLER PIC X(53) VALUE                                    IX2094.2
035900          "EEEEEFFFFF070HHHHHIIIII070ALTKEY1TTTTTSSSSS330ALTKEY2".IX2094.2
036000     05 FILLER PIC X(53) VALUE                                    IX2094.2
036100          "EEEEFFFFFF072HHHHIIIIII072ALTKEY1TTTTSSSSSS328ALTKEY2".IX2094.2
036200     05 FILLER PIC X(53) VALUE                                    IX2094.2
036300          "EEEFFFFFFF074HHHIIIIIII074ALTKEY1TTTSSSSSSS326ALTKEY2".IX2094.2
036400     05 FILLER PIC X(53) VALUE                                    IX2094.2
036500          "EEFFFFFFFF076HHIIIIIIII076ALTKEY1TTSSSSSSSS324ALTKEY2".IX2094.2
036600     05 FILLER PIC X(53) VALUE                                    IX2094.2
036700          "EFFFFFFFFF078HIIIIIIIII078ALTKEY1TSSSSSSSSS322ALTKEY2".IX2094.2
036800     05 FILLER PIC X(53) VALUE                                    IX2094.2
036900          "FFFFFFFFFF080IIIIIIIIII080ALTKEY1SSSSSSSSSS320ALTKEY2".IX2094.2
037000     05 FILLER PIC X(53) VALUE                                    IX2094.2
037100          "FFFFFFFFFG082IIIIIIIIIJ082ALTKEY1SSSSSSSSSS320ALTKEY2".IX2094.2
037200     05 FILLER PIC X(53) VALUE                                    IX2094.2
037300          "FFFFFFFFGG084IIIIIIIIJJ084ALTKEY1SSSSSSSSRR316ALTKEY2".IX2094.2
037400     05 FILLER PIC X(53) VALUE                                    IX2094.2
037500          "FFFFFFFGGG086IIIIIIIJJJ086ALTKEY1SSSSSSSRRR314ALTKEY2".IX2094.2
037600     05 FILLER PIC X(53) VALUE                                    IX2094.2
037700          "FFFFFFGGGG088IIIIIIJJJJ088ALTKEY1SSSSSSRRRR312ALTKEY2".IX2094.2
037800     05 FILLER PIC X(53) VALUE                                    IX2094.2
037900          "FFFFFGGGGG090IIIIIJJJJJ090ALTKEY1SSSSSRRRRR310ALTKEY2".IX2094.2
038000     05 FILLER PIC X(53) VALUE                                    IX2094.2
038100          "FFFFGGGGGG092IIIIJJJJJJ092ALTKEY1SSSSRRRRRR308ALTKEY2".IX2094.2
038200     05 FILLER PIC X(53) VALUE                                    IX2094.2
038300          "FFFGGGGGGG094IIIJJJJJJJ094ALTKEY1SSSRRRRRRR306ALTKEY2".IX2094.2
038400     05 FILLER PIC X(53) VALUE                                    IX2094.2
038500          "FFGGGGGGGG096IIJJJJJJJJ096ALTKEY1SSRRRRRRRR304ALTKEY2".IX2094.2
038600     05 FILLER PIC X(53) VALUE                                    IX2094.2
038700          "FGGGGGGGGG098IJJJJJJJJJ098ALTKEY1SRRRRRRRRR302ALTKEY2".IX2094.2
038800     05 FILLER PIC X(53) VALUE                                    IX2094.2
038900          "GGGGGGGGGG100JJJJJJJJJJ100ALTKEY1RRRRRRRRRR300ALTKEY2".IX2094.2
039000     05 FILLER PIC X(53) VALUE                                    IX2094.2
039100          "RRRRSSSSSS352VVVVWWWWWW352ALTKEY1GGGGFFFFFF048ALTKEY2".IX2094.2
039200     05 FILLER PIC X(53) VALUE                                    IX2094.2
039300          "RRRSSSSSSS354VVVWWWWWWW354ALTKEY1GGGFFFFFFF046ALTKEY2".IX2094.2
039400     05 FILLER PIC X(53) VALUE                                    IX2094.2
039500          "RRSSSSSSSS356VVWWWWWWWW356ALTKEY1GGFFFFFFFF044ALTKEY2".IX2094.2
039600     05 FILLER PIC X(53) VALUE                                    IX2094.2
039700          "RSSSSSSSSS358VWWWWWWWWW358ALTKEY1GFFFFFFFFF042ALTKEY2".IX2094.2
039800     05 FILLER PIC X(53) VALUE                                    IX2094.2
039900          "SSSSSSSSSS360WWWWWWWWWW360ALTKEY1FFFFFFFFFF040ALTKEY2".IX2094.2
040000     05 FILLER PIC X(53) VALUE                                    IX2094.2
040100          "SSSSSSSSST362WWWWWWWWWX362ALTKEY1FFFFFFFFFF040ALTKEY2".IX2094.2
040200     05 FILLER PIC X(53) VALUE                                    IX2094.2
040300          "SSSSSSSSTT364WWWWWWWWXX364ALTKEY1FFFFFFFFEE036ALTKEY2".IX2094.2
040400     05 FILLER PIC X(53) VALUE                                    IX2094.2
040500          "SSSSSSSTTT366WWWWWWWXXX366ALTKEY1FFFFFFFEEE034ALTKEY2".IX2094.2
040600     05 FILLER PIC X(53) VALUE                                    IX2094.2
040700          "SSSSSSTTTT368WWWWWWXXXX368ALTKEY1FFFFFFEEEE032ALTKEY2".IX2094.2
040800     05 FILLER PIC X(53) VALUE                                    IX2094.2
040900          "SSSSSTTTTT370WWWWWCard0880ALTKEY1FFFFFEEEEE030ALTKEY2".IX2094.2
041000     05 FILLER PIC X(53) VALUE                                    IX2094.2
041100          "SSSSTTTTTT372WWWWXXXXXX372ALTKEY1FFFFEEEEEE028ALTKEY2".IX2094.2
041200     05 FILLER PIC X(53) VALUE                                    IX2094.2
041300          "SSSTTTTTTT374WWWXXXXXXX374ALTKEY1FFFEEEEEEE026ALTKEY2".IX2094.2
041400     05 FILLER PIC X(53) VALUE                                    IX2094.2
041500          "SSTTTTTTTT376WWXXXXXXXX376ALTKEY1FFEEEEEEEE024ALTKEY2".IX2094.2
041600     05 FILLER PIC X(53) VALUE                                    IX2094.2
041700          "STTTTTTTTT378WXXXXXXXXX378ALTKEY1FEEEEEEEEE022ALTKEY2".IX2094.2
041800     05 FILLER PIC X(53) VALUE                                    IX2094.2
041900          "TTTTTTTTTT380XXXXXXXXXX380ALTKEY1EEEEEEEEEE020ALTKEY2".IX2094.2
042000     05 FILLER PIC X(53) VALUE                                    IX2094.2
042100          "TTTTTTTTTU382XXXXXXXXXY382ALTKEY1EEEEEEEEEE020ALTKEY2".IX2094.2
042200     05 FILLER PIC X(53) VALUE                                    IX2094.2
042300          "TTTTTTTTUU384XXXXXXXXYY384ALTKEY1EEEEEEEEDD016ALTKEY2".IX2094.2
042400     05 FILLER PIC X(53) VALUE                                    IX2094.2
042500          "TTTTTTTUUU386XXXXXXXYYY386ALTKEY1EEEEEEEDDD014ALTKEY2".IX2094.2
042600     05 FILLER PIC X(53) VALUE                                    IX2094.2
042700          "TTTTTTUUUU388XXXXXXYYYY388ALTKEY1EEEEEEDDDD012ALTKEY2".IX2094.2
042800     05 FILLER PIC X(53) VALUE                                    IX2094.2
042900          "TTTTTUUUUU390XXXXXYYYYY390ALTKEY1EEEEEDDDDD010ALTKEY2".IX2094.2
043000     05 FILLER PIC X(53) VALUE                                    IX2094.2
043100          "TTTTUUUUUU392XXXXYYYYYY392ALTKEY1EEEEDDDDDD008ALTKEY2".IX2094.2
043200     05 FILLER PIC X(53) VALUE                                    IX2094.2
043300          "TTTUUUUUUU394XXXYYYYYYY394ALTKEY1EEEDDDDDDD006ALTKEY2".IX2094.2
043400     05 FILLER PIC X(53) VALUE                                    IX2094.2
043500          "TTUUUUUUUU396XXYYYYYYYY396ALTKEY1EEDDDDDDDD004ALTKEY2".IX2094.2
043600     05 FILLER PIC X(53) VALUE                                    IX2094.2
043700          "TUUUUUUUUU398XYYYYYYYYY398ALTKEY1EDDDDDDDDD002ALTKEY2".IX2094.2
043800     05 FILLER PIC X(53) VALUE                                    IX2094.2
043900          "UUUUUUUUUU400YYYYYYYYYY400ALTKEY1DDDDDDDDDD000ALTKEY2".IX2094.2
044000 01  RECORD-KEY-DATA   REDEFINES  RECORD-KEY-CONTENT.             IX2094.2
044100     05 KEY-VALUES                  OCCURS 75  TIMES.             IX2094.2
044200       10 RECKEY-VALUE           PICTURE X(13).                   IX2094.2
044300       10 ALTKEY1-VALUE          PICTURE X(20).                   IX2094.2
044400       10 ALTKEY2-VALUE          PICTURE X(20).                   IX2094.2
044500 01  INIT-FLAG                   PICTURE 9.                       IX2094.2
044600 01  HOLD-FILESTATUS-RECORD.                                      IX2094.2
044700     05 FILESTATUS               PICTURE XX  OCCURS 10 TIMES.     IX2094.2
044800 01  FILE-RECORD-INFORMATION-REC.                                 IX2094.2
044900     03 FILE-RECORD-INFO-SKELETON.                                IX2094.2
045000        05 FILLER                 PICTURE X(48)       VALUE       IX2094.2
045100             "FILE= ,RECORD= /0,RECNO=000000,UPDT=00".  IX2094.2
045200        05 FILLER                 PICTURE X(46)       VALUE       IX2094.2
045300             ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000".    IX2094.2
045400        05 FILLER                 PICTURE X(26)       VALUE       IX2094.2
045500             ",LFIL=000000,ORG= ,LBLR= ".                        IX2094.2
045600        05 FILLER                 PICTURE X(37)       VALUE       IX2094.2
045700             ",RECKEY= ".             IX2094.2
045800        05 FILLER                 PICTURE X(38)       VALUE       IX2094.2
045900             ",ALTKEY1= ".            IX2094.2
046000        05 FILLER                 PICTURE X(38)       VALUE       IX2094.2
046100             ",ALTKEY2= ".            IX2094.2
046200        05 FILLER                 PICTURE X(7)        VALUE SPACE.IX2094.2
046300     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              IX2094.2
046400        05 FILE-RECORD-INFO-P1-120.                               IX2094.2
046500           07 FILLER              PIC X(5).                       IX2094.2
046600           07 XFILE-NAME           PIC X(6).                      IX2094.2
046700           07 FILLER              PIC X(8).                       IX2094.2
046800           07 XRECORD-NAME         PIC X(6).                      IX2094.2
046900           07 FILLER              PIC X(1).                       IX2094.2
047000           07 REELUNIT-NUMBER     PIC 9(1).                       IX2094.2
047100           07 FILLER              PIC X(7).                       IX2094.2
047200           07 XRECORD-NUMBER       PIC 9(6).                      IX2094.2
047300           07 FILLER              PIC X(6).                       IX2094.2
047400           07 UPDATE-NUMBER       PIC 9(2).                       IX2094.2
047500           07 FILLER              PIC X(5).                       IX2094.2
047600           07 ODO-NUMBER          PIC 9(4).                       IX2094.2
047700           07 FILLER              PIC X(5).                       IX2094.2
047800           07 XPROGRAM-NAME        PIC X(5).                      IX2094.2
047900           07 FILLER              PIC X(7).                       IX2094.2
048000           07 XRECORD-LENGTH       PIC 9(6).                      IX2094.2
048100           07 FILLER              PIC X(7).                       IX2094.2
048200           07 CHARS-OR-RECORDS    PIC X(2).                       IX2094.2
048300           07 FILLER              PIC X(1).                       IX2094.2
048400           07 XBLOCK-SIZE          PIC 9(4).                      IX2094.2
048500           07 FILLER              PIC X(6).                       IX2094.2
048600           07 RECORDS-IN-FILE     PIC 9(6).                       IX2094.2
048700           07 FILLER              PIC X(5).                       IX2094.2
048800           07 XFILE-ORGANIZATION   PIC X(2).                      IX2094.2
048900           07 FILLER              PIC X(6).                       IX2094.2
049000           07 XLABEL-TYPE          PIC X(1).                      IX2094.2
049100        05 FILE-RECORD-INFO-P121-240.                             IX2094.2
049200           07 FILLER              PIC X(8).                       IX2094.2
049300           07 XRECORD-KEY          PIC X(29).                     IX2094.2
049400           07 FILLER              PIC X(9).                       IX2094.2
049500           07 ALTERNATE-KEY1      PIC X(29).                      IX2094.2
049600           07 FILLER              PIC X(9).                       IX2094.2
049700           07 ALTERNATE-KEY2      PIC X(29).                      IX2094.2
049800           07 FILLER              PIC X(7).                       IX2094.2
049900 01  TEST-RESULTS.                                                IX2094.2
050000     02 FILLER                   PIC X      VALUE SPACE.          IX2094.2
050100     02 FEATURE                  PIC X(20)  VALUE SPACE.          IX2094.2
050200     02 FILLER                   PIC X      VALUE SPACE.          IX2094.2
050300     02 P-OR-F                   PIC X(5)   VALUE SPACE.          IX2094.2
050400     02 FILLER                   PIC X      VALUE SPACE.          IX2094.2
050500     02  PAR-NAME.                                                IX2094.2
050600       03 FILLER                 PIC X(19)  VALUE SPACE.          IX2094.2
050700       03  PARDOT-X              PIC X      VALUE SPACE.          IX2094.2
050800       03 DOTVALUE               PIC 99     VALUE ZERO.           IX2094.2
050900     02 FILLER                   PIC X(8)   VALUE SPACE.          IX2094.2
051000     02 RE-MARK                  PIC X(61).                       IX2094.2
051100 01  TEST-COMPUTED.                                               IX2094.2
051200     02 FILLER                   PIC X(30)  VALUE SPACE.          IX2094.2
051300     02 FILLER                   PIC X(17)  VALUE                 IX2094.2
051400            " COMPUTED=".                                   IX2094.2
051500     02 COMPUTED-X.                                               IX2094.2
051600     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          IX2094.2
051700     03 COMPUTED-N               REDEFINES COMPUTED-A             IX2094.2
051800                                 PIC -9(9).9(9).                  IX2094.2
051900     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         IX2094.2
052000     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     IX2094.2
052100     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     IX2094.2
052200     03       CM-18V0 REDEFINES COMPUTED-A.                       IX2094.2
052300         04 COMPUTED-18V0                    PIC -9(18).          IX2094.2
052400         04 FILLER                           PIC X.               IX2094.2
052500     03 FILLER PIC X(50) VALUE SPACE.                             IX2094.2
052600 01  TEST-CORRECT.                                                IX2094.2
052700     02 FILLER PIC X(30) VALUE SPACE.                             IX2094.2
052800     02 FILLER PIC X(17) VALUE " CORRECT =".                IX2094.2
052900     02 CORRECT-X.                                                IX2094.2
053000     03 CORRECT-A                  PIC X(20) VALUE SPACE.         IX2094.2
053100     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      IX2094.2
053200     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         IX2094.2
053300     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     IX2094.2
053400     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     IX2094.2
053500     03      CR-18V0 REDEFINES CORRECT-A.                         IX2094.2
053600         04 CORRECT-18V0                     PIC -9(18).          IX2094.2
053700         04 FILLER                           PIC X.               IX2094.2
053800     03 FILLER PIC X(2) VALUE SPACE.                              IX2094.2
053900     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     IX2094.2
054000 01  CCVS-C-1.                                                    IX2094.2
054100     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PAIX2094.2
054200-    "SS PARAGRAPH-NAME IX2094.2
054300-    " REMARKS".                                            IX2094.2
054400     02 FILLER                     PIC X(20)    VALUE SPACE.      IX2094.2
054500 01  CCVS-C-2.                                                    IX2094.2
054600     02 FILLER                     PIC X        VALUE SPACE.      IX2094.2
054700     02 FILLER                     PIC X(6)     VALUE "TESTED".   IX2094.2
054800     02 FILLER                     PIC X(15)    VALUE SPACE.      IX2094.2
054900     02 FILLER                     PIC X(4)     VALUE "FAIL".     IX2094.2
055000     02 FILLER                     PIC X(94)    VALUE SPACE.      IX2094.2
055100 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       IX2094.2
055200 01  REC-CT                        PIC 99       VALUE ZERO.       IX2094.2
055300 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       IX2094.2
055400 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       IX2094.2
055500 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       IX2094.2
055600 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       IX2094.2
055700 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       IX2094.2
055800 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       IX2094.2
055900 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      IX2094.2
056000 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       IX2094.2
056100 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     IX2094.2
056200 01  CCVS-H-1.                                                    IX2094.2
056300     02  FILLER                    PIC X(39)    VALUE SPACES.     IX2094.2
056400     02  FILLER                    PIC X(42)    VALUE             IX2094.2
056500     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 IX2094.2
056600     02  FILLER                    PIC X(39)    VALUE SPACES.     IX2094.2
056700 01  CCVS-H-2A.                                                   IX2094.2
056800   02  FILLER                        PIC X(40)  VALUE SPACE.      IX2094.2
056900   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  IX2094.2
057000   02  FILLER                        PIC XXXX   VALUE             IX2094.2
057100     "4.2 ".                                                      IX2094.2
057200   02  FILLER                        PIC X(28)  VALUE             IX2094.2
057300            " COPY - NOT FOR DISTRIBUTION".                       IX2094.2
057400   02  FILLER                        PIC X(41)  VALUE SPACE.      IX2094.2
057500                                                                  IX2094.2
057600 01  CCVS-H-2B.                                                   IX2094.2
057700   02  FILLER                        PIC X(15)  VALUE             IX2094.2
057800            "TEST RESULT OF ".                                    IX2094.2
057900   02  TEST-ID                       PIC X(9).                    IX2094.2
058000   02  FILLER                        PIC X(4)   VALUE             IX2094.2
058100            " IN ".                                               IX2094.2
058200   02  FILLER                        PIC X(12)  VALUE             IX2094.2
058300     " HIGH ".                                              IX2094.2
058400   02  FILLER                        PIC X(22)  VALUE             IX2094.2
058500            " LEVEL VALIDATION FOR ".                             IX2094.2
058600   02  FILLER                        PIC X(58)  VALUE             IX2094.2
058700     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX2094.2
058800 01  CCVS-H-3.                                                    IX2094.2
058900     02  FILLER                      PIC X(34)  VALUE             IX2094.2
059000            " FOR OFFICIAL USE ONLY ".                         IX2094.2
059100     02  FILLER                      PIC X(58)  VALUE             IX2094.2
059200     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IX2094.2
059300     02  FILLER                      PIC X(28)  VALUE             IX2094.2
059400            " COPYRIGHT 1985 ".                                IX2094.2
059500 01  CCVS-E-1.                                                    IX2094.2
059600     02 FILLER                       PIC X(52)  VALUE SPACE.      IX2094.2
059700     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              IX2094.2
059800     02 ID-AGAIN                     PIC X(9).                    IX2094.2
059900     02 FILLER                       PIC X(45)  VALUE SPACES.     IX2094.2
060000 01  CCVS-E-2.                                                    IX2094.2
060100     02  FILLER                      PIC X(31)  VALUE SPACE.      IX2094.2
060200     02  FILLER                      PIC X(21)  VALUE SPACE.      IX2094.2
060300     02 CCVS-E-2-2.                                               IX2094.2
060400         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      IX2094.2
060500         03 FILLER                   PIC X      VALUE SPACE.      IX2094.2
060600         03 ENDER-DESC               PIC X(44)  VALUE             IX2094.2
060700            "ERRORS ENCOUNTERED".                                 IX2094.2
060800 01  CCVS-E-3.                                                    IX2094.2
060900     02  FILLER                      PIC X(22)  VALUE             IX2094.2
061000            " FOR OFFICIAL USE ONLY".                             IX2094.2
061100     02  FILLER                      PIC X(12)  VALUE SPACE.      IX2094.2
061200     02  FILLER                      PIC X(58)  VALUE             IX2094.2
061300     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IX2094.2
061400     02  FILLER                      PIC X(13)  VALUE SPACE.      IX2094.2
061500     02 FILLER                       PIC X(15)  VALUE             IX2094.2
061600             " COPYRIGHT 1985".                                   IX2094.2
061700 01  CCVS-E-4.                                                    IX2094.2
061800     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      IX2094.2
061900     02 FILLER                       PIC X(4)   VALUE " OF ".     IX2094.2
062000     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      IX2094.2
062100     02 FILLER                       PIC X(40)  VALUE             IX2094.2
062200      " TESTS WERE EXECUTED SUCCESSFULLY".                       IX2094.2
062300 01  XXINFO.                                                      IX2094.2
062400     02 FILLER                       PIC X(19)  VALUE             IX2094.2
062500            "*** INFORMATION ***".                                IX2094.2
062600     02 INFO-TEXT.                                                IX2094.2
062700       04 FILLER                     PIC X(8)   VALUE SPACE.      IX2094.2
062800       04 XXCOMPUTED                 PIC X(20).                   IX2094.2
062900       04 FILLER                     PIC X(5)   VALUE SPACE.      IX2094.2
063000       04 XXCORRECT                  PIC X(20).                   IX2094.2
063100     02 INF-ANSI-REFERENCE           PIC X(48).                   IX2094.2
063200 01  HYPHEN-LINE.                                                 IX2094.2
063300     02 FILLER  PIC IS X VALUE IS SPACE.                          IX2094.2
063400     02 FILLER  PIC IS X(65)    VALUE IS "************************IX2094.2
063500-    "*****************************************".                 IX2094.2
063600     02 FILLER  PIC IS X(54)    VALUE IS "************************IX2094.2
063700-    "******************************".                            IX2094.2
063800 01  CCVS-PGM-ID                     PIC X(9)   VALUE             IX2094.2
063900     "IX209A".                                                    IX2094.2
064000 PROCEDURE DIVISION.                                              IX2094.2
064100 CCVS1 SECTION.                                                   IX2094.2
064200 OPEN-FILES.                                                      IX2094.2
064300     OPEN I-O RAW-DATA.                                           IX2094.2
064400     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            IX2094.2
064500     READ RAW-DATA INVALID KEY GO TO END-E-1.                     IX2094.2
064600     MOVE "ABORTED " TO C-ABORT.                                  IX2094.2
064700     ADD 1 TO C-NO-OF-TESTS.                                      IX2094.2
064800     ACCEPT C-DATE  FROM DATE.                                    IX2094.2
064900     ACCEPT C-TIME  FROM TIME.                                    IX2094.2
065000     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1.             IX2094.2
065100 END-E-1.                                                         IX2094.2
065200     CLOSE RAW-DATA.                                              IX2094.2
065300     OPEN    OUTPUT PRINT-FILE.                                   IX2094.2
065400     MOVE  CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.  IX2094.2
065500     MOVE    SPACE TO TEST-RESULTS.                               IX2094.2
065600     PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.              IX2094.2
065700     MOVE    ZERO TO REC-SKL-SUB.                                 IX2094.2
065800     PERFORM CCVS-INIT-FILE 9 TIMES.                              IX2094.2
065900 CCVS-INIT-FILE.                                                  IX2094.2
066000     ADD     1 TO REC-SKL-SUB.                                    IX2094.2
066100     MOVE    FILE-RECORD-INFO-SKELETON                            IX2094.2
066200          TO FILE-RECORD-INFO (REC-SKL-SUB).                      IX2094.2
066300 CCVS-INIT-EXIT.                                                  IX2094.2
066400     GO TO CCVS1-EXIT.                                            IX2094.2
066500 CLOSE-FILES.                                                     IX2094.2
066600     OPEN I-O RAW-DATA.                                           IX2094.2
066700     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            IX2094.2
066800     READ RAW-DATA INVALID KEY GO TO END-E-2.                     IX2094.2
066900     MOVE "OK. " TO C-ABORT.                                  IX2094.2
067000     MOVE PASS-COUNTER TO C-OK.                                   IX2094.2
067100     MOVE ERROR-HOLD   TO C-ALL.                                  IX2094.2
067200     MOVE ERROR-COUNTER TO C-FAIL.                                IX2094.2
067300     MOVE DELETE-COUNTER TO C-DELETED.                            IX2094.2
067400     MOVE INSPECT-COUNTER TO C-INSPECT.                           IX2094.2
067500     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2.             IX2094.2
067600 END-E-2.                                                         IX2094.2
067700     CLOSE RAW-DATA.                                              IX2094.2
067800     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   IX2094.2
067900 TERMINATE-CCVS.                                                  IX2094.2
068000     EXIT PROGRAM.                                                IX2094.2
068100 TERMINATE-CALL.                                                  IX2094.2
068200     STOP     RUN.                                                IX2094.2
068300 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         IX2094.2
068400 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           IX2094.2
068500 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          IX2094.2
068600 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      IX2094.2
068700     MOVE "****TEST DELETED****" TO RE-MARK.                      IX2094.2
068800 PRINT-DETAIL.                                                    IX2094.2
068900     IF REC-CT NOT EQUAL TO ZERO                                  IX2094.2
069000             MOVE "." TO PARDOT-X                                 IX2094.2
069100             MOVE REC-CT TO DOTVALUE.                             IX2094.2
069200     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      IX2094.2
069300     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               IX2094.2
069400        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 IX2094.2
069500          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 IX2094.2
069600     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              IX2094.2
069700     MOVE SPACE TO CORRECT-X.                                     IX2094.2
069800     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         IX2094.2
069900     MOVE     SPACE TO RE-MARK.                                   IX2094.2
070000 HEAD-ROUTINE.                                                    IX2094.2
070100     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IX2094.2
070200     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IX2094.2
070300     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IX2094.2
070400     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IX2094.2
070500 COLUMN-NAMES-ROUTINE.                                            IX2094.2
070600     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX2094.2
070700     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX2094.2
070800     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        IX2094.2
070900 END-ROUTINE.                                                     IX2094.2
071000     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.IX2094.2
071100 END-RTN-EXIT.                                                    IX2094.2
071200     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX2094.2
071300 END-ROUTINE-1.                                                   IX2094.2
071400      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      IX2094.2
071500      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               IX2094.2
071600      ADD PASS-COUNTER TO ERROR-HOLD.                             IX2094.2
071700*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   IX2094.2
071800      MOVE PASS-COUNTER TO CCVS-E-4-1.                            IX2094.2
071900      MOVE ERROR-HOLD TO CCVS-E-4-2.                              IX2094.2
072000      MOVE CCVS-E-4 TO CCVS-E-2-2.                                IX2094.2
072100      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           IX2094.2
072200  END-ROUTINE-12.                                                 IX2094.2
072300      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        IX2094.2
072400     IF       ERROR-COUNTER IS EQUAL TO ZERO                      IX2094.2
072500         MOVE "NO " TO ERROR-TOTAL                                IX2094.2
072600         ELSE                                                     IX2094.2
072700         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       IX2094.2
072800     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           IX2094.2
072900     PERFORM WRITE-LINE.                                          IX2094.2
073000 END-ROUTINE-13.                                                  IX2094.2
073100     IF DELETE-COUNTER IS EQUAL TO ZERO                           IX2094.2
073200         MOVE "NO " TO ERROR-TOTAL  ELSE                          IX2094.2
073300         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      IX2094.2
073400     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   IX2094.2
073500     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX2094.2
073600      IF   INSPECT-COUNTER EQUAL TO ZERO                          IX2094.2
073700          MOVE "NO " TO ERROR-TOTAL                               IX2094.2
073800      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   IX2094.2
073900      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            IX2094.2
074000      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          IX2094.2
074100     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX2094.2
074200 WRITE-LINE.                                                      IX2094.2
074300     ADD 1 TO RECORD-COUNT.                                       IX2094.2
074400     IF RECORD-COUNT GREATER 42                                   IX2094.2
074500         MOVE DUMMY-RECORD TO DUMMY-HOLD                          IX2094.2
074600         MOVE SPACE TO DUMMY-RECORD                               IX2094.2
074700         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  IX2094.2
074800         MOVE CCVS-H-1  TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    IX2094.2
074900         MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    IX2094.2
075000         MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    IX2094.2
075100         MOVE CCVS-H-3  TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    IX2094.2
075200         MOVE CCVS-C-1  TO DUMMY-RECORD PERFORM WRT-LN            IX2094.2
075300         MOVE CCVS-C-2  TO DUMMY-RECORD PERFORM WRT-LN            IX2094.2
075400         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          IX2094.2
075500         MOVE DUMMY-HOLD TO DUMMY-RECORD                          IX2094.2
075600         MOVE ZERO TO RECORD-COUNT.                               IX2094.2
075700     PERFORM WRT-LN.                                              IX2094.2
075800 WRT-LN.                                                          IX2094.2
075900     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               IX2094.2
076000     MOVE SPACE TO DUMMY-RECORD.                                  IX2094.2
076100 BLANK-LINE-PRINT.                                                IX2094.2
076200     PERFORM WRT-LN.                                              IX2094.2
076300 FAIL-ROUTINE.                                                    IX2094.2
076400     IF     COMPUTED-X NOT EQUAL TO SPACE                         IX2094.2
076500            GO TO   FAIL-ROUTINE-WRITE.                           IX2094.2
076600     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IX2094.2
076700     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IX2094.2
076800     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   IX2094.2
076900     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX2094.2
077000     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IX2094.2
077100     GO TO  FAIL-ROUTINE-EX.                                      IX2094.2
077200 FAIL-ROUTINE-WRITE.                                              IX2094.2
077300     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         IX2094.2
077400     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 IX2094.2
077500     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. IX2094.2
077600     MOVE   SPACES TO COR-ANSI-REFERENCE.                         IX2094.2
077700 FAIL-ROUTINE-EX. EXIT.                                           IX2094.2
077800 BAIL-OUT.                                                        IX2094.2
077900     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   IX2094.2
078000     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           IX2094.2
078100 BAIL-OUT-WRITE.                                                  IX2094.2
078200     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  IX2094.2
078300     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IX2094.2
078400     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX2094.2
078500     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IX2094.2
078600 BAIL-OUT-EX. EXIT.                                               IX2094.2
078700 CCVS1-EXIT.                                                      IX2094.2
078800     EXIT.                                                        IX2094.2
078900 SECT-0001-IX209A SECTION.                                        IX2094.2
079000 WRITE-INT-GF-01.                                                 IX2094.2
079100     OPEN    OUTPUT IX-FS1.                                       IX2094.2
079200     MOVE    "IX-FS1" TO XFILE-NAME           (1).                IX2094.2
079300     MOVE    "R1-F-G" TO  XRECORD-NAME        (1).                IX2094.2
079400     MOVE    ZERO     TO  XRECORD-NUMBER      (1).                IX2094.2
079500     MOVE    "RC"     TO  CHARS-OR-RECORDS    (1).                IX2094.2
079600     MOVE    CCVS-PGM-ID  TO  XPROGRAM-NAME       (1).            IX2094.2
079700     MOVE    240      TO  XRECORD-LENGTH      (1).                IX2094.2
079800     MOVE    001      TO  XBLOCK-SIZE         (1).                IX2094.2
079900     MOVE    "IX"     TO  XFILE-ORGANIZATION  (1).                IX2094.2
080000     MOVE    "S"      TO  XLABEL-TYPE         (1).                IX2094.2
080100     MOVE    200      TO  RECORDS-IN-FILE     (1).                IX2094.2
080200     MOVE    "CREATE-FILE-FS1" TO FEATURE.                        IX2094.2
080300     MOVE    "WRITE-TEST-GF-01" TO PAR-NAME.                      IX2094.2
080400     MOVE    ZERO TO KEYSUB.                                      IX2094.2
080500     MOVE    ZERO TO INVKEY-COUNTER.                              IX2094.2
080600 WRITE-INIT-GF-01-01.                                             IX2094.2
080700     PERFORM WRITE-TEST-GF-01-1  50 TIMES.                        IX2094.2
080800     PERFORM WRITE-TEST-GF-01-2  125 TIMES.                       IX2094.2
080900     PERFORM WRITE-TEST-GF-01-1  25 TIMES.                        IX2094.2
--> --------------------

--> maximum size reached

--> --------------------