example on interfaces

[Former Member]

hi all,

send the simple example on interfaces using abap objects.

[seshatalpasai_madala]

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

[Former Member]

please send the code which will work completely.but u r code is not working.

[Former Member]

Check out in this

http://www.sapgenie.com/abap/OO/eg.htm

Regards,

Santosh

[Former Member]

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.