调用标准函数显示多条消息

调用标准函数显示多条消息

*&---------------------------------------------------------------------*
*& Report  ZLM_MSG
*&
*&---------------------------------------------------------------------*
*&弹出对话框,显示多条消息
*&---------------------------------------------------------------------*

REPORT  ZLM_MSG.

"定义消息类型
TYPESBEGIN 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.

TYPESesp1_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.
posted @ 2014-01-22 09:22  胡来  阅读(144)  评论(0编辑  收藏  举报