FUNCTION ZLAB4TASK2_FLIGHTS_DATA.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"  TABLES
*"      SHLP_TAB TYPE  SHLP_DESCT
*"      RECORD_TAB STRUCTURE  SEAHLPRES
*"  CHANGING
*"     REFERENCE(SHLP) TYPE  SHLP_DESCR
*"     REFERENCE(CALLCONTROL) LIKE  DDSHF4CTRL STRUCTURE  DDSHF4CTRL
*"----------------------------------------------------------------------

  " Заполняем структуру аналогично как в полях средства поиска
 TYPES:
 BEGIN OF ts_source,
    CARRID TYPE S_CARR_ID,
    CONNID TYPE S_CONN_ID,
    PRICE TYPE S_PRICE,
  END   OF ts_source,
  tt_source TYPE TABLE OF ts_source.

*   Записываем структуру и таблицу
  DATA:
          lt_source TYPE tt_source
        , ls_source TYPE ts_source
        .

  IF callcontrol-step <> 'SELECT'.
    callcontrol-no_maxdisp = abap_true.
    EXIT.
  ENDIF.

  " Здесь заполняем таблицу lt_source
  SELECT carrid, connid, price FROM sflight INTO TABLE @lt_source.

  " Заполняем таблицу record_tab с помощью фм F4UT_RESULTS_MAP
  CALL FUNCTION 'F4UT_RESULTS_MAP'
    EXPORTING
     apply_restrictions = abap_true
   TABLES
        shlp_tab           = shlp_tab
        record_tab         = record_tab
        source_tab         = lt_source
      CHANGING
        shlp               = shlp
        callcontrol        = callcontrol
      EXCEPTIONS
        illegal_structure  = 1
        OTHERS             = 2.

  IF sy-subrc <> 0.
    callcontrol-step = 'EXIT'.
  ELSE.
    callcontrol-step = 'DISP'.
  ENDIF.

ENDFUNCTION.