topic Re: Standard Phone numbers in SAS Programming

Standard Phone numbers

BrahmanandaRao — Wed, 24 May 2023 10:13:50 GMT

data phone_number;
input Phone_Number $ 15.;
standard_phone = catx('-', SUBSTR(PUT(phone_number, Z10.), 1, 3), SUBSTR(PUT(phone_number, Z10.), 4, 2), SUBSTR(PUT(phone_number, Z10.), 6, 4));
datalines;
123-545-5421
1236439775
7066950392
123-543-2345
8766783469
304-762-2467
 
8766783469
Na
123-545-5421
 
7066950392
123-543-2345
8766783469
304-762-2467
123-545-5421
1236439775
7066950392
Na
8766783469
8766783469
;
run;

Here i want to clean the data and standard format for phone numbers in the above data

i want miniplates all phone numbers below format

123-543-2345

and also count of each format like below

123-543-2345 totalcount=7

8766783469 totalcount=11

Na total count=2

Re: Standard Phone numbers

PaigeMiller — Wed, 24 May 2023 11:35:21 GMT

data phone_number;
input Phone_Number $ 15.;
datalines;
123-545-5421
1236439775
7066950392
123-543-2345
8766783469
304-762-2467
 
8766783469
Na
123-545-5421
 
7066950392
123-543-2345
8766783469
304-762-2467
123-545-5421
1236439775
7066950392
Na
8766783469
8766783469
;

data want;
    /* Create variable named TYPE for counting purposes */
    length type $ 8;
    set phone_number;
    is_dash=find(phone_number,'-');
    if is_dash=0 and upcase(phone_number)^='NA' and not missing(phone_number) then do;
        phone_number=cats(substr(phone_number,1,3),'-',substr(phone_number,4,3),'-',substr(phone_number,7));
        type='No Dash';
    end;
    else if upcase(phone_number)='NA' then type='NA';
    else if not missing(phone_number) then type='Dash';
run;

proc freq data=want;
    tables type;
run;

Re: Standard Phone numbers

BrahmanandaRao — Wed, 24 May 2023 11:48:34 GMT

hi Miller

Thank You for solution

why you used upcase function for phone_number ?

Re: Standard Phone numbers

PaigeMiller — Wed, 24 May 2023 11:49:26 GMT

@BrahmanandaRao wrote:

hi Miller

Thank You for solution

why you used upcase function for phone_number ?

perhaps someone types it as NA one time and Na another time and na another time

Re: Standard Phone numbers

BrahmanandaRao — Wed, 24 May 2023 11:51:00 GMT

Brilliant 🤗

Re: Standard Phone numbers

Ksharp — Wed, 24 May 2023 11:58:49 GMT

data phone_number;
input Phone_Number $ 15.;
datalines;
123-545-5421
1236439775
7066950392
123-543-2345
8766783469
304-762-2467
 
8766783469
Na
123-545-5421
 
7066950392
123-543-2345
8766783469
304-762-2467
123-545-5421
1236439775
7066950392
Na
8766783469
8766783469
;

proc format;
picture fmt
low-high='000-000-0000'
.=' ';
run;

data want;
 set phone_number;
 new_phone_number=coalescec(put(input(compress(phone_number,,'kd'),best32.),fmt.),Phone_Number);
run;

proc freq data=want ;
    tables new_phone_number/missing;
run;

Re: Standard Phone numbers

ballardw — Wed, 24 May 2023 14:39:10 GMT

@BrahmanandaRao wrote:

hi Miller

Thank You for solution

why you used upcase function for phone_number ?

BR549

Maybe not as common as it used to be but there are letters associated with certain digits of phone numbers. B is 2 (along with A and C) , R is 7 (along with P Q and S). Some organizations pay big money to have a number that "spells" something useful to them.

So you may want to consider that as part of whatever purpose this has.

Remember, if you aren't doing arithmetic with it then it is not a number just a collection of digits.

Re: Standard Phone numbers

HB — Wed, 24 May 2023 17:18:20 GMT

Nobody knows Junior Samples' phone number.