*&---------------------------------------------------------------------*
*& 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
.