<pre>
create or replace package types
as
   type cursorType is ref cursor;
end;
/

create or replace procedure fourout ( p_cursor OUT types.cursorType, aname OUT VARCHAR2, deptnum OUT VARCHAR2, pall OUT types.cursorType )
is
begin
	select name into aname from EDepartment where deptid='glasses';
	select deptid into deptnum from EDepartment where name='Hardware';
	open p_cursor for select name, deptid from EDepartment;
	open pall for select * from EDepartment;
end;
/
</pre>