Query to Spell a given Number

SELECT    DECODE (SIGN ( :N),  -1, 'Negative ',  0, 'Zero',  NULL)

       || DECODE (SIGN (ABS ( :N)),
                  +1, TO_CHAR (TO_DATE (ABS ( :N), 'J'), 'Jsp'))
  FROM DUAL
/