Re: Execute a CLP from net.data menu step -- WEB400

Larry: The interpretation of this <simple> macro if failing ??

%{Macro: PCprint.mac -- Print out Prod. Calendar%}
%DEFINE {
DATABASE = "*LOCAL" %{ point to the local database on this machine
%}
SHOWSQL = "no" %{ NO means turn database debugging off, YES
means turn it on %}
DTW_SET_TOTAL_ROWS = "yes"
%}

%FUNCTION(DTW_directcall)

%EXEC { /QSYS.LIB/DONC.LIB/QKFPEPC.PGM %}

%{-------------------------------------------------------%}
%{ Section report - Begin here from HTML menu. %}
%{-------------------------------------------------------%}
%HTML(main) {
<HTML>
<TITLE>AMEREQUIP - Print Calendar</TITLE>
@DTW_directcall()
</HTML>
%}

-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx]
On Behalf Of Larry Kleinman
Sent: Monday, October 19, 2009 11:08 AM
To: Web Enabling the AS400 / iSeries
Subject: Re: [WEB400] Execute a CLP from net.data menu step

yes, or you could just have it be part of the menu html (assuming the
menu itself is a net.data macro)

Larry Kleinman
Kleinman Associates, Inc.
212-949-6469
203-255-4100

"Don Cavaiani" <dcavaiani@xxxxxxxxxxxxx>
Sent by: web400-bounces@xxxxxxxxxxxx
10/19/2009 10:56 AM
Please respond to
Web Enabling the AS400 / iSeries <web400@xxxxxxxxxxxx>

To
"Web Enabling the AS400 / iSeries" <web400@xxxxxxxxxxxx>
cc

Subject
Re: [WEB400] Execute a CLP from net.data menu step

Thanks Larry. So I have to make a 'mini' macro as you detail below,
then "call" it from the "menu" html, right?

-----Original Message-----
From: web400-bounces@xxxxxxxxxxxx [mailto:web400-bounces@xxxxxxxxxxxx]
On Behalf Of Larry Kleinman
Sent: Monday, October 19, 2009 9:04 AM
To: Web Enabling the AS400 / iSeries
Subject: Re: [WEB400] Execute a CLP from net.data menu step

You can call an CL (or RPG) program from net.data using dtw_directcall.
Here's a sample of a function called GetSearchString passing 3 parms to
the program called INR701 in library OHBPP and getting back one return
parm

%FUNCTION(DTW_directcall)
GetSearchString (in char(6) ppItemType,
char(6) ppItemSubType,
char(5) ppClass,
inout char(800) searchstring
) {
%exec { /QSYS.LIB/OHBPP.LIB/INR701.PGM %}

Larry Kleinman
Kleinman Associates, Inc.
212-949-6469
203-255-4100

"Don Cavaiani" <dcavaiani@xxxxxxxxxxxxx> Sent by:
web400-bounces@xxxxxxxxxxxx
10/19/2009 08:44 AM
Please respond to
Web Enabling the AS400 / iSeries <web400@xxxxxxxxxxxx>

To
<web400@xxxxxxxxxxxx>
cc

Subject
[WEB400] Execute a CLP from net.data menu step

There must be a way to call a CLP (RUNQRY) from 1 of the steps of a
Browser Menu - where the menu is created with net.data.

TIA

Don F. Cavaiani
IT Manager
Amerequip Corp.
920-894-7063

"It's amazing what you can accomplish if you don't care who gets the
credit." Harry S. Truman