variable tempCur refcursor;//必須聲明全局綁定變量
declear
month varchar2(10) := '2009-09';
begin
PKG_SUBSTATION_LINE.GET_SUBSTATION_VOLTAGE_TABLE(month,:tempCur);
end;
程序包如下：
CREATE OR REPLACE PACKAGE PKG_SUBSTATION_LINE
AS
type lineTable is ref cursor;
procedure GET_SUBSTATION_VOLTAGE_TABLE(vMonth in varchar2, cur_lineTable out lineTable);
END;
CREATE OR REPLACE PACKAGE BODY PKG_SUBSTATION_LINE
AS
procedure GET_SUBSTATION_VOLTAGE_TABLE(vMonth in varchar2, cur_lineTable out lineTable)
is
nCount number;
strTempTable varchar2(1000);
strInsertTable varchar2(500);
strDeleteTable varchar2(200);
strSeleteTable varchar2(200);
cursor station_cursor is SElECT X_XLMC, X_BDZ FROM XSFX WHERE X_XSLB = '分線線損';
cursorrecord_station station_cursor%rowtype;
nInMonth number := 0;
nOutMonth number := 0;
nLossValueMonth number := 0;
nLossRateMonth number := 0;
nInYear number := 0;
nOutYear number := 0;
nLossValueYear number := 0;
nLossRateYear number := 0;
begin
strTempTable := 'CREATE GLOBAL TEMPORARY TABLE GLOBAL_SUBSTATION_LINE(SUBSTATIONNAME VARCHAR2(40 BYTE), LINENAME VARCHAR2(40 BYTE), PROVIDEVALUE_MONTH NUMBER(15,2), USEVALUE_MONTH NUMBER(15,2), LOSSVALUE_MONTH NUMBER(15,2), LOSSRATE_MONTH NUMBER(10,2), PROVIDEVALUE_YEAR NUMBER(15,2), USEVALUE_YEAR NUMBER(15,2), LOSSVALUE_YEAR NUMBER(15,2), LOSSRATE_YEAR NUMBER(10,2)) ON COMMIT PRESERVE ROWS';
strInsertTable := 'INSERT INTO GLOBAL_SUBSTATION_LINE VALUES(:stationName, :lineName, :provideMonth, :useMonth, :lossMonth, :rateMonth, :provideYear, :useYear, :lossYear, :rateYear)';
strDeleteTable := 'DELETE FROM GLOBAL_SUBSTATION_LINE';
strSeleteTable := 'SELECT * FROM GLOBAL_SUBSTATION_LINE';
SELECT COUNT(*) INTO nCount FROM USER_TABLES WHERE TABLE_NAME = UPPER('GLOBAL_SUBSTATION_LINE');
if nCount <= 0 then
execute immediate strTempTable;
else
execute immediate strDeleteTable;
end if;
open station_cursor;
loop
fetch station_cursor into cursorrecord_station;
exit when station_cursor%notfound;
SELECT NVL(SUM(DLZ*HJFS), 0) into nInMonth FROM XSFXBG_MONTH WHERE RQ = vMonth AND XSLB = '分線線損' AND XLMC = cursorrecord_station.X_XLMC AND JCGX = '進';
SELECT NVL(SUM(DLZ*HJFS), 0) into nOutMonth FROM XSFXBG_MONTH WHERE RQ = vMonth AND XSLB = '分線線損' AND XLMC = cursorrecord_station.X_XLMC AND JCGX = '出';
nLossValueMonth := nInMonth - nOutMonth;
if nInMonth <> 0 then
nLossRateMonth := nLossValueMonth/nInMonth*100;
end if;
SELECT NVL(SUM(DLZ*HJFS), 0) into nInYear FROM XSFXBG_MONTH WHERE RQ >= substr(vMonth, 1, 4)||'-01' AND RQ <= vMonth AND XSLB = '分線線損' AND XLMC = cursorrecord_station.X_XLMC AND JCGX = '進';
SELECT NVL(SUM(DLZ*HJFS), 0) into nOutYear FROM XSFXBG_MONTH WHERE RQ >= substr(vMonth, 1, 4)||'-01' AND RQ <= vMonth AND XSLB = '分線線損' AND XLMC = cursorrecord_station.X_XLMC AND JCGX = '出';
nLossValueYear := nInYear - nOutYear;
if nInYear <> 0 then
nLossRateYear := nLossValueYear/nInYear*100;
end if;
execute immediate strInsertTable using cursorrecord_station.X_BDZ, cursorrecord_station.X_XLMC, nInMonth/1000, nOutMonth/1000, nLossValueMonth/1000, nLossRateMonth, nInYear/1000, nOutYear/1000, nLossValueYear/1000, nLossRateYear;
nInMonth := 0;
nOutMonth := 0;
nLossValueMonth := 0;
nLossRateMonth := 0;
nInYear := 0;
nOutYear := 0;
nLossValueYear := 0;
nLossRateYear := 0;
end loop;
close station_cursor;
open cur_lineTable for strSeleteTable;
commit;
end GET_SUBSTATION_VOLTAGE_TABLE;
END;