&———————————————————————
*& Report ZLM_MSG
&———————————————————————
*&弹出对话框,显示多条消息
&———————————————————————
REPORT ZLM_MSG .
“定义消息类型
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 .
Original: https://blog.51cto.com/u_15680210/5374099
Author: sapLiuMeng
Title: 调用标准函数显示多条消息
原创文章受到原创版权保护。转载请注明出处:https://www.johngo689.com/517474/
转载文章受原作者版权保护。转载请注明原作者出处!