从生产到测试,多张表但有相同的业务主键-存储过程的使用

PL/SQL Developer Test script 3.0
32
– Created on 2019/4/12 by ADMINISTRATOR
declare
– Local variables here
sqh0 varchar2(20) := ‘2017800396689’;
sql0 varchar2(200);

cursor cur_daiqingli is
SELECT * FROM USER_COL_COMMENTS col where col.column_name IN (
SELECT col.column_name FROM USER_COL_COMMENTS col where col.comments = ‘申请号’ group by col.column_name ,
‘ZHUANLISQH’ , ‘YEWUZTBH’
) ;
–定义游标变量
eachrowfj cur_daiqingli%rowtype;
begin
dbms_output.enable(10000000);
– Test statements here
open cur_daiqingli;
loop
begin
fetch cur_daiqingli
into eachrowfj;
exit when cur_daiqingli%notfound;
sql0 := ‘insert into ‘|| eachrowfj.table_name ||’ select * from ‘|| eachrowfj.table_name ||’@testUSER where ‘|| eachrowfj.column_name ||’ = ‘’’ || sqh0 || ‘’’’ ;
dbms_output.put_line( sql0 );
execute immediate sql0;
exception
when others then
dbms_output.put_line( DBMS_UTILITY.FORMAT_CALL_STACK || ‘’ || dbms_utility.format_error_backtrace || '’ ||DBMS_UTILITY.format_error_stack );
end;
end loop;
commit;
end;
0
0