Вывод ALV Grig при помощи класса cl_salv_table

REPORT  Z_ALV_CLASS_TEST.
 
TYPE-POOLS slis.
 
DATA:t_kna1 like kna1 OCCURS 0 WITH HEADER LINE.
 
SELECT * FROM kna1 INTO CORRESPONDING FIELDS OF TABLE t_kna1.
 
 
PERFORM DISPLAY_ALV.
 
 
FORM DISPLAY_ALV.
 
*Обьявляем переменные для alv grid
  DATA:
         gc_alv_table TYPE REF TO cl_salv_table,
         gc_functions TYPE REF TO cl_salv_functions,
         gc_columns TYPE REF TO cl_salv_columns_table.
 
  cl_salv_table=>factory(
      IMPORTING r_salv_table = gc_alv_table
      CHANGING t_table = t_kna1[]
  ).
 
  gc_functions = gc_alv_table->get_functions( ).
  gc_functions->set_all( 'X' ).
  gc_alv_table->display( ).
 
 
ENDFORM.                    "DISPLAY_ALV