SAP ABAP 弹框显示多条消息

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.