Exit Statement

Terminates the loop (while, for, or loop) in which it is directly nested.

Syntax

Stat = "exit".

Example

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;