topic Re: PROC SQL - formatting using SUBSTR in SAS Programming

PROC SQL - formatting using SUBSTR

CamRutherford — Tue, 19 Sep 2017 16:02:30 GMT

Hello,

Looking for some assistance...

I have a dataset with a column containing various member_id's (see below example). I would like the first character, everything left of the dash, to be moved to the end of the string prefixed with two 0's and the dash removed. For example, using the below example, looking at the first member id, I'd like 5-12344 to become 12344005.

COLUMN A

5-12344

5-1234

5-123456

7-345

2-3456

Thanks

Re: PROC SQL - formatting using SUBSTR

Reeza — Tue, 19 Sep 2017 16:03:04 GMT

Use the SCAN() function to separate the components.

Re: PROC SQL - formatting using SUBSTR

ballardw — Tue, 19 Sep 2017 16:34:33 GMT

cats(scan(a,2,'-'),'00',scan(a,1,'-'))

Re: PROC SQL - formatting using SUBSTR

PGStats — Tue, 19 Sep 2017 17:23:22 GMT

Another option - regular expression substitution :

data have;
input id :$12.;
datalines;
5-12344
5-1234
5-123456
7-345
2-3456
;

proc sql;
select id, prxchange("s/(\d+)\-(\d+)/\200\1/o", 1, id) as newId length=15
from have;
quit;

Re: PROC SQL - formatting using SUBSTR

CamRutherford — Wed, 20 Sep 2017 08:14:36 GMT

Thanks @PGStats and @ballardw.

Both work great! However I now want to increase the length of the string to be length 10 and prefixed with 0's if it is less than this until it reaches the correct length. Any ideas?

Re: PROC SQL - formatting using SUBSTR

Ksharp — Wed, 20 Sep 2017 14:16:34 GMT

data have;
input id :$12.;
datalines;
5-12344
5-1234
5-123456
7-345
2-3456
;
run;
data want;
 set have;
 want=repeat('0',9);
 x=scan(id,1,'-');
 y=scan(id,-1,'-');
 substr(want,1,length(y))=y;
 substr(want,10-length(x)+1)=x;
run;

Re: PROC SQL - formatting using SUBSTR

PGStats — Wed, 20 Sep 2017 17:25:05 GMT

Since I was already using heavy artillery, here is some more:

data have;
input id :$12.;
datalines;
5-12344
5-1234
5-123456
7-345
2-3456
;

proc sql;
select id, 
    put(input(prxchange("s/(\d+)\-(\d+)/\200\1/o", 1, id),10.),z10.0) as newId
from have;
quit;