REPORT z17_09.

DATA gt_itab    TYPE TABLE OF zemplist.
DATA gr_table   TYPE REF TO cl_salv_table.
DATA gr_columns TYPE REF TO cl_salv_columns_table.
DATA gr_column  TYPE REF TO cl_salv_column_table.

SELECT *
  FROM zemplist
  INTO TABLE @gt_itab.

cl_salv_table=>factory(
  IMPORTING
    r_salv_table = gr_table
  CHANGING
    t_table      = gt_itab ).

gr_columns = gr_table->get_columns( ).
gr_column ?= gr_columns->get_column( 'EMPCD' ).
gr_column->set_long_text( 'Long Text' ).
gr_column->set_medium_text( 'Medium Text' ).
gr_column->set_short_text( 'Short Text' ).

gr_table->display( ).