GnuCOBOL创建索引文件失败：文件生成但无数据写入求助

各位COBOL大佬好！我最近在跟着课程学COBOL，尝试创建一个索引文件时遇到了棘手的问题，想请大家帮忙看看~

很多教程里都是先讲文件读取再讲写入，导致我没有现成的文件可以测试，而且索引文件可不是普通文件，处理起来要复杂不少。

我写了下面这段程序，现在的情况是：students.dat和students.idx文件确实生成了，但.dat文件大小是0字节，.idx是12288字节，看起来底层应该调用了bdb或者vbisam，但就是没法往学生文件里写入数据。

有没有人能帮我排查下问题出在哪？

我的代码如下：

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

ENVIRONMENT DIVISION.
   INPUT-OUTPUT SECTION.
      FILE-CONTROL.
      SELECT optional STUDENT-DB ASSIGN TO 'students'
         ORGANIZATION IS INDEXED
         ACCESS IS RANDOM
         RECORD KEY IS DB-STUDENT-ID
         FILE STATUS IS FS.

DATA DIVISION.
   FILE SECTION.

   FD STUDENT-DB.
   01 DB-STUDENT.
      05 DB-STUDENT-ID PIC 9(5).
      05 DB-NAME PIC A(25).
      05 DB-CLASS PIC X(3).

   WORKING-STORAGE SECTION.
   01 FS PIC X(2).

PROCEDURE DIVISION.
   OPEN...

备注：内容来源于stack exchange，提问作者alex