*&---------------------------------------------------------------------*
*& Report Z14_11
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z14_11.


CLASS emp_class DEFINITION.
  PUBLIC SECTION.
    DATA : gt_itab TYPE TABLE OF zemplist,
           gs_str  TYPE zemplist.

    DATA : gv_empcd TYPE zdeempcd,
           gv_ename TYPE zdeename.

    METHODS:constructor IMPORTING i_empcd TYPE zdeempcd
                                  i_ename TYPE zdeename.

    METHODS:get_data.

ENDCLASS.                    "emp_class DEFINITION

CLASS emp_class IMPLEMENTATION.
  METHOD: constructor.
    gv_empcd = i_empcd.
    gv_ename = i_ename.
  ENDMETHOD.                    "constructor


  METHOD: get_data .
    SELECT * INTO TABLE @gt_itab
    FROM zemplist
    WHERE empcd = @gv_empcd
      AND ename = @gv_ename.

  ENDMETHOD.                "get_data
ENDCLASS.                    "emp_class IMPLEMENTATION

DATA go_emp TYPE REF TO emp_class.

START-OF-SELECTION.

  CREATE OBJECT go_emp
    EXPORTING
      i_empcd = '1001'
      i_ename = '김철수'.

  CALL METHOD go_emp->get_data.

  LOOP AT go_emp->gt_itab INTO go_emp->gs_str.

    WRITE :/ go_emp->gs_str-empcd,  go_emp->gs_str-ename.

  ENDLOOP.