got it...thanks guys:

d endofline       s              4p 0 inz
d lastqm          s              4p 0 inz
d line            s           3000a   inz
d textarea        s           3000a   inz
chain wo ewonotes;
if %found(ewonotes);
  textarea = ewonote;
  endofline = %scan(qm:textarea);
  dow (endofline > 0);
    lastqm = endofline;
    textarea = %replace(hr:textarea:endofline);
    textarea = %replace('':textarea:endofline+1:1);
    endofline = %scan(qm:textarea:lastqm+1);

Shane Cessna  
Senior iSeries Programmer
iSeries WebSphere & Tomcat Administrator
North American Lighting, Inc.
2275 S. Main St.
Suite A
Paris, IL 61944
Flora Office - 618.662.4483 x2776
Paris Office - 217.465.6600 x7776
Cell - 618.554.4352

This thread ...


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

This mailing list archive is Copyright 1997-2020 by 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].