动态操作文件

Posted on 2008-08-16 09:12  mshwu  阅读(245)  评论()    收藏  举报

FFile1     if   e             Disk    Extfile(FilNam) ExtMbr(MbrNam)
F                                            UsrOpn                        
*                                                                  
D FilNam            s             10a   Inz                           
D MbrNam          s             10a   Inz                           
*                                                                  
* Process first member data.                                       
*                                                                  
C                   Eval      FilNam  =  'FILE1'                    
C                   Eval      MbrNam  =  'MBR1'                     
*                                                                  
C                   Open      File1                                 
C                   Read      File1                                 
*                                                                  
C                   DoW       Not %Eof(File1)                       
C                                                                  
C                                                                  
C                                                                  
C                   EndDo                                          
C                   Close     File1                  
*                                                   
* Process second member data.                        
*                                                   
C                   Eval      FilNam  =  'FILE1'      
C                   Eval      MbrNam  =  'MBR2'      
*                                                   
C                   Open      File1                  
C                   Read      File1                  
*                                                   
C                   DoW       Not %Eof(File1)         
C                                                     
C                                                     
C                                                     
C                   EndDo                             
C                   Close     File1                  
*                                                   
* Process Third member data.                        
*                                                   
C                   Eval      FilNam  =  'FILE1'  
C                   Eval      MbrNam  =  'MBR3'   
*                                                
C                   Open      File1               
C                   Read      File1               
*                                                
C                   DoW       Not %Eof(File1)     
C                                                  
C                                                
C                                                
C                   EndDo                        
C                   Close     File1