It looks like OP did not make himself clear. data have;
input value @@;
cards;
1 1 4 6 7 3 2 5 7 8 9 5 3 2 6 8 9 0 9 0 9 7 6 5 4 5 7 8 9 8
;
run;
%let dsid=%sysfunc(open(have));
%let n=%sysevalf(%sysfunc(attrn(&dsid,nobs))/2,ceil);
%let dsid=%sysfunc(close(&dsid));
data _null_;
set have end=last;
array odd{&n} _temporary_;
array even{&n} _temporary_;
if mod(_n_,2) eq 1 then do; a+1;odd{a}=value;end;
else do; b+1;even{b}=value;end;
if last then do;
do i=1 to &n;
put odd{i}= even{i}=;
end;
end;
run;
Ksharp Tian.Kong
... View more