COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-85
Delimited-Scope Form
Figure 9-5. How the Delimited-Scope IF Statement Works
Exit
Enter
condition
?
FALSE
TRUE
Execute
statement-1
ELSE
phrase?
FALSE
Control passes
to end of IF
statement
Execute
statement-2
Control
returns to point
immediately after
last
statement-1
?
TRUE
Control
returns to point
immediately after
last
statement-2
?
FALSE
Control is
wherever last
statement-2
transferred it
Control is
wherever last
statement-1
transferred it
TRUE
TRUE
FALSE
VST530.vsd