DATA STR TYPE C LENGTH 50,STRNUMBER TYPE P DECIMALS 5.
IF STRNUMBER < 0.
STR = STRNUMBER.
CONDENSE STR NO-GAPS."清空前面的空格
CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT' "负号提前函数
CHANGING
VALUE = STR.
ENDIF.
DATA STR TYPE C LENGTH 50,STRNUMBER TYPE P DECIMALS 5.
IF STRNUMBER < 0.
STR = STRNUMBER.
CONDENSE STR NO-GAPS."清空前面的空格
CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT' "负号提前函数
CHANGING
VALUE = STR.
ENDIF.