SQL Cursor schließen

[smudo]

Hallo marabu,

ich beziehe mich auf das Buch "Interbase Datenbankentwicklung mit Delphi" von Andreas Kosch.
Ich weiß nicht, ob ichs darf, aber ich zeige mal das (leider einzige) Beispiel zu Current Of und Cursor.

SQL-Code:

CREATE PROCEDURE CursorBsp AS
DECLARE VARIABLE temp;
BEGIN
  FOR SELECT p.CARGO
  FROM Table1 t, Table2 p
  WHERE p.MasterNumber = t.MasterNumber
  AND p.HouseNumber = t.HouseNumber
  AND p.ArrivalDate = t.ArrivalDate
  INTO :temp
  AS CURSOR TmpCursor
  DO
    UPDATE Table1 SET Origin = :temp
    WHERE CURRENT OF TmpCursor;
END

Das ist das Beispiel von Andreas Kosch. Mein Beispiel war natürlich nicht sehr sinnvoll, dafür benötige ich keinen Cursor. Ich habs nur schnell zusammengezimmert, weil ich alle Prozeduren schon auf Nicht-Cursor-Technik umgestellt hatte. Trotzdem interessiert es mich noch brennend für zukünftige Einsätze, wie ich im Interbase 6.1 besser einen Cursor definieren, verwenden und freigeben könnte.

Ist vielleicht jemand kreativer als ich und kann ein gutes Beispiel demonstrieren?

Danke

René