*----------------------------------------------------------------------*
* CLASS LCL_ABAP DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS LCL_ABAP DEFINITION.
PUBLIC SECTION.
EVENTS MYEVENT.
METHODS USER_ACTIONS.
METHODS METHOD1 FOR EVENT MYEVENT OF LCL_ABAP.
ENDCLASS. "LCL_ABAP DEFINITION
DATA OBJ TYPE REF TO LCL_ABAP.
CREATE OBJECT OBJ.
SET HANDLER OBJ->METHOD1 FOR OBJ.
CALL METHOD OBJ->USER_ACTIONS.
*----------------------------------------------------------------------*
* CLASS LCL_ABAP IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS LCL_ABAP IMPLEMENTATION.
METHOD USER_ACTIONS.
RAISE EVENT MYEVENT.
ENDMETHOD. "USER_ACTIONS
METHOD METHOD1.
WRITE:/ 'MY EVENT IS TRIGGERED'.
ENDMETHOD. "METHOD1
ENDCLASS. "LCL_ABAP IMPLEMENTATION
***************************************************************
*HERE METHOD1 HAS BEEN CONVERTED TO EVENT HANDLER METHOD,
*BY THE STATEMENT METHODS METHOD1 FOR EVENT MYEVENT OF LCL_ABAP.
****************************************************************
******************************************************************
"METHOD USER_ACTIONS IS THE NORMAL METHOD,WE NEED TO WRITE OUR LOGIC
" RAISE EVENT MYEVENT.
"THIS METHOD IS USED TO CALL
" CALL METHOD OBJ->USER_ACTIONS
*********************************************************************
OUTPUT:
OUTPUT:
