Re: Deleting blanks in a field

Yes, it certainly packs the greatest amount of confusion into the fewest lines
of code! :-)

On the other hand, it is less efficient because it does two %scan operations per
iteration through the loop and the scan always start at position 1 instead of
where the last blank was replaced.



Mel Rothman, CGIDEV2 Author
IBM eServer Custom Technology Center (eCTC), Rochester, Minnesota
http://www-1.ibm.com/servers/eserver/iseries/service/ctc/
http://www.easy400.ibm.it/en


Richard B Baird wrote:
>
> 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;
>