subtype WERT_T is INTEGER range 0..100;
for WERT_T'SIZE use 8;

exception
  when CONSTRAINT_ERROR => -- Fehlerbehandlung