Подскажите пжалста, как корректно составить запрос. Нужно дропнуть таблицу в случае, если она создана.

Вот такой вот запрос выдает Function sequence error =(

IF ( EXISTS (SELECT * FROM SYSCAT.TABLES WHERE TABSCHEMA = 'FK_02' AND TABNAME = 'T_DT';) )
DROP TABLE FK_02.T_DT;
END IF;

Да, к сожалению, ничего не работает.
Спасибо, Victor.

Victor Metelitsaвот это компилится:
причем по сравнению с предыдущим
1. create procedure - обязательно.
2. FETCH FIRST 1 ROW ONLY вместо FETCH 1 FIRST ROW ONLY
3. SET s = 'DROP TABLE FK_02.T_DT';
EXECUTE IMMEDIATE s;
вместо
EXECUTE IMMEDIATE 'DROP TABLE FK_02.T_DT';

а SELECT 1 "для красоты"

Вах! Спасибо! Однако как сложно все...

Еще раз большое спасибо! Надо, конечно, читать документацию... Только времени нет =(

Хммм... вернемся к теме. Вот чего в итоге получилось. Может пригодится кому... Можно и через case - будет быстрее, но тогда с одним вариантом определения на тип объекта.




CREATE PROCEDURE DROPPER (IN obj_type VARCHAR(255), IN obj_schema VARCHAR(255), IN obj_name VARCHAR(255))
/*
* Drops schema object by its type.
* If object is not exists, error is not raised.
*/
BEGIN ATOMIC
DECLARE i INTEGER;
DECLARE o_type VARCHAR(255);
DECLARE s VARCHAR(255);

SET o_type = LTRIM(RTRIM(LCASE(obj_type)));

IF o_type IN ('t', 'tab', 'table', 'q', 'que', 'query', 'query table')
THEN BEGIN
SET o_type = ' TABLE ';
SET i=(SELECT 1
FROM SYSCAT.TABLES
WHERE TABSCHEMA = obj_schema AND TABNAME = obj_name
FETCH FIRST 1 ROW ONLY);
END;
ELSEIF o_type IN ('v', 'vie', 'view')
THEN BEGIN
SET o_type = ' VIEW ';
SET i=(SELECT 1
FROM SYSCAT.VIEWS
WHERE VIEWSCHEMA = obj_schema AND VIEWNAME = obj_name
FETCH FIRST 1 ROW ONLY);
END;
ELSEIF o_type IN ('a', 'ali', 'alias')
THEN BEGIN
SET o_type = ' ALIAS ';
SET i=(SELECT 1
FROM SYSCAT.TABLES
WHERE TABSCHEMA = obj_schema AND TABNAME = obj_name
FETCH FIRST 1 ROW ONLY);
END;
ELSEIF o_type IN ('f', 'fn', 'fun', 'func', 'function')
THEN BEGIN
SET o_type = ' FUNCTION ';
SET i=(SELECT 1
FROM SYSCAT.ROUTINES
WHERE ROUTINESCHEMA = obj_schema AND ROUTINENAME = obj_name
FETCH FIRST 1 ROW ONLY);
END;
ELSEIF o_type IN ('p', 'pro', 'proc', 'procedure')
THEN BEGIN
SET o_type = ' PROCEDURE ';
SET i=(SELECT 1
FROM SYSCAT.ROUTINES
WHERE ROUTINESCHEMA = obj_schema AND ROUTINENAME = obj_name
FETCH FIRST 1 ROW ONLY);
END;
ELSEIF o_type IN ('i', 'ind', 'idx', 'index')
THEN BEGIN
SET o_type = ' INDEX ';
SET i=(SELECT 1
FROM SYSCAT.INDEXES
WHERE INDSCHEMA = obj_schema AND INDNAME = obj_name
FETCH FIRST 1 ROW ONLY);
END;
ELSEIF o_type IN ('tr', 'tri', 'trig', 'trigger')
THEN BEGIN
SET o_type = ' TRIGGER ';
SET i=(SELECT 1
FROM SYSCAT.TRIGGERS
WHERE TRIGSCHEMA = obj_schema AND TRIGNAME = obj_name
FETCH FIRST 1 ROW ONLY);
END;
ELSEIF o_type IN ('typ', 'type', 'datatype')
THEN BEGIN
SET o_type = ' DISTINCT TYPE ';
SET i=(SELECT 1
FROM SYSCAT.DATATYPES
WHERE TYPESCHEMA = obj_schema AND TYPENAME = obj_name
FETCH FIRST 1 ROW ONLY);
END;
ELSEIF o_type IN ('s', 'seq', 'sequence')
THEN BEGIN
SET o_type = ' SEQUENCE ';
SET i=(SELECT 1
FROM SYSCAT.SEQUENCES
WHERE SEQSCHEMA = obj_schema AND SEQNAME = obj_name
FETCH FIRST 1 ROW ONLY);
END;
ELSE
BEGIN
END;
END IF;

IF i=1 THEN
SET s = 'DROP ' || o_type || obj_schema || '.' || obj_name;
EXECUTE IMMEDIATE s;
END IF;
END;