ABAP——弹窗显示错误信息

弹窗显示错误信息(ZSDR045程序)

*$---------------------------------------------$*
*  弹窗显示
*$---------------------------------------------$*
DATA: lv_msg TYPE string.
DATA: lv_lines TYPE i.
DATA: lv_count TYPE i.
DATA: BEGIN OF lt_message OCCURS 0,
        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 lt_message.
DATA: lv_msgty LIKE sy-msgty.
lv_msgty = 'E'.
CONCATENATE '新年快乐!!' '' INTO lv_msg.
lt_message-lineno = lv_count.
lt_message-msgid = 'ZSD0SD'.
lt_message-msgty = lv_msgty.
lt_message-msgno = '000'.
lt_message-msgv1 = lv_msg.
APPEND lt_message.
CLEAR lt_message.

CALL FUNCTION 'C14Z_MESSAGES_SHOW_AS_POPUP'
  TABLES
    i_message_tab = lt_message.
CLEAR lt_message.

你可能感兴趣的:(ABAP——弹窗显示错误信息)