*&---------------------------------------------------------------------*
*& Report Z14_16
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z14_16.


CLASS lcl_person DEFINITION.
  PUBLIC SECTION.
    DATA: name TYPE string,
          age  TYPE i.

    METHODS: constructor IMPORTING p_name TYPE string p_age TYPE i,
             display_info.
ENDCLASS.

CLASS lcl_person IMPLEMENTATION.
  METHOD constructor.
    " 상위 클래스의 생성자 - 객체가 생성될 때 호출
    name = p_name.
    age = p_age.
  ENDMETHOD.

  METHOD display_info.
    " 객체의 정보를 출력
    WRITE: / '이름:', name, '나이:', age.
  ENDMETHOD.
ENDCLASS.

CLASS lcl_employee DEFINITION INHERITING FROM lcl_person.
  PUBLIC SECTION.
    DATA: employee_id TYPE string.

    METHODS: constructor IMPORTING p_name TYPE string p_age TYPE i p_emp_id TYPE string,
      display_info REDEFINITION.
ENDCLASS.

CLASS lcl_employee IMPLEMENTATION.
  METHOD constructor.
    " 상위 클래스의 생성자를 호출하여 name과 age를 초기화
    super->constructor( p_name = p_name p_age = p_age ).

    " 하위 클래스의 고유 속성인 employee_id를 초기화
    employee_id = p_emp_id.
  ENDMETHOD.

  METHOD display_info.
    " 상위 클래스의 메소드를 호출하여 name과 age를 출력
    super->display_info( ).

    " 하위 클래스의 고유 속성인 employee_id를 출력
    WRITE: / '사번:', employee_id.
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
  DATA: lo_employee TYPE REF TO lcl_employee.

  " 객체 생성 및 생성자 메소드 호출
  CREATE OBJECT lo_employee
    EXPORTING
      p_name   = '김철수'
      p_age    = 28
      p_emp_id = '1001'.

  " 객체의 정보를 출력하는 메소드 호출
  lo_employee->display_info( ).