CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
      EXPORTING
            i_program_name         = g_repid
            i_structure_name       = 'ZHOS_INF_DOCS_STR'
            i_client_never_display = 'X'
            i_inclname             = 'FILTER1TOP'
       CHANGING
            ct_fieldcat            = gt_fieldcat[]
      EXCEPTIONS
           inconsistent_interface = 1
           program_error          = 2
           OTHERS                 = 3.                      "#EC *

  CALL FUNCTION 'LVC_TRANSFER_FROM_SLIS'
    EXPORTING
      it_fieldcat_alv = gt_fieldcat[]
    IMPORTING
      et_fieldcat_lvc = lt_fieldcat[]
    TABLES
      it_data         = it_out
    EXCEPTIONS
      it_data_missing = 1
      OTHERS          = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

  CALL FUNCTION 'LVC_FIELDCAT_COMPLETE'
    CHANGING
      ct_fieldcat = lt_fieldcat[].

*& Определение выбранных столбцов
  REFRESH lt_selected_cols.
  CLEAR ls_selected_cols.

  LOOP AT tab100-cols INTO cxtab WHERE selected = 'X'.
    ls_selected_cols-fieldname = cxtab-screen-name+7.
    APPEND ls_selected_cols TO lt_selected_cols.
  ENDLOOP.

  DATA: gt_events TYPE lvc_t_evts.
  DATA: ls_events TYPE lvc_s_evts.
  CALL FUNCTION 'LVC_FILT_EVENTS_GET'
       IMPORTING
            et_events       = gt_events
*    EXCEPTIONS
*         LIST_TYPE_WRONG = 1
*         OTHERS          = 2
            .
  ls_events-form = 'CALLBACK_F4_HELP'.
  MODIFY gt_events FROM ls_events INDEX 1 TRANSPORTING form.

*&-----------------------------------------------------------------------------------*
*& Вызов ФМ фильтрации
  CALL FUNCTION 'LVC_FILTER'
       EXPORTING
            i_callback_programm    = g_repid
            it_fieldcat            =  lt_fieldcat[]
            it_selected_cols       = lt_selected_cols
*         IT_VALUE_UNIT          = LT_VALUE
*         IT_GROUPLEVELS         =
            is_layout              = ls_layout
*         IS_SELFIELD            = LS_SELFIELD
*         IT_GROUPS              = GT_GROUP
*         IS_FILT_LAYOUT         =
          it_events              = gt_events
*              i_ignoring_case      = p_ignore
       IMPORTING
            et_filter_index        = lt_filter_index
*         ET_GROUPLEVELS_FILTER  =
*         ET_FILTER_INDEX_INSIDE =
*         E_FILTER_FLAGNAME      =
       TABLES
            it_data                = it_out
       CHANGING
            ct_filter              = lt_filter
       EXCEPTIONS
            no_change              = 1
            OTHERS                 = 2.                     "#EC *

...

FORM callback_f4_help USING   lt_fieldtab TYPE t_dfies
                              lt_values TYPE t_values
                              r_fieldname TYPE rsdsfldnum.  "#EC *
  DATA:
    ls_fieldtab TYPE dfies,
    ls_values TYPE s_values.

  IF r_fieldname-fieldname = '1~MATNR'.
    CLEAR ls_fieldtab.
    REFRESH lt_fieldtab[].
    ls_fieldtab-tabname   = 'LT_VALUES'.
    ls_fieldtab-fieldname = '1~MATNR'.
    ls_fieldtab-reptext   = 'Номер материал'.                       "#EC NOTEXT
    ls_fieldtab-inttype   = 'C'.
    ls_fieldtab-intlen    = '18'.
    ls_fieldtab-outputlen = '18'.
    ls_fieldtab-lowercase = ''.
    APPEND ls_fieldtab TO lt_fieldtab.
    CLEAR ls_fieldtab.
    ls_fieldtab-tabname   = 'LT_VALUES'.
    ls_fieldtab-fieldname = '1~MAKTX'.
    ls_fieldtab-reptext   = 'Наименование материала'.             "#EC NOTEXT
    ls_fieldtab-inttype   = 'C'.
    ls_fieldtab-intlen    = '40'.
    ls_fieldtab-outputlen = '40'.
    ls_fieldtab-offset = '40'.
    ls_fieldtab-lowercase = ''.
    APPEND ls_fieldtab TO lt_fieldtab.
    SORT lt_values BY char.
  ENDIF.
ENDFORM.                    "Callback_F4_help

Краткий текст
    Program " " not found.
Что произошло?
    There are several possibilities:
    Error in the ABAP Application Program
    The current ABAP program "SAPLSLVC_DIALOG" had to be terminated because it has
    come across a statement that unfortunately cannot be executed.
    or
    Error in the SAP kernel.
    The current ABAP "SAPLSLVC_DIALOG" program had to be terminated because the
    ABAP processor detected an internal system error.
Анализ ошибки
    An exception occurred that is explained in detail below.
    The exception, which is assigned to class 'CX_SY_PROGRAM_NOT_FOUND', was not
     caught in
    procedure "FILT_F4_SHOW10" "(FORM)", nor was it propagated by a RAISING clause.
    Since the caller of the procedure could not have anticipated that the
    exception would occur, the current program is terminated.
    The reason for the exception is:
    On account of a branch in the program
    (CALL FUNCTION/DIALOG, external PERFORM, SUBMIT)
    or a transaction call, another ABAP/4 program
    is to be loaded, namely " ".
...
>>>>>   call function 'F4IF_INT_TABLE_VALUE_REQUEST'