12-12-2006 8:32 AM
hi all,
send the simple example on interfaces using abap objects.
12-12-2006 8:35 AM
interface inter_1.
methods: method1.
endinterface.
class clas1 definition.
public section.
interfaces: inter_1.
endclass.
class clas1 implementation.
method inter_1~method1.
*method code
endmethod.
endclass.
Regards,
Sesh
Message was edited by:
Seshatalpasai Madala
12-12-2006 8:35 AM
interface inter_1.
methods: method1.
endinterface.
class clas1 definition.
public section.
interfaces: inter_1.
endclass.
class clas1 implementation.
method inter_1~method1.
*method code
endmethod.
endclass.
Regards,
Sesh
Message was edited by:
Seshatalpasai Madala
12-12-2006 8:44 AM
please send the code which will work completely.but u r code is not working.
12-12-2006 8:38 AM
12-12-2006 9:00 AM
Hi venkat,
The sample code i have attached is simple and its working..here we use a interface called status and two classes implementing it...
REPORT demo_interface.
INTERFACE status.
METHODS write.
ENDINTERFACE.
CLASS counter DEFINITION.
PUBLIC SECTION.
INTERFACES status.
METHODS increment.
PRIVATE SECTION.
DATA count TYPE i.
ENDCLASS.
CLASS counter IMPLEMENTATION.
METHOD status~write.
WRITE: / 'Count in counter is', count.
ENDMETHOD.
METHOD increment.
ADD 1 TO count.
ENDMETHOD.
ENDCLASS.
CLASS bicycle DEFINITION.
PUBLIC SECTION.
INTERFACES status.
METHODS drive.
PRIVATE SECTION.
DATA speed TYPE i.
ENDCLASS.
CLASS bicycle IMPLEMENTATION.
METHOD status~write.
WRITE: / 'Speed of bicycle is', speed.
ENDMETHOD.
METHOD drive.
ADD 10 TO speed.
ENDMETHOD.
ENDCLASS.
DATA: count TYPE REF TO counter,
bike TYPE REF TO bicycle,
status TYPE REF TO status,
status_tab TYPE TABLE OF REF TO status.
START-OF-SELECTION.
CREATE OBJECT: count, bike.
DO 5 TIMES.
CALL METHOD: count->increment,
bike->drive.
ENDDO.
APPEND: count TO status_tab,
bike TO status_tab.
LOOP AT status_tab INTO status.
CALL METHOD status->write.
ENDLOOP.
hope i have resolved ur isssue
reward useful suggestions..
regards,
Rajkumar.G.