Class Local Private Protected Public
Class Local Private Protected Public
Class Local Private Protected Public
REPORT ZH_CLASS_F1.
CLASS D1 DEFINITION.
PUBLIC SECTION.
METHODS:PRT2.
DATA:N1 TYPE I VALUE 10.
PROTECTED SECTION.
DATA:N2 TYPE I VALUE 20.
PRIVATE SECTION.
METHODS:PRT1.
data:n3 type i value 50.
ENDCLASS.
CLASS D1 IMPLEMENTATION.
METHOD PRT1.
SKIP 2.
WRITE:/ 'PRIVATE DATA' COLOR 7, N3, 'PROTECTED DATA' COLOR 4 , N2.
ENDMETHOD.
METHOD PRT2.
ENDCLASS.
PUBLIC SECTION .
METHODs hanji1.
ENDCLASS.
CLASS D2 IMPLEMENTATION.
METHOD hanji1.
data:pt7 type REF TO d1.
CREATE object pt7.
**************************************************************
**************** ACCESS TO PUBLIC AND PRIVATE ATTRIBUTES N1 , N2
** INSIDE THE METHOD HANJI1 OF D2 CLASS INHERITATED CLASS FROM D1.
**************************************************************
write:/ pt7->n1,pt7->n2.
ENDMETHOD.
ENDCLASS.
start-of-selection.
****************************************
******* instance for d2 class.
*****************************************
*******************
*** ACCESS TO PUBLIC ATTRIBUTE N1
*** BUT NOT PROTECTED OR PRIVATE ATTRIBUTE N2 0R N3.
SKIP 2.
WRITE:/ PT9->N1.
** access to private method and attirbute through
** calling public method where private method and
** attribute exists.