Quelle  ix210a.cob   Sprache: Cobol

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

--> maximum size reached

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