PROCEDURE test_cursor_2 (
      p_recordset          OUT   cursor_type,
      return_code_out      OUT   VARCHAR2,
      return_message_out   OUT   VARCHAR2
   )
   IS


   BEGIN
      return_code_out := '00000';
      return_message_out := 'OK';

      OPEN p_recordset FOR
	  select col1, col2
          from table1 
          where SYSDATE > TO_DATE (busi_servicedate, 'DD-MM-YYYY HH24:MI:SS');
	  
   
   EXCEPTION
   		WHEN OTHERS THEN
         return_code_out := '43899';
         return_message_out := 'Unknown error.';
 
   END test_cursor_2;

CREATE TABLE test_data (col_1  VARCHAR2(10), date_col  VARCHAR2(30));

INSERT INTO test_data VALUES ('A','01-jan-2006 23:59:59');
INSERT INTO test_data VALUES ('A','01-jan-2006 25:59:59');

CREATE OR REPLACE PROCEDURE test_cursor AS
  TYPE c_ref  IS REF CURSOR;
  p_recordset  c_ref;
  p_1  VARCHAR2(30);
  p_2  VARCHAR2(30);  
BEGIN

  OPEN p_recordset FOR
    SELECT col_1, date_col
    FROM test_data 
    WHERE SYSDATE > TO_DATE (date_col, 'DD-mon-YYYY HH24:MI:SS');

  DBMS_OUTPUT.PUT_LINE('Cursor Opened');
  FETCH p_recordset INTO p_1,p_2; 

  DBMS_OUTPUT.PUT_LINE('First Fetch');
  FETCH p_recordset INTO p_1,p_2;

  DBMS_OUTPUT.PUT_LINE('Second Fetch');

  CLOSE p_recordset; 

EXCEPTION
  WHEN OTHERS THEN
  RAISE_APPLICATION_ERROR(-20001,'Error '||SQLERRM);

END test_cursor;
/
SQL> SET SERVEROUTPUT ON SIZE 10000
SQL> BEGIN
  2    test_cursor;
  3  END;
  4  /
Cursor Opened
First Fetch
BEGIN
*
ERROR at line 1:
ORA-20001: Error ORA-01850: hour must be between 0 and 23
ORA-06512: at "FPS.TEST_CURSOR", line 25
ORA-06512: at line 2