使用COBOL读取和写入CSV文件

本示例展示了如何使用COBOL读取和写入CSV文件，CSV文件是以逗号分隔的文本文件，常用于数据交换和存储。本示例使用了内置的INPUT-OUTPUT SECTION和FILE SECTION语句，读取与写入文件使用了READ和WRITE语句。

IDENTIFICATION DIVISION.
PROGRAM-ID. READ-CSV-FILE.

ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
    SELECT MY-CSV-FILE ASSIGN TO "my_csv_file.csv"
    ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD MY-CSV-FILE.
01 MY-CSV-RECORD.
   05 COLUMN1       PIC X(10).
   05 COLUMN2       PIC X(10).
   05 COLUMN3       PIC X(10).

WORKING-STORAGE SECTION.
01 WS-COUNT           PIC 99 VALUE 0.

PROCEDURE DIVISION.
    OPEN INPUT MY-CSV-FILE.

    READ MY-CSV-FILE
       AT END SET WS-COUNT TO 99
    END-READ.

    PERFORM UNTIL WS-COUNT = 99
        DISPLAY COLUMN1 COLUMN2 COLUMN3
        READ MY-CSV-FILE
            AT END SET WS-COUNT TO 99
        END-READ
    END-PERFORM.

    CLOSE MY-CSV-FILE.
    STOP RUN.

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