Ich würde es so lösen in free:
Code:
       dcl-s feld1     char(25) inz('A123456789012345678901234');
       dcl-s feld2     char(25) inz('A 12345678901234567890123');
       dcl-s feld3     char(25) inz('A B C12345678901234567890');
       dcl-s wrkfld    char(25) inz;         
       dcl-s outfld    char(25) inz;
       dcl-s pos       int(3);
       dcl-s ix         int(3);


       wrkfld = feld1;
       outfld = wrkfld;
       for ix = 1 to 5;
         pos = %check('0123456789' : %subst(wrkfld:ix:1));
         if pos = 0;
           clear outfld;
           outfld = '     ' + %subst(wrkfld:1:%len(wrkfld)-5);
           leave;
         endif;
       endfor;
Das kann man natürlich noch wunderbar in eine Funktion einbetten,
aber etwas lass ich Dir auch noch über .... :-)