如何使用COBOL读取和写入文件？

COBOL（常见商业导向语言）是一种专门用于处理文件的编程语言。COBOL提供了一种简单且易于理解的方式来读取和写入文件。在本教程中，我们将介绍COBOL文件读写的基础知识，以及如何使用COBOL处理文件。

COBOL文件操作指南

COBOL提供了一些特殊的语句来读取和写入文件。下面是一些常见的COBOL文件操作语句：

打开文件

在读取或写入文件之前，您需要使用OPEN语句打开文件。以下是一个打开文件的示例：

OPEN INPUT FILE-NAME.

在上面的代码中，FILE-NAME是你要打开的文件的名称。

读取文件

在打开文件后，您可以使用READ语句从文件中读取数据。以下是一个读取文件的示例：

READ FILE-NAME INTO DATA-RECORD.

在上面的代码中，FILE-NAME是你要读取的文件的名称，DATA-RECORD是一个变量，用于存储从文件中读取的数据。

写入文件

要将数据写入文件，您可以使用WRITE语句。以下是一个写入文件的示例：

WRITE DATA-RECORD INTO FILE-NAME.

在上面的代码中，FILE-NAME是你要写入的文件的名称，DATA-RECORD是一个包含要写入文件的数据的变量。

关闭文件

在完成对文件的读取或写入操作后，您需要使用CLOSE语句关闭文件。以下是一个关闭文件的示例：

CLOSE FILE-NAME.

在上面的代码中，FILE-NAME是你要关闭的文件的名称。

COBOL文件处理示例

下面是一个使用COBOL读取和写入文件的示例程序：

IDENTIFICATION DIVISION.
PROGRAM-ID. FILE-HANDLING.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT IN-FILE ASSIGN TO "INPUT.DAT".
SELECT OUT-FILE ASSIGN TO "OUTPUT.DAT".

DATA DIVISION.
FILE SECTION.
FD IN-FILE
RECORDING MODE IS F
BLOCK CONTAINS 0 RECORDS
LABEL RECORDS ARE STANDARD
DATA RECORD IS IN-REC.
01 IN-REC.
   05 NAME PIC X(10).
   05 AGE PIC 9(3).

FD OUT-FILE
RECORDING MODE IS F
BLOCK CONTAINS 0 RECORDS
LABEL RECORDS ARE STANDARD
DATA RECORD IS OUT-REC.
01 OUT-REC.
   05 NAME PIC X(10).
   05 AGE PIC 9(3).

WORKING-STORAGE SECTION.
01 WS-COUNT PIC 9(5) VALUE 0.

PROCEDURE DIVISION.
MAIN-PARA.
   OPEN INPUT IN-FILE.
   OPEN OUTPUT OUT-FILE.

   PERFORM UNTIL WS-COUNT = 5
      READ IN-FILE INTO IN-REC
         AT END
            EXIT PERFORM
         NOT AT END
            ADD 1 TO WS-COUNT
            WRITE OUT-REC FROM IN-REC
      END-READ
   END-PERFORM

   CLOSE IN-FILE.
   CLOSE OUT-FILE.
   STOP RUN.

在上面的示例程序中，我们将从INPUT.DAT文件中读取数据，将数据写入OUTPUT.DAT文件中，然后关闭文件。

COBOL读取文件内容 示例代码

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

IDENTIFICATION DIVISION.
PROGRAM-ID. READ-FILE.

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

DATA DIVISION.
FILE SECTION.
FD INPUT-FILE
RECORDING MODE IS F
BLOCK CONTAINS 0 RECORDS
LABEL RECORDS ARE STANDARD
DATA RECORD IS IN-REC.
01 IN-REC.
   05 NAME PIC X(10).
   05 AGE PIC 9(3).

WORKING-STORAGE SECTION.
01 WS-COUNT PIC 9(5) VALUE 0.

PROCEDURE DIVISION.
MAIN-PARA.
   OPEN INPUT INPUT-FILE.

   PERFORM UNTIL WS-COUNT = 5
      READ INPUT-FILE INTO IN-REC
         AT END
            EXIT PERFORM
         NOT AT END
            ADD 1 TO WS-COUNT
            DISPLAY NAME
            DISPLAY AGE
      END-READ
   END-PERFORM

   CLOSE INPUT-FILE.
   STOP RUN.

在上面的示例代码中，我们将从INPUT.DAT文件中读取数据，并将其显示在屏幕上。

在上面的示例程序中，我们首先定义了两个文件：IN-FILE和OUT-FILE。然后，我们定义了两个记录：IN-REC和OUT-REC。每个记录都包含NAME和AGE两个字段。

接下来，我们使用OPEN语句打开文件，并使用READ语句从文件中读取数据。如果读取成功，我们将使用WRITE语句将数据写入OUT-FILE文件中。最后，我们使用CLOSE语句关闭文件。

在上面的示例代码中，我们使用READ语句从文件中读取数据，并使用DISPLAY语句将其显示在屏幕上。

在本教程中，我们介绍了COBOL文件读写的基础知识，以及如何使用COBOL处理文件。我们解释了COBOL文件操作语句，如OPEN，READ，WRITE和CLOSE。我们还提供了一个使用COBOL读取和写入文件的示例程序，并解释了代码中使用的语句。最后，我们提供了一个使用COBOL读取文件内容的示例代码。

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