Re: CGI vs JSP... -- WEB400

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?