*&---------------------------------------------------------------------*
*& Report ZGA_CLASS2
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZGA_CLASS2.
***********************************************************************************
********** CLASS DEFINATION
***********************************************************************************
CLASS HONDA_CAR DEFINITION.
PUBLIC SECTION.
METHODS:COLOR EXPORTING J1 TYPE C,
ENGINE CHANGING J2 TYPE C,
GEAR IMPORTING J3 TYPE C,
constructor .
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.
METHOD constructor.
WRITE:/ 'cons','PETROL TANK'.
ENDMETHOD.
ENDCLASS.
