*&---------------------------------------------------------------------*
*& Report  Z14_04
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  z14_04.

CLASS c1 DEFINITION.
  PUBLIC SECTION.
    DATA : l_char TYPE char20.
       METHODS : set_data IMPORTING p_imp TYPE char20,
                  get_data EXPORTING p_exp type char20.
ENDCLASS.                    "c1 DEFINITION

CLASS c1 IMPLEMENTATION.
   METHOD set_data.
     l_char = p_imp.
   ENDMETHOD.

   METHOD GET_data.
    P_exp = L_CHAR.
   ENDMETHOD.
ENDCLASS.                    "c1 IMPLEMENTATION

DATA: go_cref TYPE REF TO c1.
DATA: gv_data type char20.

START-OF-SELECTION.

CREATE OBJECT go_cref.
CALL METHOD: go_cref->set_data
             EXPORTING p_imp =  'Test Class Method'.

CALL METHOD: go_cref->get_data
             IMPORTING p_exp =  GV_DATA.

WRITE GV_DATA.