Exiting from SQL script

Question

Hi,
How do you exit from an sql script?
e.g
DECLARE
VAR1 = VARCHAR2(10);
VAR2 = VARCHAR2(10);
BEGIN
VAR1 := 'hello';
VAR2 := 'world';
IF VAR1 != VAR2
THEN
DBMS_OUTPUT.PUT_LINE('Variables not equal');
## Exit here! <------- HOW?????
END IF;
END;
Cheers,
Warren

Answer 1

If I understand correctly, you have a series of anonymous PL/SQL blocks in a script. If some test fails in one of them, then you do not want to run the rest of the script.
If exiting sqlplus is an acceptable means of failing, then you can do something like:
WHENEVER SQLERROR EXIT 1;
DECLARE
v1 VARCHAR2(20);
v2 VARCHAR2(20);
BEGIN
   v1 := 'ABCDE';
   v2 := 'FBCDE';
   IF v1 <> v2 THEN
      DBMS_OUTPUT.Put_Line('Variables Not Equal');
      RAISE NO_DATA_FOUND;
   END IF;
END;
DECLARE
v3 VARCHAR2(20);
BEGIN
   v3 := 'Second Block';
END;
/in your script. As shown, the script will exit sqlplus without executing the second block. You can use any sql error instead of no data found.
Another possibility if exiting sqlplus is not acceptable would be to do something like this in your script:
VARIABLE failed NUMBER;
DECLARE
v1 VARCHAR2(20);
v2 VARCHAR2(20);
BEGIN
   :failed := 0;
   v1 := 'ABCDE';
   v2 := 'FBCDE';
   IF v1 <> v2 THEN
      DBMS_OUTPUT.Put_Line('Variables Not Equal');
      :failed := 1;
      RETURN;
   END IF;
END;
DECLARE
v3 VARCHAR2(20);
BEGIN
   IF :failed = 0 THEN
      v3 := 'Second Block';
   END IF;
END;
/Note, the IF :failed = 0/END IF block should cover all the code in each subsequent anonymous block.
A third approach would be to re-write the series of anonymous blocks as a package, then create a small driver script to call each procedure in turn unless one returns an error.
TTFN
John