Listing 6.3  Codefragment zur Implementation von Klassen
CLASS lcl_product IMPLEMENTATION.
* constructor IMPORTING _category TYPE REF TO 							
* lcl_category,
  METHOD constructor.
    super->constructor( ).
    IF _category IS BOUND.
      category = _category.
    ELSE.
      CREATE OBJECT category TYPE lcl_category.
    ENDIF.
    price = 10.
    title = 'Cherry G80 3000'.
    description = 'Fully featured computer keyboard 
                  with click.'.
    unit = 'Piece'.
  ENDMETHOD.                    "Constructor
*      get_price RETURNING value(_price) TYPE f,
  METHOD get_price.
    _price = price.
  ENDMETHOD.                    "get_price
*      set_price IMPORTING _price TYPE f.
  METHOD set_price.
    price = _price.
  ENDMETHOD.                "set_price
ENDCLASS.                   "lcl_product IMPLEMENTATION