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

Quelle  if124a.cob   Sprache: Cobol

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

92%


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