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