如何在发生错误时退出 SQLPlus 中的脚本并返回 SQLPlus 提示符，而不断开或退出 SQLPlus？

Question

我有一些脚本经常在连接的 SQLPlus 会话中运行。

我需要一种在发生错误时退出脚本的方法， 不会断开或退出 SQLPlus 本身。 100% 的情况下，当发生错误时，连接的 DBA 将需要向会话发出一个或多个命令。 100% 的时间，当发生错误时，稍后在脚本中会有其他 SQLPlus 语句（因此 必须 在BEGIN..END; 之外）不得执行，否则可能会出现严重问题。

注意：如果您建议WHENEVER SQLERROR EXIT，那么您没有阅读上述文字。这将断开并退出 SQLPlus 除了脚本，这是不可接受的行为。

Answer 1

我发现了一个有趣的想法here，当与spencer7593 的答案结合使用时，我可以选择性地调用子脚本，我可以将PL/SQL 输出值传递给它。也就是说：

VAR continue number;
EXEC :continue := 1;
BEGIN
   SELECT some_bool_test() INTO :continue FROM dual;
END;

SET termout OFF
COLUMN script_name NEW_VALUE v_script_name
SELECT decode(:continue, 1, 'run_stuff.sql', 'skip.sql') script_name FROM dual;
SET termout ON

@&v_script_name :some_other_values

其中skip.sql 是一个空文本文件。

更新：我已将其中的大部分内容移至 RUN.SQL 文件中，在该文件中我将布尔值（0 或 1）作为 &1 传递，调用成功的脚本名称为&2，然后是传递给被调用脚本的任何其他预期参数。因此，它最终看起来像这样：

VAR continue number;
EXEC :continue := 1;
BEGIN
   SELECT some_bool_test() INTO :continue FROM dual;
END;

@run.sql :continue 'run_stuff.sql' :some_other_values

Answer 2

这是不可能的。

SQLPlus 不提供对脚本执行的那种级别的控制。

显然，您需要避免使用WHENEVER SQLERROR EXIT ... 命令。

由于使用 PL/SQL 引发的异常（错误），可以有条件地控制哪些 SQL 语句执行或不执行。但这并没有解决 SQLPlus 命令（不能从 PL/SQL 块中执行）。

DECLARE
  lb_continue BOOLEAN;
BEGIN
  lb_continue := TRUE;
  BEGIN 

    sql statement

  EXCEPTION
    WHEN OTHERS THEN
      lb_continue = FALSE;
  END;
  IF lb_continue THEN
  BEGIN

    sql statements

  EXCEPTION
    WHEN OTHERS THEN
      lb_continue := FALSE;
  END; 
END;

当然，这种方法有其自身的局限性和问题。任何 DDL 语句都需要动态调用；最简单的方法是EXECUTE IMMEDIATE statement。

最大的问题（就您而言）是无法从 PL/SQL 块内执行 SQLPlus 命令。

Answer 3

您不能退出脚本并停留在 SQL*Plus 中，但可以停止执行。这不是很漂亮，但假设您可以修改脚本以添加控制流，那么您可以使用绑定变量来做到这一点。

set serveroutput on

var flag char;
exec :flag := 'Y';

begin
    if :flag != 'Y' then
        raise program_error;
    end if;
    dbms_output.put_line('Doing some work');
    /* Check for some error condition */
    if 0 != 1 then
        raise program_error;
    end if;
    /* Only reach this if earlier statements didn't fail
     * but could wrap in another flag check if needed */
    dbms_output.put_line('Doing some more work');
    exception
        when program_error then
            dbms_output.put_line(sqlerrm);
            :flag := 'N';
        when others then
            /* Real exception handling, obviously */
            dbms_output.put_line(sqlerrm);    
            :flag := 'N';
end;
/

-- DML only does anything if flag stayed Y
select sysdate from dual
where :flag = 'Y';

-- Optional status message at the end of the script, for DBA info
set feedback off
set head off
select 'Something went wrong' from dual where :flag != 'Y';
set feedback on
set head on

执行时：

SQL> @script

PL/SQL procedure successfully completed.

Doing some work
ORA-06501: PL/SQL: program error

PL/SQL procedure successfully completed.


no rows selected


Something went wrong
SQL> 

脚本中的任何 PL/SQL 块都可以在开始时检查标志状态，并引发program_error（就像一个方便的预定义异常）以跳出。 PL/SQL 块中的任何错误都可以直接或在异常处理程序中更新绑定变量标志。并且任何非 PL/SQL DML 都可以有一个额外的 where 子句来检查标志状态，因此如果在到达该语句时它已设置为 N，则不会进行任何工作。 （对于insert，我想这意味着不使用values 表单）。

这不能做的是处理任何错误来自普通 SQL 语句，但我不确定这是否是一个问题。如果是，那么可能需要将这些更改为 PL/SQL 块内的动态 SQL。

Answer 4

我知道它很旧，但是 SQL 脚本开头的这两条指令可以完成工作：

当 SQLERROR 退出失败回滚时

当 OSERROR 退出失败回滚时