2023 Apr 04 9:06 AM
Hi all,
I am submitting rm06en00 WITH SELECTION-TABLE lt_seltab AND RETURN. (basically calling ME2N)
Now in ME2N there are fields hidden in the account assignment button. I need to get the ZEKKN field value.
I need to click the account assignment button.
The ZEKKN field value is here (circled)
My <lt_data> do not have the ZEKKN field. May I know how to get the return field?
data: lt_seltab TYPE table OF rsparams,
ls_seltab LIKE LINE OF lt_seltab.
DATA: lt_abaplist TYPE TABLE OF abaplist.
DATA ls_abaplist TYPE abaplist.
DATA: ls_data TYPE REF TO data.
DATA: ls_data1 TYPE REF TO data.
DATA: ls_data24 TYPE REF TO data.
FIELD-SYMBOLS: <lt_data> TYPE table,
<lt_data1> TYPE table,
<lt_data24> TYPE table,
<l_data> TYPE data,
<fs_docu> TYPE any,
<l_wtlief> TYPE any,
<l_netpr> TYPE any,
<l_waers> TYPE any.
gwa_output-ebeln = '4509002874'.
gwa_output-ebelp = '00001'.
CLEAR lt_seltab.
ls_seltab-selname = 'S_EBELN'. "Parameter on selection screen of submitted report
ls_seltab-kind = 'S'.
ls_seltab-sign = 'I'.
ls_seltab-option = 'EQ'.
ls_seltab-low = gwa_output-ebeln.
APPEND ls_seltab TO lt_seltab.
ls_seltab-selname = 'LISTU'. "Parameter on selection screen of submitted report
ls_seltab-kind = 'S'.
ls_seltab-sign = 'I'.
ls_seltab-option = 'EQ'.
ls_seltab-low = 'ZBEST'.
APPEND ls_seltab TO lt_seltab.
*
cl_salv_bs_runtime_info=>set(
display = abap_false
metadata = abap_false
data = abap_true ).
*
** call ME2N program and return back its end result table to be used here!!!
SUBMIT rm06en00 WITH SELECTION-TABLE lt_seltab AND RETURN.
TRY.
cl_salv_bs_runtime_info=>get_data_ref(
IMPORTING r_data = ls_data ).
ASSIGN ls_data->* TO <lt_data>.
* MESSAGE 'Data Retrieved' TYPE 'S'.
UNASSIGN <l_data>.
READ TABLE <lt_data> ASSIGNING <l_data> WITH KEY ('EBELN') = gwa_output-ebeln
('EBELP') = gwa_output-ebelp.
IF sy-subrc = 0.
UNASSIGN <l_wtlief>.
UNASSIGN <l_netpr>.
UNASSIGN <l_waers>.
ASSIGN COMPONENT 'WTLIEF' OF STRUCTURE <l_data> TO <l_wtlief>.
ASSIGN COMPONENT 'NETPR' OF STRUCTURE <l_data> TO <l_netpr>.
ASSIGN COMPONENT 'WAERS' OF STRUCTURE <l_data> TO <l_waers>.
IF <l_wtlief> IS ASSIGNED.
ENDIF.
ENDIF.
*** must clear else calling program ALV WONT display!!!!
cl_salv_bs_runtime_info=>clear_all( ).
CATCH cx_salv_bs_sc_runtime_info.
* MESSAGE 'Unable to retrieve data' TYPE 'E'.
ENDTRY.