COBOL处理文件输入示例及技术解答

COBOL是一种针对商业应用程序设计的编程语言，常用于处理大量数据和文件。此示例展示了如何使用COBOL读取文件、处理输入并进行简单的操作，例如计算和打印结果。

IDENTIFICATION DIVISION.
PROGRAM-ID. FileProcessing.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT InputFile ASSIGN TO "input.txt".

DATA DIVISION.
FILE SECTION.
FD InputFile.
01 InputRecord.
   05 ID     PIC X(5).
   05 Amount PIC 9(5).
   05 Filler PIC X(10).

WORKING-STORAGE SECTION.
01 TotalAmount PIC 9(7)V99 VALUE 0.

PROCEDURE DIVISION.
    OPEN INPUT InputFile.
    READ InputFile
        AT END
            DISPLAY "End of file reached."
        NOT AT END
            PERFORM ProcessRecord
    END-READ.
    CLOSE InputFile.
    DISPLAY "Total amount: " TotalAmount.

ProcessRecord.
    ADD Amount TO TotalAmount.

    DISPLAY "ID: " ID " Amount: " Amount.

    READ InputFile
        AT END
            EXIT
        NOT AT END
            PERFORM ProcessRecord
    END-READ.

代码解释：这段COBOL代码演示了如何打开名为 "input.txt" 的文件并逐行读取记录。每条记录包含一个5字符的ID和一个5位数字的金额。程序计算所有金额的总和，并将每条记录的ID和金额打印到控制台。

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