1DECLARE
2 TYPE EmpCurTyp IS REF CURSOR; -- define weak REF CURSOR type
3 emp_cv EmpCurTyp; -- declare cursor variable
4 my_ename VARCHAR2(15);
5 my_sal NUMBER := 1000;
6BEGIN
7 OPEN emp_cv FOR -- open cursor variable
8 'SELECT ename, sal FROM emp WHERE sal > :s' USING my_sal;
9 ...
10END;