Discussion :

[Persee]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Mercure]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...