COBOL文件读写示例和技术解答

COBOL是一种古老但仍然广泛使用的编程语言，常用于业务应用程序。本回答将提供COBOL文件读写的示例代码和技术解答，详细介绍如何在COBOL中进行文件操作。

       IDENTIFICATION DIVISION.
       PROGRAM-ID. FileReadWrite.
       DATA DIVISION.
       FILE SECTION.
       FD InputFile.
       01 InputRecord.
           05 Name PIC X(20).
           05 Age PIC 9(3).
       FD OutputFile.
       01 OutputRecord.
           05 Name PIC X(20).
           05 Age PIC 9(3).
       WORKING-STORAGE SECTION.
       01 WS-EOF PIC X VALUE 'N'.
       PROCEDURE DIVISION.
       OPEN INPUT InputFile
       OPEN OUTPUT OutputFile
       PERFORM UNTIL WS-EOF = 'Y'
           READ InputFile
               AT END MOVE 'Y' TO WS-EOF
               NOT AT END
               WRITE OutputRecord
           END-READ
       END-PERFORM
       CLOSE InputFile
       CLOSE OutputFile
       STOP RUN.

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