Quelle  ix215a.cob   Sprache: Cobol

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

--> maximum size reached

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