COBOL中文件读写操作的示例代码和技术解答

本示例演示了在COBOL中进行文件读写操作的基本方法，包括文件的打开、读取、写入和关闭。通过这个例子，你可以了解如何在COBOL程序中处理文件以及处理文件时可能遇到的一些常见问题。

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

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