CREATE OR REPLACE Procedure Create_Synonym Authid Current_User Is
Sun Varchar2(1000);
i Number;
Begin
For i In (Select Table_Name From Dba_Tables Where Owner = 'NEWWSS') Loop
Begin
Sun := i.Table_Name;
Execute Immediate 'create or replace synonym WSS_' || Sun ||
' for NEWWSS.' || Sun || '@WSS_LINK.US.ORACLE.COM';
Exception
When Others Then
Null;
End;
End Loop;
End Create_Synonym;
posted on 2007-10-24 11:05
xzc 阅读(2187)
评论(0) 编辑 收藏 所属分类:
Oracle