report ziut_text_search.

  tables: trdir,
          rlgrap.

  select-options: so_name for trdir-name default 'ZBC_TEXT_SEARC'.
  parameters: p_search(80) type c.

  data: begin of it_trdir occurs 500.
          include structure trdir.
  data: end of it_trdir.

  data: begin of it_src occurs 10000,
          line(320),
        end of it_src,
        begin of lt_rezult occurs 1000,
          name like trdir-name,
          position like sy-tabix,
        end of lt_rezult.

start-of-selection.
  select * from trdir
           into corresponding fields of table it_trdir
           where name in so_name.

  loop at it_trdir.

    read report it_trdir-name into it_src.

    loop at it_src.

      find p_search in it_src-line ignoring case.

      if sy-subrc = 0.

        lt_rezult-name = it_trdir-name.
        lt_rezult-position = sy-tabix.
        append lt_rezult.

      endif.

    endloop.

    clear it_src.
    refresh it_src.

  endloop.

  write: / 'Program name', '                                  position of find row'.

  loop at lt_rezult.

    write: / lt_rezult-name, lt_rezult-position.

  endloop.