Средство поиска

Средство поиска будем создавать непосредственно в коде программы. Это удобней и быстрей чем через SE11 (по крайней мере для меня), если мы только не предполагаем использовать это средство поиска из различных программ.
Все достаточно просто, поэтому без комментариев.

  data: begin of wa_zdogov,
          zdognr type zdogov-zdognr,
         znumclt type zdogov-znumclt,
          end of wa_zdogov,
          lt_zdogov like standard table of wa_zdogov,
          lt_return type standard table of ddshretval,
          wa_return type ddshretval.

  select zdognr znumclt
    into table lt_zdogov
    from zdogov
   where zdognr eq zk2dog and
         suname eq sy-uname.
  if sy-subrc ne 0.
    message 'Данных не найдено' type 'S'.
    exit.
  endif.

  call function 'F4IF_INT_TABLE_VALUE_REQUEST'
    exporting
      retfield   = 'ZNUMCLT'
      pvalkey    = 'X'
      value_org  = 'S'
    tables
      value_tab  = lt_zdogov
      return_tab = lt_return.

    read table lt_return into wa_return index 1.
    check sy-subrc eq 0.
    zta_oil-znumclt = wa_return-fieldval.