[PL-SQL] contenu curseur

Bonjour,

tout d'abord je travaille sur la version:

Oracle8i Release 8.1.7.0.0 - Production
JServer Release 8.1.7.0.0 - Production

j'ai une requête dans ma procédure PL-SQL qui ne me renvoie rien ...
alors que testée à part en SQL elle me renvoie 2 lignes de données ?!

Voici la requête (ne cherchez pas à la comprendre forcément puisque elle est testée et fonctionnelle) dans son curseur et son exploitation (extraits résumé de la procédure PL-SQL):

Citation:

---

[.../...]

CURSOR curseur( PE$Edition VARCHAR2, PE$AnMoisSem PLS_INTEGER)
IS

SELECT distinct max(en3.edi_mnemo) c_edition, replace(oe.ord_ref_interne || to_char(ins.ins_no_encart,'00'),' ','') c_numord,
max(replace(pn3.par_num,' ','')) c_dernump, CT.cli_soc
FROM ordre oe, insertion ins, client ct, edition en, parution pn,
insertion ins3, parution pn3, ordre oe3, edition en3
WHERE oe.ord_id = ins.ord_id and ins.edi_id = en.edi_id
and ins.par_id = pn.par_id and en.edi_id = pn.edi_id
and ct.cli_id = oe.cli_id
and en.edi_mnemo in (PE$Edition)
and pn.par_annee || pn.par_mois || pn.par_semaine = PE$AnMoisSem
and nvl(oe.ord_quotepart_fact,100)=100
and ins3.par_id = pn3.par_id and en3.edi_id = pn3.edi_id
and oe3.ord_id = ins3.ord_id and ins3.edi_id = en3.edi_id
and (oe3.ord_ref_interne = oe.ord_ref_interne and ins3.ins_no_encart = ins.ins_no_encart)
and pn3.par_date = (select max(pn1.par_date)
from parution pn1, insertion ins1
where ins1.par_id = pn1.par_id
and ins1.ord_id = oe.ord_id
and pn1.par_date < pn.par_date)
group by replace(oe.ord_ref_interne || to_char(ins.ins_no_encart,'00'),' ',''), CT.cli_soc
order by 3,2 ;


-- $$ Variables d'accueil:
LN$NumOrd ORDRE.ord_ref_interne%Type ;
LN$DerPar PARUTION.par_num%Type ;
LN$Edition EDITION.edi_mnemo%Type;
LN$Client CLIENT.cli_soc%Type;

[.../...]

Open curseur(editions_pub, LU$AnMoisSem) ; -- ouverture du curseur

LOOP -- << PARCOURS des ENREGISTREMENTS ORACLE >> ligne.[ ]

Fetch curseur Into LN$Edition, LN$NumOrd, LN$DerPar, LN$Client ; -- Lecture d'une ligne

dbms_output.put_line('LN$Edition=' || LN$Edition || 'LN$NumOrd=' || LN$NumOrd || 'LN$DerPar=' || LN$DerPar || 'LN$Client=' || LN$Client);

[.../...]

---

Pour information les variables de la requête passées au curseur sont (récupérée en direct par le débeugeur):

Citation:

---

PE$Edition ='EDI1','EDI2','EDI3'
PE$AnMoisSem =200682

---

Et le résultat du dernier "dbms_output.put_line" :

Citation:

---

LN$Edition=LN$NumOrd=LN$DerPar=LN$Client=

---

=> rien du tout :cry:

J'insiste bien que la requête testée avec les variables citées ci-dessus (extraites de la procédure qui tourne) fonctionne bien et me renvoie 2 lignes de données ... donc pourquoi pas avec ma procédure ?

Merci beaucoup pour vos idées :)

PS: j'avais dans l'idée de récupérer l'instruction SQL extraite lors du déroulement de la procédure mais je ne vois pas comment faire.

ce serait bien de faire un output des variables aussi :)

ben oui c'est fait:

Citation:

---

Pour information les variables de la requête passées au curseur sont (récupérée en direct par le débeugeur):


Citation:
PE$Edition ='EDI1','EDI2','EDI3'
PE$AnMoisSem =200682

---

