DROP TABLE IF EXISTS 相当于 SAS 中的 TERADATA

Question

我正在努力避免错误：

ERROR: Teradata execute: Object 'MY_TABLE' does not exist.

从 SAS 执行 TERADATA SQL 时

这是我正在使用的原始 SAS 代码：

proc sql;
    connect to TERADATA (user='my_user' password=XXXXXXXXXX MODE=TERADATA TDPID='bdpr');
    execute(database MY_DB) by TERADATA;
    execute(Drop table MY_TABLE;) by TERADATA;
    disconnect from TERADATA;
quit;

根据文档，

.SET ERRORLEVEL 3807 SEVERITY 0

应该可以解决我的问题。

我尝试在我的

DROP TABLE

语句之前插入以下内容：

execute(.SET ERRORLEVEL 3807 SEVERITY 0) by TERADATA;

execute(ECHO '.SET ERRORLEVEL 3807 SEVERITY 0') by TERADATA;

我尝试将两者结合起来：

execute(ECHO '.SET ERRORLEVEL 3807 SEVERITY 0'; Drop table MY_TABLE;) TERADATA;

没有

ECHO

的调用出现语法错误，或者在尝试

ECHO

变体时对错误没有影响。

问题是

.SET ERRORLEVEL

不是SQL语句而是BTEQ命令。根据文档，应该可以使用

ECHO

构造从标准 TERADATA SQL 执行 BTEQ 命令。但从 SAS 来看，这似乎不起作用。

我只需要一个解决方案来避免 SAS 错误，SAS 端解决方案以及 TERADATA 解决方案对我来说都可以。

Answer 1

为什么不询问 Teradata 表是否存在，然后让 SAS 有条件地运行删除？

%let tablekind=NONE;
select obj into :tablekind trimmed from connection to teradata
  (select case when (tablekind in ('T','O')) then 'TABLE'
          else 'VIEW' end as obj
    from dbc.tablesv
    where databasename = 'MY_DB' and tablename= 'MY_TABLE'
      and tablekind in ('V','T','O')
  )
;
%if &tablekind ne NONE %then %do;
  execute(drop &tablekind. MY_DB.MY_TABLE;) by teradata;
%end;

Answer 2

我不知道从 SAS 创建 SP 的语法，但我怀疑您是否有权这样做。

您可能会要求 DBA 安装以下 SP，它会删除任何类型的表（包括 Volatile）。

--Drop a table without failing if the table doesn’t exist:
REPLACE PROCEDURE drop_table_if_exists
(
  /* database name, uses default database when NULL.
     Must be calling user for Volatile Tables
  */
  IN db_name VARCHAR(128) CHARACTER SET Unicode, 
  
  /* table name */
  IN tbl_name VARCHAR(128) CHARACTER SET Unicode,
  
  OUT msg VARCHAR(400) CHARACTER SET Unicode
) SQL SECURITY INVOKER – check the rights of the calling user
BEGIN
   DECLARE full_name VARCHAR(361)  CHARACTER SET Unicode;
   DECLARE sql_stmt VARCHAR(500)  CHARACTER SET Unicode;
   
   DECLARE exit HANDLER FOR SqlException
   BEGIN
      -- catch "table doesn't exist" error
      IF SqlCode = 3807 THEN SET msg = full_name || ' doesn''t exist.';
      ELSE
        -- fail on any other error, e.g. missing access rights or wrong object tye
        RESIGNAL;
      END IF;
   END;

   SET full_name = '"' || Coalesce(db_name,DATABASE) || '"."' || Coalesce(tbl_name,'') || '"';

   SET sql_stmt = 'DROP TABLE ' || full_name || ';';

   EXECUTE IMMEDIATE sql_stmt;

   SET msg = full_name || ' dropped.';
END;

Answer 3

如果您将其作为过程调用运行，也许这可以帮助您：

replace procedure drop_if_exists( in_object varchar(50)) 
begin
  IF EXISTS(SELECT 1 FROM dbc.tables WHERE tablename = in_object 
    and databasename='<your database name>') THEN
    CALL DBC.SysExecSQL('DROP TABLE ' || in_object);
  END IF;
END;

并通过 sas 调用此：

execute (call drop_if_exists(MY_TABLE);) by TERADATA;

编辑：SAS 调用的过程创建

proc sql;
    connect using DBCONN;
    execute(
replace procedure drop_if_exists( in_object varchar(50)) 
begin
  IF EXISTS(SELECT 1 FROM dbc.tables WHERE tablename = in_object 
    and databasename='<my database>') THEN
    CALL DBC.SysExecSQL('DROP TABLE ' || in_object);
  END IF;
END;
    ) by DBCONN;
    disconnect from DBCONN;
quit;