Code: Alles auswählen.
METHOD CLASS-CONSTRUCTOR.
* quasi-Konstante mit (255,255,255) initialisieren
c_color_white-red = 255.
c_color_white-green = 255.
c_color_white-blue = 255.
ENDMETHOD.
Code: Alles auswählen.
REPORT zss_test3 .
types: begin of ty_rgb,
red type i,
green type i,
blue type i,
end of ty_rgb.
constants: color1 type ty_rgb value 0," ! schecht - aber syntaktisch ok
begin of color2,
red type i value 255,
green type i value 255,
blue type i value 255,
end of color2.
data: descr_ref TYPE ref to cl_abap_typedescr.
START-OF-SELECTION.
descr_ref = cl_abap_typedescr=>describe_by_data( color1 ).
WRITE: / 'Typename:', descr_ref->absolute_name.
WRITE: / 'Kind :', descr_ref->type_kind.
WRITE: / 'Length :', descr_ref->length.
WRITE: / 'Decimals:', descr_ref->decimals.
uline.
descr_ref = cl_abap_typedescr=>describe_by_data( color2 ).
WRITE: / 'Typename:', descr_ref->absolute_name.
WRITE: / 'Kind :', descr_ref->type_kind.
WRITE: / 'Length :', descr_ref->length.
WRITE: / 'Decimals:', descr_ref->decimals.
Wer quasi-Konstanten verändert oder verfälscht oder geänderte oder verfälschte quasi-Konstanten in Umlauf bringt, wird mit Systemunpässlichkeiten nicht unter zwei Arbeitstagen bestraft!