[掲示板に戻る]
| 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
|
BluesBB ©Sting_Band