FORM. show_mess.
DESCRIBE TABLE messtab LINES v_error.
READ TABLE messtab INDEX v_error.
SELECT SINGLE text FROM t100 INTO t100-text
WHERE arbgb = messtab-msgid AND msgnr = messtab-msgnr AND
sprsl = messtab-msgspra.
MOVE t100-text TO text.
REPLACE '&' WITH sy-msgv1 INTO text. CONDENSE text.
REPLACE '&' WITH sy-msgv2 INTO text. CONDENSE text.
REPLACE '&' WITH sy-msgv3 INTO text. CONDENSE text.
REPLACE '&' WITH sy-msgv4 INTO text. CONDENSE text.
MESSAGE s100 WITH text.
ENDFORM.
DATA: v_error TYPE i.
DATA text(100).
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10857947/viewspace-707220/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/10857947/viewspace-707220/