Easytrieve A010无效的文件引用

Question

我在easytrieve程序的这一行中得到了错误。。

JOB INPUT NULL MASTER-FILE
GET DATAPRM      <~~~~~~~ LINE 59
DO WHILE NO EOF DATAPRM
    ...
    GET DATAPRM
END-DO

..
59******A010 INVALID FILE REFERENCE - DATAPRM
..

我有一个像这样的DLBL。。

//DLBL DATAPRM, 'DATAPRM.SAM'

我正在尝试使用输入文件DATAPRM（卡）通过数据填充主文件。。记录正在被读取（我想是因为我的计数器正在移动），但不幸的是，在它终止程序之前，错误发生了。。也许是EOF？

Answer 1

您的程序中没有STOP。不仅在您显示的代码中，而且在任何地方。或者，如果你这样做了，它是有条件的，并且条件没有得到满足。

EasytrievePlus实现"自动循环"。通常在JOB语句中命名文件，但当指定NULL时，它只是从JOB中的最后一条语句循环到JOB。

在你的DO中达到EOF后，当你完成了其他所有事情时，你需要停止。现在发生的事情是，你得到EOF，离开DO，再次循环到顶部（JOB），然后它在EOF之后执行GET，所以******A010 INVALID FILE REFERENCE - DATAPRM