CLASS zcl_emp DEFINITION
  PUBLIC
  FINAL
  CREATE PUBLIC .

  PUBLIC SECTION.

    DATA gt_itab TYPE ztbfamily .
    DATA gs_str TYPE zfamily .

    EVENTS e1 .

    METHODS get_data
      IMPORTING
        !i_empcd TYPE zdeempcd .
    METHODS display_data .
    METHODS no_data
        FOR EVENT e1 OF zcl_emp .
  PROTECTED SECTION.
  PRIVATE SECTION.
ENDCLASS.



CLASS ZCL_EMP IMPLEMENTATION.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_EMP->DISPLAY_DATA
* +-------------------------------------------------------------------------------------------------+
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD display_data.
    LOOP AT gt_itab INTO gs_str.
      WRITE:/ gs_str-empcd, gs_str-fname.
    ENDLOOP.
  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_EMP->GET_DATA
* +-------------------------------------------------------------------------------------------------+
* | [--->] I_EMPCD                        TYPE        ZDEEMPCD
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD get_data.
    SELECT * INTO CORRESPONDING FIELDS OF TABLE @gt_itab
     FROM zfamily
      WHERE empcd = @i_empcd.

    IF sy-subrc <> 0.
      RAISE EVENT e1.
    ELSE .
      CALL METHOD display_data.
    ENDIF.
  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_EMP->NO_DATA
* +-------------------------------------------------------------------------------------------------+
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD no_data.
    WRITE:/10 'There is no data'.
  ENDMETHOD.
ENDCLASS.