Problème CASE SQL ORACLE

**iKeyyZ** · 30/01/2020, 16h35

Bonjour,

Voici ma requête :

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
DECLARE CURSOR c IS select * from haplo where notest IN('KCAS', 'MBCAS', 'SHGC', 'MTP', 'MSHGC') and nunati='2521224874';
BEGIN
  DECLARE resultest varchar2(1000) := '';
  BEGIN
    FOR r in c 
    LOOP 
      CASE WHEN (r.NOTEST = 'MSHGC' OR r.NOTEST = 'shgc' AND r.TYPTEST= 'H' AND r.RESULTEST = '0') THEN
        RESULTEST := 'NP';
      WHEN (r.NOTEST = 'MSHGC' OR r.NOTEST = 'shgc' AND r.TYPTEST= 'H' AND r.RESULTEST = '1') THEN
        RESULTEST := 'SH';
      WHEN (r.NOTEST = 'MSHGC' OR r.NOTEST = 'shgc' AND r.TYPTEST= 'H' AND r.RESULTEST = 'IN') THEN
        RESULTEST := 'IN';
      END CASE;
      SELECT CONCAT(resultest, r.notest || ':' || r.resultest || ';') INTO resultest FROM dual;
    END LOOP;
  dbms_output.put_line(resultest);
  END;
END;

Mon message d'erreur est :

Rapport d'erreur -
ORA-06592: CASE introuvable lors de l'exécution de l'instruction CASE
ORA-06512: à ligne 7
06592. 00000 - "CASE not found while executing CASE statement"
*Cause: A CASE statement must either list all possible cases or have an
else clause.
*Action: Add all missing cases or an else clause.

Je ne trouve pas le problème dans mon case, peut être une erreur de syntaxe ?
J'utilise une base de données Oracle.

Merci d'avance.

**escartefigue** · 30/01/2020, 17h05

Bonsoir,
Le point virgule est une fin d'instruction, du coup les WHEN suivants ne sont pas compris comme partie intégrante du CASE.

Attention aussi aux combinaisons de AND / OR sans parenthèses

**vanagreg** · 30/01/2020, 20h11

Bonjour,

Pourquoi faire ce test en pl/sql? Au maximum il faut privilégier le sql. Tu peux simplement faire:

Code :

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

1
2
3
4
5
6
7
SELECT CASE WHEN (r.NOTEST = 'MSHGC' OR r.NOTEST = 'shgc' AND r.TYPTEST= 'H' AND r.RESULTEST = '0') 
            THEN decode(r.RESULTEST, 0, 'NP', '1', 'SH', 'IN', 'IN')            
        END   
        || r.notest || ':' || r.resultest || ';'
FROM haplo r
WHERE notest IN ('KCAS', 'MBCAS', 'SHGC', 'MTP', 'MSHGC')
  AND nunati='2521224874';

A noter que la condition "OR r.NOTEST = 'shgc'" est inutile vu que cette valeur n'est pas sélectionnée dans la clause WHERE (elle l'est en majuscules). De plus, ne manque-t-il pas un ELSE pour l'instruction CASE?

**McM** · 03/02/2020, 12h29

Bonjour, comme dans le port-salut c'est écrit

...
*Cause: A CASE statement must either list all possible cases or have an
else clause.
...

Donc il faut un ELSE en PLSQL (contrairement au CASE en SQL)

Code :

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

1
2
3
4
5
6
7
8
CASE WHEN (r.NOTEST = 'MSHGC' OR r.NOTEST = 'shgc' AND r.TYPTEST= 'H' AND r.RESULTEST = '0') THEN
        RESULTEST := 'NP';
      WHEN (r.NOTEST = 'MSHGC' OR r.NOTEST = 'shgc' AND r.TYPTEST= 'H' AND r.RESULTEST = '1') THEN
        RESULTEST := 'SH';
      WHEN (r.NOTEST = 'MSHGC' OR r.NOTEST = 'shgc' AND r.TYPTEST= 'H' AND r.RESULTEST = 'IN') THEN
        RESULTEST := 'IN';
ELSE NULL;
      END CASE;

**iKeyyZ** · 04/02/2020, 13h33

