[掲示板に戻る] 全部  1-  最新50

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) 不正十進数エラ―

[掲示板に戻る] 全部 次100 最新50