COBOL语言程序题：填写添加、修改和删除记录的代码。

Question

   IDENTIFICATION DIVISION.
   PROGRAM-ID. add-new-input.
   AUTHOR. Gilles Imbeau.

   ENVIRONMENT DIVISION.
   INPUT-OUTPUT SECTION.
   FILE-CONTROL.
       SELECT doodle ASSIGN TO "doodle.dat"
       organization is indexed
       access is dynamic
       record key is doodle-no.

   DATA DIVISION.
   FILE SECTION.
   FD doodle.
   01 doodle-rec.
      05 doodle-no            PIC 9.
      05 doodle-name          PIC X(10).
      05 doodle-choice        OCCURS 4 TIMES INDEXED BY I PIC 9.

   WORKING-STORAGE SECTION.
   77  L          PIC 9.

   SCREEN SECTION.
   01  新屏幕.
       05  BLANK SCREEN.
   01  输入标题.
       05  line L.
       05          column 6   value "号.".
       05          column 10  value "名称".
       05          column 30  value "10h00".
       05          column 40  value "11h00".
       05          column 50  value "14h00".
       05          column 60  value "15h00".
   01  加记录.
       05  line L.
       05          column 6   pic 9     to doodle-no.
       05          column 10  pic x(10) to doodle-name.
       05          column 32  pic 9     to doodle-choice(1).
       05          column 42  pic 9     to doodle-choice(2).
       05          column 52  pic 9     to doodle-choice(3).
       05          column 62  pic 9     to doodle-choice(4).



   PROCEDURE DIVISION.

  *Fill in your program...

      EXIT PROGRAM.

这个程序怎么添加？