Quelle rl109a.cob Sprache: Cobol

000100 IDENTIFICATION DIVISION.                                         RL1094.2
000200 PROGRAM-ID.                                                      RL1094.2
000300     RL109A.                                                      RL1094.2
000400****************************************************************  RL1094.2
000500*                                                              *  RL1094.2
000600*    VALIDATION FOR:-                                          *  RL1094.2
000700*                                                              *  RL1094.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".RL1094.2
000900*                                                              *  RL1094.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".RL1094.2
001100*                                                              *  RL1094.2
001200****************************************************************  RL1094.2
001300*                                                              *  RL1094.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  RL1094.2
001500*                                                              *  RL1094.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  RL1094.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  RL1094.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  RL1094.2
001900*                                                              *  RL1094.2
002000****************************************************************  RL1094.2
002100*GENERAL:    THE FUNCTION OF THIS PROGRAM IS TO PROCESS A RELATIVERL1094.2
002200*            I-O FILE RANDOMLY (ACCESS MODE IS RANDOM).  THE FILE RL1094.2
002300*            USED AS INPUT IS THAT FILE CREATED BY RL108A.        RL1094.2
002400*                                                                 RL1094.2
002500*            FIRST THE FILE IS VERIFED AS TO THE EXISTANCE AND    RL1094.2
002600*            ACCURACY OF THE 500  RECORDS CREATED IN THE FIRST    RL1094.2
002700*            PROGRAM.  SECONDLY, RECORDS OF THE FILE ARE SEL-     RL1094.2
002800*            ECTIVELY UPDATED; AND THIRDLY, THE ACCURACY OF EACH  RL1094.2
002900*            RECORD IN THE FILE IS AGAIN VERIFIED.                RL1094.2
003000*                                                                 RL1094.2
003100*     THIS PROGRAM TESTS THE NEW SYNTACTICAL CONSTRUCTS AND       RL1094.2
003200*     SEMENTIC ACTIONS OF THE FOLLOWING ELEMENTS:                 RL1094.2
003300*        - ORGANIZATION                                           RL1094.2
003400*        - ACCESS                                                 RL1094.2
003500*        - READ                                                   RL1094.2
003600*        - REWRITE                                                RL1094.2
003700*                                                                 RL1094.2
003800*                                                                 RL1094.2
003900*            X-CARD PARAMETERS WHICH MUST BE SUPPLIED FOR THIS    RL1094.2
004000*            PROGRAM ARE:                                         RL1094.2
004100*                                                                 RL1094.2
004200*                 X-21   IMPLEMENTOR-NAME IN ASSIGN TO CLAUSE FOR RL1094.2
004300*                         RELATIVE  I-O DATA FILE                 RL1094.2
004400*                 X-55   SYSTEM PRINTER                           RL1094.2
004500*                 X-69   ADDITIONAL VALUE OF CLAUSES              RL1094.2
004600*                 X-74   VALUE OF IMPLEMENTOR-NAME                RL1094.2
004700*                 X-75   OBJECT OF VALUE OF CLAUSE                RL1094.2
004800*                 X-82   SOURCE-COMPUTER                          RL1094.2
004900*                 X-83   OBJECT-COMPUTER.                         RL1094.2
005000*                                                                 RL1094.2
005100***************************************************               RL1094.2
005200 ENVIRONMENT DIVISION.                                            RL1094.2
005300 CONFIGURATION SECTION.                                           RL1094.2
005400 SOURCE-COMPUTER.                                                 RL1094.2
005500     Card0130.                                                    RL1094.2
005600 OBJECT-COMPUTER.                                                 RL1094.2
005700     Card0131.                                                    RL1094.2
005800 INPUT-OUTPUT SECTION.                                            RL1094.2
005900 FILE-CONTROL.                                                    RL1094.2
006000     SELECT PRINT-FILE ASSIGN TO                                  RL1094.2
006100     "C0085" .                                                    RL1094.2
006200     SELECT  RL-FR1 ASSIGN TO                                     RL1094.2
006300     "C0097"                                                      RL1094.2
006400             ORGANIZATION IS RELATIVE                             RL1094.2
006500             ACCESS  MODE IS RANDOM                               RL1094.2
006600             RELATIVE RL-FR1-KEY.                                 RL1094.2
006700 DATA DIVISION.                                                   RL1094.2
006800 FILE SECTION.                                                    RL1094.2
006900 FD  PRINT-FILE.                                                  RL1094.2
007000 01  PRINT-REC PICTURE X(120).                                    RL1094.2
007100 01  DUMMY-RECORD PICTURE X(120).                                 RL1094.2
007200 FD  RL-FR1                                                       RL1094.2
007300     LABEL RECORDS STANDARD                                       RL1094.2
007400     VALUE OF                                                     RL1094.2
007500     Impl1                                                        RL1094.2
007600     IS                                                           RL1094.2
007700     4711                                                         RL1094.2
007800                                                                  RL1094.2
007900     BLOCK CONTAINS 1 RECORDS                                     RL1094.2
008000     RECORD CONTAINS 120 CHARACTERS.                              RL1094.2
008100 01  RL-FR1R1-F-G-120.                                            RL1094.2
008200     02 FILLER PICTURE X(120).                                    RL1094.2
008300 WORKING-STORAGE SECTION.                                         RL1094.2
008400 01  WRK-CS-09V00 PIC S9(09)      USAGE COMP VALUE ZERO.          RL1094.2
008500 01  RL-FR1-KEY        PIC 9(09)  USAGE COMP VALUE ZERO.          RL1094.2
008600 01  WRK-DS-09V00-002 PIC S9(9) VALUE ZERO.                       RL1094.2
008700 01  WRK-CS-09V00-002 PIC S9(09)       USAGE COMP VALUE ZERO.     RL1094.2
008800 01  WRK-CS-09V00-003 PIC S9(09)       USAGE COMP VALUE ZERO.     RL1094.2
008900 01  I-O-ERROR-RL-FR1 PIC X(3) VALUE "NO ".                       RL1094.2
009000 01  WRK-CS-09V00-001 PIC S9(09)       USAGE COMP VALUE ZERO.     RL1094.2
009100 01  WRK-CS-09V00-004 PIC S9(09)       USAGE COMP VALUE ZERO.     RL1094.2
009200 01  WRK-CS-09V00-005 PIC S9(09)       USAGE COMP VALUE ZERO.     RL1094.2
009300 01  WRK-DS-09V00-001 PIC S9(09)      VALUE ZERO.                 RL1094.2
009400 01  FILE-RECORD-INFORMATION-REC.                                 RL1094.2
009500     03 FILE-RECORD-INFO-SKELETON.                                RL1094.2
009600        05 FILLER                 PICTURE X(48)       VALUE       RL1094.2
009700             "FILE= ,RECORD= /0,RECNO=000000,UPDT=00".  RL1094.2
009800        05 FILLER                 PICTURE X(46)       VALUE       RL1094.2
009900             ",ODO=0000,PGM= ,LRECL=000000,BLKSIZ =0000".    RL1094.2
010000        05 FILLER                 PICTURE X(26)       VALUE       RL1094.2
010100             ",LFIL=000000,ORG= ,LBLR= ".                        RL1094.2
010200        05 FILLER                 PICTURE X(37)       VALUE       RL1094.2
010300             ",RECKEY= ".             RL1094.2
010400        05 FILLER                 PICTURE X(38)       VALUE       RL1094.2
010500             ",ALTKEY1= ".            RL1094.2
010600        05 FILLER                 PICTURE X(38)       VALUE       RL1094.2
010700             ",ALTKEY2= ".            RL1094.2
010800        05 FILLER                 PICTURE X(7)        VALUE SPACE.RL1094.2
010900     03 FILE-RECORD-INFO          OCCURS  10  TIMES.              RL1094.2
011000        05 FILE-RECORD-INFO-P1-120.                               RL1094.2
011100           07 FILLER              PIC X(5).                       RL1094.2
011200           07 XFILE-NAME           PIC X(6).                      RL1094.2
011300           07 FILLER              PIC X(8).                       RL1094.2
011400           07 XRECORD-NAME         PIC X(6).                      RL1094.2
011500           07 FILLER              PIC X(1).                       RL1094.2
011600           07 REELUNIT-NUMBER     PIC 9(1).                       RL1094.2
011700           07 FILLER              PIC X(7).                       RL1094.2
011800           07 XRECORD-NUMBER       PIC 9(6).                      RL1094.2
011900           07 FILLER              PIC X(6).                       RL1094.2
012000           07 UPDATE-NUMBER       PIC 9(2).                       RL1094.2
012100           07 FILLER              PIC X(5).                       RL1094.2
012200           07 ODO-NUMBER          PIC 9(4).                       RL1094.2
012300           07 FILLER              PIC X(5).                       RL1094.2
012400           07 XPROGRAM-NAME        PIC X(5).                      RL1094.2
012500           07 FILLER              PIC X(7).                       RL1094.2
012600           07 XRECORD-LENGTH       PIC 9(6).                      RL1094.2
012700           07 FILLER              PIC X(7).                       RL1094.2
012800           07 CHARS-OR-RECORDS    PIC X(2).                       RL1094.2
012900           07 FILLER              PIC X(1).                       RL1094.2
013000           07 XBLOCK-SIZE          PIC 9(4).                      RL1094.2
013100           07 FILLER              PIC X(6).                       RL1094.2
013200           07 RECORDS-IN-FILE     PIC 9(6).                       RL1094.2
013300           07 FILLER              PIC X(5).                       RL1094.2
013400           07 XFILE-ORGANIZATION   PIC X(2).                      RL1094.2
013500           07 FILLER              PIC X(6).                       RL1094.2
013600           07 XLABEL-TYPE          PIC X(1).                      RL1094.2
013700        05 FILE-RECORD-INFO-P121-240.                             RL1094.2
013800           07 FILLER              PIC X(8).                       RL1094.2
013900           07 XRECORD-KEY          PIC X(29).                     RL1094.2
014000           07 FILLER              PIC X(9).                       RL1094.2
014100           07 ALTERNATE-KEY1      PIC X(29).                      RL1094.2
014200           07 FILLER              PIC X(9).                       RL1094.2
014300           07 ALTERNATE-KEY2      PIC X(29).                      RL1094.2
014400           07 FILLER              PIC X(7).                       RL1094.2
014500 01  TEST-RESULTS.                                                RL1094.2
014600     02 FILLER                   PIC X      VALUE SPACE.          RL1094.2
014700     02 FEATURE                  PIC X(20)  VALUE SPACE.          RL1094.2
014800     02 FILLER                   PIC X      VALUE SPACE.          RL1094.2
014900     02 P-OR-F                   PIC X(5)   VALUE SPACE.          RL1094.2
015000     02 FILLER                   PIC X      VALUE SPACE.          RL1094.2
015100     02  PAR-NAME.                                                RL1094.2
015200       03 FILLER                 PIC X(19)  VALUE SPACE.          RL1094.2
015300       03  PARDOT-X              PIC X      VALUE SPACE.          RL1094.2
015400       03 DOTVALUE               PIC 99     VALUE ZERO.           RL1094.2
015500     02 FILLER                   PIC X(8)   VALUE SPACE.          RL1094.2
015600     02 RE-MARK                  PIC X(61).                       RL1094.2
015700 01  TEST-COMPUTED.                                               RL1094.2
015800     02 FILLER                   PIC X(30)  VALUE SPACE.          RL1094.2
015900     02 FILLER                   PIC X(17)  VALUE                 RL1094.2
016000            " COMPUTED=".                                   RL1094.2
016100     02 COMPUTED-X.                                               RL1094.2
016200     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          RL1094.2
016300     03 COMPUTED-N               REDEFINES COMPUTED-A             RL1094.2
016400                                 PIC -9(9).9(9).                  RL1094.2
016500     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         RL1094.2
016600     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     RL1094.2
016700     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     RL1094.2
016800     03       CM-18V0 REDEFINES COMPUTED-A.                       RL1094.2
016900         04 COMPUTED-18V0                    PIC -9(18).          RL1094.2
017000         04 FILLER                           PIC X.               RL1094.2
017100     03 FILLER PIC X(50) VALUE SPACE.                             RL1094.2
017200 01  TEST-CORRECT.                                                RL1094.2
017300     02 FILLER PIC X(30) VALUE SPACE.                             RL1094.2
017400     02 FILLER PIC X(17) VALUE " CORRECT =".                RL1094.2
017500     02 CORRECT-X.                                                RL1094.2
017600     03 CORRECT-A                  PIC X(20) VALUE SPACE.         RL1094.2
017700     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      RL1094.2
017800     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         RL1094.2
017900     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     RL1094.2
018000     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     RL1094.2
018100     03      CR-18V0 REDEFINES CORRECT-A.                         RL1094.2
018200         04 CORRECT-18V0                     PIC -9(18).          RL1094.2
018300         04 FILLER                           PIC X.               RL1094.2
018400     03 FILLER PIC X(2) VALUE SPACE.                              RL1094.2
018500     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     RL1094.2
018600 01  CCVS-C-1.                                                    RL1094.2
018700     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PARL1094.2
018800-    "SS PARAGRAPH-NAME RL1094.2
018900-    " REMARKS".                                            RL1094.2
019000     02 FILLER                     PIC X(20)    VALUE SPACE.      RL1094.2
019100 01  CCVS-C-2.                                                    RL1094.2
019200     02 FILLER                     PIC X        VALUE SPACE.      RL1094.2
019300     02 FILLER                     PIC X(6)     VALUE "TESTED".   RL1094.2
019400     02 FILLER                     PIC X(15)    VALUE SPACE.      RL1094.2
019500     02 FILLER                     PIC X(4)     VALUE "FAIL".     RL1094.2
019600     02 FILLER                     PIC X(94)    VALUE SPACE.      RL1094.2
019700 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       RL1094.2
019800 01  REC-CT                        PIC 99       VALUE ZERO.       RL1094.2
019900 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       RL1094.2
020000 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       RL1094.2
020100 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       RL1094.2
020200 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       RL1094.2
020300 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       RL1094.2
020400 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       RL1094.2
020500 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      RL1094.2
020600 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       RL1094.2
020700 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     RL1094.2
020800 01  CCVS-H-1.                                                    RL1094.2
020900     02  FILLER                    PIC X(39)    VALUE SPACES.     RL1094.2
021000     02  FILLER                    PIC X(42)    VALUE             RL1094.2
021100     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 RL1094.2
021200     02  FILLER                    PIC X(39)    VALUE SPACES.     RL1094.2
021300 01  CCVS-H-2A.                                                   RL1094.2
021400   02  FILLER                        PIC X(40)  VALUE SPACE.      RL1094.2
021500   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  RL1094.2
021600   02  FILLER                        PIC XXXX   VALUE             RL1094.2
021700     "4.2 ".                                                      RL1094.2
021800   02  FILLER                        PIC X(28)  VALUE             RL1094.2
021900            " COPY - NOT FOR DISTRIBUTION".                       RL1094.2
022000   02  FILLER                        PIC X(41)  VALUE SPACE.      RL1094.2
022100                                                                  RL1094.2
022200 01  CCVS-H-2B.                                                   RL1094.2
022300   02  FILLER                        PIC X(15)  VALUE             RL1094.2
022400            "TEST RESULT OF ".                                    RL1094.2
022500   02  TEST-ID                       PIC X(9).                    RL1094.2
022600   02  FILLER                        PIC X(4)   VALUE             RL1094.2
022700            " IN ".                                               RL1094.2
022800   02  FILLER                        PIC X(12)  VALUE             RL1094.2
022900     " HIGH ".                                              RL1094.2
023000   02  FILLER                        PIC X(22)  VALUE             RL1094.2
023100            " LEVEL VALIDATION FOR ".                             RL1094.2
023200   02  FILLER                        PIC X(58)  VALUE             RL1094.2
023300     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL1094.2
023400 01  CCVS-H-3.                                                    RL1094.2
023500     02  FILLER                      PIC X(34)  VALUE             RL1094.2
023600            " FOR OFFICIAL USE ONLY ".                         RL1094.2
023700     02  FILLER                      PIC X(58)  VALUE             RL1094.2
023800     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".RL1094.2
023900     02  FILLER                      PIC X(28)  VALUE             RL1094.2
024000            " COPYRIGHT 1985 ".                                RL1094.2
024100 01  CCVS-E-1.                                                    RL1094.2
024200     02 FILLER                       PIC X(52)  VALUE SPACE.      RL1094.2
024300     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              RL1094.2
024400     02 ID-AGAIN                     PIC X(9).                    RL1094.2
024500     02 FILLER                       PIC X(45)  VALUE SPACES.     RL1094.2
024600 01  CCVS-E-2.                                                    RL1094.2
024700     02  FILLER                      PIC X(31)  VALUE SPACE.      RL1094.2
024800     02  FILLER                      PIC X(21)  VALUE SPACE.      RL1094.2
024900     02 CCVS-E-2-2.                                               RL1094.2
025000         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      RL1094.2
025100         03 FILLER                   PIC X      VALUE SPACE.      RL1094.2
025200         03 ENDER-DESC               PIC X(44)  VALUE             RL1094.2
025300            "ERRORS ENCOUNTERED".                                 RL1094.2
025400 01  CCVS-E-3.                                                    RL1094.2
025500     02  FILLER                      PIC X(22)  VALUE             RL1094.2
025600            " FOR OFFICIAL USE ONLY".                             RL1094.2
025700     02  FILLER                      PIC X(12)  VALUE SPACE.      RL1094.2
025800     02  FILLER                      PIC X(58)  VALUE             RL1094.2
025900     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".RL1094.2
026000     02  FILLER                      PIC X(13)  VALUE SPACE.      RL1094.2
026100     02 FILLER                       PIC X(15)  VALUE             RL1094.2
026200             " COPYRIGHT 1985".                                   RL1094.2
026300 01  CCVS-E-4.                                                    RL1094.2
026400     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      RL1094.2
026500     02 FILLER                       PIC X(4)   VALUE " OF ".     RL1094.2
026600     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      RL1094.2
026700     02 FILLER                       PIC X(40)  VALUE             RL1094.2
026800      " TESTS WERE EXECUTED SUCCESSFULLY".                       RL1094.2
026900 01  XXINFO.                                                      RL1094.2
027000     02 FILLER                       PIC X(19)  VALUE             RL1094.2
027100            "*** INFORMATION ***".                                RL1094.2
027200     02 INFO-TEXT.                                                RL1094.2
027300       04 FILLER                     PIC X(8)   VALUE SPACE.      RL1094.2
027400       04 XXCOMPUTED                 PIC X(20).                   RL1094.2
027500       04 FILLER                     PIC X(5)   VALUE SPACE.      RL1094.2
027600       04 XXCORRECT                  PIC X(20).                   RL1094.2
027700     02 INF-ANSI-REFERENCE           PIC X(48).                   RL1094.2
027800 01  HYPHEN-LINE.                                                 RL1094.2
027900     02 FILLER  PIC IS X VALUE IS SPACE.                          RL1094.2
028000     02 FILLER  PIC IS X(65)    VALUE IS "************************RL1094.2
028100-    "*****************************************".                 RL1094.2
028200     02 FILLER  PIC IS X(54)    VALUE IS "************************RL1094.2
028300-    "******************************".                            RL1094.2
028400 01  CCVS-PGM-ID                     PIC X(9)   VALUE             RL1094.2
028500     "RL109A".                                                    RL1094.2
028600 PROCEDURE DIVISION.                                              RL1094.2
028700 CCVS1 SECTION.                                                   RL1094.2
028800 OPEN-FILES.                                                      RL1094.2
028900     OPEN    OUTPUT PRINT-FILE.                                   RL1094.2
029000     MOVE  CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.  RL1094.2
029100     MOVE    SPACE TO TEST-RESULTS.                               RL1094.2
029200     PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.              RL1094.2
029300     MOVE    ZERO TO REC-SKL-SUB.                                 RL1094.2
029400     PERFORM CCVS-INIT-FILE 9 TIMES.                              RL1094.2
029500 CCVS-INIT-FILE.                                                  RL1094.2
029600     ADD     1 TO REC-SKL-SUB.                                    RL1094.2
029700     MOVE    FILE-RECORD-INFO-SKELETON                            RL1094.2
029800          TO FILE-RECORD-INFO (REC-SKL-SUB).                      RL1094.2
029900 CCVS-INIT-EXIT.                                                  RL1094.2
030000     GO TO CCVS1-EXIT.                                            RL1094.2
030100 CLOSE-FILES.                                                     RL1094.2
030200     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   RL1094.2
030300 TERMINATE-CCVS.                                                  RL1094.2
030400     EXIT PROGRAM.                                                RL1094.2
030500 TERMINATE-CALL.                                                  RL1094.2
030600     STOP     RUN.                                                RL1094.2
030700 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         RL1094.2
030800 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           RL1094.2
030900 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          RL1094.2
031000 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      RL1094.2
031100     MOVE "****TEST DELETED****" TO RE-MARK.                      RL1094.2
031200 PRINT-DETAIL.                                                    RL1094.2
031300     IF REC-CT NOT EQUAL TO ZERO                                  RL1094.2
031400             MOVE "." TO PARDOT-X                                 RL1094.2
031500             MOVE REC-CT TO DOTVALUE.                             RL1094.2
031600     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      RL1094.2
031700     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               RL1094.2
031800        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 RL1094.2
031900          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 RL1094.2
032000     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              RL1094.2
032100     MOVE SPACE TO CORRECT-X.                                     RL1094.2
032200     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         RL1094.2
032300     MOVE     SPACE TO RE-MARK.                                   RL1094.2
032400 HEAD-ROUTINE.                                                    RL1094.2
032500     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  RL1094.2
032600     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  RL1094.2
032700     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  RL1094.2
032800     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  RL1094.2
032900 COLUMN-NAMES-ROUTINE.                                            RL1094.2
033000     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           RL1094.2
033100     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL1094.2
033200     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        RL1094.2
033300 END-ROUTINE.                                                     RL1094.2
033400     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.RL1094.2
033500 END-RTN-EXIT.                                                    RL1094.2
033600     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL1094.2
033700 END-ROUTINE-1.                                                   RL1094.2
033800      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      RL1094.2
033900      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               RL1094.2
034000      ADD PASS-COUNTER TO ERROR-HOLD.                             RL1094.2
034100*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   RL1094.2
034200      MOVE PASS-COUNTER TO CCVS-E-4-1.                            RL1094.2
034300      MOVE ERROR-HOLD TO CCVS-E-4-2.                              RL1094.2
034400      MOVE CCVS-E-4 TO CCVS-E-2-2.                                RL1094.2
034500      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           RL1094.2
034600  END-ROUTINE-12.                                                 RL1094.2
034700      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        RL1094.2
034800     IF       ERROR-COUNTER IS EQUAL TO ZERO                      RL1094.2
034900         MOVE "NO " TO ERROR-TOTAL                                RL1094.2
035000         ELSE                                                     RL1094.2
035100         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       RL1094.2
035200     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           RL1094.2
035300     PERFORM WRITE-LINE.                                          RL1094.2
035400 END-ROUTINE-13.                                                  RL1094.2
035500     IF DELETE-COUNTER IS EQUAL TO ZERO                           RL1094.2
035600         MOVE "NO " TO ERROR-TOTAL  ELSE                          RL1094.2
035700         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      RL1094.2
035800     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   RL1094.2
035900     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           RL1094.2
036000      IF   INSPECT-COUNTER EQUAL TO ZERO                          RL1094.2
036100          MOVE "NO " TO ERROR-TOTAL                               RL1094.2
036200      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   RL1094.2
036300      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            RL1094.2
036400      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          RL1094.2
036500     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           RL1094.2
036600 WRITE-LINE.                                                      RL1094.2
036700     ADD 1 TO RECORD-COUNT.                                       RL1094.2
036800     IF RECORD-COUNT GREATER 50                                   RL1094.2
036900         MOVE DUMMY-RECORD TO DUMMY-HOLD                          RL1094.2
037000         MOVE SPACE TO DUMMY-RECORD                               RL1094.2
037100         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  RL1094.2
037200         MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN             RL1094.2
037300         MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES     RL1094.2
037400         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          RL1094.2
037500         MOVE DUMMY-HOLD TO DUMMY-RECORD                          RL1094.2
037600         MOVE ZERO TO RECORD-COUNT.                               RL1094.2
037700     PERFORM WRT-LN.                                              RL1094.2
037800 WRT-LN.                                                          RL1094.2
037900     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               RL1094.2
038000     MOVE SPACE TO DUMMY-RECORD.                                  RL1094.2
038100 BLANK-LINE-PRINT.                                                RL1094.2
038200     PERFORM WRT-LN.                                              RL1094.2
038300 FAIL-ROUTINE.                                                    RL1094.2
038400     IF   COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. RL1094.2
038500     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.RL1094.2
038600     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 RL1094.2
038700     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   RL1094.2
038800     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL1094.2
038900     MOVE   SPACES TO INF-ANSI-REFERENCE.                         RL1094.2
039000     GO TO  FAIL-ROUTINE-EX.                                      RL1094.2
039100 FAIL-ROUTINE-WRITE.                                              RL1094.2
039200     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         RL1094.2
039300     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 RL1094.2
039400     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. RL1094.2
039500     MOVE   SPACES TO COR-ANSI-REFERENCE.                         RL1094.2
039600 FAIL-ROUTINE-EX. EXIT.                                           RL1094.2
039700 BAIL-OUT.                                                        RL1094.2
039800     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   RL1094.2
039900     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           RL1094.2
040000 BAIL-OUT-WRITE.                                                  RL1094.2
040100     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  RL1094.2
040200     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 RL1094.2
040300     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   RL1094.2
040400     MOVE   SPACES TO INF-ANSI-REFERENCE.                         RL1094.2
040500 BAIL-OUT-EX. EXIT.                                               RL1094.2
040600 CCVS1-EXIT.                                                      RL1094.2
040700     EXIT.                                                        RL1094.2
040800 SECT-RL109A-001 SECTION.                                         RL1094.2
040900 REL-INIT-003.                                                    RL1094.2
041000     OPEN    INPUT  RL-FR1.                                       RL1094.2
041100     MOVE   "REL-TEST-003"   TO PAR-NAME.                         RL1094.2
041200     MOVE    ZERO TO   RL-FR1-KEY.                                RL1094.2
041300     MOVE    ZERO TO   WRK-CS-09V00-002                           RL1094.2
041400     MOVE    ZERO  TO  WRK-CS-09V00-003                           RL1094.2
041500*                                                                 RL1094.2
041600     MOVE    01 TO REC-CT.                                        RL1094.2
041700     MOVE   "READ RANDOM"  TO FEATURE.                            RL1094.2
041800 REL-TEST-003-R.                                                  RL1094.2
041900     ADD     1 TO WRK-CS-09V00-003                                RL1094.2
042000     MOVE    WRK-CS-09V00-003 TO RL-FR1-KEY.                      RL1094.2
042100     IF      RL-FR1-KEY GREATER +501                              RL1094.2
042200             MOVE "INVALID KEY NOT TAKEN" TO COMPUTED-A           RL1094.2
042300             MOVE RL-FR1-KEY TO CORRECT-18V0                      RL1094.2
042400             PERFORM FAIL                                         RL1094.2
042500             PERFORM PRINT-DETAIL                                 RL1094.2
042600             ADD 1 TO REC-CT                                      RL1094.2
042700             GO TO REL-WRITE-003.                                 RL1094.2
042800     READ    RL-FR1                                               RL1094.2
042900             INVALID GO TO REL-WRITE-003                          RL1094.2
043000         NOT INVALID GO TO REL-TEST-003-A                         RL1094.2
043100     END-READ.                                                    RL1094.2
043200 REL-TEST-003-A.                                                  RL1094.2
043300     MOVE    RL-FR1R1-F-G-120 TO FILE-RECORD-INFO-P1-120 (1).     RL1094.2
043400     IF      XRECORD-NUMBER (1) EQUAL TO RL-FR1-KEY               RL1094.2
043500             GO TO  REL-TEST-003-R.                               RL1094.2
043600     MOVE   "YES" TO I-O-ERROR-RL-FR1.                            RL1094.2
043700     ADD     1 TO WRK-CS-09V00-002                                RL1094.2
043800     GO TO   REL-TEST-003-R.                                      RL1094.2
043900 REL-WRITE-003.                                                   RL1094.2
044000     MOVE   "VIII-26 4.5.4"  TO ANSI-REFERENCE.                   RL1094.2
044100     IF      RL-FR1-KEY NOT EQUAL TO 501                          RL1094.2
044200             MOVE "WRONG KEY/NOT 500" TO CORRECT-A                RL1094.2
044300             MOVE  RL-FR1-KEY TO COMPUTED-18V0                    RL1094.2
044400             PERFORM FAIL                                         RL1094.2
044500     ELSE                                                         RL1094.2
044600             PERFORM PASS.                                        RL1094.2
044700     PERFORM PRINT-DETAIL.                                        RL1094.2
044800*                                                                 RL1094.2
044900*01                                                               RL1094.2
045000*                                                                 RL1094.2
045100     ADD     1 TO REC-CT.                                         RL1094.2
045200     IF      XRECORD-NUMBER (1) NOT EQUAL TO 500                  RL1094.2
045300             MOVE "WRONG RECORD/NOT 500" TO CORRECT-A             RL1094.2
045400             MOVE  XRECORD-NUMBER (1) TO COMPUTED-18V0            RL1094.2
045500             PERFORM FAIL                                         RL1094.2
045600     ELSE                                                         RL1094.2
045700             PERFORM PASS.                                        RL1094.2
045800     PERFORM PRINT-DETAIL.                                        RL1094.2
045900*                                                                 RL1094.2
046000*02                                                               RL1094.2
046100*                                                                 RL1094.2
046200     ADD     1 TO REC-CT.                                         RL1094.2
046300     IF      WRK-CS-09V00-003 NOT EQUAL TO 501                    RL1094.2
046400             MOVE "INCORRECT RECORD COUNT" TO RE-MARK             RL1094.2
046500             MOVE  WRK-CS-09V00-003 TO COMPUTED-18V0              RL1094.2
046600             MOVE 501  TO CORRECT-18V0                            RL1094.2
046700             PERFORM FAIL                                         RL1094.2
046800     ELSE                                                         RL1094.2
046900             PERFORM PASS.                                        RL1094.2
047000     PERFORM PRINT-DETAIL.                                        RL1094.2
047100*                                                                 RL1094.2
047200*03                                                               RL1094.2
047300*                                                                 RL1094.2
047400     ADD     1 TO REC-CT.                                         RL1094.2
047500     IF      I-O-ERROR-RL-FR1 EQUAL TO "YES"                      RL1094.2
047600             MOVE WRK-CS-09V00-002 TO COMPUTED-18V0               RL1094.2
047700             MOVE "RECORDS DID NOT COMPARE" TO RE-MARK            RL1094.2
047800             PERFORM FAIL                                         RL1094.2
047900     ELSE                                                         RL1094.2
048000             PERFORM PASS.                                        RL1094.2
048100     PERFORM PRINT-DETAIL.                                        RL1094.2
048200*                                                                 RL1094.2
048300*04                                                               RL1094.2
048400*                                                                 RL1094.2
048500     ADD      1 TO REC-CT.                                        RL1094.2
048600     CLOSE    RL-FR1.                                             RL1094.2
048700 REL-INIT-004-R .                                                 RL1094.2
048800     MOVE    "VIII-30 4.6.4"  TO ANSI-REFERENCE.                  RL1094.2
048900     MOVE    "REL-TEST-004" TO PAR-NAME.                          RL1094.2
049000     OPEN I-O RL-FR1.                                             RL1094.2
049100     MOVE     ZERO TO RL-FR1-KEY.                                 RL1094.2
049200     MOVE     ZERO TO WRK-CS-09V00-002.                           RL1094.2
049300     MOVE     ZERO TO WRK-CS-09V00-003.                           RL1094.2
049400     MOVE     ZERO TO WRK-CS-09V00-004.                           RL1094.2
049500     MOVE     ZERO TO WRK-CS-09V00-005.                           RL1094.2
049600*                                                                 RL1094.2
049700     MOVE     01 TO REC-CT.                                       RL1094.2
049800     MOVE     SPACE TO  FILE-RECORD-INFO-P1-120 (1).              RL1094.2
049900     MOVE    "REWRITE"  TO FEATURE.                               RL1094.2
050000 REL-TEST-004-R.                                                  RL1094.2
050100     ADD     5 TO  WRK-CS-09V00-003.                              RL1094.2
050200     MOVE    WRK-CS-09V00-003 TO RL-FR1-KEY.                      RL1094.2
050300      IF     RL-FR1-KEY GREATER 505                               RL1094.2
050400             MOVE "INVALID KEY/NOT TAKEN" TO COMPUTED-A           RL1094.2
050500             MOVE  RL-FR1-KEY TO CORRECT-18V0                     RL1094.2
050600             PERFORM FAIL                                         RL1094.2
050700             PERFORM PRINT-DETAIL                                 RL1094.2
050800             ADD 1 TO REC-CT                                      RL1094.2
050900             GO TO REL-TEST-004-3.                                RL1094.2
051000     READ    RL-FR1                                               RL1094.2
051100             INVALID KEY GO TO REL-TEST-004-1                     RL1094.2
051200         NOT INVALID KEY GO TO REL-TEST-004-A                     RL1094.2
051300     END-READ.                                                    RL1094.2
051400 REL-TEST-004-A.                                                  RL1094.2
051500     MOVE    RL-FR1R1-F-G-120 TO FILE-RECORD-INFO-P1-120 (1)      RL1094.2
051600     ADD     01 TO UPDATE-NUMBER (1).                             RL1094.2
051700     MOVE    CCVS-PGM-ID   TO XPROGRAM-NAME (1).                  RL1094.2
051800     MOVE    FILE-RECORD-INFO-P1-120 (1) TO RL-FR1R1-F-G-120.     RL1094.2
051900     REWRITE RL-FR1R1-F-G-120                                     RL1094.2
052000             INVALID KEY GO TO REL-TEST-004-2                     RL1094.2
052100         NOT INVALID KEY GO TO REL-TEST-004-R                     RL1094.2
052200     END-REWRITE.                                                 RL1094.2
052300 REL-TEST-004-1.                                                  RL1094.2
052400     IF      RL-FR1-KEY LESS THAN 501                             RL1094.2
052500             ADD 1 TO  WRK-CS-09V00-004                           RL1094.2
052600             GO TO   REL-TEST-004-R.                              RL1094.2
052700     PERFORM PASS.                                                RL1094.2
052800     PERFORM PRINT-DETAIL.                                        RL1094.2
052900*                                                                 RL1094.2
053000*01                                                               RL1094.2
053100*                                                                 RL1094.2
053200     ADD     1  TO REC-CT.                                        RL1094.2
053300     GO TO   REL-TEST-004-3.                                      RL1094.2
053400 REL-TEST-004-2.                                                  RL1094.2
053500     ADD     1 TO WRK-CS-09V00-005.                               RL1094.2
053600     IF      RL-FR1-KEY LESS 501                                  RL1094.2
053700             GO TO   REL-TEST-004-R.                              RL1094.2
053800 REL-TEST-004-3.                                                  RL1094.2
053900     IF      WRK-CS-09V00-004 NOT EQUAL TO ZERO                   RL1094.2
054000             MOVE "INVALID KEY ON READ" TO COMPUTED-A             RL1094.2
054100             MOVE WRK-CS-09V00-004 TO CORRECT-18V0                RL1094.2
054200             PERFORM FAIL                                         RL1094.2
054300     ELSE                                                         RL1094.2
054400             PERFORM PASS.                                        RL1094.2
054500     PERFORM PRINT-DETAIL.                                        RL1094.2
054600*                                                                 RL1094.2
054700*02                                                               RL1094.2
054800*                                                                 RL1094.2
054900     ADD     1 TO REC-CT.                                         RL1094.2
055000     IF      WRK-CS-09V00-005 NOT EQUAL TO ZERO                   RL1094.2
055100             MOVE "INVALID KEY ON REWRITE" TO COMPUTED-A          RL1094.2
055200             MOVE  WRK-CS-09V00-005 TO CORRECT-18V0               RL1094.2
055300             PERFORM FAIL                                         RL1094.2
055400     ELSE                                                         RL1094.2
055500             PERFORM PASS.                                        RL1094.2
055600     PERFORM PRINT-DETAIL.                                        RL1094.2
055700*                                                                 RL1094.2
055800*03                                                               RL1094.2
055900*                                                                 RL1094.2
056000     ADD     1 TO REC-CT.                                         RL1094.2
056100     CLOSE   RL-FR1.                                              RL1094.2
056200 REL-INIT-005.                                                    RL1094.2
056300     MOVE   "VIII-26 4.5.4" TO ANSI-REFERENCE.                    RL1094.2
056400     MOVE   "REL-TEST-005"  TO PAR-NAME.                          RL1094.2
056500     OPEN    INPUT  RL-FR1.                                       RL1094.2
056600     MOVE    501  TO WRK-CS-09V00-003.                            RL1094.2
056700     MOVE    ZERO TO WRK-CS-09V00-004.                            RL1094.2
056800     MOVE    ZERO TO WRK-CS-09V00-005.                            RL1094.2
056900     MOVE    ZERO TO WRK-CS-09V00-002.                            RL1094.2
057000     MOVE    SPACE TO  FILE-RECORD-INFO-P1-120 (1).               RL1094.2
057100     MOVE    01 TO REC-CT.                                        RL1094.2
057200*                                                                 RL1094.2
057300     MOVE   "READ RANDOM"  TO FEATURE.                            RL1094.2
057400 REL-TEST-005-R.                                                  RL1094.2
057500     SUBTRACT 1 FROM    WRK-CS-09V00-003.                         RL1094.2
057600     MOVE    WRK-CS-09V00-003 TO RL-FR1-KEY.                      RL1094.2
057700     IF      WRK-CS-09V00-003 LESS THAN ZERO                      RL1094.2
057800             MOVE    "INVALID KEY/NOT TAKEN"  TO RE-MARK          RL1094.2
057900             MOVE   WRK-CS-09V00-003  TO COMPUTED-18V0            RL1094.2
058000             MOVE   ZERO TO CORRECT-18V0                          RL1094.2
058100             PERFORM FAIL                                         RL1094.2
058200             PERFORM PRINT-DETAIL                                 RL1094.2
058300             ADD 1 TO REC-CT                                      RL1094.2
058400             GO TO REL-TEST-005-3.                                RL1094.2
058500     READ    RL-FR1                                               RL1094.2
058600             INVALID KEY  GO TO REL-TEST-005-1                    RL1094.2
058700         NOT INVALID KEY  GO TO REL-TEST-005-A                    RL1094.2
058800     END-READ.                                                    RL1094.2
058900 REL-TEST-005-A.                                                  RL1094.2
059000     MOVE    RL-FR1R1-F-G-120 TO FILE-RECORD-INFO-P1-120 (1).     RL1094.2
059100     IF      UPDATE-NUMBER (1) EQUAL TO 00                        RL1094.2
059200             ADD 1 TO WRK-CS-09V00-004.                           RL1094.2
059300     IF      UPDATE-NUMBER (1) EQUAL TO 01                        RL1094.2
059400             ADD 1 TO WRK-CS-09V00-005.                           RL1094.2
059500     GO TO   REL-TEST-005-R.                                      RL1094.2
059600 REL-TEST-005-1.                                                  RL1094.2
059700     IF      RL-FR1-KEY GREATER ZERO                              RL1094.2
059800             ADD 1 TO WRK-CS-09V00-002                            RL1094.2
059900             GO TO REL-TEST-005-R.                                RL1094.2
060000     PERFORM PASS.                                                RL1094.2
060100     PERFORM PRINT-DETAIL.                                        RL1094.2
060200     ADD     1  TO REC-CT.                                        RL1094.2
060300*01                                                               RL1094.2
060400     GO TO   REL-TEST-005-3.                                      RL1094.2
060500 REL-TEST-005-3.                                                  RL1094.2
060600     IF      WRK-CS-09V00-004 NOT EQUAL TO 400                    RL1094.2
060700             MOVE "NON-UPDATED RECORDS" TO COMPUTED-A             RL1094.2
060800             MOVE WRK-CS-09V00-004 TO CORRECT-18V0                RL1094.2
060900             MOVE "SHOULD BE 400" TO RE-MARK                      RL1094.2
061000             PERFORM FAIL                                         RL1094.2
061100     ELSE                                                         RL1094.2
061200             PERFORM PASS.                                        RL1094.2
061300     PERFORM PRINT-DETAIL.                                        RL1094.2
061400*                                                                 RL1094.2
061500*                                                                 RL1094.2
061600*02                                                               RL1094.2
061700*                                                                 RL1094.2
061800     ADD     1 TO REC-CT.                                         RL1094.2
061900     IF      WRK-CS-09V00-005 NOT EQUAL TO 100                    RL1094.2
062000             MOVE "UPDATED RECORDS" TO COMPUTED-A                 RL1094.2
062100             MOVE WRK-CS-09V00-005 TO CORRECT-18V0                RL1094.2
062200             MOVE "SHOULD BE 100" TO RE-MARK                      RL1094.2
062300             PERFORM FAIL                                         RL1094.2
062400     ELSE                                                         RL1094.2
062500             PERFORM PASS.                                        RL1094.2
062600     PERFORM PRINT-DETAIL.                                        RL1094.2
062700*                                                                 RL1094.2
062800*03                                                               RL1094.2
062900*                                                                 RL1094.2
063000     ADD     1 TO REC-CT.                                         RL1094.2
063100     IF      WRK-CS-09V00-002 GREATER 1                           RL1094.2
063200             MOVE WRK-CS-09V00-002 TO COMPUTED-N                  RL1094.2
063300             MOVE  "INVALID KEY/READS" TO CORRECT-A               RL1094.2
063400             PERFORM FAIL                                         RL1094.2
063500     ELSE                                                         RL1094.2
063600             PERFORM PASS.                                        RL1094.2
063700     PERFORM PRINT-DETAIL.                                        RL1094.2
063800*                                                                 RL1094.2
063900*04                                                               RL1094.2
064000*                                                                 RL1094.2
064100     ADD     1 TO REC-CT.                                         RL1094.2
064200     CLOSE   RL-FR1.                                              RL1094.2
064300 CCVS-EXIT SECTION.                                               RL1094.2
064400 CCVS-999999.                                                     RL1094.2
064500     GO TO CLOSE-FILES.                                           RL1094.2

quality96%

¤ Dauer der Verarbeitung: 0.32 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.