OO ABAP Final class - cannot have sub classes

*&---------------------------------------------------------------------*
*& Report  YSAP_FINAL_CLASS
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ysap_final_class.


DATA: a TYPE i VALUE 2,
      b TYPE i VALUE 3,
      sum TYPE i.

*----------------------------------------------------------------------*
*       CLASS class1 DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS class1 DEFINITION FINAL.
  PUBLIC SECTION.
    METHODS method1.
ENDCLASS.                    "class1 DEFINITION

*----------------------------------------------------------------------*
*       CLASS class1 IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS class1 IMPLEMENTATION.
  METHOD method1.
    sum = a + b.
    WRITE: sum.
  ENDMETHOD.                                                "method1
ENDCLASS.                    "class1 IMPLEMENTATION

*----------------------------------------------------------------------*
*       CLASS class2 DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS class2 DEFINITION INHERITING FROM class1.
  PUBLIC SECTION.
    METHODS method2 .
ENDCLASS.                    "class2 DEFINITION

*----------------------------------------------------------------------*
*       CLASS class2 IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS class2 IMPLEMENTATION.
  METHOD method2.
    WRITE: / 'the sum is :', sum.
  ENDMETHOD.                                                "method2
ENDCLASS.                    "class2 IMPLEMENTATION

START-OF-SELECTION.

  DATA: object1 TYPE REF TO class1,
        object2 TYPE REF TO class2.

  CREATE OBJECT: object1, object2.

  CALL METHOD object1->method1.
  CALL METHOD object2->method2.




If you comment FINAL You will get the output.(You can have subclasses)



OUTPUT: