|
AHHHHH! I thought it ran in-line. thanks! Rick On 7/19/06, Hatzenbeler, Tim <thatzenbeler@xxxxxxxxxxxxx> wrote:
midrange.com
Move the direct function below you includes, and then in your code, call the
direct function like this..
%include "inc.define"
%include "inc.runsql"
----> Your direct call function. I used mine...
%function(DTW_DIRECTCALL) WeekUpdate(in char(10) USER,
in char(10) sundaydate,
inout decimal(1,0) errorDU,
inout dtwtable Table_UpdateWeek)
{ %EXEC { /QSYS.LIB/@dtw_rstrip(as400library).LIB/WEEKUPD.PGM %}
%}
%html(main) {
%if($(action) == "new")
@DTW_SETCOOKIE("sns_irt_session_id", $(session), "expires=Friday,
10-Nov-2050 00:00:00;path=/")
%endif
@DTW_GETCOOKIE("sns_irt_session_id", psession)
%IF($(RETURN_CODE) == "8000")
<html>
<body>
<br><br>
IRT Session has not been established or has expired.<br><br>
Please close this window and restart the application.<br>
</body>
</html>
%ENDIF
@WeekUpdate(USER,sundaydate,err,Table_UpdateWeek)
%IF($(PSTATUS) == "N")
<html>
<body>
<br><br>
IRT Session has not been established or has expired.<br><br>
Please close this window and restart the application.<br>
</body>
</html>
@DTW_EXIT()
%ENDIF
Hth, tim
-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx] On
Behalf Of rick baird
Sent: Wednesday, July 19, 2006 3:23 PM
To: Web Enabling the AS400 / iSeries
Subject: [WEB400] net.data DTW_DIRECTCALL error.
hey all,
I'm trying to get a DTW_DIRECTCALL function for net.data working, and
i'm having a dickens of a time. could someone check my syntax please?
the error I'm getting on the page is:
%function(DTW_DIRECTCALL) dc1( IN psession, OUT pstatus, INT pstore,
INT pfyear, INT pfper ) { %EXEC { IRTGETPARM.PGM NET.DATA Error: An
incorrect symbol (%}) was encountered at line 29 of file
/HTTP/WEBT/NETDATA/phy/irt/irtmenu.mac.
see the code below:
line 29 is the line directly after the %EXEC { IRTGETPARM.PGM %}
the cookie is being set, and it is also being retrieved, action and
--
This is the Web Enabling the AS400 / iSeries (WEB400) mailing list
To post a message email: WEB400@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/web400
or email: WEB400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/web400.
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.
