topic Re: multiple sustr statements in SAS Programming

multiple sustr statements

lillymaginta — Mon, 02 Oct 2017 14:24:25 GMT

Hi,

I have multiple subst statements and I want to run them all at once. Can some one help on the best way to combine all these statements in once (I have 30+ statements)

data a (drop=i); set b; array {x} dx:; ar=1=0;

do i=1 to dim(x); if substrn(x{i}, 1, 5) in ('12345', '23456', '30987')

then do; ar=1;

leave;

end;

run;

data a (drop=i); set b; array {x} dx:; arf=1=0;

do i=1 to dim(x); if substrn(x{i}, 1, 4) in ('1234', '2432', '3987')

then do; arf=1;

leave;

end;

run;

data a (drop=i); set b; array {x} dx:; ad=1=0;

do i=1 to dim(x); if substrn(x{i}, 1, 2) in ('12', '24', '39')

then do; ad=1;

leave;

end;

run;

Re: multiple sustr statements

Kurt_Bremser — Mon, 02 Oct 2017 14:42:15 GMT

Since the purpose seems to be to just create the flag variables, you can do all the if's in one do loop and omit the leave statement.

Re: multiple sustr statements

RW9 — Mon, 02 Oct 2017 14:59:07 GMT

Your code is very hard to read. What are you trying to do, if its just finding those strings, and setting a flag why not:

data a (drop=i);
  set b; 
  array a dx:;
  ar=0;
  arf=0;
  do i=1 to dim(x); 
    ar=ifn(substrn(x{i}, 1, 5) in ('12345', '23456', '30987'),1,ar);
    arf=ifn(substrn(x{i},1,4) in ('1234','2432','3987'),1,arf);
  end;
run;

Re: multiple sustr statements

lillymaginta — Mon, 02 Oct 2017 15:00:35 GMT

Thank you for the reply, I am getting an error (one unclosed loop block), would you mind to show me how would you combine them? Thanks

Re: multiple sustr statements

lillymaginta — Mon, 02 Oct 2017 15:07:10 GMT

Thank you!

Re: multiple sustr statements

Reeza — Mon, 02 Oct 2017 15:15:43 GMT

If you're just checking for the start of the string to match consider using the : operator.

if x(i)  in: ('12345', '23456');

If the length of your X variable can be smaller than the string this likely won't work though.