CLASS EVENT

*&---------------------------------------------------------------------*
*& Report ZTCXHTEST_COUNT_EVENT
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZTCXHTEST_COUNT_EVENT.
*----------------------------------------------------------------------*
* CLASS vehicle DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS vehicle DEFINITION INHERITING FROM object.
PUBLIC SECTION.
EVENTS too_fast.
METHODS: show_speed, accelerate.
PROTECTED SECTION.
DATA speed TYPE i.
ENDCLASS. "vehicle DEFINITION

*----------------------------------------------------------------------*
* CLASS vehicle IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS vehicle IMPLEMENTATION.
METHOD accelerate.
speed = speed + 1.
IF speed > 5.
RAISE EVENT too_fast.
speed = 5.
ENDIF.
ENDMETHOD. "accelerate
METHOD show_speed.
WRITE: / 'speed', speed.
ENDMETHOD. "show_speed
ENDCLASS. "vehicle IMPLEMENTATION

*----------------------------------------------------------------------*
* CLASS handler DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS handler DEFINITION.
PUBLIC SECTION.
METHODS handle_event FOR EVENT too_fast OF vehicle.
ENDCLASS. "handler DEFINITION

*----------------------------------------------------------------------*
* CLASS handler IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS handler IMPLEMENTATION.
METHOD handle_event.
WRITE: / 'speed can not too fast.'.
"speed = 10.
ENDMETHOD. "handle_event
ENDCLASS. "handler IMPLEMENTATION

DATA: vehical_ref TYPE REF TO vehicle,
handler_ref TYPE REF TO handler.

START-OF-SELECTION.
CREATE OBJECT: vehical_ref,handler_ref.
SET HANDLER handler_ref->handle_event FOR ALL INSTANCES.
DO 11 TIMES.
CALL METHOD: vehical_ref->accelerate,
vehical_ref->show_speed.
ENDDO.

[img]http://dl.iteye.com/upload/attachment/424726/c6403c08-3d5a-3a51-bbe6-a6ea6c3c3a82.gif[/img]