dynamische Suchhilfe mit Parametern

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.