Bei mir funktioniert es so:

movel '123456' feld2 30
movel ' ' feld1 30
eval Feld1 = %subst(Feld2: 1 : 3) + ','
dsply feld1
move *on *inlr