libname GPW 'C:\Users\232996\Desktop\gpw';
libname GPW2 'C:\Users\232996\Desktop\gpw2';

proc import out=GPW.dane
file="C:\Users\232996\Desktop\gpw\dane.xls"
dbms=xls replace;
run;

proc export data=GPW.dane
outtable="komputronik"
dbms = access replace;
database="C:\Users\232996\Desktop\gpw\komputronik.mdb";
run;

data GPW2.Dane_r_m_t;
set GPW.dane(keep=Data kurs_otwarcia Kurs_zamkni_cia );
Kurs_sredni = (kurs_otwarcia + Kurs_zamkni_cia) /2;
newData = input(Data, yymmdd10.);
format newData yymmdd10.;
tydzien=week(newData);
miesiac=month(newData);
rok=year(newData);
run;

libname GPW1 'C:\Users\232996\Desktop\gpw';

%MACRO addTables;
%DO i = 2007 %TO 2020;
data GPW2.komputronik_&i;
set GPW2.Dane_r_m_t;
where rok=&i;
run;

%END ;
%MEND addTables;
%addTables;


%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;