add new column and disply yes or No based on the data

[radha009]

i have data as below

Varlist   chg1 chg 2 chg3 chg 4

             yes    No   yes     No

             No     No   No       No

             Yes    No   No       No

Expecting as below add new column name patch and if any yes display yes else display no

Varlist   chg1 chg 2 chg3 chg 4   Patch

             yes    No   yes     No        yes

             No     No   No       No        No

             Yes    No   No       No        yes

my code:

data Patch.Unix_final;
set Patch.Unix_final;
    length  patch $4;
array col(*) &varList.;
do i=1 to dim(col);
        if col{i} in ('Yes') then Patch='Yes';

else patch ='No';
end;
run;

Thanks a lot.

[Kurt_Bremser · Accepted solution]

Just solved one like this a few days ago. Move the = "No" part:

data Patch.Unix_final;
set Patch.Unix_final;
length  patch $4;
array col(*) &varList.;
patch ='No ';
do i=1 to dim(col);
  if col{i} in ('Yes') then Patch='Yes';
end;
run;

[Reeza]

Patch =  ifc(whichc('yes', of chg1-chg4), "yes", "no");

---

@radha009 wrote:

i have data as below

Varlist   chg1 chg 2 chg3 chg 4

             yes    No   yes     No

             No     No   No       No

             Yes    No   No       No

Expecting as below add new column name patch and if any yes display yes else display no

Varlist   chg1 chg 2 chg3 chg 4   Patch

             yes    No   yes     No        yes

             No     No   No       No        No

             Yes    No   No       No        yes

my code:

data Patch.Unix_final;
set Patch.Unix_final;
    length  patch $4;
array col(*) &varList.;
do i=1 to dim(col);
        if col{i} in ('Yes') then Patch='Yes';

else patch ='No';
end;
run;

Thanks a lot.

---

[novinosrin]

data have;
input (chg1 chg2 chg3 chg4) ($);
datalines;
yes    No   yes     No
No     No   No       No
Yes    No   No       No
;

data want;
set have;
array t(*) ch:;
patch=ifc('yes' in t,'yes','No');
run;