REPORT ZWYB_010.
TYPE-POOLS: ESP1 .
*"定义消息类型
*TYPES : BEGIN OF ESP1_MESSAGE_WA_TYPE ,
* MSGID LIKE SY-MSGID,
* MSGTY LIKE SY-MSGTY,
* MSGNO LIKE SY-MSGNO,
* MSGV1 LIKE SY-MSGV1,
* MSGV2 LIKE SY-MSGV2,
* MSGV3 LIKE SY-MSGV3,
* MSGV4 LIKE SY-MSGV4,
* LINENO LIKE MESG-ZEILE,
* END OF ESP1_MESSAGE_WA_TYPE .
TYPES : ESP1_MESSAGE_TAB_TYPE TYPE ESP1_MESSAGE_WA_TYPE OCCURS 20 .
DATA :IT_ERROR_MESSAGE TYPE ESP1_MESSAGE_TAB_TYPE WITH HEADER LINE .
DATA :V_LINENO TYPE MESG-ZEILE .
CLEAR :V_LINENO .
*V_LINENO = V_LINENO + 1 .
*IT_ERROR_MESSAGE-LINENO = V_LINENO .
IT_ERROR_MESSAGE-MSGID = 'ZLM_MSG' .
IT_ERROR_MESSAGE-MSGTY = 'E' .
IT_ERROR_MESSAGE-MSGNO = '000' .
IT_ERROR_MESSAGE-MSGV1 = '测试测试测试测试测试测试测试测试测试测试测试测试' .
APPEND IT_ERROR_MESSAGE .
*
*V_LINENO = V_LINENO + 1 .
*IT_ERROR_MESSAGE-LINENO = V_LINENO .
IT_ERROR_MESSAGE-MSGID = 'ZLM_MSG' .
IT_ERROR_MESSAGE-MSGTY = 'W' .
IT_ERROR_MESSAGE-MSGNO = '000' .
IT_ERROR_MESSAGE-MSGV1 = '测试测试测试测试' .
APPEND IT_ERROR_MESSAGE .
*V_LINENO = V_LINENO + 1 .
*IT_ERROR_MESSAGE-LINENO = V_LINENO .
IT_ERROR_MESSAGE-MSGID = 'ZLM_MSG' .
IT_ERROR_MESSAGE-MSGTY = 'S' .
IT_ERROR_MESSAGE-MSGNO = '000' .
IT_ERROR_MESSAGE-MSGV1 = '测试测试测试测试测试测试试' .
APPEND IT_ERROR_MESSAGE .
*V_LINENO = V_LINENO + 1 .
*IT_ERROR_MESSAGE-LINENO = V_LINENO .
IT_ERROR_MESSAGE-MSGID = 'ZLM_MSG' .
IT_ERROR_MESSAGE-MSGTY = 'E' .
IT_ERROR_MESSAGE-MSGNO = '000' .
IT_ERROR_MESSAGE-MSGV1 = '测试测试测试' .
APPEND IT_ERROR_MESSAGE .
CALL FUNCTION 'C14Z_MESSAGES_SHOW_AS_POPUP'
TABLES
I_MESSAGE_TAB = IT_ERROR_MESSAGE.
