Listing 6.18  Ereignisse und Ereignisbehandler definieren
CLASS lcl_product DEFINITION.
  PUBLIC SECTION.
    EVENTS:
      on_title_change
        EXPORTING
          value(i_title) TYPE string.
    METHODS:
      set_title FOR EVENT on_title_change OF 
        lcl_product
        IMPORTING
          i_title.
    DATA:
      title TYPE string,
ENDCLASS.                    "lcl_product DEFINITION

DATA:
  l_product1 TYPE REF TO lcl_product,
  l_product2 TYPE REF to lcl_product.

CREATE OBJECT l_product1.
CREATE OBJECT l_product2.
* Connect handle of product1 with event of product2
SET HANDLER l_product1->set_title FOR l_product2.