KOLOS GR_B

data s.ZAD1(keep= CZYTELNIK_NAZWISKO CZYTELNIK_IMIE ADRES DATA_ZAPISU);
set aaa.Czytelnik;
where AKTYWNY = 0 and YEAR(DATA_ZAPISU) = 2007;
run;

-----------------------------------------

proc sql;
create table s.zad2a as
select * from b.ksiazka
where JEZYK='POL';
quit;

proc sql;
create table s.zad2b as
select case
when ROK_WYDANIA < 1980 then 'r1980'
when ROK_WYDANIA >= 1980 and ROK_WYDANIA <= 2000 then 'r1980-2000'
when ROK_WYDANIA > 2000 then 'r2000'
end as KATEGORIA, *
from s.zad2a
quit;

proc sql;
create table s.zad2 as
select KATEGORIA, count(*) as ILOSC, sum(CENA) as WARTOSC from s.zad2b
group by KATEGORIA;
quit;


---------------------------------------

data s.zad3;
merge aaa.Wypozyczenia(in=a)
    aaa.Czytelnik(rename=(ID=CZYTELNIK_ID) in=b);
    by CZYTELNIK_ID;
    if a;
    run;

data s.zad3a;
set s.zad3;
where DATA_WYPOZYCZENIA >= '01JAN2007'd and DATA_WYPOZYCZENIA <= '01JUL2007'd;

proc sort data=s.zad3a;
by CZYTELNIK_ID;
run;

data s.Zad3b(keep= CZYTELNIK_ID LICZBA_WYPOZYCZEN);
set s.zad3a;
by CZYTELNIK_ID;
if first.CZYTELNIK_ID then LICZBA_WYPOZYCZEN = 0;
LICZBA_WYPOZYCZEN+1;
if last.CZYTELNIK_ID then output;
run;


data s.z3;
set s.zad3b;
where LICZBA_WYPOZYCZEN >= 30;
run;


data s.z4a;
set aaa.Ksiazka;
where ROK_WYDANIA <= 1960 and ROK_WYDANIA ~=.;


proc sort data=s.z4a;
by SYGNATURA;
run;


proc sort data=aaa.wypozyczenia;
by KSIAZKA_SYGNATURA;
run;

data s.z4b;
merge s.z4a(in=a)
aaa.wypozyczenia(rename=(KSIAZKA_SYGNATURA=SYGNATURA) in=b);
by SYGNATURA;
if a;
run;

data s.Z4c(keep= TYTUL AUTOR_NAZWISKO ROK_WYDANIA WYPOZYCZENIA);
set s.z4b;
by SYGNATURA;
if first.SYGNATURA then WYPOZYCZENIA = 0;
WYPOZYCZENIA+1;
if last.SYGNATURA then output;
run;

proc sort data=s.Z4c;
by descending WYPOZYCZENIA;
run;

-------------------------------------------

data s.zad5a;
set aaa.Czytelnik;
where substr(CZYTELNIK_IMIE,length(CZYTELNIK_IMIE),1)='a' AND scan(ADRES,2,' ') ~= '';
licznik = 1;
run;


proc sort data=s.Zad5a;
by licznik;
run;

data s.nowe(keep= liczba_kobiet);
set s.Zad5a;
by licznik;
if first.licznik then liczba_kobiet = 0;
liczba_kobiet+1;
if last.licznik then output;
run;