第一种

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.

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

05-11 13:41