0

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?

4

1 に答える 1

0

プログラムに STOP がありません。あなたが示したコードだけでなく、どこでも。または、そうする場合、それは条件付きであり、条件が満たされていません。

Easytrieve Plus は「自動サイクル」を実行します。通常、JOB ステートメントで指定されたファイルを使用しますが、NULL が指定されている場合は、JOB の最後のステートメントから JOB に再び循環します。

DO で EOF に到達したら、他のすべての作業が終了したら STOP する必要があります。今起こっていることは、EOF を取得し、DO から抜け出し、再びトップ (ジョブ) に循環し、EOF の後に GET を実行していることです。******A010 INVALID FILE REFERENCE - DATAPRM

于 2013-11-13T18:50:30.767 に答える