*&---------------------------------------------------------------------*
*& Report Z14_06
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z14_06.


CLASS c1 DEFINITION.
  PUBLIC SECTION.
    METHODS : set_data IMPORTING p_imp TYPE i,
      get_data EXPORTING p_exp TYPE i.

*  PROTECTED SECTION.
    DATA : l_num TYPE i.

ENDCLASS.                    "c1 DEFINITION


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

  METHOD get_data.
    p_exp = l_num + 1.
  ENDMETHOD.
ENDCLASS.                    "c1 IMPLEMENTATION

DATA: go_cref TYPE REF TO c1.
DATA: gv_data TYPE i.

START-OF-SELECTION.

  CREATE OBJECT go_cref.
  CALL METHOD go_cref->set_data
    EXPORTING
      p_imp = '10'.

  WRITE : 'SET_DATA Method : ', go_cref->l_num.

  CALL METHOD go_cref->get_data
    IMPORTING
      p_exp = gv_data.

  WRITE : / 'GET_DATA Method : ', gv_data.