REPORT  Z_TBL_TEST_REPORT.

DATA: VR TYPE REF TO DATA.
PARAMETERS: TABNAM(16) MATCHCODE OBJECT DD_DBTB_16.

FIELD-SYMBOLS: <record>,
               <cell>,
               <tab> TYPE STANDARD TABLE.

TABLES: DD02L.

START-OF-SELECTION.

CLEAR DD02L.
SELECT SINGLE * FROM DD02L WHERE TABNAME = TABNAM.

IF NOT DD02L-TABNAME IS INITIAL.
  CREATE DATA VR TYPE STANDARD TABLE OF (TABNAM).
  ASSIGN VR->* TO <tab>.
  LOOP AT <tab> ASSIGNING <record>.
     do 3 times.
      assign component sy-index of structure <record> to <cell>.
      write <cell>.
     enddo.
  ENDLOOP.
ELSE.
  WRITE:/ 'Неправильное имя таблицы'.
ENDIF.

  ASSIGN VR->* TO <tab>.
  LOOP AT <tab> ASSIGNING <record>.
     do 3 times.
      assign component sy-index of structure <record> to <cell>.
      write <cell>.
     enddo.
  ENDLOOP.

REPORT  ZTESTTAB                                 .


DATA:   VR TYPE REF TO DATA,
        PRN TYPE SY-REPID.

PARAMETERS: TABNAM(16) MATCHCODE OBJECT DD_DBTB_16, "Имя таблицы
            MAXENTR TYPE I DEFAULT 200.   "Макс.кол-во записей

FIELD-SYMBOLS: <WA>, <P> TYPE STANDARD TABLE.

TABLES: DD02L.

START-OF-SELECTION.

  CLEAR DD02L.

  SELECT SINGLE * FROM DD02L
      WHERE TABNAME = TABNAM.

  IF  NOT DD02L-TABNAME IS INITIAL.
    CREATE DATA VR TYPE STANDARD TABLE OF (TABNAM).
    ASSIGN VR->* TO <P>.
    PERFORM VALV.
  ELSE.
    WRITE:/ 'Неправильное имя таблицы'.
  ENDIF.

FORM VALV.
  DATA: SNAME LIKE DD02L-TABNAME.
  SNAME = TABNAM.
  PRN = SY-REPID.
  CLEAR <P>. REFRESH <P>.
  SELECT * FROM (TABNAM)
          APPENDING TABLE <P>
          UP TO MAXENTR ROWS.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = PRN
      I_STRUCTURE_NAME         = SNAME
      I_SAVE                   = 'A'
    TABLES
      T_OUTTAB                 = <P>.

ENDFORM.