我在easytrieve prog的这行中得到了错误。
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?
答案 0 :(得分:0)
你的程序没有停止。不只是在您展示的代码中,而且在任何地方。或者如果你这样做,它是有条件的,条件不符合。
Easytrieve Plus实现“自动循环”。通常使用在JOB语句中命名的文件,但是当指定NULL时,它只是从JOB中的最后一个语句循环到JOB再次。
在你的DO中进入EOF后,你需要在完成其他所有操作后停止。现在发生的事情是你得到EOF,离开DO,再次骑车到顶部(JOB),然后在EOF之后进行GET,所以******A010 INVALID FILE REFERENCE - DATAPRM