|
midrange.com
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);
enddo;
updhtmlvar('notes':textarea);
else;
updhtmlvar('notes':*blanks);
endif;
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
shane_cessna@xxxxxxx
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.
