Google
オフコン練習帳内を検索
インターネット全体を検索

NECオフコン関連
オフコン一般
情報

[掲示板に戻る]


11 AT ENDは正しく動いているのでは?
ターラヤン 2015-7-22 0:23  [返信] [編集]

HIGH-VALUEを8888・・に直してうまく動くようになったのでしたら、良いとは思いますが・・・


もともとのご質問は

「最終レコードが削除されたら、レコードがなくなるので、AT END になると思うのですが、
なぜAT END GOTO ABC-090が無視されてしまうのでしょうか?」

だったと思います。

「最後のレコードがDELETE されたあと、
再度READ命令を実行した際、
READ XXXX NEXT
AT END の直後に
DISPLAY したところ
 ”10” 
が表示されました。」

ということならば、
AT ENDの直後のDISPLAY文が実行されたということですので、
「最終レコードが削除されたら、レコードがなくなるので、AT ENDになっている」
のではないでしょうか。



プログラムの一部分しか見えないので、はっきりとはわかりませんが、
実はGOTO文の前にHIGH-VALUEをMOVEする処理もあるようですし、
例えば、MOVEとGOTOの間の別の命令があって不正十進エラーになっているとか、
XXXX-KEY2が英数字項目で定義されていて、HIGH-VALUEを入れた後に
どこかでXXXX-KEY2を使って計算して(例えばCOMPUTE A=XXXX-KEY/2のように)
不正十進エラーになっているとか
AT ENDとGOTOの間が空いているのなら、GOTOでジャンプしない経路があり予想外の場所を実行しているとか
どこかにロジックに誤りがあるのではないか、という気もします。



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: 久々COBOL85を見ました。(A... 江須扇 2015-7-16 11:02
Re: 久々COBOL85を見ました。(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... EXCHANGE 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