动态读取...记录无效密钥在 COBOL 中无法正常工作。如何修复它？

Question

具有文件控制功能的 Cobol 程序如下所示：

SELECT D-FLAT-FILE ASSIGN TO DFLAT-FILE
       ORGANIZATION IS INDEXED
       ACCESS MODE IS SEQUENTIAL 
       FILE STATUS IS RECORD-STAT
       RECORD KEY IS D_KEY OF D-FLAT-FILE DESCENDING WITH DUPLICATES.


SELECT C-MAST-FILE ASSIGN TO CMAST-FILE
       ORGANIZATION IS INDEXED
       ACCESS MODE IS DYNAMIC 
       FILE STATUS IS RECORD-STAT
       RECORD KEY IS C_KEY OF C-MAST-FILE.

从第一个平面文件中读取一条记录，如下所示：

PROCESSING.
    READ D-FLAT-FILE NEXT RECORD
        AT END ....END READ.

并在第二个动态文件上读取一条记录，如下所示：

READ C-MAST-FILE RECORD
     INVALID KEY
     GO TO PROCESSING.

除 1 种情况外，一切正常。如果第一个平面文件中的第一条记录与第二个动态文件中的任何记录都不匹配，则程序将进入无限循环，而不是执行“转到处理”。我检查了手册，全部按照手册进行（它是 VAX Cobol）。我缺少什么？

Answer 1

最佳实践是为每个文件使用不同的文件状态变量。就您而言，您没有向我们展示足够的背景来了解问题。但是，如果您正在循环查看 RECORD-STAT，那么从 C-MAST-FILE 读取失败可能会让您感到悲伤。