COBOL处理文件读写示例及技术解答

此示例展示了COBOL编程语言中如何读取和写入文件的基本方法。通过使用COBOL的文件操作语句，程序能够打开文件、读取数据并进行处理，然后将处理后的结果写入另一个文件。

       IDENTIFICATION DIVISION.
       PROGRAM-ID. FILE-PROCESSING.

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INPUT-FILE ASSIGN TO 'input.txt'.
           SELECT OUTPUT-FILE ASSIGN TO 'output.txt'.

       DATA DIVISION.
       FILE SECTION.
       FD INPUT-FILE.
       01 INPUT-RECORD PIC X(50).

       FD OUTPUT-FILE.
       01 OUTPUT-RECORD PIC X(50).

       WORKING-STORAGE SECTION.
       01 EOF-SWITCH PIC X VALUE 'N'.

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

       READ-PROCESS-WRITE.
           READ INPUT-FILE
               AT END
                   MOVE 'Y' TO EOF-SWITCH
               NOT AT END
                   PERFORM PROCESS-DATA
           END-READ.

           WRITE OUTPUT-RECORD
               IF EOF-SWITCH = 'N'
           END-WRITE.

       CLOSE FILES.
           CLOSE INPUT-FILE
           CLOSE OUTPUT-FILE.

       STOP RUN.

       PROCESS-DATA.
           * Perform data processing here
           DISPLAY "Read data: " INPUT-RECORD
           * Example processing: convert to uppercase
           MOVE INPUT-RECORD TO OUTPUT-RECORD
           STRING FUNCTION UPPER-CASE(OUTPUT-RECORD) DELIMITED BY SIZE INTO OUTPUT-RECORD
           DISPLAY "Processed data: " OUTPUT-RECORD
           WRITE OUTPUT-RECORD.

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