建站
咨詢
售后
建站咨詢
新聞中心
Oracle存儲(chǔ)過(guò)程對(duì)于Oracle數(shù)據(jù)庫(kù)中的重要性毋庸置疑，下面就為您介紹一個(gè)Oracle存儲(chǔ)過(guò)程的使用實(shí)例，希望對(duì)您學(xué)習(xí)Oracle存儲(chǔ)過(guò)程有更多的了解。
大寧網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián)公司,大寧網(wǎng)站設(shè)計(jì)制作，有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為大寧上1000+提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設(shè)要多少錢(qián)，請(qǐng)找那個(gè)售后服務(wù)好的大寧做網(wǎng)站的公司定做！
最近在寫(xiě)一個(gè)項(xiàng)目中所用的Oracle存儲(chǔ)過(guò)程，由于是***次接觸oracle，其間花費(fèi)了許多功夫，才把功能實(shí)現(xiàn)！特記錄下來(lái)，以供參考.
create or replace package PSH_GPRSSTREAMSTAT is
-- Author : ADMINISTRATOR
-- Created : 2004-12-8 10:56:01
-- Purpose : GPRS流量統(tǒng)計(jì)狀態(tài)
-- 統(tǒng)計(jì)GPRS流量
type
C_Cur is ref cursor;
function Calcu_GPRSSTREAM return number;
end PSH_GPRSSTREAMSTAT;
-----------------------------------------------------------------------------
create or replace package body PSH_GPRSSTREAMSTAT is
function Calcu_GPRSSTREAM return number
is
c_IPPackHeadLen constant number := 40; -- 定義IP包頭長(zhǎng)度
CURSOR c_SPINFO is
select distinct spid from sh_spinfo where isactive = '0';
c_MDTINFO C_Cur ;
v_MDTINFO number;
v_UpTransContentLens number(20,0); -- 存放當(dāng)前GPRS終端上傳轉(zhuǎn)發(fā)的信息內(nèi)容長(zhǎng)度
v_UpContentLens number(20,0);
v_UpTotalLens number(20,0); -- 累計(jì)GPRS終端上傳的信息內(nèi)容長(zhǎng)度
v_DownContentLens number(20,0);
v_DownTotalLens number(20,0);
newID number(20,0);
begin
-- 初始化
select max(statid) into newID from sh_gprsstreamstat;
if (newID is null) then
newID := 1;
end if;
for v_SPINFO In c_SPINFO loop -- 首先獲取SPID
-- 其次遍歷出與當(dāng)前SPID對(duì)應(yīng)的所有MDT
open c_MDTINFo for select distinct mdtid from sh_mdtinfo where (isactive = '0') and (spid = v_SPINFO.spid);
loop
fetch c_MDTINFO into v_MDTINFO;
exit when c_MDTINFO%notfound;
v_UpContentLens := 0;
v_UpTransContentLens := 0;
v_UpTotalLens := 0;
v_DownContentLens := 0;
v_DownTotalLens := 0;
-- 下面兩個(gè)select語(yǔ)句是用來(lái)獲得GPRS終端上傳的信息流量
select sum(length(content) + c_IPPackHeadLen) into v_UpContentLens from sh_gprsmdtupinfo where (MDTID = v_MDTINFO) and (spid = v_SPINFO.spid) ;
select sum(length(content) + c_IPPackHeadLen) into v_UpTransContentLens from sh_gprsmdttransinfo where (issuccess = '1') and (MDTID = v_MDTINFO) and (spid = v_SPINFO.spid) ;
if (v_UpContentLens is null) then
v_UpContentLens := 0;
end if;
if (v_UpTransContentLens is null) then
v_UpTransContentLens := 0;
end if;
v_UpTotalLens := v_UpTotalLens + v_UpContentLens + v_UpTransContentLens;
-- 下面的Select語(yǔ)句是用來(lái)獲得服務(wù)商下發(fā)的信息流量
select sum(length(content) + c_IPPackHeadLen) into v_DownContentLens from sh_gprsspdowninfo where (MDTID = v_MDTINFO) and (spid = v_SPINFO.spid) ;
if (v_DownContentLens is null) then
v_DownContentLens := 0;
end if;
v_DownTotalLens := v_DownTotalLens + v_DownContentLens ;
-- 將統(tǒng)計(jì)出的累計(jì)值存放到流量狀態(tài)統(tǒng)計(jì)表中
if (v_UpTotalLens >0) or (v_DownTotalLens > 0) then
insert into sh_gprsstreamstat (statid,spid,mdtid,starttime,endtime,mdtupstream,spdownstream)
values(newID,v_SPINFO.spid,v_MDTINFO,sysdate,sysdate,v_UpTotalLens,v_DownTotalLens);
-- 自增量加1
newID := newID + 1;
end if;
end loop;
close c_MDTINFO;
commit;
end loop;
return 1;
end;
begin
null;
end PSH_GPRSSTREAMSTAT;
網(wǎng)頁(yè)名稱：Oracle存儲(chǔ)過(guò)程的使用實(shí)例
文章位置：http://www.dlmjj.cn/article/dhpeeoh.html
