‎2009 Jan 28 12:12 PM
hi ppl,
below is the code i did so far.The problem here is its displaying an error message that 'method m1 is not declared or inherited in class d2' in subclass.but i dont think so,because i have inherited from super class.Please give me some idea.
----
INTERFACE DEV
----
*
----
INTERFACE dev.
METHODS m1.
ENDINTERFACE. "DEV
----
CLASS D1 DEFINITION
----
*
----
CLASS d1 DEFINITION ABSTRACT .
PUBLIC SECTION.
INTERFACES dev
ABSTRACT METHODS: m1.
METHODS:m2.
DATA: s(20) TYPE c.
ENDCLASS. "D1 DEFINITION
----
CLASS D1 IMPLEMENTATION
----
*
----
CLASS d1 IMPLEMENTATION.
METHOD: m2.
s = 'SUPER'.
WRITE:/ s.
ENDMETHOD. "M2
ENDCLASS. "D1 IMPLEMENTATION
*
CLASS d2 DEFINITION INHERITING FROM d1.
PUBLIC SECTION.
METHODS:m1 REDEFINITION.
DATA: t(20) TYPE c.
ENDCLASS. "D2 DEFINITION
----
CLASS D2 IMPLEMENTATION
----
*
----
CLASS d2 IMPLEMENTATION.
METHOD: dev~m1.
t = 'SUB'.
WRITE:/ t.
ENDMETHOD. "DEV~M1
ENDCLASS. "D2 IMPLEMENTATION
START-OF-SELECTION.
DATA: obj TYPE REF TO d2,
dev TYPE REF TO dev.
CREATE OBJECT obj.
dev = obj.
CALL METHOD dev->m1.
‎2009 Jan 29 10:32 AM