[整理]关于动态定义文件

pl421

文件File1, 有三个成员分别是Mbr1,Mbr2,Mbr3.现在我们想在一个程序里处理这三个成员而不使用ovrdbf。代码如下：

1. 
   
2. FFile1     if   e             Disk    Extfile(FilNam) ExtMbr(MbrNam)
   
3. F                                            UsrOpn                        
   
4. *                                                                  
   
5. D FilNam            s             10a   Inz                           
   
6. D MbrNam          s             10a   Inz                           
   
7. *                                                                  
   
8. * Process first member data.                                       
   
9. *                                                                  
   
10. C                   Eval      FilNam  =  'FILE1'                    
    
11. C                   Eval      MbrNam  =  'MBR1'                     
    
12. *                                                                  
    
13. C                   Open      File1                                 
    
14. C                   Read      File1                                 
    
15. *                                                                  
    
16. C                   DoW       Not %Eof(File1)                       
    
17. C                                                                  
    
18. C                                                                  
    
19. C                                                                  
    
20. C                   EndDo                                          
    
21. C                   Close     File1                  
    
22. *                                                   
    
23. * Process second member data.                        
    
24. *                                                   
    
25. C                   Eval      FilNam  =  'FILE1'      
    
26. C                   Eval      MbrNam  =  'MBR2'      
    
27. *                                                   
    
28. C                   Open      File1                  
    
29. C                   Read      File1                  
    
30. *                                                   
    
31. C                   DoW       Not %Eof(File1)         
    
32. C                                                     
    
33. C                                                     
    
34. C                                                     
    
35. C                   EndDo                             
    
36. C                   Close     File1                  
    
37. *                                                   
    
38. * Process Third member data.                        
    
39. *                                                   
    
40. C                   Eval      FilNam  =  'FILE1'  
    
41. C                   Eval      MbrNam  =  'MBR3'   
    
42. *                                                
    
43. C                   Open      File1               
    
44. C                   Read      File1               
    
45. *                                                
    
46. C                   DoW       Not %Eof(File1)     
    
47. C                                                  
    
48. C                                                
    
49. C                                                
    
50. C                   EndDo                        
    
51. C                   Close     File1   
    

复制代码

just a kid

感谢分享

qingzhou

好、加精鼓励。。。

pl421

谢谢,大家

Eagle_wolf

哈哈 5版本就是好

coolk

可不可以动态定义字段呢？^_^

cooladan

Extfile(FilNam) ExtMbr(MbrNam)~哪里来的?各位大侠.

暴走族

4.4支持么？

blogliou

Extfile(FilNam) ExtMbr(MbrNam) ???

有没有搞错?

hsiang_wang

好！