【发布时间】：2017-09-07 11:44:13
【问题描述】：
我想从 java 中调用 AS/400 RPG 程序，但遇到如下错误
com.ibm.as400.data.PcmlException：收到异常：[com.ibm.as400.access.ObjectDoesNotExistException] /QSYS.LIB/%LIBL%.LIB/GETKURSJAV.PGM：对象不存在。 在 com.ibm.as400.data.ProgramCallDocument.callProgram(ProgramCallDocument.java:458) 在 CallRPG.main(CallRPG.java:34) 引起：com.ibm.as400.access.ObjectDoesNotExistException：/QSYS.LIB/%LIBL%.LIB/GETKURSJAV.PGM：对象不存在。 在 com.ibm.as400.access.RemoteCommandImplRemote.runProgramOffThread(RemoteCommandImplRemote.java:595) 在 com.ibm.as400.access.RemoteCommandImplRemote.runProgram（RemoteCommandImplRemote.java:532） 在 com.ibm.as400.access.ProgramCall.run(ProgramCall.java:780) 在 com.ibm.as400.data.PcmlProgram.callProgram(PcmlProgram.java:681) 在 com.ibm.as400.data.PcmlDocument.callProgram(PcmlDocument.java:462) 在 com.ibm.as400.data.ProgramCallDocument.callProgram(ProgramCallDocument.java:445) ... 1 更多
这是我的java代码
import com.ibm.as400.access.AS400;
import com.ibm.as400.access.AS400Message;
import com.ibm.as400.access.ProgramParameter;
import com.ibm.as400.data.PcmlException;
import com.ibm.as400.data.ProgramCallDocument;
public class CallRPG {
public static void main(String[] args) {
// TODO Auto-generated method stub
AS400 as400 = null;
String host = "10.2.62.7";
String username = "USERNAME";
String password = "PASSWORD";
as400 = new AS400(host, username, password);
if (as400 == null) {
System.out.println("Connection Failed");
} else {
System.out.println("Connection Success");
}
ProgramCallDocument pcml;
try {
pcml = new ProgramCallDocument(as400, "getkursjav.pcml");
pcml.setValue("GETKURSJAV.CCCKRS", "51");
pcml.setValue("GETKURSJAV.IDXKRS", "5");
// call the program
boolean rc = pcml.callProgram("GETKURSJAV");
if (rc == false) {
System.out.println("Program failed");
} else {
int outputData = (int) pcml.getValue("GETKURSJAV.ZRTNKRS");
System.out.println(outputData / 100000);
}
} catch (PcmlException pe) {
System.out.println(" Caught Exception ");
pe.printStackTrace();
} finally {
System.exit(0);
}
}
}
这是我的 pcml 文件
<pcml version="4.0">
<program name="GETKURSJAV" path="/QSYS.LIB/%LIBL%.LIB/GETKURSJAV.PGM">
<data name="CCCKRS" type="packed" length="2" precision="0" usage="input" />
<data name="IDXKRS" type="packed" length="2" precision="0" usage="input" />
<data name="ZRTNKRS" type="char" length="10" usage="output" />
</program>
</pcml>
我的代码有什么问题？ 我是否需要将 as400 CURLIB 和 PRGLIB 添加到我的 java 代码中？如果是，我该如何添加库？
【问题讨论】：
-
旁注：
if (as400 == null)这是不可能的，因为你做了一个new -
这看起来像是库列表问题。您确定该程序在作业的库列表中吗？
-
确定 %LIBL% 没问题？ （不是 AS/400 人。）看起来像一个环境变量。
标签： java ibm-midrange rpg