topic Length and Truncation in SAS Procedures

Length and Truncation

rakeshvvv — Thu, 19 Jun 2014 12:19:13 GMT

I Have dataset with numerical id as variable. I would like to write a code in a such way that i get red colored below out put.

40047915 -------Truncate 40 if it starts with 40 and the length is 8

40047916

40047917

400032724

400032725

400032726---------- Truncate 400 if it starts with 400 and the length is 9

047915

047916

047917

032724

032725

032726

Re: Length and Truncation

RW9 — Thu, 19 Jun 2014 12:27:09 GMT

Hi,

Data want;

set have;

if substr(thevariable,1,2)="40" and length(strip(thevariable))=8 then substr(thevariable,3);

else if substr(thevariable,1,3)="400" and length(strip(thevariable))=9 then substr(thevariable,4);

run;

You should be aware though your logic seems to overlap as 400 appears for each record. So only the length check is really necessary, i.e. if length(strip(thevariable))=8 then substr(2..), else sustr(3...).

Just thought also, you could also reverse the string and take the first 8 characters, then reverse again. Or you could also right() the string, take the last 8 characters and then left e.g substr(right(thevariable),length(right(thevariable)-8);

Re: Length and Truncation

Tom — Thu, 19 Jun 2014 12:34:40 GMT

If it is a number then you can use the MOD() function to get the least significant digits.

want = mod(nid,10**6) ;

But of course if it is numeric there is no way to store the leading zeros in your examples. You could apply the Z format to have the numbers print with leading zeros.

Re: Length and Truncation

Haikuo — Thu, 19 Jun 2014 12:42:07 GMT

If the rule can be interpreted as "regardless of the length of the variable, keep the last 6 digits", then the following can also do:

data test;

input var $10.;

newvar=prxchange('s/.*(\d{6})$/$1/',-1,trim(var));

cards;

40047915

40047916

40047917

400032724

400032725

400032726

;

Regards,

Haikuo

Re: Length and Truncation

jwillis — Thu, 19 Jun 2014 12:42:14 GMT

The code below will handle a numeric starting value.

data have;
input value $9.;
length wantval 8; format wantval z6.;
if length(value) = 8 then wantval = input(substr(value,3,6),8.) ;
if length(value) = 9 then wantval = input(substr(value,4,6),8.) ;
datalines;
40047915
40047916
40047917
400032724
400032725
400032726
;
run;

proc print data=have;
run;

This works if your original input value has to remain as a number. The length function only works on character variables.

data have;
input value 9. valuec $9.;
length wantval 8; format wantval z6.;
valuec = put(value,9.);
if length(valuec) = 8 then wantval = input(substr(valuec,3,6),8.) ;
if length(valuec) = 9 then wantval = input(substr(valuec,4,6),8.) ;
datalines;
40047915
40047916
40047917
400032724
400032725
400032726
;
run;

proc print data=have;
run;

Message was edited by: James Willis

Re: Length and Truncation

jwillis — Thu, 19 Jun 2014 13:40:02 GMT

This also works.

data work.have;
input value 9.;
format wantval z6.;
valclen = length(strip(put(value,9.)));
if valclen = 8 then wantval = value - 40000000;
if valclen = 9 then wantval = value - 400000000;
datalines;
40047915
40047916
40047917
400032724
400032725
400032726
;
run;

Re: Length and Truncation

rakeshvvv — Thu, 19 Jun 2014 13:42:58 GMT

Thanks for your reply......is there way that i can take take only last 6 numbers if the barcode starts with 4.....

ex;;

400032735--------032735

400032736-------032736

400032737-------032737

40046812--------046812

Re: Length and Truncation

jwillis — Thu, 19 Jun 2014 13:54:42 GMT

I did not test this:

data have;
input value 9.;
     length wantval 8; format wantval z6.;
    wantval = substr((put(value,9.)),(length(put(value,9.)) - 6),6);
datalines;
40047915
40047916
40047917
400032724
400032725
400032726
;
run;

I did test this and this works:

proc sql; drop table work.have; quit;
data have;
     input value 9.;
     length wantval 8 ; format wantval z6.;
    if substr(strip(put(value,9.)),1,1) = '4' then do;
       wantval = substr((strip(put(value,9.))),((length(strip(put(value,9.))) - 6) + 1),6);
    end;
   datalines;
40047915
40047916
40047917
400032724
400032725
400032726
;

proc print data=work.have;
run;

Message was edited by: James Willis

Re: Length and Truncation

stat_sas — Thu, 19 Jun 2014 14:18:38 GMT

data have;

input id $ 9.;

datalines;

40047915

40047916

40047917

400032724

400032725

400032726

;

data want;

set have;

id_new=catt('0',mod(id,100000));

run;

Re: Length and Truncation

Wizard — Thu, 19 Jun 2014 15:22:28 GMT

here is a simple way using base SAS functions

Data ids;

infile cards;

input long_id 9.;

id = reverse(substr(reverse(put(long_id,9.)),1,6));

cards;

40047915

40047916

40047917

400032724

400032725

400032726

;;;;

run;