Du coup maintenant ça marche :

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
59
60
61
62
DECLARE CURSOR c IS select * from haplo where notest IN('KCAS', 'MBCAS', 'SHGC', 'MMTCP', 'MMTP', 'MMH3', 'HMTP', 'HMH3', 'HMTCP', 'MSHGC') and nunati = '0114035148'
order by (case notest when 'KCAS' then 0 
                      when 'SHGC' then 1
                      when 'MSHGC' then 2
                      when 'MMTCP' then 3
                      when 'MMTP' then 4
                      when 'MMH3' then 5
                      when 'HMTP' then 6
                      when 'HMH3' then 7
                      when 'HMTCP' then 8
                      when 'MBCAS' then 9 
                      end); 
BEGIN
  DECLARE 
  varRESULTEST varchar2(1000) := NULL;
  varNOTEST varchar2(1000) := NULL;
  chainefinale varchar2(1000) := NULL;
  BEGIN
    FOR r in c 
    LOOP   
                       --Affectation des valeurs pour regrouper les tests.
        varNOTEST := CASE WHEN r.NOTEST = 'KCAS' THEN 'KCAS'
                          WHEN r.NOTEST = 'MBCAS' THEN 'MBCAS'
                          WHEN r.NOTEST IN ('MSHGC', 'SHGC') THEN 'SHGC'
                          WHEN r.NOTEST IN ('MMTCP', 'MMTP', 'MMH3', 'HMTP', 'HMH3', 'HMTCP') THEN 'MTP'
                     END;
                             --Cas 'SHGC' 
        varRESULTEST := CASE WHEN (r.NOTEST = 'MSHGC' OR r.NOTEST = 'shgc') AND r.TYPTEST= 'H' AND r.RESULTEST = '0' THEN 'NP'
                             WHEN (r.NOTEST = 'MSHGC' OR r.NOTEST = 'shgc') AND r.TYPTEST= 'H' AND r.RESULTEST = '1' THEN 'SH'
                             WHEN (r.NOTEST = 'MSHGC' OR r.NOTEST = 'shgc') AND r.TYPTEST= 'H' AND r.RESULTEST = 'IN' THEN 'IN'
 
                              --Cas 'MTP'
                              WHEN r.NOTEST='MMTCP' AND r.RESULTEST='MTF' THEN 'NP' 
                              WHEN r.NOTEST='MMTCP' AND r.RESULTEST='MTC' THEN 'Porteur'
 
                              WHEN r.NOTEST='MMTP' AND r.RESULTEST='MTPF' THEN 'NP'
                              WHEN r.NOTEST='MMTP' AND r.RESULTEST='MTPC' OR r.RESULTEST='MTP' THEN 'NP'
 
                              WHEN r.NOTEST='MMH3' AND r.RESULTEST='MH3F' THEN 'NP'
                              WHEN r.NOTEST='MMH3' AND r.RESULTEST='MH3C' OR r.RESULTEST='MH3S' THEN 'NP'
 
                              WHEN r.NOTEST='HMTCP' AND r.RESULTEST='0' THEN 'NP'
                              WHEN r.NOTEST='HMTCP' AND r.RESULTEST='1' OR r.RESULTEST='2' THEN 'Porteur'
 
                              WHEN r.NOTEST='HMTP' AND r.RESULTEST='0' THEN 'NP'
                              WHEN r.NOTEST='HMTP' AND r.RESULTEST='1' OR r.RESULTEST='2' THEN 'Porteur'
 
                              WHEN r.NOTEST='HMH3' AND r.RESULTEST='0' THEN 'NP'
                              WHEN r.NOTEST='HMH3' AND r.RESULTEST='1' OR r.RESULTEST='2' THEN 'Porteur'
 
                        END;
 
        SELECT CASE WHEN varRESULTEST IS NOT NULL THEN varNOTEST || ':' || varRESULTEST || ';'
                    WHEN varRESULTEST IS NULL THEN varNOTEST || ':' || r.RESULTEST || ';'
               END
        INTO varRESULTEST
        FROM DUAL;
        SELECT CONCAT(chainefinale, varRESULTEST) INTO chainefinale FROM DUAL;
    END LOOP;
    dbms_output.put_line(chainefinale);
  END;
END;

Le seul soucis est qu'au lieu de m'afficher une seule fois MTP : Resultat il m'affiche : KCAS:AB;SHGC:SHF;MTP:NP;MTP:NP;MTP:NP;MBCAS:A1A2;
Or j'aimerai qu'il s'affiche une seule fois. Pour le Cas MTP, dès qu'il trouve un résultat par exemple grâce a R.NOTEST = 'MMTCP' je souhaiterai que le case se stop et mette le résultat attendu. Si la condition pour R.NOTEST = 'MMTCP' n'est pas trouvé alors on passe au cas r.NOTEST='MMTP' et ainsi de suite.

