in src/zgoog_i_bqtr_gen_repl_obj_im3.prog.abap [0:0]
METHOD f4_application_component.
DATA: lt_ret_tab TYPE STANDARD TABLE OF ddshretval,
lt_field_tab TYPE STANDARD TABLE OF dfies,
ls_ret_tab TYPE ddshretval,
lv_value TYPE help_info-fldvalue.
FIELD-SYMBOLS: <ls_field> TYPE dfies.
SELECT roappl~applnm, roapplt~txtlg FROM roappl LEFT JOIN
roapplt ON roappl~applnm = roapplt~applnm
AND langu = @sy-langu
INTO TABLE @DATA(lt_roappl).
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'APPLNM'
value_org = 'S'
value = lv_value
TABLES
value_tab = lt_roappl
field_tab = lt_field_tab
return_tab = lt_ret_tab
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
IF sy-subrc = 0.
READ TABLE lt_ret_tab INTO ls_ret_tab INDEX 1.
IF sy-subrc = 0.
cv_appl = ls_ret_tab-fieldval.
ENDIF.
ENDIF.