bääähhh,
so lang muss mein Code gar nicht sein und ich behaupte mal, so ist er der Lesbarste und Schnellste, auch wenn Robert's der Raffinierteste sein mag.
Code:
       dcl-s pos       int(3);
       dcl-s ix         int(3);       


       for ix = 1 to 5;
         pos = %check('0123456789' : %subst(feld:ix:1));
         if pos = 0;
           feld = '     ' + feld;
           leave;
         endif;
       endfor;
Auch von mir, Frohe Festtage und ein gutes neues Jahr.
(Hoffentlich gibt es mal aus diesem Corona Loop einen Exit)
Karl.