达梦数据库删除所有的表和序列的存储过程

-- 删除所有的表
DECLARE
        OWNER     VARCHAR(20) := 'QIUCHANGJIN';
        TAB_NAME VARCHAR(100);
        SQL1     VARCHAR(500);
        SQL2     VARCHAR(500);
        C1
        CURSOR;
        BEGIN
                SQL1 = 'SELECT TABLE_NAME FROM DBA_TABLES WHERE OWNER = '''||OWNER||''';';
                OPEN C1 FOR SQL1;
                LOOP
                        FETCH C1 INTO TAB_NAME;
                EXIT
        WHEN C1%NOTFOUND;
                SQL2 = 'DROP TABLE "' || OWNER || '"."' ||TAB_NAME || '";' ;
                EXECUTE IMMEDIATE SQL2;
        END LOOP;
        CLOSE C1;
END
-- 删除所有的序列  
DECLARE
        OWNER     VARCHAR(20) := 'QIUCHANGJIN';
        TAB_NAME VARCHAR(100);
        SQL1     VARCHAR(500);
        SQL2     VARCHAR(500);
        S1
        CURSOR;
        BEGIN
                SQL1 = 'SELECT SEQUENCE_NAME FROM DBA_SEQUENCES WHERE SEQUENCE_OWNER = '''||OWNER||''';';
                OPEN S1 FOR SQL1;
                LOOP
                        FETCH S1 INTO TAB_NAME;
                EXIT
        WHEN S1%NOTFOUND;
                SQL2 = 'DROP SEQUENCE "' || OWNER || '"."' ||TAB_NAME || '";' ;
                EXECUTE IMMEDIATE SQL2;
        END LOOP;
        CLOSE S1;
END