data have;
infile datalines truncover dsd;
input (Title Column1-Column9) ($);
datalines;
Colors1,Red,Blue,Black,,Yellow,Green,,,
Colors2,Red,,,Purple,Yellow,,,Orange,Violet
Colors3,Red,,Black,,Yellow,,White,Orange,Violet
Colors4,Red,,,Purple,Yellow,,,Orange,Violet
;
data want;
set have(rename=(column1-column9=_c1-_c9));
array _cols {*} $ _c1-_c9 ;
array x {*} $ 80 column1-column9 ;
n=0;
do i=1 to dim(_cols);
if not missing(_cols{i}) then do;n+1;x{n}=_cols{i};end;
end;
keep Title Column1-Column9;
run;
... View more