Discussion :

[gregco1]

Bonjour.
J'ai oublié la fonction round dans un formatage to_char(v_somme_specifique,'999.99') j'aurais du ecrire to_char(round(v_somme_specifique,2),'999.99').
Ceci dans 150 procedures.
Les outils a ma disposition me permettent de rechercher cette string mais pas de la remplacer...
Comment rechercher cette chaine et la remplacer dans mes procs ?

Merci d'avance.

[Pomalaix]

Il faut recréer ces procédures...

[gregco1]

Recreer ?
Comment cela, je veux les modifier mais d'une maniere automatique....

[Pomalaix]

Recreer ?
Comment cela, je veux les modifier mais d'une maniere automatique....

Il n'est pas possible de modifier une procédure, la seule chose qu'on puisse faire est de la recréer à 100%.

En général, on utilise un "CREATE OR REPLACE PROCEDURE...", qui a pour effet de remplacer la procédure si elle existe déjà.

Disposez-vous du code source de vos procédures ?

[bpprive]

Vous pouvez regarder le package DBMS_METADATA et la procédure GET_DDL. Elle vous permettra d'extraire de la base de données les procédures/packages que vous désirez modifier dans une table oracle. Ensuite, une substitution dans le code source via un mask pour ajouter votre fonction to char devrait faire l'affaire. Ensuite, execute immediate pour chaque procédure/package de la table devrait faire la job...

[gregco1]

Oui en possesion des sources.

Pour Bpprive.
Pourrait il developper sa soluce pour un debutant....
MERCI

[bpprive]

Code :

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

1
2
3
4
5
6
7
8
  FUNCTION DBMS_METADATA.get_ddl (
                object_type     IN  VARCHAR2,
                name            IN  VARCHAR2,
                schema          IN  VARCHAR2 DEFAULT NULL,
                version         IN  VARCHAR2 DEFAULT 'COMPATIBLE',
                model           IN  VARCHAR2 DEFAULT 'ORACLE',
                transform       IN  VARCHAR2 DEFAULT 'DDL')
        RETURN CLOB;

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
 
create table source_code (val clob);
 
insert into source_code (val)
  select dbms_metadata.get_ddl(decode(object_type, 'PACKAGE BODY', 'PACKAGE', object_type), object_name, owner)
	  from all_objects
	 where object_type in ('PACKAGE BODY', 'PROCEDURE', 'FUNCTION')
	   and owner in (USER);
 
commit;
 
--update avec ta substitution 
begin
  for sourc in (select val from source_code) loop
    execute immediate sourc.val; 
  end loop;
end;

Il es impossible de faire un execute immediate avec un clob. Cependant, tu as trois options :
Suite à ta routine de remplacement de code dans la table, tu vérifies la longueur de ce code via, par exemple

Code :

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

select length(val) from source_code

et si tu as un longueur plus petite que 32767, tu peux transformer ton clob en varchar2(32767) qui est en passant la longueur maximale pour un varchar2 en pl/sql et faire un execute immediate.

Si ce n'est pas le cas et que ton code est plus grand que 32767, utile sql*plus en faisant un spool et fait un select de ta table. Cela aura pour effet de créer un fichier avec le résultat du select (en l'occurence, ton code) et tu pourras l'exécuter à bras après. Ou tu utilises utl_file pour créer les scripts manuellement en pl/sql et tu les executes à bras encore une fois.

[gregco1]

MERCI.
Je vais essayer cela.

[SheikYerbouti]

Merci bpprive

Cette fonctionnalité est interressante et mériterait d'être "encapsulée" dans une jolie petite procédure du type

Code :

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

1
2
3
4
5
PROCEDURE replace_pl_sql
( 
  anc_code in varchar2, 
  new_code in Varchar2 
)