去除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;