使用COBOL读取和写入CSV文件的示例代码

这个示例展示了如何使用COBOL编程语言读取和写入CSV文件，它使用了标准的File Control和Data Division，同时还使用了一些非标准的语法。通过编写这个程序，您可以学习COBOL如何处理文件操作。

IDENTIFICATION DIVISION.
PROGRAM-ID. READWRITECSV.

DATA DIVISION.
FILE SECTION.
FD CSV-FILE
    LABEL RECORDS ARE STANDARD
    VALUE OF FILE-ID IS "mycsvfile.csv"
    RECORDING MODE IS F.

01 CSV-RECORD.
    05 CSV-NAME             PIC X(20).
    05 CSV-AGE              PIC 99.
    05 CSV-GENDER           PIC X(6).
    05 CSV-SALARY           PIC 9(5).

WORKING-STORAGE SECTION.
01 WS-EOF                 PIC X(3)    VALUE 'NO '.

PROCEDURE DIVISION.
MAIN-PARA.
    OPEN INPUT CSV-FILE
    OPEN OUTPUT CSV-FILE
    AT END MOVE 'YES' TO WS-EOF
    NOT AT END PERFORM UNTIL WS-EOF = 'YES'
        READ CSV-FILE INTO CSV-RECORD
        AT END MOVE 'YES' TO WS-EOF
        NOT AT END
            PERFORM PROCESS-RECORD
    END-READ
    CLOSE CSV-FILE
    CLOSE CSV-FILE
    STOP RUN.

PROCESS-RECORD.
    WRITE CSV-RECORD
    END-WRITE.

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