**McM** · 05/02/2020, 11h34

Sans cas concret c'est compliqué de comprendre ce qui ne va pas avec le résultat.

Toutefois :
1/ Attention aux conditions combinées AND et OR (le AND est prioritaire), mais il vaut mieux mettre des () pour rendre le code plus lisible

Code :

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

WHEN r.NOTEST='MMTP' AND r.RESULTEST='MTPC' OR r.RESULTEST='MTP' THEN 'NP'

Test

Code :

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

1
2
3
4
5
6
SELECT 1 as a
FROM dual
WHERE 1=0 AND 1=1 OR 1=1
 
a
1

2/ Pourquoi faire un SELECT FROM DUAL (donc du SQL) pour des simples tests, c'est moins performant que de faire un IF (PLSQL), de plus le second WHEN peut être remplacé par ELSE

Code :

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

1
2
3
4
5
SELECT CASE WHEN varRESULTEST IS NOT NULL THEN varNOTEST || ':' || varRESULTEST || ';'
                    WHEN varRESULTEST IS NULL THEN varNOTEST || ':' || r.RESULTEST || ';'
               END
        INTO varRESULTEST
        FROM DUAL;

=>

Code :

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

1
2
3
4
IF  varRESULTEST IS NOT NULL 
THEN varRESULTEST := varNOTEST || ':' || varRESULTEST || ';';
ELSE varRESULTEST := varNOTEST || ':' || r.RESULTEST || ';';
END IF;

3/ pareil pour le Concat

Code :

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

SELECT CONCAT(chainefinale, varRESULTEST) INTO chainefinale FROM DUAL;

=>

Code :

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

chainefinale  := chainefinale  || varRESULTEST;

**iKeyyZ** · 05/02/2020, 11h37

Pour le cas MTP :
Mon case when doit s'arreter au moment ou il trouve un resultat, or il ne s'arrete pas

**McM** · 05/02/2020, 12h10

Le CASE s'arrête toujours quand il trouve quelque chose.
Tu interprètes mal le résultat.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
DECLARE
	v NUMBER;
BEGIN
	v := CASE WHEN 1 = 1 THEN 1
  			WHEN 1 = 1 THEN 2
        WHEN 1 = 1 THEN 3
        ELSE 0 END;
  DBMS_OUTPUT.put_line(v);
END;
 
 
1

Vu que tu es dans une boucle sur un SELECT, c'est sûrement ça qui te pose problème. Le SELECT te ramène 2 lignes

**iKeyyZ** · 05/02/2020, 12h58

Je n'arrive pas a mettre a jour mon code avec ton explication :

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
59
60
61
62
DECLARE CURSOR c IS select * from haplo where notest IN('KCAS', 'MBCAS', 'SHGC', 'MMTCP', 'MMTP', 'MMH3', 'HMTP', 'HMH3', 'HMTCP', 'MSHGC') and nunati = '0114035148'
order by (case notest when 'KCAS' then 0 
                      when 'SHGC' then 1
                      when 'MSHGC' then 2
                      when 'MMTCP' then 3
                      when 'MMTP' then 4
                      when 'MMH3' then 5
                      when 'HMTP' then 6
                      when 'HMH3' then 7
                      when 'HMTCP' then 8
                      when 'MBCAS' then 9 
                      end); 
