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

Question

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

经验：字段，X = FIELD01，字段，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 中做到这一点，但我不确定如何在 RPGLE 中做到这一点。 当我尝试时，出现此错误：条目包含无效的数据;仅使用有效数据。

谢谢！！

Answer 1

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

FIELD(X)        IFEQ      *BLANK

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

Answer 2

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;