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