Convertir una cadena a la fecha y generar una excepción cuando la cadena dada no es válida

Hay muchas excepciones que pueden ser lanzadas por TO_DATE función. Ejemplos:

• ORA-01843 - Valor de mes no válido
• ORA-01847 - Valor de día no válido
• ORA-01830:la imagen del formato de fecha finaliza antes de convertir la cadena de entrada completa
• ...

Puede atraparlos como en el siguiente ejemplo (con solo una excepción):

Create or Replace Procedure A1SF_TESTDATE
(
    pDateStr Varchar2

    -- you must do this for every oracle exception number which will you catch
    bad_month EXCEPTION;
    PRAGMA EXCEPTION_INIT (bad_month, -01843);
)As
    tDate Date;
    Begin
    tdate := TO_DATE(pDateStr, 'yyyymmdd');
    dbms_output.put_line(tdate);
    Exception 
      When bad_month Then
        dbms_output.put_line('The format provided is incorrect');

End;

Pero para eso debes definir n ¡pragmas!

La solución más fácil, que prefiero, es:

Create or Replace Procedure A1SF_TESTDATE
    (
        pDateStr Varchar2
    )As
        tDate Date;
Begin
        tdate := TO_DATE(pDateStr, 'yyyymmdd');
        dbms_output.put_line(tdate);
        Exception 
          -- every exception will be catched
          When others Then
            dbms_output.put_line('The format provided is incorrect! Because: ' || SQLERRM);

 End;

Un posible mensaje para SQLERRM es ORA-01847: day of month must be between 1 and last day of month .