REPORT  z17_025                                                     .
TABLES:sflight.
SELECT-OPTIONS: s_carrid FOR sflight-carrid.

CLASS c1 DEFINITION.
  PUBLIC SECTION.
    TYPES:BEGIN OF t_sflight,
    carrid TYPE sflight-carrid,
    connid TYPE sflight-connid,
    END OF t_sflight.

    DATA:itab TYPE STANDARD TABLE OF t_sflight,
    wa_itab TYPE t_sflight.
    EVENTS: e1 .
    METHODS:get_data,display_data,no_data FOR EVENT e1 OF c1..
ENDCLASS.                    "C1 DEFINITION

CLASS c1 IMPLEMENTATION.
  METHOD: get_data.
    SELECT carrid connid FROM sflight INTO TABLE itab
    WHERE carrid IN s_carrid.
    IF sy-subrc <> 0.
      RAISE EVENT e1.
    ELSE .
      CALL METHOD display_data.
    ENDIF.

  ENDMETHOD.                    "GET_DATA

  METHOD:display_data.
    LOOP AT itab INTO wa_itab.
      WRITE:/10 wa_itab-carrid.
      WRITE:40 wa_itab-connid.
    ENDLOOP.
  ENDMETHOD.                    "DISPLAY_DATA

  METHOD no_data.
    WRITE:/10 'C1: NO DATA FOR SELECTION CRITERIA'.
  ENDMETHOD.                    "NO_DATA
ENDCLASS.                    "C1 IMPLEMENTATION
***********************
CLASS c2 DEFINITION .
  PUBLIC SECTION.
    METHODS:no_data FOR EVENT e1 OF c1.
ENDCLASS.                    "C2 DEFINITION

CLASS c2 IMPLEMENTATION.
  METHOD no_data.
    WRITE:/10 ' C2:NO DATA FOR SELECTION CRITERIA'.
  ENDMETHOD.                    "NO_DATA
ENDCLASS.                    "C2 IMPLEMENTATION


DATA:obj1 TYPE REF TO c1,
obj3 TYPE REF TO c1.
DATA:obj2 TYPE REF TO c2.


START-OF-SELECTION.
  CREATE OBJECT: obj1,obj3 ,obj2.

  SET HANDLER obj1->no_data FOR: obj1.

  CALL METHOD obj1->get_data.
  SET HANDLER obj1->no_data FOR: obj1 ACTIVATION space.
  SET HANDLER obj2->no_data FOR obj1.
  CALL METHOD obj1->get_data.