Terminates the loop (while, for, or loop) in which it is directly nested.
Stat = "exit".
dcltrans transaction TInit var I : number; a : array[100] ofnumber; begin I := 1; loop a[i] := I; if I = 100 then exit end; I := I+1 end; end TInit;