ZMR Class Demo
ZMR Class Demo
ZMR Class Demo
*& Report ZMR_CLASS_DEMO
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZMR_CLASS_DEMO.
CLASS LC_DEMO DEFINITION.
PUBLIC SECTION.
DATA : LV_KUNNR TYPE KUNNR VALUE '1000'.
CLASS-DATA : LV_NAME1 TYPE NAME1_GP VALUE 'MR. Raju'.
PROTECTED SECTION.
DATA : LV_LIFNR TYPE LIFNR VALUE '2000'.
PRIVATE SECTION.
DATA : LV_VBELN TYPE VBELN_VA VALUE '3000'..
ENDCLASS.
CLASS LC_DEMO IMPLEMENTATION.
ENDCLASS.
DATA : LR_DEMO TYPE REF TO LC_DEMO.
START-OF-SELECTION.
CREATE OBJECT LR_DEMO.
WRITE :/ LR_DEMO->LV_KUNNR.
*WRITE :/ LR_DEMO->LV_LIFNR. " PROTECTED ATTRIBUTE CANNOT BE ACCESSED
*WRITE :/ LR_DEMO->LV_VBELN. " PRIVATE ATTRIBUTE CANNOT BE ACCESSED
write :/ LC_DEMO=>LV_NAME1.
WRITE :/ LR_DEMO->LV_NAME1.