Access

*&---------------------------------------------------------------------*
*& Report ZMENG_OBJECT2
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zmeng_02_access.


CLASS class1 DEFINITION.
   "在类中的Public部分中声明的属性和方法可以由该类和程序的任何其他类，子类访问。
   PUBLIC SECTION.
      DATA: text1 TYPE char25 VALUE 'Public Data'.
      METHODS meth1.
   "当属性和方法在类的Protected部分中声明时，那些类和子类(派生类)只能访问它们。
   PROTECTED SECTION.
      DATA: text2 TYPE char25 VALUE 'Protected Data'.
   "当在类的Private部分中声明属性和方法时，这些属性和方法只能由该类访问，
      "而不能由任何其他类访问。
   PRIVATE SECTION.
      DATA: text3 TYPE char25 VALUE 'Private Data'.
ENDCLASS.

CLASS class1 IMPLEMENTATION.
   METHOD meth1.
      WRITE: / 'Public Method:',
             / text1,
             / text2,
             / text3.
      SKIP.
   ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
   DATA: objectx TYPE REF TO class1.

   CREATE OBJECT: objectx.

   CALL METHOD: objectx->meth1.

   WRITE: / objectx->text1.


*&---------------------------------------------------------------------*
*& Result:
*&---------------------------------------------------------------------*
*Public Method:
*Public Data
*Protected Data
*Private Data
*
*Public Data