[掲示板に戻る]

---

1

AT　END　が無視されて、再度、DELETE処理を行い、 不正十進数エラーで　アボートしてしまいます

GAI 2015-7-14 16:12  [返信] [編集] こんにちはいつも大変お世話になっております。 ＣＯＢＯＬ85で、 下記の処理をした場合、 最終レコードを削除した後、 AT　END　が無視されて、再度、DELETE処理を行い、 不正十進数エラーで　アボートしてしまいます。 それなりにスキルのある前任者が作ったプログラムです。 最終レコードが削除されたら、レコードがなくなるので、AT END になると思うのですが、 なぜAT END GOTO ABC-090が無視されてしまうのでしょうか？ どう処置すればいいでしょうか？ １．RDBファイルを順読み ２．削除する ３．次のレコードを読む（最終レコード） ４．削除する（最終レコード） ５．次のレコードを読む（AT　ENDになるはず） ６．削除する　→　不正エラー！！？ ABC-010. READ XX-FILE AT END GOTO ABC-090. DELETE XX-FILE . GO TO ABC-010. ABC-090. 【例】 READ　レコード　99997 →DELETE READ　レコード　99998　→DELETE READ　レコード　99999　→DELETE READ　 E M0021: (PRG=XXXXXX,ADR=00051C12) 不正十進数エラ―

---

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