Discussion :

[duelooser]

Bonjour,

Je dois paralleliser des traitemantents. Cela consiste a metre un flag dans une colonne avec ne numero de processus qui va traiter les données.

Existant:

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
 
DECLARE
 
CURSOR c1 IS
select arfcext,count(arfcext) as NB
from v5.intart
group by arfcext order by NB desc;
 
 
TYPE tableau_numerique IS TABLE OF NUMBER(9) INDEX BY BINARY_INTEGER;
Tab   tableau_numerique;
 
indice NUMBER(2);
i number (9);
j number (9);
min_val number (9);
min_ind number (9);
compt number (9);
 
BEGIN
DBMS_OUTPUT.ENABLE( 1000000 ) ;
indice :=&1;
i :=0;
min_val:=0;
min_ind:=0;
compt:=0;
 
for j in 0..indice-1 loop
	Tab(j):=0;
end loop;
 
dbms_output.put_line( 'Indice de // :'||indice);
 
FOR r1 IN c1 LOOP
 
	if compt > 5000 then
	min_ind:=0;
	min_val:=Tab(0);	
	for j in 1..indice-1 loop
--		dbms_output.put_line( 'Indice val // :'||Tab(j)|| ' et min'||min_val);
		if Tab(j) < min_val then
		   min_val:=Tab(j);
		   min_ind:=j;
		end if;
	end loop;
	compt:=0;
	COMMIT;
	end if;
 
	Tab(min_ind):=Tab(min_ind) + r1.NB;
    compt := compt + r1.NB ;
    update v5.intart set ARFUTIL =min_ind where arfcext=r1.arfcext;
 
END LOOP;
 
for j in 0..indice loop
	dbms_output.put_line( 'Tab :'||Tab(j));
end loop;
 
end;
/

Je suis a la recherche d'optimisation car la il a beacoup d'"arfcext" avec un NB=1 ce qui fait enormente d'update unitaire et ce qui prend beacoup de temps.

MERCI

[LeoAnderson]

Vous nous parlez d'un problème d'algo mais vous ne nous présentez pas le moindre élément d'analyse (tables, relations, volumétries, but recherché, ...) mais simplement un bout de code....

Si vous repartiez du début ? ;-)

[duelooser]

MAJ du topic.

J'espere etre plus comprehensible.

[plabrevo]

Il suffira d'extraire l'update unitaire de la boucle et de le deplacer apres la boucle pour le transformer en BULK UPDATE (FORALL UPDATE).

[lalystar]

Bonjour,


Pouvez-vous expliquer en francais votre probleme ? Il s'agit d'affecter a chaque ligne un numéro de process qui va traiter la ligne en question.
Si c'est le cas, vous pouvez utiliser la fonction ntile :

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
 
SQL> select 
  2    object_name, 
  3    ntile(4) over(order by object_name) process
  4  from
  5  (
  6    select object_name
  7    from   user_objects
  8    where  rownum <= 20
  9  )
 10  /
 
OBJECT_NAME                    PROCESS
------------------------------ -------
AITTRNTAU                            1
AQ$TCORBAKQUETAU                     1
AQ$TCORBAKTXPQUETAU                  1
AQ$TCOREXCQUETAU                     1
AQ$TCOREXCTXPQUETAU                  1
AQ$TCORMSGQUETAU                     2
AQ$TCORMSGTXPQUETAU                  2
AQ$_TCORBAKQUETAU_E                  2
AQ$_TCORBAKQUETAU_I                  2
AQ$_TCORBAKQUETAU_T                  2
AQ$_TCORBAKTXPQUETAU_E               3
AQ$_TCORBAKTXPQUETAU_I               3
AQ$_TCORBAKTXPQUETAU_T               3
AQ$_TCOREXCQUETAU_E                  3
AQ$_TCOREXCQUETAU_I                  3
AQ$_TCOREXCQUETAU_T                  4
AQ$_TCOREXCTXPQUETAU_E               4
AQ$_TCOREXCTXPQUETAU_I               4
AQ$_TCOREXCTXPQUETAU_T               4
AQ$_TCORMSGQUETAU_E                  4
 
20 rows selected.
 
SQL>

Laly.