*&--------------------------------------------------------------------*
*& Report ZABAP_OOPS2
*&
*&--------------------------------------------------------------------*
*&
*&
*&--------------------------------------------------------------------*
REPORT
ZABAP_OOPS2.
CLASS CALC DEFINITION.
PUBLIC SECTION.
DATA: A TYPE I VALUE 30,
B TYPE I VALUE 10,
C TYPE I.
METHODS: ADD.
METHODS: SUB.
METHODS: MUL.
ENDCLASS.
CLASS CALC IMPLEMENTATION.
METHOD: ADD.
C = A + B.
WRITE : / 'ADDITION =', C.
ENDMETHOD.
METHOD: SUB.
C = A - B.
WRITE : / 'SUBTRACTION =', C.
ENDMETHOD.
METHOD: MUL.
C = A * B.
WRITE : / 'MULTIPLY =', C.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA: OBJ2 TYPE REF TO CALC.
CREATE OBJECT OBJ2.
CALL METHOD: OBJ2->ADD.
CALL METHOD: OBJ2->SUB.
CALL METHOD: OBJ2->MUL.