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   
  • 相关阅读:
    三种省市级联下拉列表的写法
    三种省市级联下拉列表的写法
    SQL经典试题(mysql)
    60行代码俄罗斯方块
    ibatis xml中配置信息详解
    60行代码俄罗斯方块
    xinetd
    csh and tcsh
    xinetd restart
    bash sh
  • 原文地址:https://www.cnblogs.com/mshwu/p/1269107.html
Copyright © 2011-2022 走看看