BEGIN
  DECLARE 
  varRESULTEST varchar2(1000) := NULL;
  varNOTEST varchar2(1000) := NULL;
  chainefinale varchar2(1000) := NULL;
  BEGIN
    FOR r in c 
    LOOP   
                       --Affectation des valeurs pour regrouper les tests.
        varNOTEST := CASE WHEN r.NOTEST = 'KCAS' THEN 'KCAS'
                          WHEN r.NOTEST = 'MBCAS' THEN 'MBCAS'
                          WHEN r.NOTEST IN ('MSHGC', 'SHGC') THEN 'SHGC'
                          WHEN r.NOTEST IN ('MMTCP', 'MMTP', 'MMH3', 'HMTP', 'HMH3', 'HMTCP') THEN 'MTP'
                     END;
                             --Cas 'SHGC' 
        varRESULTEST := CASE WHEN (r.NOTEST = 'MSHGC' OR r.NOTEST = 'shgc') AND r.TYPTEST= 'H' AND r.RESULTEST = '0' THEN 'NP'
                             WHEN (r.NOTEST = 'MSHGC' OR r.NOTEST = 'shgc') AND r.TYPTEST= 'H' AND r.RESULTEST = '1' THEN 'SH'
                             WHEN (r.NOTEST = 'MSHGC' OR r.NOTEST = 'shgc') AND r.TYPTEST= 'H' AND r.RESULTEST = 'IN' THEN 'IN'
 
                              --Cas 'MTP'
                              WHEN r.NOTEST='MMTCP' AND r.RESULTEST='MTF' THEN 'NP' 
                              WHEN r.NOTEST='MMTCP' AND r.RESULTEST='MTC' THEN 'Porteur'
 
                              WHEN r.NOTEST='MMTP' AND r.RESULTEST='MTPF' THEN 'NP'
                              WHEN r.NOTEST='MMTP' AND r.RESULTEST='MTPC' OR r.RESULTEST='MTP' THEN 'NP'
 
                              WHEN r.NOTEST='MMH3' AND r.RESULTEST='MH3F' THEN 'NP'
                              WHEN r.NOTEST='MMH3' AND r.RESULTEST='MH3C' OR r.RESULTEST='MH3S' THEN 'NP'
 
                              WHEN r.NOTEST='HMTCP' AND r.RESULTEST='0' THEN 'NP'
                              WHEN r.NOTEST='HMTCP' AND r.RESULTEST='1' OR r.RESULTEST='2' THEN 'Porteur'
 
                              WHEN r.NOTEST='HMTP' AND r.RESULTEST='0' THEN 'NP'
                              WHEN r.NOTEST='HMTP' AND r.RESULTEST='1' OR r.RESULTEST='2' THEN 'Porteur'
 
                              WHEN r.NOTEST='HMH3' AND r.RESULTEST='0' THEN 'NP'
                              WHEN r.NOTEST='HMH3' AND r.RESULTEST='1' OR r.RESULTEST='2' THEN 'Porteur'
 
                        END;
 
        SELECT CASE WHEN varRESULTEST IS NOT NULL THEN varNOTEST || ':' || varRESULTEST || ';'
                    WHEN varRESULTEST IS NULL THEN varNOTEST || ':' || r.RESULTEST || ';'
               END
        INTO varRESULTEST
        FROM DUAL;
        SELECT CONCAT(chainefinale, varRESULTEST) INTO chainefinale FROM DUAL;
    END LOOP;
    dbms_output.put_line(chainefinale);
  END;
END;

Je souhaite juste que pour ce cas :

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
 --Cas 'MTP'
                              WHEN r.NOTEST='MMTCP' AND r.RESULTEST='MTF' THEN 'NP' 
                              WHEN r.NOTEST='MMTCP' AND r.RESULTEST='MTC' THEN 'Porteur'
 
                              WHEN r.NOTEST='MMTP' AND r.RESULTEST='MTPF' THEN 'NP'
                              WHEN r.NOTEST='MMTP' AND r.RESULTEST='MTPC' OR r.RESULTEST='MTP' THEN 'NP'
 
                              WHEN r.NOTEST='MMH3' AND r.RESULTEST='MH3F' THEN 'NP'
                              WHEN r.NOTEST='MMH3' AND r.RESULTEST='MH3C' OR r.RESULTEST='MH3S' THEN 'NP'
 
                              WHEN r.NOTEST='HMTCP' AND r.RESULTEST='0' THEN 'NP'
                              WHEN r.NOTEST='HMTCP' AND r.RESULTEST='1' OR r.RESULTEST='2' THEN 'Porteur'
 
                              WHEN r.NOTEST='HMTP' AND r.RESULTEST='0' THEN 'NP'
                              WHEN r.NOTEST='HMTP' AND r.RESULTEST='1' OR r.RESULTEST='2' THEN 'Porteur'
 
                              WHEN r.NOTEST='HMH3' AND r.RESULTEST='0' THEN 'NP'
                              WHEN r.NOTEST='HMH3' AND r.RESULTEST='1' OR r.RESULTEST='2' THEN 'Porteur'

Il s'arrete des qu'il trouve un resultat.
Comme ça au lieu d'obtenir en résultat : KCAS:AB;SHGC:SHF;MTP:NP;MTP:NP;MTP:NP;MBCAS:A1A2;
J'obtiendrais : KCAS:AB;SHGC:SHF;MTP:NP;MBCAS:A1A2;

**Scriuiw** · 05/02/2020, 13h42

