COBOL中处理文件的示例代码及技术解答

本示例演示如何使用COBOL编程语言处理文件。通过COBOL的文件处理功能，我们能够实现对文件的读取、写入和更新操作，从而有效管理数据。

IDENTIFICATION DIVISION.
PROGRAM-ID. FileProcessingDemo.

DATA DIVISION.
FILE SECTION.
FD InputFile.
01 InputRecord.
   05 EmployeeID   PIC 9(5).
   05 EmployeeName PIC X(20).
   05 Salary       PIC 9(9)V99.

FD OutputFile.
01 OutputRecord.
   05 EmployeeID   PIC 9(5).
   05 EmployeeName PIC X(20).
   05 Bonus        PIC 9(9)V99.

WORKING-STORAGE SECTION.
01 BonusRate      PIC 9(3)V99 VALUE 0.05.

PROCEDURE DIVISION.
   OPEN INPUT InputFile.
   OPEN OUTPUT OutputFile.

   PERFORM UNTIL EOF(InputFile)
      READ InputFile
         AT END SET EOF(InputFile) TO TRUE
      END-READ

      COMPUTE Bonus = Salary * BonusRate
      MOVE EmployeeID TO BonusRecord.EmployeeID
      MOVE EmployeeName TO BonusRecord.EmployeeName
      MOVE Bonus TO BonusRecord.Bonus

      WRITE BonusRecord

   END-PERFORM.

   CLOSE InputFile, OutputFile.

STOP RUN.

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