FUNCTION ZCONV_AMOUNT_MB.
*"--------------------------------------------------------------------
"“局部接口:
*” IMPORTING
*" REFERENCE(VA1) TYPE P
*" CHANGING
*" REFERENCE(STR) TYPE MAKT-MAKTX
*"--------------------------------------------------------------------
-
Global data declarations
DATA: SCR(30) TYPE C, RES(60) TYPE C,FEN(2) TYPE C .
DATA: LEN TYPE I, C1 TYPE I, C2 TYPE I, C3 TYPE I, C4 TYPE I.
DATA: D1(1) TYPE C, D2(1) TYPE C, D3 TYPE I.
DATA: DIGIT(2) TYPE C, WEIGHT(2) TYPE C.
DATA: RULE1(20) TYPE C VALUE ‘零壹贰叁肆伍陆柒捌玖’.
DATA: RULE2(30) TYPE C VALUE ‘分角元拾佰仟万拾佰仟亿拾佰仟万’.
SCR = VA1 * 100.
CONDENSE SCR NO-GAPS.
IF SCR = ‘0’.
RES = ‘零元’.
ELSE.
LEN = STRLEN( SCR ).
C1 = 0.
D1 = ‘0’.
CLEAR RES.
DO LEN TIMES.
C1 = C1 + 1.