W.A SAS

libname GPW ' C:\SAS\ALIOR';
proc import out=GPW.alior
file='C:\SAS\ALIOR\alior.xls'
dbms=xls replace;
sheet="ALIOR";
getnames=yes;
run;
proc export data=gpw.alior
outtable="alior"
dbms = access replace;
database="C:\SAS\ALIOR\alior.mdb";
run;
libname GPW1 access ' C:\SAS\ALIOR\alior.mdb';
data GPW.ALIOR_R_M_T;
set GPW.alior(keep=Data Kurs_otwarcia Kurs_zamkni_cia
) ;
nowa_data = INPUT(Data, yymmdd10.);
Kurs_sredni = (Kurs_otwarcia + Kurs_zamkni_cia) /2;
format nowa_data DDMMYY10.;
tydzien=week(nowa_data);
miesiac=month(nowa_data);
rok=year(nowa_data);
run;
data GPW.alior_2012;
set GPW.alior_r_m_t(drop=tydzien miesiac kurs_otwarcia Kurs_zamkni_cia Data) ;
where rok =2012;
run;
%MACRO alior_lata;
%DO i = 2012 %TO 2019;
data GPW1.alior_&i;
set GPW.alior_r_m_t(drop=tydzien miesiac kurs_otwarcia Kurs_zamkni_cia Data) ;
where rok = &i;
run;
%END;
%MEND alior_lata;
%alior_lata;

%MACRO alior_lata_eksport;
%DO i = 2012 %TO 2019;
proc export data = gpw1.alior_&i
file="C:\SAS\ALIOR\alior_&i.xls"
dbms = xls replace;
sheet="Rok_&i";
run;
%END;
%MEND alior_lata_eksport;
%alior_lata_eksport;

proc means data=gpw.alior_r_m_t;
run;
proc means data=gpw.alior_r_m_t;
/* Definiowanie zmiennych */
var Kurs_otwarcia Kurs_zamkni_cia Kurs_sredni;
run;

proc means data=gpw.alior_r_m_t;
/* Grupowanie danych */
by rok;
/* Definiowanie zmiennych */
var Kurs_otwarcia Kurs_zamkni_cia Kurs_sredni;
run;
proc means data=gpw.alior_r_m_t;
/* Grupowanie danych */
by rok miesiac;
/* Definiowanie zmiennych */
var Kurs_otwarcia Kurs_zamkni_cia Kurs_sredni;
run;
proc means data=gpw.alior_r_m_t;
/* Grupowanie danych */
by rok miesiac tydzien;
/* Definiowanie zmiennych */
var Kurs_otwarcia Kurs_zamkni_cia Kurs_sredni;
run;

proc means data=gpw.alior_r_m_t;
/* Grupowanie danych */
by rok miesiac tydzien;
/* Definiowanie zmiennych */
var Kurs_otwarcia Kurs_zamkni_cia Kurs_sredni;
/* Wyprowadzanie danych do pliku */
output out = gpw.statystyki;
run;

data GPW.aliorstopazwrotuiprzyrosty2012;
retain kursPoczatkowy;
retain kursKoncowy;
set GPW.alior_2012 end=eof curobs=observ1;
if observ1 = 1 then do;
kursPoczatkowy = Kurs_sredni;
end;
if eof then do;
kursKoncowy = Kurs_sredni;
stopaZwrotu = ((kursKoncowy - kursPoczatkowy)/kursKoncowy)*100;
end;
przyrostAbsolutny = Kurs_sredni - kursPoczatkowy;
przyrostWzgledny = (Kurs_sredni - kursPoczatkowy)/kursPoczatkowy;
run;