Format 2 (PERFORM with TIMES) ->->---PERFORM-*-procedure-name-1-------------------------->1 + + + *-phrase-1 imperative-statement------------->2 1->----*----------------------------*-phrase-1--*---------><- *-THROUGH-*-procedure-name-2-* + *-THRU----* + + 2->----END-PERFORM------------------------------* where phrase-1 is: ->->----*identifier-1-*--TIMES--------------------------><- *-integer-1---*
Identifier-1 must name an integer item. If it is zero or negative when the PERFORM statement is initiated, control passes to the statement following the PERFORM statement.
After the PERFORM statement has been initiated, any change to identifier-1 has no effect in varying the number of times the procedures are initiated.
Integer-1 must be a positive signed integer.
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.