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

Quelle  nc121m.cob   Sprache: Cobol

 
000100 IDENTIFICATION DIVISION.                                         NC1214.2
000200 PROGRAM-ID.                                                      NC1214.2
000300     NC121M.                                                      NC1214.2
000400****************************************************************  NC1214.2
000500*                                                              *  NC1214.2
000600*    VALIDATION FOR:-                                          *  NC1214.2
000700*                                                              *  NC1214.2
000800*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".NC1214.2
000900*                                                              *  NC1214.2
001000*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".NC1214.2
001100*                                                              *  NC1214.2
001200****************************************************************  NC1214.2
001300*                                                              *  NC1214.2
001400*      X-CARDS USED BY THIS PROGRAM ARE :-                     *  NC1214.2
001500*                                                              *  NC1214.2
001600*        X-55  - SYSTEM PRINTER NAME.                          *  NC1214.2
001700*        X-82  - SOURCE COMPUTER NAME.                         *  NC1214.2
001800*        X-83  - OBJECT COMPUTER NAME.                         *  NC1214.2
001900*                                                              *  NC1214.2
002000****************************************************************  NC1214.2
002100*                                                                 NC1214.2
002200*    PROGRAM NC121M TESTS THE USE OF INDEXED IDENTIFIERS WITH     NC1214.2
002300*    FORMATS 1 AND 2 OF THE "MULTIPLY" STATEMENT,  FORMATS        NC1214.2
002400*    1, 2 AND 3 OF THE "DIVIDE" STATEMENT,  FORMATS 1 AND 2 OF    NC1214.2
002500*    THE "PERFORM" STATEMENT AND THE "DISPLAY" STATEMENT          NC1214.2
002600*    GENERAL FORMAT.                                              NC1214.2
002700*    ONE AND TWO LEVELS OF INDEXING ARE USED AS WELL AS           NC1214.2
002800*    RELATIVE INDEXING.                                           NC1214.2
002900*                                                                 NC1214.2
003000 ENVIRONMENT DIVISION.                                            NC1214.2
003100 CONFIGURATION SECTION.                                           NC1214.2
003200 SOURCE-COMPUTER.                                                 NC1214.2
003300     Card0130.                                                    NC1214.2
003400 OBJECT-COMPUTER.                                                 NC1214.2
003500     Card0131.                                                    NC1214.2
003600 INPUT-OUTPUT SECTION.                                            NC1214.2
003700 FILE-CONTROL.                                                    NC1214.2
003800     SELECT PRINT-FILE ASSIGN TO                                  NC1214.2
003900     "C0085" .                                                    NC1214.2
004000 DATA DIVISION.                                                   NC1214.2
004100 FILE SECTION.                                                    NC1214.2
004200 FD  PRINT-FILE.                                                  NC1214.2
004300 01  PRINT-REC PICTURE X(120).                                    NC1214.2
004400 01  DUMMY-RECORD PICTURE X(120).                                 NC1214.2
004500 WORKING-STORAGE SECTION.                                         NC1214.2
004600 01  TABLE1.                                                      NC1214.2
004700     02  TABLE1-NUM              PICTURE S9V99                    NC1214.2
004800                                 OCCURS 10 TIMES                  NC1214.2
004900                                 INDEXED BY INDEX1.               NC1214.2
005000 01  TABLE2.                                                      NC1214.2
005100     02  TABLE2-NUM              PICTURE 9V9                      NC1214.2
005200                                 OCCURS 6 TIMES                   NC1214.2
005300                                 INDEXED BY INDEX2.               NC1214.2
005400 01  TABLE3.                                                      NC1214.2
005500     02  TABLE3-NUM              PICTURE 99V9                     NC1214.2
005600                                 OCCURS 6 TIMES                   NC1214.2
005700                                 INDEXED BY INDEX3.               NC1214.2
005800 01  TABLE4.                                                      NC1214.2
005900     02  TABLE4-NUM1             OCCURS 3 TIMES                   NC1214.2
006000                                 INDEXED BY INDEX4-1.             NC1214.2
006100         03 TABLE4-NUM2          PICTURE 99                       NC1214.2
006200                                 OCCURS 3 TIMES                   NC1214.2
006300                                 INDEXED BY INDEX4-2.             NC1214.2
006400 01  TABLE5.                                                      NC1214.2
006500     02  TABLE5-NUM              PIC 9                            NC1214.2
006600                                 OCCURS 2 TIMES                   NC1214.2
006700                                 INDEXED BY INDEX5.               NC1214.2
006800 01  TABLE6.                                                      NC1214.2
006900     02  TABLE6-REC              PICTURE X(10)                    NC1214.2
007000                                 OCCURS 2 TIMES                   NC1214.2
007100                                 INDEXED BY INDEX6.               NC1214.2
007200 01  NUM-9V9                     PICTURE 9V9.                     NC1214.2
007300 01  TEST-RESULTS.                                                NC1214.2
007400     02 FILLER                   PIC X      VALUE SPACE.          NC1214.2
007500     02 FEATURE                  PIC X(20)  VALUE SPACE.          NC1214.2
007600     02 FILLER                   PIC X      VALUE SPACE.          NC1214.2
007700     02 P-OR-F                   PIC X(5)   VALUE SPACE.          NC1214.2
007800     02 FILLER                   PIC X      VALUE SPACE.          NC1214.2
007900     02  PAR-NAME.                                                NC1214.2
008000       03 FILLER                 PIC X(19)  VALUE SPACE.          NC1214.2
008100       03  PARDOT-X              PIC X      VALUE SPACE.          NC1214.2
008200       03 DOTVALUE               PIC 99     VALUE ZERO.           NC1214.2
008300     02 FILLER                   PIC X(8)   VALUE SPACE.          NC1214.2
008400     02 RE-MARK                  PIC X(61).                       NC1214.2
008500 01  TEST-COMPUTED.                                               NC1214.2
008600     02 FILLER                   PIC X(30)  VALUE SPACE.          NC1214.2
008700     02 FILLER                   PIC X(17)  VALUE                 NC1214.2
008800            " COMPUTED=".                                   NC1214.2
008900     02 COMPUTED-X.                                               NC1214.2
009000     03 COMPUTED-A               PIC X(20)  VALUE SPACE.          NC1214.2
009100     03 COMPUTED-N               REDEFINES COMPUTED-A             NC1214.2
009200                                 PIC -9(9).9(9).                  NC1214.2
009300     03 COMPUTED-0V18 REDEFINES COMPUTED-A   PIC -.9(18).         NC1214.2
009400     03 COMPUTED-4V14 REDEFINES COMPUTED-A   PIC -9(4).9(14).     NC1214.2
009500     03 COMPUTED-14V4 REDEFINES COMPUTED-A   PIC -9(14).9(4).     NC1214.2
009600     03       CM-18V0 REDEFINES COMPUTED-A.                       NC1214.2
009700         04 COMPUTED-18V0                    PIC -9(18).          NC1214.2
009800         04 FILLER                           PIC X.               NC1214.2
009900     03 FILLER PIC X(50) VALUE SPACE.                             NC1214.2
010000 01  TEST-CORRECT.                                                NC1214.2
010100     02 FILLER PIC X(30) VALUE SPACE.                             NC1214.2
010200     02 FILLER PIC X(17) VALUE " CORRECT =".                NC1214.2
010300     02 CORRECT-X.                                                NC1214.2
010400     03 CORRECT-A                  PIC X(20) VALUE SPACE.         NC1214.2
010500     03 CORRECT-N    REDEFINES CORRECT-A     PIC -9(9).9(9).      NC1214.2
010600     03 CORRECT-0V18 REDEFINES CORRECT-A     PIC -.9(18).         NC1214.2
010700     03 CORRECT-4V14 REDEFINES CORRECT-A     PIC -9(4).9(14).     NC1214.2
010800     03 CORRECT-14V4 REDEFINES CORRECT-A     PIC -9(14).9(4).     NC1214.2
010900     03      CR-18V0 REDEFINES CORRECT-A.                         NC1214.2
011000         04 CORRECT-18V0                     PIC -9(18).          NC1214.2
011100         04 FILLER                           PIC X.               NC1214.2
011200     03 FILLER PIC X(2) VALUE SPACE.                              NC1214.2
011300     03 COR-ANSI-REFERENCE             PIC X(48) VALUE SPACE.     NC1214.2
011400 01  CCVS-C-1.                                                    NC1214.2
011500     02 FILLER  PIC IS X(99)    VALUE IS " FEATURE PANC1214.2
011600-    "SS PARAGRAPH-NAME NC1214.2
011700-    " REMARKS".                                            NC1214.2
011800     02 FILLER                     PIC X(20)    VALUE SPACE.      NC1214.2
011900 01  CCVS-C-2.                                                    NC1214.2
012000     02 FILLER                     PIC X        VALUE SPACE.      NC1214.2
012100     02 FILLER                     PIC X(6)     VALUE "TESTED".   NC1214.2
012200     02 FILLER                     PIC X(15)    VALUE SPACE.      NC1214.2
012300     02 FILLER                     PIC X(4)     VALUE "FAIL".     NC1214.2
012400     02 FILLER                     PIC X(94)    VALUE SPACE.      NC1214.2
012500 01  REC-SKL-SUB                   PIC 9(2)     VALUE ZERO.       NC1214.2
012600 01  REC-CT                        PIC 99       VALUE ZERO.       NC1214.2
012700 01  DELETE-COUNTER                PIC 999      VALUE ZERO.       NC1214.2
012800 01  ERROR-COUNTER                 PIC 999      VALUE ZERO.       NC1214.2
012900 01  INSPECT-COUNTER               PIC 999      VALUE ZERO.       NC1214.2
013000 01  PASS-COUNTER                  PIC 999      VALUE ZERO.       NC1214.2
013100 01  TOTAL-ERROR                   PIC 999      VALUE ZERO.       NC1214.2
013200 01  ERROR-HOLD                    PIC 999      VALUE ZERO.       NC1214.2
013300 01  DUMMY-HOLD                    PIC X(120)   VALUE SPACE.      NC1214.2
013400 01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.       NC1214.2
013500 01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.     NC1214.2
013600 01  CCVS-H-1.                                                    NC1214.2
013700     02  FILLER                    PIC X(39)    VALUE SPACES.     NC1214.2
013800     02  FILLER                    PIC X(42)    VALUE             NC1214.2
013900     "OFFICIAL COBOL COMPILER VALIDATION SYSTEM".                 NC1214.2
014000     02  FILLER                    PIC X(39)    VALUE SPACES.     NC1214.2
014100 01  CCVS-H-2A.                                                   NC1214.2
014200   02  FILLER                        PIC X(40)  VALUE SPACE.      NC1214.2
014300   02  FILLER                        PIC X(7)   VALUE "CCVS85 ".  NC1214.2
014400   02  FILLER                        PIC XXXX   VALUE             NC1214.2
014500     "4.2 ".                                                      NC1214.2
014600   02  FILLER                        PIC X(28)  VALUE             NC1214.2
014700            " COPY - NOT FOR DISTRIBUTION".                       NC1214.2
014800   02  FILLER                        PIC X(41)  VALUE SPACE.      NC1214.2
014900                                                                  NC1214.2
015000 01  CCVS-H-2B.                                                   NC1214.2
015100   02  FILLER                        PIC X(15)  VALUE             NC1214.2
015200            "TEST RESULT OF ".                                    NC1214.2
015300   02  TEST-ID                       PIC X(9).                    NC1214.2
015400   02  FILLER                        PIC X(4)   VALUE             NC1214.2
015500            " IN ".                                               NC1214.2
015600   02  FILLER                        PIC X(12)  VALUE             NC1214.2
015700     " HIGH ".                                              NC1214.2
015800   02  FILLER                        PIC X(22)  VALUE             NC1214.2
015900            " LEVEL VALIDATION FOR ".                             NC1214.2
016000   02  FILLER                        PIC X(58)  VALUE             NC1214.2
016100     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1214.2
016200 01  CCVS-H-3.                                                    NC1214.2
016300     02  FILLER                      PIC X(34)  VALUE             NC1214.2
016400            " FOR OFFICIAL USE ONLY ".                         NC1214.2
016500     02  FILLER                      PIC X(58)  VALUE             NC1214.2
016600     "COBOL 85 VERSION 4.2, Apr 1993 SSVG ".NC1214.2
016700     02  FILLER                      PIC X(28)  VALUE             NC1214.2
016800            " COPYRIGHT 1985 ".                                NC1214.2
016900 01  CCVS-E-1.                                                    NC1214.2
017000     02 FILLER                       PIC X(52)  VALUE SPACE.      NC1214.2
017100     02 FILLER  PIC X(14) VALUE IS "END OF TEST- ".              NC1214.2
017200     02 ID-AGAIN                     PIC X(9).                    NC1214.2
017300     02 FILLER                       PIC X(45)  VALUE SPACES.     NC1214.2
017400 01  CCVS-E-2.                                                    NC1214.2
017500     02  FILLER                      PIC X(31)  VALUE SPACE.      NC1214.2
017600     02  FILLER                      PIC X(21)  VALUE SPACE.      NC1214.2
017700     02 CCVS-E-2-2.                                               NC1214.2
017800         03 ERROR-TOTAL              PIC XXX    VALUE SPACE.      NC1214.2
017900         03 FILLER                   PIC X      VALUE SPACE.      NC1214.2
018000         03 ENDER-DESC               PIC X(44)  VALUE             NC1214.2
018100            "ERRORS ENCOUNTERED".                                 NC1214.2
018200 01  CCVS-E-3.                                                    NC1214.2
018300     02  FILLER                      PIC X(22)  VALUE             NC1214.2
018400            " FOR OFFICIAL USE ONLY".                             NC1214.2
018500     02  FILLER                      PIC X(12)  VALUE SPACE.      NC1214.2
018600     02  FILLER                      PIC X(58)  VALUE             NC1214.2
018700     "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".NC1214.2
018800     02  FILLER                      PIC X(13)  VALUE SPACE.      NC1214.2
018900     02 FILLER                       PIC X(15)  VALUE             NC1214.2
019000             " COPYRIGHT 1985".                                   NC1214.2
019100 01  CCVS-E-4.                                                    NC1214.2
019200     02 CCVS-E-4-1                   PIC XXX    VALUE SPACE.      NC1214.2
019300     02 FILLER                       PIC X(4)   VALUE " OF ".     NC1214.2
019400     02 CCVS-E-4-2                   PIC XXX    VALUE SPACE.      NC1214.2
019500     02 FILLER                       PIC X(40)  VALUE             NC1214.2
019600      " TESTS WERE EXECUTED SUCCESSFULLY".                       NC1214.2
019700 01  XXINFO.                                                      NC1214.2
019800     02 FILLER                       PIC X(19)  VALUE             NC1214.2
019900            "*** INFORMATION ***".                                NC1214.2
020000     02 INFO-TEXT.                                                NC1214.2
020100       04 FILLER                     PIC X(8)   VALUE SPACE.      NC1214.2
020200       04 XXCOMPUTED                 PIC X(20).                   NC1214.2
020300       04 FILLER                     PIC X(5)   VALUE SPACE.      NC1214.2
020400       04 XXCORRECT                  PIC X(20).                   NC1214.2
020500     02 INF-ANSI-REFERENCE           PIC X(48).                   NC1214.2
020600 01  HYPHEN-LINE.                                                 NC1214.2
020700     02 FILLER  PIC IS X VALUE IS SPACE.                          NC1214.2
020800     02 FILLER  PIC IS X(65)    VALUE IS "************************NC1214.2
020900-    "*****************************************".                 NC1214.2
021000     02 FILLER  PIC IS X(54)    VALUE IS "************************NC1214.2
021100-    "******************************".                            NC1214.2
021200 01  CCVS-PGM-ID                     PIC X(9)   VALUE             NC1214.2
021300     "NC121M".                                                    NC1214.2
021400 PROCEDURE DIVISION.                                              NC1214.2
021500 CCVS1 SECTION.                                                   NC1214.2
021600 OPEN-FILES.                                                      NC1214.2
021700     OPEN     OUTPUT PRINT-FILE.                                  NC1214.2
021800     MOVE CCVS-PGM-ID TO TEST-ID. MOVE CCVS-PGM-ID TO ID-AGAIN.   NC1214.2
021900     MOVE    SPACE TO TEST-RESULTS.                               NC1214.2
022000     PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE.             NC1214.2
022100     GO TO CCVS1-EXIT.                                            NC1214.2
022200 CLOSE-FILES.                                                     NC1214.2
022300     PERFORM END-ROUTINE THRU END-ROUTINE-13. CLOSE PRINT-FILE.   NC1214.2
022400 TERMINATE-CCVS.                                                  NC1214.2
022500     EXIT PROGRAM.                                                NC1214.2
022600 TERMINATE-CALL.                                                  NC1214.2
022700     STOP     RUN.                                                NC1214.2
022800 INSPT. MOVE "INSPT" TO P-OR-F. ADD 1 TO INSPECT-COUNTER.         NC1214.2
022900 PASS.  MOVE "PASS " TO P-OR-F.  ADD 1 TO PASS-COUNTER.           NC1214.2
023000 FAIL.  MOVE "FAIL*" TO P-OR-F.  ADD 1 TO ERROR-COUNTER.          NC1214.2
023100 DE-LETE.  MOVE "*****" TO P-OR-F.  ADD 1 TO DELETE-COUNTER.      NC1214.2
023200     MOVE "****TEST DELETED****" TO RE-MARK.                      NC1214.2
023300 PRINT-DETAIL.                                                    NC1214.2
023400     IF REC-CT NOT EQUAL TO ZERO                                  NC1214.2
023500             MOVE "." TO PARDOT-X                                 NC1214.2
023600             MOVE REC-CT TO DOTVALUE.                             NC1214.2
023700     MOVE     TEST-RESULTS TO PRINT-REC. PERFORM WRITE-LINE.      NC1214.2
023800     IF P-OR-F EQUAL TO "FAIL*"  PERFORM WRITE-LINE               NC1214.2
023900        PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                 NC1214.2
024000          ELSE PERFORM BAIL-OUT THRU BAIL-OUT-EX.                 NC1214.2
024100     MOVE SPACE TO P-OR-F. MOVE SPACE TO COMPUTED-X.              NC1214.2
024200     MOVE SPACE TO CORRECT-X.                                     NC1214.2
024300     IF     REC-CT EQUAL TO ZERO  MOVE SPACE TO PAR-NAME.         NC1214.2
024400     MOVE     SPACE TO RE-MARK.                                   NC1214.2
024500 HEAD-ROUTINE.                                                    NC1214.2
024600     MOVE CCVS-H-1  TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC1214.2
024700     MOVE CCVS-H-2A TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.  NC1214.2
024800     MOVE CCVS-H-2B TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC1214.2
024900     MOVE CCVS-H-3  TO DUMMY-RECORD. PERFORM WRITE-LINE 3 TIMES.  NC1214.2
025000 COLUMN-NAMES-ROUTINE.                                            NC1214.2
025100     MOVE CCVS-C-1 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC1214.2
025200     MOVE CCVS-C-2 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1214.2
025300     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE.        NC1214.2
025400 END-ROUTINE.                                                     NC1214.2
025500     MOVE HYPHEN-LINE TO DUMMY-RECORD. PERFORM WRITE-LINE 5 TIMES.NC1214.2
025600 END-RTN-EXIT.                                                    NC1214.2
025700     MOVE CCVS-E-1 TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1214.2
025800 END-ROUTINE-1.                                                   NC1214.2
025900      ADD ERROR-COUNTER TO ERROR-HOLD ADD INSPECT-COUNTER TO      NC1214.2
026000      ERROR-HOLD. ADD DELETE-COUNTER TO ERROR-HOLD.               NC1214.2
026100      ADD PASS-COUNTER TO ERROR-HOLD.                             NC1214.2
026200*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.   NC1214.2
026300      MOVE PASS-COUNTER TO CCVS-E-4-1.                            NC1214.2
026400      MOVE ERROR-HOLD TO CCVS-E-4-2.                              NC1214.2
026500      MOVE CCVS-E-4 TO CCVS-E-2-2.                                NC1214.2
026600      MOVE CCVS-E-2 TO DUMMY-RECORD PERFORM WRITE-LINE.           NC1214.2
026700  END-ROUTINE-12.                                                 NC1214.2
026800      MOVE "TEST(S) FAILED" TO ENDER-DESC.                        NC1214.2
026900     IF       ERROR-COUNTER IS EQUAL TO ZERO                      NC1214.2
027000         MOVE "NO " TO ERROR-TOTAL                                NC1214.2
027100         ELSE                                                     NC1214.2
027200         MOVE ERROR-COUNTER TO ERROR-TOTAL.                       NC1214.2
027300     MOVE     CCVS-E-2 TO DUMMY-RECORD.                           NC1214.2
027400     PERFORM WRITE-LINE.                                          NC1214.2
027500 END-ROUTINE-13.                                                  NC1214.2
027600     IF DELETE-COUNTER IS EQUAL TO ZERO                           NC1214.2
027700         MOVE "NO " TO ERROR-TOTAL  ELSE                          NC1214.2
027800         MOVE DELETE-COUNTER TO ERROR-TOTAL.                      NC1214.2
027900     MOVE "TEST(S) DELETED " TO ENDER-DESC.                   NC1214.2
028000     MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC1214.2
028100      IF   INSPECT-COUNTER EQUAL TO ZERO                          NC1214.2
028200          MOVE "NO " TO ERROR-TOTAL                               NC1214.2
028300      ELSE MOVE INSPECT-COUNTER TO ERROR-TOTAL.                   NC1214.2
028400      MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC.            NC1214.2
028500      MOVE CCVS-E-2 TO DUMMY-RECORD. PERFORM WRITE-LINE.          NC1214.2
028600     MOVE CCVS-E-3 TO DUMMY-RECORD. PERFORM WRITE-LINE.           NC1214.2
028700 WRITE-LINE.                                                      NC1214.2
028800     ADD 1 TO RECORD-COUNT.                                       NC1214.2
028900     IF RECORD-COUNT GREATER 42                                   NC1214.2
029000         MOVE DUMMY-RECORD TO DUMMY-HOLD                          NC1214.2
029100         MOVE SPACE TO DUMMY-RECORD                               NC1214.2
029200         WRITE DUMMY-RECORD AFTER ADVANCING PAGE                  NC1214.2
029300         MOVE CCVS-H-1  TO DUMMY-RECORD  PERFORM WRT-LN 2 TIMES   NC1214.2
029400         MOVE CCVS-H-2A TO DUMMY-RECORD  PERFORM WRT-LN 2 TIMES   NC1214.2
029500         MOVE CCVS-H-2B TO DUMMY-RECORD  PERFORM WRT-LN 3 TIMES   NC1214.2
029600         MOVE CCVS-H-3  TO DUMMY-RECORD  PERFORM WRT-LN 3 TIMES   NC1214.2
029700         MOVE CCVS-C-1  TO DUMMY-RECORD  PERFORM WRT-LN           NC1214.2
029800         MOVE CCVS-C-2  TO DUMMY-RECORD  PERFORM WRT-LN           NC1214.2
029900         MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN          NC1214.2
030000         MOVE DUMMY-HOLD TO DUMMY-RECORD                          NC1214.2
030100         MOVE ZERO TO RECORD-COUNT.                               NC1214.2
030200     PERFORM WRT-LN.                                              NC1214.2
030300 WRT-LN.                                                          NC1214.2
030400     WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES.               NC1214.2
030500     MOVE SPACE TO DUMMY-RECORD.                                  NC1214.2
030600 BLANK-LINE-PRINT.                                                NC1214.2
030700     PERFORM WRT-LN.                                              NC1214.2
030800 FAIL-ROUTINE.                                                    NC1214.2
030900     IF     COMPUTED-X NOT EQUAL TO SPACE                         NC1214.2
031000            GO TO FAIL-ROUTINE-WRITE.                             NC1214.2
031100     IF     CORRECT-X NOT EQUAL TO SPACE GO TO FAIL-ROUTINE-WRITE.NC1214.2
031200     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC1214.2
031300     MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT.   NC1214.2
031400     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1214.2
031500     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC1214.2
031600     GO TO  FAIL-ROUTINE-EX.                                      NC1214.2
031700 FAIL-ROUTINE-WRITE.                                              NC1214.2
031800     MOVE   TEST-COMPUTED TO PRINT-REC PERFORM WRITE-LINE         NC1214.2
031900     MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE.                 NC1214.2
032000     MOVE   TEST-CORRECT TO PRINT-REC PERFORM WRITE-LINE 2 TIMES. NC1214.2
032100     MOVE   SPACES TO COR-ANSI-REFERENCE.                         NC1214.2
032200 FAIL-ROUTINE-EX. EXIT.                                           NC1214.2
032300 BAIL-OUT.                                                        NC1214.2
032400     IF     COMPUTED-A NOT EQUAL TO SPACE GO TO BAIL-OUT-WRITE.   NC1214.2
032500     IF     CORRECT-A EQUAL TO SPACE GO TO BAIL-OUT-EX.           NC1214.2
032600 BAIL-OUT-WRITE.                                                  NC1214.2
032700     MOVE CORRECT-A TO XXCORRECT. MOVE COMPUTED-A TO XXCOMPUTED.  NC1214.2
032800     MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE.                 NC1214.2
032900     MOVE   XXINFO TO DUMMY-RECORD. PERFORM WRITE-LINE 2 TIMES.   NC1214.2
033000     MOVE   SPACES TO INF-ANSI-REFERENCE.                         NC1214.2
033100 BAIL-OUT-EX. EXIT.                                               NC1214.2
033200 CCVS1-EXIT.                                                      NC1214.2
033300     EXIT.                                                        NC1214.2
033400 SECT-NC121M-001 SECTION.                                         NC1214.2
033500 BUILD-TABLE1.                                                    NC1214.2
033600     MOVE 4.00 TO TABLE1-NUM (1).                                 NC1214.2
033700     MOVE 1.34 TO TABLE1-NUM (2).                                 NC1214.2
033800     MOVE 7.00 TO TABLE1-NUM (3).                                 NC1214.2
033900     MOVE 3.00 TO TABLE1-NUM (4).                                 NC1214.2
034000     MOVE 2.00 TO TABLE1-NUM (5).                                 NC1214.2
034100     MOVE 1.50 TO TABLE1-NUM (6).                                 NC1214.2
034200     MOVE 3.50 TO TABLE1-NUM (7).                                 NC1214.2
034300     MOVE 0.00 TO TABLE1-NUM (8).                                 NC1214.2
034400     MOVE 5.00 TO TABLE1-NUM (9).                                 NC1214.2
034500     MOVE -9.00 TO TABLE1-NUM (10).                               NC1214.2
034600 BUILD-TABLE2.                                                    NC1214.2
034700     MOVE 1.0 TO TABLE2-NUM (1).                                  NC1214.2
034800     MOVE 6.0 TO TABLE2-NUM (2).                                  NC1214.2
034900     MOVE 3.0 TO TABLE2-NUM (3).                                  NC1214.2
035000     MOVE 2.0 TO TABLE2-NUM (4).                                  NC1214.2
035100     MOVE 9.7 TO TABLE2-NUM (5).                                  NC1214.2
035200     MOVE 1.2 TO TABLE2-NUM (6).                                  NC1214.2
035300 BUILD-TABLE4.                                                    NC1214.2
035400     MOVE 01 TO TABLE4-NUM2 (1  1).                               NC1214.2
035500     MOVE 02 TO TABLE4-NUM2 (1  2).                               NC1214.2
035600     MOVE 03 TO TABLE4-NUM2 (1  3).                               NC1214.2
035700     MOVE 12 TO TABLE4-NUM2 (2  1).                               NC1214.2
035800     MOVE 24 TO TABLE4-NUM2 (2  2).                               NC1214.2
035900     MOVE 25 TO TABLE4-NUM2 (2  3).                               NC1214.2
036000     MOVE 14 TO TABLE4-NUM2 (3  1).                               NC1214.2
036100     MOVE 15 TO TABLE4-NUM2 (3  2).                               NC1214.2
036200     MOVE 16 TO TABLE4-NUM2 (3  3).                               NC1214.2
036300 BUILD-TABLE5.                                                    NC1214.2
036400     MOVE 3 TO TABLE5-NUM (1).                                    NC1214.2
036500     MOVE 2 TO TABLE5-NUM (2).                                    NC1214.2
036600 BUILD-TABLE6.                                                    NC1214.2
036700     MOVE "LITERAL-01" TO TABLE6-REC (1).                         NC1214.2
036800     MOVE "0123456789" TO TABLE6-REC (2).                         NC1214.2
036900 IND-INIT-GF-1.                                                   NC1214.2
037000     MOVE  "IV-21 4.3.8.2.3/4" TO ANSI-REFERENCE.                 NC1214.2
037100     MOVE "MULTIPLY BY" TO FEATURE.                               NC1214.2
037200     MOVE 2.0 TO NUM-9V9.                                         NC1214.2
037300     SET INDEX1 TO 1.                                             NC1214.2
037400 IND-TEST-GF-1-0.                                                 NC1214.2
037500     MULTIPLY TABLE1-NUM (INDEX1) BY NUM-9V9.                     NC1214.2
037600 IND-TEST-GF-1-1.                                                 NC1214.2
037700     IF NUM-9V9 EQUAL TO 8.0                                      NC1214.2
037800        PERFORM PASS                                              NC1214.2
037900        ELSE GO TO IND-FAIL-GF-1.                                 NC1214.2
038000     GO TO IND-WRITE-GF-1.                                        NC1214.2
038100 IND-DELETE-GF-1.                                                 NC1214.2
038200     PERFORM DE-LETE.                                             NC1214.2
038300     GO TO IND-WRITE-GF-1.                                        NC1214.2
038400 IND-FAIL-GF-1.                                                   NC1214.2
038500     PERFORM FAIL.                                                NC1214.2
038600     MOVE NUM-9V9 TO COMPUTED-14V4.                               NC1214.2
038700     MOVE 8.0 TO CORRECT-14V4.                                    NC1214.2
038800 IND-WRITE-GF-1.                                                  NC1214.2
038900     MOVE "IND-TEST-GF-1" TO PAR-NAME.                            NC1214.2
039000     PERFORM PRINT-DETAIL.                                        NC1214.2
039100 IND-INIT-GF-2.                                                   NC1214.2
039200     MOVE  "IV-21 4.3.8.2.3/4" TO ANSI-REFERENCE.                 NC1214.2
039300     MOVE "MULTIPLY ROUNDED" TO FEATURE.                          NC1214.2
039400     MOVE 4.0 TO NUM-9V9.                                         NC1214.2
039500     SET INDEX1 TO 2.                                             NC1214.2
039600 IND-TEST-GF-2-0.                                                 NC1214.2
039700     MULTIPLY TABLE1-NUM (INDEX1) BY NUM-9V9 ROUNDED.             NC1214.2
039800 IND-TEST-GF-2-1.                                                 NC1214.2
039900     IF NUM-9V9 EQUAL TO 5.4                                      NC1214.2
040000        PERFORM PASS                                              NC1214.2
040100        ELSE GO TO IND-FAIL-GF-2.                                 NC1214.2
040200     GO TO IND-WRITE-GF-2.                                        NC1214.2
040300 IND-DELETE-GF-2.                                                 NC1214.2
040400     PERFORM DE-LETE.                                             NC1214.2
040500     GO TO IND-WRITE-GF-2.                                        NC1214.2
040600 IND-FAIL-GF-2.                                                   NC1214.2
040700     PERFORM FAIL.                                                NC1214.2
040800     MOVE NUM-9V9 TO COMPUTED-14V4.                               NC1214.2
040900     MOVE 5.4 TO CORRECT-14V4.                                    NC1214.2
041000 IND-WRITE-GF-2.                                                  NC1214.2
041100     MOVE "IND-TEST-GF-2" TO PAR-NAME.                            NC1214.2
041200     PERFORM PRINT-DETAIL.                                        NC1214.2
041300 IND-INIT-GF-3.                                                   NC1214.2
041400     MOVE  "IV-21 4.3.8.2.3/4" TO ANSI-REFERENCE.                 NC1214.2
041500     MOVE "MULTIPLY ON SIZE ERR" TO FEATURE.                      NC1214.2
041600     MOVE 6.0 TO NUM-9V9.                                         NC1214.2
041700     SET INDEX1 TO 3.                                             NC1214.2
041800 IND-TEST-GF-3-1.                                                 NC1214.2
041900     MULTIPLY TABLE1-NUM (INDEX1) BY NUM-9V9 ON SIZE ERROR        NC1214.2
042000        PERFORM PASS                                              NC1214.2
042100        GO TO IND-WRITE-GF-3-1.                                   NC1214.2
042200     GO TO IND-FAIL-GF-3-1.                                       NC1214.2
042300 IND-DELETE-GF-3-1.                                               NC1214.2
042400     PERFORM DE-LETE.                                             NC1214.2
042500     GO TO IND-WRITE-GF-3-1.                                      NC1214.2
042600 IND-FAIL-GF-3-1.                                                 NC1214.2
042700     PERFORM FAIL.                                                NC1214.2
042800     MOVE NUM-9V9 TO COMPUTED-14V4.                               NC1214.2
042900     MOVE "ON SIZE ERROR NOT EXECUTED" TO RE-MARK.                NC1214.2
043000 IND-WRITE-GF-3-1.                                                NC1214.2
043100     MOVE "IND-TEST-GF-3-1" TO PAR-NAME.                          NC1214.2
043200     PERFORM PRINT-DETAIL.                                        NC1214.2
043300 IND-TEST-GF-3-2.                                                 NC1214.2
043400     IF      NUM-9V9 = 6.0                                        NC1214.2
043500             PERFORM PASS                                         NC1214.2
043600             GO TO   IND-WRITE-GF-3-2.                            NC1214.2
043700     GO TO   IND-FAIL-GF-3-2.                                     NC1214.2
043800 IND-DELETE-GF-3-2.                                               NC1214.2
043900     PERFORM DE-LETE.                                             NC1214.2
044000     GO TO IND-WRITE-GF-3-2.                                      NC1214.2
044100 IND-FAIL-GF-3-2.                                                 NC1214.2
044200     PERFORM FAIL.                                                NC1214.2
044300     MOVE NUM-9V9 TO COMPUTED-14V4.                               NC1214.2
044400     MOVE 6.0 TO CORRECT-14V4.                                    NC1214.2
044500     MOVE "WRONGLY AFFECTED BY SIZE ERROR" TO RE-MARK.            NC1214.2
044600 IND-WRITE-GF-3-2.                                                NC1214.2
044700     MOVE "IND-TEST-GF-3-2" TO PAR-NAME.                          NC1214.2
044800     PERFORM PRINT-DETAIL.                                        NC1214.2
044900 IND-INIT-GF-4.                                                   NC1214.2
045000     MOVE  "IV-21 4.3.8.2.3/4" TO ANSI-REFERENCE.                 NC1214.2
045100     MOVE "MULTIPLY BY" TO FEATURE.                               NC1214.2
045200     SET INDEX1 TO 1.                                             NC1214.2
045300     SET INDEX2 TO 1.                                             NC1214.2
045400 IND-TEST-GF-4-0.                                                 NC1214.2
045500     MULTIPLY TABLE1-NUM (INDEX1) BY TABLE2-NUM (INDEX2).         NC1214.2
045600 IND-TEST-GF-4-1.                                                 NC1214.2
045700     IF TABLE2-NUM (INDEX2) EQUAL TO 4.0                          NC1214.2
045800        PERFORM PASS                                              NC1214.2
045900        ELSE GO TO IND-FAIL-GF-4.                                 NC1214.2
046000     GO TO IND-WRITE-GF-4.                                        NC1214.2
046100 IND-DELETE-GF-4.                                                 NC1214.2
046200     PERFORM DE-LETE.                                             NC1214.2
046300     GO TO IND-WRITE-GF-4.                                        NC1214.2
046400 IND-FAIL-GF-4.                                                   NC1214.2
046500     PERFORM FAIL.                                                NC1214.2
046600     MOVE TABLE2-NUM (INDEX2) TO COMPUTED-14V4.                   NC1214.2
046700     MOVE 4.0 TO CORRECT-14V4.                                    NC1214.2
046800 IND-WRITE-GF-4.                                                  NC1214.2
046900     MOVE "IND-TEST-GF-4" TO PAR-NAME.                            NC1214.2
047000     PERFORM PRINT-DETAIL.                                        NC1214.2
047100 IND-INIT-GF-5.                                                   NC1214.2
047200     MOVE  "IV-21 4.3.8.2.3/4" TO ANSI-REFERENCE.                 NC1214.2
047300     MOVE "MULTIPLY ROUNDED" TO FEATURE.                          NC1214.2
047400     PERFORM BUILD-TABLE2.                                        NC1214.2
047500     SET INDEX1 TO 2.                                             NC1214.2
047600     SET INDEX2 TO 2.                                             NC1214.2
047700 IND-TEST-GF-5-0.                                                 NC1214.2
047800     MULTIPLY TABLE1-NUM (INDEX1) BY TABLE2-NUM (INDEX2) ROUNDED. NC1214.2
047900 IND-TEST-GF-5-1.                                                 NC1214.2
048000     IF TABLE2-NUM (INDEX2) EQUAL TO 8.0                          NC1214.2
048100        PERFORM PASS                                              NC1214.2
048200        ELSE GO TO IND-FAIL-GF-5.                                 NC1214.2
048300     GO TO IND-WRITE-GF-5.                                        NC1214.2
048400 IND-DELETE-GF-5.                                                 NC1214.2
048500     PERFORM DE-LETE.                                             NC1214.2
048600     GO TO IND-WRITE-GF-5.                                        NC1214.2
048700 IND-FAIL-GF-5.                                                   NC1214.2
048800     PERFORM FAIL.                                                NC1214.2
048900     MOVE TABLE2-NUM (INDEX2) TO COMPUTED-14V4.                   NC1214.2
049000     MOVE 8.0 TO CORRECT-14V4.                                    NC1214.2
049100 IND-WRITE-GF-5.                                                  NC1214.2
049200     MOVE "IND-TEST-GF-5" TO PAR-NAME.                            NC1214.2
049300     PERFORM PRINT-DETAIL.                                        NC1214.2
049400 IND-INIT-GF-6.                                                   NC1214.2
049500     MOVE  "IV-21 4.3.8.2.3/4" TO ANSI-REFERENCE.                 NC1214.2
049600     MOVE "MULTIPLY ON SIZE ERR" TO FEATURE.                      NC1214.2
049700     PERFORM BUILD-TABLE2.                                        NC1214.2
049800     SET INDEX1 TO 3.                                             NC1214.2
049900     SET INDEX2 TO 3.                                             NC1214.2
050000 IND-TEST-GF-6-1.                                                 NC1214.2
050100     MULTIPLY TABLE1-NUM (INDEX1) BY TABLE2-NUM (INDEX2)          NC1214.2
050200        ON SIZE ERROR                                             NC1214.2
050300        PERFORM PASS                                              NC1214.2
050400        GO TO IND-WRITE-GF-6-1.                                   NC1214.2
050500     GO TO IND-FAIL-GF-6-1.                                       NC1214.2
050600 IND-DELETE-GF-6-1.                                               NC1214.2
050700     PERFORM DE-LETE.                                             NC1214.2
050800     GO TO IND-WRITE-GF-6-1.                                      NC1214.2
050900 IND-FAIL-GF-6-1.                                                 NC1214.2
051000     PERFORM FAIL.                                                NC1214.2
051100     MOVE TABLE2-NUM (INDEX2) TO COMPUTED-14V4.                   NC1214.2
051200     MOVE "ON SIZE ERROR NOT EXECUTED" TO RE-MARK.                NC1214.2
051300 IND-WRITE-GF-6-1.                                                NC1214.2
051400     MOVE "IND-TEST-GF-6-1" TO PAR-NAME.                          NC1214.2
051500     PERFORM PRINT-DETAIL.                                        NC1214.2
051600 IND-TEST-GF-6-2.                                                 NC1214.2
051700     IF      TABLE2-NUM (INDEX2) = 3.0                            NC1214.2
051800             PERFORM PASS                                         NC1214.2
051900             GO TO   IND-WRITE-GF-6-2.                            NC1214.2
052000     GO TO   IND-FAIL-GF-6-2.                                     NC1214.2
052100 IND-DELETE-GF-6-2.                                               NC1214.2
052200     PERFORM DE-LETE.                                             NC1214.2
052300     GO TO IND-WRITE-GF-6-2.                                      NC1214.2
052400 IND-FAIL-GF-6-2.                                                 NC1214.2
052500     PERFORM FAIL.                                                NC1214.2
052600     MOVE TABLE2-NUM (INDEX2) TO COMPUTED-14V4.                   NC1214.2
052700     MOVE 3.0 TO CORRECT-14V4.                                    NC1214.2
052800     MOVE "WRONGLY AFFECTED BY SIZE ERROR" TO RE-MARK.            NC1214.2
052900 IND-WRITE-GF-6-2.                                                NC1214.2
053000     MOVE "IND-TEST-GF-6-2" TO PAR-NAME.                          NC1214.2
053100     PERFORM PRINT-DETAIL.                                        NC1214.2
053200 IND-INIT-GF-7.                                                   NC1214.2
053300     MOVE  "IV-21 4.3.8.2.3/4" TO ANSI-REFERENCE.                 NC1214.2
053400     MOVE "MULTIPLY BY GIVING" TO FEATURE.                        NC1214.2
053500     PERFORM BUILD-TABLE2.                                        NC1214.2
053600     MOVE ZERO TO NUM-9V9.                                        NC1214.2
053700     SET INDEX1 TO 1.                                             NC1214.2
053800 IND-TEST-GF-7-0.                                                 NC1214.2
053900     MULTIPLY 2 BY TABLE1-NUM (INDEX1) GIVING NUM-9V9.            NC1214.2
054000 IND-TEST-GF-7-1.                                                 NC1214.2
054100     IF NUM-9V9 EQUAL TO 8.0                                      NC1214.2
054200        PERFORM PASS                                              NC1214.2
054300        ELSE GO TO IND-FAIL-GF-7.                                 NC1214.2
054400     GO TO IND-WRITE-GF-7.                                        NC1214.2
054500 IND-DELETE-GF-7.                                                 NC1214.2
054600     PERFORM DE-LETE.                                             NC1214.2
054700     GO TO IND-WRITE-GF-7.                                        NC1214.2
054800 IND-FAIL-GF-7.                                                   NC1214.2
054900     PERFORM FAIL.                                                NC1214.2
055000     MOVE NUM-9V9 TO COMPUTED-14V4.                               NC1214.2
055100     MOVE 8.0 TO CORRECT-14V4.                                    NC1214.2
055200 IND-WRITE-GF-7.                                                  NC1214.2
055300     MOVE "IND-TEST-GF-7" TO PAR-NAME.                            NC1214.2
055400     PERFORM PRINT-DETAIL.                                        NC1214.2
055500 IND-INIT-GF-8.                                                   NC1214.2
055600     MOVE  "IV-21 4.3.8.2.3/4" TO ANSI-REFERENCE.                 NC1214.2
055700     MOVE "MULTIPLY BY GIVING" TO FEATURE.                        NC1214.2
055800     PERFORM BUILD-TABLE2.                                        NC1214.2
055900     MOVE ZERO TO NUM-9V9.                                        NC1214.2
056000     SET INDEX1 TO 4.                                             NC1214.2
056100     SET INDEX2 TO 4.                                             NC1214.2
056200 IND-TEST-GF-8-0.                                                 NC1214.2
056300     MULTIPLY TABLE1-NUM (INDEX1) BY TABLE2-NUM (INDEX2)          NC1214.2
056400        GIVING NUM-9V9.                                           NC1214.2
056500 IND-TEST-GF-8-1.                                                 NC1214.2
056600     IF NUM-9V9 EQUAL TO 6.0                                      NC1214.2
056700        PERFORM PASS                                              NC1214.2
056800        ELSE GO TO IND-FAIL-GF-8.                                 NC1214.2
056900     GO TO IND-WRITE-GF-8.                                        NC1214.2
057000 IND-DELETE-GF-8.                                                 NC1214.2
057100     PERFORM DE-LETE.                                             NC1214.2
057200     GO TO IND-WRITE-GF-8.                                        NC1214.2
057300 IND-FAIL-GF-8.                                                   NC1214.2
057400     PERFORM FAIL.                                                NC1214.2
057500     MOVE NUM-9V9 TO COMPUTED-14V4.                               NC1214.2
057600     MOVE 6.0 TO CORRECT-14V4.                                    NC1214.2
057700 IND-WRITE-GF-8.                                                  NC1214.2
057800     MOVE "IND-TEST-GF-8" TO PAR-NAME.                            NC1214.2
057900     PERFORM PRINT-DETAIL.                                        NC1214.2
058000 IND-INIT-GF-9.                                                   NC1214.2
058100     MOVE  "IV-21 4.3.8.2.3/4" TO ANSI-REFERENCE.                 NC1214.2
058200     MOVE "MULTIPLY BY GIVING" TO FEATURE.                        NC1214.2
058300     PERFORM BUILD-TABLE2.                                        NC1214.2
058400     MOVE ZERO TO TABLE3.                                         NC1214.2
058500     SET INDEX1 TO 3.                                             NC1214.2
058600     SET INDEX2 TO 2.                                             NC1214.2
058700     SET INDEX3 TO 1.                                             NC1214.2
058800 IND-TEST-GF-9-0.                                                 NC1214.2
058900     MULTIPLY TABLE1-NUM (INDEX1) BY TABLE2-NUM (INDEX2)          NC1214.2
059000        GIVING TABLE3-NUM (INDEX3).                               NC1214.2
059100 IND-TEST-GF-9-1.                                                 NC1214.2
059200     IF TABLE3-NUM (INDEX3) EQUAL TO 42.0                         NC1214.2
059300        PERFORM PASS                                              NC1214.2
059400        ELSE GO TO IND-FAIL-GF-9.                                 NC1214.2
059500     GO TO IND-WRITE-GF-9.                                        NC1214.2
059600 IND-DELETE-GF-9.                                                 NC1214.2
059700     PERFORM DE-LETE.                                             NC1214.2
059800     GO TO IND-WRITE-GF-9.                                        NC1214.2
059900 IND-FAIL-GF-9.                                                   NC1214.2
060000     PERFORM FAIL.                                                NC1214.2
060100     MOVE TABLE3-NUM (INDEX3) TO COMPUTED-14V4.                   NC1214.2
060200     MOVE 42.0 TO CORRECT-14V4.                                   NC1214.2
060300 IND-WRITE-GF-9.                                                  NC1214.2
060400     MOVE "IND-TEST-GF-9" TO PAR-NAME.                            NC1214.2
060500     PERFORM PRINT-DETAIL.                                        NC1214.2
060600 IND-INIT-GF-10.                                                  NC1214.2
060700     MOVE  "IV-21 4.3.8.2.3/4" TO ANSI-REFERENCE.                 NC1214.2
060800     MOVE "MULTIPLY BY" TO FEATURE.                               NC1214.2
060900     MOVE 2.0 TO NUM-9V9.                                         NC1214.2
061000     SET INDEX1 TO 3.                                             NC1214.2
061100 IND-TEST-GF-10-0.                                                NC1214.2
061200     MULTIPLY TABLE1-NUM (INDEX1 - 2) BY NUM-9V9.                 NC1214.2
061300 IND-TEST-GF-10-1.                                                NC1214.2
061400     IF NUM-9V9 EQUAL TO 8.0                                      NC1214.2
061500        PERFORM PASS                                              NC1214.2
061600        ELSE GO TO IND-FAIL-GF-10.                                NC1214.2
061700     GO TO IND-WRITE-GF-10.                                       NC1214.2
061800 IND-DELETE-GF-10.                                                NC1214.2
061900     PERFORM DE-LETE.                                             NC1214.2
062000     GO TO IND-WRITE-GF-10.                                       NC1214.2
062100 IND-FAIL-GF-10.                                                  NC1214.2
062200     PERFORM FAIL.                                                NC1214.2
062300     MOVE NUM-9V9 TO COMPUTED-14V4.                               NC1214.2
062400     MOVE 8.0 TO CORRECT-14V4.                                    NC1214.2
062500 IND-WRITE-GF-10.                                                 NC1214.2
062600     MOVE "IND-TEST-GF-10" TO PAR-NAME.                           NC1214.2
062700     PERFORM PRINT-DETAIL.                                        NC1214.2
062800 IND-INIT-GF-11.                                                  NC1214.2
062900     MOVE  "IV-21 4.3.8.2.3/4" TO ANSI-REFERENCE.                 NC1214.2
063000     MOVE "MULTIPLY BY" TO FEATURE.                               NC1214.2
063100     PERFORM BUILD-TABLE2.                                        NC1214.2
063200     SET INDEX1 TO 2.                                             NC1214.2
063300     SET INDEX2 TO 5.                                             NC1214.2
063400 IND-TEST-GF-11-0.                                                NC1214.2
063500     MULTIPLY TABLE1-NUM (INDEX1 - 1) BY TABLE2-NUM (INDEX2 + 1). NC1214.2
063600 IND-TEST-GF-11-1.                                                NC1214.2
063700     IF TABLE2-NUM (INDEX2 + 1) EQUAL TO 4.8                      NC1214.2
063800        PERFORM PASS                                              NC1214.2
063900        ELSE GO TO IND-FAIL-GF-11.                                NC1214.2
064000     GO TO IND-WRITE-GF-11.                                       NC1214.2
064100 IND-DELETE-GF-11.                                                NC1214.2
064200     PERFORM DE-LETE.                                             NC1214.2
064300     GO TO IND-WRITE-GF-11.                                       NC1214.2
064400 IND-FAIL-GF-11.                                                  NC1214.2
064500     PERFORM FAIL.                                                NC1214.2
064600     MOVE TABLE2-NUM (INDEX2 + 1) TO COMPUTED-14V4.               NC1214.2
064700     MOVE 4.8 TO CORRECT-14V4.                                    NC1214.2
064800 IND-WRITE-GF-11.                                                 NC1214.2
064900     MOVE "IND-TEST-GF-11" TO PAR-NAME.                           NC1214.2
065000     PERFORM PRINT-DETAIL.                                        NC1214.2
065100 IND-INIT-GF-12.                                                  NC1214.2
065200     MOVE  "IV-21 4.3.8.2.3/4" TO ANSI-REFERENCE.                 NC1214.2
065300     MOVE "MULTIPLY BY GIVING" TO FEATURE.                        NC1214.2
065400     PERFORM BUILD-TABLE2.                                        NC1214.2
065500     MOVE ZERO TO NUM-9V9.                                        NC1214.2
065600     SET INDEX1 TO 6.                                             NC1214.2
065700     SET INDEX2 TO 3.                                             NC1214.2
065800 IND-TEST-GF-12-0.                                                NC1214.2
065900     MULTIPLY TABLE1-NUM (INDEX1 - 2) BY TABLE2-NUM (INDEX2 - 2)  NC1214.2
066000        GIVING NUM-9V9.                                           NC1214.2
066100 IND-TEST-GF-12-1.                                                NC1214.2
066200     IF NUM-9V9 EQUAL TO 3.0                                      NC1214.2
066300        PERFORM PASS                                              NC1214.2
066400        ELSE GO TO IND-FAIL-GF-12.                                NC1214.2
066500     GO TO IND-WRITE-GF-12.                                       NC1214.2
066600 IND-DELETE-GF-12.                                                NC1214.2
066700     PERFORM DE-LETE.                                             NC1214.2
066800     GO TO IND-WRITE-GF-12.                                       NC1214.2
066900 IND-FAIL-GF-12.                                                  NC1214.2
067000     PERFORM FAIL.                                                NC1214.2
067100     MOVE NUM-9V9 TO COMPUTED-14V4.                               NC1214.2
067200     MOVE 3.0 TO CORRECT-14V4.                                    NC1214.2
067300 IND-WRITE-GF-12.                                                 NC1214.2
067400     MOVE "IND-TEST-GF-12" TO PAR-NAME.                           NC1214.2
067500     PERFORM PRINT-DETAIL.                                        NC1214.2
067600 IND-INIT-GF-13.                                                  NC1214.2
067700     MOVE  "IV-21 4.3.8.2.3/4" TO ANSI-REFERENCE.                 NC1214.2
067800     MOVE "MULTIPLY BY GIVING" TO FEATURE.                        NC1214.2
067900     PERFORM BUILD-TABLE2.                                        NC1214.2
068000     MOVE ZERO TO TABLE3.                                         NC1214.2
068100     SET INDEX1 TO 1.                                             NC1214.2
068200     SET INDEX2 TO 3.                                             NC1214.2
068300     SET INDEX3 TO 1.                                             NC1214.2
068400 IND-TEST-GF-13-0.                                                NC1214.2
068500     MULTIPLY TABLE1-NUM (INDEX1 + 2) BY TABLE2-NUM (INDEX2 - 1)  NC1214.2
068600        GIVING TABLE3-NUM (INDEX3 + 1).                           NC1214.2
068700 IND-TEST-GF-13-1.                                                NC1214.2
068800     IF TABLE3-NUM (INDEX3 + 1) EQUAL TO 42.0                     NC1214.2
068900        PERFORM PASS                                              NC1214.2
069000        ELSE GO TO IND-FAIL-GF-13.                                NC1214.2
069100     GO TO IND-WRITE-GF-13.                                       NC1214.2
069200 IND-DELETE-GF-13.                                                NC1214.2
069300     PERFORM DE-LETE.                                             NC1214.2
069400     GO TO IND-WRITE-GF-13.                                       NC1214.2
069500 IND-FAIL-GF-13.                                                  NC1214.2
069600     PERFORM FAIL.                                                NC1214.2
069700     MOVE TABLE3-NUM (INDEX3 + 1) TO COMPUTED-14V4.               NC1214.2
069800     MOVE 42.0 TO CORRECT-14V4.                                   NC1214.2
069900 IND-WRITE-GF-13.                                                 NC1214.2
070000     MOVE "IND-TEST-GF-13" TO PAR-NAME.                           NC1214.2
070100     PERFORM PRINT-DETAIL.                                        NC1214.2
070200 IND-INIT-GF-14.                                                  NC1214.2
070300     MOVE  "IV-21 4.3.8.2.3/4" TO ANSI-REFERENCE.                 NC1214.2
070400     MOVE "DIVIDE INTO" TO FEATURE.                               NC1214.2
070500     MOVE 9.0 TO NUM-9V9.                                         NC1214.2
070600     SET INDEX1 TO 4.                                             NC1214.2
070700 IND-TEST-GF-14-0.                                                NC1214.2
070800     DIVIDE TABLE1-NUM (INDEX1) INTO NUM-9V9.                     NC1214.2
070900 IND-TEST-GF-14-1.                                                NC1214.2
071000     IF NUM-9V9 EQUAL TO 3.0                                      NC1214.2
071100        PERFORM PASS                                              NC1214.2
071200        GO TO IND-WRITE-GF-14.                                    NC1214.2
071300     GO TO IND-FAIL-GF-14.                                        NC1214.2
071400 IND-DELETE-GF-14.                                                NC1214.2
071500     PERFORM DE-LETE.                                             NC1214.2
071600     GO TO IND-WRITE-GF-14.                                       NC1214.2
071700 IND-FAIL-GF-14.                                                  NC1214.2
071800     PERFORM FAIL.                                                NC1214.2
071900     MOVE NUM-9V9 TO COMPUTED-14V4.                               NC1214.2
072000     MOVE 3.0 TO CORRECT-14V4.                                    NC1214.2
072100 IND-WRITE-GF-14.                                                 NC1214.2
072200     MOVE "IND-TEST-GF-14" TO PAR-NAME.                           NC1214.2
072300     PERFORM PRINT-DETAIL.                                        NC1214.2
072400 IND-INIT-GF-15.                                                  NC1214.2
072500     MOVE  "IV-21 4.3.8.2.3/4" TO ANSI-REFERENCE.                 NC1214.2
072600     MOVE "DIVIDE ROUNDED" TO FEATURE.                            NC1214.2
072700     MOVE 8.1 TO NUM-9V9.                                         NC1214.2
072800     SET INDEX1 TO 9.                                             NC1214.2
072900 IND-TEST-GF-15-0.                                                NC1214.2
073000     DIVIDE TABLE1-NUM (INDEX1) INTO NUM-9V9 ROUNDED.             NC1214.2
073100 IND-TEST-GF-15-1.                                                NC1214.2
073200     IF NUM-9V9 EQUAL TO 1.6                                      NC1214.2
073300        PERFORM PASS                                              NC1214.2
073400        GO TO IND-WRITE-GF-15.                                    NC1214.2
073500     GO TO IND-FAIL-GF-15.                                        NC1214.2
073600 IND-DELETE-GF-15.                                                NC1214.2
073700     PERFORM DE-LETE.                                             NC1214.2
073800     GO TO IND-WRITE-GF-15.                                       NC1214.2
073900 IND-FAIL-GF-15.                                                  NC1214.2
074000     PERFORM FAIL.                                                NC1214.2
074100     MOVE NUM-9V9 TO COMPUTED-14V4.                               NC1214.2
074200     MOVE 1.6 TO CORRECT-14V4.                                    NC1214.2
074300 IND-WRITE-GF-15.                                                 NC1214.2
074400     MOVE "IND-TEST-GF-15" TO PAR-NAME.                           NC1214.2
074500     PERFORM PRINT-DETAIL.                                        NC1214.2
074600 IND-INIT-GF-16.                                                  NC1214.2
074700     MOVE  "IV-21 4.3.8.2.3/4" TO ANSI-REFERENCE.                 NC1214.2
074800     MOVE "DIVIDE ON SIZE ERROR" TO FEATURE.                      NC1214.2
074900     MOVE 9.9 TO NUM-9V9.                                         NC1214.2
075000     SET INDEX1 TO 8.                                             NC1214.2
075100 IND-TEST-GF-16-1.                                                NC1214.2
075200     DIVIDE TABLE1-NUM (INDEX1) INTO NUM-9V9 ON SIZE ERROR        NC1214.2
075300        PERFORM PASS                                              NC1214.2
075400        GO TO IND-WRITE-GF-16-1.                                  NC1214.2
075500     GO TO IND-FAIL-GF-16-1.                                      NC1214.2
075600 IND-DELETE-GF-16-1.                                              NC1214.2
075700     PERFORM DE-LETE.                                             NC1214.2
075800     GO TO IND-WRITE-GF-16-1.                                     NC1214.2
075900 IND-FAIL-GF-16-1.                                                NC1214.2
076000     PERFORM FAIL.                                                NC1214.2
076100     MOVE NUM-9V9 TO COMPUTED-14V4.                               NC1214.2
076200     MOVE "ON SIZE ERROR SHOULD BE EXECUTED" TO RE-MARK.          NC1214.2
076300 IND-WRITE-GF-16-1.                                               NC1214.2
076400     MOVE "IND-TEST-GF-16-1" TO PAR-NAME.                         NC1214.2
076500     PERFORM PRINT-DETAIL.                                        NC1214.2
076600 IND-TEST-GF-16-2.                                                NC1214.2
076700     MOVE 9.9 TO NUM-9V9.                                         NC1214.2
076800     IF      NUM-9V9 = 9.9                                        NC1214.2
076900             PERFORM PASS                                         NC1214.2
077000             GO TO   IND-WRITE-GF-16-2.                           NC1214.2
077100     GO TO   IND-FAIL-GF-16-2.                                    NC1214.2
077200 IND-DELETE-GF-16-2.                                              NC1214.2
077300     PERFORM DE-LETE.                                             NC1214.2
077400     GO TO IND-WRITE-GF-16-2.                                     NC1214.2
077500 IND-FAIL-GF-16-2.                                                NC1214.2
077600     PERFORM FAIL.                                                NC1214.2
077700     MOVE NUM-9V9 TO COMPUTED-14V4.                               NC1214.2
077800     MOVE 9.9 TO CORRECT-14V4.                                    NC1214.2
077900     MOVE "WRONGLY AFFECTED BY SIZE ERROR" TO RE-MARK.            NC1214.2
078000 IND-WRITE-GF-16-2.                                               NC1214.2
078100     MOVE "IND-TEST-GF-16-2" TO PAR-NAME.                         NC1214.2
078200     PERFORM PRINT-DETAIL.                                        NC1214.2
078300 IND-INIT-GF-17.                                                  NC1214.2
078400     MOVE  "IV-21 4.3.8.2.3/4" TO ANSI-REFERENCE.                 NC1214.2
078500     MOVE "DIVIDE INTO" TO FEATURE.                               NC1214.2
078600     PERFORM BUILD-TABLE2.                                        NC1214.2
078700     SET INDEX1 TO 4.                                             NC1214.2
078800     SET INDEX2 TO 2.                                             NC1214.2
078900 IND-TEST-GF-17-0.                                                NC1214.2
079000     DIVIDE TABLE1-NUM (INDEX1) INTO TABLE2-NUM (INDEX2).         NC1214.2
079100 IND-TEST-GF-17-1.                                                NC1214.2
079200     IF TABLE2-NUM (INDEX2) EQUAL TO 2.0                          NC1214.2
079300        PERFORM PASS                                              NC1214.2
079400        GO TO IND-WRITE-GF-17.                                    NC1214.2
079500     GO TO IND-FAIL-GF-17.                                        NC1214.2
079600 IND-DELETE-GF-17.                                                NC1214.2
079700     PERFORM DE-LETE.                                             NC1214.2
079800     GO TO IND-WRITE-GF-17.                                       NC1214.2
079900 IND-FAIL-GF-17.                                                  NC1214.2
080000     PERFORM FAIL.                                                NC1214.2
080100     MOVE TABLE2-NUM (INDEX2) TO COMPUTED-14V4.                   NC1214.2
080200     MOVE 2.0 TO CORRECT-14V4.                                    NC1214.2
080300 IND-WRITE-GF-17.                                                 NC1214.2
080400     MOVE "IND-TEST-GF-17" TO PAR-NAME.                           NC1214.2
080500     PERFORM PRINT-DETAIL.                                        NC1214.2
080600 IND-INIT-GF-18.                                                  NC1214.2
080700     MOVE  "IV-21 4.3.8.2.3/4" TO ANSI-REFERENCE.                 NC1214.2
080800     MOVE "DIVIDE ROUNDED" TO FEATURE.                            NC1214.2
080900     PERFORM BUILD-TABLE2.                                        NC1214.2
--> --------------------

--> maximum size reached

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

90%


¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.32Angebot  Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können  ¤

*Eine klare Vorstellung vom Zielzustand




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.