ENHANCEMENT 1  ZZ_LAQRUNTF01.    "active version
*
DATA ls_ind TYPE i.
DATA ls_str TYPE string.


DESCRIBE TABLE <dtab> LINES ls_ind.
CLEAR ls_str.
ls_str = ls_ind.
CASE sy-cprog.
  WHEN 'AQZZZ_CO========Z_1' OR
       'AQZZZ_CO========Z_2' OR
       'AQZZZ_CO========Z_3' OR
       'AQZZZ_CO========Z_4'.
       CONCATENATE layout-GRID_TITLE ', совпадений' ls_str INTO layout-GRID_TITLE SEPARATED BY space.
ENDCASE.


ENDENHANCEMENT.

  DATA: fieldcatalog       TYPE lvc_t_fcat,
          sort               TYPE lvc_t_sort,
          layout             TYPE lvc_s_layo,
          str                TYPE string,
          l_srtfd_pattern    LIKE aqrdb-srtfd.
    CONCATENATE sy-cprog sy-langu INTO l_srtfd_pattern.
    IMPORT fieldcat = fieldcatalog
           layout   = layout
           sort     = sort
           FROM DATABASE aqrdb(lv) ID l_srtfd_pattern.
    str = sy-dbcnt.
    CONCATENATE 'Просмотр таблицы Z1, совпадений:' str
                INTO
                str SEPARATED BY space.
    layout-grid_title = str.
    CLEAR str.
    EXPORT fieldcat = fieldcatalog
           layout   = layout
           sort     = sort
           TO DATABASE aqrdb(lv) ID l_srtfd_pattern.