ce sont elles les variables récupérées en output ...
Puis je les ai remplacées manuellement dans ma requête SQL en direct qui fonctionne bien avec: alors pourquoi mon curseur reste vide ? :/

Ne peut-on pas récupérer la requête exéctuée par la procédure pour être encore plus sûr ?

merci !

non non... moi je veux le résultat COMPLET du output... histoire de voir si il n'y aurait pas des espaces qui trainent :ange:

genre :

Citation:

---

dbms_output.put_line('PE$Edition=' || 'PE$AnMoisSem=' || 'LN$Edition=' || LN$Edition || 'LN$NumOrd=' || LN$NumOrd || 'LN$DerPar=' || LN$DerPar || 'LN$Client=' || LN$Client)

---

Citation:

---

Envoyé par pitre

Ne peut-on pas récupérer la requête exéctuée par la procédure pour être encore plus sûr ?

---

ne peut-on pas voir la requête que tu exécutes sous SQL*Plus pour être encore plus sûr ? ;)

ok c'est fait ;)

voici le nouveu output:

Citation:

---

dbms_output.put_line('PE$Edition=' || editions_pub || 'PE$AnMoisSem=' || LU$AnMoisSem || 'LN$Edition=' || LN$Edition || 'LN$NumOrd=' || LN$NumOrd || 'LN$DerPar=' || LN$DerPar || 'LN$Client=' || LN$Client);

---

et le résultat:

Citation:

---

PE$Edition='EDI1','EDI2','EDI3'PE$AnMoisSem=200682LN$Edition=LN$NumOrd=LN$DerPar=LN$Client=

---

et bon app' entre-temps :)

mais ça ne marche pas comme ça... :?

Citation:

---

in (PE$Edition) -> in (''EDI1'',''EDI2'',''EDI3'')

---

il recherche la chaine de caractères exacte et non la liste :?

arf oui je pense tu as mis le doigt où ça coince :applo:

comment alors lui passer la liste de caractères entre quotes séparées par des virgules pour les valeurs du "in" de la clause "where" d'Oracle ?

Citation:

---

and en.edi_mnemo in ('EDI1','EDI2','EDI3')

---

dois-je chercher du côté des tableaux de valeurs et reformer ma chaîne ou vois-tu plus simple stp ? (je sais là ca deviens du pur langage PL-SQL mais bon si t'as une idée simple, sinon je me ferai le tableau et le déferai ;)

merci !

Regarde du côté du SQL dynamique, et notamment des ref cursor ;)

ok j'ai regardé du côté des "ref cursor", l'exemple le plus simple (et compréhensible pour ma pomme ^^) était le suivant:

Citation:

---

SQL> DECLARE
2
3 --
4 -- J'aimerais que v1 puisse contenir plusieurs valeurs ex : a, b et c pour
5 -- utiliser avec l'opérateur IN du curseur.
6 --
7 v1 VARCHAR2(30);
8 TYPE trc IS REF CURSOR;
9 rc trc;
10 l VARCHAR2(1);
11 BEGIN
12 v1:=' ''a'',''b'', ''c'' ';
13 OPEN rc FOR 'SELECT lettre FROM alphabet WHERE lettre IN (' || v1 ||')';
14 LOOP
15 FETCH rc INTO l;
16 EXIT WHEN rc%NOTFOUND;
17 dbms_output.put_line(l);
18 END LOOP;
19 END;
20 /

---

mon code qui était :

Citation:

---

CURSOR curseur( PE$Edition VARCHAR2, PE$AnMoisSem PLS_INTEGER)
IS

SELECT distinct max(en3.edi_mnemo) c_edition, replace(oe.ord_ref_interne || to_char(ins.ins_no_encart,'00'),' ','') c_numord,
max(replace(pn3.par_num,' ','')) c_dernump, CT.cli_soc
FROM ordre oe, insertion ins, client ct, edition en, parution pn,
insertion ins3, parution pn3, ordre oe3, edition en3
WHERE oe.ord_id = ins.ord_id and ins.edi_id = en.edi_id
and ins.par_id = pn.par_id and en.edi_id = pn.edi_id
and ct.cli_id = oe.cli_id
and en.edi_mnemo in (PE$Edition)
and pn.par_annee || pn.par_mois || pn.par_semaine = PE$AnMoisSem
and nvl(oe.ord_quotepart_fact,100)=100
and ins3.par_id = pn3.par_id and en3.edi_id = pn3.edi_id
and oe3.ord_id = ins3.ord_id and ins3.edi_id = en3.edi_id
and (oe3.ord_ref_interne = oe.ord_ref_interne and ins3.ins_no_encart = ins.ins_no_encart)
and pn3.par_date = (select max(pn1.par_date)
from parution pn1, insertion ins1
where ins1.par_id = pn1.par_id
and ins1.ord_id = oe.ord_id
and pn1.par_date < pn.par_date)
group by replace(oe.ord_ref_interne || to_char(ins.ins_no_encart,'00'),' ',''), CT.cli_soc
order by 3,2 ;

-- $$ Variables d'accueil:
LN$NumOrd ORDRE.ord_ref_interne%Type ;
LN$DerPar PARUTION.par_num%Type ;
LN$Edition EDITION.edi_mnemo%Type;
LN$Client CLIENT.cli_soc%Type;

[.../...]

editions_pub := ' ''EDI1'',''EDI2'',''EDI3'' ';

Open curseur(editions_pub, LU$AnMoisSem) ; -- ouverture du curseur

LOOP -- << PARCOURS des ENREGISTREMENTS ORACLE >> ligne.[ ]

Fetch curseur Into LN$Edition, LN$NumOrd, LN$DerPar, LN$Client ; -- Lecture d'une ligne

dbms_output.put_line('LN$Edition=' || LN$Edition || 'LN$NumOrd=' || LN$NumOrd || 'LN$DerPar=' || LN$DerPar || 'LN$Client=' || LN$Client);

[.../...]

---

est devenu :

Citation:

---

TYPE trc IS REF CURSOR;
curseur trc;
[.../...]
-- $$ Variables d'accueil:
LN$NumOrd ORDRE.ord_ref_interne%Type ;
LN$DerPar PARUTION.par_num%Type ;
LN$Edition EDITION.edi_mnemo%Type;
LN$Client CLIENT.cli_soc%Type;
[.../...]

editions_pub := ' ''EDI1'',''EDI2'',''EDI3'' ';
LU$AnMoisSem := 200682;

OPEN curseur FOR 'SELECT distinct max(en3.edi_mnemo) c_edition, replace(oe.ord_ref_interne || to_char(ins.ins_no_encart,''00''),'' '','''') c_numord,
max(replace(pn3.par_num,'' '','''')) c_dernump, CT.cli_soc
FROM ordre oe, insertion ins, client ct, edition en, parution pn,
insertion ins3, parution pn3, ordre oe3, edition en3
WHERE oe.ord_id = ins.ord_id and ins.edi_id = en.edi_id
and ins.par_id = pn.par_id and en.edi_id = pn.edi_id
and ct.cli_id = oe.cli_id
and en.edi_mnemo in (' || editions_pub || ')
and pn.par_annee || pn.par_mois || pn.par_semaine = ' || LU$AnMoisSem || '
and nvl(oe.ord_quotepart_fact,100)=100
and ins3.par_id = pn3.par_id and en3.edi_id = pn3.edi_id
and oe3.ord_id = ins3.ord_id and ins3.edi_id = en3.edi_id
and (oe3.ord_ref_interne = oe.ord_ref_interne and ins3.ins_no_encart = ins.ins_no_encart)
and pn3.par_date = (select max(pn1.par_date)
from parution pn1, insertion ins1
where ins1.par_id = pn1.par_id
and ins1.ord_id = oe.ord_id
and pn1.par_date < pn.par_date)
group by replace(oe.ord_ref_interne || to_char(ins.ins_no_encart,''00''),'' '',''''), CT.cli_soc
order by 3,2' ;
LOOP
FETCH curseur INTO LN$Edition, LN$NumOrd, LN$DerPar, LN$Client ; -- Lecture d'une ligne

---

super merci beaucoup et bravo pour votre adaptabilité à rentrer dans les problèmes des autres :king: