sas

libname B "C:\Users\SAS\Desktop\kolos";

/*Zad 1*/
data B.ZAD1(keep = CZYTELNIK_NAZWISKO CZYTELNIK_IMIE ADRES DATA_ZAPISU);
set B.Czytelnik;
where AKTYWNY = 0 and year(DATA_ZAPISU) = 2007 ;
run;

/*Zad 3*/
data B.wypozyczone_pierwsze_polrcze;
set B.Wypozyczenia;
where DATA_WYPOZYCZENIA <= '30JUN2007'd and (DATA_WYPOZYCZENIA >= '01JAN2007'd);
run;

data B.ZAD3(keep = CZYTELNIK_ID liczba_wypozyczen);
set B.wypozyczone_pierwsze_polrcze;
by CZYTELNIK_ID;
if first.CZYTELNIK_ID then liczba_wypozyczen = 0;
liczba_wypozyczen +1;
if last.CZYTELNIK_ID and liczba_wypozyczen >=30 then output;
run;

/*Zad 4*/

data B.wydane_do_1960;
set B.Ksiazka;
if ROK_WYDANIA <= 1960;
run;

proc sort data = B.Wypozyczenia;
by KSIAZKA_SYGNATURA;
run;

data B.zliczone_wypozyczenia(keep = KSIAZKA_SYGNATURA WYPOZYCZENIA);
set B.Wypozyczenia;
by KSIAZKA_SYGNATURA;
if first.KSIAZKA_SYGNATURA then WYPOZYCZENIA = 0;
WYPOZYCZENIA +1;
if last.KSIAZKA_SYGNATURA then output;
run;


data B.ZAD4(keep = TYTUL AUTOR_NAZWISKO ROK_WYDANIA WYPOZYCZENIA);
merge B.zliczone_wypozyczenia(in=a)
B.wydane_do_1960(in=b RENAME=(SYGNATURA=KSIAZKA_SYGNATURA));
by KSIAZKA_SYGNATURA;
if a=b;
run;

proc sort data =B.Zad4
out = B.Zad4;
by descending wypozyczenia;
run;