使用EXTFLD定义数组作为数据结构子字段时编译报错

问题场景 #

尝试通过EXTNAME和EXTFLD引用外部表IAC3002_L，将数组定义为限定模板数据结构P_IAC3002L的子字段时，触发编译错误。

数据结构代码 #

dcl-ds P_IAC3002L                          extname('IAC3002_L') qualified template;
  LISTROWNumber                            extfld('LISTROWNBR');                   
  WorkTitle                                extfld('WORKTITLE');                   
  OriginalWorkTitle                        extfld('WRKTITLEOR');                   
  TypeOfWorkTitle                          extfld('WRKTITLETY');                   
  TitleTypeDescription                     extfld('TITLEDESC');                   
  OriginalVersionInd                       extfld('WRKORGIND');                   
  OriginalVersionIndDescription            extfld('WRKORGDESC');                   
  Role                                     extfld('ROLE' );                       
  RoleDescription                          extfld('ROLEDESC');                     
  StatusOfWork                             extfld('WRKSTS' );                     
  WorkStatusDescription                    extfld('WRKSTSDESC');                   
  WorkKey                                  extfld('WORKKEY');                     
  WorkTitleNumber                          extfld('WRKTITLENO');                   
  WorkMatchIndicator                       extfld('WRKMATCHIN');                   
  WorkCCIndicator                          extfld('WRKCCIND');                     
  OtherTitlesExist                         extfld('OTHTITLIND');                   
  WorkIsReferenced                         extfld('WRKISREF');                     
  WorkIsActive                             extfld('WRKISACT');                     
  AgreementExceptionExists                 extfld('PAGEXCEP');         
  PublisherReferences                      extfld('PUBREFS') dim(500); 
end-ds; 

编译错误信息 #

PublisherReferences                      extfld('PUBREFS') dim(500);   
======>    aaaaaaaaaaaaaaaaaaa                                                        
*RNF0518 20 a      012900  Length of item PUBLISH... is less than 1; length defaults  
                           to 1.                                                      

外部表IAC3002_L字段定义 #

Field                         Field                             
   Text                          Name     Type Length  Dec  Loc    
 List Row Number                 LISTROWNBR S      3    0     1    
 Work Title                      WORKTITLE  A     90          4    
 Work Original Title             WRKTITLEOR A     90         94    
 Type of Work Title              WRKTITLETY A      2        184    
 Title Type Description          TITLEDESC  A     60        186    
 Original/version Indicato       WRKORGIND  A      3        246    
 Work Original Indicator D       WRKORGDESC A     60        249    
 Role                            ROLE       A     10        309    
 Role Description                ROLEDESC   A     60        319    
 Status Of Work                  WRKSTS     S      1    0   379    
 Work Status Description         WRKSTSDESC A     60        380    
 Work Key Number                 WORKKEY    S     11    0   440 
 Work Title Sequence Numbe       WRKTITLENO S      7    0   451 
 Work Match Indicator            WRKMATCHIN A      1        458 
 Work Counterclaim Indicat       WRKCCIND   A      1        459 
 Other Titles Exist              OTHTITLIND A      1        460 
 No of none Wsm                  NONONEWSM  S      3    0   461 
 Work has Trigger                HASTRIGGER A      1        464 
 Work Is Referenced              WRKISREF   A      1        465 
 Work Is Active                  WRKISACT   A      1        466 
 Agreement Exception Exist       PAGEXCEP   A      1        467 
 Work Number Cross Referen       PUBREFS    A     20        468 

错误原因 #

*RNF0518*错误的核心是：RPGLE不支持通过EXTFLD将外部表的单个字段直接定义为数组。

EXTFLD的作用是将外部表的单个字段映射到数据结构的子字段，而dim()是数组定义属性，两者不能组合使用。编译器无法识别这种用法，无法从外部表字段获取数组元素的长度信息，因此误判该字段长度小于1，触发错误。

解决方法 #

如果需要将PUBREFS定义为数组，可采用以下两种方式：

• 显式指定字段类型、长度后添加数组属性：

  PublisherReferences                      A   20    dim(500); 
  

• 若要保留与外部表的关联，可先通过EXTNAME自动映射所有字段，再重新定义该字段为数组（覆盖原单字段定义）。

内容的提问来源于stack exchange，提问作者Theju112