COBOL文件读取、写入和修改

这个示例代码演示了如何使用COBOL来读取、写入和修改文件。COBOL中使用FD（文件描述符）声明文件，并使用READ和WRITE操作符来读取和写入文件。此示例代码还演示了如何使用REWRITE操作符来修改现有记录。COBOL代码适用于VS Code中的COBOL插件

IDENTIFICATION DIVISION.
PROGRAM-ID. FILEIO.
DATA DIVISION.
FILE SECTION.
FD MYFILE
RECORDING MODE IS F
LABEL RECORDS ARE STANDARD
VALUE OF FILE-ID IS "myfile.seq".
01 MYREC.
   05 MY-ID PIC X(5).
   05 FILLER PIC X(3).
   05 MY-NAME PIC X(20).
   05 FILLER PIC XXX.

WORKING-STORAGE SECTION.
01 WS-ID PIC X(5) VALUE "00001".
01 WS-NAME PIC X(20) VALUE "John Doe".

PROCEDURE DIVISION.
OPEN OUTPUT MYFILE.

*写入记录
MOVE WS-ID TO MY-ID.
MOVE WS-NAME TO MY-NAME.
WRITE MYREC.

*读取记录
CLOSE MYFILE.
OPEN INPUT MYFILE.
READ MYFILE INTO MYREC.
DISPLAY "ID: ", MY-ID.
DISPLAY "Name: ", MY-NAME.

*修改记录
MOVE "Jane Doe" TO MY-NAME.
REWRITE MYREC.
CLOSE MYFILE.

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