oracle去掉 tab,去除Oracle中所有表、视图和列的注释存储过程

create or replace procedure PRO_DROP_COMMENT is

CURSOR C_TABLE_COLUMN IS

SELECT * FROM USER_TAB_COLUMNS;

CURSOR C_TABLE IS

SELECT * FROM USER_TABLES;

CURSOR C_VIEW IS

SELECT * FROM USER_VIEWS;

SQL_DROP_COMMENT STRING(100);

begin

FOR R_C IN C_TABLE_COLUMN LOOP

SQL_DROP_COMMENT := 'COMMENT ON COLUMN ' || R_C.TABLE_NAME || '.' ||

R_C.COLUMN_NAME || ' IS ' || '''''';

EXECUTE IMMEDIATE SQL_DROP_COMMENT;

END LOOP;

FOR R_C IN C_TABLE LOOP

SQL_DROP_COMMENT := 'COMMENT ON TABLE ' || R_C.TABLE_NAME || ' IS ' || '''''';

EXECUTE IMMEDIATE SQL_DROP_COMMENT;

END LOOP;

FOR R_C IN C_VIEW LOOP

SQL_DROP_COMMENT := 'COMMENT ON TABLE ' || R_C.VIEW_NAME || ' IS ' || '''''';

EXECUTE IMMEDIATE SQL_DROP_COMMENT;

END LOOP;

end PRO_DROP_COMMENT;