import dialogpage from memory id 'MATCHCODE_OCX_DLGPAGES'.
" в таблице две строки - TABCTRL "верхнего" СП и текущего
READ TABLE dialogpage with key  SHLP_NAME = <имя верхнего СП>.
import resultbuffer from memory id 'TABControl-RSBF'.
read table resultbuffer with key tab_ctrl = dialogpage-TABCTRL.

DATA: p_h_mcx TYPE cntl_handle,
        line_selopt LIKE LINE OF shlp-selopt,
        select_options LIKE ddshselopt OCCURS 0 WITH HEADER LINE,
        tabcontrols LIKE mctbc_ctrl OCCURS 0 WITH HEADER LINE,
        dialogpage LIKE mctbc_dp OCCURS 1 WITH HEADER LINE,
        help_descr TYPE shlp_descr_t,
        maxrecords TYPE i,
        rc LIKE sy-subrc,
        l_ddshselopt TYPE ddshselopt.

  IF callcontrol-step = 'PRESEL1'.

    IMPORT dialogpage FROM MEMORY ID 'MATCHCODE_OCX_DLGPAGES'.
    READ TABLE dialogpage WITH KEY  shlp_name = 'ZRE_SH_0037'. " верхнее СП
    CHECK sy-subrc = 0.

    IMPORT tabcontrols FROM MEMORY ID 'TABControl-OCX'.
    READ TABLE tabcontrols WITH KEY  handle = dialogpage-tabctrl.
    IF sy-subrc = 0.
      p_h_mcx-obj-header = tabcontrols-or_header.
      p_h_mcx-obj-type = tabcontrols-or_type.
      p_h_mcx-obj-handle = tabcontrols-or_handle.
      p_h_mcx-shellid  =  tabcontrols-shellid.
      p_h_mcx-parentid  =  tabcontrols-parentid.
      p_h_mcx-c_type = tabcontrols-c_type.
      p_h_mcx-clsid = tabcontrols-or_clsid.
      p_h_mcx-origin  = tabcontrols-origin.
      p_h_mcx-handle_type  =  'OCX'.
      PERFORM get_sel_opts(saplwdtm) USING p_h_mcx dialogpage-tabctrl dialogpage-dialognr
         CHANGING help_descr maxrecords rc.

      LOOP AT  help_descr-selopt INTO l_ddshselopt WHERE  shlpfield = 'ZPRIZNAK'. " значение, которым ограничиваем данные в текущем СП
        line_selopt-shlpname  = 'ZRE_SH_ZPRIZN1'.
        line_selopt-shlpfield = 'ZPRIZNAK'.
        line_selopt-sign = l_ddshselopt-sign.
        line_selopt-option = l_ddshselopt-option.
        line_selopt-low = l_ddshselopt-low.
        line_selopt-high = l_ddshselopt-high.
        APPEND line_selopt TO shlp-selopt.
      ENDLOOP.
    ENDIF.

  ENDIF.

* необходимые описания типов/переменных
  TYPE-POOLS: cntl,
              shlp,
              abap.

  INCLUDE wdtgdefs.

  DATA: ld_shlp_wanted TYPE shlpname VALUE <имя_СрПоиска_исходного>.

* определяем Handle TOP-СрПоиска (с которого пришел вызов)
  DATA: ls_tabc_shlptab LIKE tabc_shlpstr,
        lf_found        TYPE abap_bool VALUE abap_false.

  IMPORT tabc_shlptab FROM MEMORY ID 'TABControl-SHLP'.

  LOOP AT tabc_shlptab INTO ls_tabc_shlptab.
    LOOP AT ls_tabc_shlptab-shlp_tab TRANSPORTING NO FIELDS
                                     WHERE shlpname = ld_shlp_wanted.
      EXIT.
    ENDLOOP.
    IF sy-subrc IS INITIAL.
      lf_found = abap_true.
      EXIT.
    ENDIF.
  ENDLOOP.
  IF lf_found = abap_false.
    EXIT.
  ENDIF.

* определяем Shell ID для OCX TOP-СрПоиска
  DATA: ls_tabcontrol TYPE mctbc_ctrl.

  IMPORT tabcontrols FROM MEMORY ID 'TABControl-OCX'.
  READ TABLE tabcontrols INTO ls_tabcontrol
                         WITH KEY handle = ls_tabc_shlptab-handle.
  IF sy-subrc <> 0.
    EXIT.
  ENDIF.

* определяем Handle OCX TOP-СрПоиска
*   и номер диалога (с которого пришел вызов вторичного СрПоиска)
  DATA: dialogpage LIKE mctbc_dp OCCURS 1 WITH HEADER LINE.

  DATA: l_control TYPE cntl_handle,
        l_tab_id  TYPE i,
        l_dialog  TYPE i.

  FIELD-SYMBOLS: <dialog_page> LIKE LINE OF dialogpage.

  CALL FUNCTION 'TABCONTROL_ARRAY'
    EXPORTING
      action      = 'R'
      shell_id    = ls_tabcontrol-shellid
    CHANGING
      tab_id      = l_tab_id
      tab_control = l_control.

  IMPORT dialogpage FROM MEMORY ID 'MATCHCODE_OCX_DLGPAGES'.

  CLEAR l_dialog.
  LOOP AT dialogpage ASSIGNING <dialog_page>
                     WHERE tabctrl   = l_tab_id
                       AND shlp_name = ld_shlp_wanted.
    l_dialog = <dialog_page>-dialognr.
    EXIT.
  ENDLOOP.
  IF l_dialog IS INITIAL.
    EXIT.
  ENDIF.

* Считываем значения полей с первичного экрана
  DATA: lt_selopts LIKE ddshselopt OCCURS 0 WITH HEADER LINE.

  CALL FUNCTION 'TABCONTROL_RETRIEVE_SEL_OPTS'
    EXPORTING
      no_flush        = 'X'
    TABLES
      tabledata       = lt_selopts
    CHANGING
      handle          = l_control
    EXCEPTIONS
      create_error    = 1
      must_field_lack = 2
      OTHERS          = 3.
  IF sy-subrc <> 0.
    EXIT.
  ENDIF.

* Считываем поля экрана OCX-элемента TOP-СрПоиска
  DATA: dialogitem LIKE mctbc_di OCCURS 1 WITH HEADER LINE.

  IMPORT dialogitem FROM MEMORY ID 'MATCHCODE_OCX_DLGITEMS'.

* Выстраиваем соответствие полей диалога и TOP-СрПоиска
  FIELD-SYMBOLS: <dialog_item>   LIKE LINE OF dialogitem,
                 <select_option> LIKE LINE OF lt_selopts.

  LOOP AT lt_selopts ASSIGNING <select_option>.
    LOOP AT dialogitem ASSIGNING <dialog_item>
                       WHERE tabctrl  = l_tab_id
                         AND dialognr = l_dialog
                         AND id       = <select_option>-shlpfield.
* >>> здесь имеем всю нужную информацию ...
    ENDLOOP.
  ENDLOOP.