[掲示板に戻る]

---

Re: AT　END　が無視されて、再度、DELE... ターラヤン 2015-7-15 0:52

Re: AT　END　が無視されて、再度、DELE... gai 2015-7-17 11:53

---

3	Re: AT　END　が無視されて、再度、DELETE処理を行い、 不正十進数エラーで　アボートしてしまいます
	ターラヤン 2015-7-15 0:52  [返信] [編集] 私も温泉好きのうさぎさんと同じ意見です。 READなどの命令実行後のファイルステータスを見てみた方がいいです。 例えば READ XX-FILE AT END GOTO ABC-090. の後辺りで、 IF ファイルステータス(1:1）NOT= '0' 　DISPLAY ファイルステータス END-IF みたいな感じで。 なんとなく普通に考えると、最終レコードを削除したので次はAT ENDとなる、というようにも思われますが、実は別のエラーになっているのかもしれません。 それなりにスキルのある前任者が作ったプログラムとのことですが、今までずっと動いていたけど突然エラーが出るようになって動かなくなったというような、今までそれなりに実績があるというわけではないですよね。その人が作ったことは作ったが、動かしたのは今回初めてということですよね。 ところでORGANIZATIONは何を指定しているのでしょうか このプログラムは何をしようとしているのでしょうか、全部のレコードを削除してテーブルをまっさらにするというプログラムでしょうか
6	Re: AT　END　が無視されて、再度、DELETE処理を行い、 不正十進数エラーで　アボートしてしまいます
	gai 2015-7-17 11:53  [返信] [編集] ありがとうございます。 おっしゃるとおり、それなりに実績があるといいつつ、 あるというわけではないですよね。 10年以上毎月動いているＰＧですが、 もしかしたら過去もあったのかもしれません。 ORGANIZATION IS INDEXED となっております。 ＲＤＢを索引順に読みながら、 ある条件に合致した、古いレコードを削除する、 という処理です。