上面我提问的cobol代码如何写文件？

在COBOL中，可以使用“WRITE”语句来将数据写入文件。下面是一个简单的示例程序，演示如何将数据写入文件：

IDENTIFICATION DIVISION.
PROGRAM-ID. WRITE-FILE.

DATA DIVISION.
FILE SECTION.
FD MY-FILE
   RECORDING MODE IS F
   RECORD CONTAINS 80 CHARACTERS
   DATA RECORD IS MY-DATA.
01 MY-DATA.
   05 MY-NAME PIC X(20).
   05 MY-AGE PIC 99.

PROCEDURE DIVISION.
MAIN-LOGIC.
   OPEN OUTPUT MY-FILE.
   MOVE 'John' TO MY-NAME
   MOVE 35 TO MY-AGE
   WRITE MY-DATA.
   MOVE 'Mary' TO MY-NAME
   MOVE 28 TO MY-AGE
   WRITE MY-DATA.
   CLOSE MY-FILE.
   STOP RUN.

在这个例子中，我们定义了一个名为“MY-FILE”的文件，它的记录格式为80个字符，包含一个名为“MY-DATA”的数据记录。数据记录由一个名为“MY-NAME”的20个字符长的字段和一个名为“MY-AGE”的2个字符长的字段组成。在程序的主逻辑部分，我们使用“OPEN OUTPUT”语句打开文件，然后使用“WRITE”语句将两个数据记录写入文件。最后，我们使用“CLOSE”语句关闭文件。