COBOL文件读写示例与技术解答

展示如何在COBOL中进行文件读写操作，并提供常见问题的技术解答。通过简单的示例，深入解释COBOL文件处理的功能和实现方式，帮助开发者更好地理解和运用这一技术。

IDENTIFICATION DIVISION.
PROGRAM-ID. FileReadWriteExample.

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

WORKING-STORAGE SECTION.
01 OutputRecord.
   05 EmployeeIDOut   PIC 9(5).
   05 EmployeeNameOut PIC X(20).
   05 SalaryOut       PIC 9(7)V99.

PROCEDURE DIVISION.
OPEN INPUT InputFile.
OPEN OUTPUT OutputFile.

READ InputFile INTO InputRecord
  AT END
     MOVE 1 TO EndOfFile.

PERFORM UNTIL EndOfFile = 1
  MOVE EmployeeID TO EmployeeIDOut
  MOVE EmployeeName TO EmployeeNameOut
  MOVE Salary TO SalaryOut

  WRITE OutputRecord

  READ InputFile INTO InputRecord
    AT END
       MOVE 1 TO EndOfFile.

CLOSE InputFile.
CLOSE OutputFile.
STOP RUN.

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