Ri-organizzazione degli script in sotto-cartelle

exception/ECCEZIONI_3.sql

@@ -0,0 +1,40 @@
+-- Esempio di scope delle eccezioni
+<<BLOCCO_ESTERNO>>
+DECLARE
+  V_CODICEFID CORSOPLSQL.CLIENTI.CODFIDELITY%TYPE := :CODFID;
+  V_QTABOLLINI NUMBER := 0;
+  V_NOMINATIVO VARCHAR2(50);
+BEGIN
+  
+  SELECT
+    NOME || ' ' || COGNOME
+  INTO
+    V_NOMINATIVO
+  FROM
+    CORSOPLSQL.CLIENTI
+  WHERE
+    CODFIDELITY = V_CODICEFID;
+    
+  DBMS_OUTPUT.PUT_LINE('Il Nome del Cliente è ' || V_NOMINATIVO);
+
+  <<BLOCCO_INTERNO>>
+  BEGIN
+    SELECT
+      SUM(BOLLINI)
+    INTO
+      V_QTABOLLINI
+    FROM
+      SCONTRINI
+    WHERE
+      CODFID = V_CODICEFID;
+    
+    DBMS_OUTPUT.PUT_LINE('Il Cliente ha un monte bollini di ' || NVL(V_QTABOLLINI, 0));
+  EXCEPTION
+    WHEN VALUE_ERROR OR ZERO_DIVIDE THEN
+      DBMS_OUTPUT.PUT_LINE('Errore nel calcolo del monte bollini');
+  END;
+
+EXCEPTION
+  WHEN NO_DATA_FOUND THEN
+    DBMS_OUTPUT.PUT_LINE('NON è stato trovato alcun cliente!!!');
+END;