初学cobol，求教文件读写删处理？？？

yyx92138

初学cobol,求教文件处理过程，谁能提供详细的程序过程以作参考？非常感谢！！！！
File A 里面有三个field, ASEQNO, ADATE,ANAME分别表示序列号,日期,姓名。FileB 是FileA 的index.FileB里面也有两个field, BSEQNO与 BDATE分别表示序列号与日期.
如文件A,B的内容如下：
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
请问如何把FileB 中三年前的记录删除掉（根据BDATE,假设current date 是20140220.）然后把删除的数据存到另一个文件FileBH中。同样从FileA 中删除相应记录，存到文件FileAH中。