オフコン練習帳

[掲示板に戻る]

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

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) 不正十進数エラ―
2	Re: AT　END　が無視されて、再度、DELETE処理を行い、不正十進数エラーで　アボートしてしまいます
	温泉好きのうさぎ 2015-7-14 18:57 [返信] [編集] まず第一に疑うべきものは、ファイルに対する I-O 命令が正常に実行されているのかどうかということです。すなわち、AT END が無視されたのではなく、READ 命令自体が正しく実行されなかったと考えるべきです。それをチェックする最も簡単な方法は、「OPEN」「READ」「DELETE」各命令の直後にファイルステータスの値を画面表示させることです。すべて値が正常終了であれば、別の原因を探す必要があります。
3	Re: AT　END　が無視されて、再度、DELETE処理を行い、不正十進数エラーで　アボートしてしまいます
	ターラヤン 2015-7-15 0:52 [返信] [編集] 私も温泉好きのうさぎさんと同じ意見です。 READなどの命令実行後のファイルステータスを見てみた方がいいです。例えば READ XX-FILE AT END GOTO ABC-090. の後辺りで、 IF ファイルステータス(1:1）NOT= '0' 　DISPLAY ファイルステータス END-IF みたいな感じで。なんとなく普通に考えると、最終レコードを削除したので次はAT ENDとなる、というようにも思われますが、実は別のエラーになっているのかもしれません。それなりにスキルのある前任者が作ったプログラムとのことですが、今までずっと動いていたけど突然エラーが出るようになって動かなくなったというような、今までそれなりに実績があるというわけではないですよね。その人が作ったことは作ったが、動かしたのは今回初めてということですよね。ところでORGANIZATIONは何を指定しているのでしょうかこのプログラムは何をしようとしているのでしょうか、全部のレコードを削除してテーブルをまっさらにするというプログラムでしょうか
4	Re: 久々ＣＯＢＯＬ８５を見ました。（AT　END　が無視されて、再度、DELETE処理を行い、不正十進数エラーで　アボートしてしまいます）
	江須扇 2015-7-16 11:02 [返信] [編集] 私も久々に見るので、記憶違いかもしれませんが、プログラム内でＦＩＬＥ　ＳＴＡＴＵＳを一か所も使ってない場合はＡＴ　ＥＮＤ　で再読み込みを実行すると命令実行順序エラーでエラー表示するのではと記憶しております。しかしながらＦＩＬＥ　ＳＴＡＴＵＳを使っている場合はその命令でＯＳからのエラーは表示されず。次の行で必ずＳＴＡＴＵＳをＩＦ命令で確かめる必要があると思います。また、ＤＥＬＥＴＥ命令で不正十進数はエラー出ないと記憶しております。説明上省略してあるのでしょうがＲＥＡＤの後、何らかの処理でエラーが出ていると考えます。対応方法は１．全てのＦＩＬＥ　ＳＴＡＴＵＳをコメントにして　ＯＳのエラー機能のみで実行する２．全ての入出力命令（ＯＰＥＮ、ＣＬＯＳＥ、ＲＥＡＤ、ＤＥＬＥＴＥ等）の直後でＳＴＡＴＵＳを確認して全て自己管理にするのどちらかにする必要があります。中途半端（すいません言葉がきついかも）にＳＴＡＴＵＳを確認すると正しい判定ができません。まずはそこをご確認ください。ＰＳ：それにしても旧１００からＣＯＢＯＬがあったのでそれを引き継いだプログラムが多いのでＧＯ　ＴＯ　ありありのプログラムはやむを得ないかもしれませんが新規であればＣＯＢＯＬ８５はＥＮＤ－ＸＸＸとＰＥＲＦＯＲＭを使った構造化プログラムが作成が可能になります。データベースのＳＥＬＥＣＴと命令と組み合わせるとかなりすっきりしたプログラムになります。いまさらですが参考の為に蛇足を書きました。
5	Re: AT　END　が無視されて、再度、DELETE処理を行い、不正十進数エラーで　アボートしてしまいます
	GAI 2015-7-17 11:24 [返信] [編集] ファイルステータスですね？！やり方調べて実施してみます！ありがとうございます”
6	Re: AT　END　が無視されて、再度、DELETE処理を行い、不正十進数エラーで　アボートしてしまいます
	gai 2015-7-17 11:53 [返信] [編集] ありがとうございます。おっしゃるとおり、それなりに実績があるといいつつ、あるというわけではないですよね。 10年以上毎月動いているＰＧですが、もしかしたら過去もあったのかもしれません。 ORGANIZATION IS INDEXED となっております。ＲＤＢを索引順に読みながら、ある条件に合致した、古いレコードを削除する、という処理です。
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してみます。
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しようとすると不正十進数エラーになっているということではないでしょうか。わざとアボートさせてプログラムを終了させているなんてことはないでしょうね？