COBOL中处理文件的示例代码

这是一段COBOL代码用于读取和处理文件中的数据。该示例代码将读取一个名为"input.txt"的文件，将文件中每一行的数字相加，并输出结果到名为"output.txt"的文件。

IDENTIFICATION DIVISION.
PROGRAM-ID. FILE-PROCESSING.

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

DATA DIVISION.
FILE SECTION.
FD READER-FILE.
01 INPUT-REC.
   05 INP-NUMBER PIC 9(10).
FD WRITER-FILE.
01 OUTPUT-REC.
   05 OUTP-NUMBER PIC 9(10).

WORKING-STORAGE SECTION.
01 TOTAL-NUMBER PIC 9(10) VALUE ZERO.

PROCEDURE DIVISION.
READ-PROCESS-FILE.
   OPEN INPUT READER-FILE.
   OPEN OUTPUT WRITER-FILE.
   PERFORM READ-REC UNTIL WS-EOF = "Y".
   CLOSE READER-FILE.
   CLOSE WRITER-FILE.
   STOP RUN.

READ-REC.
   READ READER-FILE INTO INPUT-REC AT END MOVE "Y" TO WS-EOF.
   IF WS-EOF <> "Y" THEN
      ADD INP-NUMBER TO TOTAL-NUMBER.
      MOVE TOTAL-NUMBER TO OUTP-NUMBER.
      WRITE OUTPUT-REC.
   END-IF.

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