Feldinhalt auf Alpha bzw. Blank prüfen

[Fuerchau]

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;

[harkne]

@Fuechau 1:0 für dich :-) Aber diese Antwort zu Beginn wäre der Hauptgewinn gewesen :-)

[Fuerchau]

Das wäre ja schon mit V5R1 oder früher (CHECK) mit RPGIII schon möglich gewesen.
Aus der Ursprungsanfrage hatte ich eben noch gemeint ableiten zu müssen, dass die nachfolgenden Stellen auch noch numerisch hätten sein sollen.
Und da war RegEx die einfachere Wahl. Außerdem ist das ja auch moderner;-).

[hel400]

...
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.
...

:-))) na ernst jetzt?
Ich dachte nicht, dass dieser Schmarrn tatsächlich "analysiert" wird :-)))

[holgerscherer]

Ich dachte nicht, dass dieser Schmarrn tatsächlich "analysiert" wird :-)))

Manche Leute nutzen jedes Mittel, um die Weihnachts-Kalorien wieder abzubauen ;-)

[Fuerchau]

Kalorien? Das sind doch die Leute, die nachts die Klamotten enger nähen.