REPORT z17_18.

*----------------------------------------------------------------------*
*       CLASS lcl_handle_events DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_handle_events DEFINITION.
  PUBLIC SECTION.
    METHODS:
      on_link_click FOR EVENT link_click OF cl_salv_events_table
        IMPORTING row column.
ENDCLASS.                    "lcl_handle_events DEFINITION
*----------------------------------------------------------------------*
*       CLASS lcl_handle_events IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS lcl_handle_events IMPLEMENTATION.
  METHOD on_link_click.
    PERFORM show_cell_info USING row column 'is selected with hotspot.'.
  ENDMETHOD.                    "on_double_click
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_columns TYPE REF TO cl_salv_columns_table.
DATA gr_column  TYPE REF TO cl_salv_column_table.

START-OF-SELECTION.

  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_cell_type( if_salv_c_cell_type=>hotspot ).

  DATA lr_event TYPE REF TO cl_salv_events_table.
  lr_event = gr_table->get_event( ).

  CREATE OBJECT gr_event.
  SET HANDLER gr_event->on_link_click FOR lr_event.

  gr_table->display( ).

*&---------------------------------------------------------------------*
*&      Form  SHOW_CELL_INFO
*&---------------------------------------------------------------------*
FORM show_cell_info USING p_row    TYPE i
              p_column TYPE lvc_fname
              p_text   TYPE string.

  DATA: l_row        TYPE char10.

  WRITE p_row TO l_row LEFT-JUSTIFIED.

  CONCATENATE l_row 'Line' p_column 'Column' p_text
    INTO p_text SEPARATED BY space.

  MESSAGE i000(0k) WITH p_text.

ENDFORM.                    " show_cell_info