for #ix =1to20;
%SUBST(#neu, 3*#ix, 3) = #feldgr1(#ix)
endfor;

So oder so ähnlich, ist nur aus dem Bauch so raus...