|
midrange.com
Nathan,
Here is the code I used to run my test. I hope I didn't mess anything up.
<% '1' %> is a dynamic RPG expression equivalent to /%x1%/ with
UpdHtmlVar('x1':'1');
========RPGsp Code========
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<% %Char(%TimeStamp()) %>
<br>
<SCRIPT language=RPGLE>
D rownum s 5 0
/Free
For rownum = 1 to 1000;
</SCRIPT>
<FONT color=red> <% %Char(rownum) %> </FONT>
<% '1' %>
<% '2' %>
<% '3' %>
<% '4' %>
<% '5' %>
<% '6' %>
<% '7' %>
<% '8' %>
<% '9' %>
<% '10' %>
<% '11' %>
<% '12' %>
<% '13' %>
<% '14' %>
<% '15' %>
<% '16' %>
<% '17' %>
<% '18' %>
<% '19' %>
<% '20' %>
<% '21' %>
<% '22' %>
<% '23' %>
<% '24' %>
<% '25' %>
<% '26' %>
<% '27' %>
<% '28' %>
<% '29' %>
<% '30' %>
<br>
<SCRIPT language=RPGLE>
EndFor;
/End-Free
</SCRIPT>
<br>
<% %Char(%TimeStamp()) %>
</BODY>
</HTML>
========CGIDEV2 HTML Code========
<AS400>top
Content-type: text/html
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<P>
/%time1%/
<br>
<AS400>row
<FONT color=red> /%rownum%/ </FONT>
/%x1%/
/%x2%/
/%x3%/
/%x4%/
/%x5%/
/%x6%/
/%x7%/
/%x8%/
/%x9%/
/%x10%/
/%x11%/
/%x12%/
/%x13%/
/%x14%/
/%x15%/
/%x16%/
/%x17%/
/%x18%/
/%x19%/
/%x20%/
/%x21%/
/%x22%/
/%x23%/
/%x24%/
/%x25%/
/%x26%/
/%x27%/
/%x28%/
/%x29%/
/%x30%/
<br>
<AS400>endhtml
/%time2%/
</BODY>
</HTML>
<AS400>pssr
<HR WIDTH="5">
<H1>OOPS!</H1>
<P>
This program encountered an error which prevents it from processing your
request.
<HR WIDTH="5">
</BODY>
</HTML>
========CGIDEV2 RPG Code========
/copy qrpglesrc,hspecs
/copy qrpglesrc,hspecsbnd
h dftactgrp(*no) actgrp(*new)
/copy qrpglesrc,prototypeb
/copy qrpglesrc,usec
D psds sds
D psdsdata 429
D pssrswitch s n inz(*off)
D wrotetop s n inz(*off)
D rownum s 5 0
xxxxxC*xxx callp wrtjobdbg(*on)
/Free
gethtml('HTMLSRC':'*LIBL':'SETHPROG':'<as400>');
ClrHtmlBuffer();
UpdHtmlVar('time1':%Char(%TimeStamp()));
wrtsection('top');
For rownum = 1 to 1000;
UpdHtmlVar('rownum':%Char(rownum));
UpdHtmlVar('x1':'1');
UpdHtmlVar('x2':'2');
UpdHtmlVar('x3':'3');
UpdHtmlVar('x4':'4');
UpdHtmlVar('x5':'5');
UpdHtmlVar('x6':'6');
UpdHtmlVar('x7':'7');
UpdHtmlVar('x8':'8');
UpdHtmlVar('x9':'9');
UpdHtmlVar('x10':'10');
UpdHtmlVar('x11':'11');
UpdHtmlVar('x12':'12');
UpdHtmlVar('x13':'13');
UpdHtmlVar('x14':'14');
UpdHtmlVar('x15':'15');
UpdHtmlVar('x16':'16');
UpdHtmlVar('x17':'17');
UpdHtmlVar('x18':'18');
UpdHtmlVar('x19':'19');
UpdHtmlVar('x20':'20');
UpdHtmlVar('x21':'21');
UpdHtmlVar('x22':'22');
UpdHtmlVar('x23':'23');
UpdHtmlVar('x24':'24');
UpdHtmlVar('x25':'25');
UpdHtmlVar('x26':'26');
UpdHtmlVar('x27':'27');
UpdHtmlVar('x28':'28');
UpdHtmlVar('x29':'29');
UpdHtmlVar('x30':'30');
wrtsection('row');
EndFor;
wrotetop = *on; // For pssr
UpdHtmlVar('time2':%Char(%TimeStamp()));
wrtsection('endhtml *fini');
return;
begsr *pssr;
if pssrswitch=*on;
*inlr = *on;
return;
endif;
pssrswitch=*on;
if wrotetop=*off;
wrtsection('top');
endif;
wrtsection('pssr endhtml *fini');
wrtpsds(psds);
*inlr = *on;
return;
endsr;
/End-Free
Seth Newton
snewton@xxxxxxxxxxxxxxxxx
Profound Logic Software, Inc.
Toll-Free: (877) 224-7768 x115
Fax: (603) 849-7757
RPGsp - iSeries Web Development has never been this easy!
Watch video demos: http://www.profoundlogic.com/video_demos/
------ Original Message ------
Seth,
Could you provide a reference to the RPG source so we can see what you're
comparing?
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
