DECLARE TYPE name_list IS TABLE OF VARCHAR2(40); TYPE type_list IS TABLE OF VARCHAR2(20); Tab_name name_list:=name_list(); Tab_type type_list:=type_list(); sql_str VARCHAR2(500); BEGIN sql_str := 'select uo.object_name,uo.object_type from
DECLARETYPE name_list IS TABLE OF VARCHAR2(40);TYPE type_list IS TABLE OF VARCHAR2(20);Tab_name name_list:=name_list();Tab_type type_list:=type_list();sql_str VARCHAR2(500);BEGINsql_str := 'select uo.object_name,uo.object_type from user_objects uo where uo.object_type not in(''INDEX'',''LOB'') order by uo.object_type desc';%E3%80%91ile/Collfiles/20141229/2014122909313146.gif)
EXECUTE IMMEDIATE sql_str BULK COLLECT INTO tab_name,tab_type;FOR i IN Tab_name.FIRST.. Tab_name.LAST LOOPsql_str := 'DROP ' || Tab_type(i) || ' ' || Tab_name(i);EXECUTE IMMEDIATE sql_str;END LOOP;END;
