CLASS lcl_bier DEFINITION.
PUBLIC SECTION.
TYPES: gdt_alkoholgehalt TYPE p LENGTH 3 DECIMALS 2.
METHODS: set_alkoholgehalt
IMPORTING id_alkoholgehalt TYPE gdt_alkoholgehalt.
PROTECTED SECTION.
PRIVATE SECTION.
DATA: gd_alkoholgehalt TYPE gdt_alkoholgehalt
VALUE '4.50'.
ENDCLASS.
CLASS lcl_bier IMPLEMENTATION.
METHOD set_alkoholgehalt.
me->gd_alkoholgehalt = id_alkoholgehalt.
ENDMETHOD.
ENDCLASS.