Objective: Reshape data by collapsing multiple records for an individual into a single record.

Solution:

data orders;
input id y z $;
cards;
1 1 b
1 7 r
1 9 g
1 14 u
2 1 c
3 2 e
;
run;
proc print;run;
proc sort;by id;run;
data orders_spread (keep=id y1-y5 z1-z5);
retain y1-y5 z1-z5;
array y_ (*) y1-y5;
array z_ (*) $ z1-z5;
set orders;
by id;
if first.id then do;
i=1;
do j= 1 to 5;
y_(j)= . ;
z_(j)= ' ' ;
end;
end;
y_(i)=y;