>I want to locate and extract a YEAR in a text string (a reference). The year is always 4 digits as in 'the book was published in 1806 or later'. Is there an easier way to do this than a rather clumbsy parsing prg I have written.

? val(chrtran(lcStr,chrtran(lcStr,'1234567890',''),''))

Cetin