proc sort data=seria3.L06z04_a out=posortowane;
by firstname lastname;

proc transpose data=posortowane out=transponowane(drop = _NAME_);
by firstname lastname;
id date;
drop _name_;
run;

*Rozwiązanie z formatowaniem


data sformatowane;
set seria3.L06z04_a;
data = put(index_val, COMMAX5.0 );
date2 = put(date,  YYMMDD10.);
chardate = substr(date2, 1, 4) || substr(date2, 6, 2) || substr(date2,9,2);

drop index_val date date2;

run;

proc sort data=sformatowane out=posortowane;
by firstname lastname;

proc transpose data=posortowane out=transponowane(drop = _NAME_) PREFIX = d_;
by firstname lastname;
id chardate;
drop _name_;
run;


proc format;
  value my_dollar
  . = " "
  other = [COMMAX5.0]
;
run;
proc print data=transponowane label;
  format d: my_dollar.;
run;