Re: net.data DTW_DIRECTCALL error. -- WEB400



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 mailing list archive is Copyright 1997-2026 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.