Here is the full program if anyone needs it:
data want (drop=word i); set have; length newlist $300 word $100 ; do i=1 to countw(have_,','); word=scan(have_,i,','); if not findw(newlist,have_,',','t') then newlist=catx(',',newlist,word); end; run;
data want1; set want; newstring=scan(newlist, 1, ','); do i=2 to countw(newlist,','); word=scan(newlist, i, ','); found=find(newstring, word, 'it'); if found=0 then newstring=catx(', ', newstring, word); end; run;
... View more
