Friend Class in OOP ABAP

REPORT  zcl_oops_test.


CLASS cl_friend DEFINITION DEFERRED.


*----------------------------------------------------------------------*
*       CLASS cl_new DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cl_new DEFINITION FRIENDS cl_friend.
  PUBLIC SECTION.
    METHODS: name,
             add.

  PROTECTED SECTION.
    METHODS: ph_no.

  PRIVATE SECTION.
    DATA: obj_frnd TYPE REF TO cl_new.

    METHODS: pswrd.
ENDCLASS.                    "cl_new DEFINITION



*----------------------------------------------------------------------*
*       CLASS cl_new IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cl_new IMPLEMENTATION.

  METHOD name.
    WRITE:/ 'Name - Sandhya'.
  ENDMETHOD.                    "name

  METHOD add.
    WRITE:/ 'Address - Bangalore'.
  ENDMETHOD.                    "add

  METHOD ph_no.
    WRITE:/ 'Ph_No - 123456789'.
  ENDMETHOD.                    "ph_no

  METHOD pswrd.
    WRITE:/ 'Pswrd - #12345@'.

  ENDMETHOD.                    "pswrd

ENDCLASS.                    "cl_new IMPLEMENTATION


*----------------------------------------------------------------------*
*       CLASS cl_friend DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cl_friend DEFINITION INHERITING FROM cl_new.

  PUBLIC SECTION.
    METHODS: details.


ENDCLASS.                    "cl_friend DEFINITION

*----------------------------------------------------------------------*
*       CLASS cl_friend IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cl_friend IMPLEMENTATION.

  METHOD details.

    DATA: obj TYPE REF TO cl_new.
    CREATE OBJECT obj.
    CALL METHOD obj->name.
    CALL METHOD obj->add.
    CALL METHOD obj->ph_no.
    CALL METHOD obj->pswrd.
  ENDMETHOD.                    "details

ENDCLASS.                    "cl_friend IMPLEMENTATION

START-OF-SELECTION.

  DATA: ref TYPE REF TO cl_friend.

  CREATE OBJECT ref.

  CALL METHOD ref->details.

Output