ABAP 去除小数掉

有时我们需要将数字类型转换成字符型，但后面存在小数点为零的，以下方法可去掉。

DATA:QTY TYPE P DECIMALS 2,ZQTY TYPE C LENGTH 20,Q1 TYPE STRING, Q2 TYPE STRING,TAB_C TYPE C LENGTH 20.

QTY = 2.
IF QTY <> 0.
  ZQTY = QTY.
  CONDENSE ZQTY NO-GAPS.
  SPLIT ZQTY AT '.' INTO Q1 Q2.
  IF Q2 = 0.
    TAB_C = Q1.
  ELSE.
    TAB_C = ZQTY.
    SHIFT TAB_C RIGHT DELETING TRAILING SPACE.
    SHIFT TAB_C RIGHT DELETING TRAILING '0'.
  ENDIF.
  CONDENSE TAB_C NO-GAPS.
*  SHIFT REP_TAB1-AUFNR LEFT DELETING LEADING '0'.
ENDIF.

"结果输出:2