cobol 写文件实例

下面是一个简单的 COBOL 代码示例，用于将数据写入文件：

IDENTIFICATION DIVISION.
PROGRAM-ID. WRITE-FILE.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT MY-FILE ASSIGN TO 'my-file.dat'
           ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD MY-FILE.
01 EMPLOYEE-DATA.
   05 EMPLOYEE-NAME     PIC X(20).
   05 EMPLOYEE-ID       PIC 9(5).

WORKING-STORAGE SECTION.
01 WS-RECORD.
   05 WS-NAME           PIC X(20).
   05 WS-ID             PIC 9(5).

PROCEDURE DIVISION.
MAIN-LOGIC.
    OPEN OUTPUT MY-FILE.
    MOVE 'John Smith' TO WS-NAME
    MOVE 12345 TO WS-ID.
    MOVE WS-NAME TO EMPLOYEE-NAME
    MOVE WS-ID TO EMPLOYEE-ID
    WRITE EMPLOYEE-DATA
    CLOSE MY-FILE.

    STOP RUN.

这个程序定义了一个名为 MY-FILE 的文件，其中包含两个字段： EMPLOYEE-NAME 和 EMPLOYEE-ID。程序使用 WORKING-STORAGE SECTION 中的 WS-RECORD 变量来存储要写入文件的数据。在 PROCEDURE DIVISION 中，程序打开 MY-FILE 文件，将数据写入 WS-RECORD，然后将 WS-RECORD 的值写入 MY-FILE，最后关闭 MY-FILE 文件。