Hallo,

der Befehl, den Du suchst heisst CHECK

Beispiel:
D $Digits C const('1234567890,')

D FeldA S 10
D $X S 5i 0
*
C eval FELDA = '1234,5A'
c $Digits check Felda $x
c if %Found
c exsr NonNum

C endif
In $X steht das erste Zeichen, das von den in der Konstante $Digits hinterlegten Zeichen abweicht.
Die %Found-Bezugszahl geht dann an, wenn ein abweichendes Zeichen festgestellt wurde.

B.Hauser