存储过程调存储过程实例

-- 创建table

create table tab_time(

current_time timestamp

);

create table tab_time2(

current_time timestamp

);

-- 创建存储过程

create or replace procedure pro_job_print

as

begin

--dbms_output.put_line('系统时间：' || to_char(sysdate, 'dd-mm-yyyy hh24:mi:ss'));

insert into tab_time values(sysdate);

end;

create or replace procedure pro_job_print2

as

begin

--dbms_output.put_line('系统时间：' || to_char(sysdate, 'dd-mm-yyyy hh24:mi:ss'));

insert into tab_time values(sysdate);

end;

-- 调用过程测试

call students.pro_job_print();

call students.pro_job_print2();

select a.*,a.rowid from tab_time a;

select a.*,a.rowid from tab_time2 a;

--方式1

create or replace procedure call_proc_all_test as

begin

pro_job_print();

pro_job_print2();

exception

when others then

dbms_output.put_line('SQL CODE:' || sqlcode || chr(10) || sqlerrm ||

chr(10) || dbms_utility.format_error_backtrace());

end;

call call_proc_all();

--存放存储过程信息的表 将需要调的存储过程名字及其他信息放到一张表里

create table students.proc_list(

ID Number(4) NOT NULL PRIMARY KEY,

proc_order number(4),

proc_name varchar2(200),

proc_desc varchar2(200),

proc_user varchar2(50)

)

--序列

CREATE SEQUENCE proc_list_sequence

INCREMENT BY 1 -- 每次加几个

START WITH 1 -- 从1开始计数

NOMAXVALUE -- 不设置最大值

NOCYCLE -- 一直累加，不循环

NOCACHE -- 不建缓冲区

select a.*,a.rowid from students.proc_list a;

insert into students.proc_list values (proc_list_sequence.nextval,1,'pro_job_print','打印表','students');

insert into students.proc_list values (proc_list_sequence.nextval,2,'pro_job_print2','打印表2','students');

--日志表的序列

CREATE SEQUENCE log_sequence

INCREMENT BY 1 -- 每次加几个

START WITH 1 -- 从1开始计数

NOMAXVALUE -- 不设置最大值

NOCYCLE -- 一直累加，不循环

NOCACHE -- 不建缓冲区

--调用存储过程 方式2

create or replace procedure call_proc as

v_name varchar2(200);

v_sql varchar2(4000);

cursor v_task is --声明游标

select proc_name from students.proc_list a order by a.proc_order desc;

begin

open v_task; --打开游标

--循环游标

loop

fetch v_task

into v_name; --取值

exit when v_task%notfound; --当没有记录时退出循环

dbms_output.put_line('proc_name=' || v_name);

v_sql := 'call ' || v_name || '()';

execute immediate v_sql;

end loop;

close v_task;

end;

select proc_name from students.proc_list a order by a.proc_order desc;

--创建日志表

create table students.call_proc_log(

ID Number(9) NOT NULL PRIMARY KEY,

excu_sql varchar2(2000),

exec_result varchar2(200),

exec_time date

)

call students.call_proc();

select a.*,a.rowid from tab_time a;

select * from tab_time2;

select * from students.call_proc_log;