删除表（如果存在于DB2 / 400 SQL中）

Question

我的目标非常简单-如果表中有行，请将其删除。 尽管目前有几个类似的答案，但没有一个对我有用。

1. DB2删除表（如果存在）

建议的解决方案：

IF EXISTS (SELECT name FROM sysibm.systables WHERE name = 'mylib.mytable') THEN
DROP TABLE mylib.mytable;END IF;

结果：

SQL State: 42601 Vendor Code: -199 Message: [SQL0199] Keyword IF not expected.
Valid tokens: ( CL END GET SET CALL DROP FREE HOLD LOCK OPEN WITH ALTER BEGIN

2. 删除DB2表（如果存在）

建议的解决方案：

--#SET TERMINATOR @
begin
  declare statement varchar(128);
  declare continue handle for sqlstate '42710' BEGIN END;
  SET STATEMENT = 'DROP TABLE MYLIB.MYTABLE';
  EXECUTE IMMEDIATE STATEMENT;
end @

结果：

Message: [SQL0104] Token HANDLE was not invalid. Valid tokens: HANDLER Message: [SQL0104] Token HANDLE was not invalid. Valid tokens: HANDLER ；如果将handle替换为handler ：

Message: [SQL0199] Keyword STATEMENT not expected. Valid tokens: SQL PATH RESULT SCHEMA CURRENT CONNECTION DESCRIPTOR.

3. 从关于观点的答案

建议的解决方案：

DROP TABLE MY_TABLE ONLY IF EXISTS 源存在 DROP TABLE MY_TABLE ONLY IF EXISTS 。

结果：

Message: [SQL0104] Token ONLY was not invalid. Valid tokens: RESTRICT CASCADE

因此，我想知道是否存在替代解决方案。 CL解决方案也很有趣。

Answer 1

我假设您可能想要多次执行此操作，因此可能需要执行一个步骤。

CREATE or replace PROCEDURE   DROP_LIVE_TABLE
  (in  @table        varchar(10)   
  ,in  @library      varchar(10)
  )
BEGIN
  declare @stmt      varchar(100);
  declare @cnt       int;

  IF exists( select * from systables
               where sys_dname = @library
                 and sys_tname = @table
                 and table_type in ('P','T')
           ) THEN
    SELECT int(sum(number_rows))
      INTO @cnt
      from SYSTABLESTAT
        where sys_dname = @library
          and sys_tname = @table
      ;
    IF @cnt > 0 THEN
      set @stmt = 'DROP TABLE '||@library||'.'||@table||' CASCADE';
      execute immediate @stmt; 
    END IF;
  END IF;
  RETURN;
END;  

CASCADE关键字会导致所有相关对象（如索引，逻辑文件，视图等）也被删除。

Answer 2

这是此问题的CL答案：

         PGM        PARM(&FILENAME)

         DCL        VAR(&FILENAME) TYPE(*CHAR) LEN(10)
         DCL        VAR(&NUMRECS) TYPE(*DEC) LEN(10 0)

         RTVMBRD    FILE(&FILENAME) NBRCURRCD(&NUMRECS)
         IF         COND(&NUMRECS > 0) THEN(DLTF +
                      FILE(&FILENAME))

OUT:     ENDPGM

如果物理文件具有诸如索引或逻辑文件的依赖关系，则该解决方案将遇到麻烦。 这些依赖项必须首先删除。

另一方面，@ danny117的解决方案并非在所有环境中都适用。 例如，我无法强迫它在SQuirreL客户端中工作。 但是它确实可以在i Navigator中工作。 它也可以在RUNSQLSTM ，但是我无法确定如何使其与不合格的表引用一起使用。 如果表是不合格的， RUNSQLSTM使用了默认集合DFTRDBCOL 。 CURRENT_SCHEMA特殊寄存器不从DFTRDBCOL返回值。

这是使用复合语句的if表具有行将其丢弃的解决方案：

begin
  if( exists(
    select 1 from qsys2.systables
    where table_schema = 'MYLIB'
      and table_name = 'MYTABLE'
  )) then
    if( exists(
      select 1 from mylib.mytable
    )) then
      drop table mylib.mytable;
    end if;
  end if;
end;

我正在猜测您想要这样做的原因，但是如果允许创建新表，那么如果您使用的是IBM i v7.2或更高版本，则最好的方法可能是使用CREATE OR REPLACE TABLE 。

如果只想确保您有一个空表，则TRUNCATE （v7.2 +）或DELETE可能是更好的选择。

Answer 3

如果使用原子语句存在，则删除表。

BEGIN ATOMIC                  
IF( EXISTS(                   
SELECT 1 FROM TABLES           
WHERE TABLE_SCHEMA = 'MYLIB'   
AND TABLE_NAME = 'MYTABLE' 
)) THEN                       
DROP TABLE MYLIB/MYTABLE;   
END IF;                       
END;                          

Answer 4

尝试这个：

BEGIN    
   IF EXISTS (SELECT NAME FROM QSYS2.SYSTABLES WHERE TABLE_SCHEMA = 'YOURLIBINUPPER' AND TABLE_NAME = 'YOURTABLEINUPPER') THEN           
      DROP TABLE YOURLIB.YOURTABLE;                             
   END IF;                                                        
END  ;