Code: Alles auswählen.
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-001.
SELECT-OPTIONS s_tobj FOR ts_stxh-tdobject.
SELECT-OPTIONS s_tname FOR ts_stxh-tdname.
SELECT-OPTIONS s_tid FOR ts_stxh-tdid.
SELECT-OPTIONS s_tspras FOR ts_stxh-tdspras.
SELECTION-SCREEN END OF BLOCK a.
DATA ls_sel TYPE ddshselopt.
DATA lt_sel TYPE TABLE OF ddshselopt.
DATA gv_where TYPE string.
CLEAR ls_sel.
ls_sel-shlpfield = 'TDOBJECT'.
LOOP AT s_tobj.
MOVE-CORRESPONDING s_tobj TO ls_sel.
APPEND ls_sel TO lt_sel.
ENDLOOP.
CLEAR ls_sel.
ls_sel-shlpfield = 'TDNAME'.
LOOP AT s_tname.
MOVE-CORRESPONDING s_tname TO ls_sel.
APPEND ls_sel TO lt_sel.
ENDLOOP.
CLEAR ls_sel.
ls_sel-shlpfield = 'TDID'.
LOOP AT s_tid.
MOVE-CORRESPONDING s_tid TO ls_sel.
APPEND ls_sel TO lt_sel.
ENDLOOP.
CLEAR ls_sel.
ls_sel-shlpfield = 'TDSPRAS'.
LOOP AT s_tspras.
MOVE-CORRESPONDING s_tspras TO ls_sel.
APPEND ls_sel TO lt_sel.
ENDLOOP.
CALL FUNCTION 'F4_CONV_SELOPT_TO_WHERECLAUSE'
* EXPORTING
* GEN_ALIAS_NAMES = ' '
* ESCAPE_ALLOWED = ' '
IMPORTING
where_clause = gv_where
TABLES
selopt_tab = lt_sel.
*Für RFC_READ_TABLE
* SPLIT gv_where AT ' ' INTO TABLE gt_opt.