Ref cursor problema

Question

I have the following procedure :
CREATE OR REPLACE PROCEDURE proc_REF(cur_ref IN sys_refcursor) is
FIELD1 varchar2(200);
BEGIN
LOOP
FETCH cur_ref INTO FIELD1;
INSERT INTO tipos_prueba (cod_tipo) VALUES (FIELD1);
EXIT WHEN cur_ref%NotFound;
END LOOP;
END proc_REF;
well that is ok , but i want to pass it the result of a query like that
select id_pto from ptos where iddep=14;
this is thw way to call it?
DECLARE
CUR_REF sys_refcursor;
BEGIN
CUR_REF :=select id_pto from ptos where iddep=14;
PUNTOS.PROC_REF ( CUR_REF );
COMMIT;
END;

Answer 1

create or replace procedure p1( cur_ref IN sys_refcursor)
is
a date;
begin
loop
FETCH cur_ref INTO a;
exit when cur_ref%notfound;
dbms_output.put_line(a);
end loop;
end;
SQL> @p1.sql
Procedure created.
SQL> declare
cur_ref sys_refcursor;
begin
open cur_ref for select sysdate from dual;
p1(cur_ref);
end;
11-NOV-05
PL/SQL procedure successfully completed.
SQL>
I am not facing any problem here.