>>Your SSN validation is inefficient

>>store (len(m.lcSSN) = 9) and ;
>>	EMPTY(CHRTRAN(m.lcSSN, "0123456789","")) and ;
>>	m.lcSSN <> "099999999" AND OCCURS(LEFT(m.lcSSN,1), m.lcSSN) < 9  ;
>>	to llSSNOK
>>return m.llSSNOK
>>

>
>Thanks. Is it the fastest algorithm here? I was just going to take a look and was thinking along the same lines.
>
>What do you think about age? Is there a simpler way to find person's age in years?

(val(dtoc(date(),1)) - val(dtoc(m.bDate),1))/10000

could be used for years.
Cetin