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

Intrinsic Functions
HP COBOL Manual for TNS/E Programs—520347-003
14-27
LOG10 Function
LOG10 Function
LOG10, a numeric function, returns a value that approximates the logarithm to the
base 10 of its argument.
argument
is a numeric argument greater than zero.
The returned value is approximately the logarithm to the base 10 of the value of
argument.
Example 14-19. LOG10 Function
Code:
DATA DIVISION.
WORKING-STORAGE SECTION.
01 A PICTURE S9V99.
PROCEDURE DIVISION.
MOVE FUNCTION LOG10 (1) TO A.
DISPLAY A.
MOVE FUNCTION LOG10 (10) TO A.
DISPLAY A.
MOVE FUNCTION LOG10 (100) TO A.
DISPLAY A.
MOVE FUNCTION LOG10 (1000) TO A.
DISPLAY A.
MOVE FUNCTION LOG10 (10000) TO A.
DISPLAY A.
Output:
0.00
1.00
2.00
3.00
4.00
( )
LOG10FUNCTION argument
VST437.vsd