How to execute this Procedure and get the output?

Question

I have created a Procedure the source code of the same is furnished below.
create or replace procedure vin_test( p_deptno IN number
, p_cursor OUT SYS_REFCURSOR)
as
v_res Emp%rowtype;
begin
open p_cursor FOR
select *
from emp
where deptno = p_deptno;
end vin_test;
Now, if i want to see the out put of this Proc
i will first set the Serveroutput on and then..
Exec vin_test(10);
I am getting an error saying wrong number of arguments,so can anybody tell me what parameter value should i pass on so that i can get desired output.
Thanks in Advance
OraCrazy

Answer 1

In sqlplus you can do like this.
SQL> create or replace procedure vin_test( p_deptno IN number, p_cursor OUT SYS_REFCURSOR)
  2  as
  3     v_res Emp%rowtype;
  4  begin
  5     open p_cursor for
  6     select *
  7       from emp
  8      where deptno = p_deptno;
  9  end;
10  /
Procedure created.
SQL> var lcur refcursor
SQL> exec vin_test(30,:lcur)
PL/SQL procedure successfully completed.
SQL> print lcur
     EMPNO ENAME      JOB              MGR HIREDATE         SAL       COMM     DEPTNO        DIV
      7499 ALLEN      SALESMAN        7698 20-FEB-81       1600        300         30         10
      7521 WARD       SALESMAN        7698 22-FEB-81       1250        500         30         10
      7654 MARTIN     SALESMAN        7698 28-SEP-81       1250       1400         30         10
      7698 BLAKE      MANAGER         7839 01-MAY-81       2850                    30         10
      7844 TURNER     SALESMAN        7698 08-SEP-81       1500          0         30         10
      7900 JAMES      CLERK           7698 03-DEC-81        950                    30         10
6 rows selected.Thanks,
Karthick.