*&---------------------------------------------------------------------*
*& Report ZH_CLASS_F2
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZH_CLASS_F2.
***********************************************************************************
********************* FRIENDS CLASS ............................................
***********************************************************************************
CLASS D2 DEFINITION DEFERRED.
*
class D1 DEFINITION FRIENDS D2.
PRIVATE SECTION.
METHODS:P1.
DATA:MP1 TYPE I VALUE 100.
ENDCLASS.
class D1 IMPLEMENTATION.
METHOD P1.
WRITE:/ 'PRIVATE DATA' COLOR 4,MP1 COLOR 7.
ENDMETHOD.
ENDCLASS.
CLASS D2 DEFINITION INHERITING FROM D1.
PUBLIC SECTION.
METHODS MK1.
ENDCLASS.
CLASS D2 IMPLEMENTATION.
METHOD MK1.
DATA:PT1 TYPE REF TO D1.
CREATE OBJECT PT1.
CALL METHOD PT1->P1.
ENDMETHOD.
ENDCLASS.
********************************************************************
**** CALL OF FRIENDS PRIVATE METHOD WITH CALLING METHOD OF ITS OWN.
********************************************************************
START-OF-SELECTION.
DATA:PDT2 TYPE REF TO D2.
CREATE OBJECT PDT2.
CALL METHOD PDT2->MK1.
