SALV Table Sample

FORM show_alv .
  DATA: lr_table TYPE REF TO cl_salv_table.
  DATA: lr_functions TYPE REF TO cl_salv_functions.
  DATA: lr_display TYPE REF TO cl_salv_display_settings.
  DATA: lr_layout TYPE REF TO cl_salv_layout.
  DATA: lr_columns TYPE REF TO cl_salv_columns,
        lr_column  TYPE REF TO cl_salv_column.
  DATA: key TYPE salv_s_layout_key.

  DATA: lv_msg              TYPE string,
        lo_salv_msg         TYPE REF TO cx_salv_msg.

  TRY.
      cl_salv_table=>factory( IMPORTING r_salv_table = lr_table
                             CHANGING t_table = gt_data ).
      lr_functions = lr_table->get_functions( ).
      lr_functions->set_all( abap_true ).

      lr_columns = lr_table->get_columns( ).
      lr_columns->set_optimize( abap_true ).

      lr_display = lr_table->get_display_settings( ).
      lr_display->set_striped_pattern( cl_salv_display_settings=>true ).
      lr_display->set_list_header( text-h00 ).

      lr_layout = lr_table->get_layout( ).
      key-report = sy-repid.
      lr_layout->set_key( key ).
      lr_layout->set_save_restriction( cl_salv_layout=>restrict_none ).
      lr_layout->set_default( cl_salv_layout=>true ).

      lr_table->display( ).
    CATCH cx_salv_msg INTO lo_salv_msg.
      lv_msg = lo_salv_msg->get_text( ).
      MESSAGE lv_msg TYPE 'E'.
  ENDTRY.
ENDFORM.                    " SHOW_ALV