[Oracle 9i] boucle et curseur

**Requin15** · 20/06/2006, 12h27

Bonjour

Je suis désolé d'ouvrir une nouvelle discussion, mais le sujet est tout de mm différent.

Voici pour rappel le précédent qui m'a permis d'optimiser ma requête:
http://developpez.net/forums/showthread.php?t=167775

J'ai maintenant toujours des questions sur la structure que je dois suivre afin de faire mon traitement:

Ma requete me renvoit des indicateurs pour une date donnée. J'aimerais faire une boucle entre date_min et date_max et renseigner un curseur en même temps :

Code :

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

1
2
3
4
5
 
for date=date_min to date_max
  Exécute requête(date, et divers paramètres...)
  Remplit curseur avec résultat requête
end for

Je ne vois vrt ma comment traduire cela malgré ce que j'ai pu lire sur le net.
Merci

**plaineR** · 20/06/2006, 12h33

J'ai un peu de mal à saisir ce que tu veux faire :

Envoyé par Requin15

Remplit curseur avec résultat requête

Quel est l'intérêt de passer par un curseur (sans compter que je ne vois pas comment tu peux faire) ?

1. Pourquoi ne pas utiliser une collection pour stocker les résultats de ta requête ?

2. Autre solution (plus optimale): pourquoi ne pas faire une requête qui te renvoie directement ce que tu souhaites ?

**Requin15** · 20/06/2006, 12h40

En fait, j'ai ma requete qui me renvoit cela :

requete(date1)
date1----indicateur1----indicateur2

J'aimerais exécuter cette requete sur une plage donnée : entre date1 et dateN
afin d'avoir cela:

date1----indicateur1----indicateur2
date2----indicateur1----indicateur2
date3----indicateur1----indicateur2
dateN----indicateur1----indicateur2

Maintenant, je t'avouerais que je n'ai aucune exigence concernant la forme de retour.
Il faut juste que le résultat soit dans un tableau en mémoire (pas inscrit en table).

ps : je ne sais pas ce qu'est une collection ; je me renseigne

**plaineR** · 20/06/2006, 13h17

Envoyé par Requin15

ps : je ne sais pas ce qu'est une collection ; je me renseigne

Il n'y a qu'à demander :

http://sheikyerbouti.developpez.com/...?page=Chap5#L5

Et si tu avais une requête qui te renvoie directement le résultat telquel cela ne te conviendrait pas ?

S'il n'y a pas d'indicateur pour la date, que fais-tu ?

**Requin15** · 20/06/2006, 13h23

Merci pour le lien.

Je ne sais pas si je peux avoir une requête qui me renvoit tout.
Pour etre plus complet, j'ai une partie web en .Net qui me renvoit des infos telles que date min et max.

A moi maintenant de lancer une fonction permettant d'exécuter ma requête n fois sur la période définie par date min et max.

Pour les indicateurs, il y en aura toujours.
Tu peux aller dans l'autre sujet et créer la table et la charger, et faire tourner la requête. Tu verras un peu mieux mon pb surement.

**plaineR** · 20/06/2006, 13h51

La solution dans ce cas me semble être la suivante :
- tu crées 2 types basés

Code :

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

1
2
3
4
create type typ_indicateur as object (dat date, ind1 number, ind2 number);
/
create type tab_indicateur as table of typ_indicateur;
/

ou des types dans un package :

Code :

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

1
2
3
4
5
create or replace package monPack as 
   type typ_indicateur is record (dat date, ind1 number, ind2 number);
   type tab_indicateur is table of typ_indicateur index by binary_integer;
end;
/

- puis tu déclares une variable

Code :

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

maVar tab_indicateur;

- enfin tu exécutes ta requête pour chacune des dates passées en paramètres (ce qui donne si tu as choisi la 2è solution):

Code :

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

1
2
3
4
5
select maDate, Indicateur1, Indicateur2
into maVar(n).maDate, maVar(n).Ind1, maVar(n).Ind2
from maTable
where ...
   and maDate = pdate;

où n est un numéro unique et où pdate est la date passée en paramètre.

Voilà une piste que tu peux explorer.

**Requin15** · 20/06/2006, 13h59

oki, merci pour cette piste! Mais pour la boucle for, afin de tourner sur toutes les dates, tu mettrais cela comment ?

**plaineR** · 20/06/2006, 14h16

Par exemple :

