ABAP Class example

* This is very simple example on Class
* Describes how calss Definition, Implementation
* Object created

REPORT ZOOP.

Class cl DEFINITION.
PUBLIC SECTION.
METHODS: method1 IMPORTING X TYPE I Y TYPE I EXPORTING Z TYPE I.
PROTECTED SECTION.
PRIVATE SECTION.
endclass.


class cl IMPLEMENTATION.
METHOD method1.
Z = X + Y.
ENDMETHOD.
endclass.


DATA: obj TYPE REF TO cl.
data: A TYPE I VALUE 10, B TYPE I VALUE 20, C TYPE I.
START-OF-SELECTION.
create object obj.

start-of-selection.
call METHOD OBJ->METHOD1
EXPORTING
X = A
Y = B
IMPORTING
Z = C.
write C.