Le problème principal, c'est que nous n'avons pas de boule de cristal permettant de savoir ce qu'il ressort du curseur suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
select * from haplo where notest IN('KCAS', 'MBCAS', 'SHGC', 'MMTCP', 'MMTP', 'MMH3', 'HMTP', 'HMH3', 'HMTCP', 'MSHGC') and nunati = '0114035148'
order by (case notest when 'KCAS' then 0 
                      when 'SHGC' then 1
                      when 'MSHGC' then 2
                      when 'MMTCP' then 3
                      when 'MMTP' then 4
                      when 'MMH3' then 5
                      when 'HMTP' then 6
                      when 'HMH3' then 7
                      when 'HMTCP' then 8
                      when 'MBCAS' then 9 
                      end);

Et c'est très certainement cette requête qui sort deux fois la valeur 'MTP', donc l'erreur ne se situerait-elle pas à ce niveau ?
Ou alors il s'agit de ne traiter qu'une seul fois la valeur 'MTP' même si le curseur ramène plusieurs fois cette valeur ?

D'autre part, pour le tri il est possible d'alléger la syntaxe via un DECODE (A voir selon votre préférence) :

Code :

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

1
2
3
4
5
select * 
from haplo 
where notest IN('KCAS', 'MBCAS', 'SHGC', 'MMTCP', 'MMTP', 'MMH3', 'HMTP', 'HMH3', 'HMTCP', 'MSHGC') 
and nunati = '0114035148'
order by DECODE(notest, 'KCAS', 0,'SHGC', 1,'MSHGC', 2,'MMTCP', 3,'MMTP', 4,'MMH3', 5,'HMTP', 6,'HMH3', 7,'HMTCP', 8,'MBCAS', 9, 99)

Pour le reste du code, si l'on prend les préconisations de McM de remplacer les instructions SQL (inutiles) et que l'on passe directement par du PL/SQL, on obtient ceci :

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
DECLARE CURSOR c IS 
  select * 
  from haplo 
  where notest IN('KCAS', 'MBCAS', 'SHGC', 'MMTCP', 'MMTP', 'MMH3', 'HMTP', 'HMH3', 'HMTCP', 'MSHGC') 
  and nunati = '0114035148'
  order by DECODE(notest 'KCAS', 0,'SHGC', 1,'MSHGC', 2,'MMTCP', 3,'MMTP', 4,'MMH3', 5,'HMTP', 6,'HMH3', 7,'HMTCP', 8,'MBCAS', 9, 99);
 
BEGIN
  DECLARE 
  varRESULTEST varchar2(1000) := NULL;
  varNOTEST varchar2(1000) := NULL;
  chainefinale varchar2(1000) := NULL;
  BEGIN
    FOR r in c 
    LOOP   
                       --Affectation des valeurs pour regrouper les tests.
        varNOTEST := CASE WHEN r.NOTEST = 'KCAS' THEN 'KCAS'
                          WHEN r.NOTEST = 'MBCAS' THEN 'MBCAS'
                          WHEN r.NOTEST IN ('MSHGC', 'SHGC') THEN 'SHGC'
                          WHEN r.NOTEST IN ('MMTCP', 'MMTP', 'MMH3', 'HMTP', 'HMH3', 'HMTCP') THEN 'MTP'
                     END;
                             --Cas 'SHGC' 
        varRESULTEST := CASE WHEN (r.NOTEST = 'MSHGC' OR r.NOTEST = 'shgc') AND r.TYPTEST= 'H' AND r.RESULTEST = '0' THEN 'NP'
                             WHEN (r.NOTEST = 'MSHGC' OR r.NOTEST = 'shgc') AND r.TYPTEST= 'H' AND r.RESULTEST = '1' THEN 'SH'
                             WHEN (r.NOTEST = 'MSHGC' OR r.NOTEST = 'shgc') AND r.TYPTEST= 'H' AND r.RESULTEST = 'IN' THEN 'IN'
 
                              --Cas 'MTP'
                              WHEN r.NOTEST='MMTCP' AND r.RESULTEST='MTF' THEN 'NP' 
                              WHEN r.NOTEST='MMTCP' AND r.RESULTEST='MTC' THEN 'Porteur'
 
                              WHEN r.NOTEST='MMTP' AND r.RESULTEST='MTPF' THEN 'NP'
                              WHEN r.NOTEST='MMTP' AND r.RESULTEST='MTPC' OR r.RESULTEST='MTP' THEN 'NP'
 
                              WHEN r.NOTEST='MMH3' AND r.RESULTEST='MH3F' THEN 'NP'
                              WHEN r.NOTEST='MMH3' AND r.RESULTEST='MH3C' OR r.RESULTEST='MH3S' THEN 'NP'
 
                              WHEN r.NOTEST='HMTCP' AND r.RESULTEST='0' THEN 'NP'
                              WHEN r.NOTEST='HMTCP' AND r.RESULTEST='1' OR r.RESULTEST='2' THEN 'Porteur'
 
                              WHEN r.NOTEST='HMTP' AND r.RESULTEST='0' THEN 'NP'
                              WHEN r.NOTEST='HMTP' AND r.RESULTEST='1' OR r.RESULTEST='2' THEN 'Porteur'
 
                              WHEN r.NOTEST='HMH3' AND r.RESULTEST='0' THEN 'NP'
                              WHEN r.NOTEST='HMH3' AND r.RESULTEST='1' OR r.RESULTEST='2' THEN 'Porteur'
 
                        END;
 
        IF  varRESULTEST IS NOT NULL 
          THEN varRESULTEST := varNOTEST || ':' || varRESULTEST || ';';
          ELSE varRESULTEST := varNOTEST || ':' || r.RESULTEST || ';';
        END IF;
        chainefinale  := chainefinale  || varRESULTEST;
    END LOOP;
    dbms_output.put_line(chainefinale);
  END;
