COBOLのＰＥＲＦＯＲＭ文

COBOL初心者です。
COBOL97使用で、

02 VAL OCCURS 15 TIMES PIC 9(4).
と定義して、

PERFORM TEST BEFORE
VARYING COUNTER FROM 1 BY 1 UNTIL COUNTER > 15
のPERFORM文を書きました。
エラーもなく起動したのですが、
１５回過ぎても永遠処理が終わりません。

無限ループというのでしょうか？
15回目でバチッと終わるにはどういたらよいでしょうか？

どなたかお助け下さい。

No.1 回答者： bin-chan 回答日時： 2007/07/18 22:37

END-PERFORMはもちろんあるんですよね？

COUNTER はどのように定義されてますか？
PIC 9(1)なんてことはないですよね？

この回答へのお礼

PIC 9(1)になっていました……
以前作ったファイルをコピーして編集したので、
恥ずかしながら見落としていました・・・・。
ありがとうございます！！！！！！！！
おかげさまで１５回でバチッと終わりました。

お礼日時：2007/07/18 23:50