Code: Alles auswählen.
REPORT zz_test_20.
PARAMETERS: p_infnr(10) TYPE c.
DATA shlp TYPE shlp_descr.
DATA retv TYPE TABLE OF ddshretval.
data ware type ddshretval.
DATA intf TYPE ddshiface.
DATA selo TYPE ddshselopt.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_infnr.
*Vollständige Beschreibung der Suchhilfe lesen
CALL FUNCTION 'F4IF_GET_SHLP_DESCR'
EXPORTING
shlpname = 'MEINM' "Hier: Einkaufsinfosatz tum Material
* SHLPTYPE = 'SH'
IMPORTING
shlp = shlp.
* Rückgabeparameter bestimmen
LOOP AT shlp-interface INTO intf
WHERE shlpfield = 'INFNR'.
intf-valfield = 'X'.
MODIFY shlp-interface FROM intf INDEX sy-tabix.
ENDLOOP.
* Eingabeparameter setzen
selo-shlpname = 'MEINM'.
selo-shlpfield = 'MATNR'.
selo-sign = 'I'.
selo-option = 'EQ'.
selo-low = '103409'.
APPEND selo TO shlp-selopt.
selo-shlpname = 'MEINM'.
selo-shlpfield = 'WERKS'.
selo-sign = 'I'.
selo-option = 'EQ'.
selo-low = '2810'.
APPEND selo TO shlp-selopt.
* Sofortige Werteanzeige
shlp-intdescr-dialogtype = 'D'.
* Suchhilfe aufrufen
CALL FUNCTION 'F4IF_START_VALUE_REQUEST'
EXPORTING
shlp = shlp
* DISPONLY = ' '
* MAXRECORDS = 500
* MULTISEL = ' '
* CUCOL = SY-CUCOL
* CUROW = SY-CUROW
* IMPORTING
* RC =
TABLES
return_values = retv
.
read table retv into ware index 1.
p_infnr = ware-fieldval.