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

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

*&---------------------------------------------------------------------*

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

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。