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 081000 MOVE MIN-RANGE TO CORRECT-MIN IF1044.2 081100 MOVE MAX-RANGE TO CORRECT-MAX IF1044.2 081200 PERFORM FAIL. IF1044.2 081300 GO TO F-ATAN-WRITE-22. IF1044.2 081400 F-ATAN-DELETE-22. IF1044.2 081500 PERFORM DE-LETE. IF1044.2 081600 GO TO F-ATAN-WRITE-22. IF1044.2 081700 F-ATAN-WRITE-22. IF1044.2 081800 MOVE "F-ATAN-22" TO PAR-NAME. IF1044.2 081900 PERFORM PRINT-DETAIL. IF1044.2 082000*****************TEST (n) - COMPLEX TEST**************** IF1044.2 082100 F-ATAN-23. IF1044.2 082200 MOVE ZERO TO WS-NUM. IF1044.2 082300 MOVE -0 .000040 TO MIN-RANGE. IF1044.2 082400 MOVE 0 .000040 TO MAX-RANGE. IF1044.2 082500 F-ATAN-TEST-23. IF1044.2 082600 COMPUTE WS-NUM = FUNCTION ATAN((D / D) - 1 ). IF1044.2 082700 IF (WS-NUM >= MIN-RANGE) AND IF1044.2 082800 (WS-NUM <= MAX-RANGE) THEN IF1044.2 082900 PERFORM PASS IF1044.2 083000 ELSE IF1044.2 083100 MOVE WS-NUM TO COMPUTED-N IF1044.2 083200 MOVE MIN-RANGE TO CORRECT-MIN IF1044.2 083300 MOVE MAX-RANGE TO CORRECT-MAX IF1044.2 083400 PERFORM FAIL. IF1044.2 083500 GO TO F-ATAN-WRITE-23. IF1044.2 083600 F-ATAN-DELETE-23. IF1044.2 083700 PERFORM DE-LETE. IF1044.2 083800 GO TO F-ATAN-WRITE-23. IF1044.2 083900 F-ATAN-WRITE-23. IF1044.2 084000 MOVE "F-ATAN-23" TO PAR-NAME. IF1044.2 084100 PERFORM PRINT-DETAIL. IF1044.2 084200*****************TEST (o) - COMPLEX TEST**************** IF1044.2 084300 F-ATAN-24. IF1044.2 084400 MOVE ZERO TO WS-NUM. IF1044.2 084500 MOVE -0 .709382 TO MIN-RANGE. IF1044.2 084600 MOVE -0 .709326 TO MAX-RANGE. IF1044.2 084700 F-ATAN-TEST-24. IF1044.2 084800 COMPUTE WS-NUM = FUNCTION ATAN(PI - 4 ). IF1044.2 084900 IF (WS-NUM >= MIN-RANGE) AND IF1044.2 085000 (WS-NUM <= MAX-RANGE) THEN IF1044.2 085100 PERFORM PASS IF1044.2 085200 ELSE IF1044.2 085300 MOVE WS-NUM TO COMPUTED-N IF1044.2 085400 MOVE MIN-RANGE TO CORRECT-MIN IF1044.2 085500 MOVE MAX-RANGE TO CORRECT-MAX IF1044.2 085600 PERFORM FAIL. IF1044.2 085700 GO TO F-ATAN-WRITE-24. IF1044.2 085800 F-ATAN-DELETE-24. IF1044.2 085900 PERFORM DE-LETE. IF1044.2 086000 GO TO F-ATAN-WRITE-24. IF1044.2 086100 F-ATAN-WRITE-24. IF1044.2 086200 MOVE "F-ATAN-24" TO PAR-NAME. IF1044.2 086300 PERFORM PRINT-DETAIL. IF1044.2 086400*****************TEST (p) - COMPLEX TEST**************** IF1044.2 086500 F-ATAN-25. IF1044.2 086600 MOVE ZERO TO WS-NUM. IF1044.2 086700 MOVE 0 .511215 TO MIN-RANGE. IF1044.2 086800 MOVE 0 .511255 TO MAX-RANGE. IF1044.2 086900 F-ATAN-TEST-25. IF1044.2 087000 COMPUTE WS-NUM = FUNCTION ATAN(FUNCTION ATAN(PI / 5 )). IF1044.2 087100 IF (WS-NUM >= MIN-RANGE) AND IF1044.2 087200 (WS-NUM <= MAX-RANGE) THEN IF1044.2 087300 PERFORM PASS IF1044.2 087400 ELSE IF1044.2 087500 MOVE WS-NUM TO COMPUTED-N IF1044.2 087600 MOVE MIN-RANGE TO CORRECT-MIN IF1044.2 087700 MOVE MAX-RANGE TO CORRECT-MAX IF1044.2 087800 PERFORM FAIL. IF1044.2 087900 GO TO F-ATAN-WRITE-25. IF1044.2 088000 F-ATAN-DELETE-25. IF1044.2 088100 PERFORM DE-LETE. IF1044.2 088200 GO TO F-ATAN-WRITE-25. IF1044.2 088300 F-ATAN-WRITE-25. IF1044.2 088400 MOVE "F-ATAN-25" TO PAR-NAME. IF1044.2 088500 PERFORM PRINT-DETAIL. IF1044.2 088600*****************TEST (q) - COMPLEX TEST**************** IF1044.2 088700 F-ATAN-26. IF1044.2 088800 MOVE ZERO TO WS-NUM. IF1044.2 088900 MOVE -0 .000040 TO MIN-RANGE. IF1044.2 089000 MOVE 0 .000040 TO MAX-RANGE. IF1044.2 089100 F-ATAN-TEST-26. IF1044.2 089200 COMPUTE WS-NUM = FUNCTION ATAN(0 .6 ) + FUNCTION ATAN(-0 .6 ). IF1044.2 089300 IF1044.2 089400 IF (WS-NUM >= MIN-RANGE) AND IF1044.2 089500 (WS-NUM <= MAX-RANGE) THEN IF1044.2 089600 PERFORM PASS IF1044.2 089700 ELSE IF1044.2 089800 MOVE WS-NUM TO COMPUTED-N IF1044.2 089900 MOVE MIN-RANGE TO CORRECT-MIN IF1044.2 090000 MOVE MAX-RANGE TO CORRECT-MAX IF1044.2 090100 PERFORM FAIL. IF1044.2 090200 GO TO F-ATAN-WRITE-26. IF1044.2 090300 F-ATAN-DELETE-26. IF1044.2 090400 PERFORM DE-LETE. IF1044.2 090500 GO TO F-ATAN-WRITE-26. IF1044.2 090600 F-ATAN-WRITE-26. IF1044.2 090700 MOVE "F-ATAN-26" TO PAR-NAME. IF1044.2 090800 PERFORM PRINT-DETAIL. IF1044.2 090900*****************SPECIAL PERFORM TEST********************** IF1044.2 091000 F-ATAN-27. IF1044.2 091100 MOVE ZERO TO WS-NUM. IF1044.2 091200 PERFORM F-ATAN-TEST-27 IF1044.2 091300 UNTIL FUNCTION ATAN(ARG1) < 0 . IF1044.2 091400 PERFORM PASS. IF1044.2 091500 GO TO F-ATAN-WRITE-27. IF1044.2 091600 F-ATAN-TEST-27. IF1044.2 091700 COMPUTE ARG1 = ARG1 - 0 .25 . IF1044.2 091800 F-ATAN-DELETE-27. IF1044.2 091900 PERFORM DE-LETE. IF1044.2 092000 GO TO F-ATAN-WRITE-27. IF1044.2 092100 F-ATAN-WRITE-27. IF1044.2 092200 MOVE "F-ATAN-27" TO PAR-NAME. IF1044.2 092300 PERFORM PRINT-DETAIL. IF1044.2 092400********************END OF TESTS*************** IF1044.2 092500 CCVS-EXIT SECTION . IF1044.2 092600 CCVS-999999. IF1044.2 092700 GO TO CLOSE-FILES. IF1044.2
Messung V0.5 in Prozent C=96 H=92 G=93
¤ Dauer der Verarbeitung: 0.29 Sekunden
(vorverarbeitet am 2026-06-08)
¤ *© Formatika GbR, Deutschland