Code :

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

1
2
3
4
for i in 0..(dateFin-dateDeb) loop
  v_date := dateDeb + i;
  ...
end loop;

**Requin15** · 20/06/2006, 16h56

ok...

Est ce que tu sais comment boucler sur une date?
J'ai un peu de mal là..

Code :

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

1
2
3
4
5
 
for i in 0..(dateFin-dateDeb) loop
  v_date := dateDeb + 1;
  ...
end loop;

dateFin-dateDeb : il le convertit en nb de mois ?

Exemple :

datefin=01/01/2006
datedebut=01/01/2000

Qu'est ce qu'il fait avec ces dates pour comprendre que je veux boucler entre
01/01/2000 et 01/01/2006 ?

Merci

**plaineR** · 20/06/2006, 17h23

Envoyé par Requin15

dateFin-dateDeb : il le convertit en nb de mois ?

Non c'est en nombre de jours. Pour Oracle une différence de date se fait toujours en nombre de jours.

Pour avoir la différence en mois entre 2 dates, il faut utiliser la fonction MONTHS_BETWEEN.

Exemple :

datefin=01/01/2006
datedebut=01/01/2000

Envoyé par Requin15

Qu'est ce qu'il fait avec ces dates pour comprendre que je veux boucler entre 01/01/2000 et 01/01/2006 ?

Avec l'exemple que je t'ai donné, il fait une boucle de 0 à l'écart entre tes 2 dates (ici 2192 jours).

Si tu veux faire mois par mois :

Code :

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

1
2
3
4
for i in 0..months_between(dateFin,dateDeb) loop
  v_date := add_months (dateDeb, i);
  ...
end loop;

**Requin15** · 20/06/2006, 18h08

bon ça se précise...
j'ai encore une question :

il ne reconnais pas cela :
maVar(n).maDate, maVar(n).Ind1, maVar(n).Ind2

comment déclarer maDate, ind1 et ind2 ?

merci!

jcomprend pas, car c'est normalement déclaré par le tab_indicateur

**plaineR** · 20/06/2006, 18h25

Tu as utilisé un type basé ou un package ?

Quelle est l'erreur exacte ?

**Requin15** · 20/06/2006, 18h30

déjà il ne compile pas le package

il parle d'objet opaque ?!
erreur PLS-00103

