Feldinhalt auf Alpha bzw. Blank prüfen

**harkne** · 27-12-21, 17:11

Ich glaube das muss ein Praktiker beantworten :-)

Wenn ich mir deine Konstante "AlphaChk" anschaue, dann sieht man ja schon was für Zeichen in den ersten 5 Stellen geprüft werden sollen. Um das nicht all zu kryptisch zu machen hätte ich das so gelöst:

Einfach die einzelnen Zeichen der ersten 5 Stellen prüfen ob sie in deiner Konstante vorhanden sind.

if %scan(%subst(Feld:1:1):AlphaChk) = 0 or %scan(%subst(Feld:2:1):AlphaChk) = 0
or %scan(%subst(Feld:3:1):AlphaChk) = 0 or %scan(%subst(Feld:4:1):AlphaChk) = 0
or %scan(%subst(Feld:5:1):AlphaChk) = 0;
Feld = 'bbbbb' + %trimr(Feld);
endif;

**Fuerchau** · 27-12-21, 19:15

Wie immer gibts viele Möglichkeiten. In der Lösung von Hel400 ist nicht berücksichtigt, dass in der EBCDIC-Range zwischen 'A' und 'Z' auch noch ein paar Sonderzeichen liegen.

Ein %check() liefert die 1. Position des nicht erlaubten Zeichens.
Also noch simpler:

if %check('ABCD.......XYZ ':Feld) < 6;