去除小数点后面的0

DATA : p_numval TYPE p DECIMALS 4 VALUE '3.100' .
DATA : l_del0 TYPE c LENGTH 20 .

 

l_del0 = p_numval.
SHIFT l_del0 RIGHT DELETING TRAILING ' '.
SHIFT l_del0 RIGHT DELETING TRAILING '0'.
SHIFT l_del0 RIGHT DELETING TRAILING '.'.
CONDENSE l_del0 NO-GAPS.

WRITE l_del0.