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

Procedure Division
HP COBOL Manual for TNS/E Programs—520347-003
43-34
Unconditional PERFORM
For a line sequential file:
Unconditional PERFORM
procedure-group
PERFORM TIMES
procedure-group
extfile
SHARED
PROTECTED
EXCLUSIVE
VST629.vsd
END-PERFORM
procedure-group
imperative-statement
PERFORM
VST192.vsd
proc-1
proc-2THROUGH
THRU
VST193.vsd
procedure-group
imperative-statement
PERFORM
count TIMES
END-PERFORM
count
TIMES
VST194.vsd
proc-1
proc-2THROUGH
THRU
VST193.vsd