Re: Deleting blanks in a field

["Richard B Baird" <rbaird@xxxxxxxxxxxxxxxxxxxxx>]

Mel,

couldn't you do this as well?  Remember the rpg programmer's credo:
always pack the greatest amount of confusion into the fewest lines of code!

;P

Rick

fieldb = %triml(fielda);

dow %scan(' ':%trimr(fieldb)) > 0;
  fieldb = %replace('':fieldb:%scan(' ':%trimr(fieldb)):1);
enddo;