Hi all,
*********************************************************
REPORT zinheritance.
----
----
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.
<b>CREATE OBJECT count TYPE counter_ten .</b>
CALL METHOD count->set
EXPORTING
set_value = number.
DO 20 TIMES.
CALL METHOD count->increment.
ENDDO.
********************************************************
In this program there is a class called counter and another class ciunter_ten inherited from the counter class.
In this statement <b>DATA: count TYPE REF TO counter.</b> we are defining a reference to the class Counter.
But when he is creating the object he adds an addition type counter_ten. It is in bolded form.Can any one please explain me what does it mean exactly ?
Regards,
Varun.
Bluesky
