SAP ABAP - Display Message in Popup Table
*&---------------------------------------------------------------------*
*& Report YBULK_MESSAGE
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ybulk_message.
TYPES: BEGIN OF ty_message,
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 ty_message.
DATA:
lt_message TYPE TABLE OF ty_message.
START-OF-SELECTION.
PERFORM display_message.
FORM display_message.
REFRESH lt_message.
lt_message = VALUE #(
( msgid = 'FB'
msgty = 'E'
msgno = '000'
msgv1 = 'Material XXX01'
msgv2 = 'Not'
msgv3 = 'Found'
msgv4 = ''
lineno = '1'
) "Line 1
( msgid = 'FB'
msgty = 'E'
msgno = '000'
msgv1 = 'Plant L001'
msgv2 = 'Not'
msgv3 = 'Found'
msgv4 = ''
lineno = '2'
) "Line 2
).
CALL FUNCTION 'C14Z_MESSAGES_SHOW_AS_POPUP'
TABLES
i_message_tab = lt_message.
ENDFORM.
*& Report YBULK_MESSAGE
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ybulk_message.
TYPES: BEGIN OF ty_message,
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 ty_message.
DATA:
lt_message TYPE TABLE OF ty_message.
START-OF-SELECTION.
PERFORM display_message.
FORM display_message.
REFRESH lt_message.
lt_message = VALUE #(
( msgid = 'FB'
msgty = 'E'
msgno = '000'
msgv1 = 'Material XXX01'
msgv2 = 'Not'
msgv3 = 'Found'
msgv4 = ''
lineno = '1'
) "Line 1
( msgid = 'FB'
msgty = 'E'
msgno = '000'
msgv1 = 'Plant L001'
msgv2 = 'Not'
msgv3 = 'Found'
msgv4 = ''
lineno = '2'
) "Line 2
).
CALL FUNCTION 'C14Z_MESSAGES_SHOW_AS_POPUP'
TABLES
i_message_tab = lt_message.
ENDFORM.
Comments
Post a Comment