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

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   
    

复制代码

banym1982

其实动态文件是可以的...曾经写过SQLRPGLE

ping222s

回复 19# gto1101


    是可以的。。。试过了

cwene

好，学习学习，有用啊

gto1101

我想LZ的帖子会让很多人误会吧？
根据LZ需求只需要EXTMBR就可以了，而不需要EXTFILE
EXTMBR可以是动态，但是EXTFILE不可以

riancy1106

终于可以动态定义了！！！

ping222s

学习了。。。谢谢楼主

Stealer

好!

高深100

goooooooooooood!!!!!!!!

sunokla

原帖由 lkyin 于 2006-6-1 10:38 发表
这种情况下有方法能做到reade么？

可以