We have an AS/400 here at work, and we use IBM's Net.Data macro language
for server-side scripting. I've done some searching in the Net.Data forum,
but I can't find documentation on how to set up Perl so that it can be
called from Net.Data.
A Net.Data function is written like this:
%MACRO_FUNCTION testFunction(){
(insert some tedious code here)
%}
To do an SQL statement, you must call @DTW_SQL:
%function (DTW_SQL) RptOpen(in StartDate){
select regon, SUM(salety), SUM(tranty), SUM(salely), SUM(tranly),
SUM(csalty), SUM(csally) from $(f_RetailSales2) WHERE slsdt=$(StartDate)
GROUP BY regon ORDER BY regon
%REPORT{
(something to be done once, at the top)
%ROW{
(something to be done for each row returned)
}
(something to be done once, at the end)
}
(end of report block)
%}
Net.Data allows you to write code in a few other languages, including Perl.
It is done like this:
%function(DTW_PERL) TestPerlFunction(){
print "Hello\n";
%}
That stuff I know, but does anyone know what you have to do to the AS/400
web server in order for this to work?
Thank you,
Shawn
**********************************************************************
This e-mail and any files transmitted with it may contain
confidential information and is intended solely for use by
the individual to whom it is addressed. If you received
this e-mail in error, please notify the sender, do not
disclose its contents to others and delete it from your
system.
**********************************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
