Re: CGIDEV2 question...

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