*&---------------------------------------------------------------------*
*& Report Z14_18
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z14_18.


INTERFACE account.
  METHODS calc .
  DATA balance TYPE i.
ENDINTERFACE.

CLASS cls1 DEFINITION.
  PUBLIC SECTION.
    INTERFACES account.
ENDCLASS.

CLASS cls1 IMPLEMENTATION.
  METHOD account~calc.
    WRITE : / 'Deposit money is : ', account~balance.
  ENDMETHOD.                    "account~calc
ENDCLASS.


CLASS cls2 DEFINITION.
  PUBLIC SECTION.
    INTERFACES account.
ENDCLASS.

CLASS cls2 IMPLEMENTATION.
  METHOD account~calc.
    WRITE : / 'Withdrawl money is : ', account~balance.
  ENDMETHOD.                    "account~calc
ENDCLASS.                    "CLS2 IMPLEMENTATION

DATA : cref1 TYPE REF TO cls1,
       cref2 TYPE REF TO cls2,
       iref  TYPE REF TO account.

START-OF-SELECTION.

  CREATE OBJECT : cref1, cref2.

  cref1->account~balance = 300.
  CALL METHOD: cref1->account~calc.

  iref = cref1.
  CALL METHOD iref->calc.


  cref2->account~balance = '-200'.
  CALL METHOD: cref2->account~calc.

  iref = cref2.
  CALL METHOD iref->calc.