zoukankan      html  css  js  c++  java
  • 动态操作文件

    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   
  • 相关阅读:
    2020年12月2日
    2020年12月1日
    2020年11月30日
    2020年11月29日
    2020年11月28日
    2020年11月27日
    2020年11月26日
    2020年11月25日
    浅谈扩展欧几里得算法
    Hello 2020
  • 原文地址:https://www.cnblogs.com/mshwu/p/1269107.html
Copyright © 2011-2022 走看看