*&---------------------------------------------------------------------*
*& Report ZGA_CLASS3
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZGA_CLASS3.
***>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
***********************************************************************************
********** Interface Declaration .....................
***********************************************************************************
***>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
interface INT_speed.
methodS:SPEED IMPORTING M1 TYPE I.
endinterface.
***********************************************************************************
********** CLASS DEFINATION
***********************************************************************************
CLASS HONDA_CAR DEFINITION.
PUBLIC SECTION.
***********************************************************************************
********** DECLARING INTERFACE IN HONDA CAR CLASS DEFINATION
**********************************************************************************
*
INTERFACES:INT_SPEED.
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.
***** INTERFACE METHOD..................
***********************************************************************************
********** OBJECT CREATION
***********************************************************************************
********************************** INTERFACE METHOD .....................
*
CALL METHOD PT->INT_SPEED~SPEED EXPORTING M1 = 40.
***********************************************************************************
********** CLASS IMPLEMENTATION FOR HONDA CAR
***********************************************************************************
CLASS HONDA_CAR IMPLEMENTATION.
******************* INTERFACE METHOD
********** Interface Method
*************************************************************
**************************** ......................................................
......
METHOD INT_SPEED~SPEED.
WRITE:/ 'THE SPEED OF CAR IS :-' ,M1.
ENDMETHOD.
ENDCLASS.
****************
##########################################**************************
***********************************************************************************
********** 2ND CLASS DEFINATION
***********************************************************************************
***************** #########################################
*************************
*********************************************************
**************************
********** CLASS DEFINATION
***********************************************************************************
CLASS ZEN_CAR DEFINITION.
PUBLIC SECTION.
***********************************************************************************
********** DECLARING INTERFACE IN ZEN_CAR CLASS DEFINATION
**********************************************************************************
*
INTERFACES:INT_SPEED.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
START-OF-SELECTION.
SKIP 2.
WRITE:/ SY-ULINE.
WRITE:/ 'ZEN CAR PROPERTIES' COLOR 3.
WRITE:/ SY-ULINE.
***********************************************************************************
********** OBJECT CREATION
***********************************************************************************
DATA:PT1 TYPE REF TO HONDA_CAR.
CREATE OBJECT PT1.
***** INTERFACE METHOD..................
***********************************************************************************
********** OBJECT CREATION
***********************************************************************************
********************************** INTERFACE METHOD .....................
*
CALL METHOD PT1->INT_SPEED~SPEED EXPORTING M1 = 70.
***********************************************************************************
********** CLASS IMPLEMENTATION FOR ZEN_CAR
***********************************************************************************
CLASS ZEN_CAR IMPLEMENTATION.
******************* INTERFACE METHOD
********** Interface Method
*************************************************************
**************************** ......................................................
......
METHOD INT_SPEED~SPEED.
WRITE:/ 'THE SPEED OF CAR IS :-' ,M1.
ENDMETHOD.
ENDCLASS.
