|
midrange.com
d parm1 s 10a dim(100) varying
d text s 55a varying
d i s 5i 0
/free
for i = 1 to 45;
parm1(i) = %trim( 'abcdefg ' );
endfor;
for i = 1 to 100;
if parm1(i) <> *blanks;
if text = *blanks;
text = parm1(i);
else;
text = text + ', ' + parm1(i);
endif;
if %len( text ) >= 55;
leave;
endif;
endif;
endfor;
*inlr = *on;
/end-free
As an Amazon Associate we earn from qualifying purchases.
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.
