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;