• ベストアンサー

COBOLプログラム

次のプログラムがわかりません。。。 PERFORM  CLEAR-SEC   VARYING  S1     FROM  1  BY  3       UNTIL  S1  >  4   AFTER   S2     FROM  1  BY  5       UNTIL  S2  >  30 特にAFTER以降がどういう処理なのかがサッパリです。 よろしくお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • Bickyon
  • ベストアンサー率41% (42/101)
回答No.1

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重ループの処理になっています。

coldplay
質問者

お礼

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

その他の回答 (1)

  • Bickyon
  • ベストアンサー率41% (42/101)
回答No.2

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

coldplay
質問者

お礼

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

関連するQ&A