You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
48 lines
1.2 KiB
48 lines
1.2 KiB
|
|
declare
|
|
didTerrain char(3):='T03';
|
|
didReserv char(3);
|
|
ddateReserv date;
|
|
dnom varchar2(20);
|
|
dancidReservation char(3);
|
|
dmessage varchar2(200);
|
|
inexistant exception;
|
|
dcpt number;
|
|
dnb number:=0;
|
|
cursor cur is select idReserv, dateReserv, nom
|
|
from reservation R, faire F, joueur J
|
|
where R.idReservation = F.idReservation
|
|
and J.idJoueur=F.idJoueur
|
|
and R.idTerrain=didTerrain
|
|
order by 2,3;
|
|
begin
|
|
dmessage:='id Terrain inexistant';
|
|
select count(*) into dcpt
|
|
from terrain
|
|
where idTerrain=didTerrain;
|
|
if dcpt=0
|
|
then raise inexistant;
|
|
else
|
|
open cur;
|
|
fetch cur into didReserv, ddateReserv, dnom;
|
|
while cur%FOUND
|
|
loop
|
|
insert into tresultat values('idReservation:'||didReservation||' date:'||to_char(ddateReserv, 'dd/mm/yy'));
|
|
dancidReservation:=didReservation;
|
|
while dancidReservation=didReservation and cur%FOUND
|
|
loop
|
|
insert into tresultat values (dnom);
|
|
dnb:=dnb+1;
|
|
fetch cur into didReserv, ddateReserv, dnom;
|
|
end loop;
|
|
end loop;
|
|
close cur;
|
|
insert into tresultat values ('Nombre de joueurs à prévenir : '||to_char(dnb));
|
|
end if;
|
|
exception
|
|
when inexistant then insert into tresultat values (dmessage);
|
|
end;
|
|
|
|
|
|
|