[掲示板に戻る]
 
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
|
| 8 | Re: AT END が無視されて、再度、DELETE処理を行い、 不正十進数エラーで アボートしてしまいます |
| gai 2015-7-17 14:09
[返信] [編集] こんにちは。 各所にDISPLAYを入れて、 fileSTATUSを表示してみました。 最後のレコードがDELETE されたあと、 再度READ命令を実行した際、 READ XXXX NEXT AT END の直後に DISPLAY したところ ”１０” が表示されました。 10はAT ENDですよね？ 表示したあと、そこで 十進数エラーになります。 もしかしたら、KEYに HIGH-VALUE を入れているからいけないのでですか？？ READ XXXX NEXT AT END DISPLAY STS UPON AAA-GDD MOVE HIGH-VALUE TO XXXX-KEY2. と書いてあります。 |
|
| 9 | Re: AT END が無視されて、再度、DELETE処理を行い、 不正十進数エラーで アボートしてしまいます |
| GAI 2015-7-17 15:57
[返信] [編集] こんにちは。 ためしに、 MOVE HIGH-VALUE TO XXXX-KEY2. ↓ MOVE 88888888 TO XXXX-KEY2. とやったら、エラーにならなくなりました。 上位のロジックでは、 XXXX-KEY2 が 88888888 だったら、 処理修了的に手続きを仕込みました。 とりあえず無理やりですが、これで運用はできそうですが、 なんで HIGH-VALUE を入れたら 十進数エラーなのかは不思議です。 |
|
| 10 | Re: AT END が無視されて、再度、DELETE処理を行い、 不正十進数エラーで アボートしてしまいます |
| ＥＸＣＨＡＮＧＥ 2015-7-19 16:24
[返信] [編集] ☆ 拝見させていただいて、前任者はかなり古風なソフト書法をご存じの方と思います。ひょっとしたらＡ−ＶＸ以外でのＣＯＢＯＬを使っておられた経験者かも？low-value high-valueをendがらみで使われているところなんかそれっぽい感じがします） ☆それはともかく、私は江須扇さんのご指摘が（現在なら）妥当な書法ではないかと同感いたします。 以下、（江須扇氏より引用） >それにしても旧１００からＣＯＢＯＬがあったのでそれを引き継いだプログラムが多いので >ＧＯ ＴＯ ありありのプログラムはやむを得ないかもしれませんが >新規であればＣＯＢＯＬ８５はＥＮＤ−ＸＸＸとＰＥＲＦＯＲＭ を使った構造化プログラムが作成が可能になります。 >データベースのＳＥＬＥＣＴと命令と組み合わせると かなりすっきりしたプログラムになります。 |
|
| 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 したところ ”１０” が表示されました。」 ということならば、 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でジャンプしない経路があり予想外の場所を実行しているとか どこかにロジックに誤りがあるのではないか、という気もします。 |
|
| 12 | Re: AT ENDは正しく動いているのでは？ |
| gai 2015-7-23 15:07
[返信] [編集] 説明わかりづらくてすみません。 省略してシンプルに書きすぎたのと、 情報開示の問題で大変わかりづらくなってしまいました。 階層構造になっており、�／董´∋辧´Ｂ� となっております。 ただし、これでもさらに上位階層のルーチンがあります。 そこまで疑うとキリがありませんし ファイルレイアウトがどうなってるんだとか、 ＤＢの詳細はどうだとかいう話にもなってしまいますので、 あきらめます。 でもずいぶんスッキリしました。 ありがとうございました！ *********************************************************** � �PERFORM DELETE-PROC UNTIL WK-DNO NOT = XXXX-DNO. *********************************************************** �� *********************************************************** DELETE-PROC SECTION. KK-010. DELETE XXXX-F INVALID KEY MOVE MSG-ABC TO KB-MSG1 MOVE XX-KEY TO KB-MSG2 PERFORM MSG-RTN THRU MSG-EXT. PERFORM READ-PROC. KK-DELETE-EXIT. EXIT. *********************************************************** �� *********************************************************** READ-PROC SECTION. K-010. READ XXXX-F NEXT AT END MOVE HIGH-VALUE TO XXXX-KEY2. READ-EXIT. EXIT. *********************************************************** XXXX-KEY2 は数字項目 集団項目 XXXX-DNO 9(06) XXXX-KNO 9(02) WK-DNO 9(06) はブレークしたときXXXX-DNOを退避するワーク項目 |
|
| 13 | Re: AT END が無視されて、再度、DELETE処理を行い、 不正十進数エラーで アボートしてしまいます |
| MAKI 2015-8-4 14:53
[返信] [編集] HIGH-VALUEは内部コードはFFなんで数値項目にMOVEしようとすると 不正十進数エラーになっているということではないでしょうか。 わざとアボートさせてプログラムを終了させているなんてことは ないでしょうね？ |
BluesBB ©Sting_Band