*&---------------------------------------------------------------------*
*& Report Z14_23
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z14_23.

TABLES:zemplist.

SELECT-OPTIONS: s_empcd FOR zemplist-empcd.

CLASS c1 DEFINITION.
  PUBLIC SECTION.
    TYPES:BEGIN OF t_emp,
            empcd TYPE zemplist-empcd,
            ename TYPE zemplist-ename,
            fname TYPE zfamily-fname,
          END OF t_emp.

    DATA :gt_itab TYPE STANDARD TABLE OF t_emp,
          gs_str  TYPE t_emp.

    EVENTS: e1 .

    METHODS : get_data ,display_data ,no_data
      FOR EVENT e1 OF c1.
ENDCLASS.             "C1 DEFINITION

CLASS c1 IMPLEMENTATION.
  METHOD: get_data .
    SELECT a~empcd, a~ename, b~fname
      FROM zemplist AS a INNER JOIN zfamily AS b
        ON a~empcd = b~empcd
      INTO TABLE @gt_itab
      WHERE a~empcd IN @s_empcd.

    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:/ gs_str-empcd, gs_str-ename, gs_str-fname.
    ENDLOOP.
  ENDMETHOD.   "DISPLAY_DATA

  METHOD no_data .
    WRITE:/10 'There is no data'.
  ENDMETHOD.          "no_data
ENDCLASS.                    "c1 IMPLEMENTATION

DATA : go_obj TYPE REF TO c1.

START-OF-SELECTION.
  CREATE OBJECT: go_obj.

  SET HANDLER go_obj->no_data FOR: go_obj.

  CALL METHOD go_obj->get_data.