|
3:Re: AT END が無視されて、再度、DELETE処理を行い、 不正十進数エラーで アボートしてしまいます tahrayan 07/15 00:52 私も温泉好きのうさぎさんと同じ意見です。 READなどの命令実行後のファイルステータスを見てみた方がいいです。 例えば READ XX-FILE AT END GOTO ABC-090. の後辺りで、 IF ファイルステータス(1:1）NOT= '0' DISPLAY ファイルステータス END-IF みたいな感じで。 なんとなく普通に考えると、最終レコードを削除したので次はAT ENDとなる、というようにも思われますが、実は別のエラーになっているのかもしれません。 それなりにスキルのある前任者が作ったプログラムとのことですが、今までずっと動いていたけど突然エラーが出るようになって動かなくなったというような、今までそれなりに実績があるというわけではないですよね。その人が作ったことは作ったが、動かしたのは今回初めてということですよね。 ところでORGANIZATIONは何を指定しているのでしょうか このプログラムは何をしようとしているのでしょうか、全部のレコードを削除してテーブルをまっさらにするというプログラムでしょうか |