请大侠帮助小弟如何在pl/sql程序中调用?

2004-04-20 09:36:30 123 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【学习笔记】《基于φ-OTDR的分布式扰动传感系统定位算法研究-北交-通信与信息系统-吴》重点笔记一、绪论 1.1 引言光纤传感器的优点：跟电子传感器相比较，光纤传感器有诸多独特的优势：对电磁干扰免疫；具有很好的绝缘性和耐腐蚀性；灵敏度高，可测量微弱信息；可实现大范围监测和分布式传感，仅需一根传感光纤，更为经济便捷；传感光纤体积小、重量轻、可形变，适用于一些特殊应用场所；还有无需供电、耐高温、便于组网等等优点光纤传感器的感知信号的方法：当探测光入射到光纤中时会发生散射并产生各种散射光... 阅读详情

创建了如下的存储过程包体返回结果集
CREATE OR REPLACE PACKAGE PAC_Mycursor
AS
TYPE QUERY_CURSOR IS REF CURSOR;

PROCEDURE My_cur_out(
p_nsrsbh IN varchar2,
p_nd in varchar2,
p_yf in varchar2,
p_table in varchar2,
result1 out QUERY_CURSOR);
END PAC_Mycursor;
--------------------------------------------------------------------------
CREATE OR REPLACE PACKAGE BODY PAC_Mycursor
AS
PROCEDURE My_cur_out(
p_nsrsbh IN varchar2,
p_nd in varchar2,
p_yf in varchar2,
p_table in varchar2,
result1 out QUERY_CURSOR
)
AS
sqlstr VARCHAR2(1000);
BEGIN

sqlstr:='select t.*,t.sbrq,t.tbrq '|| p_table||'t where nsrsbh='''|| p_nsrsbh||''''||' and nd='|| p_nd ||' and yf='|| p_yf;
--DBMS_OUTPUT.PUT_LINE(sqlstr);
OPEN result1 FOR sqlstr;
--SELECT * from sb_zzs_ybns; --where area_id = An_area_id and serv_id > An_serv_id ;
--execute sql sqlstr;
--EXECUTE IMMEDIATE sqlstr;
END;

END PAC_Mycursor;
---------------------------------------------------------------------
请问如何在pl/sql中调用执行（如以上代码没有问题的话）?
请各位大侠不吝赐教，小弟不胜感激！（如嫌分数不够，可另外开贴追加）

...全文