declare
vcomment varchar2(200);
cursor c1 is selecttname from tab where tabtype='TABLE';
cursor c2 is selecttable_name,comments from USER_TAB_COMMENTS;
begin
for i in c1 loop
for j in c2 loop
if i.tname = j.table_name then
select replace(j.comments,'--',':') into vcomment from dual;
execute immediate 'comment on table '||j.table_name||' is '''||vcomment||'''';
end if;
end loop;
end loop;
end;
