Tja, das geht nur über eine Schleife, in dem jedes Zeichen geprüft wird.
Am besten geht es über eine Funktion á la:

d myfield pr 32000 varying
d parm1 32000 varying value

myfield = myreplace(myfield);

p myreplace b
d myreplace pi 32000 varying
d parm1 32000 varying value
d ind s 10I 0

c for ind = 1 to %len(parm1);
c if %sst(parm1:ind:1) < ' ';
c %sst(parm1:ind:1)=' ';
c endif;
c endfor;
c return parm1;

ungefähr so