COBOL实现文件读取与处理示例及技术解答

COBOL是一种面向企业的编程语言，常用于处理大规模数据和文件。以下示例展示了如何使用COBOL读取文件、处理数据并输出结果。该示例演示了对输入文件中的数字进行加法运算并将结果写入输出文件。

IDENTIFICATION DIVISION.
PROGRAM-ID. FileProcessing.

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

DATA DIVISION.
FILE SECTION.
FD InputFile.
01 InputRecord.
   05 Num1   PIC 9(3).
   05 Num2   PIC 9(3).
FD OutputFile.
01 OutputRecord.
   05 Result PIC 9(4).

WORKING-STORAGE SECTION.
01 Total PIC 9(4) VALUE 0.

PROCEDURE DIVISION.
    OPEN INPUT InputFile
         OUTPUT OutputFile.
    PERFORM UNTIL EOF
        READ InputFile
            AT END
                SET EOF TO TRUE
            NOT AT END
                COMPUTE Total = Num1 + Num2
                MOVE Total TO Result
                WRITE OutputRecord
        END-READ
    END-PERFORM.
    CLOSE InputFile
          OutputFile
    STOP RUN.

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