[掲示板に戻る]

---

Re: AT　END　が無視されて、再度、DELE... 温泉好きのうさぎ 2015-7-14 18:57

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

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

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

---

2	Re: AT　END　が無視されて、再度、DELETE処理を行い、 不正十進数エラーで　アボートしてしまいます
	温泉好きのうさぎ 2015-7-14 18:57  [返信] [編集] まず第一に疑うべきものは、ファイルに対する I-O 命令が正常に実行されているのかどうかということです。 すなわち、AT END が無視されたのではなく、READ 命令自体が正しく実行されなかったと考えるべきです。 それをチェックする最も簡単な方法は、「OPEN」「READ」「DELETE」各命令の直後にファイルステータスの値を画面表示させることです。 すべて値が正常終了であれば、別の原因を探す必要があります。
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は何を指定しているのでしょうか このプログラムは何をしようとしているのでしょうか、全部のレコードを削除してテーブルをまっさらにするというプログラムでしょうか
5	Re: AT　END　が無視されて、再度、DELETE処理を行い、 不正十進数エラーで　アボートしてしまいます
	GAI 2015-7-17 11:24  [返信] [編集] ファイルステータスですね？！ やり方調べて実施してみます！ ありがとうございます”
6	Re: AT　END　が無視されて、再度、DELETE処理を行い、 不正十進数エラーで　アボートしてしまいます
	gai 2015-7-17 11:53  [返信] [編集] ありがとうございます。 おっしゃるとおり、それなりに実績があるといいつつ、 あるというわけではないですよね。 10年以上毎月動いているＰＧですが、 もしかしたら過去もあったのかもしれません。 ORGANIZATION IS INDEXED となっております。 ＲＤＢを索引順に読みながら、 ある条件に合致した、古いレコードを削除する、 という処理です。