Listing 6.10  Zugriff auf technische Eigenschaften per DESCRIBE FIELD
DATA:
  l_dec(11) TYPE p DECIMALS 3.
PERFORM describe_field USING l_dec.
FORM describe_field USING i_number TYPE any.
  DATA:
    l_type TYPE c,
    l_length TYPE i,
    l_decimals TYPE i.
  DESCRIBE FIELD i_number TYPE l_type LENGTH l_length 
    IN BYTE MODE DECIMALS l_decimals.
  WRITE: / 'Type:', l_type, 'Length:', l_length, 
    'Decimals', l_decimals.
ENDFORM.                    "describe_field