data quest;
input nuq questions $ value item;
datalines;
run;
proc sort data=quest;
by nuq questions;
run;
data quest_i;
set quest;
by nuq questions;
if first.questions=1 then index=0;
index+1;
run;
proc transpose data=quest_i out=quest_t(rename=(col1=vi));
by nuq questions index;
run;
data quest_t;
set quest_t;
name='_'||_name_;
drop _name_;
run;
proc sort data=quest_t;
by nuq index;
run;
proc transpose data=quest_t out=quest_t1;
by nuq index;
id questions name;
run;