%MACRO toXMLS;
%DO i = 2007 %TO 2020;

proc export
data=gpw2.komputronik_&i
dbms=xls
file="C:\Users\232996\Desktop\gpw2\komputronik_&i.xls"
replace;
run;

%END ;
%MEND toXMLS;
%toXMLS;


proc means data=gpw2.dane_r_m_t mean std median min max;
by rok miesiac tydzien;
var kurs_otwarcia Kurs_zamkni_cia Kurs_sredni;
format kurs_otwarcia 8.2 Kurs_zamkni_cia 8.2 Kurs_sredni 8.2;
output out = gpw.statystyki;
run;


goptions reset=all htitle=12pt htext=10pt;
title "Wykres notowan dla 2019 roku";
axis1 label=("Dni w roku") minor=(n=14);
axis2 label=(angle=90 "Kurs") minor=(n=14);
symbol interpol=join height=100;
proc gplot data=GPW2.komputronik_2019;
plot Kurs_sredni*newData / haxis=axis1 vaxis=axis2;
run;



%MACRO getStatisticsWeekly;
%DO i = 2007 %TO 2020;
proc means data=gpw2.komputronik_&i;
by rok miesiac tydzien;
output out = gpw2.statystyki_weekly_&i mean =;
run;

%END ;
%MEND getStatisticsWeekly;
%getStatisticsWeekly;

%MACRO getStatisticsMonthly;
%DO i = 2007 %TO 2020;

proc means data=gpw2.komputronik_&i;
by rok miesiac;

output out = gpw2.statystyki_monthly_&i mean =;
run;
%END ;
%MEND getStatisticsMonthly;
%getStatisticsMonthly;


%MACRO dayilyAyear;
%DO i = 2007 %TO 2020;
goptions reset=all htitle=12pt htext=10pt;
title "Wykres notowan dla &i roku";
axis1 label=("Dni w roku") minor=(n=14);
axis2 label=(angle=90 "Kurs") minor=(n=14);
symbol interpol=join height=100;
proc gplot data=GPW2.komputronik_&i;
plot Kurs_sredni*newData / haxis=axis1 vaxis=axis2;
run;

%END ;
%MEND dayilyAyear;
%dayilyAyear;





%MACRO weeklyAyear;
%DO i = 2007 %TO 2020;

goptions reset=all htitle=12pt htext=10pt;
title "Wykres notowan dla &i roku";
axis1 label=("Tygodnie w roku") minor=(n=14);
axis2 label=(angle=90 "Kurs") minor=(n=14);
symbol interpol=join height=100;
proc gplot data=GPW2.statystyki_weekly_&i;
plot Kurs_sredni*newData / haxis=axis1 vaxis=axis2;
run;

%END ;
%MEND weeklyAyear;
%weeklyAyear;


%MACRO monthlyAyear;
%DO i = 2007 %TO 2020;

goptions reset=all htitle=12pt htext=10pt;
title "Wykres notowan dla &i roku";
axis1 label=("miesiace w roku") minor=(n=14);
axis2 label=(angle=90 "Kurs") minor=(n=14);
symbol interpol=join height=100;
proc gplot data=GPW2.statystyki_monthly_&i;
plot Kurs_sredni*newData / haxis=axis1 vaxis=axis2;
run;

%END ;
%MEND monthlyAyear;
%monthlyAyear;







%MACRO stopa;
%DO i = 2007 %TO 2020;
data GPW2.kompstopazwrotuiprzyrosty_&i;


retain kursKoncowy;
retain kursPoczatkowy;

set GPW2.komputronik_&i end=eof curobs=observ1;
if observ1 = 1 then do;
kursPoczatkowy = Kurs_sredni;
end;
if eof then do;
kursKoncowy = Kurs_sredni;
stopaZwrotu = ((kursKoncowy - kursPoczatkowy)/kursPoczatkowy)*100;
end;
przyrostAbsolutny = Kurs_sredni - kursPoczatkowy;
przyrostWzgledny = (Kurs_sredni - kursPoczatkowy)/kursPoczatkowy;
run;

%END ;
%MEND stopa;
%stopa;