(sinon, point positif, qd je n'utilise pas ce type de stockage, mais juste une variable simple, tout fonctionne super super bien)

**plaineR** · 20/06/2006, 18h36

Envoyé par Requin15

déjà il ne compile pas le package

J'ai corrigé mon message où je t'ai mis le script de creation du package, une erreur de copier coller

**Requin15** · 20/06/2006, 18h47

ok, effectivement c'est mieux

mais j'ai toujours une erreur PLS-00302:
le composant maDate doit etre déclaré... mais où ??

**Requin15** · 20/06/2006, 18h51

Juste pour que tu voies où j'en suis :

voilà mon code:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
 
 
 
---------------------------
--Déclaration
---------------------------
DECLARE
 date_ini TIMESTAMP(3);
 date_fin TIMESTAMP(3);
 date_c date;
 maDate date;
 
 RatedIssuers number;
 RatedIssuersPonderes number;
 IssuerUpgrades number;
 IssuerUpgradesPonderes number;
 IssuerDowngrades number;
 IssuerDowngradesPonderes number;
 RatingsDrift number;
 RatingsDriftPondere number;
 RatingsTurnover number;
 RatingsTurnoverPondere number;
 
 maVar monpack.tab_indicateur;
 n number;
 
BEGIN 
 date_ini := '01/09/00';
 date_fin := '01/09/06';
 n:=0; 
 
---------------------------
--Boucle
---------------------------
 for i in 0..months_between(date_fin,date_ini) loop 
 
---------------------------
-- incrémente date calcul 
--------------------------- 
 date_c := add_months (date_ini, i);
 
---------------------------
-- sélection
---------------------------
SELECT 
       date_c as date_calcul,
       selTot.RatedIssuers,
       selTot.RatedIssuersPonderes,
       selUp.IssuerUpgrades, 
       selUp.IssuerUpgradesPonderes, 
       selDown.IssuerDowngrades, 
       selDown.IssuerDowngradesPonderes,
       round((selUp.IssuerUpgrades-selDown.IssuerDowngrades)/selTot.RatedIssuers,3) as RatingsDrift,
       round((selUp.IssuerUpgradesPonderes-selDown.IssuerDowngradesPonderes)/selTot.RatedIssuersPonderes,3) as RatingsDriftPondere,
       round((selUp.IssuerUpgrades+selDown.IssuerDowngrades)/selTot.RatedIssuers,3) as RatingsTurnover,
       round((selUp.IssuerUpgradesPonderes+selDown.IssuerDowngradesPonderes)/selTot.RatedIssuersPonderes,3) as RatingsTurnoverPondere
 
INTO maVar(n).maDate, maVar(n).RatedIssuers, maVar(n).RatedIssuersPonderes,
     maVar(n).IssuerUpgrades,maVar(n).IssuerUpgradesPonderes,
     maVar(n).IssuerDowngrades,maVar(n).IssuerDowngradesPonderes,
     maVar(n).RatingsDrift,maVar(n).RatingsDriftPondere,
     maVar(n).RatingsTurnover,maVar(n).RatingsTurnoverPondere
 
FROM
 
(
 
SELECT count (*) as RatedIssuers, 
       sum(nvl(selAll.c_notche,1)) as RatedIssuersPonderes
FROM
 
      (SELECT * 
      FROM rdt_fs_histo_sp_w spx
      WHERE (spx.d_rating_date, spx.c_rating_agency_issuer) in              
 
            (SELECT max(spw.d_rating_date), spw.c_rating_agency_issuer 
 
            FROM   V_RDT_FS_HISTO_SP spw
 
            WHERE    spw.c_rating_agency_issuer in (
                                                   select gcsp.id_sp
                                                   from rdt_groupes_contenus gcsp
                                                   where gcsp.client_id=323156
                                                   and gcsp.grp_id=390)
            AND      spw.d_rating_date <= date_c
 
            GROUP BY spw.c_rating_agency_issuer)
 
      AND (spx.d_previous_rating_date, spx.c_rating_agency_issuer) in
 
          (SELECT max(spu.d_previous_rating_date), spu.c_rating_agency_issuer
 
              FROM   V_RDT_FS_HISTO_SP spu
 
              WHERE spu.c_rating_agency_issuer in (
                                                   select gcsp.id_sp
                                                   from rdt_groupes_contenus gcsp
                                                   where gcsp.client_id=323156
                                                   and gcsp.grp_id=390)
              AND   spu.d_rating_date <= date_c
              AND   spu.d_previous_rating_date <= add_months(date_c,-12)
 
              GROUP BY spu.c_rating_agency_issuer)       
 
       )selAll
 
)selTot,
 
 
 
( 
 
SELECT count (*) as IssuerUpgrades, 
       nvl(sum(nvl(selAll.c_notche,0)),0) as IssuerUpgradesPonderes
FROM
 
      (SELECT * 
      FROM rdt_fs_histo_sp_w spx
      WHERE (spx.d_rating_date, spx.c_rating_agency_issuer) in              
 
            (SELECT max(spw.d_rating_date), spw.c_rating_agency_issuer 
 
            FROM   V_RDT_FS_HISTO_SP spw
 
            WHERE    spw.c_rating_agency_issuer in (
                                                   select gcsp.id_sp
                                                   from rdt_groupes_contenus gcsp
                                                   where gcsp.client_id=323156
                                                   and gcsp.grp_id=390)
            AND      spw.d_rating_date <= date_c
 
 
            GROUP BY spw.c_rating_agency_issuer)
 
      AND (spx.d_previous_rating_date, spx.c_rating_agency_issuer) in
 
          (SELECT max(spu.d_previous_rating_date), spu.c_rating_agency_issuer
 
              FROM   V_RDT_FS_HISTO_SP spu
 
              WHERE spu.c_rating_agency_issuer in (
                                                   select gcsp.id_sp
                                                   from rdt_groupes_contenus gcsp
                                                   where gcsp.client_id=323156
                                                   and gcsp.grp_id=390)
              AND   spu.d_rating_date <= date_c
              AND   spu.d_previous_rating_date <= add_months(date_c,-12)
 
 
              GROUP BY spu.c_rating_agency_issuer)      
 
       )selAll
 
WHERE   selAll.c_last_action_rating_code='UPG'
 
)SelUp,
 
 
(
 
SELECT count (*) as IssuerDowngrades, 
       nvl(sum(nvl(selAll.c_notche,0)),0) as IssuerDowngradesPonderes
FROM
 
      (SELECT * 
      FROM rdt_fs_histo_sp_w spx
      WHERE (spx.d_rating_date, spx.c_rating_agency_issuer) in              
 
            (SELECT max(spw.d_rating_date), spw.c_rating_agency_issuer 
 
            FROM   V_RDT_FS_HISTO_SP spw
 
            WHERE    spw.c_rating_agency_issuer in (
                                                   select gcsp.id_sp
                                                   from rdt_groupes_contenus gcsp
                                                   where gcsp.client_id=323156
                                                   and gcsp.grp_id=390)
            AND      spw.d_rating_date <= date_c
 
 
            GROUP BY spw.c_rating_agency_issuer)
 
      AND (spx.d_previous_rating_date, spx.c_rating_agency_issuer) in
 
          (SELECT max(spu.d_previous_rating_date), spu.c_rating_agency_issuer
 
              FROM   V_RDT_FS_HISTO_SP spu
 
              WHERE spu.c_rating_agency_issuer in (
                                                   select gcsp.id_sp
                                                   from rdt_groupes_contenus gcsp
                                                   where gcsp.client_id=323156
                                                   and gcsp.grp_id=390)
              AND   spu.d_rating_date <= date_c
              AND   spu.d_previous_rating_date <= add_months(date_c,-12)
 
 
              GROUP BY spu.c_rating_agency_issuer)        
 
       )selAll
 
WHERE   selAll.c_last_action_rating_code='DNG'
 
)SelDown;
 
 
---------------------------
-- sortie
---------------------------
 dbms_output.put_line(date_c);
dbms_output.put_line(maVar(n).RatedIssuers);
dbms_output.put_line(maVar(n).RatedIssuersPonderes);
dbms_output.put_line(maVar(n).IssuerUpgrades);
dbms_output.put_line(maVar(n).IssuerUpgradesPonderes);
dbms_output.put_line(maVar(n).IssuerDowngrades);
dbms_output.put_line(maVar(n).IssuerDowngradesPonderes);
dbms_output.put_line(maVar(n).RatingsDrift);
dbms_output.put_line(maVar(n).RatingsDriftPondere);
dbms_output.put_line(maVar(n).RatingsTurnover);
dbms_output.put_line(maVar(n).RatingsTurnoverPondere);
end loop;
 
 
 
END;

**Requin15** · 20/06/2006, 19h27

Et voici ma fonction en entier :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
 
FUNCTION F_RECUP_DONNEES_SP(AboId in number, GroupeId in number,
                         date_min in date, date_max in date, 
                         Weighting in number, H in number) return RDT_SQL.ref_cursor
 
 
AS
 
 
---------------------------
--Déclaration
---------------------------
--DECLARE
 date_ini TIMESTAMP(3);
 date_fin TIMESTAMP(3);
 date_c date;
 maDate date;
 AbonneID number;
 GrpId number;
 Horizon number;
 
 RatedIssuers number;
 RatedIssuersPonderes number;
 IssuerUpgrades number;
 IssuerUpgradesPonderes number;
 IssuerDowngrades number;
 IssuerDowngradesPonderes number;
 RatingsDrift number;
 RatingsDriftPondere number;
 RatingsTurnover number;
 RatingsTurnoverPondere number;
 
 maVar monpack.tab_indicateur;
 n number;
 
BEGIN 
 date_ini := date_min;
 date_fin := date_max;
 AbonneID := AboId;
 GrpID    := GroupeId;
 Horizon  := H;
 n        := 0; 
 
---------------------------
--Boucle
---------------------------
 for i in 0..months_between(date_fin,date_ini) loop 
 
---------------------------
-- incrémente date calcul 
--------------------------- 
 date_c := add_months (date_ini, i);
 
---------------------------
-- sélection
---------------------------
SELECT 
       date_c as date_calcul,
       selTot.RatedIssuers,
       selTot.RatedIssuersPonderes,
       selUp.IssuerUpgrades, 
       selUp.IssuerUpgradesPonderes, 
       selDown.IssuerDowngrades, 
       selDown.IssuerDowngradesPonderes,
       round((selUp.IssuerUpgrades-selDown.IssuerDowngrades)/selTot.RatedIssuers,3) as RatingsDrift,
       round((selUp.IssuerUpgradesPonderes-selDown.IssuerDowngradesPonderes)/selTot.RatedIssuersPonderes,3) as RatingsDriftPondere,
       round((selUp.IssuerUpgrades+selDown.IssuerDowngrades)/selTot.RatedIssuers,3) as RatingsTurnover,
       round((selUp.IssuerUpgradesPonderes+selDown.IssuerDowngradesPonderes)/selTot.RatedIssuersPonderes,3) as RatingsTurnoverPondere
 
INTO maDate, RatedIssuers, RatedIssuersPonderes,
     IssuerUpgrades,IssuerUpgradesPonderes,
     IssuerDowngrades,IssuerDowngradesPonderes,
     RatingsDrift,RatingsDriftPondere,
     RatingsTurnover,RatingsTurnoverPondere
 
FROM
 
(
 
SELECT count (*) as RatedIssuers, 
       sum(nvl(selAll.c_notche,1)) as RatedIssuersPonderes
FROM
 
      (SELECT * 
      FROM rdt_fs_histo_sp_w spx
      WHERE (spx.d_rating_date, spx.c_rating_agency_issuer) in              
 
            (SELECT max(spw.d_rating_date), spw.c_rating_agency_issuer 
 
            FROM   V_RDT_FS_HISTO_SP spw
 
            WHERE    spw.c_rating_agency_issuer in (
                                                   select gcsp.id_sp
                                                   from rdt_groupes_contenus gcsp
                                                   where gcsp.client_id=AbonneID
                                                   and gcsp.grp_id=GrpID)
            AND      spw.d_rating_date <= date_c
 
            GROUP BY spw.c_rating_agency_issuer)
 
      AND (spx.d_previous_rating_date, spx.c_rating_agency_issuer) in
 
          (SELECT max(spu.d_previous_rating_date), spu.c_rating_agency_issuer
 
              FROM   V_RDT_FS_HISTO_SP spu
 
              WHERE spu.c_rating_agency_issuer in (
                                                   select gcsp.id_sp
                                                   from rdt_groupes_contenus gcsp
                                                   where gcsp.client_id=AbonneID
                                                   and gcsp.grp_id=GrpID)
              AND   spu.d_rating_date <= date_c
              AND   spu.d_previous_rating_date <= add_months(date_c,-Horizon)
 
              GROUP BY spu.c_rating_agency_issuer)       
 
       )selAll
 
)selTot,
 
 
 
( 
 
SELECT count (*) as IssuerUpgrades, 
       nvl(sum(nvl(selAll.c_notche,0)),0) as IssuerUpgradesPonderes
FROM
 
      (SELECT * 
      FROM rdt_fs_histo_sp_w spx
      WHERE (spx.d_rating_date, spx.c_rating_agency_issuer) in              
 
            (SELECT max(spw.d_rating_date), spw.c_rating_agency_issuer 
 
            FROM   V_RDT_FS_HISTO_SP spw
 
            WHERE    spw.c_rating_agency_issuer in (
                                                   select gcsp.id_sp
                                                   from rdt_groupes_contenus gcsp
                                                   where gcsp.client_id=AbonneID
                                                   and gcsp.grp_id=GrpID)
            AND      spw.d_rating_date <= date_c
 
 
            GROUP BY spw.c_rating_agency_issuer)
 
      AND (spx.d_previous_rating_date, spx.c_rating_agency_issuer) in
 
          (SELECT max(spu.d_previous_rating_date), spu.c_rating_agency_issuer
 
              FROM   V_RDT_FS_HISTO_SP spu
 
              WHERE spu.c_rating_agency_issuer in (
                                                   select gcsp.id_sp
                                                   from rdt_groupes_contenus gcsp
                                                   where gcsp.client_id=AbonneID
                                                   and gcsp.grp_id=GrpID)
              AND   spu.d_rating_date <= date_c
              AND   spu.d_previous_rating_date <= add_months(date_c,-Horizon)
 
 
              GROUP BY spu.c_rating_agency_issuer)      
 
       )selAll
 
WHERE   selAll.c_last_action_rating_code='UPG'
 
)SelUp,
 
 
(
 
SELECT count (*) as IssuerDowngrades, 
       nvl(sum(nvl(selAll.c_notche,0)),0) as IssuerDowngradesPonderes
FROM
 
      (SELECT * 
      FROM rdt_fs_histo_sp_w spx
      WHERE (spx.d_rating_date, spx.c_rating_agency_issuer) in              
 
            (SELECT max(spw.d_rating_date), spw.c_rating_agency_issuer 
 
            FROM   V_RDT_FS_HISTO_SP spw
 
            WHERE    spw.c_rating_agency_issuer in (
                                                   select gcsp.id_sp
                                                   from rdt_groupes_contenus gcsp
                                                   where gcsp.client_id=AbonneID
                                                   and gcsp.grp_id=GrpID)
            AND      spw.d_rating_date <= date_c
 
 
            GROUP BY spw.c_rating_agency_issuer)
 
      AND (spx.d_previous_rating_date, spx.c_rating_agency_issuer) in
 
          (SELECT max(spu.d_previous_rating_date), spu.c_rating_agency_issuer
 
              FROM   V_RDT_FS_HISTO_SP spu
 
              WHERE spu.c_rating_agency_issuer in (
                                                   select gcsp.id_sp
                                                   from rdt_groupes_contenus gcsp
                                                   where gcsp.client_id=AbonneID
                                                   and gcsp.grp_id=GrpID)
              AND   spu.d_rating_date <= date_c
              AND   spu.d_previous_rating_date <= add_months(date_c,-Horizon)
 
 
              GROUP BY spu.c_rating_agency_issuer)        
 
       )selAll
 
WHERE   selAll.c_last_action_rating_code='DNG'
 
)SelDown;
 
 
---------------------------
-- sortie
---------------------------
 dbms_output.put_line(date_c);
dbms_output.put_line(RatedIssuers);
dbms_output.put_line(RatedIssuersPonderes);
dbms_output.put_line(IssuerUpgrades);
dbms_output.put_line(IssuerUpgradesPonderes);
dbms_output.put_line(IssuerDowngrades);
dbms_output.put_line(IssuerDowngradesPonderes);
dbms_output.put_line(RatingsDrift);
dbms_output.put_line(RatingsDriftPondere);
dbms_output.put_line(RatingsTurnover);
dbms_output.put_line(RatingsTurnoverPondere);
end loop;
 
 
end F_RECUP_DONNEES_SP;

Qui fonctionne pour l'instant car je n'utilise pas le maVar(n).

Mais à terme, il faut que le résultat (chaque dbms_output.put_line) soit stocké (avec tes maVar(n)), puis récupérés dans un curseur pour que mon appli .Net puisse l'ouvrir, le lire et afficher les points calculés...

Si tu as une idée du pb que je rencontre là, je suis preneur de la solution!

Merci déjà pour ton aide précieuse!

**Requin15** · 20/06/2006, 20h11

bon, ya du mieux :

je ne me sers pas du package finalement :

voici mon code :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
 
 
---------------------------
--Déclaration
---------------------------
DECLARE
 date_ini TIMESTAMP(3);
 date_fin TIMESTAMP(3);
 date_c date;
 -- maDate date;
 AbonneID number;
 GrpId number;
 Horizon number;
 
 -- RatedIssuers number;
 -- RatedIssuersPonderes number;
 -- IssuerUpgrades number;
 -- IssuerUpgradesPonderes number;
 -- IssuerDowngrades number;
 -- IssuerDowngradesPonderes number;
 -- RatingsDrift number;
 -- RatingsDriftPondere number;
 -- RatingsTurnover number;
 -- RatingsTurnoverPondere number;
 
 --maVar monpack.tab_indicateur;
 n number;
 
     -- Record --
 TYPE typ_indicateur IS RECORD (
         maDate date,
         RatedIssuers number,
         RatedIssuersPonderes number,
         IssuerUpgrades number,
         IssuerUpgradesPonderes number,
         IssuerDowngrades number,
         IssuerDowngradesPonderes number,
         RatingsDrift number,
         RatingsDriftPondere number,
         RatingsTurnover number,
         RatingsTurnoverPondere number
         );    
    -- Table de records --
 TYPE tab_indicateur IS TABLE OF typ_indicateur index by binary_integer ;
    maVar tab_indicateur ; -- variable tableau d'enregistrements
 
 
BEGIN 
 date_ini := '01/09/00';
 date_fin := '01/09/06';
 AbonneID := '323156';
 GrpID    := '390';
 Horizon  := '12';
 n        := 0; 
 
---------------------------
--Boucle
---------------------------
 for i in 0..months_between(date_fin,date_ini) loop 
 
---------------------------
-- incrémente date calcul 
--------------------------- 
 date_c := add_months (date_ini, i);
 
---------------------------
-- sélection
---------------------------
SELECT 
       date_c as date_calcul,
       selTot.RatedIssuers,
       selTot.RatedIssuersPonderes,
       selUp.IssuerUpgrades, 
       selUp.IssuerUpgradesPonderes, 
       selDown.IssuerDowngrades, 
       selDown.IssuerDowngradesPonderes,
       round((selUp.IssuerUpgrades-selDown.IssuerDowngrades)/selTot.RatedIssuers,3) as RatingsDrift,
       round((selUp.IssuerUpgradesPonderes-selDown.IssuerDowngradesPonderes)/selTot.RatedIssuersPonderes,3) as RatingsDriftPondere,
       round((selUp.IssuerUpgrades+selDown.IssuerDowngrades)/selTot.RatedIssuers,3) as RatingsTurnover,
       round((selUp.IssuerUpgradesPonderes+selDown.IssuerDowngradesPonderes)/selTot.RatedIssuersPonderes,3) as RatingsTurnoverPondere
 
INTO maVar(i).maDate, maVar(i).RatedIssuers, maVar(i).RatedIssuersPonderes,
     maVar(i).IssuerUpgrades,maVar(i).IssuerUpgradesPonderes,
     maVar(i).IssuerDowngrades,maVar(i).IssuerDowngradesPonderes,
     maVar(i).RatingsDrift,maVar(i).RatingsDriftPondere,
     maVar(i).RatingsTurnover,maVar(i).RatingsTurnoverPondere
 
FROM
 
(
 
SELECT count (*) as RatedIssuers, 
       sum(nvl(selAll.c_notche,1)) as RatedIssuersPonderes
FROM
 
      (SELECT * 
      FROM rdt_fs_histo_sp_w spx
      WHERE (spx.d_rating_date, spx.c_rating_agency_issuer) in              
 
            (SELECT max(spw.d_rating_date), spw.c_rating_agency_issuer 
 
            FROM   V_RDT_FS_HISTO_SP spw
 
            WHERE    spw.c_rating_agency_issuer in (
                                                   select gcsp.id_sp
                                                   from rdt_groupes_contenus gcsp
                                                   where gcsp.client_id=AbonneID
                                                   and gcsp.grp_id=GrpID)
            AND      spw.d_rating_date <= date_c
 
            GROUP BY spw.c_rating_agency_issuer)
 
      AND (spx.d_previous_rating_date, spx.c_rating_agency_issuer) in
 
          (SELECT max(spu.d_previous_rating_date), spu.c_rating_agency_issuer
 
              FROM   V_RDT_FS_HISTO_SP spu
 
              WHERE spu.c_rating_agency_issuer in (
                                                   select gcsp.id_sp
                                                   from rdt_groupes_contenus gcsp
                                                   where gcsp.client_id=AbonneID
                                                   and gcsp.grp_id=GrpID)
              AND   spu.d_rating_date <= date_c
              AND   spu.d_previous_rating_date <= add_months(date_c,-Horizon)
 
              GROUP BY spu.c_rating_agency_issuer)       
 
       )selAll
 
)selTot,
 
 
 
( 
 
SELECT count (*) as IssuerUpgrades, 
       nvl(sum(nvl(selAll.c_notche,0)),0) as IssuerUpgradesPonderes
FROM
 
      (SELECT * 
      FROM rdt_fs_histo_sp_w spx
      WHERE (spx.d_rating_date, spx.c_rating_agency_issuer) in              
 
            (SELECT max(spw.d_rating_date), spw.c_rating_agency_issuer 
 
            FROM   V_RDT_FS_HISTO_SP spw
 
            WHERE    spw.c_rating_agency_issuer in (
                                                   select gcsp.id_sp
                                                   from rdt_groupes_contenus gcsp
                                                   where gcsp.client_id=AbonneID
                                                   and gcsp.grp_id=GrpID)
            AND      spw.d_rating_date <= date_c
 
 
            GROUP BY spw.c_rating_agency_issuer)
 
      AND (spx.d_previous_rating_date, spx.c_rating_agency_issuer) in
 
          (SELECT max(spu.d_previous_rating_date), spu.c_rating_agency_issuer
 
              FROM   V_RDT_FS_HISTO_SP spu
 
              WHERE spu.c_rating_agency_issuer in (
                                                   select gcsp.id_sp
                                                   from rdt_groupes_contenus gcsp
                                                   where gcsp.client_id=AbonneID
                                                   and gcsp.grp_id=GrpID)
              AND   spu.d_rating_date <= date_c
              AND   spu.d_previous_rating_date <= add_months(date_c,-Horizon)
 
 
              GROUP BY spu.c_rating_agency_issuer)      
 
       )selAll
 
WHERE   selAll.c_last_action_rating_code='UPG'
 
)SelUp,
 
 
(
 
SELECT count (*) as IssuerDowngrades, 
       nvl(sum(nvl(selAll.c_notche,0)),0) as IssuerDowngradesPonderes
FROM
 
      (SELECT * 
      FROM rdt_fs_histo_sp_w spx
      WHERE (spx.d_rating_date, spx.c_rating_agency_issuer) in              
 
            (SELECT max(spw.d_rating_date), spw.c_rating_agency_issuer 
 
            FROM   V_RDT_FS_HISTO_SP spw
 
            WHERE    spw.c_rating_agency_issuer in (
                                                   select gcsp.id_sp
                                                   from rdt_groupes_contenus gcsp
                                                   where gcsp.client_id=AbonneID
                                                   and gcsp.grp_id=GrpID)
            AND      spw.d_rating_date <= date_c
 
 
            GROUP BY spw.c_rating_agency_issuer)
 
      AND (spx.d_previous_rating_date, spx.c_rating_agency_issuer) in
 
          (SELECT max(spu.d_previous_rating_date), spu.c_rating_agency_issuer
 
              FROM   V_RDT_FS_HISTO_SP spu
 
              WHERE spu.c_rating_agency_issuer in (
                                                   select gcsp.id_sp
                                                   from rdt_groupes_contenus gcsp
                                                   where gcsp.client_id=AbonneID
                                                   and gcsp.grp_id=GrpID)
              AND   spu.d_rating_date <= date_c
              AND   spu.d_previous_rating_date <= add_months(date_c,-Horizon)
 
 
              GROUP BY spu.c_rating_agency_issuer)        
 
       )selAll
 
WHERE   selAll.c_last_action_rating_code='DNG'
 
)SelDown;
 
 
---------------------------
-- sortie
---------------------------
 
/*dbms_output.put_line(date_c);
dbms_output.put_line(maVar(i).RatedIssuers);
dbms_output.put_line(maVar(i).RatedIssuersPonderes);
dbms_output.put_line(maVar(i).IssuerUpgrades);
dbms_output.put_line(maVar(i).IssuerUpgradesPonderes);
dbms_output.put_line(maVar(i).IssuerDowngrades);
dbms_output.put_line(maVar(i).IssuerDowngradesPonderes);
dbms_output.put_line(maVar(i).RatingsDrift);
dbms_output.put_line(maVar(i).RatingsDriftPondere);
dbms_output.put_line(maVar(i).RatingsTurnover);
dbms_output.put_line(maVar(i).RatingsTurnoverPondere);*/
end loop;
 
dbms_output.put_line(date_c);
dbms_output.put_line(maVar(2).maDate);
dbms_output.put_line(maVar(2).RatedIssuers);
dbms_output.put_line(maVar(2).RatedIssuersPonderes);
dbms_output.put_line(maVar(2).IssuerUpgrades);
dbms_output.put_line(maVar(2).IssuerUpgradesPonderes);
dbms_output.put_line(maVar(2).IssuerDowngrades);
dbms_output.put_line(maVar(2).IssuerDowngradesPonderes);
dbms_output.put_line(maVar(2).RatingsDrift);
dbms_output.put_line(maVar(2).RatingsDriftPondere);
dbms_output.put_line(maVar(2).RatingsTurnover);
dbms_output.put_line(maVar(2).RatingsTurnoverPondere);
 
END;

Maintenant, est ce que tu sais comment récupérer toutes les variables maVar(n) dans un curseur ? Remarque on peut peut-être les utiliser à partir de maVar(n)... je verrai cela demain!
a+

**plaineR** · 20/06/2006, 20h32

C'est un tableau, je pense que tu peux les utiliser tel quel. (je connais très mal .net)

[Oracle 9i] boucle et curseur

Oracle

Discussions similaires

Partager

Partager