ＣＯＢＯＬプログラム

次のプログラムがわかりません。。。

PERFORM　　CLEAR-SEC
　　VARYING　　S1
　　　　FROM　　1　　BY　　3
　　　　　　UNTIL　　S1　　>　　4
　　AFTER　　　S2
　　　　FROM　　1　　BY　　5
　　　　　　UNTIL　　S2　　>　　30

特にAFTER以降がどういう処理なのかがサッパリです。
よろしくお願いします。

No.1 ベストアンサー 回答者： Bickyon 回答日時： 2008/04/13 17:54

S1が1で、S2が1、6、11、16、21、25、31とCLEAR-SECを繰り返す。

S1が4で、S2が1、6、11、16、21、25、31とCLEAR-SECを繰り返す。

という流れになるかと思います。
2重ループの処理になっています。

この回答へのお礼

回答ありがとうございます！
助かりました！
重ねて質問ですが、3重ループにしようと思ったら
またAFTER～とすればいいのでしょうか？

お礼日時：2008/04/14 23:58

No.2 回答者： Bickyon 回答日時： 2008/04/15 06:51

3重ループは構文には無かったと思いますので、

PERFORM VARYINGを入れ子の構造にすることが必要だと思います。

PERFORM VARYING S1 FROM 1 BY 3 UNTIL S1 > 4
　PERFORM VARYING S2 FROM 1 BY 5 UNTIL S2 > 30
　　PERFORM VARYING S3 FROM x BY y UNTIL S3 > z
　　　PERFORM CLEAR-SEC
　　END PERFORM
　END PERFORM
END PERFORM

この回答へのお礼

なるほど！よくわかりました。
ありがとうございました！

お礼日時：2008/04/15 23:11