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

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

Exp:FIELD，X=FIELD01，FIELD，X=FIELD02，等等

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

             ENDDO                                        

我可以在RPG中这样做，但我不知道如何在RPG中这样做。当我尝试获取此错误时：条目包含无效数据；仅使用有效数据

---

谢谢

RPGLE中数组索引的语法是ARRX

FIELD(X)        IFEQ      *BLANK

如果您不确定RPGLE的语法，请尝试在RPG中编写一些代码，然后使用CVTRPGSRC将其转换为RPGLE

            fSomeFile  if   e           k disk             
            D ArMax           c                    10                         
            D Key1            S                   like(KeyField)                 
            D Field           S                   dim(ArMax) like(FieldRead)  

                Exsr $Sample1;
                *inlr = *on;
                return;     
       
     Begsr $Sample1;                                              
c                   z-add     1             X                 3 0 

                   setll (key1) SomeFile
                   dou x = 10;                                                
                     if Field(x) = *blank;                                    
                       reade (key1) SomeFile;                            
                       if %found(SomeFile);                                   
                         Field(x) = FieldRead;                                
                       endif;                                                 
                     endif;                                                   
                     X = X +1;                                                
                   enddo;                                                     
      Endsr;