|
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
¤ Dauer der Verarbeitung: 0.35 Sekunden
(vorverarbeitet)
¤
|
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.
|
