The code below returns a table with the translation of R3TR ELEM entries in a SAP Transport Request or Sub Task.
It makes use of the function RSZ_DB_COMP_LIST_GET used in Transaction RSZDELETE to collect all active BEx Query Elements in the system.
FUNCTION Z_R3T3_ELEM_GET.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*" REFERENCE(I_TRKORR) TYPE TRKORR
*" EXPORTING
*" REFERENCE(E_)
*" TABLES
*" E_T_OBJECTS STRUCTURE V_COMPDIR_COMPIC
*"----------------------------------------------------------------------
data:
l_t_e071 type TABLE OF e071,
l_th_components TYPE rzd1_th_compdir_compic.
field-symbols:
<s_e071> type e071,
<s_components> TYPE rzd1_s_compdir_compic.
"Get ALL available components + Variables
CALL FUNCTION 'RSZ_DB_COMP_LIST_GET'
EXPORTING
i_deftp = rzd1_c_deftp-all
i_objvers = 'A'
IMPORTING
e_th_complist = l_th_components
EXCEPTIONS
OTHERS = 0.
select * from e071 into TABLE l_t_e071
where object = 'ELEM'
and trkorr = I_TRKORR.
loop at l_t_e071 ASSIGNING <s_e071>.
read TABLE l_th_components
ASSIGNING <s_components>
with key compuid = <s_e071>-OBJ_NAME.
append <s_components> to e_t_objects.
endloop.
ENDFUNCTION.