Alphawerte in Feld ermitteln - ILE RPG

[HoScHiE]

Hallo !

Ich habe ein Feld (FELDA) in dem mehrere zahlen(Alpha) stehen können.
diese Zahlen sind mit einem Komma getrennt.

Also stehen dort alle Zahlen 0-9 und das Komma.

Gibt es eine Möglichkeit zu prüfen ob Buchstaben drinn stehen ?

also a-z ????

Danke

[B.Hauser]

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