- 締切済み
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回目でバチッと終わるにはどういたらよいでしょうか？ どなたかお助け下さい。
- the-laugh
- お礼率80% (4/5)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- bin-chan
- ベストアンサー率33% (1403/4213)
回答No.1
END-PERFORMはもちろんあるんですよね？ COUNTER はどのように定義されてますか？ PIC 9(1)なんてことはないですよね？
お礼
PIC 9(1)になっていました…… 以前作ったファイルをコピーして編集したので、 恥ずかしながら見落としていました・・・・。 ありがとうございます！！！！！！！！ おかげさまで１５回でバチッと終わりました。