000100 IDENTIFICATION DIVISION.                                         IX1064.2
000200 PROGRAM-ID.                                                      IX1064.2
000300     IX106A.                                                      IX1064.2
000400****************************************************************  IX1064.2
000500*                                                              *  IX1064.2
000600*    VALIDATION FOR:-                                          *  IX1064.2
000700*                                                              *  IX1064.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX1064.2
000900*                                                              *  IX1064.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IX1064.2
001100*                                                              *  IX1064.2
001200****************************************************************  IX1064.2
001300* THE PURPOSE OF THIS PROGRAM IS TO TEST THE ABILITY TO           IX1064.2
001400* USE THE THREE DIFFERENT TYPES OF FILES (SEQUENTIAL ,            IX1064.2
001500* INDEXED , AND RELATIVE) IN ONE PROGRAM . THE PROGRAM            IX1064.2
001600* IS BROKEN INTO FIVE SECTIONS . THE FIRST SECTION TESTS          IX1064.2
001700* THE ABILITY TO CREATE A RELATIVE FILE RANDOMLY . THE            IX1064.2
001800* SECOND SECTION TESTS THE ABILITY TO USE ALL THREE FILE          IX1064.2
001900* TYPES , READING IN THE RELATIVE FILE AND WRITING OUT THE        IX1064.2
002000* SEQUENTIAL AND INDEXED FILES . THE THIRD SECTION FURTHER        IX1064.2
002100* TESTS THE ABILITY TO USE THE THREE FILE TYPES . THE FOURTH      IX1064.2
002200* SECTION TESTS THE ABILITY TO DELETE RECORDS FROM THE            IX1064.2
002300* DIFFERENT FILE TYPES . THE FIFTH SECTION TESTS THE ABILITY      IX1064.2
002400* TO REWRITE RECORDS TO EACH OF THE FILE TYPES .                  IX1064.2
002500*                                                                 IX1064.2
002600* X-CARDS WHICH MUST BE RELACED WITH IMPLEMENTORS NAMES' IN       IX1064.2
002700* THIS PROGRAM ARE :                                              IX1064.2
002800*                                                                 IX1064.2
002900*        X-14 IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR            IX1064.2
003000*             SEQUENTIAL FILE .                                   IX1064.2
003100*        X-21 IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR            IX1064.2
003200*             RELATIVE FILE-1 , FILE-2 .                          IX1064.2
003300*        X-24 IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR            IX1064.2
003400*             INDEXED FILE .                                      IX1064.2
003500*        X-44 SYSTEM-NAME IN ASSIGN CLAUSE FOR                    IX1064.2
003600*        INDEXED FILE .                                           IX1064.2
003700*        X-55 SYSTEM PRINTER .                                    IX1064.2
003800*        X-62   FOR RAW-DATA                                      IX1064.2
003900*        X-82 SOURCE-COMPUTER .                                   IX1064.2
004000*        X-83 OBJECT-COMPUTER .                                   IX1064.2
004100*    C   X-84 PRINTE-FILE LABELS                                  IX1064.2
004200****************************************************************  IX1064.2
004300 ENVIRONMENT DIVISION.                                            IX1064.2
004400 CONFIGURATION SECTION.                                           IX1064.2
004500 SOURCE-COMPUTER.                                                 IX1064.2
004600     Card0130.                                                    IX1064.2
004700 OBJECT-COMPUTER.                                                 IX1064.2
004800     Card0131.                                                    IX1064.2
004900 INPUT-OUTPUT SECTION.                                            IX1064.2
005000 FILE-CONTROL.                                                    IX1064.2
005100     SELECT RAW-DATA   ASSIGN TO                                  IX1064.2
005200     "C0098"                                                      IX1064.2
005300            ORGANIZATION IS INDEXED                               IX1064.2
005400            ACCESS MODE IS RANDOM                                 IX1064.2
005500            RECORD KEY IS RAW-DATA-KEY.                           IX1064.2
005600     SELECT PRINT-FILE ASSIGN TO                                  IX1064.2
005700     "C0085" .                                                    IX1064.2
005800     SELECT  RL-FR1                                               IX1064.2
005900     ASSIGN TO                                                    IX1064.2
006000     "C0033"                                                      IX1064.2
006100        ACCESS MODE IS RANDOM                                     IX1064.2
006200        RELATIVE KEY IS RL-KEY                                    IX1064.2
006300        ORGANIZATION IS RELATIVE                                  IX1064.2
006400        FILE STATUS IS FR1-STATUS.                                IX1064.2
006500     SELECT  IX-FS1                                               IX1064.2
006600     ASSIGN TO                                                    IX1064.2
006700     "C0036"                                                      IX1064.2
006800     "C0068"                                                      IX1064.2
006900        ACCESS MODE IS RANDOM                                     IX1064.2
007000        ORGANIZATION IS INDEXED                                   IX1064.2
007100        RECORD KEY IS IX-FS1-KEY-11-13                            IX1064.2
007200        FILE STATUS IS FS1-STATUS-IX.                             IX1064.2
007300     SELECT  SQ-FS1                                               IX1064.2
007400     ASSIGN TO                                                    IX1064.2
007500     "C0020"                                                      IX1064.2
007600        ACCESS MODE IS SEQUENTIAL                                 IX1064.2
007700        ORGANIZATION IS SEQUENTIAL                                IX1064.2
007800        FILE STATUS IS FS1-STATUS-SQ.                             IX1064.2
007900 DATA DIVISION.                                                   IX1064.2
008000 FILE SECTION.                                                    IX1064.2
008100                                                                  IX1064.2
008200 FD  RAW-DATA.                                                    IX1064.2
008300                                                                  IX1064.2
008400 01  RAW-DATA-SATZ.                                               IX1064.2
008500     05  RAW-DATA-KEY        PIC X(6).                            IX1064.2
008600     05  C-DATE              PIC 9(6).                            IX1064.2
008700     05  C-TIME              PIC 9(8).                            IX1064.2
008800     05  C-NO-OF-TESTS       PIC 99.                              IX1064.2
008900     05  C-OK                PIC 999.                             IX1064.2
009000     05  C-ALL               PIC 999.                             IX1064.2
009100     05  C-FAIL              PIC 999.                             IX1064.2
009200     05  C-DELETED           PIC 999.                             IX1064.2
009300     05  C-INSPECT           PIC 999.                             IX1064.2
009400     05  C-NOTE              PIC X(13).                           IX1064.2
009500     05  C-INDENT            PIC X.                               IX1064.2
009600     05  C-ABORT             PIC X(8).                            IX1064.2
009700 FD  PRINT-FILE.                                                  IX1064.2
009800 01  PRINT-REC PICTURE X(120).                                    IX1064.2
009900 01  DUMMY-RECORD PICTURE X(120).                                 IX1064.2
010000 FD  RL-FR1                                                       IX1064.2
010100     LABEL RECORDS ARE STANDARD                                   IX1064.2
010200     DATA RECORD IS RL-FR1R1-F-G-241                              IX1064.2
010300     RECORD CONTAINS 241 CHARACTERS.                              IX1064.2
010400 01  RL-FR1R1-F-G-241.                                            IX1064.2
010500     05 RL-FR1-REC-120           PICTURE X(120).                  IX1064.2
010600     05 RL-FR1-REC-121-241.                                       IX1064.2
010700        10 FILLER                PICTURE X(8).                    IX1064.2
010800        10 RL-REC-KEY-AREA.                                       IX1064.2
010900           15 RL-FR1-KEY.                                         IX1064.2
011000              20 RL-FR1-KEY-1-10.                                 IX1064.2
011100                 25 RL-FR1-KEY-1-5      PICTURE X(5).             IX1064.2
011200                 25 RL-FR1-KEY-6-10     PICTURE X(5).             IX1064.2
011300               20 RL-FR1-KEY-11-13      PICTURE 9(3).             IX1064.2
011400           15 RL-REDF-RECKEY REDEFINES RL-FR1-KEY.                IX1064.2
011500              20 R-RECKEY-1-7    PICTURE X(7).                    IX1064.2
011600              20 R-RECKEY-8-13   PICTURE X(6).                    IX1064.2
011700           15 FILLER             PICTURE X(16).                   IX1064.2
011800        10 FILLER                PICTURE X(9).                    IX1064.2
011900        10 RL-ALT-KEY1-AREA.                                      IX1064.2
012000           15 RL-FR1-ALTKEY1.                                     IX1064.2
012100              20 RL-FR1-ALTKEY1-1-10.                             IX1064.2
012200                 25 RL-FR1-ALTKEY1-1-5  PICTURE X(5).             IX1064.2
012300                 25 RL-FR1-ALTKEY1-6-10 PICTURE X(5).             IX1064.2
012400              20 RL-FR1-ALTKEY1-11-13   PICTURE X(3).             IX1064.2
012500              20 RL-FR1-ALTKEY1-14-20   PICTURE X(7).             IX1064.2
012600           15 RL-REDF-ALTKEY1 REDEFINES RL-FR1-ALTKEY1.           IX1064.2
012700              20 R-ALTKEY1-1-6   PICTURE X(6).                    IX1064.2
012800              20 R-ALTKEY1-7-10  PICTURE X(4).                    IX1064.2
012900              20 R-ALTKEY1-11-20 PICTURE X(10).                   IX1064.2
013000           15 FILLER             PICTURE X(9).                    IX1064.2
013100        10 FILLER                PICTURE X(9).                    IX1064.2
013200        10 RL-ALT-KEY2-AREA.                                      IX1064.2
013300           15 RL-FR1-ALTKEY2.                                     IX1064.2
013400              20 RL-FR1-ALTKEY2-1-10.                             IX1064.2
013500                 25 RL-FR1-ALTKEY2-1-5  PICTURE X(5).             IX1064.2
013600                 25 RL-FR1-ALTKEY2-6-10 PICTURE X(5).             IX1064.2
013700              20 RL-FR1-ALTKEY2-11-13   PICTURE X(3).             IX1064.2
013800              20 RL-FR1-ALTKEY2-14-20   PICTURE X(7).             IX1064.2
013900           15 FILLER             PICTURE X(9).                    IX1064.2
014000        10 FILLER                PICTURE X(8).                    IX1064.2
014100 FD  IX-FS1                                                       IX1064.2
014200     LABEL RECORDS ARE STANDARD                                   IX1064.2
014300     DATA RECORD IS IX-FS1R1-F-G-241                              IX1064.2
014400     RECORD CONTAINS 241 CHARACTERS.                              IX1064.2
014500 01  IX-FS1R1-F-G-241.                                            IX1064.2
014600     05 IX-FS1-REC-120           PICTURE X(120).                  IX1064.2
014700     05 IX-FS1-REC-121-241.                                       IX1064.2
014800        10 FILLER                PICTURE X(8).                    IX1064.2
014900        10 IX-REC-KEY-AREA.                                       IX1064.2
015000           15 IX-FS1-KEY.                                         IX1064.2
015100              20 IX-FS1-KEY-1-10.                                 IX1064.2
015200                 25 IX-FS1-KEY-1-5      PICTURE X(5).             IX1064.2
015300                 25 IX-FS1-KEY-6-10     PICTURE X(5).             IX1064.2
015400              20 IX-FS1-KEY-11-13      PICTURE X(3).              IX1064.2
015500           15 IX-REDF-RECKEY REDEFINES IX-FS1-KEY.                IX1064.2
015600              20 I-RECKEY-1-7    PICTURE X(7).                    IX1064.2
015700              20 I-RECKEY-8-13   PICTURE X(6).                    IX1064.2
015800           15 FILLER             PICTURE X(16).                   IX1064.2
015900        10 FILLER                PICTURE X(9).                    IX1064.2
016000        10 IX-ALT-KEY1-AREA.                                      IX1064.2
016100           15 IX-FS1-ALTKEY1.                                     IX1064.2
016200              20 IX-FS1-ALTKEY1-1-10.                             IX1064.2
016300                 25 IX-FS1-ALTKEY1-1-5  PICTURE X(5).             IX1064.2
016400                 25 IX-FS1-ALTKEY1-6-10 PICTURE X(5).             IX1064.2
016500              20 IX-FS1-ALTKEY1-11-13   PICTURE X(3).             IX1064.2
016600              20 IX-FS1-ALTKEY1-14-20   PICTURE X(7).             IX1064.2
016700           15 IX-REDF-ALTKEY1 REDEFINES IX-FS1-ALTKEY1.           IX1064.2
016800              20 I-ALTKEY1-1-6   PICTURE X(6).                    IX1064.2
016900              20 I-ALTKEY1-7-10  PICTURE X(4).                    IX1064.2
017000              20 I-ALTKEY1-11-20 PICTURE X(10).                   IX1064.2
017100           15 FILLER             PICTURE X(9).                    IX1064.2
017200        10 FILLER                PICTURE X(9).                    IX1064.2
017300        10 IX-ALT-KEY2-AREA.                                      IX1064.2
017400           15 IX-FS1-ALTKEY2.                                     IX1064.2
017500              20 IX-FS1-ALTKEY2-1-10.                             IX1064.2
017600                 25 IX-FR1-ALTKEY2-1-5  PICTURE X(5).             IX1064.2
017700                 25 IX-FR1-ALTKEY2-6-10 PICTURE X(5).             IX1064.2
017800              20 IX-FS1-ALTKEY2-11-13   PICTURE X(3).             IX1064.2
017900              20 IX-FS1-ALTKEY2-14-20   PICTURE X(7).             IX1064.2
018000           15 FILLER             PICTURE X(9).                    IX1064.2
018100        10 FILLER                PICTURE X(8).                    IX1064.2
018200 FD  SQ-FS1                                                       IX1064.2
018300     LABEL RECORDS ARE STANDARD                                   IX1064.2
018400     DATA RECORD IS SQ-FS1R1-F-G-241                              IX1064.2
018500     RECORD CONTAINS 241 CHARACTERS.                              IX1064.2
018600 01  SQ-FS1R1-F-G-241.                                            IX1064.2
018700     05 SQ-FS1-REC-120           PICTURE X(120).                  IX1064.2
018800     05 SQ-FS1-REC-121-241.                                       IX1064.2
018900        10 FILLER                PICTURE X(8).                    IX1064.2
019000        10 SQ-REC-KEY-AREA.                                       IX1064.2
019100           15 SQ-FS1-KEY.                                         IX1064.2
019200              20 SQ-FS1-KEY-1-10.                                 IX1064.2
019300                 25 SQ-FS1-KEY-1-5      PICTURE X(5).             IX1064.2
019400                 25 SQ-FS1-KEY-6-10     PICTURE X(5).             IX1064.2
019500               20 SQ-FS1-KEY-11-13      PICTURE 9(3).             IX1064.2
019600           15 SQ-REDF-RECKEY REDEFINES SQ-FS1-KEY.                IX1064.2
019700              20 S-RECKEY-1-7    PICTURE X(7).                    IX1064.2
019800              20 S-RECKEY-8-13   PICTURE X(6).                    IX1064.2
019900           15 FILLER             PICTURE X(16).                   IX1064.2
020000        10 FILLER                PICTURE X(9).                    IX1064.2
020100        10 SQ-ALT-KEY1-AREA.                                      IX1064.2
020200           15 SQ-FS1-ALTKEY1.                                     IX1064.2
020300              20 SQ-FS1-ALTKEY1-1-10.                             IX1064.2
020400                 25 SQ-FS1-ALTKEY1-1-5  PICTURE X(5).             IX1064.2
020500                 25 SQ-FS1-ALTKEY1-6-10 PICTURE X(5).             IX1064.2
020600              20 SQ-FS1-ALTKEY1-11-13   PICTURE X(3).             IX1064.2
020700              20 SQ-FS1-ALTKEY1-14-20   PICTURE X(7).             IX1064.2
020800           15 SQ-REDF-ALTKEY1 REDEFINES SQ-FS1-ALTKEY1.           IX1064.2
020900              20 S-ALTKEY1-1-6   PICTURE X(6).                    IX1064.2
021000              20 S-ALTKEY1-7-10  PICTURE X(4).                    IX1064.2
021100              20 S-ALTKEY1-11-20 PICTURE X(10).                   IX1064.2
021200           15 FILLER             PICTURE X(9).                    IX1064.2
021300        10 FILLER                PICTURE X(9).                    IX1064.2
021400        10 SQ-ALT-KEY2-AREA.                                      IX1064.2
021500           15 SQ-FS1-ALTKEY2.                                     IX1064.2
021600              20 SQ-FS1-ALTKEY2-1-10.                             IX1064.2
021700                 25 SQ-FS1-ALTKEY2-1-5  PICTURE X(5).             IX1064.2
021800                 25 SQ-FS1-ALTKEY2-6-10 PICTURE X(5).             IX1064.2
021900              20 SQ-FS1-ALTKEY2-11-13   PICTURE X(3).             IX1064.2
022000              20 SQ-FS1-ALTKEY2-14-20   PICTURE X(7).             IX1064.2
022100           15 FILLER             PICTURE X(9).                    IX1064.2
022200        10 FILLER                PICTURE X(8).                    IX1064.2
022300 WORKING-STORAGE SECTION.                                         IX1064.2
022400 01  WRK-DS-09V00-001 PIC S9(09)      USAGE COMP VALUE ZERO.      IX1064.2
022500 01  WRK-DS-09V00-002 PIC 9(3) VALUE ZERO.                        IX1064.2
022600 01  WRK-CS-09V00-002 PIC S9(09)       USAGE COMP VALUE ZERO.     IX1064.2
022700 01  WRK-CS-09V00-003 PIC S9(09)       USAGE COMP VALUE ZERO.     IX1064.2
022800 01  RL-KEY   PIC 9(3).                                           IX1064.2
022900 01  RL-KEY2  PIC 9(3).                                           IX1064.2
023000*                                                                 IX1064.2
023100 01  WRK-FR1-RECKEY.                                              IX1064.2
023200     05 FR1-RECKEY-1-13.                                          IX1064.2
023300        10 FR1-RECKEY-1-10       PICTURE X(10).                   IX1064.2
023400        10 FR1-RECKEY-11-13      PICTURE 9(3).                    IX1064.2
023500     05 FILLER                   PICTURE X(16)  VALUE SPACE.      IX1064.2
023600 01  WRK-FR1-ALTKEY1.                                             IX1064.2
023700      05 FR1-ALTKEY1-1-20.                                        IX1064.2
023800       10  FR1-ALTKEY1-1-10.                                      IX1064.2
023900        15 FR1-ALTKEY1-1-5       PICTURE X(5).                    IX1064.2
024000        15 FR1-ALTKEY1-6-10      PICTURE X(5).                    IX1064.2
024100       10 FR1-ALTKEY1-11-13      PICTURE 9(3).                    IX1064.2
024200       10 FR1-ALTKEY1-14-20      PICTURE X(7).                    IX1064.2
024300     05 FILLER                   PICTURE X(9)  VALUE SPACE.       IX1064.2
024400 01  WRK-FR1-ALTKEY2.                                             IX1064.2
024500     05 FR1-ALTKEY2-1-20.                                         IX1064.2
024600        10 FR1-ALTKEY2-1-10.                                      IX1064.2
024700           15 FR1-ALTKEY2-1-5    PICTURE X(5).                    IX1064.2
024800           15 FR1-ALTKEY2-6-10   PICTURE X(5).                    IX1064.2
024900        10 FR1-ALTKEY2-11-13     PICTURE 9(3).                    IX1064.2
025000        10 FR1-ALTKEY2-14-20     PICTURE X(7).                    IX1064.2
025100     05 FILLER                   PICTURE X(9) VALUE SPACE.        IX1064.2
025200 01  RECNO                       PICTURE 9(5)  VALUE ZERO.        IX1064.2
025300 01  FR1-STATUS                  PICTURE XX   VALUE SPACE.        IX1064.2
025400 01  FS1-STATUS-IX PIC XX VALUE SPACE.                            IX1064.2
025500 01  FS1-STATUS-SQ PIC XX VALUE SPACE.                            IX1064.2
025600 01  EXCUT-COUNTER-06V00         PICTURE 9(6) VALUE ZERO.         IX1064.2
025700 01  KEYSUB                      PICTURE 9(3) COMPUTATIONAL.      IX1064.2
025800 01  INVKEY-COUNTER-RL           PICTURE 9(3) COMPUTATIONAL.      IX1064.2
025900 01  INVKEY-COUNTER-IX           PICTURE 9(3) COMPUTATIONAL.      IX1064.2
026000 01  RECORDS-WRITTEN             PICTURE 9(3).                    IX1064.2
026100 01  RECKEY-NUM                  PICTURE 9(3).                    IX1064.2
026200 01  ALTKEY1-NUM                 PICTURE 9(3).                    IX1064.2
026300 01  ALTKEY2-NUM                 PICTURE 9(3).                    IX1064.2
026400 01  RECORD-KEY-CONTENT.                                          IX1064.2
026500     05 FILLER PIC X(53) VALUE                                    IX1064.2
026600          "BBBBBBBBBC225EEEEEEEEEF001ALTKEY1WWWWWWWWWV076ALTKEY2".IX1064.2
026700     05 FILLER PIC X(53) VALUE                                    IX1064.2
026800          "BBBBBBBBCC224EEEEEEEEFF002ALTKEY1WWWWWWWWVV077ALTKEY2".IX1064.2
026900     05 FILLER PIC X(53) VALUE                                    IX1064.2
027000          "BBBBBBBCCC223EEEEEEEFFF003ALTKEY1WWWWWWWVVV078ALTKEY2".IX1064.2
027100     05 FILLER PIC X(53) VALUE                                    IX1064.2
027200          "BBBBBBCCCC222EEEEEEFFFF004ALTKEY1WWWWWWVVVV079ALTKEY2".IX1064.2
027300     05 FILLER PIC X(53) VALUE                                    IX1064.2
027400          "BBBBBCCCCC221EEEEEFFFFF005ALTKEY1WWWWWVVVVV080ALTKEY2".IX1064.2
027500     05 FILLER PIC X(53) VALUE                                    IX1064.2
027600          "BBBBCCCCCC220EEEEFFFFFF006ALTKEY1WWWWVVVVVV081ALTKEY2".IX1064.2
027700     05 FILLER PIC X(53) VALUE                                    IX1064.2
027800          "BBBCCCCCCC219EEEFFFFFFF007ALTKEY1WWWVVVVVVV082ALTKEY2".IX1064.2
027900     05 FILLER PIC X(53) VALUE                                    IX1064.2
028000          "BBCCCCCCCC218EEFFFFFFFF008ALTKEY1WWVVVVVVVV083ALTKEY2".IX1064.2
028100     05 FILLER PIC X(53) VALUE                                    IX1064.2
028200          "BCCCCCCCCC217EFFFFFFFFF009ALTKEY1WVVVVVVVVV084ALTKEY2".IX1064.2
028300     05 FILLER PIC X(53) VALUE                                    IX1064.2
028400          "CCCCCCCCCC216FFFFFFFFFF010ALTKEY1VVVVVVVVVV085ALTKEY2".IX1064.2
028500     05 FILLER PIC X(53) VALUE                                    IX1064.2
028600          "CCCCCCCCCD215FFFFFFFFFG011ALTKEY1VVVVVVVVVV086ALTKEY2".IX1064.2
028700     05 FILLER PIC X(53) VALUE                                    IX1064.2
028800          "CCCCCCCCDD214FFFFFFFFGG012ALTKEY1VVVVVVVVUU087ALTKEY2".IX1064.2
028900     05 FILLER PIC X(53) VALUE                                    IX1064.2
029000          "CCCCCCCDDD213FFFFFFFGGG013ALTKEY1VVVVVVVUUU088ALTKEY2".IX1064.2
029100     05 FILLER PIC X(53) VALUE                                    IX1064.2
029200          "CCCCCCDDDD212FFFFFFGGGG014ALTKEY1VVVVVVUUUU089ALTKEY2".IX1064.2
029300     05 FILLER PIC X(53) VALUE                                    IX1064.2
029400          "CCCCCDDDDD211FFFFFGGGGG015ALTKEY1VVVVVUUUUU090ALTKEY2".IX1064.2
029500     05 FILLER PIC X(53) VALUE                                    IX1064.2
029600          "CCCCDDDDDD210FFFFGGGGGG016ALTKEY1VVVVUUUUUU091ALTKEY2".IX1064.2
029700     05 FILLER PIC X(53) VALUE                                    IX1064.2
029800          "CCCDDDDDDD209FFFGGGGGGG017ALTKEY1VVVUUUUUUU092ALTKEY2".IX1064.2
029900     05 FILLER PIC X(53) VALUE                                    IX1064.2
030000          "CCDDDDDDDD208FFGGGGGGGG018ALTKEY1VVUUUUUUUU093ALTKEY2".IX1064.2
030100     05 FILLER PIC X(53) VALUE                                    IX1064.2
030200          "CDDDDDDDDD207FGGGGGGGGG019ALTKEY1VUUUUUUUUU094ALTKEY2".IX1064.2
030300     05 FILLER PIC X(53) VALUE                                    IX1064.2
030400          "DDDDDDDDDD206GGGGGGGGGG020ALTKEY1UUUUUUUUUU095ALTKEY2".IX1064.2
030500     05 FILLER PIC X(53) VALUE                                    IX1064.2
030600          "DDDDDDDDDE205GGGGGGGGGH021ALTKEY1UUUUUUUUUU096ALTKEY2".IX1064.2
030700     05 FILLER PIC X(53) VALUE                                    IX1064.2
030800          "DDDDDDDDEE204GGGGGGGGHH022ALTKEY1UUUUUUUUTT097ALTKEY2".IX1064.2
030900     05 FILLER PIC X(53) VALUE                                    IX1064.2
031000          "DDDDDDDEEE203GGGGGGGHHH023ALTKEY1UUUUUUUTTT098ALTKEY2".IX1064.2
031100     05 FILLER PIC X(53) VALUE                                    IX1064.2
031200          "DDDDDDEEEE202GGGGGGHHHH024ALTKEY1UUUUUUTTTT099ALTKEY2".IX1064.2
031300     05 FILLER PIC X(53) VALUE                                    IX1064.2
031400          "DDDDDEEEEE201GGGGGHHHHH025ALTKEY1UUUUUTTTTT100ALTKEY2".IX1064.2
031500     05 FILLER PIC X(53) VALUE                                    IX1064.2
031600          "DDDDEEEEEE200GGGGHHHHHH026ALTKEY1UUUUTTTTTT101ALTKEY2".IX1064.2
031700     05 FILLER PIC X(53) VALUE                                    IX1064.2
031800          "DDDEEEEEEE199GGGHHHHHHH027ALTKEY1UUUTTTTTTT102ALTKEY2".IX1064.2
031900     05 FILLER PIC X(53) VALUE                                    IX1064.2
032000          "DDEEEEEEEE198GGHHHHHHHH028ALTKEY1UUTTTTTTTT103ALTKEY2".IX1064.2
032100     05 FILLER PIC X(53) VALUE                                    IX1064.2
032200          "DEEEEEEEEE197GHHHHHHHHH029ALTKEY1UTTTTTTTTT104ALTKEY2".IX1064.2
032300     05 FILLER PIC X(53) VALUE                                    IX1064.2
032400          "EEEEEEEEEE196HHHHHHHHHH030ALTKEY1TTTTTTTTTT105ALTKEY2".IX1064.2
032500     05 FILLER PIC X(53) VALUE                                    IX1064.2
032600          "EEEEEEEEEF195HHHHHHHHHI031ALTKEY1TTTTTTTTTT106ALTKEY2".IX1064.2
032700     05 FILLER PIC X(53) VALUE                                    IX1064.2
032800          "EEEEEEEEFF194HHHHHHHHII032ALTKEY1TTTTTTTTSS107ALTKEY2".IX1064.2
032900     05 FILLER PIC X(53) VALUE                                    IX1064.2
033000          "EEEEEEEFFF193HHHHHHHIII033ALTKEY1TTTTTTTSSS108ALTKEY2".IX1064.2
033100     05 FILLER PIC X(53) VALUE                                    IX1064.2
033200          "EEEEEEFFFF192HHHHHHIIII034ALTKEY1TTTTTTSSSS109ALTKEY2".IX1064.2
033300     05 FILLER PIC X(53) VALUE                                    IX1064.2
033400          "EEEEEFFFFF191HHHHHIIIII035ALTKEY1TTTTTSSSSS110ALTKEY2".IX1064.2
033500     05 FILLER PIC X(53) VALUE                                    IX1064.2
033600          "EEEEFFFFFF190HHHHIIIIII036ALTKEY1TTTTSSSSSS111ALTKEY2".IX1064.2
033700     05 FILLER PIC X(53) VALUE                                    IX1064.2
033800          "EEEFFFFFFF189HHHIIIIIII037ALTKEY1TTTSSSSSSS112ALTKEY2".IX1064.2
033900     05 FILLER PIC X(53) VALUE                                    IX1064.2
034000          "EEFFFFFFFF188HHIIIIIIII038ALTKEY1TTSSSSSSSS113ALTKEY2".IX1064.2
034100     05 FILLER PIC X(53) VALUE                                    IX1064.2
034200          "EFFFFFFFFF187HIIIIIIIII039ALTKEY1TSSSSSSSSS114ALTKEY2".IX1064.2
034300     05 FILLER PIC X(53) VALUE                                    IX1064.2
034400          "FFFFFFFFFF186IIIIIIIIII040ALTKEY1SSSSSSSSSS115ALTKEY2".IX1064.2
034500     05 FILLER PIC X(53) VALUE                                    IX1064.2
034600          "FFFFFFFFFG185IIIIIIIIIJ041ALTKEY1SSSSSSSSSS116ALTKEY2".IX1064.2
034700     05 FILLER PIC X(53) VALUE                                    IX1064.2
034800          "FFFFFFFFGG184IIIIIIIIJJ042ALTKEY1SSSSSSSSRR117ALTKEY2".IX1064.2
034900     05 FILLER PIC X(53) VALUE                                    IX1064.2
035000          "FFFFFFFGGG183IIIIIIIJJJ043ALTKEY1SSSSSSSRRR118ALTKEY2".IX1064.2
035100     05 FILLER PIC X(53) VALUE                                    IX1064.2
035200          "FFFFFFGGGG182IIIIIIJJJJ044ALTKEY1SSSSSSRRRR119ALTKEY2".IX1064.2
035300     05 FILLER PIC X(53) VALUE                                    IX1064.2
035400          "FFFFFGGGGG181IIIIIJJJJJ045ALTKEY1SSSSSRRRRR120ALTKEY2".IX1064.2
035500     05 FILLER PIC X(53) VALUE                                    IX1064.2
035600          "FFFFGGGGGG180IIIIJJJJJJ046ALTKEY1SSSSRRRRRR121ALTKEY2".IX1064.2
035700     05 FILLER PIC X(53) VALUE                                    IX1064.2
035800          "FFFGGGGGGG179IIIJJJJJJJ047ALTKEY1SSSRRRRRRR122ALTKEY2".IX1064.2
035900     05 FILLER PIC X(53) VALUE                                    IX1064.2
036000          "FFGGGGGGGG178IIJJJJJJJJ048ALTKEY1SSRRRRRRRR123ALTKEY2".IX1064.2
036100     05 FILLER PIC X(53) VALUE                                    IX1064.2
036200          "FGGGGGGGGG177IJJJJJJJJJ049ALTKEY1SRRRRRRRRR124ALTKEY2".IX1064.2
036300     05 FILLER PIC X(53) VALUE                                    IX1064.2
036400          "GGGGGGGGGG176JJJJJJJJJJ050ALTKEY1RRRRRRRRRR125ALTKEY2".IX1064.2
036500     05 FILLER PIC X(53) VALUE                                    IX1064.2
036600          "RRRRSSSSSS175VVVVWWWWWW051ALTKEY1GGGGFFFFFF126ALTKEY2".IX1064.2
036700     05 FILLER PIC X(53) VALUE                                    IX1064.2
036800          "RRRSSSSSSS174VVVWWWWWWW052ALTKEY1GGGFFFFFFF127ALTKEY2".IX1064.2
036900     05 FILLER PIC X(53) VALUE                                    IX1064.2
037000          "RRSSSSSSSS173VVWWWWWWWW053ALTKEY1GGFFFFFFFF128ALTKEY2".IX1064.2
037100     05 FILLER PIC X(53) VALUE                                    IX1064.2
037200          "RSSSSSSSSS172VWWWWWWWWW054ALTKEY1GFFFFFFFFF129ALTKEY2".IX1064.2
037300     05 FILLER PIC X(53) VALUE                                    IX1064.2
037400          "SSSSSSSSSS171WWWWWWWWWW055ALTKEY1FFFFFFFFFF130ALTKEY2".IX1064.2
037500     05 FILLER PIC X(53) VALUE                                    IX1064.2
037600          "SSSSSSSSST170WWWWWWWWWX056ALTKEY1FFFFFFFFFF131ALTKEY2".IX1064.2
037700     05 FILLER PIC X(53) VALUE                                    IX1064.2
037800          "SSSSSSSSTT169WWWWWWWWXX057ALTKEY1FFFFFFFFEE132ALTKEY2".IX1064.2
037900     05 FILLER PIC X(53) VALUE                                    IX1064.2
038000          "SSSSSSSTTT168WWWWWWWXXX058ALTKEY1FFFFFFFEEE133ALTKEY2".IX1064.2
038100     05 FILLER PIC X(53) VALUE                                    IX1064.2
038200          "SSSSSSTTTT167WWWWWWXXXX059ALTKEY1FFFFFFEEEE134ALTKEY2".IX1064.2
038300     05 FILLER PIC X(53) VALUE                                    IX1064.2
038400          "SSSSSTTTTT166WWWWWCard0096ALTKEY1FFFFFEEEEE135ALTKEY2".IX1064.2
038500     05 FILLER PIC X(53) VALUE                                    IX1064.2
038600          "SSSSTTTTTT165WWWWXXXXXX061ALTKEY1FFFFEEEEEE136ALTKEY2".IX1064.2
038700     05 FILLER PIC X(53) VALUE                                    IX1064.2
038800          "SSSTTTTTTT164WWWXXXXXXX062ALTKEY1FFFEEEEEEE137ALTKEY2".IX1064.2
038900     05 FILLER PIC X(53) VALUE                                    IX1064.2
039000          "SSTTTTTTTT163WWXXXXXXXX063ALTKEY1FFEEEEEEEE138ALTKEY2".IX1064.2
039100     05 FILLER PIC X(53) VALUE                                    IX1064.2
039200          "STTTTTTTTT162WXXXXXXXXX064ALTKEY1FEEEEEEEEE139ALTKEY2".IX1064.2
039300     05 FILLER PIC X(53) VALUE                                    IX1064.2
039400          "TTTTTTTTTT161XXXXXXXXXX065ALTKEY1EEEEEEEEEE140ALTKEY2".IX1064.2
039500     05 FILLER PIC X(53) VALUE                                    IX1064.2
039600          "TTTTTTTTTU160XXXXXXXXXY066ALTKEY1EEEEEEEEEE141ALTKEY2".IX1064.2
039700     05 FILLER PIC X(53) VALUE                                    IX1064.2
039800          "TTTTTTTTUU159XXXXXXXXYY067ALTKEY1EEEEEEEEDD142ALTKEY2".IX1064.2
039900     05 FILLER PIC X(53) VALUE                                    IX1064.2
040000          "TTTTTTTUUU158XXXXXXXYYY068ALTKEY1EEEEEEEDDD143ALTKEY2".IX1064.2
040100     05 FILLER PIC X(53) VALUE                                    IX1064.2
040200          "TTTTTTUUUU157XXXXXXYYYY069ALTKEY1EEEEEEDDDD144ALTKEY2".IX1064.2
040300     05 FILLER PIC X(53) VALUE                                    IX1064.2
040400          "TTTTTUUUUU156XXXXXYYYYY070ALTKEY1EEEEEDDDDD145ALTKEY2".IX1064.2
040500     05 FILLER PIC X(53) VALUE                                    IX1064.2
040600          "TTTTUUUUUU155XXXXYYYYYY071ALTKEY1EEEEDDDDDD146ALTKEY2".IX1064.2
040700     05 FILLER PIC X(53) VALUE                                    IX1064.2
040800          "TTTUUUUUUU154XXXYYYYYYY072ALTKEY1EEEDDDDDDD147ALTKEY2".IX1064.2
040900     05 FILLER PIC X(53) VALUE                                    IX1064.2
041000          "TTUUUUUUUU153XXYYYYYYYY073ALTKEY1EEDDDDDDDD148ALTKEY2".IX1064.2
041100     05 FILLER PIC X(53) VALUE                                    IX1064.2
041200          "TUUUUUUUUU152XYYYYYYYYY074ALTKEY1EDDDDDDDDD149ALTKEY2".IX1064.2
041300     05 FILLER PIC X(53) VALUE                                    IX1064.2
041400          "UUUUUUUUUU151YYYYYYYYYY075ALTKEY1DDDDDDDDDD150ALTKEY2".IX1064.2
041500 01  RECORD-KEY-DATA   REDEFINES  RECORD-KEY-CONTENT.             IX1064.2
041600     05 KEY-VALUES                  OCCURS 75  TIMES.             IX1064.2
041700       10 RECKEY-VALUE           PICTURE X(13).                   IX1064.2
041800       10 ALTKEY1-VALUE          PICTURE X(20).                   IX1064.2
041900       10 ALTKEY2-VALUE          PICTURE X(20).                   IX1064.2
042000 01  INIT-FLAG                   PICTURE 9.                       IX1064.2
042100 01  HOLD-FILESTATUS-RECORD.                                      IX1064.2
042200     05 FILESTATUS               PICTURE XX  OCCURS 10 TIMES.     IX1064.2
042300                                                                  IX1064.2
042400 01  FILE-RECORD-INFORMATION-REC.                                 IX1064.2
042500     03 FILE-RECORD-INFO-SKELETON.                                IX1064.2
042600        05 FILLER                 PICTURE X(48)       VALUE       IX1064.2
042700             "FILE=      ,RECORD=      /0,RECNO=000000,UPDT=00".  IX1064.2
042800        05 FILLER                 PICTURE X(46)       VALUE       IX1064.2
042900             ",ODO=0000,PGM=     ,LRECL=000000,BLKSIZ  =0000".    IX1064.2
043000        05 FILLER                 PICTURE X(26)       VALUE       IX1064.2
043100             ",LFIL=000000,ORG=  ,LBLR= ".                        IX1064.2
043200        05 FILLER                 PICTURE X(37)       VALUE       IX1064.2
043300             ",RECKEY=                             ".             IX1064.2
043400        05 FILLER                 PICTURE X(38)       VALUE       IX1064.2
043500             ",ALTKEY1=                             ".            IX1064.2
043600        05 FILLER                 PICTURE X(38)       VALUE       IX1064.2
043700             ",ALTKEY2=                             ".            IX1064.2
043800        05 FILLER                 PICTURE X(7)        VALUE SPACE.IX1064.2
043900     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              IX1064.2
044000        05 FILE-RECORD-INFO-P1-120.                               IX1064.2
044100           07 FILLER              PIC X(5).                       IX1064.2
044200           07 XFILE-NAME           PIC X(6).                      IX1064.2
044300           07 FILLER              PIC X(8).                       IX1064.2
044400           07 XRECORD-NAME         PIC X(6).                      IX1064.2
044500           07 FILLER              PIC X(1).                       IX1064.2
044600           07 REELUNIT-NUMBER     PIC 9(1).                       IX1064.2
044700           07 FILLER              PIC X(7).                       IX1064.2
044800           07 XRECORD-NUMBER       PIC 9(6).                      IX1064.2
044900           07 FILLER              PIC X(6).                       IX1064.2
045000           07 UPDATE-NUMBER       PIC 9(2).                       IX1064.2
045100           07 FILLER              PIC X(5).                       IX1064.2
045200           07 ODO-NUMBER          PIC 9(4).                       IX1064.2
045300           07 FILLER              PIC X(5).                       IX1064.2
045400           07 XPROGRAM-NAME        PIC X(5).                      IX1064.2
045500           07 FILLER              PIC X(7).                       IX1064.2
045600           07 XRECORD-LENGTH       PIC 9(6).                      IX1064.2
045700           07 FILLER              PIC X(7).                       IX1064.2
045800           07 CHARS-OR-RECORDS    PIC X(2).                       IX1064.2
045900           07 FILLER              PIC X(1).                       IX1064.2
046000           07 XBLOCK-SIZE          PIC 9(4).                      IX1064.2
046100           07 FILLER              PIC X(6).                       IX1064.2
046200           07 RECORDS-IN-FILE     PIC 9(6).                       IX1064.2
046300           07 FILLER              PIC X(5).                       IX1064.2
046400           07 XFILE-ORGANIZATION   PIC X(2).                      IX1064.2
046500           07 FILLER              PIC X(6).                       IX1064.2
046600           07 XLABEL-TYPE          PIC X(1).                      IX1064.2
046700        05 FILE-RECORD-INFO-P121-240.                             IX1064.2
046800           07 FILLER              PIC X(8).                       IX1064.2
046900           07 XRECORD-KEY          PIC X(29).                     IX1064.2
047000           07 FILLER              PIC X(9).                       IX1064.2
047100           07 ALTERNATE-KEY1      PIC X(29).                      IX1064.2
047200           07 FILLER              PIC X(9).                       IX1064.2
047300           07 ALTERNATE-KEY2      PIC X(29).                      IX1064.2
047400           07 FILLER              PIC X(7).                       IX1064.2
047500                                                                  IX1064.2
047600 01  TEST-RESULTS.                                                IX1064.2
047700     02 FILLER                   PIC X      VALUE SPACE.          IX1064.2
047800     02 FEATURE                  PIC X(20)  VALUE SPACE.          IX1064.2
047900     02 FILLER                   PIC X      VALUE SPACE.          IX1064.2
048000     02 P-OR-F                   PIC X(5)   VALUE SPACE.          IX1064.2
048100     02 FILLER                   PIC X      VALUE SPACE.          IX1064.2
048200     02  PAR-NAME.                                                IX1064.2
048300       03 FILLER                 PIC X(19)  VALUE SPACE.          IX1064.2
048400       03  PARDOT-X              PIC X      VALUE SPACE.          IX1064.2
048500       03 DOTVALUE               PIC 99     VALUE ZERO.           IX1064.2
048600     02 FILLER                   PIC X(8)   VALUE SPACE.          IX1064.2
048700     02 RE-MARK                  PIC X(61).                       IX1064.2
048800 01  TEST-COMPUTED.                                               IX1064.2
048900     02 FILLER                   PIC X(30)  VALUE SPACE.          IX1064.2
049000     02 FILLER                   PIC X(17)  VALUE                 IX1064.2
049100            "       COMPUTED=".                                   IX1064.2
049200     02 COMPUTED-X.                                               IX1064.2
049300     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          IX1064.2
049400     03 COMPUTED-N               REDEFINES COMPUTED-A             IX1064.2
049500                                 PIC -9(9).9(9).                  IX1064.2
049600     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         IX1064.2
049700     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     IX1064.2
049800     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     IX1064.2
049900     03       CM-18V0 REDEFINES COMPUTED-A.                       IX1064.2
050000         04 COMPUTED-18V0                    PIC -9(18).          IX1064.2
050100         04 FILLER                           PIC X.               IX1064.2
050200     03 FILLER PIC X(50) VALUE SPACE.                             IX1064.2
050300 01  TEST-CORRECT.                                                IX1064.2
050400     02 FILLER PIC X(30) VALUE SPACE.                             IX1064.2
050500     02 FILLER PIC X(17) VALUE "       CORRECT =".                IX1064.2
050600     02 CORRECT-X.                                                IX1064.2
050700     03 CORRECT-A                  PIC X(20) VALUE SPACE.         IX1064.2
050800     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      IX1064.2
050900     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         IX1064.2
051000     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     IX1064.2
051100     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     IX1064.2
051200     03      CR-18V0 REDEFINES CORRECT-A.                         IX1064.2
051300         04 CORRECT-18V0                     PIC -9(18).          IX1064.2
051400         04 FILLER                           PIC X.               IX1064.2
051500     03 FILLER PIC X(2) VALUE SPACE.                              IX1064.2
051600     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     IX1064.2
051700 01  CCVS-C-1.                                                    IX1064.2
051800     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE              PAIX1064.2
051900-    "SS  PARAGRAPH-NAME                                          IX1064.2
052000-    "       REMARKS".                                            IX1064.2
052100     02 FILLER                     PIC X(20)    VALUE SPACE.      IX1064.2
052200 01  CCVS-C-2.                                                    IX1064.2
052300     02 FILLER                     PIC X        VALUE SPACE.      IX1064.2
052400     02 FILLER                     PIC X(6)     VALUE "TESTED".   IX1064.2
052500     02 FILLER                     PIC X(15)    VALUE SPACE.      IX1064.2
052600     02 FILLER                     PIC X(4)     VALUE "FAIL".     IX1064.2
052700     02 FILLER                     PIC X(94)    VALUE SPACE.      IX1064.2
052800 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       IX1064.2
052900 01  REC-CT                        PIC 99       VALUE ZERO.       IX1064.2
053000 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       IX1064.2
053100 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       IX1064.2
053200 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       IX1064.2
053300 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       IX1064.2
053400 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       IX1064.2
053500 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       IX1064.2
053600 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      IX1064.2
053700 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       IX1064.2
053800 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     IX1064.2
053900 01  CCVS-H-1.                                                    IX1064.2
054000     02  FILLER                    PIC X(39)    VALUE SPACES.     IX1064.2
054100     02  FILLER                    PIC X(42)    VALUE             IX1064.2
054200     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 IX1064.2
054300     02  FILLER                    PIC X(39)    VALUE SPACES.     IX1064.2
054400 01  CCVS-H-2A.                                                   IX1064.2
054500   02  FILLER                        PIC X(40)  VALUE SPACE.      IX1064.2
054600   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  IX1064.2
054700   02  FILLER                        PIC XXXX   VALUE             IX1064.2
054800     "4.2 ".                                                      IX1064.2
054900   02  FILLER                        PIC X(28)  VALUE             IX1064.2
055000            " COPY - NOT FOR DISTRIBUTION".                       IX1064.2
055100   02  FILLER                        PIC X(41)  VALUE SPACE.      IX1064.2
055200                                                                  IX1064.2
055300 01  CCVS-H-2B.                                                   IX1064.2
055400   02  FILLER                        PIC X(15)  VALUE             IX1064.2
055500            "TEST RESULT OF ".                                    IX1064.2
055600   02  TEST-ID                       PIC X(9).                    IX1064.2
055700   02  FILLER                        PIC X(4)   VALUE             IX1064.2
055800            " IN ".                                               IX1064.2
055900   02  FILLER                        PIC X(12)  VALUE             IX1064.2
056000     " HIGH       ".                                              IX1064.2
056100   02  FILLER                        PIC X(22)  VALUE             IX1064.2
056200            " LEVEL VALIDATION FOR ".                             IX1064.2
056300   02  FILLER                        PIC X(58)  VALUE             IX1064.2
056400     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX1064.2
056500 01  CCVS-H-3.                                                    IX1064.2
056600     02  FILLER                      PIC X(34)  VALUE             IX1064.2
056700            " FOR OFFICIAL USE ONLY    ".                         IX1064.2
056800     02  FILLER                      PIC X(58)  VALUE             IX1064.2
056900     "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IX1064.2
057000     02  FILLER                      PIC X(28)  VALUE             IX1064.2
057100            "  COPYRIGHT   1985 ".                                IX1064.2
057200 01  CCVS-E-1.                                                    IX1064.2
057300     02 FILLER                       PIC X(52)  VALUE SPACE.      IX1064.2
057400     02 FILLER  PIC X(14) VALUE IS "END OF TEST-  ".              IX1064.2
057500     02 ID-AGAIN                     PIC X(9).                    IX1064.2
057600     02 FILLER                       PIC X(45)  VALUE SPACES.     IX1064.2
057700 01  CCVS-E-2.                                                    IX1064.2
057800     02  FILLER                      PIC X(31)  VALUE SPACE.      IX1064.2
057900     02  FILLER                      PIC X(21)  VALUE SPACE.      IX1064.2
058000     02 CCVS-E-2-2.                                               IX1064.2
058100         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      IX1064.2
058200         03 FILLER                   PIC X      VALUE SPACE.      IX1064.2
058300         03 ENDER-DESC               PIC X(44)  VALUE             IX1064.2
058400            "ERRORS ENCOUNTERED".                                 IX1064.2
058500 01  CCVS-E-3.                                                    IX1064.2
058600     02  FILLER                      PIC X(22)  VALUE             IX1064.2
058700            " FOR OFFICIAL USE ONLY".                             IX1064.2
058800     02  FILLER                      PIC X(12)  VALUE SPACE.      IX1064.2
058900     02  FILLER                      PIC X(58)  VALUE             IX1064.2
059000     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IX1064.2
059100     02  FILLER                      PIC X(13)  VALUE SPACE.      IX1064.2
059200     02 FILLER                       PIC X(15)  VALUE             IX1064.2
059300             " COPYRIGHT 1985".                                   IX1064.2
059400 01  CCVS-E-4.                                                    IX1064.2
059500     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      IX1064.2
059600     02 FILLER                       PIC X(4)   VALUE " OF ".     IX1064.2
059700     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      IX1064.2
059800     02 FILLER                       PIC X(40)  VALUE             IX1064.2
059900      "  TESTS WERE EXECUTED SUCCESSFULLY".                       IX1064.2
060000 01  XXINFO.                                                      IX1064.2
060100     02 FILLER                       PIC X(19)  VALUE             IX1064.2
060200            "*** INFORMATION ***".                                IX1064.2
060300     02 INFO-TEXT.                                                IX1064.2
060400       04 FILLER                     PIC X(8)   VALUE SPACE.      IX1064.2
060500       04 XXCOMPUTED                 PIC X(20).                   IX1064.2
060600       04 FILLER                     PIC X(5)   VALUE SPACE.      IX1064.2
060700       04 XXCORRECT                  PIC X(20).                   IX1064.2
060800     02 INF-ANSI-REFERENCE           PIC X(48).                   IX1064.2
060900 01  HYPHEN-LINE.                                                 IX1064.2
061000     02 FILLER  PIC IS X VALUE IS SPACE.                          IX1064.2
061100     02 FILLER  PIC IS X(65)    VALUE IS "************************IX1064.2
061200-    "*****************************************".                 IX1064.2
061300     02 FILLER  PIC IS X(54)    VALUE IS "************************IX1064.2
061400-    "******************************".                            IX1064.2
061500 01  CCVS-PGM-ID                     PIC X(9)   VALUE             IX1064.2
061600     "IX106A".                                                    IX1064.2
061700 PROCEDURE DIVISION.                                              IX1064.2
061800 CCVS1 SECTION.                                                   IX1064.2
061900 OPEN-FILES.                                                      IX1064.2
062000     OPEN I-O RAW-DATA.                                           IX1064.2
062100     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            IX1064.2
062200     READ RAW-DATA INVALID KEY GO TO END-E-1.                     IX1064.2
062300     MOVE "ABORTED " TO C-ABORT.                                  IX1064.2
062400     ADD 1 TO C-NO-OF-TESTS.                                      IX1064.2
062500     ACCEPT C-DATE  FROM DATE.                                    IX1064.2
062600     ACCEPT C-TIME  FROM TIME.                                    IX1064.2
062700     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-1.             IX1064.2
062800 END-E-1.                                                         IX1064.2
062900     CLOSE RAW-DATA.                                              IX1064.2
063000     OPEN    OUTPUT PRINT-FILE.                                   IX1064.2
063100     MOVE  CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.  IX1064.2
063200     MOVE    SPACE TO TEST-RESULTS.                               IX1064.2
063300     PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.              IX1064.2
063400     MOVE    ZERO TO REC-SKL-SUB.                                 IX1064.2
063500     PERFORM CCVS-INIT-FILE 9 TIMES.                              IX1064.2
063600 CCVS-INIT-FILE.                                                  IX1064.2
063700     ADD     1 TO REC-SKL-SUB.                                    IX1064.2
063800     MOVE    FILE-RECORD-INFO-SKELETON                            IX1064.2
063900          TO FILE-RECORD-INFO (REC-SKL-SUB).                      IX1064.2
064000 CCVS-INIT-EXIT.                                                  IX1064.2
064100     GO TO CCVS1-EXIT.                                            IX1064.2
064200 CLOSE-FILES.                                                     IX1064.2
064300     OPEN I-O RAW-DATA.                                           IX1064.2
064400     MOVE CCVS-PGM-ID TO RAW-DATA-KEY.                            IX1064.2
064500     READ RAW-DATA INVALID KEY GO TO END-E-2.                     IX1064.2
064600     MOVE "OK.     " TO C-ABORT.                                  IX1064.2
064700     MOVE PASS-COUNTER TO C-OK.                                   IX1064.2
064800     MOVE ERROR-HOLD   TO C-ALL.                                  IX1064.2
064900     MOVE ERROR-COUNTER TO C-FAIL.                                IX1064.2
065000     MOVE DELETE-COUNTER TO C-DELETED.                            IX1064.2
065100     MOVE INSPECT-COUNTER TO C-INSPECT.                           IX1064.2
065200     REWRITE RAW-DATA-SATZ INVALID KEY GO TO END-E-2.             IX1064.2
065300 END-E-2.                                                         IX1064.2
065400     CLOSE RAW-DATA.                                              IX1064.2
065500     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   IX1064.2
065600 TERMINATE-CCVS.                                                  IX1064.2
065700     EXIT PROGRAM.                                                IX1064.2
065800 TERMINATE-CALL.                                                  IX1064.2
065900     STOP     RUN.                                                IX1064.2
066000 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         IX1064.2
066100 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           IX1064.2
066200 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          IX1064.2
066300 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      IX1064.2
066400     MOVE "****TEST DELETED****" TO RE-MARK.                      IX1064.2
066500 PRINT-DETAIL.                                                    IX1064.2
066600     IF REC-CT NOT EQUAL TO ZERO                                  IX1064.2
066700             MOVE "." TO PARDOT-X                                 IX1064.2
066800             MOVE REC-CT TO DOTVALUE.                             IX1064.2
066900     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      IX1064.2
067000     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               IX1064.2
067100        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 IX1064.2
067200          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 IX1064.2
067300     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              IX1064.2
067400     MOVE SPACE TO CORRECT-X.                                     IX1064.2
067500     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         IX1064.2
067600     MOVE     SPACE TO RE-MARK.                                   IX1064.2
067700 HEAD-ROUTINE.                                                    IX1064.2
067800     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IX1064.2
067900     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IX1064.2
068000     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IX1064.2
068100     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IX1064.2
068200 COLUMN-NAMES-ROUTINE.                                            IX1064.2
068300     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX1064.2
068400     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX1064.2
068500     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        IX1064.2
068600 END-ROUTINE.                                                     IX1064.2
068700     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.IX1064.2
068800 END-RTN-EXIT.                                                    IX1064.2
068900     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX1064.2
069000 END-ROUTINE-1.                                                   IX1064.2
069100      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      IX1064.2
069200      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               IX1064.2
069300      ADD PASS-COUNTER TO ERROR-HOLD.                             IX1064.2
069400*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   IX1064.2
069500      MOVE PASS-COUNTER TO CCVS-E-4-1.                            IX1064.2
069600      MOVE ERROR-HOLD TO CCVS-E-4-2.                              IX1064.2
069700      MOVE CCVS-E-4 TO CCVS-E-2-2.                                IX1064.2
069800      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           IX1064.2
069900  END-ROUTINE-12.                                                 IX1064.2
070000      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        IX1064.2
070100     IF       ERROR-COUNTER IS EQUAL TO ZERO                      IX1064.2
070200         MOVE "NO " TO ERROR-TOTAL                                IX1064.2
070300         ELSE                                                     IX1064.2
070400         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       IX1064.2
070500     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           IX1064.2
070600     PERFORM WRITE-LINE.                                          IX1064.2
070700 END-ROUTINE-13.                                                  IX1064.2
070800     IF DELETE-COUNTER IS EQUAL TO ZERO                           IX1064.2
070900         MOVE "NO " TO ERROR-TOTAL  ELSE                          IX1064.2
071000         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      IX1064.2
071100     MOVE "TEST(S) DELETED     " TO ENDER-DESC.                   IX1064.2
071200     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX1064.2
071300      IF   INSPECT-COUNTER EQUAL TO ZERO                          IX1064.2
071400          MOVE "NO " TO ERROR-TOTAL                               IX1064.2
071500      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   IX1064.2
071600      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            IX1064.2
071700      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          IX1064.2
071800     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IX1064.2
071900 WRITE-LINE.                                                      IX1064.2
072000     ADD 1 TO RECORD-COUNT.                                       IX1064.2
072100     IF RECORD-COUNT GREATER 42                                   IX1064.2
072200         MOVE DUMMY-RECORD TO DUMMY-HOLD                          IX1064.2
072300         MOVE SPACE TO DUMMY-RECORD                               IX1064.2
072400         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  IX1064.2
072500         MOVE CCVS-H-1  TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    IX1064.2
072600         MOVE CCVS-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    IX1064.2
072700         MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    IX1064.2
072800         MOVE CCVS-H-3  TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES    IX1064.2
072900         MOVE CCVS-C-1  TO DUMMY-RECORD PERFORM WRT-LN            IX1064.2
073000         MOVE CCVS-C-2  TO DUMMY-RECORD PERFORM WRT-LN            IX1064.2
073100         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          IX1064.2
073200         MOVE DUMMY-HOLD TO DUMMY-RECORD                          IX1064.2
073300         MOVE ZERO TO RECORD-COUNT.                               IX1064.2
073400     PERFORM WRT-LN.                                              IX1064.2
073500 WRT-LN.                                                          IX1064.2
073600     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               IX1064.2
073700     MOVE SPACE TO DUMMY-RECORD.                                  IX1064.2
073800 BLANK-LINE-PRINT.                                                IX1064.2
073900     PERFORM WRT-LN.                                              IX1064.2
074000 FAIL-ROUTINE.                                                    IX1064.2
074100     IF     COMPUTED-X NOT EQUAL TO SPACE                         IX1064.2
074200            GO TO   FAIL-ROUTINE-WRITE.                           IX1064.2
074300     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IX1064.2
074400     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IX1064.2
074500     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   IX1064.2
074600     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX1064.2
074700     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IX1064.2
074800     GO TO  FAIL-ROUTINE-EX.                                      IX1064.2
074900 FAIL-ROUTINE-WRITE.                                              IX1064.2
075000     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         IX1064.2
075100     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 IX1064.2
075200     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. IX1064.2
075300     MOVE   SPACES TO COR-ANSI-REFERENCE.                         IX1064.2
075400 FAIL-ROUTINE-EX. EXIT.                                           IX1064.2
075500 BAIL-OUT.                                                        IX1064.2
075600     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   IX1064.2
075700     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           IX1064.2
075800 BAIL-OUT-WRITE.                                                  IX1064.2
075900     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  IX1064.2
076000     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IX1064.2
076100     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IX1064.2
076200     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IX1064.2
076300 BAIL-OUT-EX. EXIT.                                               IX1064.2
076400 CCVS1-EXIT.                                                      IX1064.2
076500     EXIT.                                                        IX1064.2
076600******************************************************************IX1064.2
076700 SECT-0001-RIS101 SECTION.                                        IX1064.2
076800*                                                                 IX1064.2
076900* THIS SECTION CREATES A RELATIVE FILE RANDOMLY.                  IX1064.2
077000*                                                                 IX1064.2
077100 WRITE-INT-GF-01.                                                 IX1064.2
077200     OPEN    OUTPUT RL-FR1.                                       IX1064.2
077300     MOVE    "RL-FR1" TO XFILE-NAME           (1).                IX1064.2
077400     MOVE    "R1-F-G" TO  XRECORD-NAME        (1).                IX1064.2
077500     MOVE    ZERO     TO  XRECORD-NUMBER      (1).                IX1064.2
077600     MOVE    "RC"     TO  CHARS-OR-RECORDS    (1).                IX1064.2
077700     MOVE    CCVS-PGM-ID TO  XPROGRAM-NAME    (1).                IX1064.2
077800     MOVE    241      TO  XRECORD-LENGTH      (1).                IX1064.2
077900     MOVE    001      TO  XBLOCK-SIZE         (1).                IX1064.2
078000     MOVE    "RL"     TO  XFILE-ORGANIZATION  (1).                IX1064.2
078100     MOVE    "S"      TO  XLABEL-TYPE         (1).                IX1064.2
078200     MOVE    225      TO  RECORDS-IN-FILE     (1).                IX1064.2
078300     MOVE    "WRITE RL-FR1   " TO FEATURE.                        IX1064.2
078400     MOVE    "WRITE-TEST-GF-01" TO PAR-NAME.                      IX1064.2
078500     MOVE    ZERO TO KEYSUB.                                      IX1064.2
078600     MOVE    ZERO TO INVKEY-COUNTER-RL.                           IX1064.2
078700 WRITE-INIT-GF-01-01.                                             IX1064.2
078800     PERFORM WRITE-TEST-GF-01-R1 75 TIMES.                        IX1064.2
078900     GO TO   WRITE-TEST-GF-01.                                    IX1064.2
079000 WRITE-TEST-GF-01-R1.                                             IX1064.2
079100*                                                                 IX1064.2
079200* WRITE-TEST-GF-01-R1 - WRITES THREE RECORDS FOR EACH PASS THRU . IX1064.2
079300*                      1) FOR THE FIRST RECORD CREATED RL-KEY IS  IX1064.2
079400*                         SET TO FR1-RECKEY-11-13 .               IX1064.2
079500*                      2) FOR THE SECOND RECORD CREATED RL-KEY IS IX1064.2
079600*                         SET TO FR1-ALTKEY1-11-13 .              IX1064.2
079700*                      3) FOR THE THIRD RECORD CREATED RL-KEY IS  IX1064.2
079800*                         SET TO FR1-ALTKEY2-11-13 .              IX1064.2
079900*                      THESE RECORD KEYS ARE IN THREE DIFFERENT   IX1064.2
080000*                      ORDERINGS.                                 IX1064.2
080100*                      1) FR1-RECKEY-11-13 ARE THE NUMBERS FROM   IX1064.2
080200*                         225 TO 151 DECENDING .                  IX1064.2
080300*                      2) FR1-ALTKEY1-11-13 ARE THE NUMBERS FROM  IX1064.2
080400*                         1 TO 75 ASCENDING .                     IX1064.2
080500*                      3) FR1-ALTKEY-11-13 ARE THE NUMBERS FROM   IX1064.2
080600*                         76 TO 151 ASCENDING .                   IX1064.2
080700*                                                                 IX1064.2
080800     ADD     001  TO XRECORD-NUMBER (1).                          IX1064.2
080900     ADD     001  TO  KEYSUB.                                     IX1064.2
081000     MOVE    RECKEY-VALUE (KEYSUB) TO FR1-RECKEY-1-13.            IX1064.2
081100     MOVE    ALTKEY1-VALUE (KEYSUB) TO FR1-ALTKEY1-1-20.          IX1064.2
081200     MOVE    ALTKEY2-VALUE (KEYSUB) TO FR1-ALTKEY2-1-20.          IX1064.2
081300     MOVE    WRK-FR1-RECKEY   TO    XRECORD-KEY (1).              IX1064.2
081400     MOVE    WRK-FR1-ALTKEY1  TO ALTERNATE-KEY1 (1).              IX1064.2
081500     MOVE    WRK-FR1-ALTKEY2  TO ALTERNATE-KEY2 (1).              IX1064.2
081600     MOVE    FILE-RECORD-INFO (1)  TO RL-FR1R1-F-G-241.           IX1064.2
081700     MOVE FR1-RECKEY-11-13 TO RL-KEY.                             IX1064.2
081800     WRITE   RL-FR1R1-F-G-241                                     IX1064.2
081900                        INVALID KEY ADD 001 TO INVKEY-COUNTER-RL. IX1064.2
082000     ADD     001 TO EXCUT-COUNTER-06V00.                          IX1064.2
082100     ADD     001 TO XRECORD-NUMBER (1).                           IX1064.2
082200     MOVE  FR1-ALTKEY1-11-13 TO FR1-RECKEY-11-13.                 IX1064.2
082300     MOVE WRK-FR1-RECKEY TO XRECORD-KEY (1).                      IX1064.2
082400     MOVE FR1-RECKEY-11-13 TO RL-KEY.                             IX1064.2
082500     MOVE FILE-RECORD-INFO (1) TO RL-FR1R1-F-G-241.               IX1064.2
082600     WRITE   RL-FR1R1-F-G-241                                     IX1064.2
082700                        INVALID KEY ADD 001 TO INVKEY-COUNTER-RL. IX1064.2
082800     ADD     001 TO EXCUT-COUNTER-06V00.                          IX1064.2
082900     ADD     001 TO XRECORD-NUMBER (1).                           IX1064.2
083000     MOVE  FR1-ALTKEY2-11-13 TO FR1-RECKEY-11-13.                 IX1064.2
083100     MOVE WRK-FR1-RECKEY TO XRECORD-KEY (1).                      IX1064.2
083200     MOVE FR1-RECKEY-11-13 TO RL-KEY.                             IX1064.2
083300     MOVE FILE-RECORD-INFO (1) TO RL-FR1R1-F-G-241.               IX1064.2
083400     WRITE   RL-FR1R1-F-G-241                                     IX1064.2
083500                        INVALID KEY ADD 001 TO INVKEY-COUNTER-RL. IX1064.2
083600     ADD      001 TO EXCUT-COUNTER-06V00.                         IX1064.2
083700 WRITE-TEST-GF-01.                                                IX1064.2
083800     SUBTRACT INVKEY-COUNTER-RL FROM EXCUT-COUNTER-06V00          IX1064.2
083900             GIVING RECORDS-WRITTEN.                              IX1064.2
084000 WRITE-TEST-CHECK.                                                IX1064.2
084100     MOVE    225  TO CORRECT-18V0.                                IX1064.2
084200     MOVE    RECORDS-WRITTEN TO COMPUTED-18V0.                    IX1064.2
084300     IF      RECORDS-WRITTEN EQUAL TO 225                         IX1064.2
084400             PERFORM  PASS                                        IX1064.2
084500             ELSE                                                 IX1064.2
084600             MOVE "VIII-37  4.9.2                    " TO RE-MARK IX1064.2
084700             PERFORM FAIL.                                        IX1064.2
084800     PERFORM PRINT-DETAIL.                                        IX1064.2
084900 WRITE-TEST-GF-01-END.                                            IX1064.2
085000     CLOSE   RL-FR1.                                              IX1064.2
085100******************************************************************IX1064.2
085200 SECT-0002-RIS101 SECTION.                                        IX1064.2
085300*                                                                 IX1064.2
085400* THIS SECTION CREATES A SEQUENTIAL AND AN INDEXED FILE USING THE IX1064.2
085500* RELATIVE FILE CREATED IN THE PREVIOUS SECTION AS INPUT .        IX1064.2
085600*                                                                 IX1064.2
085700 WRITE-INIT-GF-02.                                                IX1064.2
085800     OPEN    OUTPUT IX-FS1 SQ-FS1.                                IX1064.2
085900     OPEN    INPUT RL-FR1.                                        IX1064.2
086000     MOVE    ZERO TO RL-KEY.                                      IX1064.2
086100     MOVE    ZERO TO INVKEY-COUNTER-RL.                           IX1064.2
086200     MOVE    ZERO TO INVKEY-COUNTER-IX.                           IX1064.2
086300     MOVE ZERO TO EXCUT-COUNTER-06V00.                            IX1064.2
086400     PERFORM WRITE-TEST-GF-02-01 75 TIMES.                        IX1064.2
086500     PERFORM WRITE-TEST-GF-02-02 75 TIMES.                        IX1064.2
086600     PERFORM WRITE-TEST-GF-02-03 75 TIMES.                        IX1064.2
086700     GO TO WRITE-TEST-GF-02-END.                                  IX1064.2
086800 WRITE-INT-GF-02-IX.                                              IX1064.2
086900     MOVE    "WRITE IX-FS1  " TO FEATURE.                         IX1064.2
087000     MOVE    "WRITE-TEST-GF-02" TO PAR-NAME.                      IX1064.2
087100 WRITE-INT-GF-02-SQ.                                              IX1064.2
087200     MOVE    "WRITE SQ-FS1  " TO FEATURE.                         IX1064.2
087300     MOVE    "WRITE-TEST-GF-02" TO PAR-NAME.                      IX1064.2
087400 WRITE-TEST-GF-02-01.                                             IX1064.2
087500*                                                                 IX1064.2
087600* WRITE-TEST-GF-02-01 - READS IN THE RELATIVE FILE IN SEQUENCE ,  IX1064.2
087700*                      MOVES RL-FR1-ALTKEY1-11-13 TO              IX1064.2
087800*                      RL-FR1-ALTKEY2-11-13 SO THAT ALL THE       IX1064.2
087900*                      KEYS ON THE RECORD ARE THE SAME , THEN     IX1064.2
088000*                      WRITES A SEQUENTIAL RECORD AND AN INDEXED  IX1064.2
088100*                      FILE RECORD .                              IX1064.2
088200*                                                                 IX1064.2
088300     ADD     001 TO RL-KEY.                                       IX1064.2
088400     READ RL-FR1                                                  IX1064.2
088500         INVALID KEY ADD 001 TO INVKEY-COUNTER-RL.                IX1064.2
088600     MOVE    RL-FR1-REC-120 TO FILE-RECORD-INFO-P1-120(1).        IX1064.2
088700     MOVE    RL-FR1-ALTKEY1-11-13 TO RL-FR1-ALTKEY2-11-13.        IX1064.2
088800     MOVE    RL-FR1R1-F-G-241 TO SQ-FS1R1-F-G-241.                IX1064.2
088900     MOVE    SQ-FS1R1-F-G-241 TO IX-FS1R1-F-G-241.                IX1064.2
089000     MOVE    "SQ-FS1" TO XFILE-NAME           (1).                IX1064.2
089100     MOVE    "SQ"     TO  XFILE-ORGANIZATION  (1).                IX1064.2
089200     MOVE    "WRITE SQ-FS1  " TO FEATURE.                         IX1064.2
089300     MOVE    "WRITE-TEST-GF-02" TO PAR-NAME.                      IX1064.2
089400     MOVE FILE-RECORD-INFO-P1-120(1) TO SQ-FS1-REC-120.           IX1064.2
089500     WRITE   SQ-FS1R1-F-G-241.                                    IX1064.2
089600     MOVE    "IX-FS1" TO XFILE-NAME           (1).                IX1064.2
089700     MOVE    "IX"     TO  XFILE-ORGANIZATION  (1).                IX1064.2
089800     MOVE    "WRITE IX-FS1  " TO FEATURE.                         IX1064.2
089900     MOVE    "WRITE-TEST-GF-02" TO PAR-NAME.                      IX1064.2
090000     MOVE FILE-RECORD-INFO-P1-120(1) TO IX-FS1-REC-120.           IX1064.2
090100     WRITE   IX-FS1R1-F-G-241                                     IX1064.2
090200         INVALID KEY ADD 001 TO INVKEY-COUNTER-IX.                IX1064.2
090300     ADD 001 TO EXCUT-COUNTER-06V00.                              IX1064.2
090400 WRITE-TEST-GF-02-02.                                             IX1064.2
090500*                                                                 IX1064.2
090600* WRITE-TEST-GF-02-02 - READS IN THE RELATIVE FILE IN SEQUENCE    IX1064.2
090700*                 STARTING AT NUMBER 76 WHERE WRITE-TEST-GF-02-01 IX1064.2
090800*                     LEFT OFF . MOVES RL-FR1-ALTKEY2-11-13 TO    IX1064.2
090900*                     RL-FR1-ALTKEY1-11-13 SO THAT ALL THE KEYS   IX1064.2
091000*                     IN THE RECORD ARE THE SAME . WRITES A       IX1064.2
091100*                     SEQUENTIAL AND AN INDEXED FILE RECORD .     IX1064.2
091200*                                                                 IX1064.2
091300     ADD     001 TO RL-KEY.                                       IX1064.2
091400     READ RL-FR1                                                  IX1064.2
091500         INVALID KEY ADD 001 TO INVKEY-COUNTER-RL.                IX1064.2
091600     MOVE    RL-FR1-REC-120 TO FILE-RECORD-INFO-P1-120(1).        IX1064.2
091700     MOVE    RL-FR1-ALTKEY2-11-13 TO RL-FR1-ALTKEY1-11-13.        IX1064.2
091800     MOVE    RL-FR1R1-F-G-241 TO SQ-FS1R1-F-G-241.                IX1064.2
091900     MOVE    SQ-FS1R1-F-G-241 TO IX-FS1R1-F-G-241.                IX1064.2
092000     MOVE    "SQ-FS1" TO XFILE-NAME           (1).                IX1064.2
092100     MOVE    "SQ"     TO  XFILE-ORGANIZATION  (1).                IX1064.2
092200     MOVE FILE-RECORD-INFO-P1-120(1) TO SQ-FS1-REC-120.           IX1064.2
092300     WRITE   SQ-FS1R1-F-G-241.                                    IX1064.2
092400     MOVE    "IX-FS1" TO XFILE-NAME           (1).                IX1064.2
092500     MOVE    "IX"     TO  XFILE-ORGANIZATION  (1).                IX1064.2
092600     MOVE FILE-RECORD-INFO-P1-120(1) TO IX-FS1-REC-120.           IX1064.2
092700     WRITE   IX-FS1R1-F-G-241                                     IX1064.2
092800         INVALID KEY ADD 001 TO INVKEY-COUNTER-IX.                IX1064.2
092900     ADD 001 TO EXCUT-COUNTER-06V00.                              IX1064.2
093000 WRITE-TEST-GF-02-03.                                             IX1064.2
093100*                                                                 IX1064.2
093200* WRITE-TEST-GF-02-03 - READS IN THE RELATIVE FILE IN SEQUENCE    IX1064.2
093300*                STARTING AT NUMBER 151 WHERE WRITE-TEST-GF-02-02 IX1064.2
093400*                    LEFT OFF . MOVES RL-FR1-KEY-11-13 TO         IX1064.2
093500*                    RL-FR1-ALTKEY1-11-13 AND RL-ALTKEY2-11-13    IX1064.2
093600*                    SO THAT ALL THE KEYS IN THE RECORD ARE       IX1064.2
093700*                    THE SAME . WRITES A SEQUENTIAL AND AN        IX1064.2
093800*                    INDEXED FILE RECORD .                        IX1064.2
093900*                                                                 IX1064.2
094000     ADD     001 TO RL-KEY.                                       IX1064.2
094100     READ RL-FR1                                                  IX1064.2
094200         INVALID KEY ADD 001 TO INVKEY-COUNTER-RL.                IX1064.2
094300     MOVE    RL-FR1-REC-120 TO FILE-RECORD-INFO-P1-120(1).        IX1064.2
094400     MOVE RL-FR1-KEY-11-13 TO RL-FR1-ALTKEY1-11-13.               IX1064.2
094500     MOVE    RL-FR1-ALTKEY1-11-13 TO RL-FR1-ALTKEY2-11-13.        IX1064.2
094600     MOVE    RL-FR1R1-F-G-241 TO SQ-FS1R1-F-G-241.                IX1064.2
094700     MOVE    SQ-FS1R1-F-G-241 TO IX-FS1R1-F-G-241.                IX1064.2
094800     MOVE    "SQ-FS1" TO XFILE-NAME           (1).                IX1064.2
094900     MOVE    "SQ"     TO  XFILE-ORGANIZATION  (1).                IX1064.2
095000     MOVE FILE-RECORD-INFO-P1-120(1) TO SQ-FS1-REC-120.           IX1064.2
095100     WRITE   SQ-FS1R1-F-G-241.                                    IX1064.2
095200     MOVE    "IX-FS1" TO XFILE-NAME           (1).                IX1064.2
095300     MOVE    "IX"     TO  XFILE-ORGANIZATION  (1).                IX1064.2
095400     MOVE FILE-RECORD-INFO-P1-120(1) TO IX-FS1-REC-120.           IX1064.2
095500     WRITE   IX-FS1R1-F-G-241                                     IX1064.2
095600         INVALID KEY ADD 001 TO INVKEY-COUNTER-IX.                IX1064.2
095700     ADD 001 TO EXCUT-COUNTER-06V00.                              IX1064.2
095800 WRITE-TEST-GF-02-END.                                            IX1064.2
095900     CLOSE RL-FR1.                                                IX1064.2
096000     CLOSE SQ-FS1.                                                IX1064.2
096100     CLOSE IX-FS1.                                                IX1064.2
096200     MOVE "READ RL-FR1  " TO FEATURE.                             IX1064.2
096300     MOVE "WRITE-TEST-GF-02" TO PAR-NAME.                         IX1064.2
096400     PERFORM WRITE-TEST-GF-01 THRU WRITE-TEST-CHECK.              IX1064.2
096500     SUBTRACT INVKEY-COUNTER-IX FROM EXCUT-COUNTER-06V00          IX1064.2
096600          GIVING RECORDS-WRITTEN.                                 IX1064.2
096700 WRITE-TEST-GF-02-2.                                              IX1064.2
096800     PERFORM WRITE-INT-GF-02-IX.                                  IX1064.2
096900     MOVE "WRITE-TEST-GF-02-2" TO PAR-NAME.                       IX1064.2
097000     PERFORM WRITE-TEST-CHECK.                                    IX1064.2
097100 WRITE-TEST-GF-02-3.                                              IX1064.2
097200     PERFORM WRITE-INT-GF-02-SQ.                                  IX1064.2
097300     MOVE "WRITE-TEST-GF-02-3" TO PAR-NAME.                       IX1064.2
097400     PERFORM WRITE-TEST-CHECK.                                    IX1064.2
097500******************************************************************IX1064.2
097600 SECT-0003-RIS101 SECTION.                                        IX1064.2
097700*                                                                 IX1064.2
097800* THIS SECTION TESTS THE ABILITY TO HAVE ALL THREE DIFFERNT FILE  IX1064.2
097900* TYPES OPENED AND USED AT THE SAME TIME .                        IX1064.2
098000*                                                                 IX1064.2
098100 READ-TEST-F2-01-01.                                              IX1064.2
098200     MOVE ZEROES TO REC-CT.                                       IX1064.2
098300     OPEN INPUT RL-FR1.                                           IX1064.2
098400     OPEN INPUT IX-FS1.                                           IX1064.2
098500     OPEN INPUT SQ-FS1.                                           IX1064.2
098600     MOVE    "OPEN ALL - SEPARATE" TO FEATURE.                    IX1064.2
098700     MOVE    "READ-TEST-F2-01-02" TO PAR-NAME.                    IX1064.2
098800 READ-TEST-F2-01-02.                                              IX1064.2
098900*                                                                 IX1064.2
099000* READ-TEST-F2-01-02 - THIS TESTS THE ABILITY TO READ ALL THREE   IX1064.2
099100*                      TYPES OF FILES IN ANY ORDER WITH ALL OF THEIX1064.2
099200*                      FILES OPEN AT ONCE .                       IX1064.2
099300*                                                                 IX1064.2
099400     MOVE ZERO TO RL-KEY.                                         IX1064.2
099500     ADD 001 TO RL-KEY.                                           IX1064.2
099600     READ SQ-FS1 INTO IX-FS1R1-F-G-241 AT END GO TEST-FINISH-EXIT.IX1064.2
099700     READ IX-FS1                                                  IX1064.2
099800         INVALID KEY                                              IX1064.2
099900         MOVE "1ST IX-FS1 READ - KEY SHOULD BE 001" TO RE-MARK    IX1064.2
100000         PERFORM FAIL                                             IX1064.2
100100         PERFORM PRINT-DETAIL                                     IX1064.2
100200         GO TO READ-TEST-F2-01-02-END.                            IX1064.2
100300     READ RL-FR1                                                  IX1064.2
100400         INVALID KEY                                              IX1064.2
100500         MOVE "1ST RL-FS1 READ - KEY SHOULD BE 001" TO RE-MARK    IX1064.2
100600         PERFORM FAIL                                             IX1064.2
100700         PERFORM PRINT-DETAIL                                     IX1064.2
100800         GO TO READ-TEST-F2-01-02-END.                            IX1064.2
100900     READ SQ-FS1 AT END GO TO TEST-FINISH-EXIT.                   IX1064.2
101000     READ SQ-FS1 AT END GO TO TEST-FINISH-EXIT.                   IX1064.2
101100     READ RL-FR1                                                  IX1064.2
101200         INVALID KEY                                              IX1064.2
101300         MOVE "2ND IX-FS1 READ - KEY SHOULD BE 001" TO RE-MARK    IX1064.2
101400         PERFORM FAIL                                             IX1064.2
101500         PERFORM PRINT-DETAIL                                     IX1064.2
101600         GO TO READ-TEST-F2-01-02-END.                            IX1064.2
101700     READ IX-FS1                                                  IX1064.2
101800         INVALID KEY                                              IX1064.2
101900         MOVE "2ND RL-FR1 READ - KEY SHOULD BE 001" TO RE-MARK    IX1064.2
102000         PERFORM FAIL                                             IX1064.2
102100         PERFORM PRINT-DETAIL                                     IX1064.2
102200         GO TO READ-TEST-F2-01-02-END.                            IX1064.2
102300     READ SQ-FS1 AT END GO TO TEST-FINISH-EXIT.                   IX1064.2
102400     PERFORM PASS.                                                IX1064.2
102500     PERFORM PRINT-DETAIL.                                        IX1064.2
102600 READ-TEST-F2-01-02-END.                                          IX1064.2
102700     CLOSE RL-FR1.                                                IX1064.2
102800     CLOSE IX-FS1.                                                IX1064.2
102900     CLOSE SQ-FS1.                                                IX1064.2
103000 READ-INIT-F2-02.                                                 IX1064.2
103100     OPEN I-O IX-FS1 SQ-FS1 RL-FR1.                               IX1064.2
103200 READ-TEST-F2-02.                                                 IX1064.2
103300     READ SQ-FS1 AT END GO TO TEST-FINISH-EXIT.                   IX1064.2
103400 READ-WRITE-F2-02.                                                IX1064.2
103500     CLOSE RL-FR1 IX-FS1 SQ-FS1.                                  IX1064.2
103600     MOVE    "R-I-S " TO XFILE-NAME           (1).                IX1064.2
103700     MOVE    ZERO     TO  XRECORD-NUMBER      (1).                IX1064.2
103800     MOVE    "AL"     TO  XFILE-ORGANIZATION  (1).                IX1064.2
103900     MOVE    "OPEN ALL 3 IN 1 LINE" TO FEATURE.                   IX1064.2
104000     MOVE    "READ-TEST-F2-02   " TO PAR-NAME.                    IX1064.2
104100     PERFORM PASS.                                                IX1064.2
104200     PERFORM PRINT-DETAIL.                                        IX1064.2
104300******************************************************************IX1064.2
104400 SECT-0004-RIS101 SECTION.                                        IX1064.2
104500*                                                                 IX1064.2
104600* THIS SECTION TESTS THE ABILITY TO DELETE RECORDS FROM ONE FILE  IX1064.2
104700* TYPE WHILE HAVING THE OTHER FILES OPEN .                        IX1064.2
104800*                                                                 IX1064.2
104900 DELETE-TEST-GF-01.                                               IX1064.2
105000*                                                                 IX1064.2
105100* DELETE-TEST-GF-01-01 -IN THIS TEST RECORD NUMBER 121 IS DELETED IX1064.2
105200*                  THE RELATIVE FILE . THE FILE IS THEN CLOSED .  IX1064.2
105300*                   THE RELATIVE FILE IS THEN RE-OPENED AND       IX1064.2
105400*                   READ EXPECTING TO FIND 122 VALID RECORDS      IX1064.2
105500*                   AND AN INVALID KEY FOR WHAT USED TO BE        IX1064.2
105600*                   THE 122ND RECORD.  RL-FR1-RECKEY-11-13        IX1064.2
105700*                   IS CHECKED TO SEE IF RECORD 123 IS READ       IX1064.2
105800*                   AS IT SHOULD BE.                              IX1064.2
105900*                                                                 IX1064.2
106000     OPEN I-O IX-FS1 RL-FR1 SQ-FS1.                               IX1064.2
106100     MOVE    ZERO TO IX-FS1-KEY-11-13.                            IX1064.2
106200     MOVE    ZERO TO RL-KEY.                                      IX1064.2
106300     MOVE    ZERO TO INVKEY-COUNTER-RL.                           IX1064.2
106400     MOVE    ZERO TO INVKEY-COUNTER-IX.                           IX1064.2
106500     MOVE    121 TO IX-FS1-KEY-11-13.                             IX1064.2
106600     READ    IX-FS1                                               IX1064.2
106700         INVALID KEY ADD 001 TO INVKEY-COUNTER-IX.                IX1064.2
106800     ADD     121 TO RL-KEY.                                       IX1064.2
106900     MOVE    "R-I-S " TO XFILE-NAME           (1)                 IX1064.2
107000     MOVE    ZERO     TO  XRECORD-NUMBER      (1)                 IX1064.2
107100     MOVE    "RL"     TO  XFILE-ORGANIZATION  (1)                 IX1064.2
107200     MOVE    "DELETE RL RECORD" TO FEATURE                        IX1064.2
107300     MOVE    "DELETE-TEST-GF-01   " TO PAR-NAME                   IX1064.2
107400     DELETE RL-FR1                                                IX1064.2
107500         INVALID KEY PERFORM FAIL                                 IX1064.2
107600         PERFORM PRINT-DETAIL                                     IX1064.2
107700         GO TO DELETE-TEST-GF-01-END.                             IX1064.2
107800     CLOSE RL-FR1.                                                IX1064.2
107900     OPEN INPUT RL-FR1.                                           IX1064.2
108000     MOVE ZERO TO RL-KEY.                                         IX1064.2
108100     PERFORM DELETE-TEST-GF-01-02-R2 122 TIMES.                   IX1064.2
108200 DELETE-TEST-GF-01-02-R2.                                         IX1064.2
108300     ADD   1 TO RL-KEY.                                           IX1064.2
108400     READ RL-FR1 INVALID KEY                                      IX1064.2
108500           ADD 1 TO INVKEY-COUNTER-RL.                            IX1064.2
108600 DELETE-TEST-GF-01-02-CK.                                         IX1064.2
108700     IF RL-FR1-KEY-11-13 EQUAL TO 123                             IX1064.2
108800        ADD 1 TO INVKEY-COUNTER-RL.                               IX1064.2
108900        IF                                                        IX1064.2
109000           INVKEY-COUNTER-RL EQUAL TO 2                           IX1064.2
109100           PERFORM PASS ELSE                                      IX1064.2
109200           MOVE "VII-19 4.3.2                        " TO RE-MARK IX1064.2
109300           PERFORM FAIL.                                          IX1064.2
109400     PERFORM PRINT-DETAIL.                                        IX1064.2
109500 DELETE-TEST-GF-01-END.                                           IX1064.2
109600     CLOSE RL-FR1 IX-FS1 SQ-FS1.                                  IX1064.2
109700******************************************************************IX1064.2
109800 SECT-TEST-005-RIS101 SECTION.                                    IX1064.2
109900*                                                                 IX1064.2
110000* THIS SECTION TESTS THE ABILITY TO REWRITE A FILE WHILE OTHER    IX1064.2
110100* FILES ARE BEING MANIPULATED .                                   IX1064.2
110200*                                                                 IX1064.2
110300 REWRITE-INIT-GF-01.                                              IX1064.2
110400     OPEN I-O SQ-FS1 IX-FS1 RL-FR1.                               IX1064.2
110500     MOVE ZEROES TO RL-KEY.                                       IX1064.2
110600     ADD 003 TO RL-KEY.                                           IX1064.2
110700     MOVE    ZERO TO INVKEY-COUNTER-RL.                           IX1064.2
110800     MOVE    ZERO TO INVKEY-COUNTER-IX.                           IX1064.2
110900 REWRITE-TEST-GF-01.                                              IX1064.2
111000*                                                                 IX1064.2
111100* REWRITE-TEST-GF-01:TESTS THE ABILITY TO REWRITE A RELATIVE FILE IX1064.2
111200*                    WHILE ALSO MANIPULATING DATA FROM AN INEXED  IX1064.2
111300*                    FILE .                                       IX1064.2
111400*                                                                 IX1064.2
111500 READ-INIT-RL.                                                    IX1064.2
111600     READ RL-FR1                                                  IX1064.2
111700         INVALID KEY                                              IX1064.2
111800         MOVE    "READ RL RECORD" TO FEATURE                      IX1064.2
111900         MOVE    "READ-INIT-RL      " TO PAR-NAME                 IX1064.2
112000     PERFORM FAIL PERFORM PRINT-DETAIL GO REWRITE-TEST-005-END.   IX1064.2
112100     MOVE RL-FR1-ALTKEY2-11-13 TO IX-FS1-KEY-11-13.               IX1064.2
112200 READ-INIT-IX.                                                    IX1064.2
112300     READ IX-FS1                                                  IX1064.2
112400         INVALID KEY                                              IX1064.2
112500         MOVE    "READ IX RECORD" TO FEATURE                      IX1064.2
112600         MOVE    "READ-INIT-IX.      " TO PAR-NAME                IX1064.2
112700     PERFORM FAIL PERFORM PRINT-DETAIL GO REWRITE-TEST-005-END.   IX1064.2
112800     MOVE RL-FR1-ALTKEY2-11-13 TO IX-FS1-KEY-11-13.               IX1064.2
112900     MOVE IX-FS1R1-F-G-241 TO RL-FR1R1-F-G-241.                   IX1064.2
113000     REWRITE RL-FR1R1-F-G-241                                     IX1064.2
113100         INVALID KEY                                              IX1064.2
113200         MOVE    "REWRITE RL RECORD" TO FEATURE                   IX1064.2
113300         MOVE    "REWRITE-TEST-GF-01"    TO PAR-NAME              IX1064.2
113400     PERFORM FAIL PERFORM PRINT-DETAIL GO REWRITE-TEST-005-END.   IX1064.2
113500 REWRITE-TEST-005-01-1.                                           IX1064.2
113600     READ RL-FR1                                                  IX1064.2
113700         INVALID KEY                                              IX1064.2
113800         MOVE    "READ RL RECORD" TO FEATURE                      IX1064.2
113900         MOVE    "REWRITE-TEST-005-01-1" TO PAR-NAME              IX1064.2
114000       PERFORM FAIL PERFORM PRINT-DETAIL GO REWRITE-TEST-005-END. IX1064.2
114100 REWRITE-TEST-01.                                                 IX1064.2
114200     MOVE    "REWRITE RL RECORD" TO FEATURE                       IX1064.2
114300     MOVE    "REWRITE-TEST-GF-01"    TO PAR-NAME.                 IX1064.2
114400     IF RL-FR1-KEY-11-13 NOT EQUAL 78                             IX1064.2
114500         PERFORM FAIL                                             IX1064.2
114600         MOVE RL-FR1-KEY-11-13 TO COMPUTED-A                      IX1064.2
114700         MOVE "78" TO CORRECT-A                                   IX1064.2
114800         PERFORM PRINT-DETAIL                                     IX1064.2
114900         MOVE     RL-FR1-REC-120 TO DUMMY-RECORD                  IX1064.2
115000         PERFORM  WRITE-LINE                                      IX1064.2
115100         MOVE RL-FR1-REC-121-241 TO DUMMY-RECORD                  IX1064.2
115200         PERFORM WRITE-LINE                                       IX1064.2
115300     ELSE                                                         IX1064.2
115400         PERFORM PASS.                                            IX1064.2
115500     PERFORM PRINT-DETAIL.                                        IX1064.2
115600***************************************************************   IX1064.2
115700 REWRITE-TEST-GF-02.                                              IX1064.2
115800*                                                                 IX1064.2
115900* REWRITE-TEST-GF-02   TESTS THE ABILITY TO REWRITE A SEQUENTIAL  IX1064.2
116000*                      FILE WHILE WORKING WITH A RELATIVE ALSO .  IX1064.2
116100*                                                                 IX1064.2
116200     PERFORM READ-TEST-F2-02       9 TIMES.                       IX1064.2
116300     MOVE 15 TO RL-KEY.                                           IX1064.2
116400     READ RL-FR1 INTO SQ-FS1R1-F-G-241                            IX1064.2
116500         INVALID KEY                                              IX1064.2
116600         MOVE "RL INTO SQ" TO FEATURE                             IX1064.2
116700         MOVE "REWRITE-TEST-GF-02I" TO PAR-NAME                   IX1064.2
116800         MOVE "VIII-26 4.5.2                         " TO RE-MARK IX1064.2
116900         PERFORM FAIL                                             IX1064.2
117000         PERFORM PRINT-DETAIL                                     IX1064.2
117100         GO TEST-FINISH-EXIT.                                     IX1064.2
117200     MOVE "REWRITE-TEST-GF-02 " TO PAR-NAME.                      IX1064.2
117300     MOVE "REWRITE SQ" TO FEATURE.                                IX1064.2
117400     REWRITE SQ-FS1R1-F-G-241.                                    IX1064.2
117500     CLOSE SQ-FS1.                                                IX1064.2
117600     OPEN I-O SQ-FS1.                                             IX1064.2
117700     PERFORM READ-TEST-F2-02       9 TIMES.                       IX1064.2
117800     IF SQ-FS1-ALTKEY2-11-13 EQUAL TO  "090"                      IX1064.2
117900         PERFORM PASS                                             IX1064.2
118000     ELSE                                                         IX1064.2
118100         PERFORM FAIL                                             IX1064.2
118200         MOVE "90" TO CORRECT-A                                   IX1064.2
118300         MOVE SQ-FS1-KEY-11-13 TO COMPUTED-A.                     IX1064.2
118400     PERFORM PRINT-DETAIL.                                        IX1064.2
118500********* END OF 005-02 REWRITE SQ RECORD ************************IX1064.2
118600 REWRITE-TEST-GF-03.                                              IX1064.2
118700*                                                                 IX1064.2
118800* REWRITE-TEST-GF-03  TESTS THE ABILITY TO REWRITE AN INDEXED FILEIX1064.2
118900*                      WHILE ALSO READING A RELATIVE FILE .       IX1064.2
119000*                                                                 IX1064.2
119100     MOVE 15 TO RL-KEY.                                           IX1064.2
119200     MOVE "077" TO IX-FS1-KEY-11-13.                              IX1064.2
119300     MOVE "REWRITE-TEST-GF-03 " TO PAR-NAME.                      IX1064.2
119400     MOVE "REWRITE IX" TO FEATURE.                                IX1064.2
119500     READ IX-FS1                                                  IX1064.2
119600         INVALID KEY                                              IX1064.2
119700         MOVE    "READ IX RECORD" TO FEATURE                      IX1064.2
119800       PERFORM FAIL PERFORM PRINT-DETAIL GO REWRITE-TEST-005-END. IX1064.2
119900     READ RL-FR1                                                  IX1064.2
120000         INVALID KEY                                              IX1064.2
120100         MOVE "READ RL TO PASS TO IX" TO RE-MARK                  IX1064.2
120200         PERFORM FAIL                                             IX1064.2
120300         PERFORM PRINT-DETAIL                                     IX1064.2
120400         GO REWRITE-TEST-005-END.                                 IX1064.2
120500     REWRITE IX-FS1R1-F-G-241 FROM RL-FR1R1-F-G-241               IX1064.2
120600         INVALID KEY                                              IX1064.2
120700         MOVE "REWRITE IX STATEMENT" TO RE-MARK                   IX1064.2
120800         PERFORM FAIL                                             IX1064.2
120900         PERFORM PRINT-DETAIL                                     IX1064.2
121000         GO TO REWRITE-TEST-005-END.                              IX1064.2
121100     MOVE "015" TO IX-FS1-KEY-11-13.                              IX1064.2
121200     READ IX-FS1                                                  IX1064.2
121300         INVALID KEY                                              IX1064.2
121400         MOVE "RE-READ IX FOR CHECK" TO RE-MARK                   IX1064.2
121500         PERFORM FAIL                                             IX1064.2
121600         PERFORM PRINT-DETAIL                                     IX1064.2
121700         GO REWRITE-TEST-005-END.                                 IX1064.2
121800     IF IX-FS1-ALTKEY2-11-13 EQUAL TO "090"                       IX1064.2
121900         PERFORM PASS                                             IX1064.2
122000     ELSE                                                         IX1064.2
122100         MOVE IX-FS1-REC-120 TO DUMMY-RECORD                      IX1064.2
122200         PERFORM WRITE-LINE                                       IX1064.2
122300         MOVE IX-FS1-REC-121-241 TO DUMMY-RECORD                  IX1064.2
122400         PERFORM WRITE-LINE                                       IX1064.2
122500         PERFORM FAIL.                                            IX1064.2
122600     PERFORM PRINT-DETAIL.                                        IX1064.2
122700 REWRITE-TEST-005-END.                                            IX1064.2
122800     CLOSE SQ-FS1 IX-FS1 RL-FR1.                                  IX1064.2
122900 TEST-FINISH-EXIT.                                                IX1064.2
123000     EXIT.                                                        IX1064.2
123100 CCVS-EXIT SECTION.                                               IX1064.2
123200 CCVS-999999.                                                     IX1064.2
123300     GO TO CLOSE-FILES.                                           IX1064.2