COBOL Manual for TNS and TNS/R Programs

Procedure Division
HP COBOL Manual for TNS and TNS/R Programs—522555-006
43-35
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