*&---------------------------------------------------------------------*
*& Report ZGA_CLASS1
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZGA_CLASS1.
***********************************************************************************
********** CLASS DEFINATION
***********************************************************************************
CLASS HONDA_CAR DEFINITION.
PUBLIC SECTION.
METHODS:COLOR EXPORTING J1 TYPE C,
ENGINE CHANGING J2 TYPE C,
GEAR IMPORTING J3 TYPE C.
DATA:TYRE(30) TYPE C VALUE 'MRF'.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
SKIP 2.
WRITE:/ SY-ULINE.
WRITE:/ 'HONDA CAR PROPERTIES' COLOR 3.
WRITE:/ SY-ULINE.
***********************************************************************************
********** OBJECT CREATION
***********************************************************************************
DATA:PT TYPE REF TO HONDA_CAR.
CREATE OBJECT PT.
DATA:M1(30) TYPE C,
M2(30) TYPE C,
M3(30) TYPE C.
CALL METHOD PT->COLOR IMPORTING J1 = M1.
WRITE:/ 'color of Car :- ', M1 COLOR 5.
CALL METHOD PT->ENGINE CHANGING J2 = M2.
WRITE:/ 'Type of Engine :- ', M2 COLOR 6.
CALL METHOD PT->GEAR EXPORTING J3 = '5 GEAR'.
WRITE:/ 'Tyre Type :-', PT->TYRE color 2.
***********************************************************************************
********** CLASS IMPLEMENTATION FOR HONDA CAR
***********************************************************************************
CLASS HONDA_CAR IMPLEMENTATION.
********** Method color
*************************************************************
METHOD COLOR.
J1 = 'GREEN'.
ENDMETHOD.
********** Method Engine
*************************************************************
METHOD ENGINE.
J2 = 'A CLASS ENGINE'.
ENDMETHOD.
********** Method Gear
*************************************************************
METHOD GEAR.
WRITE:/ 'Gear Type', J3 COLOR 7.
ENDMETHOD.
ENDCLASS.
****************
##########################################**************************
***********************************************************************************
********** CLASS DEFINATION INHERITING FROM
***********************************************************************************
***************** #########################################
*************************
CLASS BEN_CAR DEFINITION INHERITING FROM HONDA_CAR.
PUBLIC SECTION.
METHODS:SEAT.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
START-OF-SELECTION.
SKIP 2.
WRITE:/ SY-ULINE.
WRITE:/ 'BEN CAR PROPERTIES' COLOR 3.
WRITE:/ SY-ULINE.
***********************************************************************************
********** OBJECT CREATION FOR BEN CAR
***********************************************************************************
DATA:PT1 TYPE REF TO BEN_CAR.
CREATE OBJECT PT1.
DATA:T1(30) TYPE C,
T2(30) TYPE C,
T3(30) TYPE C.
CALL METHOD PT1->COLOR IMPORTING J1 = T1.
WRITE:/ 'color of Car :- ', M1 COLOR 5.
CALL METHOD PT1->ENGINE CHANGING J2 = T2.
WRITE:/ 'Type of Engine :- ', M2 COLOR 6.
CALL METHOD PT1->GEAR EXPORTING J3 = '5 GEAR'.
WRITE:/ 'Tyre Type :-', PT1->TYRE color 2.
CALL method pt1->seat.
CLASS BEN_CAR IMPLEMENTATION.
METHOD SEAT.
write:/ 'SEAT :- ','6 Seat System' color 6.
ENDMETHOD.
ENDCLASS.
