Esempi sui cursori

cursori/CURSORI_5.sql

@@ -0,0 +1,59 @@
+--Esempio Cursore FOR LOOPS
+
+DECLARE
+  --Dichiarazione del cursore
+  CURSOR C_CLIENTI
+  IS
+    SELECT
+      CODFIDELITY,
+      NOME,
+      COGNOME
+    FROM
+      CLIENTI
+    WHERE
+      CODFIDELITY IN
+      (
+        SELECT DISTINCT
+          CODFID
+        FROM
+          SCONTRINI
+        WHERE
+          CODFID <> - 1
+        GROUP BY
+          CODFID
+        HAVING
+          SUM(TOTALE) > 300
+      );
+
+BEGIN
+
+  DELETE
+  FROM
+    TOP_CLI
+  WHERE
+    MESE = EXTRACT(MONTH FROM SYSDATE);
+
+  FOR R_CLIENTI IN C_CLIENTI -- Fetch del cursore
+  LOOP
+    DBMS_OUTPUT.PUT_LINE ('Inserimento ' || R_CLIENTI.CODFIDELITY);
+
+    INSERT
+    INTO
+      TOP_CLI
+      (
+        CODFID,
+        MESE,
+        NOME,
+        COGNOME
+      )
+      VALUES
+      (
+        R_CLIENTI.CODFIDELITY,
+        EXTRACT(MONTH FROM SYSDATE),
+        R_CLIENTI.NOME,
+        R_CLIENTI.COGNOME
+      );
+
+  END LOOP;
+
+END;