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

本示例演示如何在COBOL中进行文件读写操作，涵盖了文件的打开、读取、写入和关闭等基本操作。同时，解答了一些常见的文件处理技术问题。

IDENTIFICATION DIVISION.
PROGRAM-ID. FileHandlingExample.

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

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

WORKING-STORAGE SECTION.
01 EndOfFileFlag PIC X(1) 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 PERFORM ProcessRecord
       END-READ
   END-PERFORM.

   CLOSE InputFile.
   CLOSE OutputFile.

   STOP RUN.

ProcessRecord.
   MOVE EmpID TO OutputRecord.EmpID.
   MOVE EmpName TO OutputRecord.EmpName.
   MOVE Salary TO OutputRecord.Salary.

   WRITE OutputRecord.

   DISPLAY 'Record Processed: ' EmpID EmpName Salary.

   EXIT.

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