D Nm C '0123456789'
D Rp C '##########'

If %Scan('#':%Xlate(Nm:Rp:%Subst(Feld:1:5))) > 0;
Feld = ' bbbbb' + %Trim(Feld);
EndIf;