ABAP：根据小数位自动截取，去除末尾多余小数

DATA:kwmeng      TYPE  kwmeng VALUE '100.00',
     ckwmeng(15) TYPE  c . "订单数量 "订单数量

ckwmeng = kwmeng.

PERFORM dele_after_zero CHANGING ckwmeng.
WRITE:ckwmeng.
FORM dele_after_zero  CHANGING p_string.

  DATA: last_char  TYPE c,
        first_char TYPE c,
        n_len      TYPE i,
        n_pos      TYPE i.
*  SEARCH  p_string FOR '.'.
*  IF sy-subrc = 0.
*    WRITE:sy-fdpos.
*  ENDIF.
  IF p_string CS '.'.
    n_len = strlen( p_string ).
    n_pos = n_len - 1.
    last_char = p_string+n_pos(1).
    IF last_char EQ '0' OR last_char EQ '.'.
      p_string = p_string+0(n_pos).
      IF last_char NE '.'.
        PERFORM dele_after_zero CHANGING p_string.
      ENDIF.
    ENDIF.
  ENDIF.
  CONDENSE p_string.
ENDFORM.                    " dele_after_zero