AS400中多member的文件处理

更新时间：2023-10-13 08:20:01 阅读量：综合文库文档下载

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。

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

1. FFile1 if e Disk Extfile(FilNam) ExtMbr(MbrNam) 2. F UsrOpn 3. *

4. D FilNam s 10a Inz 5. D MbrNam s 10a Inz 6. *

7. * Process first member data. 8. *

9. C Eval FilNam = 'FILE1' 10. C Eval MbrNam = 'MBR1' 11. *

12. C Open File1 13. C Read File1 14. *

15. C DoW Not %Eof(File1) 16. C … 17. C … 18. C … 19. C EndDo

20. C Close File1 21. *

22. * Process second member data. 23. *

24. C Eval FilNam = 'FILE1' 25. C Eval MbrNam = 'MBR2' 26. *

27. C Open File1 28. C Read File1 29. *

30. C DoW Not %Eof(File1) 31. C 32. C 33. C

34. C EndDo

35. C Close File1 36. *

37. * Process Third member data. 38. *

39. C Eval FilNam = 'FILE1' 40. C Eval MbrNam = 'MBR3' 41. *

42. C Open File1 43. C Read File1 44. *

45. C DoW Not %Eof(File1) 46. C 47. C 48. C

49. C EndDo

50. C Close File1

相关文章：

正在阅读：