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

Intrinsic Functions
HP COBOL Manual for TNS/E Programs—520347-003
14-10
ANNUITY Function
Example 14-2. ANNUITY Function
Code:
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PICTURE 9V99.
PROCEDURE DIVISION.
MOVE FUNCTION ANNUITY (1 12) TO A.
DISPLAY A.
MOVE FUNCTION ANNUITY (1 6) TO A.
DISPLAY A.
MOVE FUNCTION ANNUITY (2 6) TO A.
DISPLAY A.
MOVE FUNCTION ANNUITY (5 2) TO A.
DISPLAY A.
MOVE FUNCTION ANNUITY (0 5) TO A.
DISPLAY A.
Output:
1.00
1.01
2.00
5.14
0.20