REPORT  z14_17.

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.