Hi,
I came across this problem in the past.
You will have to setup the lib list in RPG before you do anything....if you have files in F spec then make it user open..
Your first thing in your RPG is to setup the lib list. (use APIs QCMDEXC) to set up that.
See below code.
Regards, Murali
d executeCLCommand...
d pr extpgm('QCMDEXC')
d w_Command 255
d w_Length 15p 5
*
dw_Command s 255 inz
dw_Length s 15p 5 inz(255)
/free
//...Init the output parameters
//...Set initial library list
exsr SetInitialLibraryList;
//...Open files
exsr OpenFiles;
result = 'N';
-----Original Message-----
From: java400-l-bounces@xxxxxxxxxxxx [mailto:java400-l-bounces@xxxxxxxxxxxx] On Behalf Of Wintermute, Sharon
Sent: 09 September 2009 20:52
To: java400-l@xxxxxxxxxxxx
Subject: Library list when calling RPG from Java
I have a CL that actually runs a Java program.
Within the java, it runs an RPGLE routine to get data to use in the process.
String path = "/QSYS.LIB/YRCLUTIL.LIB/MQRCV02.PGM";
String msgId, msgText;
try {
ProgramCallDocument pcml = new ProgramCallDocument(as400, "MQRCV02");
pcml.setPath("MQRCV01", path);
pcml.setValue("MQRCV01.PALIAS", messageName);
pcml.setValue("MQRCV01.PFILEPATH", filepath);
boolean rc = pcml.callProgram("MQRCV02");
Now I know it is actually calling the RPG and getting it resolved. The problem is that although I started from a job with the correct library list, it apparently starts another job in order to actually call the RPG. I could live with that but the library list is not set. How do I do such a thing without doing it in the RPG?
TIA,
Sharon Wintermute
--
This is the Java Programming on and around the iSeries / AS400 (JAVA400-L) mailing list To post a message email: JAVA400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/java400-l
or email: JAVA400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at
http://archive.midrange.com/java400-l.
Consider the environment and think before you print this email.
Registered Address: Fortis House Tollgate Eastleigh Hampshire SO53 3YA Registered Number: 354568 England
Authorised and regulated by the Financial Services Authority
This e-mail together with any attachments are intended for the addressee only and may be private and confidential. If you are not the intended recipient, or the person responsible for delivering it to the intended recipient, you must not open any attachments, or copy, disclose, distribute, retain or use this e-mail, including any attachments, in any way whatsoever; please return it to us immediately using the reply facility on e-mail.
Consider the environment and think before you print this email.
midrange.com
