GoodleAds

OOPS ABAP LOCAL CLASS PROGRAM ON EVENTS



*----------------------------------------------------------------------*
*       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:




No comments:

Post a Comment