17,380
社区成员
发帖
与我相关
我的任务
分享
CREATE TABLE T192
(
ID VARCHAR2(20),
NAME VARCHAR2(20),
remark VARCHAR2(20)
);
INSERT INTO T192 VALUES('a', 'ha', '标记');
INSERT INTO T192 VALUES('a', 'wo', NULL);
INSERT INTO T192 VALUES('a', 'me', NULL);
INSERT INTO T192 VALUES('d', 'co', NULL);
COMMIT;
create or replace procedure Get
(
Ids IN VARCHAR2,
Out_Cursor OUT sys_refcursor
)
as
begin
open Out_Cursor FOR select * from T192 where id = ids;
end;
DECLARE
vCur SYS_REFCURSOR;
r T192%ROWTYPE;
begin
-- Call the procedure
get(ids => :ids, Out_Cursor => vCur);
LOOP
FETCH vCur INTO r;
EXIT WHEN vCur%NOTFOUND;
dbms_output.put_line(r.id || ', ' || r.name || ', ' || r.remark);
END LOOP;
dbms_output.put_line('');
end;
