如何在COBOL中读取和写入文件？

本示例代码演示了如何在COBOL中读取和写入文件。使用“OPEN”语句打开文件，使用“READ”语句读取文件中的数据，使用“WRITE”语句写入数据到文件中，最后使用“CLOSE”语句关闭文件。

ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
         SELECT INPUT-FILE ASSIGN 'INPUT.DAT'.
         SELECT OUTPUT-FILE ASSIGN 'OUTPUT.DAT'.

       DATA DIVISION.
       FILE SECTION.
       FD INPUT-FILE.
       01 INPUT-RECORD.
         05 EMPLOYEE-NAME  PIC X(30).
         05 EMPLOYEE-ID    PIC X(10).
         05 EMPLOYEE-SAL   PIC 9(10).

       FD OUTPUT-FILE.
       01 OUTPUT-RECORD.
         05 EMPLOYEE-NAME  PIC X(30).
         05 EMPLOYEE-ID    PIC X(10).
         05 EMPLOYEE-SAL   PIC 9(10).

       WORKING-STORAGE SECTION.
       01 WS-EOF PIC X(3) VALUE 'NO'.

       PROCEDURE DIVISION.
       MAIN-PARA.
           OPEN INPUT-FILE
               OUTPUT-FILE
           PERFORM UNTIL WS-EOF = 'YES'
               READ INPUT-FILE INTO INPUT-RECORD
               AT END SET WS-EOF TO 'YES'
               IF WS-EOF = 'NO'
                   WRITE OUTPUT-RECORD FROM INPUT-RECORD
               END-IF
           END-PERFORM
           CLOSE INPUT-FILE
               OUTPUT-FILE
           STOP RUN.

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