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].