2026-03-12 20:23:15

tpt/demos/refcursor_materialization.sql

@@ -0,0 +1,67 @@
+-- Copyright 2018 Tanel Poder. All rights reserved. More info at http://tanelpoder.com
+-- Licensed under the Apache License, Version 2.0. See LICENSE.txt for terms & conditions.
+
+-- Connor McDonald's example
+
+-- drop table t;
+-- 
+-- create table T
+-- as select rownum x
+-- from dual connect by level <= 10;
+-- 
+-- create or replace
+-- type numlist is table of number;
+-- /
+-- 
+-- create or replace function F(c sys_refcursor) return numlist pipelined is
+--   n number;
+-- begin
+--   loop
+--      fetch c into n;
+--      exit when c%notfound;
+--      pipe row (n);
+--   end loop;
+--   close c;
+--   return;
+-- end;
+-- /
+-- 
+
+delete t;
+commit;
+
+variable rc refcursor;
+lock table T in exclusive mode;
+
+exec open :rc for select * from table(f(cursor(select * from t)));
+
+commit;
+
+insert into T values (11);
+
+commit;
+
+print rc
+
+variable rc refcursor;
+variable rc1 refcursor;
+
+delete t;
+commit;
+
+lock table T in exclusive mode;
+
+exec open :rc1 for select * from t;
+
+exec open :rc for select * from table(f(:rc1));
+
+commit;
+
+insert into T values (11);
+
+commit;
+
+print rc
+
+select * from dual;
+