END;

**vanagreg** · 05/02/2020, 13h52

Sur le principe, comme je le disais dans ma précédente réponse, il est inutile de faire du pl/sql pour ce genre de test, mettre tout dans la requête du curseur suffit, même pas besoin de pl/sql.

**iKeyyZ** · 05/02/2020, 14h31

Envoyé par Scriuiw

Le problème principal, c'est que nous n'avons pas de boule de cristal permettant de savoir ce qu'il ressort du curseur suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
select * from haplo where notest IN('KCAS', 'MBCAS', 'SHGC', 'MMTCP', 'MMTP', 'MMH3', 'HMTP', 'HMH3', 'HMTCP', 'MSHGC') and nunati = '0114035148'
order by (case notest when 'KCAS' then 0 
                      when 'SHGC' then 1
                      when 'MSHGC' then 2
                      when 'MMTCP' then 3
                      when 'MMTP' then 4
                      when 'MMH3' then 5
                      when 'HMTP' then 6
                      when 'HMH3' then 7
                      when 'HMTCP' then 8
                      when 'MBCAS' then 9 
                      end);

Et c'est très certainement cette requête qui sort deux fois la valeur 'MTP', donc l'erreur ne se situerait-elle pas à ce niveau ?
Ou alors il s'agit de ne traiter qu'une seul fois la valeur 'MTP' même si le curseur ramène plusieurs fois cette valeur ?

D'autre part, pour le tri il est possible d'alléger la syntaxe via un DECODE (A voir selon votre préférence) :

Code :

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

1
2
3
4
5
select * 
from haplo 
where notest IN('KCAS', 'MBCAS', 'SHGC', 'MMTCP', 'MMTP', 'MMH3', 'HMTP', 'HMH3', 'HMTCP', 'MSHGC') 
and nunati = '0114035148'
order by DECODE(notest, 'KCAS', 0,'SHGC', 1,'MSHGC', 2,'MMTCP', 3,'MMTP', 4,'MMH3', 5,'HMTP', 6,'HMH3', 7,'HMTCP', 8,'MBCAS', 9, 99)

Pour le reste du code, si l'on prend les préconisations de McM de remplacer les instructions SQL (inutiles) et que l'on passe directement par du PL/SQL, on obtient ceci :

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
DECLARE CURSOR c IS 
  select * 
  from haplo 
  where notest IN('KCAS', 'MBCAS', 'SHGC', 'MMTCP', 'MMTP', 'MMH3', 'HMTP', 'HMH3', 'HMTCP', 'MSHGC') 
  and nunati = '0114035148'
  order by DECODE(notest 'KCAS', 0,'SHGC', 1,'MSHGC', 2,'MMTCP', 3,'MMTP', 4,'MMH3', 5,'HMTP', 6,'HMH3', 7,'HMTCP', 8,'MBCAS', 9, 99);
 
