Récupération du texte d'un package (NI all_source NI dbms_metadata.get_ddl)

Version imprimable

18/04/2017, 15h04
MonsieurTruite

Récupération du texte d'un package (NI all_source NI dbms_metadata.get_ddl)
Ces Messieurs-Dames, bonjour !

J'aimerai simplement récupérer le TEXTE d'un Package (en-tête et body idéalement), mais voilà :
1. Un SELECT TEXTE FROM ALL_SOURCE ne me ramène pas les premiers "mots", à savoir 'create or replace PACKAGE mon_pack AS', mais seulement 'PACKAGE mon_pack AS'
2. L'emploi de dbms_metadata.get_ddl me rajoute quant à lui un "create or replace editionable package "utilisateur".mon_pack AS'
Alors voilà : pourquoi n'aurais-je pas le droit d'avoir EXACTEMENT ce que j'ai écrit ? Existe-t-il une troisième méthode ? Ou bien, sachant que je travaille avec SQL Developer, ce dernier filou a-t-il quelque chose à voir dans cette histoire ?

J'espère avoir été clair ! :aie:
D'avance, merci ! :mrgreen:
19/04/2017, 11h54
mnitu

Divers outil genre PL/SQL Developer, SQL Developper, Toad, etc. vous offre cette possibilité en sauvegardent dans un fichier.
Dbms_metadata vous offre la possibilité de transformer le code source.
19/04/2017, 14h03
MonsieurTruite

En fait, j'aimerai une requête qui puisse me faire ça. J'ai un fichier .txt avec mes +/- 500 packages sous forme de liste, et je LOOP sur ce fichier pour extraire le texte de ces packages, mais il est impératif que le code soit similaire à celui que j'ai écrit dans SQL Developer. C'est pour ça que j'aimerai une alternative aux deux requêtes que j'ai cité dans mon post originel !

En tout cas, merci pour ton aide !
PS: Pas la peine de me vouvoyer, je suis une truite.
19/04/2017, 20h50
pachot

Bonjour,
Est-ce que cen n'est pas un problème d'affichage? dbms_metadata retourne un CLOB. Sous Sous sqlplus il faut peut être faire 'set long'

Les truites elles aussi sont respectables!
Ci dessous le point de départ.

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
 
Connected to Oracle Database 11g Enterprise Edition Release 11.2.0.3.0 
 
SQL> 
SQL> CREATE OR REPLACE Package Null_Package Is
  2    Procedure Null_proc;
  3  End;
  4  /
Package created
SQL> CREATE OR REPLACE Package Body Null_Package Is
  2    Procedure Null_proc
  3    Is
  4    Begin
  5      Null;
  6    End;
  7  End;
  8  /
Package body created
 
SQL> set serveroutput on
SQL> 
SQL> Declare
  2    hOpenOrig   NUMBER;
  3    hModifyOrig NUMBER;
  4    hTransDDL   NUMBER;
  5    l_ddl       Clob;
  6  Begin
  7    --
  8    hOpenOrig := dbms_metadata.open('PACKAGE');
  9    --
 10    hModifyOrig := dbms_metadata.add_transform(hOpenOrig,'MODIFY');
 11    dbms_metadata.set_remap_param(hModifyOrig,'REMAP_SCHEMA','MNI',null);
 12    dbms_metadata.set_filter(hOpenOrig, 'NAME','NULL_PACKAGE');
 13    --
 14    hTransDDL := dbms_metadata.add_transform(hOpenOrig ,'DDL');
 15    dbms_metadata.set_transform_param(hTransDDL, 'PRETTY', TRUE);
 16    dbms_metadata.set_transform_param(hTransDDL, 'SQLTERMINATOR', TRUE);
 17    --
 18    l_ddl := dbms_metadata.fetch_clob(hOpenOrig);
 19    --
 20    dbms_output.put_line(SubStr(l_ddl,1,1000));
 21    --
 22    dbms_metadata.close(hOpenOrig);
 23  End;
 24  /
 
  CREATE OR REPLACE PACKAGE "NULL_PACKAGE" Is
  Procedure Null_proc;
End;
 
/
CREATE OR REPLACE PACKAGE BODY "NULL_PACKAGE" Is
  Procedure Null_proc
  Is
  Begin
    Null;
  End;
End;
 
/
PL/SQL procedure successfully completed
 
SQL>

20/04/2017, 16h58
MonsieurTruite

Merci pour vos conseils.

Puisqu'il n'existe apparemment pas de requête "simple" pour cela, quelle conclusion peut on en tirer ?
Pourquoi est ce que lorsque j'affiche un package sur SQL Developer, j'ai bien ce fameux "Create or replace" mais qu'il n'est pas dans le ALL_SOURCE? Est-ce une sorte d'affichage implicite, ou quelque chose comme ça qui m'échapperait ? :weird:

PS : Les truites sont respectables tant qu'elles ne cassent pas le fil, ces garces !
21/04/2017, 09h45
mnitu

All_source expose les sources des divers entités (packages, procédures, fonction, etc.), dans un certain sens c'est le code chargé dans la base lors de l'invocation d'une procédure packagée.
Create [Or Replace] ... est une instruction DDL qui a pour conséquence la création de l'entité précisé!
Donc all source ne peut pas contenir l'instruction DDL Create [Or Replace]

Mais je me demande bien quel est vraiment votre problème! Normalement toutes les sources d'une application ne se "cherchent" pas dans la base mais dans un outil de versionning à partir duquel la base est chargée!
Si vous avez juste la base sans les fichiers contenant le code c'est le temps d'y remédier à ce problème.

Ensuite qu'est ce que ça veut dire "requête simple" pour vous ? Le bloc PL/SQL que je vous ai fourni comme exemple est "simple"! L'adapter pour traiter tous les packages d'un schéma: "c'est simple". Vous savez quoi: souvent "compliqué" est juste le mot qui désigne quelque chose de "simple" mais pour lequel nous n'avons pas envie de faire l'effort de comprendre!
21/04/2017, 15h31
MonsieurTruite
Je ne peux pas utiliser de PL/SQL, c'est pour une requête éventuellement écrite dans un .SQL
J'entends par une requête simple le résultat d'un simple SELECT comme dans les deux exemples que j'expliquais dans mon post originel, avec un simple appel à la table ALL_SOURCE ou à la fonction dbms_metadata.get_dd. Le tout tient en deux lignes.
Je note pour la définition de 'compliqué', je la ressortirai la prochaine fois que j'expliquerai à mon vieux père ce que c'est que le PL/SQL, et je lui dirais qu'il ne fait pas assez d'efforts ;)

Bref, au final je m'en suis sorti en faisant un :
Code:

1 2 SELECT CASE WHEN LINE = 1 THEN CONCAT('CREATE OR REPLACE ',TEXT) ELSE TEXT END FROM ALL_SOURCE
Merci quand même !
24/04/2017, 14h54
mnitu

Dit également à votre père que tout ".SQL" connait la commande CALL et n'importe quelle procédure PL/SQL peut devenir du pur SQL via les fonctions pipelined!