RE: CGIDEV2 -- RPG400-L

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