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:

<!-- $top$ -->
Content-type: text/html

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

<BODY>
<!-- $HeaderPO$ -->

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

<!-- $DetailPO$ -->

<TR ALIGN="Center">
<TD>/%Stop%/</TD>
<TD>/%PO%/</TD>
<TD>/%SellerID%/</TD>
</TR>
<!-- $end$ -->
</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 thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 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].