COBOL Manual for TNS and TNS/R Programs

Intrinsic Functions
HP COBOL Manual for TNS and TNS/R Programs—522555-006
14-42
NUMVAL-C Function
Example 14-28. NUMVAL-C Function
Code:
DATA DIVISION
WORKING-STORAGE SECTION.
01 A PICTURE S99V99.
PROCEDURE DIVISION.
MOVE FUNCTION NUMVAL-C ("35") TO A.
DISPLAY A.
MOVE FUNCTION NUMVAL-C ("$35") TO A.
DISPLAY A.
MOVE FUNCTION NUMVAL-C ("35$") TO A.
DISPLAY A.
MOVE FUNCTION NUMVAL-C ("35.75") TO A.
DISPLAY A.
MOVE FUNCTION NUMVAL-C (".35") TO A.
DISPLAY A.
MOVE FUNCTION NUMVAL-C (" - 35.75 ") TO A.
DISPLAY A.
MOVE FUNCTION NUMVAL-C (" 35.75 CR") TO A.
DISPLAY A.
Output:
35.00
35.00
35.00
35.75
00.35
-35.75
-35.75