Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/Test-Suite/COBOL/IX/     Datei vom 4.1.2008 mit Größe 188 kB image not shown  

Quelle  ix214a.cob   Sprache: Cobol

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

--> maximum size reached

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

99%


¤ Dauer der Verarbeitung: 0.24 Sekunden  (vorverarbeitet)  ¤

*© Formatika GbR, Deutschland




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.