ZMR - Super - Keyword LC - Car Drive: 'You Are Driving A Car'
ZMR - Super - Keyword LC - Car Drive: 'You Are Driving A Car'
ZMR - Super - Keyword LC - Car Drive: 'You Are Driving A Car'
*& Report ZMR_SUPER_KEYWORD
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZMR_SUPER_KEYWORD.
CLASS LC_CAR DEFINITION.
PUBLIC SECTION.
METHODS : DRIVE, COLOR.
ENDCLASS.
CLASS LC_CAR IMPLEMENTATION.
METHOD DRIVE.
WRITE :/ 'You are driving a Car'.
ENDMETHOD.
METHOD COLOR.
WRITE :/ 'Your Car has Blue color'.
ENDMETHOD.
ENDCLASS.
CLASS LC_MARUTI DEFINITION INHERITING FROM lc_car.
PUBLIC SECTION.
METHODS : DRIVE REDEFINITION.
ENDCLASS.
CLASS LC_MARUTI IMPLEMENTATION.
METHOD DRIVE.
CALL METHOD SUPER->DRIVE.
WRITE :/ 'Your Car is Maruti Desir'.
ENDMETHOD.
ENDCLASS.
class lc_audi DEFINITION INHERITING FROM lc_car.
PUBLIC SECTION.
methods : DRIVE REDEFINITION.
ENDCLASS.
class lc_audi IMPLEMENTATION.
method drive.
call method super->drive.
write :/ 'Which is Audi'.
ENDMETHOD.
endclass.
data : lr_maruti type ref to LC_MARUTI,
lr_audi type ref to lc_audi .
START-OF-SELECTION.
create object lr_maruti.
call method lr_maruti->drive.
call method lr_maruti->color.
write :/ sy-uline.
create OBJECT lr_audi.
call method lr_audi->drive.