set transaction isolation level

[B.Hauser]

Es wäre schon mal interessant zu wissen, welche Fehler Du bekommst.

Ansonsten sollte es wie folgt funktionieren.

1. Beide Dateien im Journal registrieren.
2. Programm mit Option COMMIT=*CHG umwandeln (oder besser ein SET OPTION-Statement mit COMMIT=*CHG vor dem 1. SQL-Statement in den QuellCode einfügen)
3. Sicherheitshalber vor dem ersten INSERT ein COMMIT-Statement ausführen (damit nicht festgeschriebene Änderungen, festgeschrieben werden)
4. Erstes Insert ausführen
5. Wenn SQLCODE < *ZEROS --> ROLLBACK (Und Ende)
6. Zweites Insert ausführen
7. Wenn SQLCODE < *ZEROS --> ROLLBACK (Und Ende)
8. COMMIT


Etwa so:

Exec SQL  Set Option Commit=*CHG;

Exec SQL  Commit;
Exec SQL  Insert ....;
If SQLCODE < *Zeros;
   Exec SQL Rollback;
   Return;
EndIf;
Exec SQL Insert ....;
If SQLCODE < *Zeros;
   Exec SQL Rollback;
   Return;
EndIf;
Exec SQL Commit;

Anmerkung: SET TRANSACTION ISOLATION ist nicht erforderlich. SQL startet Commitment Control automatisch, bei COMMIT<>*NONE und falls noch nicht gestartet.
Wenn Du in RPG-Programmen nicht explizit COMMIT in den F-Bestimmungen angegeben hast und die sonstigen SQL-Programme mit INSERT/UPDATE/DELETE mit COMMIT=*NONE umgewandelt hast, passiert nichts, wenn die Commitment Steuerung gestartet bleibt.
Du kannst natürlich auch nach Programm-Ende explizit den CL-Befehl ENDCMTCTL ausführen.


Birgitta

[BenderD]

... ob set option besser ist, weiß ich nicht; ich würde in jedem Fall ein CRTSQLRPGI OBJTYPE(*MODULE) machen, da man die Sperrstufe dann auf module Ebene machen kann. Dieses Modul erstellt man dann mit commit level <> *NONE; dann läuft in diesem Modul alles mit commit, in allen anderen Module mit der Sperrstufe des jeweiligen Moduls.
Zu Beginn macht man selbstredend kein "Angst-Commit", sondenr allenfalls ein Rollback, um unvollständige Transaktionen abzuräumen.
Warum man noch F-Karten ablochen soll, wenn man embedded SQL kann, erschließt sich mir ebenfalls nicht und ENDCMTCTL würde ich ebenfalls bleiben lassen, das kann Probleme bei Folgeaufrufen geben.

D*B