CREATE OR REPLACE PROCEDURE backuporg
IS
-- declare fixed array
TYPE arry_var IS VARRAY(30) OF VARCHAR2(32);
tblnames arry_var;
v_sql varchar2(3999);
tblname varchar2(32);
tblexist number;
--set serveroutput on size 10000000000;
BEGIN
-- init array
tblnames := arry_var(
‘org_department‘,
‘org_user‘,
‘org_group‘,
‘org_duty‘,
‘org_job‘,
‘org_department_principal‘,
‘org_dept_principal‘,
‘org_department_role‘,
‘org_department_user_job‘,
‘org_user_job‘,
‘org_user_leader‘,
‘org_user_privilege‘,
‘org_user_role‘,
‘org_job_leader‘,
‘org_user_property‘,
‘org_user_login_log‘,
‘org_job_function‘,
‘org_group_nested_group‘,
‘org_employee‘,
‘org_employee_job‘,
‘org_duty_agent‘,
‘org_department_function‘,
‘org_department_employee_job‘,
‘org_group_user‘,
‘org_group_member‘,
‘org_group_job‘,
‘org_group_duty‘,
‘org_group_department‘,
‘org_duty_role‘,
‘org_job_role‘);
--dbms_output.put_line(tblname(1));
--dbms_output.put_line(tblname(2));
for i in 1..tblnames.count
loop
tblname := tblnames(i)||‘_x‘;
select count(1) into tblexist from all_tables where TABLE_NAME = upper(tblname) ;
if tblexist=1 then
v_sql:= ‘ drop table ‘||tblname;
dbms_output.put_line(v_sql);
execute immediate (v_sql);
end if;
if tblexist=0 then
dbms_output.put_line(tblname ||‘ 不存在‘);
end if;
v_sql:= ‘ create table ‘||tblname||‘ as select * from ‘||tblnames(i);
dbms_output.put_line(‘创建表‘||v_sql);
execute immediate (v_sql);
-- || ‘ create table ‘||tblname(i)||‘_bak as select * from ‘||tblname(i)||‘;‘;
end loop;
END backuporg;
/*
begin
backuporg();
end;
*/
CREATE OR REPLACE PROCEDURE restoreorg
IS
-- declare fixed array
TYPE arry_var IS VARRAY(30) OF VARCHAR2(32);
tblnames arry_var;
v_sql varchar2(3999);
tblname varchar2(32);
baktblname varchar2(32);
tblexist number;
BEGIN
-- init array
tblnames := arry_var(
‘org_department‘,
‘org_user‘,
‘org_group‘,
‘org_duty‘,
‘org_job‘,
‘org_department_principal‘,
‘org_dept_principal‘,
‘org_department_role‘,
‘org_department_user_job‘,
‘org_user_job‘,
‘org_user_leader‘,
‘org_user_privilege‘,
‘org_user_role‘,
‘org_job_leader‘,
‘org_user_property‘,
‘org_user_login_log‘,
‘org_job_function‘,
‘org_group_nested_group‘,
‘org_employee‘,
‘org_employee_job‘,
‘org_duty_agent‘,
‘org_department_function‘,
‘org_department_employee_job‘,
‘org_group_user‘,
‘org_group_member‘,
‘org_group_job‘,
‘org_group_duty‘,
‘org_group_department‘,
‘org_duty_role‘,
‘org_job_role‘);
--dbms_output.put_line(tblname(1));
--dbms_output.put_line(tblname(2));
for i in 1..tblnames.count
loop
tblname := tblnames(i)||‘_y‘;
select count(1) into tblexist from all_tables where TABLE_NAME = upper(tblname) ;
if tblexist=1 then
v_sql:= ‘ drop table ‘||tblname;--删除掉备份表
dbms_output.put_line(v_sql);
execute immediate (v_sql);
end if;
if tblexist=0 then
dbms_output.put_line(tblname ||‘ 不存在‘);
end if;
-- alter table
-- ORG_DEPT_PRINCIPAL_bak
--rename to
-- ORG_DEPT_PRINCIPAL_JOB
--将正式表重重名为带y备份表
v_sql:= ‘ alter table ‘||tblnames(i)||‘ rename to ‘|| tblname ;--将原有表备份起来
dbms_output.put_line(‘将正式表重名为带y备份表‘||v_sql);
execute immediate (v_sql);
baktblname := tblnames(i)||‘_x‘; --备份表
v_sql:= ‘ alter table ‘||baktblname||‘ rename to ‘|| tblnames(i);--将备份表还原
dbms_output.put_line(‘将备份表还原‘||v_sql);
execute immediate (v_sql);
end loop;
END restoreorg;
/*
begin
backuporg();
end;
*/