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

Quelle  rl202a.cob   Sprache: Cobol

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

96%


¤ Dauer der Verarbeitung: 0.6 Sekunden  (vorverarbeitet)  ¤

*© Formatika GbR, Deutschland




Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

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

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.