Transaction dans une requete SQL

Bonjour,

Je dois migrer une application web crée en ASP/MSSQL vers ASP/DB2 (AS400) mais j'ai quelque soucis avec les transactions.

Quand j'essaye de l'executer il me ramene une serie d'erreur:

Code:

---

1 2 3 4 5 6 7 8

BEGIN TRANSACTION; UPDATE x453CBTF.incival WITH (tablockx) SET descid = descid + 1; insert into x453CBTF.incidesc (indeid, indedesc, indedepa) SELECT (SELECT MAX(descid) as id from x453CBTF.incival),'test', 'test'; IF @@ERROR = 0 COMMIT TRANSACTION; ELSE ROLLBACK TRANSACTION;

---

Apres avoir effectué des recherches, j'ai appris que DB2 ne supportait les transactions... Y a t'il qqch de similaire sur DB2?

D'avance merci.

Il faudrait créer à la place

1/ soit une procédure stockée.

Compiler les PS avec la commande RUNSQLSTM. Par défaut, les PS sont compilées dans le bibliothèque pointée par la *CURLIB du job.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

DROP PROCEDURE MaPS;   CREATE PROCEDURE MaPS( IN MaBib Varchar(10), Out Erreur dec(1, 0) ) LANGUAGE SQL BEGIN Set Erreur = 0; UPDATE MaBib.incival SET descid = descid + 1; INSERT INTO MaBib.incidesc (indeid, indedesc, indedepa) SELECT (SELECT MAX(descid) AS id FROM MaBib.incival),'test', 'test'; IF SQLSTT = 0 Then COMMIT; Set Erreur = 0; ELSE ROLLBACK; Set Erreur = -1; END IF; END

---

Puis l'appeler par exemple dans un programme :

Code:

---

1 2 3

Exec SQL Call MaPS(x453CBTF, :Erreur); if Erreur < 0; Anomalie...

---

2/ soit un membre

Si les infos sont toutes "en dur" dans SQL, une autre solution consiste à placer les instructions SQL dans un membre source et d'exécuter son contenu par la commande RUNSQLSTM mais PAS de paramétrage ni de tests (IF THEN ELSE END IF) possibles.

Code:

---

1 2	UPDATE x453CBTF.incival SET descid = descid + 1; INSERT INTO x453CBTF.incidesc (indeid, indedesc, indedepa) SELECT (SELECT MAX(descid) AS id FROM x453CBTF.incival),'test', 'test';

---

3/ soit créer la PS via iSeries (ou IBM i) Navigator...