COBOL Manual for TNS/E Programs (H06.03+)

Intrinsic Functions
HP COBOL Manual for TNS/E Programs—520347-003
14-46
PRESENT-VALUE Function
PRESENT-VALUE Function
PRESENT-VALUE, a numeric function, returns a value that approximates the present
value of a specified series of future period-end amounts at a specified discount rate.
Example 14-31. ORD-MIN Function
Code:
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUMERIC-ARRAY.
05 PICTURE 9(1) VALUE 4.
05 PICTURE 9(1) VALUE 9.
05 PICTURE 9(1) VALUE 3.
05 PICTURE 9(1) VALUE 7.
05 PICTURE 9(1) VALUE 5
01 NUM-ARRAY REDEFINES NUMERIC-ARRAY.
05 NUM OCCURS 5 TIMES PICTURE 9(1).
01 ALPHABETIC-ARRAY.
05 PICTURE X(5) VALUE "dog".
05 PICTURE X(5) VALUE "cat".
05 PICTURE X(5) VALUE "horse".
05 PICTURE X(5) VALUE "sheep".
05 PICTURE X(5) VALUE "goat".
01 ALPHA-ARRAY REDEFINES ALPHABETIC-ARRAY.
05 ALPHA OCCURS 5 TIMES PICTURE X(5).
PROCEDURE DIVISION.
DISPLAY FUNCTION ORD-MIN (NUM(ALL))
DISPLAY FUNCTION ORD-MIN (ALPHA(ALL))
DISPLAY FUNCTION ORD-MIN (NUM(1) NUM(4))
DISPLAY FUNCTION ORD-MIN (ALPHA(3) "bird" "fish")
DISPLAY FUNCTION ORD-MIN (3.4 5 6.2 9)
Output:
0000000003
0000000002
0000000001
0000000002
0000000001
( )
PRESENT-VALUEFUNCTION
period-end-amountdiscount-rate
VST455.vsd