| Re: AT ENDは正しく動いているのでは？ |
投稿者： gai 投稿日時： 2015-7-23 15:07:40 説明わかりづらくてすみません。 省略してシンプルに書きすぎたのと、 情報開示の問題で大変わかりづらくなってしまいました。 階層構造になっており、�／董´∋辧´Ｂ� となっております。 ただし、これでもさらに上位階層のルーチンがあります。 そこまで疑うとキリがありませんし ファイルレイアウトがどうなってるんだとか、 ＤＢの詳細はどうだとかいう話にもなってしまいますので、 あきらめます。 でもずいぶんスッキリしました。 ありがとうございました！ *********************************************************** � �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を退避するワーク項目 |
|
NECオフコン関連
オフコン一般
情報
|
|