如何简化RPGLE中数据区转SQL Where子句字符串的代码？

问题描述 #

研究RPGLE的数据结构特性时，需要从数据区*LIBL/MYDTAARA中读取5个Clerk和5个Manager数据，转换为适用于SQL WHERE子句的格式字符串（如'CLERK01','CLERK03'）。当前实现代码较为冗长，希望用更少代码完成相同功能。

原实现代码 #

DCL-DS info2 DTAARA('*LIBL/MYDTAARA');                                                 
    dcl-subf DTA       char(300);                                                      
    dcl-subf Manager  char(50) overlay(DTA:51) ;                                      
    dcl-subf Manager1 char(10) overlay(Manager:01) ;                                  
    dcl-subf Manager2 char(10) overlay(Manager:11) ;                                  
    dcl-subf Manager3 char(10) overlay(Manager:21) ;                                  
    dcl-subf Manager4 char(10) overlay(Manager:31) ;                                  
    dcl-subf Manager5 char(10) overlay(Manager:41) ;                                  
    dcl-subf Clerk  char(50) overlay(DTA:201) ;                                  
    dcl-subf Clerk1 char(10) overlay(Clerk:01) ;                                
    dcl-subf Clerk2 char(10) overlay(Clerk:11) ;                                
    dcl-subf Clerk3 char(10) overlay(Clerk:21) ;                                
    dcl-subf Clerk4 char(10) overlay(Clerk:31) ;                                
    dcl-subf Clerk5 char(10) overlay(Clerk:41) ;                                
    dcl-subf Managers Overlay(Manager)  Like(Manager1) Dim(5);                      
    dcl-subf Clerks Overlay(Clerk) Like(Clerk1) Dim(5);                   
 End-ds ;  

 Dcl-s sCLERK Char(80)   ;            
 Dcl-s sMANAGER Char(80)   ;    
 Dcl-s x   Int(2)        ;             
 Dcl-s C   CHAR(1)       ;   // comma  
 Dcl-c Q   CONST('''')   ;   // quote  

For x = 1 to 5 by 1;                                                   
 If Clerks(x) <> *blanks ;                                        
    sCLERK  =  %trim(sCLERK)  + C + Q + %trim(Clerks(x)) + Q;     
    C =',';                                                           
 EndIf ;                                                              
EndFor;                                                                
C =' ';                                                                
For x = 1 to 5 by 1;                                                   
  If Managers(X) <> *blanks ;                                      
    sMANAGER  =  %trim(sMANAGER) + C + Q + %trim(Managers(x)) + Q;      
    C =',';                                                            
  EndIf ;                                                              
EndFor;                                                                

简化实现方案 #

1. 简化数据结构定义 #

删除冗余的单个子字段（Manager1-5、Clerk1-5），直接通过数组覆盖目标区域，结构更简洁：

DCL-DS info2 DTAARA('*LIBL/MYDTAARA');
    dcl-subf DTA       char(300);
    dcl-subf Manager   char(50) overlay(DTA:51);
    dcl-subf Clerk     char(50) overlay(DTA:201);
    dcl-subf Managers  char(10) Dim(5) overlay(Manager);
    dcl-subf Clerks    char(10) Dim(5) overlay(Clerk);
End-ds;

2. 用内置函数替代循环拼接 #

利用RPGLE的%JOIN函数（IBMi 7.3及以上版本支持）直接完成数组元素的拼接，配合%TRIM自动过滤空元素，无需手动控制逗号和循环：

Dcl-s sCLERK     Char(80);
Dcl-s sMANAGER   Char(80);
Dcl-c QUOTE      CONST('''');

// 生成Clerk的SQL格式字符串
sCLERK = %join(%trim(Clerks): QUOTE + ',' + QUOTE);
if sCLERK <> '';
    sCLERK = QUOTE + sCLERK + QUOTE;
endif;

// 生成Manager的SQL格式字符串
sMANAGER = %join(%trim(Managers): QUOTE + ',' + QUOTE);
if sMANAGER <> '';
    sMANAGER = QUOTE + sMANAGER + QUOTE;
endif;

优化说明 #

• 数据结构简化：单个子字段完全可以通过数组索引访问，删除后不影响功能，大幅减少代码行数。
• 内置函数复用：%JOIN自动处理元素分隔，%TRIM自动去除元素空格和空元素，省去了循环变量和逗号控制逻辑，代码更简洁易读。
• 变量减少：删除了循环变量x和逗号控制变量C，进一步简化代码结构。

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