Petit PL/SQL qui veut pas

Bonjour,

voici un petit script simple mais dans lequel j'ai trouvé moyen de faire (manifestement) des erreurs puisque j'ai les messages suivants en sortie :

Citation:

Error starting at line 1 in command:
Error report:
ORA-06550: Ligne 9, colonne 34 :
PL/SQL: ORA-00933: la commande SQL ne se termine pas correctement
ORA-06550: Ligne 4, colonne 1 :
PL/SQL: SQL Statement ignored
ORA-06550: Ligne 11, colonne 4 :
PLS-00103: Symbole ";" rencontré à la place d'un des symboles suivants :

loop
06550. 00000 - "line %s, column %s:\n%s"
*Cause: Usually a PL/SQL compilation error.
*Action:

Voici mon script :
Code:

1 2 3 4 5 6 7 8 9 10 11 BEGIN FOR record_temp IN (SELECT DISTINCT CONNUM, CORLFI ,COACMN,COETBT ,COIPTE FROM tmsmdc2 where cerdge=2000000) LOOP update tmsmdc2 c2 set c2.cerdge= 1101010 where c2.CONNUM=record_temp.CONNUM and c2.CORLFI=record_temp.CORLFI and c2.COACMN=record_temp.COACMN and c2.COETBT=record_temp.COETBT and c2.COIPTE=record_temp.COIPTE END LOOP; END;
Quelqu'un pour un peu d'aide encore ?

Merci d'avance

Mederik

Chaque instruction doit se terminer par un point virgule.

Le tout premier message d'erreur vous indique un emplacement clef :

Citation:

ORA-06550: Ligne 9, colonne 34 :
PL/SQL: ORA-00933: la commande SQL ne se termine pas correctement

Pour l'erreur Waldar a répondu, mais normalement, le loop ne sert à rien, un simple update suffit.

Code:

1
2
3
4
5
UPDATE tmsmdc2
SET cerdge= 1101010
WHERE (CONNUM, CORLFI, COACMN, COETBT, COIPTE) 
IN (SELECT DISTINCT CONNUM, CORLFI ,COACMN, COETBT, COIPTE 
		FROM tmsmdc2 WHERE cerdge=2000000);

ou

Code:

1
2
3
4
5
6
7
8
9
UPDATE tmsmdc2 a
SET cerdge= 1101010
WHERE EXISTS (SELECT 1 FROM tmsmdc2 b
	WHERE b.CONNUM=a.CONNUM
	AND b.CORLFI=a.CORLFI
	AND b.COACMN=a.COACMN
	AND b.COETBT=a.COETBT
	AND b.COIPTE=a.COIPTE
	AND b.cerdge=200000);

Citation:

Envoyé par McM

...

Code:

1
2
3
4
5
UPDATE tmsmdc2
SET cerdge= 1101010
WHERE (CONNUM, CORLFI, COACMN, COETBT, COIPTE) 
IN (SELECT DISTINCT CONNUM, CORLFI ,COACMN, COETBT, COIPTE 
		FROM tmsmdc2 WHERE cerdge=2000000);

...

Pas besoin de distinct.

Plus simple

Code:

1
2
3
4
 
UPDATE tmsmdc2
SET cerdge= 1101010
WHERE cerdge=2000000

Citation:
Envoyé par mnitu
Plus simple
Code:

1 2 3 4 UPDATE tmsmdc2 SET cerdge= 1101010 WHERE cerdge=2000000
Euh .. Non, tu peux très bien avoir ce cas :
Code:

1 2 3 CONNUM CORLFI COACMN COETBT COIPTE cerdge 1 1 1 1 1 200000 1 1 1 1 1 0

Citation:

Envoyé par McM

Euh .. Non, tu peux très bien avoir ce cas :
...

C’est un cas qui visiblement m’a échappé.