DATA: I_INPUT TYPE BSEG-DMBTR , "金额数字
O_OUTPUT) TYPE STRING. “金额汉字
DATA :V_S00 ( 2 ) VALUE '零' ,
V_S01 ( 2 ) VALUE '壹' ,
V_S02 ( 2 ) VALUE '贰' ,
V_S03 ( 2 ) VALUE '叁' ,
V_S04 ( 2 ) VALUE '肆' ,
V_S05 ( 2 ) VALUE '伍' ,
V_S06 ( 2 ) VALUE '陆' ,
V_S07 ( 2 ) VALUE '柒' ,
V_S08 ( 2 ) VALUE '捌' ,
V_S09 ( 2 ) VALUE '玖' ,
V_W00 ( 2 ) VALUE '' ,
V_W01 ( 2 ) VALUE '拾' ,
V_W02 ( 2 ) VALUE '佰' ,
V_W03 ( 2 ) VALUE '仟' ,
V_W04 ( 2 ) VALUE '万' ,
V_W05 ( 4 ) VALUE '拾' ,