Question

我想从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>

我的代码出了什么问题？我需要在我的java代码中添加as400 CURLIB和PRGLIB吗？如果是，我该如何添加库？

Answer 1

根据这篇文章，Calling RPG on the AS400 from Java，允许％LIBL％.LIB ......

但是PCML program tag

的文档没有具体说明

文档的这一部分Integrated file system path names for server objects有

我试着用左右 path="/QSYS.LIB/%LIBL%/GETKURSJAV.PGM"

从Java调用AS / 400 RPG程序

1 个答案: