ls_event-name = 'CONTEXT_MENU'.
    ls_event-form = 'CONTEXT_MENU'.
    APPEND ls_event TO lt_events.

FORM context_menu USING e_object TYPE REF TO cl_ctmenu.
  DATA: l_smenu TYPE REF TO cl_ctmenu.
  IF e_object IS BOUND.
*   Create custom Sub-menu to hide column on which right
*   mouse button will be clicked
    CREATE OBJECT l_smenu.
    CALL METHOD l_smenu->add_function
      EXPORTING
        fcode = 'ZFN1'
        text  = 'Hide Column'.
    CALL METHOD e_object->add_submenu
      EXPORTING
        menu = l_smenu
        text = 'Hide'(002).
  ENDIF.
ENDFORM.                    "CONTEXT_MENU