Discussion :

[iKeyyZ]

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]

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]

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]

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]

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]

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;

[SQLpro]

...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]

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"