Передаем SET/GET параметр в средство поиска

DATA: ls_shd TYPE shlp_descr,
        lf_rc  TYPE syst-subrc,
        lt_val TYPE STANDARD TABLE OF ddshretval.

*   1) Get SH descriptor ----------------------------------------------&
  CALL FUNCTION 'F4IF_GET_SHLP_DESCR'
    EXPORTING
      shlpname = '/SCWM/SH_HU_NUMBERRANGES' "'HFPWBFORM'
    IMPORTING
      shlp     = ls_shd.

*   2) Define SH interface --------------------------------------------&
  LOOP AT ls_shd-interface ASSIGNING FIELD-SYMBOL(<ls_interface>).
    CASE <ls_interface>-shlpfield.
      WHEN 'SUBOBJECT'.
        <ls_interface>-value = pa_lgnum.
      WHEN 'NRRANGENR'.
        <ls_interface>-valfield = abap_true.
    ENDCASE.
  ENDLOOP.

  CALL FUNCTION 'F4IF_START_VALUE_REQUEST'
    EXPORTING
      shlp          = ls_shd
    IMPORTING
      rc            = lf_rc
    TABLES
      return_values = lt_val.

  IF lf_rc IS INITIAL.
    LOOP AT lt_val ASSIGNING FIELD-SYMBOL(<ls_val>).
      CASE <ls_val>-fieldname.
        WHEN 'NRRANGENR'.
          p_sscr_field = <ls_val>-fieldval.
        WHEN OTHERS.
      ENDCASE.
    ENDLOOP.
  ENDIF.

DATA: ls_shd TYPE shlp_descr,

lf_rc TYPE syst-subrc,

lt_val TYPE STANDARD TABLE OF ddshretval.

* 1) Get SH descriptor ----------------------------------------------&

CALL FUNCTION 'F4IF_GET_SHLP_DESCR'

EXPORTING

shlpname = '/SCWM/SH_HU_NUMBERRANGES' "'HFPWBFORM'

IMPORTING

shlp = ls_shd.

* 2) Define SH interface --------------------------------------------&

LOOP AT ls_shd-interface ASSIGNING FIELD-SYMBOL(<ls_interface>).

CASE <ls_interface>-shlpfield.

WHEN 'SUBOBJECT'.

<ls_interface>-value = pa_lgnum.

WHEN 'NRRANGENR'.

<ls_interface>-valfield = abap_true.

ENDCASE.

ENDLOOP.

CALL FUNCTION 'F4IF_START_VALUE_REQUEST'

EXPORTING

shlp = ls_shd

IMPORTING

rc = lf_rc

TABLES

return_values = lt_val.

IF lf_rc IS INITIAL.

LOOP AT lt_val ASSIGNING FIELD-SYMBOL(<ls_val>).

CASE <ls_val>-fieldname.

WHEN 'NRRANGENR'.

p_sscr_field = <ls_val>-fieldval.

WHEN OTHERS.

ENDCASE.

ENDLOOP.

ENDIF.