Events in oops alv

Question

hello can anyone tell how we can handle the event hotspot_click in oops alv with some sample code.
thanks,
srinu

Answer 1

CLASS lcl_events DEFINITION.
  PUBLIC SECTION.
    METHODS:
        on_hotspot_click
            FOR EVENT hotspot_click OF cl_gui_alv_grid
            IMPORTING e_row_id.
ENDCLASS.                    "lcl_events DEFINITION
      CLASS lcl_events_d1001 IMPLEMENTATION                             "Local Class Implementation
CLASS lcl_events IMPLEMENTATION.
  METHOD on_hotspot_click.
    PERFORM navigate_to_detail_view
            USING e_row_id.
  ENDMETHOD.                  "on_hotspot_click
ENDCLASS.                  "lcl_events IMPLEMENTATION
*****Data declaration
DATA : wa_fieldcat          TYPE lvc_s_fcat.                          "Field Catalog for List Viewer Control - Header Data
DATA : it_fieldcat          TYPE lvc_t_fcat.                          "Field Catalog table for List Viewer Control - Header Data
DATA : w_container          TYPE scrfname VALUE 'ALV_CNTR'.           "Grid container for Header Data
DATA : w_grid               TYPE REF TO cl_gui_alv_grid.              "Grid Instance for Header Data
DATA : w_custom_container   TYPE REF TO cl_gui_custom_container.      "Container Instance for Header Data
DATA : w_layout             TYPE lvc_s_layo.                          "ALV control: Layout structure for Header Data
DATA : w_events             TYPE REF TO lcl_events.                   "Instance for the local class
DATA : w_okcode_100         TYPE sy-ucomm.
Call screen 100.
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'GUI100'.
  SET TITLEBAR  'T01'.
ENDMODULE.                 " status_0100  OUTPUT
*&      Module  user_command_0100  INPUT
      text
MODULE user_command_0100 INPUT.
  w_okcode_100 = sy-ucomm.
  CLEAR sy-ucomm.
  CASE w_okcode_100.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN 'CANCEL'.
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.                 " user_command_0100  INPUT
*&      Module  display_report  OUTPUT
      text
MODULE display_report OUTPUT.
  IF w_custom_container IS INITIAL.
    CREATE OBJECT w_custom_container
      EXPORTING
        container_name = w_container.
    CREATE OBJECT w_grid
      EXPORTING
        i_parent = w_custom_container.
  ENDIF.
  CREATE OBJECT w_events.
  SET HANDLER w_events->on_hotspot_click FOR w_grid.
  PERFORM fieldcat_header.
  w_layout-grid_title = text-002.
  CALL METHOD w_grid->set_table_for_first_display
    EXPORTING
      is_layout                     = w_layout
    CHANGING
      it_outtab                     = it_result1
      it_fieldcatalog               = it_fieldcat
    EXCEPTIONS
      invalid_parameter_combination = 1
      program_error                 = 2
      too_many_lines                = 3
      OTHERS                        = 4.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDMODULE.                 " display_report  OUTPUT