原文:http://bbs.chinaunix.net/thread-612081-1-1.html 文件File1, 有三个成员分别是Mbr1,Mbr2,Mbr3.现在我们想在一个程序里处理这三个成员而不使用ovrdbf。代码如下: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