All About Programming

REPORT ZALV_LIST_MULTIHEADER NO STANDARD PAGE HEADING. TYPE-POOLS: slis. DATA :t_fieldcat TYPE slis_t_fieldcat_alv,       w_fieldcat TYPE slis_fieldcat_alv,       layout     TYPE slis_layout_alv,       t_sort     TYPE slis_t_sortinfo_alv,       t_event    TYPE slis_t_event WITH HEADER LINE,       d_repid    LIKE sy-repid,       d_layout   TYPE slis_layout_alv,       key        TYPE slis_keyinfo_alv. TYPES : BEGIN OF ty_data,           store(50),           price      TYPE dmbtr,           quantity   TYPE p,           total      TYPE dmbtr, "(10) TYPE p DECIMALS 2,           price2     TYPE dmbtr,           quantity2  TYPE p,           total2     TYPE dmbtr, "(10) TYPE p DECIMALS 2,           curr       TYPE waers,         END OF ty_data. DATA : t_data TYPE ty_data OCCURS 0 WITH HEADER LINE. START-OF-SELECTION.   PERFORM f_process_data.   PERFORM f_write_data. *&---------------------------------------------------------------------* *&      Form  F_PROCESS_DATA *&---

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