COBOL文件读写操作示例及技术解答

本文演示如何在COBOL中进行文件读写操作，通过示例代码详细展示了文件的打开、读取、写入等功能，并提供了相关技术解答。

IDENTIFICATION DIVISION.
PROGRAM-ID. FileIOExample.

DATA DIVISION.
FILE SECTION.
FD InputFile.
01 InputRecord.
   05 EmpID      PIC 9(5).
   05 EmpName    PIC X(20).
   05 EmpSalary  PIC 9(7)V99.

FD OutputFile.
01 OutputRecord.
   05 EmpID      PIC 9(5).
   05 EmpName    PIC X(20).
   05 EmpSalary  PIC 9(7)V99.

WORKING-STORAGE SECTION.
01 WS-EofFlag     PIC X VALUE 'N'.

PROCEDURE DIVISION.
   OPEN INPUT InputFile.
   OPEN OUTPUT OutputFile.

   PERFORM UNTIL WS-EofFlag = 'Y'
      READ InputFile
         AT END SET WS-EofFlag TO 'Y'
         NOT AT END
            MOVE EmpID TO EmpID-Out
            MOVE EmpName TO EmpName-Out
            MOVE EmpSalary TO EmpSalary-Out
            WRITE OutputRecord
      END-READ
   END-PERFORM.

   CLOSE InputFile.
   CLOSE OutputFile.
   STOP RUN.

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