PL/SQL Déclaration Curseur

Bonjour,

Je me tourne vers vous parce que je suis entrain de m'arracher les cheveux...
Je veux créer une procédure en PL utilisant un curseur, mais pas moyen de la compiler correctement. Voici le code de base :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 CREATE OR REPLACE PROCEDURE BO.ALIM_PLANAP_ECH IS DECLARE v_corg VARCHAR2(2 BYTE); v_compte VARCHAR2(11 BYTE); v_bail NUMBER(2); v_plan NUMBER(2); v_lddeb DATE; v_ldfin DATE; v_duree NUMBER(4); v_nb NUMBER(9,2); CURSOR tmp_det_plans IS SELECT p.CORG,p.CCOMPTE,p.NOBAIL,p.NOPLAN,last_day(p.DDEB) AS LDDEB,last_day(p.DFIN) AS LDFIN,p.NB,months_between(last_day(p.DFIN),last_day(p.DDEB)) AS DUREE FROM PLANRAT@DB_EELOGI p; BEGIN EXECUTE IMMEDIATE('TRUNCATE TABLE BO.PLANAP_ECH'); OPEN temp_det_plans; FETCH temp_det_plans INTO v_corg, v_compte, v_bail, v_plan, v_lddeb, v_ldfin, v_duree, v_nb; FOR i IN 0..v_duree LOOP INSERT INTO BO.PLANAP_ECH SELECT v_corg, v_compte, v_bail, decode(length(v_bail),2,v_corg||v_compte||'0'||v_bail,v_corg||v_compte||v_bail), v_plan, to_number(to_char(add_months(v_lddeb,i),'yyyy')), to_number(to_char(add_months(v_lddeb,i),'mm')), add_months(v_lddeb,i), v_nb, v_corg||v_compte FROM DUAL; END LOOP; END;
A la compilation, j'ai l'erreur :

Citation:

