CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'                 "

    EXPORTING

      SHLPPARAM                 = 'как обьявить и заполнить?'

      searchhelp                = 'H_T530'                  "

    TABLES

      return_tab                = ret.

*&---------------------------------------------------------------------*
*&      Form  call_f4_shlp
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM call_f4_shlp.
  DATA: return_tab LIKE ddshretval OCCURS 0 WITH HEADER LINE.
  CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
      EXPORTING
          tabname           = 'EBAN'
          fieldname         = 'BSART'
          searchhelp        = 'ZPM_CCRQK' " Имя ср. поиска
          callback_program  = 'ZTST'
          callback_form     = 'CB_F4_VALUE_REQUEST'
      TABLES
          return_tab        = return_tab
      EXCEPTIONS
          field_not_found   = 1
          no_help_for_field = 2
          inconsistent_help = 3
          no_values_found   = 4
          OTHERS            = 5.

  IF NOT return_tab[] IS INITIAL.
    READ TABLE return_tab WITH KEY shlpname = 'H_T161'
                                  fieldname = 'BSART'.
    IF sy-subrc EQ 0.
      eban-bsart = return_tab-fieldval.
    ENDIF.
  ENDIF.

ENDFORM.                    " call_f4_shlp

*---------------------------------------------------------------------*
*       FORM cb_f4_value_request                                      *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
*  -->  RECORD_TAB                                                    *
*  -->  SHLP                                                          *
*  -->  CALLCONTROL                                                   *
*---------------------------------------------------------------------*
FORM cb_f4_value_request TABLES record_tab STRUCTURE seahlpres
                       CHANGING shlp TYPE shlp_descr_t
                                callcontrol LIKE ddshf4ctrl.
  DATA: wa_props LIKE ddshfprop,
        wa_intf LIKE ddshiface,
        wa_selopt LIKE ddshselopt.

  wa_selopt-shlpname = 'H_T161'.
  wa_selopt-shlpfield = 'BSTYP'.
  wa_selopt-sign = 'I'.
  wa_selopt-option = 'EQ'.
  wa_selopt-low = 'B'.
  APPEND wa_selopt TO shlp-selopt.
ENDFORM.                    "CB_F4_VALUE_REQUEST