ZMR Interfaces
ZMR Interfaces
ZMR Interfaces
*& Report ZMR_INTERFACES
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZMR_INTERFACES.
INTERFACE INTONE.
CONSTANTS : LV_KUNNR TYPE KUNNR VALUE '2000'.
METHODS : GET_DATA.
ENDINTERFACE.
CLASS LC_DEMO DEFINITION.
PUBLIC SECTION.
INTERFACES INTONE.
METHODS : GET_DATA.
ENDCLASS.
CLASS LC_DEMO IMPLEMENTATION.
METHOD INTONE~GET_DATA.
WRITE :/ INTONE~LV_KUNNR.
WRITE :/ 'INTERFACE GET_DATA METHOD'.
ENDMETHOD.
METHOD GET_dATA.
WRITE :/ 'CLASS GET_DATA METHOD'.
ENDMETHOD.
ENDCLASS.
DATA LR_DEMO TYPE REF TO LC_DEMO.
START-OF-SELECTION.
CREATE OBJECT LR_DEMO.
CALL METHOD LR_DEMO->INTONE~GET_DATA.
CALL METHOD LR_DEMO->GET_DATA.