>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?