如何使用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