I vaguely remember trying this stuff a couple of years ago and could not get
it to work. Might be (probably was) something I was doing wrong. If
someone tests this and gets it to work, I'd like to know.
Two other techniques that we use:
Use REMOTE_USER to get the user profile of the person who signed on to
the macro (assuming that you have enabled this function), then call a CL
program passing the user and change the LIBL accordingly.
Add a routing entry to the subsystem in which the HTTP server is running
(probably QHTTPSVR) that calls a CL program to set the library list. We
use this to have a test and production environment for Net.Data. We have
two different HTTP servers (at two different ports), and the CL program
checks to see the job name - which is a function of which server is
running the macro - and adds either production or test libraries to the
list
Larry Kleinman
Kleinman Associates, Inc.
212-949-6469
203-255-4100
Peter_Vidal@pall.
com
Sent by: To
web400-bounces@mi Web Enabling the AS400 / iSeries
drange.com <web400@xxxxxxxxxxxx>
cc
07/09/2008 09:28 Subject
AM Re: [WEB400] Net.data Macro Library
List
Please respond to
Web Enabling the
AS400 / iSeries
<web400@midrange.
com>
Good morning Don:
We do things in different manners over here but I have been asking myself
the same question and I got a little break and looked at the manual. I
found this and even though I have not tried it, is worth it to test it:
EXEC_PATH
This path configuration statement identifies one or more directories that
Net.Data searches for an external program that is invoked by the EXEC
statement or an executable variable. If the program is found, the external
program name is appended to the path specification, resulting in a fully
qualified file name that is passed to the language environment for
execution.
Syntax:
EXEC_PATH [=] path1;path2;...;pathn
Example: The following example shows the EXEC PATH statement in the
initialization file and the EXEC statement in the macro that invokes an
external program.
Net.Data initialization file:
EXEC_PATH /qsys.lib/programs.lib;/qsys.lib/rexx.lib/rexxpgms.file;
Net.Data macro:
%FUNCTION(DTW_REXX) myFunction() {
%EXEC{ myFunction.mbr %}
%}
If the file myFunction.mbr is found in the
/qsys.lib/rexx.lib/rexxpgms.file directory, the qualified name of the
program is /qsys.lib/rexx.lib/rexxpgms.file/myFunction.mbr.
If the file is not found in the directories specified in the EXEC_PATH
statement:
* If the specified path is absolute, Net.Data searches for the file in the
specified path. For example, if the following EXEC statement were
specified:
%EXEC{/qsys.lib/programs.lib/rpg1.pgm %}
Net.Data would search for the file rpg1.pgm in the /qsys.lib/programs.lib
directory.
* If the specified path is relative, Net.Data searches the current working
directory. For example, if the following EXEC statement were specified:
%EXEC { rpg1.pgm %}
then Net.Data would attempt to find the file rpg1.pgm in the current
working directory.
PETER VIDAL
MAPICS IT TECHNICAL SUPPORT TEAM / SR SYSTEM ANALYST
10540 Ridge Rd., Suite 203, New Port Richey, FL 34654-5111
WWW.PALL.COM
"There are qualities which one must possess to win: definitiveness of
purpose, knowledge of what one wants and a burning desire to posses it."
Anonymous
--------------------------------------------------------------------------------
Attention:
This communication may contain information that is confidential,
privileged and/or exempt from disclosure under applicable law.
If you are not the intended recipient, please notify the sender
immediately and delete the original, all attachments, and all
copies of this communication.
--------------------------------------------------------------------------------
--
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.
midrange.com
