Hallo.
Wenn ich richtig verstanden habe, soll
4711blank in 00000004711 umgestelt werden.

clear lae 2 0
clear pos 2 0
move *all'0' Ausgabe 11
if Eingabe <> *blank
eval lae=%scan(' ':Eingabe)-1
eval pos=11-lae+1
eval %subst(Ausgabe os:lae)=
%subst(Eingabe:1:lae)
endif

Gruss
Joe