REPORT  Z17_022                                                     .
CLASS C1 DEFINITION.
PUBLIC SECTION.
  EVENTS: BOWL.
  METHODS GO_BOWL.
ENDCLASS.

CLASS c2 DEFINITION.
PUBLIC SECTION.
  METHODS LETSGO FOR EVENT BOWL OF c1.
ENDCLASS.

CLASS c1 IMPLEMENTATION.
METHOD GO_BOWL.
   WRITE 'WAIT A MINUATE ~'.
   RAISE EVENT BOWL.
ENDMETHOD.
ENDCLASS.

CLASS c2 IMPLEMENTATION.
METHOD LETSGO.
   WRITE / 'OK, LETS GO !!!'.
ENDMETHOD.
ENDCLASS.

DATA: KIM TYPE REF TO c1,
      LEE TYPE REF TO c2.

START-OF-SELECTION.

CREATE OBJECT: KIM, LEE.

SET HANDLER LEE->LETSGO FOR KIM.

KIM->GO_BOWL( ).
*CALL METHOD KIM->GO_BOWL( ).