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