topic Finding codes using Arrays in SAS Procedures

Finding codes using Arrays

robertrao — Thu, 07 Nov 2013 17:19:58 GMT

We are trying to find the codes of interest in a list of codes(wide)

proc format;
value $Diabetes
'90', '91'=1
other=0;
value $CAD
'94'=1
other=0;
run;

data have;

ID code1 code2 code3 code4 code5 code6
111 90 91 92 93 94 95

WANT(After using arrays)
ID code1 code2 code3 code4 code5 code6 new1 new2 new3 new4 new5 new6
111 90 91 92 93 94 95 90 91 94

Thanks

art297 — Thu, 07 Nov 2013 17:34:21 GMT

Here is one possibility:

proc format;

value $Diabetes

'90', '91'=1

other=0;

value $CAD

'94'=1

other=0;

run;

data want;

input (ID code1 code2 code3 code4 code5 code6) ($);

array new(6) $;

array old $ code1-code6;

_n_=0;

do over old;

if put(old,$diabetes.) or put(old, $CAD.) then do;

_n_+1;

new(_n_)=old;

end;

cards;

111 90 91 92 93 94 95

;