有时我们需要将数字类型转换成字符型,但后面存在小数点为零的,以下方法可去掉。
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