12,504
回編集
差分
ナビゲーションに移動
検索に移動
プロシージャに明示的に制御を移し、プロシージャの実行終了後に、PERFORMステートメントの次のステートメントに制御を戻す。プロシージャに明示的に制御を移し、プロシージャの実行終了後に、PE[[R]]FO[[R]]Mステートメントの次のステートメントに制御を戻す。
PERFORM PE[[R]]FO[[R]]M SUB1 4 TIMES
PERFORM PE[[R]]FO[[R]]M SUB1 UNTIL N > 20
VARYING VA[[R]]YING データ名 FROM F[[R]]OM 初期値
PERFORM VARYING PE[[R]]FO[[R]]M VA[[R]]YING J FROM F[[R]]OM 1 BY 1
編集の要約なし
==[[COBOL ステートメント - PERFORM]]==
[[COBOL]] |
繰り返し処理を記述するのに利用できる。
=====行外PERFORM行外PE[[R]]FO[[R]]M=====
プロシージャ名が指定された場合
=====行内PERFORM行内PE[[R]]FO[[R]]M=====プロシージャ名が省略された場合。END-PERFORMにより、区切る必要があるPE[[R]]FO[[R]]Mにより、区切る必要がある
===基本===
[命令文1 END-PERFORM]
*THROUGHプロシージャ名2 TH[[R]]OUGHプロシージャ名2 まで指定されているときには、2つ以上の段落を実行する。
===TIMES句付き===
[整数1 } TIMES 命令文 END-PERFORM {一意名1 ]
SUB1を4回繰り返し実行し、元に戻る
[命令文 END-PERFORM]
SUB1をNが20を超えるまで実行する
{|class="wikitable"
!TESTオプション[[TEST]]オプション
!内容
|-
|[[TEST ]] BEFORE
|条件判定を、命令文の前に実行
|-
|[[TEST ]] AFTER
|条件判定を、命令文の前後に実行
|-
|}
===VARYING句付きVA[[R]]YING句付き===
ある一定の規則に従って、1 つまたは複数のID や指標名の値を増やすか、または減らします
PERFORM [ THRU} プロシージャ名2] プロシージャ名 [{THROUGH ]
[ AFTER} WITH TEST {BEFORE ]
BY 増分
UNTIL 条件
[命令文 END-PERFORM]
UNTIL J > 100
ADD J TO GOKEI
ENF-PERFORMPE[[R]]FO[[R]]M.
{{include_html [[banner_html]], "!COBOL"}}
© 2006 矢木浩人
