>>lcMask = "999999X-X999999X-X999999XX-XX999999X-XXXXXX" >>lcAPN = "123456A-B789012C-D345678EF-GH901234I-KLMNOP" >> >>lcDigits = "0123456789" >>lcLetters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" >> >> >>lcMaskUniform = CHRTRAN( lcMask, lcDigits, REPLICATE("0", 10)) >>lcMaskUniform = CHRTRAN( lcMaskUniform, lcLetters, REPLICATE("A", 26)) >> >> >>lcAPNUniform = CHRTRAN( lcAPN, lcDigits, REPLICATE("0", 10)) >>lcAPNUniform = CHRTRAN( lcAPNUniform, lcLetters, REPLICATE("A", 26)) >> >> >>RETURN lcAPNUniform = lcMaskUniform >>>
lcMask = "999999X-X999999X-X999999XX-XX999999X-XXXXXX" lcAPN = "123456A-B789012C-D345678EF-GH901234I-KLMNO" lcDigits = "0123456789" lcLetters = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" lcAPNUniform = CHRTRAN( lcAPN, lcDigits+lcLetters, ; REPLICATE("9", 10)+ REPLICATE("X", 26)) RETURN lcAPNUniform = lcMask