*&---------------------------------------------------------------------*
*& Report Z99_35
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_35.

*" ABAP 7.40 릴리즈 이전
CLASS LCL_CLASS01 DEFINITION.
  PUBLIC SECTION.
    DATA LV_STRING TYPE STRING
      VALUE 'EASY ABAP 3.0'.
ENDCLASS.

START-OF-SELECTION.

  DATA: LO_CREF   TYPE REF TO LCL_CLASS01,
        LV_RESULT TYPE STRING.

  CREATE OBJECT LO_CREF.

  LV_RESULT = LO_CREF->LV_STRING.

  CL_DEMO_OUTPUT=>DISPLAY( LV_RESULT ).

**" ABAP 7.40 릴리즈 이후
*CLASS lcl_class01 DEFINITION.
*  PUBLIC SECTION.
*    DATA lv_string TYPE string
*      VALUE 'EASY ABAP 3.0'.
*ENDCLASS.
*
*START-OF-SELECTION.
*
*  DATA(lv_result) =
*     NEW lcl_class01( )->lv_string.
*
*  cl_demo_output=>display( lv_result ).