>>******************************************************************** >>* Description.......: ValidateAPN1 >>* Calling Samples...: ValidateAPN1(APN) >>* Parameter List....: >>* Created by........: Sergey Berezniker >>* Modified by.......: Nadya Nosonovsky 08/10/2000 04:47:29 PM >>******************************************************************** >>lparameters pcAPN >>local lcMask, lcDigits, lcLetters, lcAPNUniform >> >>lcMask = "999999X-X999999X-X999999XX-XX999999X" >>*lcAPN = "000000 - 001000 - 000000 - 000000" >>lcApn = padr(ltrim(pcAPN),36) >>lcDigits = "0123456789" >>lcLetters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ " >>lcAPNUniform = chrtran( lcAPN, lcDigits+lcLetters, ; >> replicate("9", 10)+ replicate("X", 27)) >> >>*wait window lcAPNUniform+' lcMask:'+lcMask+" lcAPN:"+substr(lcAPN,37,1) >> >>return (left(lcAPNUniform,36) = lcMask and inlist(substr(lcAPN,37,1)," ","-"))>>