symbole loop trouvé à la place

Version imprimable

Bonjour ,

j'ai l'erreur suivante :

Citation:

Error at line 1
ORA-06550: Ligne 20, colonne 13 :
PLS-00103: Symbole "LOOP" rencontré à la place d'un des symboles suivants :

if

pour le code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
BEGIN                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
DECLARE 
numclipot NUMBER;
codetypeppr NUMBER;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
CURSOR c IS SELECT NUMCLIPO, DATEDEMA, NUMELIGN, CODEOPER, CODTYPPR, CODEPROV, CODECOMM, CODEREGI, CODECENT, CAPAFINA, MODEPAIE, DATLIMAC, CODNATVE, NUMEDOSS, DATECREA, CREE_PAR, DATEMODI, MODI_PAR                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              
FROM V_PROSJERADA_COM_DET_DEM_ATTR ;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             
BEGIN
numclipot := 51000209;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             
FOR c1 IN c LOOP 
numclipot := numclipot+1; 
IF c1.CODTYPPR = 160 THEN codetypeppr := 164 ;
	ELSE IF c1.CODTYPPR = 1531 THEN codetypeppr := 164 ;
	ELSE IF c1.CODTYPPR = 143 THEN codetypeppr := 142 ;
	ELSE IF c1.CODTYPPR = 1534 THEN codetypeppr := 1533 ;
	ELSE IF c1.CODTYPPR = 1535 THEN codetypeppr := 1521;
END IF;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
INSERT INTO COM_DET_DEMAND_ATTR@DBL_VM VALUES(numclipot, c1.DATEDEMA, c1.NUMELIGN, 13111, codetypeppr, c1.CODEPROV, c1.CODECOMM, c1.CODEREGI, c1.CODECENT, c1.CAPAFINA, c1.MODEPAIE, c1.DATLIMAC, c1.CODNATVE, NULL, '04/08/2010', 'OMRANE', c1.DATEMODI, c1.MODI_PAR );
DBMS_OUTPUT.PUT_LINE  ('NUMECLIPP ' || numclipot || ' -++- ' || c1.DATEDEMA || ' -++-' ||  c1.CODTYPPR);                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
END LOOP;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               
END; 
END;

je crois que toute les instructions sont à leurs place mais bon , l'erreur vient.

04/08/2010, 13h30
McM

Normal, après un IF, il faut un END IF;
Tu as 5 IF et un seul END IF..

Structure du IF :

Code:

IF ... THEN ... ELSIF ... THEN .. ELSE ... END IF;

merci,

mais j'ai encore les erreurs

Citation:

ORA-06550: Ligne 12, colonne 20 :
PLS-00103: Symbole "C1" rencontré à la place d'un des symboles suivants :

:= . ( @ % ;
Symbole ":=" a été substitué à "C1" pour continuer.
ORA-06550: Ligne 12, colonne 39 :
PLS-00103: Symbole "THEN" rencontré à la place d'un des symboles suivants :

* & - + ; / at mod rem <an exponent (**)> and or ||
ORA-06550: Ligne 13, colonne 20 :
PLS-00103: Symbole "C1" rencontré à la place d'un des symboles suivants :

:= . ( @ % ;
Symbole ":=" a été substitué à "C1" pour continuer.
ORA-06550: Ligne 13, colonne 38 :
PLS-00103: Symbole "THEN" rencontré à la place d'un des symboles suivants :

* & - + ; / at mod rem <an exponent (**)> and or ||
ORA-06550: Ligne 14, colonne 20 :
PLS-00103: Symbole "C1" rencontré à la place d'un des symboles suivants :

:= . ( @ % ;
Symbole ":=" a été substitué à "C1" pour continuer.
ORA-06550: Ligne 14, colonne 39 :
PLS-00103: Symbole "THEN" rencontré à la place d'un des symboles suivants :

* & - + ; / at mod rem <an exponent (**)> and

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
BEGIN                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
DECLARE 
numclipot NUMBER;
codetypeppr NUMBER;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        
CURSOR c IS SELECT NUMCLIPO, DATEDEMA, NUMELIGN, CODEOPER, CODTYPPR, CODEPROV, CODECOMM, CODEREGI, CODECENT, CAPAFINA, MODEPAIE, DATLIMAC, CODNATVE, NUMEDOSS, DATECREA, CREE_PAR, DATEMODI, MODI_PAR                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              
FROM V_PROSJERADA_COM_DET_DEM_ATTR ;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             
    BEGIN
        numclipot := 51000209;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             
        FOR c1 IN c LOOP 
        numclipot := numclipot+1; 
        IF c1.CODTYPPR = 160 THEN codetypeppr := 164 ;
            ELSEIF c1.CODTYPPR = 1531 THEN codetypeppr := 164 ;
            ELSEIF c1.CODTYPPR = 143 THEN codetypeppr := 142 ;
            ELSEIF c1.CODTYPPR = 1534 THEN codetypeppr := 1533 ;
            ELSEIF c1.CODTYPPR = 1535 THEN codetypeppr := 1521;
            ELSE codetypeppr := 120 ;
        END IF;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
        INSERT INTO COM_DET_DEMAND_ATTR@DBL_VM VALUES(numclipot, c1.DATEDEMA, c1.NUMELIGN, 13111, codetypeppr, c1.CODEPROV, c1.CODECOMM, c1.CODEREGI, c1.CODECENT, c1.CAPAFINA, c1.MODEPAIE, c1.DATLIMAC, c1.CODNATVE, NULL, '04/08/2010', 'OMRANE', c1.DATEMODI, c1.MODI_PAR );
        DBMS_OUTPUT.PUT_LINE  ('NUMECLIPP ' || numclipot || ' -++- ' || c1.DATEDEMA || ' -++-' ||  c1.CODTYPPR);                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       
        END LOOP;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               
    END; 
END;

04/08/2010, 14h26
McM

Citation:

Envoyé par McM

Structure du IF :
IF ... THEN ... ELSIF ... THEN .. ELSE ... END IF;
04/08/2010, 14h28
mnitu

Et avec tous les informations d'erreur de compilation vous n'arrivez pas à trouver tout seul l'anomalie ? :roll:
Une piste allors: ELSEIF n'est pas la même chose que ELSIF
Un conseil, lisez les tutoriels disponible sur ce site avant de continuer.

Ou sinon vous faites la chose de façon correcte :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
INSERT INTO COM_DET_DEMAND_ATTR@DBL_VM
SELECT 51000209 + row_number() over(order by 1),
       DATEDEMA, NUMELIGN, 13111,
       case 
         when CODTYPPR in (160, 1531) then  164
         when CODTYPPR = 143          then  142
         when CODTYPPR = 1534         then 1533
         when CODTYPPR = 1535         then 1521
         else 120
       end,
       CODEPROV, CODECOMM, CODEREGI, CODECENT,
       CAPAFINA, MODEPAIE, DATLIMAC, CODNATVE,
       null, trunc(sysdate), 'OMRANE',
       DATEMODI, MODI_PAR
  FROM V_PROSJERADA_COM_DET_DEM_ATTR;

Et je suis sûr que pour la première colonne une séquence ferait très bien l'affaire.