在COBOL中读取和写入CSV文件的示例代码

演示了如何使用COBOL读取和写入CSV文件。CSV文件是一种常见的以逗号作为分隔符的数据格式，在数据交换和处理中广泛使用。

IDENTIFICATION DIVISION.
   PROGRAM-ID. CSV-READ-WRITE.
   ENVIRONMENT DIVISION.
   INPUT-OUTPUT SECTION.
   FILE-CONTROL.
       SELECT CSV-FILE-IN ASSIGN TO "input.csv"
           ORGANIZATION IS LINE SEQUENTIAL.
       SELECT CSV-FILE-OUT ASSIGN TO "output.csv"
           ORGANIZATION IS LINE SEQUENTIAL.
   DATA DIVISION.
   FILE SECTION.
   FD CSV-FILE-IN
       RECORDING MODE F.
   01 CSV-RECORD-IN PIC X(80).
   FD CSV-FILE-OUT
       RECORDING MODE F.
   01 CSV-RECORD-OUT PIC X(80).
   WORKING-STORAGE SECTION.
   01 CSV-COMMA PIC X VALUE ",".
   01 CSV-COUNTER PIC 9(4) VALUE 0.
   01 CSV-FIELD PIC X(20).
   01 CSV-EOF PIC 9(4) VALUE 0.
   PROCEDURE DIVISION.
   PERFORM OPEN-FILES
   PERFORM READ-CSV UNTIL CSV-EOF = 1
   PERFORM CLOSE-FILES
       STOP RUN.
   OPEN-FILES.
       OPEN INPUT CSV-FILE-IN
       OPEN OUTPUT CSV-FILE-OUT
       DISPLAY "CSV FILES OPENED".
   READ-CSV.
       READ CSV-FILE-IN
           AT END
               MOVE 1 TO CSV-EOF
           NOT AT END
               PERFORM PROCESS-CSV.
   PROCESS-CSV.
       UNSTRING CSV-RECORD-IN DELIMITED BY CSV-COMMA
           INTO CSV-FIELD
           COUNT IN CSV-COUNTER
           DISPLAY CSV-FIELD (1:CSV-COUNTER)
       STRING CSV-FIELD (1:CSV-COUNTER) CSV-COMMA
           INTO CSV-RECORD-OUT
           MOVE "," TO CSV-COMMA (1:1)
           WRITE CSV-RECORD-OUT.
   CLOSE-FILES.
       CLOSE CSV-FILE-IN
       CLOSE CSV-FILE-OUT
       DISPLAY "CSV FILES CLOSED".

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