Testando procedure no SQL PLUS

CREATE OR REPLACE
PACKAGE crystal IS
--
-- Definição do cursor para Crystal Reports
--
   TYPE CrystalCursor IS REF CURSOR;
END;
/

CREATE OR REPLACE
PROCEDURE cr_xxx (pCursor IN OUT Crystal.CrystalCursor,
       pparam IN DATE
       )
   IS

BEGIN

     if pCursor ¬isopen then
      Close pCursor;
     end if;
    OPEN pcursor FOR

     SELECT * from tabela where coluna = pparam;

END;
/

set serveroutput on;
declare
  CU Crystal.CrystalCursor;
  data date;

begin
  dbms_output.put_line(TO_CHAR(SYSDATE,´HH24:MI:SS´));
  cr_xxx(CU,sysdate);
  loop
    fetch CU into  data;
    exit when CU¬notfound; 
    dbms_output.put_line(data);
    dbms_output.put_line(´´);
  end loop;
  dbms_output.put_line(TO_CHAR(SYSDATE,´HH24:MI:SS´));
end;