COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-162
PERFORM TIMES
An in-line PERFORM statement can contain delimited-scope statements (such as a
delimited-scope READ or IF statements) because they count as imperative statements.
PERFORM TIMES
PERFORM TIMES executes a procedure, a group of procedures, or an imperative
statement a specified number of times.
procedure-group
proc-1
is a paragraph-name or section-name. Without THROUGH or THRU, proc-1
identifies the only procedure that is to be executed. With THROUGH or THRU,
proc-1 identifies the first procedure of a group.
Example 9-51. In-Line PERFORM Statement With Delimited-Scope Statements
PERFORM UNTIL END-IX
READ IX-FILE RECORD
AT END
SET END-IX TO TRUE
NOT AT END
IF IX-NUMBER > 0
READ MASTR-FILE RECORD KEY IS IX
INVALID KEY DISPLAY "Bad IX value: " IX
STOP RUN
END-READ
END-IF
MOVE MASTER-NAME TO CUST-NAME
...
END-READ
END-PERFORM
procedure-group
imperative-statement
PERFORM
count TIMES
END-PERFORM
count
TIMES
VST194.vsd
proc-1
proc-2THROUGH
THRU
VST193.vsd