REPORT z17_20.

*--------------------------------------------------------------------*
*       CLASS lcl_handle_events DEFINITION
*--------------------------------------------------------------------*
CLASS lcl_handle_events DEFINITION.
  PUBLIC SECTION.
    METHODS:
      on_user_command FOR EVENT added_function OF cl_salv_events
        IMPORTING e_salv_function.
ENDCLASS.                    "lcl_handle_events DEFINITION
*--------------------------------------------------------------------*
*       CLASS lcl_handle_events IMPLEMENTATION
*--------------------------------------------------------------------*
CLASS lcl_handle_events IMPLEMENTATION.
  METHOD on_user_command.
    PERFORM handle_user_command USING e_salv_function.
  ENDMETHOD.                    "on_user_command
ENDCLASS.                    "lcl_handle_events IMPLEMENTATION


DATA gt_itab      TYPE TABLE OF zemplist.
DATA gr_table     TYPE REF TO cl_salv_table.
DATA gr_event     TYPE REF TO lcl_handle_events.
DATA gr_functions TYPE REF TO cl_salv_functions_list.
DATA gr_container TYPE REF TO cl_gui_custom_container.
DATA ok_code      TYPE syucomm.

INCLUDE z17_20_0100_pboo01.
INCLUDE z17_20_0100_paii01.
INCLUDE z17_20_0100_paif01.

START-OF-SELECTION.
  SELECT *
    FROM zemplist
    INTO TABLE @gt_itab.

  CALL SCREEN 0100.