MCH5003，标量错误 - ILE RPG

Question

调用程序条目：

dcl-pi PGM1;
  choice uns(3) const;
  returnCode likeds(returnCodeTpl);
  parameterPtr pointer const options(*nopass);
  parameterPtr2 pointer const options(*nopass);
  parameterPtr3 pointer const options(*nopass);
end-pi;

来电程序：

document.field1 = 'EL';
document.field2 = 'T';
document.field3 = 2780;
PGM1(1:returnCode:%addr(document));

document定义(调用时(：

dcl-ds document_ qualified based(parameterPtr);
  field1 char(2);
  field2 char(1);
  field3 packed(7:0);
end-ds;

document定义(在调用方上(：

dcl-ds document qualified inz;
  field1 char(2);
  field2 char(1);
  field3 packed(7:0);
end-ds;

然后调用程序处理 DS document，调用导出的过程：

select;
  ...
  when (1 = choice);
    myProc(document_);
  ...
endsl;

myProc定义：

dcl-proc myProc export;
  dcl-pi *n ind;
    document likeds(document_) const;
  end-pi;
  dcl-s i int(5) inz;
  exec sql                    <--- Error appears there
    select count(field1) into :i from myFile
    where
      field1 = :document.field1 and
      field2 = :document.field2 and
      field3 = :document.field3;
  ...
  return i > 0;
end-proc;

myFile字段的类型document字段相同。

不断得到的错误是MCH5003 - 标量错误。无效标量操作数的长度为 128。调试停止在exec sql子句上。

我真的想不通它是什么！

Answer 1

与调用方的 PI 相关的dcl-ds document_ qualified based(parameterPtr);在哪里？

我怀疑你应该按值传递指针，而不是 CONST 引用......

dcl-pi PGM1;
  choice uns(3) const;
  returnCode likeds(returnCodeTpl);
  parameterPtr pointer VALUE options(*nopass);
  parameterPtr2 pointer VALUE options(*nopass);
  parameterPtr3 pointer VALUE options(*nopass);
end-pi;

但我仍然认为没有理由弄乱指针。

更新
我认为你不需要 3 个胳膊...您可以使用同一个指针定义多个BASED(ptr)变量。

dcl-pi PGM1;
  choice uns(3) const;
  returnCode likeds(returnCodeTpl);
  parameterPtr pointer VALUE options(*nopass);
end-pi;
dcl-ds doc1 likeds(doc1_t) based(ptr);
dcl-ds doc2 likeds(doc3_t) based(ptr);
dcl-ds doc3 likeds(doc3_t) based(ptr);
  ptr = parameterPtr;
  //all three DS are overlaying the same memory at this point
  // you have to make sure you only access the DS that corresponds to
  // the actual memory layout being used... 
  select;
    when (1 = choice);
      myProc(doc1);
    when (2 = choice);
      myProc2(doc2);
    when (1 = choice);
      myProc3(doc3);
   endsl;

Answer 2

最后这是一个参数传递错误。
在调用 PGM1 之前，对 PGM2 的另一个调用是将八个参数中的第二个作为 char(91( 而不是 char(500( 传递。
我没有看到它，因为它被定义为 likeds((，并且 DS 应该是 500 字节长。

无论如何，谢谢@Charles。