COBOL中文件读写的示例代码与技术解答

本示例演示如何在COBOL中进行文件读写操作，包括打开、读取、写入和关闭文件。通过展示文件处理的基本流程，帮助初学者理解COBOL文件操作的实现方式。

       IDENTIFICATION DIVISION.
       PROGRAM-ID. FileReadWriteExample.
       DATA DIVISION.
       FILE SECTION.
       FD InputFile.
       01 InputRecord PIC X(50).
       VALUE 'Input.txt'.
       01 OutputRecord PIC X(50).
       VALUE 'Output.txt'.
       FD OutputFile.

       WORKING-STORAGE SECTION.
       01 EOF-Switch PIC X(1) VALUE 'N'.

       PROCEDURE DIVISION.
       OPEN INPUT InputFile.
       OPEN OUTPUT OutputFile.

       READ InputFile
           AT END MOVE 'Y' TO EOF-Switch
       END-READ.

       PERFORM UNTIL EOF-Switch = 'Y'
           DISPLAY 'Read Record: ' InputRecord
           MOVE InputRecord TO OutputRecord
           WRITE OutputRecord
           READ InputFile
               AT END MOVE 'Y' TO EOF-Switch
           END-READ
       END-PERFORM.

       CLOSE InputFile.
       CLOSE OutputFile.
       STOP RUN.

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