DECLARE
TYPE cursor_ref_type IS REF CURSOR;
l_pscur cursor_ref_type;
l_sql VARCHAR2(2000);
p_data_level_id NUMBER DEFAULT 17703;
l_ext1 NUMBER;
BEGIN
IF (p_data_level_id = 17701)
THEN
l_sql := 'SELECT 1 FROM dual';
ELSIF (p_data_level_id = 17703)
THEN
l_sql := 'SELECT 2 FROM dual';
END IF;
OPEN l_pscur FOR l_sql;
FETCH l_pscur
INTO l_ext1;
CLOSE l_pscur;
IF (l_ext1 IS NOT NULL)
THEN
dbms_output.put_line(l_ext1);
END IF;
END;
来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/25684327/viewspace-692767/，如需转载，请注明出处，否则将追究法律责任。
上一篇：
Insert All多表插入用法
请登录后发表评论
登录
全部评论
