Hi Sandeep,
<b>Inheritance:</b>
Inheritance allows you to derive a new class from an existing class.You do this using the INHERITING FROM addition in the CLASS <subclass> DEFINITION INHERITING FROM <superclass>.statement. The new class <subclass> inherits all of the components of the existing class <superclass>. The new class is called the subclass of the class from which it is derived.The original class is called the superclass of the new class. Only the public and protected components of the superclass are visible in the subclass.You can declare private components in a subclass that have the same names as private components of the superclass. Each class works with its own private components.
REPORT ZTRG_OBJ2 .
----
----
*
----
CLASS COUNTER DEFINITION.
PUBLIC SECTION.
METHODS: SET IMPORTING VALUE(SET_VALUE) TYPE I,
INCREMENT,
GET EXPORTING VALUE(GET_VALUE) TYPE I.
PROTECTED SECTION .
DATA COUNT TYPE I.
ENDCLASS. "counter DEFINITION
----
----
*
----
CLASS COUNTER IMPLEMENTATION.
METHOD SET.
COUNT = SET_VALUE.
ENDMETHOD. "set
METHOD INCREMENT.
ADD 1 TO COUNT.
ENDMETHOD. "increment
METHOD GET.
GET_VALUE = COUNT.
ENDMETHOD. "get
ENDCLASS. "counter IMPLEMENTATION
----
----
*
----
CLASS COUNTER_TEN DEFINITION INHERITING FROM COUNTER.
PUBLIC SECTION.
METHODS INCREMENT REDEFINITION .
DATA COUNT_TEN.
ENDCLASS. "counter_ten DEFINITION
----
----
*
----
CLASS COUNTER_TEN IMPLEMENTATION.
METHOD INCREMENT.
DATA MODULO TYPE I.
CALL METHOD SUPER->INCREMENT .
WRITE / COUNT.
MODULO = COUNT MOD 10.
IF MODULO = 0.
COUNT_TEN = COUNT_TEN + 1.
WRITE COUNT_TEN.
ENDIF.
ENDMETHOD. "increment
ENDCLASS. "counter_ten IMPLEMENTATION
DATA:
count TYPE REF TO counter,
NUMBER TYPE I VALUE 5.
START-OF-SELECTION.
CREATE OBJECT count TYPE counter_ten .
*CREATE OBJECT COUNT .
CALL METHOD COUNT->SET
EXPORTING
SET_VALUE = NUMBER.
DO 20 TIMES.
CALL METHOD COUNT->INCREMENT.
ENDDO.
<b>Reward points if useful</b>
Bluesky
