COBOL中如何读取和写入文件？

本示例代码展示了COBOL中如何读取和写入文件。通过使用COBOL语言自带的文件处理方法，程序可以从一个文件读取数据并将数据写入另一个文件中。

IDENTIFICATION DIVISION.
PROGRAM-ID. FILEIO.
DATA DIVISION.
FILE SECTION.
FD INFILE.
01 IN-RECORD       PIC X(80).
    88 EOF-IN    VALUE HIGH-VALUES.
    88 VALID-IN  VALUE SPACE "A" THRU "Z".
FD OUTFILE.
01 OUT-RECORD      PIC X(80).
WORKING-STORAGE SECTION.
01 WS-COUNT        PIC 9(5)      VALUE ZERO.
01 WS-DATA.
    05 WS-FIELD-A   PIC X(10)      VALUE SPACES.
    05 WS-FIELD-B   PIC 9(3)       VALUE ZERO.
    05 WS-FIELD-C   PIC X(9)       VALUE SPACES.
PROCEDURE DIVISION.
READ-LOOP.
    READ INFILE
    AT END MOVE HIGH-VALUES TO EOF-IN
    NOT AT END PERFORM PROCESS-DATA
    END-READ.
WRITE-LOOP.
    READ OUTFILE NEXT
    AT END PERFORM WRITE-DATA
    END-READ
    PERFORM READ-LOOP
    STOP RUN.
PROCESS-DATA.
    IF VALID-IN
        PERFORM PROCESS-RECORD
    END-IF.
WRITE-DATA.
    MOVE WS-DATA TO OUT-RECORD
    WRITE OUT-RECORD
    ADD 1 TO WS-COUNT.
PROCESS-RECORD.
    MOVE IN-RECORD TO WS-DATA.
    MOVE "ENDLINE" TO WS-FIELD-A
    UNSTRING WS-FIELD-A DELIMITED BY SPACE
             INTO WS-FIELD-A, WS-FIELD-B, WS-FIELD-C.
    DISPLAY "FIELD-A: " WS-FIELD-A
    DISPLAY "FIELD-B: " WS-FIELD-B
    DISPLAY "FIELD-C: " WS-FIELD-C.

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