Question

我们使用com.ibm.as400.data.ProgramCallDocument类通过Java与iSeries上的RPG程序进行交互。在我们的WebSphere应用程序的大多数情况下，我们使用CL进行RPG / Synon程序，并使用PCML与它们进行交互。我们通常也没有使用结构作为输入输出。

这次我们的一位RPG开发人员在RPG IV（不是Synon）中创建了该程序，并为我们提供了与该程序接口的PCML。我们有三个inputoutput parms作为常规字符串。没有大碍。我们之前已经这样做了。现在你可以看到的第四个parm是一个计数为100的结构，它是inputoutput。

当我们尝试调用它时，我们从RPG程序返回的是大量的空白（即十六进制40）。 String parms回来了。但结构没有。所有的权力都只是空白。

当我们让RPG程序员验证时，他可以看到他的程序确实返回了结构数组。他还写了一个快速而肮脏的CL，以确保他的程序确实返回值，他说CL证明了它。

所以现在我很难过。我甚至试图找到一种方法来传递一个值，看看是否有所作为。但无论我要么让它不开心（因为我不符合parms列表），或者我只回到空白处。有什么想法去指导吗？

这是PCML文件

   <pcml version="4.0">
   <!-- RPG program: IL010S20  -->
   <!-- created: 2010-07-13-11.28.53 -->
   <!-- source: CPPGENL/QRPGLESRC(IL010S20) -->
   <!-- 2208 -->
   <struct name="ADDRINFO">
      <data name="PREDIRECTION" type="char" length="2" usage="inherit" />
      <data name="STREETNAME" type="char" length="30" usage="inherit" />
      <data name="POSTDIRECTION" type="char" length="2" usage="inherit" />
      <data name="STREETTYPE" type="char" length="4" usage="inherit" />
      <data name="LOWADDRESS" type="char" length="11" usage="inherit" />
      <data name="HIGHADDRESS" type="char" length="11" usage="inherit" />
      <data name="ODDEVEN" type="char" length="1" usage="inherit" />
      <data name="TERRID" type="char" length="2" usage="inherit" />
      <data name="TAXCODE" type="char" length="5" usage="inherit" />
      <data name="TERRNAME" type="char" length="30" usage="inherit" />
   </struct>
   <!-- 2226 -->
   <program name="program" path="/QSYS.LIB/DEVOBJL.LIB/IL010S20.PGM"> 
      <data name="STATE" type="char" length="2" usage="inputoutput" />
      <data name="ZIP" type="char" length="5" usage="inputoutput" />
      <data name="STREET" type="char" length="30" usage="inputoutput" />               
      <data name="RETURNADDR" type="struct" struct="ADDRINFO" count="100" usage="inputoutput" />
   </program>
</pcml>

并按如下方式加载ProgramCallDocument：

//sys is our AS400 object and parameters is a HashMap.
ProgramCallDocument newPcml = new ProgramCallDocument( sys, pcmlfileName );
Iterator parametersKeysI = parameters.keySet().iterator();
StringBuffer loggingStatement = new StringBuffer();
while( parametersKeysI.hasNext() ) {
    String key = (String)parametersKeysI.next();

    if("program.RETURNADDR".equalsIgnoreCase(key)) {
      AS400Structure [] structure = (AS400Structure[]) parameters.get(key);
      int [] indeces = new int[1];
      indeces[0] = 0;
      for(int i = 0; i < structure.length; i++) {
        indeces[0] = i;
        Object paramValue = structure[i];
        loggingStatement.append(paramValue).append(", ");
        newPcml.setValue(key, indeces, paramValue);
      }
    }
    else {
      Object paramValue = parameters.get( key );
      loggingStatement.append( paramValue ).append( ", " );
      //set the value
      newPcml.setValue( key, paramValue );
    }
}

然后我们用newPcml.callProgram('program');调用我们的程序，从我们可以看到，调用返回true。但是当我们去读取结构时，什么都没有。我甚至用com.ibm.as400.data.PcmlMessageLog.setTraceEnabled(true);试图看到这些标准，这就是让我感到困惑的地方。我们看起来没有问题，但我们没有得到我们期望的结果。

任何帮助或指示都将不胜感激。到目前为止，Javadocs和在线示例并不是最有帮助的。

Answer 1

确定。这是愚蠢的，我们没想到要早点检查。但问题出在我们的Strings / chars上。虽然我们的iSeries在打字时几乎处理了大写字母，因为我们使用jt400.jar我相信它在我们的Java应用程序中读取我们的小写字母并将它们的字节等价发送到iSeries中，因此我们没有匹配数据库读取RPG程序。我们的iSeries家伙刚刚将这个程序修改为“上层”所有内容，因此我们解决了这个问题。我们只是假设它没问题，因为iSeries上的大多数东西都自动“上”了。猜猜我们错了。

使用jt400.jar API从RPG程序中检索结构数组

1 个答案: