Supress Decimal Zeros

REPORT Z_SUPRESS_DECIMALZEROS.
PARAMETERS: XMENGE type p default '2.12000'.
data : LV_KPEIN(13) type C.
lv_kpein = XMENGE.
*--- Call function Module to reamove the Decimal

CALL FUNCTION 'FTR_CORR_SWIFT_DELETE_ENDZERO'

CHANGING

C_VALUE = LV_KPEIN.
write : lv_kpein.