- 实现代码
"去除无意义小数
CONDENSE wa_weight NO-GAPS.
SHIFT wa_weight RIGHT DELETING TRAILING '0'. "除右边无意义0
SHIFT wa_weight RIGHT DELETING TRAILING '.'. "除右边无意义小数点
SHIFT wa_weight LEFT DELETING LEADING space. "去左边空
IF wa_weight = '0'. "值为0则不传值 wa_weight 为文本类型必须使用'0'
CLEAR wa_weight.
ENDIF. XXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXX