topic Re: array and do loop in SAS Programming

array and do loop

sophia_SAS — Fri, 03 Nov 2017 13:10:26 GMT

Dear SAS community-

I'm struggling to write a more elegant code for my current brute method below. I believe the below code can be done with a simple array and do loop, but I cannot seem to figure out the right combination. Here's a sample of my current code. Any advice?

Thanks!

if rv_mon=1 then do mem1=0; mem2=0; mem3=0; mem4=0; mem5=0; end;

else if rv_mon=2 then do mem2=0; mem3=0; mem4=0; mem5=0; end;

else if rv_mon=3 then do mem3=0; mem4=0; mem5=0; end;

else if rv_mon=4 then do mem4=0; mem5=0; end;

else if rv_mon=5 then do mem5=0; end;

Re: array and do loop

PeterClemmensen — Fri, 03 Nov 2017 13:28:55 GMT

Code not tested, but perhaps something like this

data want(drop=i);
	set yourdata;
	array memVars{*} mem1-mem5;
	do i=rv_mon to dim(memVars);
		memVars[i]=0;
	end;
run;

Re: array and do loop

Kurt_Bremser — Fri, 03 Nov 2017 13:23:12 GMT

Array and do loop will do it:

array mems{5} mem1-mem5;
do i = rv_mon to 5;
  mems{i} = 0;
end;
drop i;