Hello,
data have;
infile cards dlm=',' dsd;
length fruit1-fruit6 $10;
input id fruit1-fruit6 ;
cards;
1 , apple , , , , ,
2 , , pear , , , ,
3 , , , orange , , ,
4 , , , orange , , ,
5 , , , , grape , ,
6 , , , , , watermelon ,
7 , , pear , , , , banana
8 , apple , , , grape , ,
9 , , , orange , , ,
10 , apple , , , , , banana
11 , , , , , watermelon ,
12 , , , orange , , ,
13 , , , orange , , ,
14 , apple , , , grape , ,
15 , , , , , watermelon ,
16 , apple , , , , , banana
17 , , , , grape , ,
18 , apple , , , , ,
19 , , , , , ,
20 , apple , , , , ,
run;
data want;
set have;
keep id fruit order;
array fruits(*) fruit:;
order=1;
do i=1 to dim(fruits);
if not missing(fruits(i)) then do;
fruit=fruits(i);
output;
order=order+1;
end;
end;
run;
... View more