SSL rl205a.cob Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         RL2054.2
000200 PROGRAM-ID.                                                      RL2054.2
000300     RL205A.                                                      RL2054.2
000400****************************************************************  RL2054.2
000500*                                                              *  RL2054.2
000600*    VALIDATION FOR:-                                          *  RL2054.2
000700*                                                              *  RL2054.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".RL2054.2
000900*                                                              *  RL2054.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".RL2054.2
001100*                                                              *  RL2054.2
001200****************************************************************  RL2054.2
001300*    THE FUNCTION OF THIS PROGRAM IS TO TEST THE PERMISSIBLE SYN- RL2054.2
001400*    TACTICAL CONSTRUCTS OF COBOL ELEMENTS ASSOCIATED WITH LEVEL 2RL2054.2
001500*    OF THE RELATIVE I-O MODULE.  THE ELEMENTS TESTED IN THIS     RL2054.2
001600*    ROUTINE ARE:                                                 RL2054.2
001700*                                                                 RL2054.2
001800*            USE AFTER ERROR PROCEDURE FILE-NAME-1 FILE-NAME-2    RL2054.2
001900*            READ .....  NEXT                                     RL2054.2
002000*            READ .....  NEXT RECORD INTO ....                    RL2054.2
002100*            READ .....  NEXT INTO .....                          RL2054.2
002200*            READ .....  NEXT INTO ..... AT END ....              RL2054.2
002300*            READ .....                                           RL2054.2
002400*            READ .....  INTO .....                               RL2054.2
002500*            READ .....  RECORD                                   RL2054.2
002600*            READ .....  RECORD  INVALID .....                    RL2054.2
002700*            READ .....  RECORD  INVALID KEY ....                 RL2054.2
002800*            START FILE-NAME-2                                    RL2054.2
002900*            START FILE-NAME-2 KEY EQUAL TO ....                  RL2054.2
003000*            START FILE-NAME-2 KEY IS EQUAL TO  ....              RL2054.2
003100*            START FILE-NAME-2 KEY IS EQUAL .....                 RL2054.2
003200*            START FILE-NAME-2 KEY IS =  ......                   RL2054.2
003300*            START FILE-NAME-2 KEY IS GREATER  .....              RL2054.2
003400*            START FILE-NAME-2 KEY  GREATER THAN ....             RL2054.2
003500*            START FILE-NAME-2 KEY IS GREATER  .....              RL2054.2
003600*            START FILE-NAME-2 KEY IS  >   ....                   RL2054.2
003700*            START FILE-NAME-2 KEY     >   ....                   RL2054.2
003800*            START FILE-NAME-2 KEY IS NOT LESS THAN ....          RL2054.2
003900*            START FILE-NAME-2 KEY IS NOT LESS  ....              RL2054.2
004000*            START FILE-NAME-2 KEY    NOT LESS  ....              RL2054.2
004100*            START FILE-NAME-2 KEY IS NOT  <  .....               RL2054.2
004200*            START FILE-NAME-1 KEY IS EQUAL TO INVALID KEY .....  RL2054.2
004300*            START FILE-NAME-1 KEY IS EQUAL TO INVALID ....       RL2054.2
004400*            START FILE-NAME-1 INVALID KEY ....                   RL2054.2
004500*            START FILE-NAME-1 ; INVALID KEY ....                 RL2054.2
004600*            START FILE-NAME-1 KEY EQUAL TO  .....                RL2054.2
004700*            FILE POSITION INDICATOR                              RL2054.2
004800*                                                                 RL2054.2
004900*    EACH ELEMENT TESTED WILL BE EXERCISED SEMANTICALLY BY THIS   RL2054.2
005000*    ROUTINE.                                                     RL2054.2
005100*    FOR A RELATIVE OR INDEXED FILE IN THE DYNAMIC ACCESS MODE,   RL2054.2
005200*    EXECUTION OF AN "OPEN I-O" STATEMENT FOLLOWED BYONE OR       RL2054.2
005300*    MORE "WRITE" STATEMENTS AND THEN A "READ NEXT" STATEMENT     RL2054.2
005400*    WILL CAUSE THE "READ" STATEMENT TO ACCESS THE FIRST RECORD   RL2054.2
005500*    IN THE FILE AT THE TIME OF EXECUTION OF THE "READ"           RL2054.2
005600*    STATEMENT.  SYNTAX TESTS FOR THE "START" STATEMENT ARE       RL2054.2
005700*    ALSO INCLUDED.                                               RL2054.2
005800*                                                                 RL2054.2
005900*                                                                 RL2054.2
006000*       X-CARDS  WHICH MUST BE REPLACED FOR THIS PROGRAM ARE      RL2054.2
006100*                                                                 RL2054.2
006200*             X-21   RELATIVE FILE IMPLEMENTOR-NAME IN ASSGN TO   RL2054.2
006300*                    CLAUSE FOR DATA FILE RL-FS1                  RL2054.2
006400*             X-22   RELATIVE FILE IMPLEMENTOR-NAME IN ASSIGN TO  RL2054.2
006500*                    CLAUSE FOR DATA FILE RL-FD2                  RL2054.2
006600*             X-55   IMPLEMENTOR-NAME FOR SYSTEM PRINTER          RL2054.2
006700*             X-69   ADDITIONAL VALUE OF PHRASES                  RL2054.2
006800*             X-74   VALUE OF IMPLEMENTOR-NAME                    RL2054.2
006900*             X-75   OBJECT OF VALUE OF CLAUSE FOR FILE RL-FS1    RL2054.2
007000*             X-76   OBJECT OF VALUE OF CLAUSE FOR FILE RL-FD2    RL2054.2
007100*             X-82   IMPLEMENTOR-NAME FOR SOURCE-COMPUTER         RL2054.2
007200*             X-83   IMPLEMENTOR-NAME FOR OBJECT-COMPUTER         RL2054.2
007300*                                                                 RL2054.2
007400*        NOTE:  X-CARDS 69,74,75 AND 76 ARE OPTIONAL              RL2054.2
007500*               AND NEED ONLY TO BE PRESENT IF THE COMPILER RE-   RL2054.2
007600*               QUIRES THIS CODE BE AVAILABLE FOR PROPER PROGRAM  RL2054.2
007700*               COMPILATION AND EXECUTION. IF THE VP-ROUTINE IS   RL2054.2
007800*               USED THE  X-CARDS MAY BE AUTOMATICALLY SELECTED   RL2054.2
007900*               FOR INCLUSION IN THE PROGRAM BY SPECIFYING THE    RL2054.2
008000*               APPROPRIATE LETTER IN THE "*OPT" VP-ROUTINE       RL2054.2
008100*               CONTROL CARD. THE LETTER  CORRESPONDS TO A        RL2054.2
008200*               CHARACTER IN POSITION 7 OF THE SOURCE LINE AND    RL2054.2
008300*               THEY ARE AS FOLLOWS                               RL2054.2
008400*                                                                 RL2054.2
008500*                  C  SELECTS X-CARDS 74,75 AND 76                RL2054.2
008600*                  G  SELECTS X-CARDS 69                          RL2054.2
008700*                                                                 RL2054.2
008800*        NOTE:  THERE IS OPTIONAL SOURCE CODE IN THIS PROGRAM     RL2054.2
008900*               FOR THE CONVENIENCE OF THE USER.  THIS OPTIONAL   RL2054.2
009000*               CODE IS IDENTIFIED BY THE LETTER  X IN            RL2054.2
009100*               POSITION 7  OF THE SOURCE LINE.  USE OF           RL2054.2
009200*               SOURCE CODE WITH LETTER X WILL PRINT THE CONTENTS RL2054.2
009300*               OF THE FILES AFTER THE TEST REPORT.               RL2054.2
009400*               IF THE VP-ROUTINE IS USED THE APPROPRIATE         RL2054.2
009500*               SOURCE CODE MAY BE SELECTED BY SPECIFYING THE     RL2054.2
009600*               RESPECTIVE LETTER IN THE "*OPT" VP-ROUTINE CONTROLRL2054.2
009700*               CARD.                                             RL2054.2
009800*                                                                 RL2054.2
009900******************************************************            RL2054.2
010000 ENVIRONMENT DIVISION.                                            RL2054.2
010100 CONFIGURATION SECTION.                                           RL2054.2
010200 SOURCE-COMPUTER.                                                 RL2054.2
010300     Card0130.                                                    RL2054.2
010400 OBJECT-COMPUTER.                                                 RL2054.2
010500     Card0131.                                                    RL2054.2
010600 INPUT-OUTPUT SECTION.                                            RL2054.2
010700 FILE-CONTROL.                                                    RL2054.2
010800     SELECT PRINT-FILE ASSIGN TO                                  RL2054.2
010900     "C0085" .                                                    RL2054.2
011000     SELECT   RL-FD1                                              RL2054.2
011100        ASSIGN TO                                                 RL2054.2
011200     "C0033"                                                      RL2054.2
011300         ORGANIZATION IS RELATIVE                                 RL2054.2
011400       ACCESS MODE IS DYNAMIC                                     RL2054.2
011500       RELATIVE KEY IS RL-FD1-KEY.                                RL2054.2
011600     SELECT   RL-FS2                                              RL2054.2
011700         ASSIGN TO                                                RL2054.2
011800     "C0034"                                                      RL2054.2
011900        ACCESS MODE IS SEQUENTIAL                                 RL2054.2
012000       RELATIVE KEY IS RL-FS2-KEY                                 RL2054.2
012100         ORGANIZATION IS RELATIVE.                                RL2054.2
012200 DATA DIVISION.                                                   RL2054.2
012300 FILE SECTION.                                                    RL2054.2
012400 FD  PRINT-FILE.                                                  RL2054.2
012500 01  PRINT-REC PICTURE X(120).                                    RL2054.2
012600 01  DUMMY-RECORD PICTURE X(120).                                 RL2054.2
012700 FD  RL-FD1                                                       RL2054.2
012800     RECORD CONTAINS 240 CHARACTERS                               RL2054.2
012900     VALUE OF                                                     RL2054.2
013000     Impl1                                                        RL2054.2
013100     IS                                                           RL2054.2
013200     4711                                                         RL2054.2
013300                                                                  RL2054.2
013400     .                                                            RL2054.2
013500 01  RL-FD1R1-F-G-240.                                            RL2054.2
013600     05 RL-FD1-REC-001-120        PICTURE X(120).                 RL2054.2
013700     05 RL-FD1-REC-121-240.                                       RL2054.2
013800     10 FILLER          PICTURE X(8).                             RL2054.2
013900     10 RL-FD1-FILLER.                                            RL2054.2
014000        15 RL-FS1-KEYNUM PICTURE 9(5).                            RL2054.2
014100    10 FILLER           PICTURE X(5).                             RL2054.2
014200     10 FILLER           PICTURE X(19).                           RL2054.2
014300     10 FILLER           PICTURE X(9).                            RL2054.2
014400     10 RL-FD1-FILLER1.                                           RL2054.2
014500        15 RL-FD1-FILLER1NUM      PICTURE 9(5).                   RL2054.2
014600    10 FILLER                    PICTURE 9(5).                    RL2054.2
014700     10 FILLER                    PICTURE X(19).                  RL2054.2
014800     10 FILLER                    PICTURE X(45).                  RL2054.2
014900 FD  RL-FS2                                                       RL2054.2
015000     VALUE OF                                                     RL2054.2
015100     Impl1                                                        RL2054.2
015200     IS                                                           RL2054.2
015300     4711                                                         RL2054.2
015400                                                                  RL2054.2
015500     .                                                            RL2054.2
015600 01  RL-FS2R1-F-G-240.                                            RL2054.2
015700     05 RL-FS2-REC-001-120        PICTURE X(120).                 RL2054.2
015800     05 RL-FS2-REC-121-240.                                       RL2054.2
015900        10 FILLER                 PICTURE X(8).                   RL2054.2
016000        10 RL-FS2-FILLER.                                         RL2054.2
016100           15 RL-FS2-KEYNUM       PICTURE 9(5).                   RL2054.2
016200       10 FILLER                 PICTURE 9(5).                    RL2054.2
016300        10 FILLER                 PICTURE X(19).                  RL2054.2
016400        10 FILLER                 PICTURE X(9).                   RL2054.2
016500        10 RL-FS2-FILLER1.                                        RL2054.2
016600           15 RL-FS2-FILLER1NUM   PICTURE 9(5).                   RL2054.2
016700       10 FILLER                 PICTURE 9(5).                    RL2054.2
016800        10 FILLER                 PICTURE X(19).                  RL2054.2
016900        10 FILLER                 PICTURE X(45).                  RL2054.2
017000 WORKING-STORAGE SECTION.                                         RL2054.2
017100 01  WRK-XN-00001    PIC X.                                       RL2054.2
017200 01  WRK-XN-00002    PIC X.                                       RL2054.2
017300 01  RL-FD1-KEY           PICTURE 9(5)  VALUE ZERO.               RL2054.2
017400 01  RL-FS2-KEY           PICTURE 9(5)  VALUE ZERO.               RL2054.2
017500 01  RL-FD1-FILESIZE              PICTURE 9(6) VALUE 300.         RL2054.2
017600 01  RL-FS2-FILESIZE              PICTURE 9(6) VALUE 300.         RL2054.2
017700 01  WRK-RL-FD1-RECKEY-CHAR.                                      RL2054.2
017800  03 WRK-RL-FD1-RECKEY   PIC 9(5)  VALUE ZERO.                    RL2054.2
017900 01  WRK-RL-FS2-RECKEY    PIC 9(5)  VALUE ZERO.                   RL2054.2
018000 01  WRK-RL-FD1-FILLER.                                           RL2054.2
018100     03 WRK-DU-05V00-002          PICTURE 9(5)  VALUE  ZERO.      RL2054.2
018200 01  WRK-RL-FS2-FILLER.                                           RL2054.2
018300     03 WRK-DU-05V00-004          PICTURE 9(5)  VALUE  ZERO.      RL2054.2
018400 01  EXCUT-COUNTER-06V00          PICTURE S9(6) VALUE  ZERO.      RL2054.2
018500 01  INV-KEY-COUNTER              PICTURE S9(6) VALUE  ZERO.      RL2054.2
018600 01  LOGICAL-FILE-REC             PICTURE S9(6) VALUE  ZERO.      RL2054.2
018700 01  ERROR-COUNTER-06V00          PICTURE S9(6) VALUE  ZERO.      RL2054.2
018800 01  ASCEND-DESEND-SWITCH        PICTURE XX   VALUE "UP".         RL2054.2
018900             88 ASCEND VALUE "UP".                                RL2054.2
019000             88 DSCEND VALUE "DN".                                RL2054.2
019100 01  FILE-RECORD-INFORMATION-REC.                                 RL2054.2
019200     03 FILE-RECORD-INFO-SKELETON.                                RL2054.2
019300        05 FILLER                 PICTURE X(48)       VALUE       RL2054.2
019400             "FILE= ,RECORD= /0,RECNO=000000,UPDT=00".  RL2054.2
019500        05 FILLER                 PICTURE X(46)       VALUE       RL2054.2
019600             ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000".    RL2054.2
019700        05 FILLER                 PICTURE X(26)       VALUE       RL2054.2
019800             ",LFIL=000000,ORG= ,LBLR= ".                        RL2054.2
019900        05 FILLER                 PICTURE X(37)       VALUE       RL2054.2
020000             ",RECKEY= ".             RL2054.2
020100        05 FILLER                 PICTURE X(38)       VALUE       RL2054.2
020200             ",ALTKEY1= ".            RL2054.2
020300        05 FILLER                 PICTURE X(38)       VALUE       RL2054.2
020400             ",ALTKEY2= ".            RL2054.2
020500        05 FILLER                 PICTURE X(7)        VALUE SPACE.RL2054.2
020600     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              RL2054.2
020700        05 FILE-RECORD-INFO-P1-120.                               RL2054.2
020800           07 FILLER              PIC X(5).                       RL2054.2
020900           07 XFILE-NAME           PIC X(6).                      RL2054.2
021000           07 FILLER              PIC X(8).                       RL2054.2
021100           07 XRECORD-NAME         PIC X(6).                      RL2054.2
021200           07 FILLER              PIC X(1).                       RL2054.2
021300           07 REELUNIT-NUMBER     PIC 9(1).                       RL2054.2
021400           07 FILLER              PIC X(7).                       RL2054.2
021500           07 XRECORD-NUMBER       PIC 9(6).                      RL2054.2
021600           07 FILLER              PIC X(6).                       RL2054.2
021700           07 UPDATE-NUMBER       PIC 9(2).                       RL2054.2
021800           07 FILLER              PIC X(5).                       RL2054.2
021900           07 ODO-NUMBER          PIC 9(4).                       RL2054.2
022000           07 FILLER              PIC X(5).                       RL2054.2
022100           07 XPROGRAM-NAME        PIC X(5).                      RL2054.2
022200           07 FILLER              PIC X(7).                       RL2054.2
022300           07 XRECORD-LENGTH       PIC 9(6).                      RL2054.2
022400           07 FILLER              PIC X(7).                       RL2054.2
022500           07 CHARS-OR-RECORDS    PIC X(2).                       RL2054.2
022600           07 FILLER              PIC X(1).                       RL2054.2
022700           07 XBLOCK-SIZE          PIC 9(4).                      RL2054.2
022800           07 FILLER              PIC X(6).                       RL2054.2
022900           07 RECORDS-IN-FILE     PIC 9(6).                       RL2054.2
023000           07 FILLER              PIC X(5).                       RL2054.2
023100           07 XFILE-ORGANIZATION   PIC X(2).                      RL2054.2
023200           07 FILLER              PIC X(6).                       RL2054.2
023300           07 XLABEL-TYPE          PIC X(1).                      RL2054.2
023400        05 FILE-RECORD-INFO-P121-240.                             RL2054.2
023500           07 FILLER              PIC X(8).                       RL2054.2
023600           07 XRECORD-KEY          PIC X(29).                     RL2054.2
023700           07 FILLER              PIC X(9).                       RL2054.2
023800           07 ALTERNATE-KEY1      PIC X(29).                      RL2054.2
023900           07 FILLER              PIC X(9).                       RL2054.2
024000           07 ALTERNATE-KEY2      PIC X(29).                      RL2054.2
024100           07 FILLER              PIC X(7).                       RL2054.2
024200 01  TEST-RESULTS.                                                RL2054.2
024300     02 FILLER                   PIC X      VALUE SPACE.          RL2054.2
024400     02 FEATURE                  PIC X(20)  VALUE SPACE.          RL2054.2
024500     02 FILLER                   PIC X      VALUE SPACE.          RL2054.2
024600     02 P-OR-F                   PIC X(5)   VALUE SPACE.          RL2054.2
024700     02 FILLER                   PIC X      VALUE SPACE.          RL2054.2
024800     02  PAR-NAME.                                                RL2054.2
024900       03 FILLER                 PIC X(19)  VALUE SPACE.          RL2054.2
025000       03  PARDOT-X              PIC X      VALUE SPACE.          RL2054.2
025100       03 DOTVALUE               PIC 99     VALUE ZERO.           RL2054.2
025200     02 FILLER                   PIC X(8)   VALUE SPACE.          RL2054.2
025300     02 RE-MARK                  PIC X(61).                       RL2054.2
025400 01  TEST-COMPUTED.                                               RL2054.2
025500     02 FILLER                   PIC X(30)  VALUE SPACE.          RL2054.2
025600     02 FILLER                   PIC X(17)  VALUE                 RL2054.2
025700            " COMPUTED=".                                   RL2054.2
025800     02 COMPUTED-X.                                               RL2054.2
025900     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          RL2054.2
026000     03 COMPUTED-N               REDEFINES COMPUTED-A             RL2054.2
026100                                 PIC -9(9).9(9).                  RL2054.2
026200     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         RL2054.2
026300     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     RL2054.2
026400     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     RL2054.2
026500     03       CM-18V0 REDEFINES COMPUTED-A.                       RL2054.2
026600         04 COMPUTED-18V0                    PIC -9(18).          RL2054.2
026700         04 FILLER                           PIC X.               RL2054.2
026800     03 FILLER PIC X(50) VALUE SPACE.                             RL2054.2
026900 01  TEST-CORRECT.                                                RL2054.2
027000     02 FILLER PIC X(30) VALUE SPACE.                             RL2054.2
027100     02 FILLER PIC X(17) VALUE " CORRECT =".                RL2054.2
027200     02 CORRECT-X.                                                RL2054.2
027300     03 CORRECT-A                  PIC X(20) VALUE SPACE.         RL2054.2
027400     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      RL2054.2
027500     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         RL2054.2
027600     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     RL2054.2
027700     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     RL2054.2
027800     03      CR-18V0 REDEFINES CORRECT-A.                         RL2054.2
027900         04 CORRECT-18V0                     PIC -9(18).          RL2054.2
028000         04 FILLER                           PIC X.               RL2054.2
028100     03 FILLER PIC X(2) VALUE SPACE.                              RL2054.2
028200     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     RL2054.2
028300 01  CCVS-C-1.                                                    RL2054.2
028400     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PARL2054.2
028500-    "SS PARAGRAPH-NAME RL2054.2
028600-    " REMARKS".                                            RL2054.2
028700     02 FILLER                     PIC X(20)    VALUE SPACE.      RL2054.2
028800 01  CCVS-C-2.                                                    RL2054.2
028900     02 FILLER                     PIC X        VALUE SPACE.      RL2054.2
029000     02 FILLER                     PIC X(6)     VALUE "TESTED".   RL2054.2
029100     02 FILLER                     PIC X(15)    VALUE SPACE.      RL2054.2
029200     02 FILLER                     PIC X(4)     VALUE "FAIL".     RL2054.2
029300     02 FILLER                     PIC X(94)    VALUE SPACE.      RL2054.2
029400 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       RL2054.2
029500 01  REC-CT                        PIC 99       VALUE ZERO.       RL2054.2
029600 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       RL2054.2
029700 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       RL2054.2
029800 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       RL2054.2
029900 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       RL2054.2
030000 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       RL2054.2
030100 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       RL2054.2
030200 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      RL2054.2
030300 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       RL2054.2
030400 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     RL2054.2
030500 01  CCVS-H-1.                                                    RL2054.2
030600     02  FILLER                    PIC X(39)    VALUE SPACES.     RL2054.2
030700     02  FILLER                    PIC X(42)    VALUE             RL2054.2
030800     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 RL2054.2
030900     02  FILLER                    PIC X(39)    VALUE SPACES.     RL2054.2
031000 01  CCVS-H-2A.                                                   RL2054.2
031100   02  FILLER                        PIC X(40)  VALUE SPACE.      RL2054.2
031200   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  RL2054.2
031300   02  FILLER                        PIC XXXX   VALUE             RL2054.2
031400     "4.2 ".                                                      RL2054.2
031500   02  FILLER                        PIC X(28)  VALUE             RL2054.2
031600            " COPY - NOT FOR DISTRIBUTION".                       RL2054.2
031700   02  FILLER                        PIC X(41)  VALUE SPACE.      RL2054.2
031800                                                                  RL2054.2
031900 01  CCVS-H-2B.                                                   RL2054.2
032000   02  FILLER                        PIC X(15)  VALUE             RL2054.2
032100            "TEST RESULT OF ".                                    RL2054.2
032200   02  TEST-ID                       PIC X(9).                    RL2054.2
032300   02  FILLER                        PIC X(4)   VALUE             RL2054.2
032400            " IN ".                                               RL2054.2
032500   02  FILLER                        PIC X(12)  VALUE             RL2054.2
032600     " HIGH ".                                              RL2054.2
032700   02  FILLER                        PIC X(22)  VALUE             RL2054.2
032800            " LEVEL VALIDATION FOR ".                             RL2054.2
032900   02  FILLER                        PIC X(58)  VALUE             RL2054.2
033000     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL2054.2
033100 01  CCVS-H-3.                                                    RL2054.2
033200     02  FILLER                      PIC X(34)  VALUE             RL2054.2
033300            " FOR OFFICIAL USE ONLY ".                         RL2054.2
033400     02  FILLER                      PIC X(58)  VALUE             RL2054.2
033500     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL2054.2
033600     02  FILLER                      PIC X(28)  VALUE             RL2054.2
033700            " COPYRIGHT 1985 ".                                RL2054.2
033800 01  CCVS-E-1.                                                    RL2054.2
033900     02 FILLER                       PIC X(52)  VALUE SPACE.      RL2054.2
034000     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              RL2054.2
034100     02 ID-AGAIN                     PIC X(9).                    RL2054.2
034200     02 FILLER                       PIC X(45)  VALUE SPACES.     RL2054.2
034300 01  CCVS-E-2.                                                    RL2054.2
034400     02  FILLER                      PIC X(31)  VALUE SPACE.      RL2054.2
034500     02  FILLER                      PIC X(21)  VALUE SPACE.      RL2054.2
034600     02 CCVS-E-2-2.                                               RL2054.2
034700         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      RL2054.2
034800         03 FILLER                   PIC X      VALUE SPACE.      RL2054.2
034900         03 ENDER-DESC               PIC X(44)  VALUE             RL2054.2
035000            "ERRORS ENCOUNTERED".                                 RL2054.2
035100 01  CCVS-E-3.                                                    RL2054.2
035200     02  FILLER                      PIC X(22)  VALUE             RL2054.2
035300            " FOR OFFICIAL USE ONLY".                             RL2054.2
035400     02  FILLER                      PIC X(12)  VALUE SPACE.      RL2054.2
035500     02  FILLER                      PIC X(58)  VALUE             RL2054.2
035600     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL2054.2
035700     02  FILLER                      PIC X(13)  VALUE SPACE.      RL2054.2
035800     02 FILLER                       PIC X(15)  VALUE             RL2054.2
035900             " COPYRIGHT 1985".                                   RL2054.2
036000 01  CCVS-E-4.                                                    RL2054.2
036100     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      RL2054.2
036200     02 FILLER                       PIC X(4)   VALUE " OF ".     RL2054.2
036300     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      RL2054.2
036400     02 FILLER                       PIC X(40)  VALUE             RL2054.2
036500      " TESTS WERE EXECUTED SUCCESSFULLY".                       RL2054.2
036600 01  XXINFO.                                                      RL2054.2
036700     02 FILLER                       PIC X(19)  VALUE             RL2054.2
036800            "*** INFORMATION ***".                                RL2054.2
036900     02 INFO-TEXT.                                                RL2054.2
037000       04 FILLER                     PIC X(8)   VALUE SPACE.      RL2054.2
037100       04 XXCOMPUTED                 PIC X(20).                   RL2054.2
037200       04 FILLER                     PIC X(5)   VALUE SPACE.      RL2054.2
037300       04 XXCORRECT                  PIC X(20).                   RL2054.2
037400     02 INF-ANSI-REFERENCE           PIC X(48).                   RL2054.2
037500 01  HYPHEN-LINE.                                                 RL2054.2
037600     02 FILLER  PIC IS X VALUE IS SPACE.                          RL2054.2
037700     02 FILLER  PIC IS X(65)    VALUE IS "************************RL2054.2
037800-    "*****************************************".                 RL2054.2
037900     02 FILLER  PIC IS X(54)    VALUE IS "************************RL2054.2
038000-    "******************************".                            RL2054.2
038100 01  CCVS-PGM-ID                     PIC X(9)   VALUE             RL2054.2
038200     "RL205A".                                                    RL2054.2
038300 PROCEDURE DIVISION.                                              RL2054.2
038400 DECLARATIVES.                                                    RL2054.2
038500 USE-RL205-TEST SECTION.                                          RL2054.2
038600     USE      AFTER ERROR PROCEDURE RL-FD1  RL-FS2.               RL2054.2
038700 USE-PAR-001.                                                     RL2054.2
038800     ADD      010000  TO ERROR-COUNTER-06V00.                     RL2054.2
038900 USE-PAR-EXIT.                                                    RL2054.2
039000     EXIT.                                                        RL2054.2
039100 END DECLARATIVES.                                                RL2054.2
039200 CCVS1 SECTION.                                                   RL2054.2
039300 OPEN-FILES.                                                      RL2054.2
039400     OPEN    OUTPUT PRINT-FILE.                                   RL2054.2
039500     MOVE  CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.  RL2054.2
039600     MOVE    SPACE TO TEST-RESULTS.                               RL2054.2
039700     PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.              RL2054.2
039800     MOVE    ZERO TO REC-SKL-SUB.                                 RL2054.2
039900     PERFORM CCVS-INIT-FILE 9 TIMES.                              RL2054.2
040000 CCVS-INIT-FILE.                                                  RL2054.2
040100     ADD     1 TO REC-SKL-SUB.                                    RL2054.2
040200     MOVE    FILE-RECORD-INFO-SKELETON                            RL2054.2
040300          TO FILE-RECORD-INFO (REC-SKL-SUB).                      RL2054.2
040400 CCVS-INIT-EXIT.                                                  RL2054.2
040500     GO TO CCVS1-EXIT.                                            RL2054.2
040600 CLOSE-FILES.                                                     RL2054.2
040700     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   RL2054.2
040800 TERMINATE-CCVS.                                                  RL2054.2
040900     EXIT PROGRAM.                                                RL2054.2
041000 TERMINATE-CALL.                                                  RL2054.2
041100     STOP     RUN.                                                RL2054.2
041200 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         RL2054.2
041300 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           RL2054.2
041400 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          RL2054.2
041500 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      RL2054.2
041600     MOVE "****TEST DELETED****" TO RE-MARK.                      RL2054.2
041700 PRINT-DETAIL.                                                    RL2054.2
041800     IF REC-CT NOT EQUAL TO ZERO                                  RL2054.2
041900             MOVE "." TO PARDOT-X                                 RL2054.2
042000             MOVE REC-CT TO DOTVALUE.                             RL2054.2
042100     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      RL2054.2
042200     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               RL2054.2
042300        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 RL2054.2
042400          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 RL2054.2
042500     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              RL2054.2
042600     MOVE SPACE TO CORRECT-X.                                     RL2054.2
042700     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         RL2054.2
042800     MOVE     SPACE TO RE-MARK.                                   RL2054.2
042900 HEAD-ROUTINE.                                                    RL2054.2
043000     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  RL2054.2
043100     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  RL2054.2
043200     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  RL2054.2
043300     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  RL2054.2
043400 COLUMN-NAMES-ROUTINE.                                            RL2054.2
043500     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           RL2054.2
043600     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL2054.2
043700     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        RL2054.2
043800 END-ROUTINE.                                                     RL2054.2
043900     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.RL2054.2
044000 END-RTN-EXIT.                                                    RL2054.2
044100     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL2054.2
044200 END-ROUTINE-1.                                                   RL2054.2
044300      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      RL2054.2
044400      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               RL2054.2
044500      ADD PASS-COUNTER TO ERROR-HOLD.                             RL2054.2
044600*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   RL2054.2
044700      MOVE PASS-COUNTER TO CCVS-E-4-1.                            RL2054.2
044800      MOVE ERROR-HOLD TO CCVS-E-4-2.                              RL2054.2
044900      MOVE CCVS-E-4 TO CCVS-E-2-2.                                RL2054.2
045000      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           RL2054.2
045100  END-ROUTINE-12.                                                 RL2054.2
045200      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        RL2054.2
045300     IF       ERROR-COUNTER IS EQUAL TO ZERO                      RL2054.2
045400         MOVE "NO " TO ERROR-TOTAL                                RL2054.2
045500         ELSE                                                     RL2054.2
045600         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       RL2054.2
045700     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           RL2054.2
045800     PERFORM WRITE-LINE.                                          RL2054.2
045900 END-ROUTINE-13.                                                  RL2054.2
046000     IF DELETE-COUNTER IS EQUAL TO ZERO                           RL2054.2
046100         MOVE "NO " TO ERROR-TOTAL  ELSE                          RL2054.2
046200         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      RL2054.2
046300     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   RL2054.2
046400     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           RL2054.2
046500      IF   INSPECT-COUNTER EQUAL TO ZERO                          RL2054.2
046600          MOVE "NO " TO ERROR-TOTAL                               RL2054.2
046700      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   RL2054.2
046800      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            RL2054.2
046900      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          RL2054.2
047000     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           RL2054.2
047100 WRITE-LINE.                                                      RL2054.2
047200     ADD 1 TO RECORD-COUNT.                                       RL2054.2
047300     IF RECORD-COUNT GREATER 50                                   RL2054.2
047400         MOVE DUMMY-RECORD TO DUMMY-HOLD                          RL2054.2
047500         MOVE SPACE TO DUMMY-RECORD                               RL2054.2
047600         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  RL2054.2
047700         MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN             RL2054.2
047800         MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES     RL2054.2
047900         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          RL2054.2
048000         MOVE DUMMY-HOLD TO DUMMY-RECORD                          RL2054.2
048100         MOVE ZERO TO RECORD-COUNT.                               RL2054.2
048200     PERFORM WRT-LN.                                              RL2054.2
048300 WRT-LN.                                                          RL2054.2
048400     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               RL2054.2
048500     MOVE SPACE TO DUMMY-RECORD.                                  RL2054.2
048600 BLANK-LINE-PRINT.                                                RL2054.2
048700     PERFORM WRT-LN.                                              RL2054.2
048800 FAIL-ROUTINE.                                                    RL2054.2
048900     IF     COMPUTED-X NOT EQUAL TO SPACE                         RL2054.2
049000            GO TO   FAIL-ROUTINE-WRITE.                           RL2054.2
049100     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.RL2054.2
049200     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 RL2054.2
049300     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   RL2054.2
049400     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL2054.2
049500     MOVE   SPACES TO INF-ANSI-REFERENCE.                         RL2054.2
049600     GO TO  FAIL-ROUTINE-EX.                                      RL2054.2
049700 FAIL-ROUTINE-WRITE.                                              RL2054.2
049800     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         RL2054.2
049900     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 RL2054.2
050000     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. RL2054.2
050100     MOVE   SPACES TO COR-ANSI-REFERENCE.                         RL2054.2
050200 FAIL-ROUTINE-EX. EXIT.                                           RL2054.2
050300 BAIL-OUT.                                                        RL2054.2
050400     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   RL2054.2
050500     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           RL2054.2
050600 BAIL-OUT-WRITE.                                                  RL2054.2
050700     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  RL2054.2
050800     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 RL2054.2
050900     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL2054.2
051000     MOVE   SPACES TO INF-ANSI-REFERENCE.                         RL2054.2
051100 BAIL-OUT-EX. EXIT.                                               RL2054.2
051200 CCVS1-EXIT.                                                      RL2054.2
051300     EXIT.                                                        RL2054.2
051400 SECT-RL205-0001 SECTION.                                         RL2054.2
051500 REL-INIT-001.                                                    RL2054.2
051600     OPEN     OUTPUT  RL-FD1.                                     RL2054.2
051700     OPEN     OUTPUT  RL-FS2.                                     RL2054.2
051800     MOVE     "RL-FD1"  TO XFILE-NAME (1).                        RL2054.2
051900     MOVE     "R1-F-G"  TO XRECORD-NAME (1).                      RL2054.2
052000     MOVE     ZERO      TO XRECORD-NUMBER (1).                    RL2054.2
052100     MOVE ".XXX."       TO XPROGRAM-NAME (1).                     RL2054.2
052200     MOVE     000240    TO XRECORD-LENGTH (1).                    RL2054.2
052300     MOVE     0001      TO XBLOCK-SIZE (1).                       RL2054.2
052400     MOVE     "RC"      TO CHARS-OR-RECORDS (1).                  RL2054.2
052500     MOVE     "RL"      TO XFILE-ORGANIZATION (1).                RL2054.2
052600     MOVE     "S"       TO XLABEL-TYPE (1).                       RL2054.2
052700     MOVE     000300    TO RL-FD1-FILESIZE.                       RL2054.2
052800     MOVE     000300    TO RECORDS-IN-FILE (1).                   RL2054.2
052900     MOVE     00001     TO WRK-RL-FD1-RECKEY.                     RL2054.2
053000     MOVE     00300     TO WRK-DU-05V00-002.                      RL2054.2
053100     MOVE     ZERO      TO EXCUT-COUNTER-06V00.                   RL2054.2
053200     MOVE     ZERO      TO INV-KEY-COUNTER.                       RL2054.2
053300     MOVE     "REL-TEST-001" TO PAR-NAME.                         RL2054.2
053400     MOVE     ZERO TO REC-CT.                                     RL2054.2
053500     MOVE     "RL-FS2"  TO XFILE-NAME (2).                        RL2054.2
053600     MOVE     "R1-F-G"  TO XRECORD-NAME (2).                      RL2054.2
053700     MOVE     ZERO      TO XRECORD-NUMBER (2).                    RL2054.2
053800     MOVE ".XXX."       TO XPROGRAM-NAME (2).                     RL2054.2
053900     MOVE     000240    TO XRECORD-LENGTH (2).                    RL2054.2
054000     MOVE     0001      TO XBLOCK-SIZE (2).                       RL2054.2
054100     MOVE     "RC"      TO CHARS-OR-RECORDS (2).                  RL2054.2
054200     MOVE     "RL"      TO XFILE-ORGANIZATION (2).                RL2054.2
054300     MOVE     "S"       TO XLABEL-TYPE (2).                       RL2054.2
054400     MOVE     00300     TO RL-FS2-FILESIZE.                       RL2054.2
054500     MOVE     00300     TO RECORDS-IN-FILE (2).                   RL2054.2
054600     MOVE     00001     TO  WRK-RL-FS2-RECKEY.                    RL2054.2
054700     MOVE     00300     TO WRK-DU-05V00-004.                      RL2054.2
054800 REL-TEST-001-R1.                                                 RL2054.2
054900     ADD      0001 TO   XRECORD-NUMBER (1).                       RL2054.2
055000     MOVE     WRK-RL-FD1-RECKEY  TO XRECORD-KEY (1).              RL2054.2
055100     MOVE     WRK-RL-FD1-FILLER  TO ALTERNATE-KEY1 (1).           RL2054.2
055200     MOVE     FILE-RECORD-INFO (1) TO RL-FD1R1-F-G-240.           RL2054.2
055300     MOVE     WRK-RL-FD1-RECKEY TO RL-FD1-KEY.                    RL2054.2
055400     WRITE    RL-FD1R1-F-G-240                                    RL2054.2
055500              INVALID KEY                                         RL2054.2
055600              ADD       000001 TO INV-KEY-COUNTER.                RL2054.2
055700     ADD      000001  TO EXCUT-COUNTER-06V00.                     RL2054.2
055800     ADD      00001   TO WRK-RL-FD1-RECKEY.                       RL2054.2
055900     SUBTRACT 00001   FROM WRK-DU-05V00-002.                      RL2054.2
056000     IF       XRECORD-NUMBER (1) LESS THAN RL-FD1-FILESIZE        RL2054.2
056100              GO TO REL-TEST-001-R1.                              RL2054.2
056200     CLOSE    RL-FD1.                                             RL2054.2
056300 REL-TEST-001-01.                                                 RL2054.2
056400     MOVE     "CREATE FILE RL-FD1"  TO FEATURE.                   RL2054.2
056500     MOVE     01 TO REC-CT.                                       RL2054.2
056600     IF       EXCUT-COUNTER-06V00  NOT EQUAL TO RL-FD1-FILESIZE   RL2054.2
056700              PERFORM   FAIL                                      RL2054.2
056800              MOVE      RL-FD1-FILESIZE  TO  CORRECT-N            RL2054.2
056900              MOVE      EXCUT-COUNTER-06V00 TO COMPUTED-N         RL2054.2
057000              MOVE      "INCORRECT NUMBER OF WRITES" TO RE-MARK   RL2054.2
057100              PERFORM   PRINT-DETAIL                              RL2054.2
057200              GO TO     REL-INIT-001-R2.                          RL2054.2
057300     IF       INV-KEY-COUNTER NOT EQUAL TO ZERO                   RL2054.2
057400              PERFORM   FAIL                                      RL2054.2
057500              MOVE      INV-KEY-COUNTER TO COMPUTED-N             RL2054.2
057600              MOVE      ZERO TO  CORRECT-N                        RL2054.2
057700              MOVE      "INVALID KEY ON WRITE" TO RE-MARK         RL2054.2
057800              PERFORM   PRINT-DETAIL                              RL2054.2
057900              GO TO     REL-INIT-001-R2.                          RL2054.2
058000*                                                                 RL2054.2
058100*    01                                                           RL2054.2
058200*                                                                 RL2054.2
058300     PERFORM  PASS.                                               RL2054.2
058400     PERFORM  REL-WRITE-001.                                      RL2054.2
058500 REL-INIT-001-R2.                                                 RL2054.2
058600     MOVE     ZERO   TO INV-KEY-COUNTER.                          RL2054.2
058700     MOVE     ZERO   TO EXCUT-COUNTER-06V00.                      RL2054.2
058800 REL-TEST-001-R2.                                                 RL2054.2
058900     ADD      0001  TO  XRECORD-NUMBER (2).                       RL2054.2
059000     MOVE     WRK-RL-FS2-RECKEY  TO  XRECORD-KEY (2).             RL2054.2
059100     MOVE     WRK-RL-FS2-FILLER  TO  ALTERNATE-KEY1 (2).          RL2054.2
059200     MOVE     FILE-RECORD-INFO (2) TO RL-FS2R1-F-G-240.           RL2054.2
059300     WRITE    RL-FS2R1-F-G-240                                    RL2054.2
059400              INVALID KEY                                         RL2054.2
059500              ADD   000001 TO INV-KEY-COUNTER.                    RL2054.2
059600     ADD      000001 TO EXCUT-COUNTER-06V00.                      RL2054.2
059700     ADD      00001  TO  WRK-RL-FS2-RECKEY.                       RL2054.2
059800     SUBTRACT 00001  FROM WRK-DU-05V00-004.                       RL2054.2
059900     IF       XRECORD-NUMBER (2) LESS THAN RL-FS2-FILESIZE        RL2054.2
060000              GO TO  REL-TEST-001-R2.                             RL2054.2
060100     CLOSE    RL-FS2.                                             RL2054.2
060200 REL-TEST-001-02.                                                 RL2054.2
060300     MOVE     "CREATE FILE RL-FS2" TO  FEATURE.                   RL2054.2
060400     MOVE     02  TO REC-CT.                                      RL2054.2
060500     IF       EXCUT-COUNTER-06V00 NOT EQUAL TO RL-FS2-FILESIZE    RL2054.2
060600              PERFORM   FAIL                                      RL2054.2
060700              MOVE      RL-FS2-FILESIZE  TO  CORRECT-N            RL2054.2
060800              MOVE      EXCUT-COUNTER-06V00 TO COMPUTED-N         RL2054.2
060900              MOVE      "INCORRECT NUMBER OF WRITES" TO RE-MARK   RL2054.2
061000              PERFORM   PRINT-DETAIL                              RL2054.2
061100              GO  TO    REL-EXIT-001.                             RL2054.2
061200*                                                                 RL2054.2
061300*    02                                                           RL2054.2
061400*                                                                 RL2054.2
061500     IF       INV-KEY-COUNTER  NOT EQUAL TO ZERO                  RL2054.2
061600              PERFORM   FAIL                                      RL2054.2
061700              MOVE      INV-KEY-COUNTER  TO COMPUTED-N            RL2054.2
061800              MOVE      ZERO TO CORRECT-N                         RL2054.2
061900              MOVE      "INVALID KEY ON WRITE" TO RE-MARK         RL2054.2
062000              PERFORM   PRINT-DETAIL                              RL2054.2
062100              GO TO     REL-EXIT-001.                             RL2054.2
062200     PERFORM  PASS.                                               RL2054.2
062300     PERFORM  REL-WRITE-001.                                      RL2054.2
062400     GO TO    REL-EXIT-001.                                       RL2054.2
062500 REL-WRITE-001.                                                   RL2054.2
062600     PERFORM  PRINT-DETAIL.                                       RL2054.2
062700 REL-DELETE-001.                                                  RL2054.2
062800     PERFORM  DE-LETE.                                            RL2054.2
062900     PERFORM  PRINT-DETAIL.                                       RL2054.2
063000 REL-EXIT-001.                                                    RL2054.2
063100     EXIT.                                                        RL2054.2
063200 REL-INIT-002.                                                    RL2054.2
063300     PERFORM  BLANK-LINE-PRINT.                                   RL2054.2
063400     MOVE     "THE FOLLOWING TESTS ACCESS A FILE DEFINED AS RL2054.2
063500-             "ACCESS MODE IS DYNAMIC."  TO  PRINT-REC.           RL2054.2
063600     PERFORM  WRITE-LINE.                                         RL2054.2
063700     PERFORM  BLANK-LINE-PRINT.                                   RL2054.2
063800     MOVE     "READ NEXT"  TO FEATURE.                            RL2054.2
063900     MOVE     ZERO  TO  REC-CT.                                   RL2054.2
064000     MOVE     "REL-TEST-002"  TO  PAR-NAME.                       RL2054.2
064100 REL-INIT-002-R1.                                                 RL2054.2
064200     OPEN  INPUT  RL-FD1.                                         RL2054.2
064300     PERFORM  REL-INIT-002-R.                                     RL2054.2
064400 REL-TEST-002-R1.                                                 RL2054.2
064500     READ     RL-FD1 NEXT.                                        RL2054.2
064600     MOVE     RL-FD1R1-F-G-240  TO  FILE-RECORD-INFO (1).         RL2054.2
064700     PERFORM  REL-VERIFY-002                                      RL2054.2
064800     IF       EXCUT-COUNTER-06V00 LESS THAN  10                   RL2054.2
064900              GO TO REL-TEST-002-R1.                              RL2054.2
065000     CLOSE    RL-FD1.                                             RL2054.2
065100 REL-TEST-002-01.                                                 RL2054.2
065200     MOVE     01  TO REC-CT.                                      RL2054.2
065300     PERFORM  REL-TEST-002.                                       RL2054.2
065400     GO TO    REL-EXIT-002-01.                                    RL2054.2
065500*                                                                 RL2054.2
065600*    01                                                           RL2054.2
065700*                                                                 RL2054.2
065800 REL-DELETE-002-01.                                               RL2054.2
065900     MOVE     01  TO REC-CT.                                      RL2054.2
066000     PERFORM  DE-LETE.                                            RL2054.2
066100     PERFORM  REL-WRITE-002.                                      RL2054.2
066200 REL-EXIT-002-01.                                                 RL2054.2
066300     EXIT.                                                        RL2054.2
066400 REL-INIT-002-R2.                                                 RL2054.2
066500     PERFORM  REL-INIT-002-R.                                     RL2054.2
066600     OPEN     INPUT     RL-FD1.                                   RL2054.2
066700 REL-TEST-002-R2.                                                 RL2054.2
066800     MOVE     SPACE TO FILE-RECORD-INFO (9).                      RL2054.2
066900     MOVE     SPACE TO FILE-RECORD-INFO (1).                      RL2054.2
067000     READ     RL-FD1   NEXT RECORD                                RL2054.2
067100              INTO   FILE-RECORD-INFO (9).                        RL2054.2
067200     MOVE     RL-FD1R1-F-G-240  TO  FILE-RECORD-INFO (1).         RL2054.2
067300     PERFORM  REL-VERIFY-002.                                     RL2054.2
067400     IF       XRECORD-NUMBER (9) NOT EQUAL TO LOGICAL-FILE-REC    RL2054.2
067500              ADD   000100  TO ERROR-COUNTER-06V00.               RL2054.2
067600     IF       EXCUT-COUNTER-06V00 LESS THAN 10                    RL2054.2
067700              GO TO  REL-TEST-002-R2.                             RL2054.2
067800     CLOSE    RL-FD1.                                             RL2054.2
067900 REL-TEST-002-02.                                                 RL2054.2
068000     MOVE     02 TO REC-CT.                                       RL2054.2
068100     PERFORM  REL-TEST-002.                                       RL2054.2
068200*                                                                 RL2054.2
068300*    02                                                           RL2054.2
068400*                                                                 RL2054.2
068500     GO TO    REL-EXIT-002-02.                                    RL2054.2
068600 REL-DELETE-002-02.                                               RL2054.2
068700     MOVE     02  TO REC-CT.                                      RL2054.2
068800     PERFORM  DE-LETE.                                            RL2054.2
068900     PERFORM  REL-WRITE-002.                                      RL2054.2
069000 REL-EXIT-002-02.                                                 RL2054.2
069100     EXIT.                                                        RL2054.2
069200 REL-INIT-002-R3.                                                 RL2054.2
069300     OPEN     INPUT  RL-FD1.                                      RL2054.2
069400     PERFORM  REL-INIT-002-R.                                     RL2054.2
069500 REL-TEST-002-R3.                                                 RL2054.2
069600     MOVE     SPACE TO FILE-RECORD-INFO (9).                      RL2054.2
069700     MOVE     SPACE TO FILE-RECORD-INFO (1).                      RL2054.2
069800     READ     RL-FD1  NEXT                                        RL2054.2
069900              INTO   FILE-RECORD-INFO (9).                        RL2054.2
070000     MOVE     RL-FD1R1-F-G-240 TO FILE-RECORD-INFO (1).           RL2054.2
070100     PERFORM  REL-VERIFY-002.                                     RL2054.2
070200     IF       XRECORD-NUMBER (9) NOT EQUAL TO LOGICAL-FILE-REC    RL2054.2
070300              ADD   000100  TO  ERROR-COUNTER-06V00.              RL2054.2
070400     IF       EXCUT-COUNTER-06V00 LESS THAN 10                    RL2054.2
070500              GO TO  REL-TEST-002-R3.                             RL2054.2
070600     CLOSE    RL-FD1.                                             RL2054.2
070700 REL-TEST-002-03.                                                 RL2054.2
070800     MOVE     03 TO REC-CT.                                       RL2054.2
070900     PERFORM  REL-TEST-002.                                       RL2054.2
071000*                                                                 RL2054.2
071100*    03                                                           RL2054.2
071200*                                                                 RL2054.2
071300     GO  TO   REL-EXIT-002-03.                                    RL2054.2
071400 REL-DELETE-002-03.                                               RL2054.2
071500     MOVE     03  TO REC-CT.                                      RL2054.2
071600     PERFORM  DE-LETE.                                            RL2054.2
071700     PERFORM  REL-WRITE-002.                                      RL2054.2
071800 REL-EXIT-002-03.                                                 RL2054.2
071900     EXIT.                                                        RL2054.2
072000 REL-INIT-002-R4.                                                 RL2054.2
072100     OPEN     INPUT  RL-FD1.                                      RL2054.2
072200     PERFORM  REL-INIT-002-R.                                     RL2054.2
072300     MOVE     RL-FD1-FILESIZE TO ERROR-COUNTER-06V00.             RL2054.2
072400     ADD      000001  TO ERROR-COUNTER-06V00.                     RL2054.2
072500 REL-TEST-002-R4.                                                 RL2054.2
072600     MOVE     SPACE TO FILE-RECORD-INFO (9).                      RL2054.2
072700     MOVE     SPACE TO FILE-RECORD-INFO (1).                      RL2054.2
072800     READ     RL-FD1  NEXT INTO  FILE-RECORD-INFO (9) AT END      RL2054.2
072900              SUBTRACT   000001  FROM  ERROR-COUNTER-06V00        RL2054.2
073000             GO TO   REL-TEST-002-04.                             RL2054.2
073100     MOVE     RL-FD1R1-F-G-240  TO  FILE-RECORD-INFO (1).         RL2054.2
073200     PERFORM  REL-VERIFY-002.                                     RL2054.2
073300     IF      XRECORD-NUMBER (9) NOT EQUAL TO LOGICAL-FILE-REC     RL2054.2
073400             ADD  00100  TO ERROR-COUNTER-06V00.                  RL2054.2
073500     IF       EXCUT-COUNTER-06V00  GREATER THAN RL-FD1-FILESIZE   RL2054.2
073600              NEXT SENTENCE                                       RL2054.2
073700              ELSE                                                RL2054.2
073800              GO TO    REL-TEST-002-R4.                           RL2054.2
073900*                                                                 RL2054.2
074000*    TEST REL-002-04 TESTS THE COBOL CONSTRUCT  "READ FILE-       RL2054.2
074100*    NAME NEXT INTO IDENTIFIER AT END".  THE TEST READS THE FILE  RL2054.2
074200*    SEQUENTIALY VIA THE RELATIVE KEY  (RECORD KEY IS THE KEY OF  RL2054.2
074300*    REFERENCE) UNTIL AN END-OF-FILE CONDITION OCCURS.  A CHECK   RL2054.2
074400*    IS MADE TO VERIFY THAT THE PROPER RECORDS WERE RETRIVED AND  RL2054.2
074500*    THE AT END PATH WAS TAKEN ON THE 301 ST READ.                RL2054.2
074600*                                                                 RL2054.2
074700 REL-TEST-002-04.                                                 RL2054.2
074800     CLOSE   RL-FD1.                                              RL2054.2
074900     MOVE     04   TO REC-CT.                                     RL2054.2
075000     PERFORM  REL-TEST-002.                                       RL2054.2
075100*   .04                                                           RL2054.2
075200     GO TO    REL-EXIT-002-04.                                    RL2054.2
075300 REL-DELETE-002-04.                                               RL2054.2
075400     MOVE     04  TO REC-CT.                                      RL2054.2
075500     PERFORM  DE-LETE.                                            RL2054.2
075600     PERFORM  REL-WRITE-002.                                      RL2054.2
075700 REL-EXIT-002-04.                                                 RL2054.2
075800     EXIT.                                                        RL2054.2
075900 REL-INIT-002-R5.                                                 RL2054.2
076000     OPEN     INPUT  RL-FD1.                                      RL2054.2
076100     PERFORM  REL-INIT-002-R.                                     RL2054.2
076200     MOVE    "READ"  TO FEATURE.                                  RL2054.2
076300     MOVE     ZERO TO WRK-RL-FD1-RECKEY.                          RL2054.2
076400 REL-TEST-002-R5.                                                 RL2054.2
076500     ADD      00005   TO WRK-RL-FD1-RECKEY.                       RL2054.2
076600     ADD      000004  TO LOGICAL-FILE-REC.                        RL2054.2
076700     MOVE     WRK-RL-FD1-RECKEY TO RL-FD1-KEY.                    RL2054.2
076800     READ RL-FD1.                                                 RL2054.2
076900     MOVE     RL-FD1R1-F-G-240  TO  FILE-RECORD-INFO (1).         RL2054.2
077000     PERFORM  REL-VERIFY-002.                                     RL2054.2
077100     MOVE     SPACE TO FILE-RECORD-INFO (1).                      RL2054.2
077200     IF       EXCUT-COUNTER-06V00  LESS THAN 10                   RL2054.2
077300              GO TO    REL-TEST-002-R5.                           RL2054.2
077400     CLOSE    RL-FD1.                                             RL2054.2
077500 REL-TEST-002-05.                                                 RL2054.2
077600     MOVE     05   TO REC-CT.                                     RL2054.2
077700     PERFORM  REL-TEST-002.                                       RL2054.2
077800*   .05                                                           RL2054.2
077900     GO TO    REL-EXIT-002-05.                                    RL2054.2
078000 REL-DELETE-002-05.                                               RL2054.2
078100     MOVE     05  TO REC-CT.                                      RL2054.2
078200     PERFORM  DE-LETE.                                            RL2054.2
078300     PERFORM  REL-WRITE-002.                                      RL2054.2
078400 REL-EXIT-002-05.                                                 RL2054.2
078500     EXIT.                                                        RL2054.2
078600 REL-INIT-002-R6.                                                 RL2054.2
078700     OPEN     INPUT  RL-FD1.                                      RL2054.2
078800     PERFORM  REL-INIT-002-R.                                     RL2054.2
078900     MOVE     ZERO TO WRK-RL-FD1-RECKEY.                          RL2054.2
079000 REL-TEST-002-R6.                                                 RL2054.2
079100     MOVE     SPACE TO FILE-RECORD-INFO (9).                      RL2054.2
079200     MOVE     SPACE TO FILE-RECORD-INFO (1).                      RL2054.2
079300     ADD      00005   TO WRK-RL-FD1-RECKEY.                       RL2054.2
079400     ADD      000004  TO LOGICAL-FILE-REC.                        RL2054.2
079500     MOVE     WRK-RL-FD1-RECKEY TO RL-FD1-KEY.                    RL2054.2
079600     READ     RL-FD1  INTO   FILE-RECORD-INFO (9).                RL2054.2
079700     MOVE     RL-FD1R1-F-G-240  TO  FILE-RECORD-INFO (1).         RL2054.2
079800     PERFORM  REL-VERIFY-002.                                     RL2054.2
079900     IF       XRECORD-NUMBER (9)   NOT EQUAL   TO LOGICAL-FILE-RECRL2054.2
080000              ADD   000100 TO ERROR-COUNTER-06V00.                RL2054.2
080100     IF       EXCUT-COUNTER-06V00  LESS THAN 10                   RL2054.2
080200              GO TO    REL-TEST-002-R6.                           RL2054.2
080300     CLOSE    RL-FD1.                                             RL2054.2
080400 REL-TEST-002-06.                                                 RL2054.2
080500     MOVE     06   TO REC-CT.                                     RL2054.2
080600     PERFORM  REL-TEST-002.                                       RL2054.2
080700*   .06                                                           RL2054.2
080800     GO TO    REL-EXIT-002-06.                                    RL2054.2
080900 REL-DELETE-002-06.                                               RL2054.2
--> --------------------

--> maximum size reached

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

quality96%

¤ Dauer der Verarbeitung: 0.41 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

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

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.