dcl-s Myfld char(80);
%SubSt(myfld:51:3)='ABC';

Gruß
Ronald