COBOL Manual for TNS and TNS/R Programs

Intrinsic Functions
HP COBOL Manual for TNS and TNS/R Programs—522555-006
14-12
ATAN Function
ATAN Function
ATAN, a numeric function, returns a value in radians that approximates the arctangent
of its argument.
argument
is a numeric argument.
The returned value approximates the arctangent of the value of argument. It is a
floating-point number in the range -pi/2 to +pi/2, excluding the endpoints. It has no
implied decimal point and is precise to approximately 14 digits.
Note. This function requires the CRE. To use this function in a TNS HP COBOL program,
compile the program with the directive ENV COMMON.
Example 14-4. ATAN Function
Code:
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PICTURE S9V99.
PROCEDURE DIVISION.
MOVE FUNCTION ATAN (-10) TO A.
DISPLAY A.
MOVE FUNCTION ATAN (0) TO A.
DISPLAY A.
MOVE FUNCTION ATAN (.25) TO A.
DISPLAY A.
MOVE FUNCTION ATAN (15.5) TO A.
DISPLAY A.
MOVE FUNCTION ATAN (45) TO A.
DISPLAY A.
Output:
-1.47
0.00
0.24
1.50
1.54
( )
ATANFUNCTION argument
VST424.vsd