RPGLE带有升序变量的结束字段名。

Question

我有一个简单的问题，涉及到用一个数字变量对字段名的末尾进行编号。

Exp: FIELD,X = FIELD01, FIELD,X = FIELD02, ETC...。

             Z-ADD     1             X                 2.0
             DOU       X = 10                              
             FIELD,X         IFEQ      *BLANK                              
                             MOVE         FIELDREAD        FIELD,X
                             ENDIF 
             ADD     1           X                    

             ENDDO                                        

我可以在RPG中这样做，但我不知道如何在RPGLE中这样做。 当我尝试这样做时，我得到了这个错误。 条目中包含无效数据，只使用有效数据。

谢谢！!

Answer 1

在RPGLE中，数组索引的语法是ARR(X)。

FIELD(X)        IFEQ      *BLANK

如果你不确定RPGLE的语法，可以试着用RPG写一点代码，然后用CVTRPGSRC转换为RPGLE。