带有升序变量的 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。