初學(xué)cobol，求教文件讀寫(xiě)刪處理？？？

yyx92138

初學(xué)cobol,求教文件處理過(guò)程，誰(shuí)能提供詳細(xì)的程序過(guò)程以作參考？非常感謝�。。�！
File A 里面有三個(gè)field, ASEQNO, ADATE,ANAME分別表示序列號(hào),日期,姓名。FileB 是FileA 的index.FileB里面也有兩個(gè)field, BSEQNO與 BDATE分別表示序列號(hào)與日期.
如文件A,B的內(nèi)容如下：
FileA:
ASEQNO  ADATE      ANAME
   1     20100101     aaa
   1     20100101     bbb
   2     20110202     ccc
   2     20110202     ddd
   2     20110202     eee
   3     20140302     fff
FileB:
BSEQNO  BDATE
1        20100101
2        20110202
3        20140302
請(qǐng)問(wèn)如何把FileB 中三年前的記錄刪除掉（根據(jù)BDATE,假設(shè)current date 是20140220.）然后把刪除的數(shù)據(jù)存到另一個(gè)文件FileBH中。同樣從FileA 中刪除相應(yīng)記錄，存到文件FileAH中。