COBOL Manual for TNS and TNS/R Programs

Intrinsic Functions
HP COBOL Manual for TNS and TNS/R Programs—522555-006
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