SAP ABAP SUBMIT Command | How to Run Standard Reports ME2M
Source Code
___________________________________
*&---------------------------------------------------------------------*
*& Report ZK_SUBMIT_ME2M_DEMO
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZK_SUBMIT_ME2M_DEMO.
tables : mara, eket.
types : begin of tp_itab,
EMATN type matnr,
EBELN type ebeln,
EBELP type ebelp,
MENGE type bstmg,
mglief type MEREP_MGLIEF,
end of tp_itab.
data : gt_itab type STANDARD TABLE OF tp_itab,
gs_itab type tp_itab.
data : lo_data type REF TO data.
FIELD-SYMBOLS : <postab> type STANDARD TABLE,
<wa_pos> type any,
<fs> type any.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
select-OPTIONS : s_matnr for mara-matnr,
s_eindt FOR eket-eindt.
PARAMETERS : p_listu type LISTU DEFAULT 'ALV'.
SELECTION-SCREEN end of BLOCK b1.
START-OF-SELECTION.
perform get_process_data.
end-of-SELECTION.
*&---------------------------------------------------------------------*
*& Form get_process_data
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& --> p1 text
*& <-- p2 text
*&---------------------------------------------------------------------*
FORM get_process_data .
cl_salv_bs_runtime_info=>set(
EXPORTING
display = abap_false
metadata = abap_false
DATA = abap_true
* structure = " Table Name
* structure_line = " Table Name
).
SUBMIT RM06EM00 with em_matnr in s_matnr
with s_eindt in s_eindt
with LISTU = p_listu
AND RETURN.
try.
cl_salv_bs_runtime_info=>get_data_ref(
IMPORTING
r_data = lo_data
* r_data_line =
* r_data_descr = " Runtime Type Services
* r_data_line_descr = " Runtime Type Services
).
* CATCH cx_salv_bs_sc_runtime_info.
ASSIGN lo_data->* TO <postab>.
catch cx_root.
endtry.
cl_salv_bs_runtime_info=>clear_all( ).
if <postab> is ASSIGNED.
loop at <postab> ASSIGNING <wa_pos>.
MOVE-CORRESPONDING <wa_pos> to gs_itab.
IF gs_itab-mglief gt 0.
append gs_itab to gt_itab.
endif.
endloop.
cl_demo_output=>display( gt_itab ).
endif.
ENDFORM.
0 Comments