Oracle过程的使用，调用函数，调用过程，使用游标

1、创建通常的过程：

create or replace procedure 过程名
(

--定义参数,格式(参数名 进出类型(in,out,inout) 数据类型,)
p_kh in t_djls.kh%type, --卡号
p_id in t_kcsm.id%type, --输入id
p_sm out t_kcsm.sm%type, --返回书名
p_dj out t_kcsm.dj%type, --定价
p_bbmc out t_kcsm.bbmc%type, --版别名称
p_kycs out t_kcsl.kccs%type, --可用册数
p_flowid out t_dpls.flowid%type, --订单流水号
p_sjcs out t_dpls.sjcs%type, --订单册数
p_qhcs out t_dpls.qhcs%type, --期货册书
p_gcbj out number, --是否有馆藏库存 1有，0没有
p_gcsl out t_gckc.gcsl%type, ---返回图书馆管仓库存
p_ccbj out number,--返回同一个下游客户之间的查重，有重复为1，没有重复为0
p_ccts out varchar2,--返回查重信息。包含数量和卡号
p_errcode out number, --错误代码0返回成功，-3没有可用库存，1已有采购信息修改，-4没有可用的书目信息
p_errtext out varchar2 --错误内容
) is
/*
得到可用库存和书目信息
2008-03-03
ljg
*/

--定义过程内参数,一般只为临时使用 格式(参数名 数据类型;)
v_uhlx t_kcsm.uhlx%type := '0002'; --货权
v_progress varchar2(200); --进度信息
v_ddcs t_kcsl.kccs%type; --订单册数
v_isbn t_kcsm.isbn%type; --书目的ISBN
v_dh t_djls.dh%type; --中盘店号
v_xydh t_djls.xydh%type; --下游店号
v_gcsl t_gckc.gcsl%type; --馆藏数量
v_gcbj t_xydm.gcbj%type; --馆藏标记
v_kccs t_kcsl.kccs%type; --库存册数
v_kycs t_kcsl.kccs%type; --可用册数
v_othercs t_kcsl.kccs%type;---其他卡下单册书
v_otherkh t_djls.kh%type;-----其他卡卡号
v_djlsh t_dpls.djlsh%type; --单据流水号
v_zt t_djls.zt%type; --卡号状态
v_tjbj t_djls.tjbj%type; --提交标记
v_sjcs t_dpls.sjcs%type; --原订单册数
v_qhcs t_dpls.qhcs%type; --订单期货册书
v_flowid t_dpls.flowid%type; --订单流水号
v_flag number := 1; --是否订过该品种
begin

--开始执行各种操作
end;

