**********************去掉0
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
input = p_out
IMPORTING
output = p_out.
*****************追加0
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = ZQMNUM
IMPORTING
output = ZQMNUM
EXCEPTIONS
OTHERS = 1.
*************按,分割字符串************
data: begin of zitab occurs 0,
wl TYPE c,
end of zitab.
data: begin of zitab1 occurs 0,
gc TYPE c,
end of zitab1.
data: begin of zitab2 occurs 0,
wls like zitab-wl,
gcs like zitab1-gc,
end of zitab2.
split ZMATNR AT ',' INTO table zitab.
split ZQMAWERKS AT ',' INTO table zitab1.
DESCRIBE TABLE zitab LINES tnum.
tnum = tnum + 1.
DO tnum TIMES.
READ TABLE zitab INTO zitab2-wls INDEX NUM.
READ TABLE zitab1 INTO zitab2-gcs INDEX NUM.
num = num + 1.
append zitab2.
ENDDO.