--建包
createorreplacepackage PA_BGYZB as
type sp_cursor is ref cursor;
end PA_BGYZB;
--存储过程调用包
create or replace procedure PRO_GETYFBGYZB(jgidInput in varchar2,yfsbInput in varchar2,--输入变量
bgyzb_cursor out PA_BGYZB.sp_cursor
) as
ypxh1 NUMBER( 18);
ypcd1 NUMBER( 18);
ypsl1 NUMBER( 10,4 );
ypgg1 VARCHAR2( 200);
lsje1 NUMBER( 12,4 );
begin
open bgyzb_cursor for select a.ypxh as YPXH,a.YPCD,a.ypsl,b.yfgg,a.lsje
into ypxh1,ypcd1,ypsl1,ypgg1,lsje1
from yf_kcmx a,yf_ypxx b
where a.jgid = b.jgid
and a.yfsb = b.yfsb
and a.ypxh = b.ypxh
and a.jgid = jgidInput
and a.yfsb = yfsbInput;
end PRO_GETYFBGYZB;
@H_403_3@
总结
如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。