Hallo zusammen,
ich habe hier eine Prozedur welche mir die aktuell verfügbaren MedienIDs und die dazugehörigen ExemplarID aus einer Bibliothek ausliest.
Jetzt möchte ich noch eine EXCEPTION haben, welche mir eine Fehlermeldung ausgibt wenn ich eine nicht vorhanden MedienID ausgeben möchte.
So wie ich es jetzt implementiert habe funktioniert es leider nicht.
Hat vllt. einer von euch eine Idee?
Vielen vielen Dank im voraus :-)
ich habe hier eine Prozedur welche mir die aktuell verfügbaren MedienIDs und die dazugehörigen ExemplarID aus einer Bibliothek ausliest.
Jetzt möchte ich noch eine EXCEPTION haben, welche mir eine Fehlermeldung ausgibt wenn ich eine nicht vorhanden MedienID ausgeben möchte.
So wie ich es jetzt implementiert habe funktioniert es leider nicht.
Hat vllt. einer von euch eine Idee?
Vielen vielen Dank im voraus :-)
Code:
create or replace PROCEDURE MEDIENAUSLEIHE (l_ausweisnummer VARCHAR2, l_medienid VARCHAR2) AS CURSOR c_verfuegbareExemplare is select Medienid, exemplarid from Exemplar where (exemplar.exemplarid, exemplar.medienid) not in (select exemplarid, medienid from reservierung where abholung_bis <= sysdate) and exemplar.exemplarid in (select exemplarid from Ausleihe where TATSAECHLICHES_RUECKGABEDATUM is not NULL) and exemplar.medienid = l_medienid; l_exemplarid VARCHAR2(20); l_mediumid VARCHAR2(20); BEGIN open c_verfuegbareExemplare; dbms_output.put_line('Medium ID ' || ' ExemplarID'); LOOP FETCH c_verfuegbareExemplare INTO l_mediumid, l_exemplarid; EXIT WHEN c_verfuegbareExemplare%NOTFOUND; dbms_output.put_line(l_mediumid || ' (' || to_char(l_exemplarid) || ')'); END LOOP; EXCEPTION WHEN NO_DATA_Found THEN DBMS_OUTPUT.put_line('MedienID nicht vorhanden'); END MEDIENAUSLEIHE;
Comment