SQLRPGLE程序执行后文件未关闭问题排查求助

问题描述 #

我编写的SQLRPGLE代码已实现文件访问与关闭逻辑，但程序运行后，MONEWAS3和WELFARE文件仍处于打开状态，可通过会话的“Display Open Files”功能验证。重新登录会话会关闭文件，但再次运行程序又会打开并保持开启状态。编译代码时（执行CRTSQLRPGI命令），已将CLOSQLCSR设置为*ENDMOD，请问是什么原因导致文件无法正常关闭？

程序代码 #

ctl-opt dftactgrp(*no);                         

dcl-f MOCL0700DP printer oflind(PageOverflow) ; 

dcl-s PageOverflow ind;                         
dcl-s count uns(10);                            
dcl-s inFund zoned(4);                          
dcl-s inDateRec zoned(8);                       
dcl-s inFedId packed(9:0);                      
dcl-s inPayPer zoned(8);                        
dcl-s inLname char(20);                         
dcl-s inFinit char(1);                          
dcl-s inMinit char(1);                          
dcl-s inSocSec packed (9:0);                    
dcl-s inAreaW zoned(4);                         
dcl-s inHomeW zoned(4);                         

nextPage();                                     

  exec sql create alias qtemp.monewas3a FOR MONEWAS3(AS30700);  
  exec sql declare C0 cursor for                                       
  SELECT ALL T01.FUND, T01.DATREC, T01.FEDID, T01.PAYPER, T01.LNAME,   
             T01.FINIT, T01.MINIT, T01.SOCSEC, T02.AREAW, T02.HOMEW    
         FROM monewas3a T01                                            
         INNER JOIN WELFARE T02 ON T01.SOCSEC = T02.SOCSEC             
         WHERE FUND = AREAW AND HOMEW <> 0322                          
         ORDER BY T01.DATREC ASC, T01.FEDID ASC, T01.PAYPER ASC,       
                  T01.LNAME ASC;                                       

  exec sql open C0;                                                    

  dow (1=1);                                                           
     exec sql fetch next from C0 into :inFund, :inDatRec, :inFedId,    
          :inPayPer, :inLname, :inFinit, :inMinit, :inSocSec, inAreaW, 
          :inHomeW;                                                    

    if sqlcod <> 0;                               
      leave;                                      
    endif;                                        
    if Pageoverflow;                              
       nextPage();                                
    endif;                                        
    write DETAIL;                                 
    count += 1;                                   
 enddo;                                           

 exec sql close C0 ;                              

 exec sql drop alias qtemp.monewas3a;             

 if count = 0;                                    
    write ERR01;                                  
 endif;                                           

 *inlr = *on;                                     
 close *all;                       

 dcl-proc nextPage;                

    pageoverflow = *off;           

    write HDG01;                   

 end-proc;               

原因分析与解决方案 #

核心原因 #

1. 激活组资源未释放：代码指定了dftactgrp(*no)，意味着程序运行在命名激活组中。CLOSQLCSR(*ENDMOD)仅在模块结束时关闭SQL游标，但如果激活组未被销毁，DB2会保留文件的打开句柄，导致文件持续处于打开状态。
2. CLOSE *ALL不处理SQL隐式打开的文件：RPG的CLOSE *ALL仅对通过dcl-f声明的文件生效（比如示例中的打印机文件MOCL0700DP），对SQL查询隐式打开的MONEWAS3和WELFARE物理文件无作用。
3. 游标关闭不等于文件关闭：显式关闭游标C0只是释放了游标资源，但DB2可能为了性能缓存文件连接，不会立即关闭物理文件，尤其是在激活组存活的情况下。

解决方法 #

• 调整激活组设置：在ctl-opt中添加actgrp(*new)，让程序每次运行都创建新的激活组，程序结束时激活组自动销毁，所有关联的文件资源会被释放：

  ctl-opt dftactgrp(*no) actgrp(*new);
  

  或者使用actgrp(*caller)，继承调用者的激活组，若调用者是交互式会话，程序结束后激活组会被清理。
• 显式关闭SQL文件：在关闭游标后，添加SQL命令强制关闭物理文件：

  exec sql close MONEWAS3;
  exec sql close WELFARE;
  

• 修改编译参数：编译时将CLOSQLCSR设置为*ENDJOB，确保会话结束时关闭所有SQL资源，但这会影响同一会话中的其他SQL程序。或者在程序结束前执行EXEC SQL COMMIT（若使用事务）触发资源清理。
• 完善错误处理：检查SQLCOD的判断逻辑，确保即使出现SQL警告（SQLCOD=100是正常的游标结束），后续的关闭语句仍能执行。当前代码中sqlcod <> 0会包含SQLCOD=100，这部分逻辑是正确的，但需确保没有其他异常导致程序提前退出。

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