Listing 6.15  Vererbung und Polymorphie als Quelltextbeispiel
CLASS lcl_product DEFINITION.
  PUBLIC SECTION.
    METHODS:
      constructor
        IMPORTING
          i_rcl_parent TYPE REF TO lcl_category
          i_title TYPE string
          i_net_price TYPE f,
      write_to_screen
        IMPORTING
          i_column TYPE i DEFAULT 0,
      get_gross_price
        RETURNING
          value(r_price) TYPE f.
    DATA:
      title TYPE string,
      description TYPE string,
      parent TYPE REF TO lcl_category,
      net_price TYPE f.
ENDCLASS.                   "lcl_product DEFINITION

CLASS lcl_salesproduct DEFINITION INHERITING FROM lcl_product.
  PUBLIC SECTION.
    METHODS:
      get_gross_price REDEFINITION.
  PROTECTED SECTION.
    DATA:
      margin TYPE f VALUE '0.2'.
ENDCLASS.                 "lcl_salesproduct DEFINITION