COBOL文件读取与写入示例代码

COBOL是一种老式的编程语言，但在某些场景下仍然被广泛使用。在本文中，我们将探讨如何使用COBOL读取和写入文本文件的示例代码。

COBOL文件处理

COBOL提供了一种简单的方法来处理文本文件。我们可以使用以下语句来打开文件：

SELECT file-name ASSIGN TO file-identifier.

在这个语句中，file-name是文件的名称，file-identifier是我们打开文件后使用的标识符。

读取文件时，我们可以使用以下语句：

READ file-identifier INTO record-name.

在这个语句中，record-name是我们用来保存文件内容的变量名称。

写入文件时，我们可以使用以下语句：

WRITE record-name INTO file-identifier.

在这个语句中，record-name是我们要写入文件的变量名称。

COBOL文件操作

下面是一个使用COBOL读取文本文件的示例代码：

IDENTIFICATION DIVISION.
PROGRAM-ID. READ-FILE.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INPUT-FILE ASSIGN TO 'input.txt'.

DATA DIVISION.
FILE SECTION.
FD INPUT-FILE.
01 INPUT-RECORD.
   05 INPUT-NAME      PIC X(20).

WORKING-STORAGE SECTION.
01 WS-EOF-SWITCH       PIC X(3)  VALUE 'NO '.

PROCEDURE DIVISION.
MAIN-PARAGRAPH.

    OPEN INPUT INPUT-FILE.
    PERFORM UNTIL WS-EOF-SWITCH = 'YES'
        READ INPUT-FILE
            AT END
                MOVE 'YES' TO WS-EOF-SWITCH
            NOT AT END
                DISPLAY INPUT-NAME
        END-READ
    END-PERFORM.
    CLOSE INPUT-FILE.
    STOP RUN.

在这个示例中，我们打开名为“input.txt”的文件并读取其中的内容。如果到达文件的末尾，我们将设置变量WS-EOF-SWITCH为“YES”，并停止读取。否则，我们将显示读取的行。

下面是一个使用COBOL写入文本文件的示例代码：

IDENTIFICATION DIVISION.
PROGRAM-ID. WRITE-FILE.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT OUTPUT-FILE ASSIGN TO 'output.txt'.

DATA DIVISION.
FILE SECTION.
FD OUTPUT-FILE.
01 OUTPUT-RECORD.
   05 OUTPUT-NAME      PIC X(20).

WORKING-STORAGE SECTION.
01 WS-COUNTER          PIC 99    VALUE 0.

PROCEDURE DIVISION.
MAIN-PARAGRAPH.

    OPEN OUTPUT OUTPUT-FILE.
    PERFORM VARYING WS-COUNTER FROM 1 BY 1 UNTIL WS-COUNTER > 10
        MOVE 'Name ' WS-COUNTER TO OUTPUT-NAME
        WRITE OUTPUT-RECORD
    END-PERFORM.
    CLOSE OUTPUT-FILE.
    STOP RUN.

在这个示例中，我们创建一个名为“output.txt”的文件并写入其中的内容。我们使用循环来写入10行内容。

在上面的示例代码中，我们使用了一些COBOL的关键字和语法。下面是一些关键字和语法的释义：

• IDENTIFICATION DIVISION.：标识程序的开始。
• PROGRAM-ID.：指定程序的标识符。
• ENVIRONMENT DIVISION.：定义程序的环境。
• INPUT-OUTPUT SECTION.：定义程序的输入输出。
• FILE-CONTROL.：定义文件的控制。
• SELECT file-name ASSIGN TO file-identifier.：打开文件。
• DATA DIVISION.：定义程序的数据。
• FILE SECTION.：定义程序中使用的文件。
• FD file-identifier.：定义文件描述符。
• 01 record-name.：定义变量名称。
• WORKING-STORAGE SECTION.：定义程序中使用的工作区。
• 01 WS-EOF-SWITCH PIC X(3) VALUE 'NO '.：定义一个用于判断文件是否结束的变量。
• PROCEDURE DIVISION.：定义程序的过程。
• MAIN-PARAGRAPH.：定义程序的主要过程。
• OPEN INPUT|OUTPUT file-identifier.：打开输入或输出文件。
• PERFORM UNTIL condition.：执行循环直到条件满足。
• READ file-identifier INTO record-name.：读取文件内容。
• WRITE record-name INTO file-identifier.：写入文件内容。
• AT END：当到达文件末尾时执行的操作。
• NOT AT END：当未到达文件末尾时执行的操作。
• END-READ：结束读取操作。
• END-PERFORM：结束循环操作。
• CLOSE file-identifier.：关闭文件。

COBOL文件处理是一项简单而重要的任务，它在许多场景下仍然被广泛使用。本文提供了一些示例代码和代码释义来帮助您了解如何使用COBOL读取和写入文本文件。希望这篇文章能够对您有所帮助。

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com