オフコン練習帳

Re: AT　ENDは正しく動いているのでは？ gai 2015-7-23 15:07

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を退避するワーク項目