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

Quelle  ic209a.cob   Sprache: Cobol

 
000100 IDENTIFICATION DIVISION.                                         IC2094.2
000200 PROGRAM-ID.                                                      IC2094.2
000300     IC209A.                                                      IC2094.2
000400****************************************************************  IC2094.2
000500*                                                              *  IC2094.2
000600*    VALIDATION FOR:-                                          *  IC2094.2
000700*                                                              *  IC2094.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".IC2094.2
000900*                                                              *  IC2094.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".IC2094.2
001100*                                                              *  IC2094.2
001200****************************************************************  IC2094.2
001300*                                                              *  IC2094.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  IC2094.2
001500*                                                              *  IC2094.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  IC2094.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  IC2094.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  IC2094.2
001900*                                                              *  IC2094.2
002000****************************************************************  IC2094.2
002100*    THIS IS MAIN PROGRAM IC209.                                  IC2094.2
002200****************************************************************  IC2094.2
002300 ENVIRONMENT DIVISION.                                            IC2094.2
002400 CONFIGURATION SECTION.                                           IC2094.2
002500 SOURCE-COMPUTER.                                                 IC2094.2
002600     Card0130.                                                    IC2094.2
002700 OBJECT-COMPUTER.                                                 IC2094.2
002800     Card0131.                                                    IC2094.2
002900 INPUT-OUTPUT SECTION.                                            IC2094.2
003000 FILE-CONTROL.                                                    IC2094.2
003100     SELECT PRINT-FILE ASSIGN TO                                  IC2094.2
003200     "C0085" .                                                    IC2094.2
003300 DATA DIVISION.                                                   IC2094.2
003400 FILE SECTION.                                                    IC2094.2
003500 FD  PRINT-FILE.                                                  IC2094.2
003600 01  PRINT-REC PICTURE X(120).                                    IC2094.2
003700 01  DUMMY-RECORD PICTURE X(120).                                 IC2094.2
003800 WORKING-STORAGE SECTION.                                         IC2094.2
003900 01  TEST-AREA.                                                   IC2094.2
004000     02  TEST1                   PICTURE X.                       IC2094.2
004100     02  TEST2                   PICTURE X.                       IC2094.2
004200     02  TEST3                   PICTURE X.                       IC2094.2
004300     02  TEST4                   PICTURE X.                       IC2094.2
004400 01  TEST-RESULTS.                                                IC2094.2
004500     02 FILLER                   PIC X      VALUE SPACE.          IC2094.2
004600     02 FEATURE                  PIC X(20)  VALUE SPACE.          IC2094.2
004700     02 FILLER                   PIC X      VALUE SPACE.          IC2094.2
004800     02 P-OR-F                   PIC X(5)   VALUE SPACE.          IC2094.2
004900     02 FILLER                   PIC X      VALUE SPACE.          IC2094.2
005000     02  PAR-NAME.                                                IC2094.2
005100       03 FILLER                 PIC X(19)  VALUE SPACE.          IC2094.2
005200       03  PARDOT-X              PIC X      VALUE SPACE.          IC2094.2
005300       03 DOTVALUE               PIC 99     VALUE ZERO.           IC2094.2
005400     02 FILLER                   PIC X(8)   VALUE SPACE.          IC2094.2
005500     02 RE-MARK                  PIC X(61).                       IC2094.2
005600 01  TEST-COMPUTED.                                               IC2094.2
005700     02 FILLER                   PIC X(30)  VALUE SPACE.          IC2094.2
005800     02 FILLER                   PIC X(17)  VALUE                 IC2094.2
005900            " COMPUTED=".                                   IC2094.2
006000     02 COMPUTED-X.                                               IC2094.2
006100     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          IC2094.2
006200     03 COMPUTED-N               REDEFINES COMPUTED-A             IC2094.2
006300                                 PIC -9(9).9(9).                  IC2094.2
006400     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         IC2094.2
006500     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     IC2094.2
006600     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     IC2094.2
006700     03       CM-18V0 REDEFINES COMPUTED-A.                       IC2094.2
006800         04 COMPUTED-18V0                    PIC -9(18).          IC2094.2
006900         04 FILLER                           PIC X.               IC2094.2
007000     03 FILLER PIC X(50) VALUE SPACE.                             IC2094.2
007100 01  TEST-CORRECT.                                                IC2094.2
007200     02 FILLER PIC X(30) VALUE SPACE.                             IC2094.2
007300     02 FILLER PIC X(17) VALUE " CORRECT =".                IC2094.2
007400     02 CORRECT-X.                                                IC2094.2
007500     03 CORRECT-A                  PIC X(20) VALUE SPACE.         IC2094.2
007600     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      IC2094.2
007700     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         IC2094.2
007800     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     IC2094.2
007900     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     IC2094.2
008000     03      CR-18V0 REDEFINES CORRECT-A.                         IC2094.2
008100         04 CORRECT-18V0                     PIC -9(18).          IC2094.2
008200         04 FILLER                           PIC X.               IC2094.2
008300     03 FILLER PIC X(2) VALUE SPACE.                              IC2094.2
008400     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     IC2094.2
008500 01  CCVS-C-1.                                                    IC2094.2
008600     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PAIC2094.2
008700-    "SS PARAGRAPH-NAME IC2094.2
008800-    " REMARKS".                                            IC2094.2
008900     02 FILLER                     PIC X(20)    VALUE SPACE.      IC2094.2
009000 01  CCVS-C-2.                                                    IC2094.2
009100     02 FILLER                     PIC X        VALUE SPACE.      IC2094.2
009200     02 FILLER                     PIC X(6)     VALUE "TESTED".   IC2094.2
009300     02 FILLER                     PIC X(15)    VALUE SPACE.      IC2094.2
009400     02 FILLER                     PIC X(4)     VALUE "FAIL".     IC2094.2
009500     02 FILLER                     PIC X(94)    VALUE SPACE.      IC2094.2
009600 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       IC2094.2
009700 01  REC-CT                        PIC 99       VALUE ZERO.       IC2094.2
009800 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       IC2094.2
009900 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       IC2094.2
010000 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       IC2094.2
010100 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       IC2094.2
010200 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       IC2094.2
010300 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       IC2094.2
010400 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      IC2094.2
010500 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       IC2094.2
010600 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     IC2094.2
010700 01  CCVS-H-1.                                                    IC2094.2
010800     02  FILLER                    PIC X(39)    VALUE SPACES.     IC2094.2
010900     02  FILLER                    PIC X(42)    VALUE             IC2094.2
011000     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 IC2094.2
011100     02  FILLER                    PIC X(39)    VALUE SPACES.     IC2094.2
011200 01  CCVS-H-2A.                                                   IC2094.2
011300   02  FILLER                        PIC X(40)  VALUE SPACE.      IC2094.2
011400   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  IC2094.2
011500   02  FILLER                        PIC XXXX   VALUE             IC2094.2
011600     "4.2 ".                                                      IC2094.2
011700   02  FILLER                        PIC X(28)  VALUE             IC2094.2
011800            " COPY - NOT FOR DISTRIBUTION".                       IC2094.2
011900   02  FILLER                        PIC X(41)  VALUE SPACE.      IC2094.2
012000                                                                  IC2094.2
012100 01  CCVS-H-2B.                                                   IC2094.2
012200   02  FILLER                        PIC X(15)  VALUE             IC2094.2
012300            "TEST RESULT OF ".                                    IC2094.2
012400   02  TEST-ID                       PIC X(9).                    IC2094.2
012500   02  FILLER                        PIC X(4)   VALUE             IC2094.2
012600            " IN ".                                               IC2094.2
012700   02  FILLER                        PIC X(12)  VALUE             IC2094.2
012800     " HIGH ".                                              IC2094.2
012900   02  FILLER                        PIC X(22)  VALUE             IC2094.2
013000            " LEVEL VALIDATION FOR ".                             IC2094.2
013100   02  FILLER                        PIC X(58)  VALUE             IC2094.2
013200     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IC2094.2
013300 01  CCVS-H-3.                                                    IC2094.2
013400     02  FILLER                      PIC X(34)  VALUE             IC2094.2
013500            " FOR OFFICIAL USE ONLY ".                         IC2094.2
013600     02  FILLER                      PIC X(58)  VALUE             IC2094.2
013700     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".IC2094.2
013800     02  FILLER                      PIC X(28)  VALUE             IC2094.2
013900            " COPYRIGHT 1985 ".                                IC2094.2
014000 01  CCVS-E-1.                                                    IC2094.2
014100     02 FILLER                       PIC X(52)  VALUE SPACE.      IC2094.2
014200     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              IC2094.2
014300     02 ID-AGAIN                     PIC X(9).                    IC2094.2
014400     02 FILLER                       PIC X(45)  VALUE SPACES.     IC2094.2
014500 01  CCVS-E-2.                                                    IC2094.2
014600     02  FILLER                      PIC X(31)  VALUE SPACE.      IC2094.2
014700     02  FILLER                      PIC X(21)  VALUE SPACE.      IC2094.2
014800     02 CCVS-E-2-2.                                               IC2094.2
014900         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      IC2094.2
015000         03 FILLER                   PIC X      VALUE SPACE.      IC2094.2
015100         03 ENDER-DESC               PIC X(44)  VALUE             IC2094.2
015200            "ERRORS ENCOUNTERED".                                 IC2094.2
015300 01  CCVS-E-3.                                                    IC2094.2
015400     02  FILLER                      PIC X(22)  VALUE             IC2094.2
015500            " FOR OFFICIAL USE ONLY".                             IC2094.2
015600     02  FILLER                      PIC X(12)  VALUE SPACE.      IC2094.2
015700     02  FILLER                      PIC X(58)  VALUE             IC2094.2
015800     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".IC2094.2
015900     02  FILLER                      PIC X(13)  VALUE SPACE.      IC2094.2
016000     02 FILLER                       PIC X(15)  VALUE             IC2094.2
016100             " COPYRIGHT 1985".                                   IC2094.2
016200 01  CCVS-E-4.                                                    IC2094.2
016300     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      IC2094.2
016400     02 FILLER                       PIC X(4)   VALUE " OF ".     IC2094.2
016500     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      IC2094.2
016600     02 FILLER                       PIC X(40)  VALUE             IC2094.2
016700      " TESTS WERE EXECUTED SUCCESSFULLY".                       IC2094.2
016800 01  XXINFO.                                                      IC2094.2
016900     02 FILLER                       PIC X(19)  VALUE             IC2094.2
017000            "*** INFORMATION ***".                                IC2094.2
017100     02 INFO-TEXT.                                                IC2094.2
017200       04 FILLER                     PIC X(8)   VALUE SPACE.      IC2094.2
017300       04 XXCOMPUTED                 PIC X(20).                   IC2094.2
017400       04 FILLER                     PIC X(5)   VALUE SPACE.      IC2094.2
017500       04 XXCORRECT                  PIC X(20).                   IC2094.2
017600     02 INF-ANSI-REFERENCE           PIC X(48).                   IC2094.2
017700 01  HYPHEN-LINE.                                                 IC2094.2
017800     02 FILLER  PIC IS X VALUE IS SPACE.                          IC2094.2
017900     02 FILLER  PIC IS X(65)    VALUE IS "************************IC2094.2
018000-    "*****************************************".                 IC2094.2
018100     02 FILLER  PIC IS X(54)    VALUE IS "************************IC2094.2
018200-    "******************************".                            IC2094.2
018300 01  CCVS-PGM-ID                     PIC X(9)   VALUE             IC2094.2
018400     "IC209A".                                                    IC2094.2
018500 PROCEDURE DIVISION.                                              IC2094.2
018600 CCVS1 SECTION.                                                   IC2094.2
018700 OPEN-FILES.                                                      IC2094.2
018800     OPEN     OUTPUT PRINT-FILE.                                  IC2094.2
018900     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   IC2094.2
019000     MOVE    SPACE TO TEST-RESULTS.                               IC2094.2
019100     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             IC2094.2
019200     GO TO CCVS1-EXIT.                                            IC2094.2
019300 CLOSE-FILES.                                                     IC2094.2
019400     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   IC2094.2
019500 TERMINATE-CCVS.                                                  IC2094.2
019600     EXIT PROGRAM.                                                IC2094.2
019700 TERMINATE-CALL.                                                  IC2094.2
019800     STOP     RUN.                                                IC2094.2
019900 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         IC2094.2
020000 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           IC2094.2
020100 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          IC2094.2
020200 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      IC2094.2
020300     MOVE "****TEST DELETED****" TO RE-MARK.                      IC2094.2
020400 PRINT-DETAIL.                                                    IC2094.2
020500     IF REC-CT NOT EQUAL TO ZERO                                  IC2094.2
020600             MOVE "." TO PARDOT-X                                 IC2094.2
020700             MOVE REC-CT TO DOTVALUE.                             IC2094.2
020800     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      IC2094.2
020900     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               IC2094.2
021000        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 IC2094.2
021100          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 IC2094.2
021200     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              IC2094.2
021300     MOVE SPACE TO CORRECT-X.                                     IC2094.2
021400     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         IC2094.2
021500     MOVE     SPACE TO RE-MARK.                                   IC2094.2
021600 HEAD-ROUTINE.                                                    IC2094.2
021700     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IC2094.2
021800     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  IC2094.2
021900     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IC2094.2
022000     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  IC2094.2
022100 COLUMN-NAMES-ROUTINE.                                            IC2094.2
022200     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IC2094.2
022300     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IC2094.2
022400     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        IC2094.2
022500 END-ROUTINE.                                                     IC2094.2
022600     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.IC2094.2
022700 END-RTN-EXIT.                                                    IC2094.2
022800     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IC2094.2
022900 END-ROUTINE-1.                                                   IC2094.2
023000      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      IC2094.2
023100      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               IC2094.2
023200      ADD PASS-COUNTER TO ERROR-HOLD.                             IC2094.2
023300*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   IC2094.2
023400      MOVE PASS-COUNTER TO CCVS-E-4-1.                            IC2094.2
023500      MOVE ERROR-HOLD TO CCVS-E-4-2.                              IC2094.2
023600      MOVE CCVS-E-4 TO CCVS-E-2-2.                                IC2094.2
023700      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           IC2094.2
023800  END-ROUTINE-12.                                                 IC2094.2
023900      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        IC2094.2
024000     IF       ERROR-COUNTER IS EQUAL TO ZERO                      IC2094.2
024100         MOVE "NO " TO ERROR-TOTAL                                IC2094.2
024200         ELSE                                                     IC2094.2
024300         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       IC2094.2
024400     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           IC2094.2
024500     PERFORM WRITE-LINE.                                          IC2094.2
024600 END-ROUTINE-13.                                                  IC2094.2
024700     IF DELETE-COUNTER IS EQUAL TO ZERO                           IC2094.2
024800         MOVE "NO " TO ERROR-TOTAL  ELSE                          IC2094.2
024900         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      IC2094.2
025000     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   IC2094.2
025100     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IC2094.2
025200      IF   INSPECT-COUNTER EQUAL TO ZERO                          IC2094.2
025300          MOVE "NO " TO ERROR-TOTAL                               IC2094.2
025400      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   IC2094.2
025500      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            IC2094.2
025600      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          IC2094.2
025700     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           IC2094.2
025800 WRITE-LINE.                                                      IC2094.2
025900     ADD 1 TO RECORD-COUNT.                                       IC2094.2
026000     IF RECORD-COUNT GREATER 50                                   IC2094.2
026100         MOVE DUMMY-RECORD TO DUMMY-HOLD                          IC2094.2
026200         MOVE SPACE TO DUMMY-RECORD                               IC2094.2
026300         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  IC2094.2
026400         MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN             IC2094.2
026500         MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES     IC2094.2
026600         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          IC2094.2
026700         MOVE DUMMY-HOLD TO DUMMY-RECORD                          IC2094.2
026800         MOVE ZERO TO RECORD-COUNT.                               IC2094.2
026900     PERFORM WRT-LN.                                              IC2094.2
027000 WRT-LN.                                                          IC2094.2
027100     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               IC2094.2
027200     MOVE SPACE TO DUMMY-RECORD.                                  IC2094.2
027300 BLANK-LINE-PRINT.                                                IC2094.2
027400     PERFORM WRT-LN.                                              IC2094.2
027500 FAIL-ROUTINE.                                                    IC2094.2
027600     IF   COMPUTED-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE. IC2094.2
027700     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.IC2094.2
027800     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IC2094.2
027900     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   IC2094.2
028000     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IC2094.2
028100     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IC2094.2
028200     GO TO  FAIL-ROUTINE-EX.                                      IC2094.2
028300 FAIL-ROUTINE-WRITE.                                              IC2094.2
028400     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         IC2094.2
028500     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 IC2094.2
028600     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. IC2094.2
028700     MOVE   SPACES TO COR-ANSI-REFERENCE.                         IC2094.2
028800 FAIL-ROUTINE-EX. EXIT.                                           IC2094.2
028900 BAIL-OUT.                                                        IC2094.2
029000     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   IC2094.2
029100     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           IC2094.2
029200 BAIL-OUT-WRITE.                                                  IC2094.2
029300     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  IC2094.2
029400     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 IC2094.2
029500     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   IC2094.2
029600     MOVE   SPACES TO INF-ANSI-REFERENCE.                         IC2094.2
029700 BAIL-OUT-EX. EXIT.                                               IC2094.2
029800 CCVS1-EXIT.                                                      IC2094.2
029900     EXIT.                                                        IC2094.2
030000 CALL-TEST-1.                                                     IC2094.2
030100     MOVE SPACES TO TEST-AREA.                                    IC2094.2
030200     CALL "IC210A" USING TEST-AREA.                               IC2094.2
030300     MOVE "CALL...USING DATA-NM" TO FEATURE.                      IC2094.2
030400     MOVE "CALL-TEST-1" TO PAR-NAME.                              IC2094.2
030500     MOVE "MAIN PROGRAM CALLS SUBPROGRAM1" TO RE-MARK.            IC2094.2
030600     IF TEST1 = "Y" PERFORM PASS                                  IC2094.2
030700        GO TO CALL-WRITE-1.                                       IC2094.2
030800 CALL-FAIL-1.                                                     IC2094.2
030900     MOVE TEST1 TO COMPUTED-A.                                    IC2094.2
031000     MOVE "Y" TO CORRECT-A.                                       IC2094.2
031100     PERFORM FAIL.                                                IC2094.2
031200 CALL-WRITE-1.                                                    IC2094.2
031300     PERFORM PRINT-DETAIL.                                        IC2094.2
031400 CALL-TEST-2.                                                     IC2094.2
031500     MOVE "CALL...USING DATA-NM" TO FEATURE.                      IC2094.2
031600     MOVE "CALL-TEST-2" TO PAR-NAME.                              IC2094.2
031700     MOVE "SUBPROGRAM1 CALLS SUBPROGRAM2" TO RE-MARK.             IC2094.2
031800     IF TEST2 = "Y" PERFORM PASS                                  IC2094.2
031900        GO TO CALL-WRITE-2.                                       IC2094.2
032000 CALL-FAIL-2.                                                     IC2094.2
032100     MOVE TEST2 TO COMPUTED-A.                                    IC2094.2
032200     MOVE "Y" TO CORRECT-A.                                       IC2094.2
032300     PERFORM FAIL.                                                IC2094.2
032400 CALL-WRITE-2.                                                    IC2094.2
032500     PERFORM PRINT-DETAIL.                                        IC2094.2
032600 CALL-TEST-3.                                                     IC2094.2
032700     MOVE "CALL...USING DATA-NM" TO FEATURE.                      IC2094.2
032800     MOVE "CALL-TEST-3" TO PAR-NAME.                              IC2094.2
032900     MOVE "SUBPROGRAM1 CALLS SUBPROGRAM3" TO RE-MARK.             IC2094.2
033000     IF TEST3 = "Y" PERFORM PASS                                  IC2094.2
033100        GO TO CALL-WRITE-3.                                       IC2094.2
033200 CALL-FAIL-3.                                                     IC2094.2
033300     MOVE TEST3 TO COMPUTED-A.                                    IC2094.2
033400     MOVE "Y" TO CORRECT-A.                                       IC2094.2
033500     PERFORM FAIL.                                                IC2094.2
033600 CALL-WRITE-3.                                                    IC2094.2
033700     PERFORM PRINT-DETAIL.                                        IC2094.2
033800 CANCEL-TEST-1.                                                   IC2094.2
033900     MOVE "CANCEL" TO FEATURE.                                    IC2094.2
034000     MOVE "CANCEL-TEST-1" TO PAR-NAME.                            IC2094.2
034100     MOVE "SUBPROGRAM1 CANCELS SUBPROGRAM2" TO RE-MARK.           IC2094.2
034200     IF TEST4 = "Y" PERFORM PASS                                  IC2094.2
034300        GO TO CANCEL-WRITE-1.                                     IC2094.2
034400 CANCEL-FAIL-1.                                                   IC2094.2
034500     MOVE TEST4 TO COMPUTED-A.                                    IC2094.2
034600     MOVE "Y" TO CORRECT-A.                                       IC2094.2
034700     PERFORM FAIL.                                                IC2094.2
034800 CANCEL-WRITE-1.                                                  IC2094.2
034900     PERFORM PRINT-DETAIL.                                        IC2094.2
035000 CCVS-EXIT SECTION.                                               IC2094.2
035100 CCVS-999999.                                                     IC2094.2
035200     GO TO CLOSE-FILES.                                           IC2094.2

97%


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