v_progress := '图书ID:' || p_id;
--判断卡号是否为空
if p_kh is null then
p_errcode := -2;
p_errtext := '卡号为空';
return;
end if;
--判断ID是否为空
if p_id is null then
p_errcode := -2;
p_errtext := '图书ID为空';
return;
end if;
--判断是否登记
begin
select td.flowid, nvl(td.zt, '0'), nvl(td.tjbj, '0'), td.dh, td.xydh,
nvl(tx.gcbj, '0')
into v_djlsh, v_zt, v_tjbj, v_dh, v_xydh, v_gcbj
from t_djls td, t_xydm tx
where td.xydh = tx.bh
and td.kh = p_kh;
exception
when NO_DATA_FOUND then
p_errcode := -2;
p_errtext := p_kh || '没有登记';
return;
end;
--判断是否登陆
if trim(v_zt) <> '1' then
p_errcode := -2;
p_errtext := p_kh || '没有登陆';
return;
end if;
--判断是否提交订单
if trim(v_tjbj) = '1' then
p_errcode := -2;
p_errtext := '该卡号已经提交订单,不能进行添加或修改';
return;
end if;
--库存册数
begin
select min(t_kcsm.sm), min(t_kcsm.dj), min(t_kcsm.bbmc), min(t_kcsm.tm),
nvl(sum(nvl(t_kcsl.kccs, 0) + nvl(t_kcsl.jkc, 0)), 0)
into p_sm, p_dj, p_bbmc, v_isbn, v_kccs
from t_kcsm, t_kcsl
where t_kcsm.uhlx = t_kcsl.uhlx
and t_kcsm.id = t_kcsl.id
and t_kcsm.uhlx = v_uhlx
and t_kcsm.id = p_id;
exception
when NO_DATA_FOUND then
p_errcode := -4;
p_errtext := v_progress || ' 没有满足条件的信息';
return;
end;
if p_sm is null then
p_errcode := -4;
p_errtext := v_progress || ' 没有满足条件的信息';
return;
end if;
--订单册数
begin
select nvl(sum(sjcs), 0)
into v_ddcs
from t_dpls
where uhlx = v_uhlx
and id = p_id;
exception
when NO_DATA_FOUND then
v_ddcs := 0;
end;
v_kycs := v_kccs - v_ddcs; --可用库存册数
v_kycs := GREATEST(v_kycs, 0); --取最大值
p_kycs := v_kycs;
--判读是否已经订过该品种
begin
v_flag := 1;
select nvl(sjcs, 0), flowid, nvl(qhcs, 0)
into v_sjcs, v_flowid, v_qhcs
from t_dpls
where djlsh = v_djlsh
and id = p_id;
exception
when NO_DATA_FOUND then
v_flag := 0;
v_flowid := 0;
v_sjcs := 0;
v_qhcs := 0;
end;
--读取该客户的馆藏库存
if v_gcbj = '1' then
begin
p_gcbj := 1;
select nvl(gcsl, 0)
into v_gcsl
from t_gckc
where t_gckc.dm = v_dh
and t_gckc.xydm = v_xydh
and t_gckc.isbn = v_isbn;
exception
when NO_DATA_FOUND then
p_gcbj := 0;
v_gcsl := 0;
end;

else
p_gcbj := 0;
v_gcsl := 0;
end if;

/* 2008-04-21修改，加参数 查重标记number（out），返回信息varchar2（out）
*/
--按下游客户进行查重
begin
select nvl(max(sjcs + qhcs), 0), max(kh)
into v_othercs, v_otherkh
from t_dpls
where dh = v_dh
and xydh = v_xydh
and id = p_id
and kh <> p_kh;
exception
when NO_DATA_FOUND then
p_ccbj := 0;
p_ccts := '没有查重数据';
end;
if v_othercs = 0 then
p_ccbj := 0;
p_ccts := '没有查重数据';
else
p_ccbj := 1;
p_ccts := '你馆卡号' || v_otherkh || '已经采购该书' || v_othercs || '册';
end if;

--库存小于等于0,判读卡是否已经采购该书目
if v_kycs <= 0 then
if v_flag = 0 then
p_errtext := v_progress || ' 没有可用库存';
p_errcode := -3;
p_gcsl := v_gcsl;
return;
end if;
end if;
p_flowid := v_flowid;
p_gcsl := v_gcsl;
p_sjcs := v_sjcs;
p_qhcs := v_qhcs;
p_errcode := v_flag;
return;
exception
when others then
rollback;
p_errcode := -1;
p_errtext := '进度信息:' || v_progress || '错误信息:' || sqlerrm;
return;

2.在过程中调用函数

假定先创建函数(判断是否为数字类型,是,返回1,非返回0)

create or replace function IS_NUMBER(p_string varchar2) return number is
/*
判断是否为数字
返回值: 0--非数字 1--数字
ljg
2008-04-18
*/
v_number number;
begin
v_number := TO_NUMBER(nvl(p_string, 'ABC'));
return 1;
exception
when others then
return 0;
end;

再调用;

过程头......

if is_number(v_tm) = 0 then
p_tm := v_isbn;
p_errcode := 0;
return;

过程尾.....

3.在过程中调用过程

SS_C001_ISBN2TM(p_isbn => v_isbn,
p_tm => v_tm,
p_errcode => p_errcode,
p_errtext => p_errtext);