第一种

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.

但是有遇到没有消息文本的情况，还不知道怎么弄。要再研究下