移除Ebs中已经注册了的表 或 删除注册信息

  Ebs中有些功能是要去表注册到系统中去的,例如要制作弹性域.一般注册一个表作为一个Ebs开发人员基本都会,但是删除一个注册表接触得就不多了.

  下面给出一个删除表的匿名块:

DECLARE CURSOR cur_table IS SELECT at.table_name FROM all_tables at WHERE at.table_name IN ('table_name') AND at.owner = 'l_application_short_name'; CURSOR cur_col(p_table_name IN VARCHAR2) IS SELECT dtc.column_name ,dtc.data_type ,dtc.data_length ,dtc.nullable ,dtc.table_name FROM dba_tab_columns dtc WHERE dtc.table_name = p_table_name; l_application_short_name VARCHAR2(30) := 'CUX'BEGIN FOR t IN cur_table LOOP FOR c IN cur_col(t.table_name) LOOP ad_dd.delete_column('l_application_short_name', t.table_name, c.column_name ); END LOOP; ad_dd.delete_table('l_application_short_name', t.table_name); END LOOP; commit;END;

 

  移除一个表的注册信息:

DECLARE CURSOR cur_table IS SELECT at.table_name FROM all_tables at WHERE at.table_name IN ('table_name') AND at.owner = application_short_name CURSOR cur_col(p_table_name IN VARCHAR2) IS SELECT dtc.column_name ,dtc.data_type ,dtc.data_length ,dtc.nullable ,dtc.table_name FROM dba_tab_columns dtc WHERE dtc.table_name = p_table_name;BEGIN FOR t IN cur_table LOOP FOR c IN cur_col(t.table_name) LOOP ad_dd.delete_columnapplication_short_name t.table_name, c.column_name ); END LOOP; ad_dd.delete_table('application_short_name', t.table_name); END LOOP; commit;END;