COBOL Manual for TNS and TNS/R Programs

Intrinsic Functions
HP COBOL Manual for TNS and TNS/R Programs—522555-006
14-26
LOG Function
LOG Function
LOG, a numeric function, returns a value that approximates the logarithm to the base e
(natural logarithm) of its argument.
argument
is a numeric argument greater than zero.
The returned value is approximately the logarithm to the base e of the value of
argument.
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-18. LOG Function
Code:
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PICTURE S9V99.
PROCEDURE DIVISION.
MOVE FUNCTION LOG (1) TO A.
DISPLAY A.
MOVE FUNCTION LOG (10) TO A.
DISPLAY A.
MOVE FUNCTION LOG (100) TO A.
DISPLAY A.
MOVE FUNCTION LOG (1000) TO A.
DISPLAY A.
MOVE FUNCTION LOG (10000) TO A.
DISPLAY A.
Output:
0.00
2.30
4.60
6.90
9.21
( )
LOGFUNCTION argument
VST436.vsd