Quelle ix211a.cob Sprache: Cobol

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

--> maximum size reached

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

quality98%

¤ Dauer der Verarbeitung: 0.33 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.