|
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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
