cobol - 启动后读取时文件状态 23

Question

我的问题与文件状态 23 有关，根据 MicroFocus意味着当我尝试从 .DAT 文件中READ时:

"Indicates no record found."

或

"Indicates a duplicate key condition. Attempt has been made to store a record that would create a duplicate key in the indexed or relative file or a duplicate alternate record key that does not allow duplicates."

我已经消除了后者是我的问题的事实，因为在这种情况下我允许重复。

我感到困惑的原因是我使用 START 导航到 .DAT 文件内的记录，当我执行 READ 时在 START 定位文件指针后，我得到文件状态 23。

这是我的代码:

900-GET-INST-ID.
OPEN INPUT INST-MST.
MOVE FALL-IN-INST TO INST-NAME-REC.
   START INST-MST 
       KEY EQUAL TO INST-NAME-REC
           INVALID KEY
               DISPLAY "RECORD NOT FOUND"
           NOT INVALID KEY
               READ INST-MST
               MOVE INST-ID-REC TO WS-INST-ID
   END-START.
   CLOSE INST-MST.

因此，当我运行此代码时，我的 START 成功运行并进入 NOT INVALID KEY block ，然后执行下一行，并且我的读取为空。如果我的备用​​ key (INST-NAME-REC) 实际上是在 .DAT 中找到的，这怎么可能？

我已确保我的 FD 图片子句在 ISAM Build 程序和该程序(读取程序)中完全匹配。

Answer 1

您显示的第二个原因被排除不是因为您允许重复的键，而是因为该文件状态的错误消息是针对WRITE的，而您的失败是在READ.

这是你的问题:

READ INST-MST

修复方法如下:

READ INST-MST NEXT

在 COBOL 85 中，READ 语句有两种格式。格式 1 用于顺序读取，格式 2 用于键控(随机)读取。

不幸的是，顺序读取和键控读取的最小读取语法是:

READ file-name

这意味着如果您使用 READ file-name，编译器将根据您的 SELECT 语句隐式将其视为格式 1 或格式 2。

READ file-name NEXT RECORD 与 READ file-name NEXT 相同。

请参阅您的实际文档，以获取供应商可能的语言扩展的完整说明和发现。如果您仔细查阅，会发现不带其他选项的READ file-name 的行为取决于文件的类型。对于 key 文件，默认为 key 读取。您的 key 字段(幸运的是)不包含存在的 key ，因此您得到 23。

即使它不能那样工作，不使用 NEXT 这个词有什么意义呢？编译器总是知道你告诉它的内容(有时并不是你认为你告诉它的内容)，但在这种情况下，人类读者可能非常不确定。当寻找 bug 时，你最不想做的一件事就是停下来查看手册来准确地了解它的行为方式，然后尝试解决它(如果该行为是原始编码人员所寻求的行为)。错误？一个错误？有意但草率的代码？没有人愿意花那个时间，看看，即使是现在，也是你。

对您的代码的一些评论。

查找 SELECT 的 FILE STATUS 子句。用它。每个文件一个字段。每次IO后检查。它会拯救你的悲伤。

使用文件状态后，放弃 IO 语句的命令部分(something/NOT Something)并用文件状态字段的测试替换(使用 88s)。

看起来您一直在打开和关闭查找文件。请不要。 OPEN 和 CLOSE 可能非常繁重且耗时，因此每个程序每个文件执行一次。如果您这样做是因为出现问题，请找到该问题的正确解决方案，不要使用 hack。

删除句号/句号(除非需要)。这是 COBOL 85，这意味着 30 年来，PROCEDURE DIVISION 中所需的句点/句点数量已大大减少。变得现代化，并利用这一点，它会在您复制/粘贴代码时节省您的麻烦，留下不应该存在的代码并改变程序的行为方式。