COBOL文件读取示例与数据处理

COBOL是一种面向业务应用的编程语言，常用于处理大型数据文件。以下示例演示了如何使用COBOL读取文件并进行简单的数据处理，例如计算总数并打印输出。

       IDENTIFICATION DIVISION.
       PROGRAM-ID. FILE-READER.

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT DATA-FILE ASSIGN TO 'datafile.txt'.

       DATA DIVISION.
       FILE SECTION.
       FD DATA-FILE.
       01 DATA-RECORD.
           05 ID-NUMBER     PIC 9(5).
           05 NAME          PIC X(20).
           05 AMOUNT        PIC 9(7)V99.

       WORKING-STORAGE SECTION.
       01 TOTAL-AMOUNT       PIC 9(9)V99 VALUE 0.

       PROCEDURE DIVISION.
       OPEN FILES.
           OPEN INPUT DATA-FILE.

       READ AND PROCESS FILE.
           READ DATA-FILE AT END DISPLAY "END OF FILE" STOP RUN.
           ADD AMOUNT TO TOTAL-AMOUNT.
           DISPLAY "ID: " ID-NUMBER " NAME: " NAME " AMOUNT: " AMOUNT
           GO TO READ-AND-PROCESS-FILE.

       CLOSE FILE AND PRINT TOTAL.
           CLOSE DATA-FILE.
           DISPLAY "TOTAL AMOUNT: " TOTAL-AMOUNT.

       STOP RUN.

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