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