Compilation conditionelle et condition as Static boolean

**malus560** · 02/12/2014, 13h37

Bonjour,

j'ai une fonction existe licence que voici:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
create or replace FUNCTION EXIST_LICENSE 
(  MyLISENSE IN VARCHAR2 ) 
  RETURN NUMBER IS
 
      v_count NUMBER(1);
 
 
BEGIN
    SELECT COUNT(1)INTO v_count FROM CA2IENABLEDLICENSES WHERE CA2IBUNDLEID=MYLISENSE ;
 
		return	(v_count);
 
END EXIST_LICENSE;

Ensuite j'utilise cette fonction comme condition pour la compilation d'une sequence dans ma procedure tel que ci dessous:

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
CREATE OR REPLACE PROCEDURE MONTEST IS
 
  CURSOR courant IS
    SELECT ID,
          CHAMPS1,
          $IF EXIST_LICENSE('com.ca2i.app.bol')=1
          $THEN CHAMPS_OPT ;
          $END
          FROM TEST;
 
BEGIN
 
  FOR i in courant LOOP
 
        INSERT INTO TEST_COPIE (
                                    ID,
                                    CHAMPS1,
                                    CHAMPS_OPT                                    
               )
 
        VALUES(
                        i.ID,
                        i.CHAMPS1,
                        i.CHAMPS_OPT                        
 
 
              ); 
  END LOOP;
 
 
 
 
 
END MONTEST;

Je reçoit une erreur : Erreur(6,15): PLS-00174: vous devez utiliser une expression booléenne statique
Es-ce que quelqu'un a une idée d'où viens le problème?
Merci

**McM** · 02/12/2014, 14h36

Ca, c'est pas du SQL

Code :

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

1
2
3
$IF EXIST_LICENSE('com.ca2i.app.bol')=1
          $THEN CHAMPS_OPT ;
          $END

Utilise un DECODE ou un CASE

**Pomalaix** · 02/12/2014, 14h45

Envoyé par McM

Ca, c'est pas du SQL

Ca tombe bien, ce n'est pas censé en être, mais de la syntaxe spécifique à la compilation conditionnelle.
Un exemple de Feuerstein : http://www.oracle.com/technetwork/is...ql-096385.html

**malus560** · 02/12/2014, 15h50

le problème ici c'est que lorsque je passe une fonction en paramètre pour ma condition on à pas un static boolean et je ne sait pas comment y remédier.

**McM** · 02/12/2014, 17h05

Houla, un truc que je ne connaissais pas..
C'est peut être puissant, mais vive le débug !

**mnitu** · 03/12/2014, 10h50

Justement, c'est fait entre outre, pour faciliter le debug

. Par exemple: la procédure peut contenir toute une palanqué des appels à des fonctions de trace/debug qui ne seront pas présente dans le code installé en production, via la compilation conditionnelle. Mais en cas de pépin il sera possible de juste recompiler la procédure et de la ré-exécuter pour obtenir les informations de trace sans modifier le code.

**mnitu** · 03/12/2014, 10h58

Envoyé par malus560

le problème ici c'est que lorsque je passe une fonction en paramètre pour ma condition on à pas un static boolean et je ne sait pas comment y remédier.

Via PLSQL_CCFLAGS.

**malus560** · 03/12/2014, 14h21

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
alter session set PLSQL_Warnings =  'enable:all'
alter session set PLSQL_Code_Type = 'native'
 
if EXIST_LICENCE('com.ca2i.app.mealticket')=1 then
  alter session set PLSQL_CCFlags = 'Licence:true'
else
 alter session set PLSQL_CCFlags = 'Licence:true'
end if
 
 
 
 
CREATE OR REPLACE PROCEDURE MONTEST IS
 
  CURSOR courant IS
    SELECT ID,
          CHAMPS1,
          $IF $$Licence
          $THEN CHAMPS_OPT ;
          $END
          FROM TEST;
 
BEGIN
 
  FOR i in courant LOOP
 
        INSERT INTO TEST_COPIE (
                                    ID,
                                    CHAMPS1,
                                    CHAMPS_OPT                                    
               )
 
        VALUES(
                        i.ID,
                        i.CHAMPS1,
                        i.CHAMPS_OPT                        
 
 
              ); 
  END LOOP;
 
 
 
 
 
END MONTEST;
 
 begin MONTEST();end;
 SELECT * FROM TEST_COPIE;

J'ai essayé avec ces modification et ca ne marche toujours pas je crois que le problème viens de la partie

Code :

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

1
2
3
4
5
if EXIST_LICENCE('com.ca2i.app.mealticket')=1 then
  alter session set PLSQL_CCFlags = 'Licence:true'
else
 alter session set PLSQL_CCFlags = 'Licence:true'
end if

Voici le rapport d'erreur

Erreur commençant à la ligne: 4 de la commande -
if EXIST_LICENCE('com.ca2i.app.mealticket')=1 then
Rapport d'erreur -
Commande inconnue

Erreur commençant à la ligne: 5 de la commande -
alter session set PLSQL_CCFlags = 'Licence:true'
else
alter session set PLSQL_CCFlags = 'Licence:true'
end if
Rapport d'erreur -
Erreur SQL : ORA-00922: option erronée ou absente
00922. 00000 - "missing or invalid option"
*Cause:
*Action:

**mnitu** · 03/12/2014, 15h14

Vous n'avez pas encore compris

...c'est que lorsque je passe une fonction en paramètre pour ma condition on à pas un static boolean ...

Donc l'idée est d'utiliser votre fonction ailleurs et de valoriser PLSQL_CCFlags comme dans votre exemple : Licence:true ou false. Ensuite c'est la valeur de Licence que vous testez dans la compilation conditionnelle.

Code :

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

1
2
3
 
$If $$License $Then 
$End

**malus560** · 03/12/2014, 15h48

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
alter session set PLSQL_Warnings =  'enable:all';
alter session set PLSQL_Code_Type = 'native';
 
select EXIST_LICENSE('com.ca2i.app.medical')as tmp
from TEST;
--alter session set PLSQL_CCFlags = 'Licence:false';
$if tmp=1 $then alter session set PLSQL_CCFlags = 'Licence:true';
$else alter session set PLSQL_CCFlags = 'Licence:false';
$end 
 
 
 
 
CREATE OR REPLACE PROCEDURE MONTEST IS
 
  CURSOR courant IS
    SELECT ID,
          CHAMPS1
          $IF $$Licence
          $THEN 
          ,CHAMPS_OPT
          $END
          FROM TEST;
 
BEGIN
 
  FOR i in courant LOOP
 
        INSERT INTO TEST_COPIE (
                                    ID,
                                    CHAMPS1
                                    $IF $$Licence
                                    $THEN 
                                    ,CHAMPS_OPT
                                    $END                                    
               )
 
        VALUES(
                        i.ID,
                        i.CHAMPS1
                        $IF $$Licence
                        $THEN 
                        , i.CHAMPS_OPT
                        $END                        
 
 
              ); 
  END LOOP;
 
 
 
 
 
END MONTEST;
/
BEGIN
  MONTEST();
END;

Avec ça j'y suis presque sauf que ma condition pour les "ALTER SESSION" ne se vérifie pas et mon flag licence reste à la valeur a laquelle il est initialiser

**malus560** · 04/12/2014, 16h23

Pour ceux que ca interesse il fallait recompiler la procedure dynamiquement

Code :

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

EXECUTE IMMEDIATE 'ALTER PROCEDURE MONTEST COMPILE ';

Compilation conditionelle et condition as Static boolean

PL/SQL Oracle

Discussions similaires

Partager

Partager