Spell out numbers to words

This script will spell out numbers to words (handy for cheque printing)

select decode( sign( &num ), -1, 'Negative ', 0, 'Zero', NULL ) decode( sign( abs(&num) ), +1, to_char( to_date( abs(&num),'J'),'Jsp') )from dual