*&---------------------------------------------------------------------*
*& Report Z14_04
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z14_04.

CLASS lcl_example DEFINITION.
  PUBLIC SECTION.
    DATA : l_str TYPE string.

    METHODS : concat_string IMPORTING p_str1 TYPE string p_str2 TYPE string,
      get_concat EXPORTING p_result TYPE string.
ENDCLASS.

CLASS lcl_example IMPLEMENTATION.
  METHOD concat_string.
    l_str = p_str1 && '-' && p_str2.
  ENDMETHOD.

  METHOD get_concat.
    p_result = l_str.
  ENDMETHOD.
ENDCLASS.

DATA: go_cref TYPE REF TO lcl_example,
      gv_res  TYPE string.

START-OF-SELECTION.
  CREATE OBJECT go_cref.

  CALL METHOD go_cref->concat_string
    EXPORTING
      p_str1 = 'Easy'
      p_str2 = 'ABAP'.

  CALL METHOD go_cref->get_concat
    IMPORTING
      p_result = gv_res.

  WRITE gv_res.