*&---------------------------------------------------------------------*
*& Report Z14_19
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z14_19.


INTERFACE account.
  METHODS calc IMPORTING p1 TYPE i.
ENDINTERFACE.                    "account

CLASS cls1 DEFINITION.
  PUBLIC SECTION.
    INTERFACES account.
    ALIASES calc FOR account~calc.
ENDCLASS.                    "CLS1 DEFINITION

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

DATA : cref1 TYPE REF TO cls1.

START-OF-SELECTION.

  CREATE OBJECT : cref1.

  CALL METHOD: cref1->calc EXPORTING p1 = 200.