error-handling - AS400- MOVEA无法编译，无法将十进制数据结构移动到十进制数组

Question

D posDS     ds
D pos1               2 0
D pos2               2 0

D posArr             2 0   dim(2)

C                     MoveA   posDS     posARR

在上面的代码中，我得到RNF7262-因子2和结果字段的类型和长度不同。请协助正确定义数据类型和大小的问题。

Answer 1

看来您可能试图以数组的形式访问多个“顺序”字段，这些字段可能源自表。

而不是尝试移动数据，只需执行以下操作

dcl-ds posDs;
  pos1 zoned(2);
  pos2 zoned(2);
  posArr zoned(2) dim(2) pos(1);
end-ds;

修复格式看起来像

 d posDs           ds
 d  pos1                          2  0
 d  pos2                          2  0
 d  posArr                        2  0 dim(2) overlay(posDs)