iSeries：从调用另一个iSeries系统上的存储过程的RPG程序提取SQL结果集时出错

Question

简短说明：在调用了存储在不同iSeries中的SQL过程之后，我试图使用关联的游标访问结果集，但fetch语句结果出现MCH3601“指针未为位置引用设置”错误。

详细信息：SQLRPGLE程序执行以下D和C规范来调用在不同iSeries上运行的SQL存储过程，并返回具有单个字段的单行：

** Locator definition
D OUTPIK          S                   SQLTYPE(RESULT_SET_LOCATOR)    
** Resultset definition as the thirdy-part developer told us it is
D DSPIK           DS                  OCCURS(1)         
D  FLPIK                         1A                     

// Connecting to a second iSeries
EXEC SQL 
  CONNECT TO :wrkDBR  USER :wrkUSER USING :wrkPWD;

// Calling stored procedure
EXEC SQL 
  CALL LOGF10OPIN/DEDALO_SIRE_POSTOPICKING (:CAZI_S, :CEDI_S, :CART_S);

// Associating SQL locator to SP resultset
EXEC SQL 
  ASSOCIATE RESULT SET LOCATORS (:OUTPIK) 
    WITH PROCEDURE LOGF10OPIN/DEDALO_SIRE_POSTOPICKING;

// Allocating result set to a cursor
EXEC SQL 
  ALLOCATE CPI CURSOR FOR RESULT SET :OUTPIK;

// Fetching resul set into a variable defined as CHAR(1) 
EXEC SQL 
  fetch CPI into :DSPIK;

// Closing cursor
EXEC SQL 
  CLOSE CPI;

// Disconnecting
EXEC SQL 
  DISCONNECT :wrkDBR;

进一步研究：以下语句从存储SP的同一系统上的SQL客户端（IBM或DBeaver）运行，返回正确的值（例如'n')

CALL LOGF10OPIN.DEDALO_SIRE_POSTOPICKING ('A01', '00M1', '0000123');

但是，当我从iSeries中使用以下语句进行相同的调用时，我需要从其中调用SP，结果是意料之外的

CONNECT TO B0050C2B  USER RETAIL USING 'xxx';
CALL LOGF10OPIN.DEDALO_SIRE_POSTOPICKING ('A01', '00M1', '0000123');
DISCONNECT B0050C2B;

我在FTP客户端上看到的答案是值'D5'，这是'N'的EBCDIC十六进制值！

非常感谢你的帮助。

Answer 1

看来这个问题需要IBM的PTF在V7R1和V7R2上解决。