ERROR line 3, col 12, ending_line 3, ending_col 19, Found 'VARCHAR2', Expecting: ( . @ -or- % -or- .. := DEFAULT NOT NULL -or- ;

Je ne comprends pas pourquoi...

Si je retire mon instruction "DECLARE", ça passe au niveau des variables. Par contre j'ai l'erreur :

Citation:

PLS-00201: identifier 'TEMP_DET_PLANS' must be declared

Celle là je la comprends mieux...

Mais si, du coup, je place mon DECLARE après mes variables, avant mon "CURSOR", j'ai l'erreur suivante :

Citation:

ERROR line 11, col 12, ending_line 11, ending_col 24, Found 'tmp_det_plans', Expecting: ( . @ -or- % -or- .. := DEFAULT NOT NULL -or- ;

Alors, je ne pige plus rien...

C'est sûrement évident mais comme je débute en PL j'ai un peu de mal...

EDIT : Tant que j'y suis, si quelqu'un peut me dire comment boucler mon FETCH pour qu'il aille jusqu'à EOF...

Pas de DECLARE dans une procédure.
Pour les problèmes de syntaxe, ce serait bien que tu te débrouille tout seul :?

J'ai repiqué la syntaxe à partir d'un onglet "Scripts" sous TOAD où il n'y a pas de 'S' à 'BYTE'.

J'ai essayé malgré tout mais ça ne change rien à mon erreur.
J'avais d'ailleurs essayé avec %ROWTYPE mais même erreur.

Citation:

Pas de DECLARE dans une procédure.

Cela veut-il dire qu'il faut que je déclare obligatoirement mon curseur dans un package ???

c'est DECLARE le problème

Citation:

c'est DECLARE le problème

OK, mais si je le vire j'ai l'erreur :

Citation:

PLS-00201: identifier 'TEMP_DET_PLANS' must be declared

regarde la syntaxe avec un FOR, ça simplifiera le code. Il y a un tuto très bien fait sur ce site

Merci pour l'info, je suis allé voir le tuto et ai changé mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
CREATE OR REPLACE PROCEDURE BO.ALIM_PLANAP_ECH IS
    v_corg VARCHAR2(2 BYTE);
    v_compte VARCHAR2(11 BYTE);
    v_bail NUMBER(2);
    v_plan NUMBER(2);
    v_lddeb DATE;
    v_ldfin DATE;
    v_duree NUMBER(4);
    v_nb NUMBER(9,2);
 
    BEGIN
        EXECUTE IMMEDIATE('TRUNCATE TABLE BO.PLANAP_ECH');
        OPEN temp_det_plans FOR 'SELECT p.CORG,p.CCOMPTE,p.NOBAIL,p.NOPLAN,last_day(p.DDEB) AS LDDEB,last_day(p.DFIN) AS LDFIN,p.NB,months_between(last_day(p.DFIN),last_day(p.DDEB)) AS DUREE
        FROM PLANRAT@DB_EELOGI p';
        FETCH temp_det_plans INTO v_corg, v_compte, v_bail, v_plan, v_lddeb, v_ldfin, v_duree, v_nb;
        FOR i IN 0..v_duree LOOP
            INSERT INTO BO.PLANAP_ECH
            SELECT
                v_corg,
                v_compte,
                v_bail,
                decode(length(v_bail),2,v_corg||v_compte||'0'||v_bail,v_corg||v_compte||v_bail),
                v_plan,
                to_number(to_char(add_months(v_lddeb,i),'yyyy')),
                to_number(to_char(add_months(v_lddeb,i),'mm')),
                add_months(v_lddeb,i),
                v_nb,
                v_corg||v_compte
             FROM DUAL;
        END LOOP;
    END;

Mais malgré ça, même erreur :

Citation:

PLS-00201: identifier 'TEMP_DET_PLANS' must be declared

Code:

PLS-00201: identifier 'TEMP_DET_PLANS' must be declared

Le monsieur te demande de déclarer ta variable !!! :fou:

Merci tu m'aides beaucoup :evil:

Sache que je sais encore lire et que si tu avais pris la peine de lire le fil de la conversation, ou ne serait ce que le titre de la discussion, tu aurais compris que ça je le savais déjà. C'est comment faire qui me pose problème.

Alors maintenant si c'est la politesse qui t'ecorches, tu peux te garder tes réponses!

Code:

1 2 type gencurtyp is ref cursor; temp_det_plans GenCurTyp ;
Et si tu rajoutes ceci ? ;)

Merci pour cette réponse ci.
Je testerai dès demain matin

Il est possible d'utiliser un curseur sans le déclarer au préalable avec FOR, c'est ce qu'Orafrance vous invitait à trouver sur les tutoriaux du site.

Citation:

Envoyé par TomDuBouchon

Merci tu m'aides beaucoup :evil:

Sache que je sais encore lire et que si tu avais pris la peine de lire le fil de la conversation, ou ne serait ce que le titre de la discussion, tu aurais compris que ça je le savais déjà. C'est comment faire qui me pose problème.

C'est parfait de savoir lire, c'est encore mieux d'essayer de comprendre.

Dans ton code :
Citation:
Envoyé par TomDuBouchon
Merci pour l'info, je suis allé voir le tuto et ai changé mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 CREATE OR REPLACE PROCEDURE BO.ALIM_PLANAP_ECH IS v_corg VARCHAR2(2 BYTE); v_compte VARCHAR2(11 BYTE); v_bail NUMBER(2); v_plan NUMBER(2); v_lddeb DATE; v_ldfin DATE; v_duree NUMBER(4); v_nb NUMBER(9,2); BEGIN EXECUTE IMMEDIATE('TRUNCATE TABLE BO.PLANAP_ECH'); OPEN temp_det_plans FOR 'SELECT p.CORG,p.CCOMPTE,p.NOBAIL,p.NOPLAN,last_day(p.DDEB) AS LDDEB,last_day(p.DFIN) AS LDFIN,p.NB,months_between(last_day(p.DFIN),last_day(p.DDEB)) AS DUREE FROM PLANRAT@DB_EELOGI p'; FETCH temp_det_plans INTO v_corg, v_compte, v_bail, v_plan, v_lddeb, v_ldfin, v_duree, v_nb; FOR i IN 0..v_duree LOOP INSERT INTO BO.PLANAP_ECH SELECT v_corg, v_compte, v_bail, decode(length(v_bail),2,v_corg||v_compte||'0'||v_bail,v_corg||v_compte||v_bail), v_plan, to_number(to_char(add_months(v_lddeb,i),'yyyy')), to_number(to_char(add_months(v_lddeb,i),'mm')), add_months(v_lddeb,i), v_nb, v_corg||v_compte FROM DUAL; END LOOP; END;
Mais malgré ça, même erreur :
je ne vois pas la déclaration de temp_det_plans :roll:

Encore une fois, regarde la syntaxe avec FOR LOOP si tu veux t'affranchir de la déclaration du curseur.

Bonjour,

@Jerome_Mtl : Merci pour cette info, ma compilation est bien passée dès lors que j'ai placé cette déclaration.

@Waldar : S'il s'agit du point ci-dessous, c'est ce que j'ai essayé de faire (cf 2e version de mon code) mais il le moteur a malgré tout râlé lors de la compilation.
Citation:
1.2.3. OPEN FOR
Ouverture d'un curseur SQL incluant l'ordre select correspondant.
La déclaration préalable du curseur dans la section déclarative n'est pas nécessaire
Code:

1 2 3 4 5 Declare LC$Nom_emp EMP.ENAME%Type ; Begin Open C_EMP For 'Select ename From EMP Where empno = 1024' ; Fetch C_EMP Into LC$Nom_emp ; Close C_EMP ; End ;
@Tous : Merci pour votre aide

Je pensais plus à :

Code:

1
2
        FOR record IN (SELECT p.CORG,p.CCOMPTE,p.NOBAIL,p.NOPLAN,last_day(p.DDEB) AS LDDEB,last_day(p.DFIN) AS LDFIN,p.NB,months_between(last_day(p.DFIN),last_day(p.DDEB)) AS DUREE
        FROM PLANRAT@DB_EELOGI p) LOOP

Citation:

C'est parfait de savoir lire, c'est encore mieux d'essayer de comprendre.

C'est pourtant bien ce que j'essaie de faire.

Citation:

regarde la syntaxe avec FOR LOOP si tu veux t'affranchir de la déclaration du curseur.

J'ai parcouru le tutoriel, et s'il s'agit du point ci-dessous, il y a la mention "DECLARE" dont tu m'as dit qu'elle ne passerait pas dans une procédure....
Citation:
1.2.13. FOR (curseur)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 SQL> Declare 2 -- Déclaration du curseur 3 CURSOR C_EMP IS 4 Select 5 * 6 From 7 EMP 8 Where 9 job = 'CLERK' 10 ; 11 12 Begin 13 For Cur IN C_EMP Loop 14 dbms_output.put_line( To_char( Cur.empno ) || ' - ' || Cur.ename ) ; 15 End loop ; 16 End ; 17 / 7369 - SMITH 7876 - ADAMS 7900 - JAMES 7934 - MILLER Procédure PL/SQL terminée avec succès.
EDIT :
Citation:
Je pensais plus à :
Code:

1 2 FOR record IN (SELECT p.CORG,p.CCOMPTE,p.NOBAIL,p.NOPLAN,last_day(p.DDEB) AS LDDEB,last_day(p.DFIN) AS LDFIN,p.NB,months_between(last_day(p.DFIN),last_day(p.DDEB)) AS DUREE FROM PLANRAT@DB_EELOGI p) LOOP
OK, merci celle-là je me la garde sous le coude :)

dans une procédure stockée la partie DECLARE est entre la ligne CREATE et le BEGIN ;)

DECLARE est requis dans un programme PL/SQL exécuté immédiatement, pas dans du code stocké

soit :
Code:

1 2 3 4 5 6 CREATE maprocedure AS v_toto number; BEGIN SELECT 1 INTO v_toto FROM dual; END; /
soit :
Code:

1 2 3 4 5 6 DECLARE v_toto number; BEGIN SELECT 1 INTO v_toto FROM dual; END; /

Un grand merci à tous pour toute ces infos ;)