BEGIN
  DECLARE 
  varRESULTEST varchar2(1000) := NULL;
  varNOTEST varchar2(1000) := NULL;
  chainefinale varchar2(1000) := NULL;
  BEGIN
    FOR r in c 
    LOOP   
                       --Affectation des valeurs pour regrouper les tests.
        varNOTEST := CASE WHEN r.NOTEST = 'KCAS' THEN 'KCAS'
                          WHEN r.NOTEST = 'MBCAS' THEN 'MBCAS'
                          WHEN r.NOTEST IN ('MSHGC', 'SHGC') THEN 'SHGC'
                          WHEN r.NOTEST IN ('MMTCP', 'MMTP', 'MMH3', 'HMTP', 'HMH3', 'HMTCP') THEN 'MTP'
                     END;
                             --Cas 'SHGC' 
        varRESULTEST := CASE WHEN (r.NOTEST = 'MSHGC' OR r.NOTEST = 'shgc') AND r.TYPTEST= 'H' AND r.RESULTEST = '0' THEN 'NP'
                             WHEN (r.NOTEST = 'MSHGC' OR r.NOTEST = 'shgc') AND r.TYPTEST= 'H' AND r.RESULTEST = '1' THEN 'SH'
                             WHEN (r.NOTEST = 'MSHGC' OR r.NOTEST = 'shgc') AND r.TYPTEST= 'H' AND r.RESULTEST = 'IN' THEN 'IN'
 
                              --Cas 'MTP'
                              WHEN r.NOTEST='MMTCP' AND r.RESULTEST='MTF' THEN 'NP' 
                              WHEN r.NOTEST='MMTCP' AND r.RESULTEST='MTC' THEN 'Porteur'
 
                              WHEN r.NOTEST='MMTP' AND r.RESULTEST='MTPF' THEN 'NP'
                              WHEN r.NOTEST='MMTP' AND r.RESULTEST='MTPC' OR r.RESULTEST='MTP' THEN 'NP'
 
                              WHEN r.NOTEST='MMH3' AND r.RESULTEST='MH3F' THEN 'NP'
                              WHEN r.NOTEST='MMH3' AND r.RESULTEST='MH3C' OR r.RESULTEST='MH3S' THEN 'NP'
 
                              WHEN r.NOTEST='HMTCP' AND r.RESULTEST='0' THEN 'NP'
                              WHEN r.NOTEST='HMTCP' AND r.RESULTEST='1' OR r.RESULTEST='2' THEN 'Porteur'
 
                              WHEN r.NOTEST='HMTP' AND r.RESULTEST='0' THEN 'NP'
                              WHEN r.NOTEST='HMTP' AND r.RESULTEST='1' OR r.RESULTEST='2' THEN 'Porteur'
 
                              WHEN r.NOTEST='HMH3' AND r.RESULTEST='0' THEN 'NP'
                              WHEN r.NOTEST='HMH3' AND r.RESULTEST='1' OR r.RESULTEST='2' THEN 'Porteur'
 
                        END;
 
        IF  varRESULTEST IS NOT NULL 
          THEN varRESULTEST := varNOTEST || ':' || varRESULTEST || ';';
          ELSE varRESULTEST := varNOTEST || ':' || r.RESULTEST || ';';
        END IF;
        chainefinale  := chainefinale  || varRESULTEST;
    END LOOP;
    dbms_output.put_line(chainefinale);
  END;
END;

Après exécution il ressort exactament le même résultat, c'est a dire "KCAS:AB;SHGC:SHF;MTP:NP;MTP:NP;MTP:NP;MBCAS:A1A2;".
Je penses m'être mal exprimé.
Pour le cas du MTP il peut exister plusieurs résultat pour la valeur : 'MMTCP', 'MMTP', 'MMH3', 'HMTP', 'HMH3', 'HMTCP'

Imaginons si MMTCP = aucune valeur MMTP = aucune valeur MMH3 = une valeur HMTP = aucune valeur HMH3 = aucune valeur et HMTCP = 1 valeur
Alors je souhaite que le case s'arrête à la valeur du HMTP, pas besoin de ramener les autres valeurs.

En espérant m'être fait mieux comprendre même si je suis conscient que ce cas est assez perplexe.

**Scriuiw** · 05/02/2020, 16h15

Mais le CASE s'arrête dans tous les cas, ce qu'il y a c'est que le SELECT amène une nouvelle ligne ensuite avec MTP et vu que l'on est sur une boucle c'est logique de le traiter aussi.

