オフコン練習帳

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は何を指定しているのでしょうか

このプログラムは何をしようとしているのでしょうか、全部のレコードを削除してテーブルをまっさらにするというプログラムでしょうか

AT　END　が無視されて、再度、DELETE処... GAI 2015-7-14 16:12

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

Re: 久々ＣＯＢＯＬ８５を見ました。（A... 江須扇 2015-7-16 11:02

Re: 久々ＣＯＢＯＬ８５を見ました。（A... gai 2015-7-17 13:14

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

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

Re: AT　END　が無視されて、再度、DELE... ＥＸＣＨＡＮＧＥ 2015-7-19 16:24

Re: AT　END　が無視されて、再度、DELE... MAKI 2015-8-4 14:53

AT　ENDは正しく動いているのでは？ターラヤン 2015-7-22 0:23

Re: AT　ENDは正しく動いているのでは？ gai 2015-7-23 15:07