[掲示板に戻る]
| 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を退避するワーク項目 |
 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
←いまここ〜
|
BluesBB ©Sting_Band