在COBOL程序中如何处理文件尾部报错?

当在COBOL程序中处理文件时，遇到文件尾部报错是比较常见的情况。这通常表示程序试图读取文件的下一条记录，但已经到达了文件的尾部。要解决这个问题，您可以使用FILE STATUS特性来检查文件的状态。首先，您需要定义一个文件状态变量，并将其与文件连接起来。然后，您可以使用IF语句检查文件状态，以确定是否已经到达文件的尾部。例如：

WORKING-STORAGE SECTION.
   01 FILE-STATUS PIC X(02).

PROCEDURE DIVISION.
   READ FILE-NAME
       AT END
           DISPLAY 'End of file reached'
           MOVE '10' TO FILE-STATUS
   END-READ.

   IF FILE-STATUS = '10'
       DISPLAY 'File processing completed'
   ELSE
       DISPLAY 'Error reading file'
   END-IF.

在上面的示例中，当到达文件尾部时，会将值'10'移动到FILE-STATUS变量，并显示消息'End of file reached'。您可以根据需要调整消息内容和处理逻辑。通过这种方式，您可以在COBOL程序中有效地处理文件尾部报错。

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