How to use Macro to make a new variables according to known variables.

[Christina_fan]

If the data like the following, 

a=1, 2, 3, 4   b=1, 2, 3, 4   c=1, 2, 3, 4.

if a=1 or b=1 or c=1 then d1=1; else d1=0;

if a=2 or b=2 or c=2 then d2=1; else d2=0;

if a=3 or b=3 or c=3 then d3=1; else d3=0;

if a=4 or b=4 or c=4 then d4=1; else d4=0;

So how to make the programs easier by Macro.

[Kurt_Bremser · Accepted solution]

No macro needed, use arrays and a DO loop:

data want;
set have;
array in {*} a b c;
array out {*} d1-d4;
do i = 1 to dim(out);
  out{i} = (whichn(i,of in{*}) > 0);
end;
drop i;
run;

[Christina_fan]

Thank you so much!

It works.

[Tom]

You really only need the one macro.

out{i} = (whichn(i,of a b c) > 0)