× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Try using Data Structure and %trim...

Dds_line ds
D line 30 dim(6)
*
D x s 5i 0
/free
x = 1;
dow x < %size(ds_line) and %subst(ds_line:x) <> *blanks;
%subst(ds_line:x) = %trim(%subst(ds_line:x));
x += 30;
enddo;
/end-free

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Lim Hock-Chai
Sent: Wednesday, April 27, 2011 4:00 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Filling an array from the first occurrence on down

try this:

D lineDS ds

D line 30 dim(6) ctdata



D ix s 5i 0



/free



for ix = %elem(line) downto 1;

if line(ix) = *blank;

lineDS = %replace('' :lineDS :(ix-1)*%size(line)+1
:%size(line));
endif;

endfor;


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.