[DB2] [i5OS] [V6R1] - Clause ORDER BY dynamique [Résolu]

[pwrdwnsys]

Bonjour.

Je cherche à faire une clause ORDER BY dynamique dans une requête embarquée dans du RPGLE (j'essaie de faire une requête statique, sinon, en dynamique, ça ne pose aucun problème...).

Ce que j'ai essayé :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
EXEC SQL
  DECLARE evenement CURSOR FOR
  SELECT *
  FROM tsevtcp0
  WHERE yctopr = ' ' AND
                   ycsrrs =
          CASE :zcsgp
            WHEN ' ' THEN ycsrrs
            ELSE :zcsgp
          END
  ORDER BY
    CASE :wcvue
      WHEN 'S' THEN ycsrrs, ycgprs, ycmet, ycodc, ydpre, ydrea, ycmoe, ycsmo
      ELSE ycsrrs, ycgprs, ycusrs, ycmet, ycodc, ydpre, ydrea, ycmoe, ycsmo
    END ASC
  FOR READ ONLY
  OPTIMIZE FOR ALL ROWS ;

Mais RDp me jette gentiment sur le CASE dans le ORDER BY :

Code :

1
2
3
SQL0104 Elément syntaxique , n'est pas correct. Eléments possibles : END

Savez-vous si SQL pour I5OS est bien toujours le parent pauvre de DB2 et que ce que je veux faire n'est pas possible ou y'a-t-il un moyen d'arriver à mon résultat ?

Merci de vos conseils.

[Mercure]

Essaie çà :

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
 
...
 ORDER BY
 
    CASE :wcvue = 'S'
      THEN ycsrrs                      
      ELSE  ycsrrs
    END
 
    CASE :wcvue = 'S'
      THEN ycgprs                     
      ELSE  ycgprs
    END
 
    CASE :wcvue = 'S'
      THEN ycmet                     
      ELSE  ycusrs
    END
 
     CASE :wcvue = 'S'
      THEN ycodc                      
      ELSE  ycmet
    END
 
    CASE :wcvue = 'S'
      THEN ydpre                      
      ELSE  ycodc
    END
 
    CASE :wcvue = 'S'
      THEN ydrea                      
      ELSE  ydpre
    END
 
    CASE :wcvue = 'S'
      THEN ycmoe                     
      ELSE  ycmoe
    END
 
    CASE :wcvue = 'S'
      THEN ycsmo                    
      ELSE  ycsmo
    END
...

[pwrdwnsys]

Merci Mercure, ça fonctionne. Partant de ce principe de codage (fort peu intuitif, je trouve), je suis arrivé à cela :

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
 
        EXEC SQL
          DECLARE evenements NO SCROLL CURSOR WITHOUT RETURN FOR
            SELECT *
              FROM tsevtcp0
              WHERE     yctopr = ' '
                    AND ycsrrs LIKE
                      CASE :zcsgp
                        WHEN '___' THEN ycsrrs
                        ELSE :zcsgp
                      END
                    AND ycgprs LIKE
                      CASE :zcgrp
                        WHEN '___' THEN ycgprs
                        ELSE :zcgrp
                      END
              ORDER BY ycsrrs, ycgprs,
                       CASE :wcvue
                         WHEN 'S' THEN ' '
                         ELSE ycusrs
                       END ,
                       ycmet, ycodc, ydpre, ydrea, ycmoe, ycsmo
              FOR READ ONLY
              OPTIMIZE FOR ALL ROWS ;

Je ne sais pas comment indiquer directement un équivalent de "WHEN <> 'S'...
Merci encore.

[punkoff]

Bonjour,

Code sql :

1
2
3
4
 
CASE WHEN (MaVar <> 'MonTest') THEN ...
ELSE ...
END

[Mercure]

Bonjour les perfs avec tous ces LIKE, CASE et ORDER BY ! A tous les coups, c'est CQE le vieux moteur qui sera le maître du jeu là-dedans.

[punkoff]

pas en v6r1 pour CQE, pour le reste oui y a des chance

[pwrdwnsys]

Merci pour les réponses.

Envoyé par Mercure

Bonjour les perfs avec tous ces LIKE, CASE et ORDER BY ! A tous les coups, c'est CQE le vieux moteur qui sera le maître du jeu là-dedans.

Après différents tests, je vais revenir à du SQL dynamique, pour des raisons des performances...
Du coup, je n'ai plus de problème de syntaxe. Mais j'ai des solutions pour plus tard.