*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_LV_ZDIA text
*----------------------------------------------------------------------*
FORM REMOVE_RIGHT_ZERO CHANGING CV_STR TYPE STRING .
DATA :LEN TYPE I .
CONDENSE CV_STR . "BREAK-POINT.
SHIFT CV_STR RIGHT DELETING TRAILING '0' .
CONDENSE CV_STR .
SHIFT CV_STR RIGHT DELETING TRAILING '.' .
CONDENSE CV_STR .
ENDFORM .
* text
*----------------------------------------------------------------------*
* <--P_LV_ZDIA text
*----------------------------------------------------------------------*
FORM REMOVE_RIGHT_ZERO CHANGING CV_STR TYPE STRING .
DATA :LEN TYPE I .
CONDENSE CV_STR . "BREAK-POINT.
SHIFT CV_STR RIGHT DELETING TRAILING '0' .
CONDENSE CV_STR .
SHIFT CV_STR RIGHT DELETING TRAILING '.' .
CONDENSE CV_STR .
ENDFORM .
446
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
