Insert & Select in einer Stored Proc

[Albi]

Ich verwende IB 6.5. Die SP ist ganz normal auf gebaut.

Delphi-Quellcode:

Create Procedure Test1(
Input Variable)
Returns(
Output Variablen))
as
Declare Variable iCount integer;
Begin
For
  Select Count( * ) From DB WHERE ID = :sID
  Into: iCount
Do

If iCount = 0 Then
Begin
  Insert
end
else
  UpDate

//Hier müßte ich ein Commit setzen, das die Daten in die DB geschrieben werden. Um Sie dann wieder auslesen zukönnen.

Select ID From DB Where ....
into: MID;

Ich hoffe es halbwegs verständlich, was ich meine. Oder kann man diese Information aus einer Systemtabelle beziehen? IB muß die Daten bis zum Commit oder Rollback doch irgendwo zwischen speichern.