COBOL中文件读写操作的实例及技术解答

本示例演示了在COBOL中进行文件读写操作的基本方法，包括打开文件、读取记录、写入记录等。通过简单的学习，您将能够理解COBOL中处理文件的基本原理。

       IDENTIFICATION DIVISION.
       PROGRAM-ID. FileReadWriteExample.
       DATA DIVISION.
       FILE SECTION.
       FD MyFile.
       01 FileRecord.
          05 EmpId     PIC 9(5).
          05 EmpName   PIC X(20).
       WORKING-STORAGE SECTION.
       01 FileName   PIC X(30) VALUE "employee_data.txt".
       01 EOF-Switch PIC X VALUE 'N'.
       PROCEDURE DIVISION.
           OPEN INPUT MyFile
           PERFORM UNTIL EOF-Switch = 'Y'
               READ MyFile
                   AT END
                       MOVE 'Y' TO EOF-Switch
                   NOT AT END
                       DISPLAY "Employee ID: " EmpId
                       DISPLAY "Employee Name: " EmpName
               END-READ
           END-PERFORM
           CLOSE MyFile
           STOP RUN.

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