un curseur dynamique où le nom de la table est un argument [Résolu]

[morif1]

Bonjour,

La réponse peut être évidente, je m'en excuse d'avance si tel est le cas. Ma question est la suivante. J'ai écrit une procédure ont le but est de purger divers tables. Les traitements de purges étant sensiblement les mêmes d'une table à une autre, je souhaite factoriser mon code. Le problème est que visiblement il n'est pas possible dans un curseur dynamique de déclarer la table comme un paramètre... Ci_dessous, la portion de code posant problème :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
PROCEDURE purge_table(SITE              IN NUMBER,
                      TABLE_NAME        IN VARCHAR2,
                      TABLE_COLUMN_SITE IN VARCHAR2,
                      TABLE_COLUMN_DATE IN VARCHAR2,
                      TABLE_PARAM       IN NUMBER,
                      POSTE_PARAM       IN NUMBER,
                      P_RETOUR          OUT NUMBER) IS
 
  delai number;
  CURSOR C_TABLE(p_delai number, p_site number) IS
    SELECT t.rowid
      FROM TABLE_NAME t
     WHERE trunc(TABLE_COLUMN_DATE) < sysdate - p_delai
       AND TABLE_COLUMN_SITE = p_site;
...

Avez vous une idée ?

D'avance, merci pour votre contribution.

[mnitu]

Je ne vois pas de curseur dynamique mais toute simplement un curseur statique avec des paramètres.
Il n’y pas de problème en cas d’utilisation d’un curseur dynamique pour modifier le nom de la table vu que la requête exécute par le curseur dynamique est formée à partir d’une chaîne de caractères. Par contre il n’est pas possible d’utiliser un paramètre pour spécifier le nom de la table.

[morif1]

Merci pour ta réponse. ;-)

[Tracnac]

Hello,

Heuu je ne comprends pas bien la réponse de mnitu ?! En effet "morif 1" il y a un problème ici la proc ne sera jamais valide puisque imcompilable... et pour cause TABLE_NAME n'existe pas...
Donc ça donne plutôt :

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
 
SQL> SET serveroutput ON
SQL> /
 
Procedure created.
 
SQL> l
  1  CREATE OR REPLACE procedure test
  2  ( table_name IN varchar2 ) IS
  3  sqlcur varchar2(255);
  4
  5  TYPE mon_curseur_type IS ref cursor;
  6  mon_curseur            mon_curseur_type;
  7  mon_buffer             varchar2(4000);
  8
  9  BEGIN
 10  sqlcur := 'select  * from ' || table_name ;
 11  open mon_curseur FOR sqlcur;
 12  loop
 13  fetch mon_curseur INTO mon_buffer;
 14  exit when mon_curseur%NOTFOUND;
 15  dbms_output.put_line (mon_buffer);
 16  end loop;
 17* END;
SQL> execute test ('DUAL');
X
 
PL/SQL procedure successfully completed.
 
SQL>

Voila voili...