REPORT  z14_19.

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,
                   fldate TYPE sflight-fldate,
    END OF t_sflight.

    DATA :gt_itab TYPE STANDARD TABLE OF t_sflight,
          gs_str 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 fldate FROM sflight
         INTO TABLE gt_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 gt_itab INTO gs_str.
       WRITE:/10 gs_str-carrid.
       WRITE:40 gs_str-connid.
    WRITE:60 gs_str-fldate.
      ENDLOOP.
     ENDMETHOD.   "DISPLAY_DATA

    METHOD no_data .
        WRITE:/10 ' C1: NO DATA FOR SELECTION CRITERIA'.
       ENDMETHOD.          "no_data
    ENDCLASS.                    "c1 IMPLEMENTATION

    DATA :go_obj1 TYPE REF TO c1.

START-OF-SELECTION.
   CREATE OBJECT: go_obj1.

   SET HANDLER go_obj1->no_data FOR: go_obj1.

   CALL METHOD go_obj1->get_data .