SYS_REFCURSOR

CREATE OR REPLACE PROCEDURE SYSTEM.test_01 (p_rcs OUT SYS_REFCURSOR) 
IS 

BEGIN 
OPEN p_rcs FOR SELECT nodecode FROM tc.test02; 
END; 
/

set linesize 1000
var rset refcursor;
exec SYSTEM.test_01(:rset);
print rset;