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

该示例代码演示了COBOL中如何进行文件读取和写入。使用COBOL内置的FILE CONTROL语句定义文件，然后使用READ语句从文件中读取记录，使用WRITE语句将记录写入文件。要点是注意文件的打开和关闭，以及处理文件读取和写入出现的错误。

FILE-CONTROL.  
           SELECT file-name ASSIGN TO disk-file  
               ORGANIZATION IS INDEXED  
               ACCESS MODE IS DYNAMIC  
               RECORD KEY IS key-name  
               FILE STATUS is file-status.  
       DATA DIVISION.  
           FILE SECTION.  
           FD file-name.  
           01 file-record.  
               05  field1  PIC X(10).  
               05  field2  PIC 9(5).  
               05  field3  PIC X(20).  
           WORKING-STORAGE SECTION.  
           01 file-status                     PIC XX.  
           PROCEDURE DIVISION.  
           MAIN PROGRAM.  
               OPEN INPUT file-name  
               PERFORM UNTIL file-status = "10"  
                  READ file-name INTO file-record  
                  IF file-status NOT = "00"  
                      DISPLAY "File read error: " file-status  
                      EXIT PROGRAM  
                  END-IF  
                  PROCESS file-record  
               END-PERFORM  
               CLOSE file-name  
               STOP RUN.                
           PROCESS SECTION.  
               ..  
               ..  
               WRITE file-record  
               IF file-status NOT = "00"  
                   DISPLAY "File write error: " file-status  
                   EXIT PROGRAM  
               END-IF

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