RE: CGIDEV2 -- RPG400-L

No, it's correct (at first glance) except WriteHtmlToStmf should be after
writing the end section.

I suggest turning CGIDEV2 debugging on and checking out the CGIDEBUG file to
see if there are any clues there. Also, WriteHtmlToStmf does return a
return code if you want:

http://www.easy400.net/cgidev2o/exhibiu7.htm

Bradley V. Stone
BVSTools - www.bvstools.com
eRPG SDK - www.erpgsdk.com

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
Tommy.Holden@xxxxxxxxxxxxxxxxxxxxx
Sent: Monday, August 25, 2008 11:41 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: CGIDEV2

shouldn't you be doing the Wrtsection('DetailPO'); prior to the
UpdHTMLVar?

Thanks,
Tommy Holden
Direct: 615-259-5814
Main Line: 615.256.2424 x. 5814
Toll-Free: 1.800.228.3644 x.5814
fax: 615-793-7617

From:
"Florin Todor - YYZ Concord" <ftodor@xxxxxxxxxxxxxxxx>
To:
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Date:
08/25/2008 11:36 AM
Subject:
RE: CGIDEV2

I did; the same "blank" result...

Florin Todor

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Raul A. Jager W.
Sent: Monday, August 25, 2008 11:37 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: CGIDEV2

Try to move the " WrtHtmlToStmf('/Reporting/Table.html':819);" afer the
"Wrtsection('end');"
Make sure directory "/Reporting" exist and "Table.html" does not .
Check permisions.

Florin Todor - YYZ Concord wrote:

Hi all,

I am trying to create a little table in IFS (using HTML) and to send it
out via e-mail.
The problem is that in IFS I get a blank page...

Here there are the sources for HTML and RPG:


Content-type: text/html

<html>
<head>
<title>Bills information</title>
</head>

<BODY>


<TABLE BORDER=4>
<TR ALIGN="Center">
<TH>Stop#</TH>
<TH>P.O.#</TH>
<TH>Seller ID #</TH>
</TR>



<TR ALIGN="Center">
<TD>/%Stop%/</TD>
<TD>/%PO%/</TD>
<TD>/%SellerID%/</TD>
</TR>

</TABLE>
</BODY>
</html>

Hdftactgrp(*no)
*
/copy cgidev2/qrpglesrc,hspecs
/copy cgidev2/qrpglesrc,hspecsbnd
*
FED204D03WKIF E K DISK
*
/copy qrpglesrc,prototypeb
/copy cgidev2/qrpglesrc,usec
*
/Free
Gethtml('HTMLSRC':'INTRANET':'HTMLSource':
'':'/%':'%/');

// I tried to put HTML Source in IFS and to retrieve it from there; no
//difference...

Wrtsection('top');
Wrtsection('HeaderPO');
Read FilePF;

// FilePF has around 50 records

Dow not %eof(FilePF);
UpdHTMLvar('Stop' :%char(D3snum));
UpdHTMLvar('PO' :D3po#);
UpdHTMLvar('SellerID':D3selid);
Wrtsection('DetailPO');
Read FilePF;
Enddo;
WrtHtmlToStmf('/Reporting/Table.html':819);
Wrtsection('end');

*inlr = *on;
Return;

/End-Free

Any help would be much appreciated...

TIA

Florin Todor

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.