*&---------------------------------------------------------------------*
*& Report Z14_24
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z14_24.


PARAMETERS : p_empcd TYPE zfamily-empcd.

DATA :go_obj TYPE REF TO zcl_emp.

START-OF-SELECTION.
  CREATE OBJECT: go_obj.

  SET HANDLER go_obj->no_data FOR: go_obj.

  CALL METHOD go_obj->get_data
    EXPORTING
      i_empcd = p_empcd.