关于存储过程的返回包操作

创建一个查询的存储过程,由于查询结果需要接收！所以必须创建一个包来承载结果！

CREATE OR REPLACE PROCEDURE
proc_demo(

out_result IN OUT rm_test.my_result_set)

AS

BEGIN

OPEN

out_result

FOR


SELECT id FROM rm.mst_matecode;

END
proc_demo;



里面的包就是rm_test_myresult_set



CREATE OR REPLACE PACKAGE
rm_test IS

type r_id is
record(

v_id varchar2(32)

);

type my_result_set is
ref

cursor
return r_id;

END rm_test;

PB执行该存储过程,或者用这个存储过程创建一个datawindow

//

transaction trans

trans = create transaction

trans.DBMS = "O90 Oracle9i (9.0.1)"

trans.LogPass = "zhhh"

trans.ServerName = "canppe2"

trans.LogId = "system"

trans.AutoCommit = False

trans.DBParm = ""

connect using trans;

If trans.sqlcode <> 0 Then api.alert( "数据库没有正确连接,请检查!" )

DataStore lds_data

lds_data = create Datastore

lds_data.dataobject = "dw_1"

lds_data.settransobject( trans )

lds_data.retrieve()