第一种
LOOP AT MESSTAB.
MOVE MESSTAB-MSGNR TO MSGNO.
- CALL FUNCTION 'WRITE_MESSAGE'
- EXPORTING
- MSGID = MESSTAB-MSGID
- MSGNO = MSGNO
- MSGTY = MESSTAB-MSGTYP
- MSGV1 = MESSTAB-MSGV1
- MSGV2 = MESSTAB-MSGV2
- MSGV3 = MESSTAB-MSGV3
- MSGV4 = MESSTAB-MSGV4
- IMPORTING
- MESSG = MESSAGE.
ENDLOOP.
第二种
LOOP AT GT_MSG INTO GS_MSG WHERE MSGTYP CA 'AEX'.
CLEAR LV_MSG.
- CALL FUNCTION 'MESSAGE_TEXT_BUILD'
- EXPORTING
- MSGID = GS_MSG-MSGID
- MSGNR = GS_MSG-MSGNR
- MSGV1 = GS_MSG-MSGV1
- MSGV2 = GS_MSG-MSGV2
- MSGV3 = GS_MSG-MSGV3
- MSGV4 = GS_MSG-MSGV4
- IMPORTING
- MESSAGE_TEXT_OUTPUT = LV_MSG.
- LV_MSG1 = LV_MSG1 && '##' && LV_MSG.
ENDLOOP.
消息放在 T100.
但是有遇到没有消息文本的情况, 还不知道怎么弄. 要再研究下
来源: http://www.bubuko.com/infodetail-2977561.html