COBOL Manual for TNS/E Programs (H06.03+)

Procedure Division Verbs
HP COBOL Manual for TNS/E Programs—520347-003
9-144
PERFORM
PERFORM
PERFORM executes one or more procedures in a program, simply or with looping.
When a procedure-name is a section-name, PERFORM executes all the paragraphs in
that section.
Unconditional PERFORM
Unconditional PERFORM executes a procedure, group of procedures, or imperative
statement one time. When execution reaches the end of the procedure, group of
procedures, or imperative statement, control returns to the statement following the
PERFORM statement.
Example 9-46. OPEN Statements
?NONSTOP
IDENTIFICATION DIVISION.
...
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT EMPLOYEE-MASTER ASSIGN TO "EMPMAST"
ORGANIZATION IS INDEXED
ACCESS MODE IS DYNAMIC.
...
SELECT LISTING-FILE ASSIGN TO "LISTOUT"
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
...
PROCEDURE DIVISION.
...
OPEN I-O EMPLOYEE-MASTER WITH TIME LIMITS SYNCDEPTH 1
OPEN OUTPUT LISTING-FILE
Form Description
Unconditional PERFORM
Executes a procedure, group of procedures, or imperative
statement one time
PERFORM TIMES
Executes a procedure, group of procedures, or imperative
statement a specified number of times
PERFORM UNTIL
Executes a procedure, group of procedures, or imperative
statement repeatedly until a specified condition is true
PERFORM VARYING
Executes a loop of procedures
END-PERFORM
procedure-group
imperative-statement
PERFORM
VST192.vsd