Erreur PLS-00201 pour fonction dbms_system.get_env

Version imprimable

01/07/2011, 10h30
frglyon

Erreur PLS-00201 pour fonction dbms_system.get_env

Bonjour,
tout est dit dans le titre de la discussion : à l'exécution de la fonction dbms_system.get_env pour récupérer une variable d'environnement, j'ai le message d'erreur PLS-00201.
Je suis pourtant en version 10g d'Oracle. Que faut-il ajouter pour que cela fonctionne ?

Merci d'avance,
Cordialement.
01/07/2011, 11h28
Waldar

Citation:

Envoyé par frglyon

Que faut-il ajouter pour que cela fonctionne ?

Votre code exact serait un bon début.

Il est vrai que c'est plus facile avec le code .. ci-dessous :

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
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
SET TERMOUT ON
--set serveroutput on
 
CREATE OR REPLACE function xb_disable_constraints 
            ( table_dis in VARCHAR2
            ) return number is 
  Result number;
  code_appli   varchar2(02) := 'XB';            --Code application
  suffixe_temp varchar2(04) := '_TMP';          --Suffixe des synonyms temporaires
  suffixe_pk   varchar2(03) := '_PK';           --Suffixe des contraintes PK
  table_phys   varchar2(30) := '';              --Table physique rattachée au synonyme
  var_env      varchar2(10) := '';              --Variable environnement
  cursor c_table_key is
   select table_name 
     from all_synonyms
    where synonym_name = table_dis || suffixe_temp;
  cursor c_foreign_key is
   select uc.table_name, uc.constraint_name
     from user_constraints uc
    where uc.r_constraint_name = table_phys || suffixe_pk 
      and constraint_type in ('R');
begin
DBMS_OUTPUT.ENABLE( 1000000 ) ;
    Result := 0;
    /*
      Logique : Pour chaque table ayant un synonyme _TMP de créé : désactivation de toutes les clés étrangères
    */
    --1) Récupération de la table physique en fonction du synonyme 
dbms_output.put_line('table logique  : ' || table_dis);
    Open c_table_key;
    Fetch c_table_key into table_phys;
    Close c_table_key;
dbms_output.put_line('table physique : ' || table_phys);
 
    --2) Désactivation des clés étrangères
    for r_foreign_key in c_foreign_key loop
	    begin
      		-- Désactivation de la contrainte
      		execute immediate 'ALTER TABLE ' || r_foreign_key.table_name || ' ENABLE CONSTRAINT ' || r_foreign_key.constraint_name;
		  exception
		    when others then
		      Result := -2;
    	end;
    end loop;
DBMS_OUTPUT.NEW_LINE ;
    return(Result);
    exception
      when others then
        Result := -1;
        return(Result);
end xb_disable_constraints;
/
 
declare
  r         number;
  nom_table varchar2(30);
begin
  nom_table := '&1';
  dbms_system.get_env('TERM', var_env);
--dbms_output.put_line('variable env   : ' || var_env);
  r := xb_disable_constraints(nom_table);
end;
/
 
exit;

Dans ce bloc :
Code:

1 2 3 4 5 6 7 8 9 10 declare r number; nom_table varchar2(30); begin nom_table := '&1'; dbms_system.get_env('TERM', var_env); -- dbms_output.put_line('variable env : ' || var_env); r := xb_disable_constraints(nom_table); end; /
Vous n'avez pas déclaré votre variable var_env.
De plus, il semblerait qu'il faut certains privilèges pour exécuter ce package.

Attention toutefois, ce package n'étant pas documenté il est à utiliser avec précaution.

01/07/2011, 15h24
frglyon

Effectivement, la version du script que j'avais mise ici, n'était pas forcément bonne en terme de compilation ...

Comment connaitre les privilèges qu'il faut avoir pour exécuter le package idoine svp ? en clair, quels arguements à passer à l'ordre GRANT ?

Merci pour votre réponse.