CLASS lcl_bier DEFINITION.
PUBLIC SECTION.
DATA: gd_stammwuerze TYPE p
LENGTH 3
DECIMALS 2
VALUE '12.50'.
METHODS: write_stammwuerze.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS lcl_bier IMPLEMENTATION.
METHOD write_stammwuerze.
WRITE: me->gd_stammwuerze.
ENDMETHOD.
ENDCLASS.

DATA: gr_untergaering TYPE REF TO lcl_bier_untergaerig.

START-OF-SELECTION.
* Untergriges
CREATE OBJECT gr_untergaering.
* Ausgabe
CALL METHOD gr_untergaering->write_stammwuerze.
* Andere Ausgabe "von auen"
WRITE: gr_untergaering->gd_stammwuerze.