COBOL WRITE AFTER实际写入文件中的形态

在COBOL中，WRITE AFTER语句用于将数据写入文件的末尾。它会将数据添加到文件的当前位置之后，而不是覆盖或替换任何现有数据。

具体来说，当使用WRITE AFTER语句时，COBOL会将数据写入文件的末尾，并将文件的当前位置移动到新添加的数据之后。这意味着之后的写操作将从新添加的数据之后开始。

写入文件后的形态取决于文件的组织方式。如果文件是顺序组织的，新添加的数据将直接追加到文件的末尾。如果文件是索引顺序组织的，新添加的数据将根据索引键值插入到正确的位置。

请注意，WRITE AFTER语句仅适用于顺序或索引顺序组织的文件，不适用于随机组织的文件。

下面是一个使用WRITE AFTER语句写入顺序组织文件的示例：

IDENTIFICATION DIVISION.
PROGRAM-ID. WRITE-AFTER-EXAMPLE.
DATA DIVISION.
FILE SECTION.
FD MY-FILE.
01 MY-RECORD.
   05 FIELD1 PIC X(10).
   05 FIELD2 PIC X(10).
WORKING-STORAGE SECTION.
01 WS-RECORD.
   05 WS-FIELD1 PIC X(10) VALUE 'HELLO'.
   05 WS-FIELD2 PIC X(10) VALUE 'WORLD'.
PROCEDURE DIVISION.
MAIN-LOGIC.
   OPEN OUTPUT MY-FILE.
   WRITE MY-RECORD FROM WS-RECORD.
   MOVE 'COBOL' TO WS-FIELD1.
   MOVE 'PROGRAM' TO WS-FIELD2.
   WRITE AFTER MY-RECORD FROM WS-RECORD.
   CLOSE MY-FILE.
   STOP RUN.

在上面的示例中，首先将"HELLO"和"WORLD"写入文件，然后将字段值更改为"COBOL"和"PROGRAM"，并再次写入文件。新的数据将追加到文件的末尾。

请注意，WRITE AFTER语句必须在文件已打开且当前位置已定位之后使用。否则，它可能会导致运行时错误