--用存储过程返回一条记录
CREATE OR REPLACE PROCEDURE proc_select02
(vperson out TBLTVDR_N8770B_STIH237%rowtype)
is
begin
select * into vperson from TBLTVDR_N8770B_STIH237 where nuid = 'B8A10002';
end;
declare n TBLTVDR_N8770B_STIH237%rowtype;
begin
proc_select02(vperson=>n);
dbms_output.put_line('The input string is:' || n.nuid);
end;
--用存储过程返回一个结果集
create or replace procedure proc_select06(out_var out sys_refcursor)
as
begin
open out_var for select * from TBLTVDR_N8770B_STIH237;
end;
declare
v_out sys_refcursor;
begin
proc_select06(v_out);
end;