topic Re: Is loop possible here? in SAS Programming

Is loop possible here?

janne — Wed, 01 Jul 2009 12:37:16 GMT

If opprim_lak=. then opprim_lak=0;
I need to do this 120 times. Do anyone know if there is any shortcut or do I have to copy this 120 times? The variables are in a sequence in the dataset beginning with "opprim_lak" and ending with the last variable "sluten_lak"?

Re: Is loop possible here?

SushilNayak — Wed, 01 Jul 2009 13:00:20 GMT

Hi Janne,
As the variables are in sequence in dataset, beginning with opprim_lak till sluten_lak and all these variables count to 120 variables, you could try making an array of these variables(opprim_lak--z_opprim_lak) and then using a do loop take them all.
If these variables are not in sequence then what you could do is, make a macro list using proc sql (where var like '%_lak%') separated by ' ' ( let say macro variable is &dummy) and then array nums

&dummy;
If the dataset has these 120 variables as numeric data types and there is no other numeric type variables in the dataset(there can be character type vriables) then you could use array nums

_numeric_;

example code:
data dx;
opprim_lak=.;
sluten_lak=.;
a_sluten_lak=.;
z_opprim_lak=.;
run;
data new;
set dx;
array nums

opprim_lak--z_opprim_lak;
do i=1 to hbound(nums);
if nums=. then nums=0;
end;
drop i;
run;
proc print;run;

Re: Is loop possible here?

janne — Wed, 01 Jul 2009 13:05:02 GMT

Thank you very much for your quick response. They are numeric and in a sequence but not the only numeric variables i have. I will try your suggestion.
Thanks
Janne

Re: Is loop possible here?

SushilNayak — Wed, 01 Jul 2009 13:18:44 GMT

Hey Janne,
i just saw that part of example code got skipped due to usage of Increment variable i within square brackets , and made last part of code into italic. Here is the fixed one

data dx;
opprim_lak=.;
sluten_lak=.;
a_sluten_lak=.;
z_opprim_lak=.;
run;
data new;
set dx;
array nums{*} opprim_lak--z_opprim_lak;/*first var -- last var*/
do i=1 to hbound(nums);
if nums{i}=. then nums{i}=0;
end;
drop i;
run;
proc print;run;

Re: Is loop possible here?

janne — Wed, 01 Jul 2009 15:04:35 GMT

Thanks. I used your first suggestion and did like this:

array vardvar{117} opbesok -- slutenovrig;
do i=1 to 117;
if vardvar{i}=. then vardvar{i}=0;
end;

and that worked:)

Saved me a lot of work!