PERFORM-TYPE

Specifies the behavior of return jumps from nested PERFORM statements.

>>-.---.--PERFORM-TYPE--"dialect"----------><
   +-/-+

dialect

One of:

MF	Only the exit point of the innermost PERFORM currently being executed is recognized and its return jump taken.
RM	The exit point of any PERFORM statement currently being executed is recognized if reached; the return jump taken is the first reached. PERFORM statements with the same exit point cannot be nested; if they are they do not return correctly. The end of a section is regarded as a separate point from the end of its last paragraph.
COB370, ENTCOBOL, OSVS, VSC2	The exit point of any PERFORM statement currently being executed is recognized if reached; the return jump taken is the first reached. PERFORM statements with the same exit point can be nested to a depth of two (one inner and one outer). If they are nested deeper, they do not return correctly. The end of a section is regarded as a separate point from the end of its last paragraph. PERFORM-TYPE"COB370" provides compatibility with the mainframe behavior of COBOL/370. PERFORM-TYPE"ENTCOBOL" provides compatibility with the mainframe behavior of Enterprise COBOL. PERFORM-TYPE"OSVS" provides compatibility with the mainframe behavior of OS/VS COBOL and DOS/VS COBOL. PERFORM-TYPE"VSC2" provides compatibility with the mainframe behavior of VS COBOL II.

Default:	PERFORM-TYPE"MF" (All mainframe dialects)
Phase:	Syntax check
$SET:	Initial

PERFORM-TYPE"OSVS" sets TRICKLE at end.

Restriction: PERFORM-TYPE "OSVS", PERFORM-TYPE "VSC2" and PERFORM-TYPE "COB370" are supported in native COBOL only.