COBOL的文件读写示例和技术解答

本示例代码演示了如何使用COBOL语言进行文件读写操作，并提供了常见的解决方案和技术解答，以帮助开发人员更好地理解和使用COBOL编程语言。

IDENTIFICATION DIVISION.
       PROGRAM-ID. FILE-OPERATIONS.
       DATA DIVISION.
       FILE SECTION.
       FD EMPLOYEE-FILE
       LABEL RECORDS ARE OMITTED
       DATA RECORD IS EMPLOYEE-RECORD.
       01 EMPLOYEE-RECORD.
          05 EMP-ID PIC X(10).
          05 EMP-NAME PIC X(20).
          05 EMP-SALARY PIC 9(6).
       WORKING-STORAGE SECTION.
       01 WS-EMPLOYEE-RECORD.
          05 WS-EMP-ID PIC X(10).
          05 WS-EMP-NAME PIC X(20).
          05 WS-EMP-SALARY PIC 9(6).
       PROCEDURE DIVISION.
       MAIN-LOGIC.
          OPEN INPUT EMPLOYEE-FILE
          PERFORM READ-EMPLOYEE-RECORD UNTIL WS-EMP-ID = 'END'
          CLOSE EMPLOYEE-FILE
          STOP RUN.
       READ-EMPLOYEE-RECORD.
          READ EMPLOYEE-FILE
          AT END MOVE 'END' TO WS-EMP-ID
          NOT AT END MOVE EMP-ID TO WS-EMP-ID
                       MOVE EMP-NAME TO WS-EMP-NAME
                       MOVE EMP-SALARY TO WS-EMP-SALARY
                       DISPLAY 'ID: ' WS-EMP-ID
                       DISPLAY 'NAME: ' WS-EMP-NAME
                       DISPLAY 'SALARY: ' WS-EMP-SALARY.

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