ZMR Class Friendship

Download as doc, pdf, or txt
Download as doc, pdf, or txt
You are on page 1of 1

*&---------------------------------------------------------------------*

*& Report  ZMR_CLASS_FRIENDSHIP
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZMR_CLASS_FRIENDSHIP.
* SUPER CLASS
CLASS LC_FRIEND1 DEFINITION.
  PUBLIC SECTION.
   METHODS : ACCESS_INFO_OF_FRIEND2.
ENDCLASS.
* SUBCLASS
CLASS LC_FRIEND2 DEFINITION FRIENDS LC_FRIEND1.
  PRIVATE SECTION.
   METHODS : MY_INFO.
ENDCLASS.

CLASS LC_FRIEND2 IMPLEMENTATION.
  METHOD MY_INFO.
    WRITE :/ 'Private info of Friend 2'.
    ENDMETHOD.
  ENDCLASS.

CLASS LC_FRIEND1 IMPLEMENTATION.
  METHOD ACCESS_INFO_OF_FRIEND2.
    DATA : LR_FRIEND2 TYPE REF TO LC_FRIEND2.
    CREATE OBJECT LR_FRIEND2.
    call method LR_FRIEND2->MY_INFO.
    ENDMETHOD.
    endclass.

data : lr_friend1 type ref to LC_FRIEND1.
START-OF-SELECTION.
create object LR_FRIEND1.
call method LR_FRIEND1->ACCESS_INFO_OF_FRIEND2.

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy