REPORT  z14_12.

CLASS cls1 DEFINITION INHERITING FROM object.
   PUBLIC SECTION.
    METHODS: create.
ENDCLASS.                    "cls1 DEFINITION

CLASS cls1 IMPLEMENTATION.
   METHOD create.
    WRITE: / 'Original method is called'.
   ENDMETHOD.
ENDCLASS.                    "cls1 IMPLEMENTATION

CLASS cls2 DEFINITION INHERITING FROM cls1.
   PUBLIC SECTION.
    METHODS: create REDEFINITION.
ENDCLASS.                    "cls2 DEFINITION

CLASS cls2 IMPLEMENTATION.
   METHOD create.
    CALL METHOD super->create.
    WRITE: / 'Method is redefined'.
   ENDMETHOD.
ENDCLASS.                    "cls2 IMPLEMENTATION

* Global DATA
DATA : go_obj  TYPE REF TO cls2.

* Classical Processing Blocks
START-OF-SELECTION.
   CREATE OBJECT: go_obj.

   CALL METHOD: go_obj->create.