第一种
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.
但是有遇到没有消息文本的情况,还不知道怎么弄。要再研究下