*&---------------------------------------------------------------------*
*& Report Z14_01
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z14_01.

CLASS lcl_dog DEFINITION.
  PUBLIC SECTION.
    DATA: name  TYPE string,
          breed TYPE string.
    METHODS: constructor IMPORTING name TYPE string breed TYPE string,
      bark.
ENDCLASS.

CLASS lcl_dog IMPLEMENTATION.
  METHOD constructor.
    me->name = name.
    me->breed = breed.
  ENDMETHOD.

  METHOD bark.
    WRITE: / 'Woof!'.
  ENDMETHOD.
ENDCLASS.

DATA: lo_dog TYPE REF TO lcl_dog.

START-OF-SELECTION.
  CREATE OBJECT lo_dog
    EXPORTING
      name  = 'Rex'
      breed = 'German Shepherd'.

  lo_dog->bark( ).  " 메소드 호출

  WRITE: / '이름: ', lo_dog->name, '품종: ', lo_dog->breed. "속성