Strip out additional chars from Phone Numbers

Below is a good SQR tip for stripping out special characters from those nasty Phone Number formats stored in HRMS.

 

begin-procedure main
.
.
do parse_phone($phone_number, $phone_number)
.
.
end-procedure main

 

begin-procedure parse_phone($iphone, :$rphone)
let #phonelen = length($iphone)
move 0 to #loops

while 1

let #loops = #loops + 1

let $value = substr($iphone, #loops, 1)
let #checkvalue = ascii($value)

if #checkvalue >= 48 and #checkvalue <= 57
let $rphone = $rphone//$value
end-if

if #phonelen = #loops
break
end-if

end-while
end-procedure parse_phone