[掲示板に戻る]

---

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

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

---

4	Re: 久々ＣＯＢＯＬ８５を見ました。（AT　END　が無視されて、再度、DELETE処理を行い、 不正十進数エラーで　アボートしてしまいます）
	江須扇 2015-7-16 11:02  [返信] [編集] 私も久々に見るので、記憶違いかもしれませんが、 プログラム内でＦＩＬＥ　ＳＴＡＴＵＳを一か所も使ってない場合は ＡＴ　ＥＮＤ　で再読み込みを実行すると命令実行順序エラーで エラー表示するのではと記憶しております。 しかしながらＦＩＬＥ　ＳＴＡＴＵＳを使っている場合は その命令でＯＳからのエラーは表示されず。 次の行で必ずＳＴＡＴＵＳをＩＦ命令で確かめる必要が あると思います。 また、ＤＥＬＥＴＥ命令で不正十進数はエラー出ないと記憶しております。 説明上省略してあるのでしょうがＲＥＡＤの後、何らかの処理でエラーが出ていると考えます。 対応方法は １．全てのＦＩＬＥ　ＳＴＡＴＵＳをコメントにして 　ＯＳのエラー機能のみで実行する ２．全ての入出力命令（ＯＰＥＮ、ＣＬＯＳＥ、ＲＥＡＤ、ＤＥＬＥＴＥ等）の直後でＳＴＡＴＵＳを確認して全て自己管理にする のどちらかにする必要があります。 中途半端（すいません言葉がきついかも）にＳＴＡＴＵＳを確認すると正しい判定ができません。 まずはそこをご確認ください。 ＰＳ： それにしても旧１００からＣＯＢＯＬがあったのでそれを引き継いだプログラムが多いので ＧＯ　ＴＯ　ありありのプログラムはやむを得ないかもしれませんが 新規であればＣＯＢＯＬ８５はＥＮＤ−ＸＸＸとＰＥＲＦＯＲＭ を使った構造化プログラムが作成が可能になります。 データベースのＳＥＬＥＣＴと命令と組み合わせると かなりすっきりしたプログラムになります。 いまさらですが参考の為に蛇足を書きました。
7	Re: 久々ＣＯＢＯＬ８５を見ました。（AT　END　が無視されて、再度、DELETE処理を行い、 不正十進数エラーで　アボートしてしまいます）
	gai 2015-7-17 13:14  [返信] [編集] ありがとうございます。 ＦＩＬＥ　ＳＴＡＴＵＳでソースを検索したところ、 FILE-CONTROL.で なんこかのSELECT　で FILE STATUS IS XXXXX と書いてありました。 file statusとは　この記述のことでしょうか？ ここで定義しておきながら、 実際のprocedure　divisionでは、 file status xxxx は使っておりませんが。 したがって、FILE status を全処理で　DISPLAYしてみます。