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

Example 180 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
ASIN Function
ASIN, a numeric function, returns a value in radians that approximates the arcsine of its argument.
argument
is a numeric argument whose value is in the range -1 to +1.
The returned value approximates the arcsine of the value of argument. It is a floating-point number
in the range -pi/2 to +pi/2. It has no implied decimal point and is precise to approximately 14
digits.
660 Intrinsic Functions