another way:
data split;
set have;
length rf $ 5;
do i = 1 to countw(x, '|');
rf = scan(x, i, '|');
output;
end;
drop x i;
run;
proc sql noprint;
select distinct rf
into :rf_list separated by ' '
from work.split;
quit;
data want;
set split;
by id;
length &rf_list. 8;
retain &rf_list.;
array rf_list &rf_list.;
if first.id then do;
do i = 1 to dim(rf_list);
rf_list[i] = 0;
end;
end;
rf_list[findw("&rf_list", rf, ' ', 'ets')] = 1;
if last.id then output;
drop i rf;
run;
... View more
