DATA
:
L_STR
TYPE
STRING
.
IF
WA_OUT
–
ERFMG
IS
NOT
INITIAL
.
L_STR
=
WA_OUT
–
ERFMG
.
CONDENSE
l_str
.
” 去掉没用的小数位的0
SHIFT
l_str RIGHT DELETING TRAILING
‘0’
.
“去掉没用的小数位的0
SHIFT
l_str RIGHT DELETING TRAILING
‘.’
.
“去掉没用的小数位的0
ELSE
.
L_STR
=
‘0’
.
“为空就给个空值
ENDIF
.
CONDENSE
L_STR
.
G_ERFMG
=
L_STR
.
原创文章，作者：ItWorker，如若转载，请注明出处：https://blog.ytso.com/tech/pnotes/20189.html