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
midrange.com
