Discussion :

[totofff78]

Bonjour,

Je voudrais faire une requête que je "fabrique" moi même, car je rajoute des zones selon les cas.
Je ne veux pas du dynamique mais construire ma requête pour l'exécuter ensuite.
J'ai don voulu essayer avec un call QCMDEXC, mais j'ai un message ou il ne trouve pas la commande.
Que dois je faire? Merci d'avance.

Vola le code

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
* Execution OS400                                     
E                    CDE     1  11 30                  
E                    TC        110  1                  
 *                                                     
IPCDE        DS                                        
I                                        1 110 TC      
 *                                                     
....
     C                     CALL 'QCMDEXC'                  
     C                     PARM           PCDE             
     C                     PARM           LNG              
     C                     SETON                     LR    
      *                                                    
** CDE                                                     
INSERT INTO AATPCR/AFS                                     
SELECT ORG,AMTPER01, AMTPER02,                             
FROM AFS0 WHERE ORG ='

Je forme ma requête via un tableau puis qui alimente la zone PCDE
La requête au finale est la suivante :

Code :

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

1
2
PCDE = INSERT INTO AATPCR/AFS  SELECT ORG,AMTPER01, AMTPER02, AMTPER01+ AMTPER02  (zone variable)
FROM AFS0 WHERE ORG =' SOC' (zone variable)

Ma table AFS est définie comme cela
Zone données zone tampon tampon zone
ORG ALPHA 6 6 1 E/S
AMTPER01 CONDEN 18 2 10 7 E/S
AMTPER02 CONDEN 18 2 10 17 E/S
SEL0004 CONDEN 19 2 10 27 E/S

Quand je réalise le CALL 'QCMDEXC', j'ai ce message:

ID message . . . . . . : CPD0030 Gravité . . . . . . . : 30
Type de message . . . : Diagnostic
Date d'envoi . . . . . : 18/03/15 Heure d'envoi . . . . : 13:32:42

Message . . . . : Commande INSERT non trouvée dans la bibliothèque *LIBL.
Cause . . . . . : Si aucune bibliothèque n'est indiquée, la commande n'a pas
été trouvée dans les bibliothèques de la liste. Si une bibliothèque a été
indiquée, la commande n'a pas été trouvée. L'une des valeurs spéciales
suivantes a peut-être été utilisée pour indiquer la bibliothèque :
*LIBL - La commande n'a été trouvée dans aucune des bibliothèque de la
liste.
*NLVLIBL - La commande n'a été trouvée dans aucune bibliothèque de langue de
la liste des bibliothèques système.
*SYSTEM - La commande n'a pas été trouvée dans la bibliothèque QSYS.
Que faire . . . : Modifiez le nom de commande ou de bibliothèque, puis
relancez la commande.

[escartefigue]

J'ai bien l'impression qu'il s'agit quand même de réinventer du sql dynamique
Si le contenu de la requête peut varier en fonction des paramètres du traitement, alors c'est du dynamique.

Auquel cas
- il faut appliquer stricto sensu les règles et la syntaxe propres au SQL dynamique
- il faut accepter les inconvénients dus au SQL dynamique et notamment, la difficulté accrue des études d'impact,
les performances moins bonnes (bind au moment de l'execute) et variables selon les paramètres communiqués

[totofff78]

C'est ce que j'ai fait, voir ci-dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
C                   move      *blank        orga              6         
C                   Eval      orga     = 'ABBGR'                        
C                   move      *blank        pdata            25         
C                   Eval      pdata    = 'AMTPER01+AMTPER02'            
 /FREE                                                                  
     exec sql INSERT INTO AATPCR/AFS                                    
     SELECT ORG,AMTPER01, AMTPER02, :pdata                              
     FROM AFS0 WHERE ORG = :orga and :pdata <> 0;                       
 /end-FREE                                                              
C     sqlcod        ifeq      100                                       
C                   endif                                               
C                   Eval      *inlr = *on

Mais j'ai une erreur sql -302 et sqlstate 22023. J'ai l'impression qu'il ne prend pas ma variable :pdata?
ci-dessous le message

Impossible d'extraire le fichier d'options de requête.
Message de débogage de début **** de l'optimiseur pour la requête .
Zone HVR0003 et valeur 3 incompatibles. Code raison : 7 (7 -- La valeur contient des données numériques incorrectes. ).
Erreur de conversion sur variable hôte ou paramètre PDATA.
SQLCOD = -000000302.

[escartefigue]

Attention aussi : nombreux sont les sites de production qui n'aiment pas, voire qui interdisent le SQL dynamique, à bien vérifier avant d'aller plus loin

[totofff78]

Si je demande c'est que je peux le faire ;-)

[dgayte]

Bonjour,

Plusieurs remarques :
1- on n'exécute pas du SQL avec un CALL QCMDEXC. Ce programme est un interpréteur qui permet de lancer une commande du langage de contrôle. Autrement dit elle lance une commande du CL. INSERT n'est pas une commande CL mais SQL, donc le système te répond qu'il ne la connaît pas. C'est normal. Si tu tiens absolument à utiliser le QCMDEXC, tu peux appeler la commande RUNSQL suivi de ton INSERT en paramètre. Attention, il te faut être en V7R1
2- tu n'es pas obligé de faire du SQL dynamique pour ta requête. Il te faut juste utiliser les variables du programme dans ta requête, pour cela il te faut préfixer leur nom par un ":". C'est ce que tu as fait dans ton second exemple
3- l'erreur SQLCODE = -302 signifie que tu essayes de mettre dans la zone HVR0003 quelque chose qui n'est pas compatible (un nombre trop grand par exemple).

Dominique