COBOL文件读取与写入示例代码
作者:佚名
上传时间:2023-03-30
运行软件:COBOL
软件版本:5
版权申诉
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
用户评论
相关推荐
COBOL文件读取与写入示例代码
COBOL是一种老式的编程语言,但在某些场景下仍然被广泛使用。在本文中,我们将探讨如何使用COBOL读取和写入文本文件的示例代码。COBOL文件处理COBOL提供了一种简单的方法来处理文本文件。我
5
COBOL
2023-03-30 23:48
COBOL中的文件读取和写入示例代码
该示例代码演示了COBOL中如何进行文件读取和写入。使用COBOL内置的FILE CONTROL语句定义文件,然后使用READ语句从文件中读取记录,使用WRITE语句将记录写入文件。要点是注意文件的打
COBOL 85
Micro Focus COBOL
2023-03-15 03:22
在COBOL中读取和写入CSV文件的示例代码
演示了如何使用COBOL读取和写入CSV文件。CSV文件是一种常见的以逗号作为分隔符的数据格式,在数据交换和处理中广泛使用。IDENTIFICATION DIVISION. PROGRAM-I
COBOL 85
简单COBOL编辑器
2023-03-20 13:21
使用COBOL读取和写入CSV文件的示例代码
这个示例展示了如何使用COBOL编程语言读取和写入CSV文件,它使用了标准的File Control和Data Division,同时还使用了一些非标准的语法。通过编写这个程序,您可以学习COBOL如
COBOL 4.2
IBM Enterprise COBOL for z/OS
2023-05-23 11:57
COBOL示例代码 - 文件读取与处理
COBOL(Common Business-Oriented Language)是一种用于处理商业数据的编程语言。这里提供一个COBOL示例代码,演示如何读取文本文件、处理数据并生成报告。
COBOL编译器
COBOL
2023-10-16 11:59
基于COBOL实现文件读取和写入的示例代码
本示例代码使用COBOL语言实现了对文件的读取和写入操作。通过定义文件描述符和记录描述符,使用READ命令从文件中读取记录并输出,使用WRITE命令向文件中写入记录,实现对文件的基本操作。IDENT
COBOL 85
GNU COBOL
2023-04-24 03:54
COBOL文件处理示例 - 读取和写入文件
COBOL(Common Business-Oriented Language)是一种古老但仍广泛用于企业系统的编程语言。这个示例展示了如何使用COBOL读取和写入文件,这是COBOL在业务应用中的常
COBOL编译器 (可根据所选编译器版本而变化)
COBOL编程语言
2023-10-17 16:40
COBOL实例代码:文件读取与处理示例
此示例展示了如何使用COBOL编程语言读取文件内容并进行简单处理。代码演示了打开文件、读取记录、处理数据以及关闭文件的基本步骤。IDENTIFICATION DIVISION.PROGRAM-ID
COBOL编译器 3.0
Visual COBOL 3.5
2023-11-22 15:28
COBOL中读取文件的示例代码
这是一段COBOL代码,用于读取一个文本文件中的数据并打印出来。该代码使用了COBOL的“READ”语句,将文件中的数据读入到程序变量中。IDENTIFICATION DIVISION.
COBOL 5.2.1
IBM Enterprise COBOL
2023-04-24 05:42
Perl文件读取和写入示例代码
这个示例代码展示了如何使用Perl编写一个简单的文件读取和写入程序。程序首先打开一个文件并将其内容读取到一个数组中,然后使用数组中的值来处理数据,并将结果写入另一个文件中。这个示例代码可以用于处理各种
Perl 5.28.1
Perl
2023-04-24 16:09