*&---------------------------------------------------------------------*
*& Report Z14_22
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z14_22.


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 MINUTE ~'.

    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( ).