*&---------------------------------------------------------------------*
*& Report Z99_36
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z99_36.

*" ABAP 7.40 릴리즈 이전
CLASS LCL_CLASS01 DEFINITION.
  PUBLIC SECTION.
    METHODS: CONCAT_STRING
      IMPORTING I_VALUE  TYPE STRING
      EXPORTING E_RESULT TYPE STRING.
ENDCLASS.

CLASS LCL_CLASS01 IMPLEMENTATION.
  METHOD CONCAT_STRING .
    CONCATENATE I_VALUE 'ABAP 3.0'
      INTO E_RESULT SEPARATED BY SPACE.
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
  DATA: LO_CREF   TYPE REF TO LCL_CLASS01,
        LV_RESULT TYPE STRING.

  CREATE OBJECT LO_CREF.

  CALL METHOD LO_CREF->CONCAT_STRING
    EXPORTING
      I_VALUE  = 'EASY'
    IMPORTING
      E_RESULT = LV_RESULT.

  CL_DEMO_OUTPUT=>DISPLAY( LV_RESULT ).


**" ABAP 7.40 릴리즈 이후
*CLASS LCL_CLASS01 DEFINITION.
*  PUBLIC SECTION.
*    METHODS: CONCAT_STRING
*      IMPORTING I_VALUE  TYPE STRING
*      EXPORTING E_RESULT TYPE STRING.
*ENDCLASS.
*
*CLASS LCL_CLASS01 IMPLEMENTATION.
*  METHOD CONCAT_STRING .
*    CONCATENATE I_VALUE 'ABAP 3.0'
*      INTO E_RESULT SEPARATED BY SPACE.
*  ENDMETHOD.
*ENDCLASS.
*
*START-OF-SELECTION.
*  NEW LCL_CLASS01( )->CONCAT_STRING(
*    EXPORTING
*      I_VALUE  = 'EASY'
*    IMPORTING
*      E_RESULT = DATA(LV_RESULT) ).
*
*  CL_DEMO_OUTPUT=>DISPLAY( LV_RESULT ).