-- Multi-versioning returning rows of a dropped table demo
conn hr/hr
drop table t1 purge;
create table t1 as select * from all_objects where rownum < 3 ;
variable x refcursor

-- just opening, not fetching
begin
   open :x for select * from t1;
end;
/

-- this is not a DML to produce UNDO
drop table t1 purge;

print x

OWNER                          OBJECT_NAME
------------------------------ ------------------------------
SUBOBJECT_NAME                  OBJECT_ID DATA_OBJECT_ID OBJECT_TYPE
------------------------------ ---------- -------------- -------------------
CREATED    LAST_DDL_T TIMESTAMP           STATUS  T G S
---------- ---------- ------------------- ------- - - -
SYS                            ICOL$
                                       20              2 TABLE
07/02/2006 07/02/2006 2006-02-07:22:10:16 VALID   N N N

SYS                            I_USER1
                                       44             44 INDEX
07/02/2006 07/02/2006 2006-02-07:22:10:16 VALID   N N N

OWNER                          OBJECT_NAME
------------------------------ ------------------------------
SUBOBJECT_NAME                  OBJECT_ID DATA_OBJECT_ID OBJECT_TYPE
------------------------------ ---------- -------------- -------------------
CREATED    LAST_DDL_T TIMESTAMP           STATUS  T G S
---------- ---------- ------------------- ------- - - -