Pour y remédier, on peut imaginer ceci :

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
59
60
61
62
63
64
65
66
67
68
69
70
DECLARE CURSOR c IS 
  select * 
  from haplo 
  where notest IN('KCAS', 'MBCAS', 'SHGC', 'MMTCP', 'MMTP', 'MMH3', 'HMTP', 'HMH3', 'HMTCP', 'MSHGC') 
  and nunati = '0114035148'
  order by DECODE(notest 'KCAS', 0,'SHGC', 1,'MSHGC', 2,'MMTCP', 3,'MMTP', 4,'MMH3', 5,'HMTP', 6,'HMH3', 7,'HMTCP', 8,'MBCAS', 9, 99);
 
BEGIN
  DECLARE 
  Nb_MTP NUMBER(3) := 0;
  varRESULTEST varchar2(1000) := NULL;
  varNOTEST varchar2(1000) := NULL;
  chainefinale varchar2(1000) := NULL;
  BEGIN
    FOR r in c 
    LOOP   
      --Affectation des valeurs pour regrouper les tests.
      varNOTEST :=
        CASE 
          WHEN r.NOTEST = 'KCAS' THEN 'KCAS'
          WHEN r.NOTEST = 'MBCAS' THEN 'MBCAS'
          WHEN r.NOTEST IN ('MSHGC', 'SHGC') THEN 'SHGC'
          WHEN r.NOTEST IN ('MMTCP', 'MMTP', 'MMH3', 'HMTP', 'HMH3', 'HMTCP') THEN 'MTP'
        END CASE;
 
      CASE
        --Cas 'SHGC' 
        WHEN (r.NOTEST = 'MSHGC' OR r.NOTEST = 'shgc') AND r.TYPTEST= 'H'  THEN         
          varRESULTEST :=
            CASE 
              WHEN  r.RESULTEST = '0' THEN 'NP'
              WHEN  r.RESULTEST = '0' THEN 'NP'
              WHEN  r.RESULTEST = '0' THEN 'NP'
              ELSE '??'
            END CASE;
        ELSE
          --Cas 'MTP'
          IF (Nb_MTF = 0) THEN
            varRESULTEST := 
              CASE 
                WHEN r.NOTEST='MMTCP' AND r.RESULTEST='MTF' THEN 'NP' 
                WHEN r.NOTEST='MMTCP' AND r.RESULTEST='MTC' THEN 'Porteur'
 
                WHEN r.NOTEST='MMTP' AND r.RESULTEST='MTPF' THEN 'NP'
                WHEN r.NOTEST='MMTP' AND r.RESULTEST='MTPC' OR r.RESULTEST='MTP' THEN 'NP'
 
                WHEN r.NOTEST='MMH3' AND r.RESULTEST='MH3F' THEN 'NP'
                WHEN r.NOTEST='MMH3' AND r.RESULTEST='MH3C' OR r.RESULTEST='MH3S' THEN 'NP'
 
                WHEN r.NOTEST='HMTCP' AND r.RESULTEST='0' THEN 'NP'
                WHEN r.NOTEST='HMTCP' AND r.RESULTEST='1' OR r.RESULTEST='2' THEN 'Porteur'
 
                ELSE NULL
              END CASE;
              IF (varRESULT IS NOT NULL) THEN
                Nb_MTF := Nb_MTF + 1;
              END IF;
          END IF;
        END CASE;         
      END;
 
      IF  varRESULTEST IS NOT NULL 
        THEN varRESULTEST := varNOTEST || ':' || varRESULTEST || ';';
        ELSE varRESULTEST := varNOTEST || ':' || r.RESULTEST || ';';
      END IF;
      chainefinale  := chainefinale  || varRESULTEST;
    END LOOP;
    dbms_output.put_line(chainefinale);
  END;
END;

**SQLpro** · 05/02/2020, 19h44

Envoyé par iKeyyZ

...Mon message d'erreur est :

Rapport d'erreur -
ORA-06592: CASE introuvable lors de l'exécution de l'instruction CASE

…

Je ne savais pas qu'Oracle avait autant d'humour dans ses messages d'erreur !

A +

**McM** · 07/02/2020, 14h33

Ce n'est pas Oracle, c'est de l'anglais, comprendre le premier CASE comme un nom, le second comme la fonction.

C'est comme de créer une fonction FACTURE qui te ramène une facture et qu'en cas de NO_DATA_FOUND tu dises : "FACTURE introuvable dans l'utilisation de la fonction FACTURE"

Problème CASE SQL ORACLE

PL/SQL Oracle

Discussions similaires

Partager

Partager