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;