Welches Array ?
Auch beim Check kann ich mit einer Konstanten und einem Befehl arbeiten:
%CHECK (Check Characters)
%CHECK(comparator : base {: start})
%CHECK returns the first position of the string
base that contains a character that
does not appear in string comparator. If all of the characters in base also appear in
comparator
, the function returns 0.
The check begins at the starting position and continues to the right until a
character that is not contained in the comparator string is found. The starting
position defaults to 1.
The first parameter must be of type character, graphic, or UCS-2, fixed or varying
length. The second parameter must be the same type as the first parameter. The
third parameter, if specified, must be a non-float numeric with zero decimal
positions.
Also:
D Gueltig 36A inz('ABCD.....)
if %check(Gueltig:Text) > 0;
=> Fehler
endif;
Bookmarks