ALTER PROCEDURE "DBA"."Druzyna"( IN klub_id int )
BEGIN
DECLARE imie CHAR(40);
DECLARE nazwisko CHAR(40);
DECLARE narodowosc CHAR(40);
DECLARE data_urodzenia DATE;
DECLARE wzrost numeric(3);
DECLARE waga numeric(3);
DECLARE pozycja CHAR(10);
DECLARE kontrakt_do DATE;
DECLARE kontrakt_od DATE;
DECLARE nazwa_klubu CHAR(40);
DECLARE kursor_zawodnik CURSOR FOR (SELECT zawodnik.imie, zawodnik.nazwisko, zawodnik.narodowosc, zawodnik.data_urodzenia,
wzrost, waga, (SELECT nazwa_pozycja AS Pozycja FROM pozycja_zawodnika AS pozycja WHERE pozycja.id_pozycja = zawodnik.id_pozycja),
kontrakt.kontrakt_od, kontrakt.kontrakt_do
INTO imie, nazwisko, narodowosc, data_urodzenia, wzrost, waga, pozycja, kontrakt_od, kontrakt_do
FROM zawodnik
INNER JOIN kontrakt ON kontrakt.id_zawodnik = zawodnik.id_zawodnik AND (kontrakt.id_klub = klub_id) AND kontrakt.kontrakt_do > getdate());

SET nazwa_klubu = (SELECT nazwa_klub FROM klub WHERE id_klub = klub_id);
MESSAGE 'Zawodnicy klubu: ' || nazwa_klubu || '\n' TO CLIENT;

OPEN kursor_zawodnik;
petla: LOOP
    FETCH NEXT kursor_zawodnik INTO imie, nazwisko, narodowosc, data_urodzenia, wzrost, waga, pozycja, kontrakt_od, kontrakt_do;
    IF SQLCODE <> 0 THEN
        Leave petla;
    ENDIF;
    MESSAGE 'Imie i nazwisko: ' || imie || ' ' || nazwisko || '\n' ||
    'Kraj pochodzenia: ' || narodowosc || ' Data urodzenia: ' || data_urodzenia || ' Wzrost: ' || wzrost || ' Waga: ' || waga || '\n' ||
    'Pozycja: ' || pozycja || '\n' ||
    'Kontrakt od: ' || kontrakt_od || ' Kontrakt do: ' || kontrakt_do || '\n'   TO CLIENT;
END LOOP;
CLOSE kursor_zawodnik;
END