sql dans un RPG

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:

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:

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:

Citation:

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.

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

en dynamique

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

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

Citation:

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.

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

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

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

Merci pour les remarques,

Je suis passé en debug et en fait il considère ma variable pdata passée en paramètre (call pgm parm ('AMTPER01+AMTPER02') comme une valeur entre quote.
Donc pour ma requête
Code:

1 2 INSERT INTO AATPCR/AFS SELECT ORG,AMTPER01, AMTPER02, :pdata FROM AFS0 WHERE ORG =' SOC'
qui devrait donner cela
Code:

1 2 INSERT INTO AATPCR/AFS SELECT ORG,AMTPER01, AMTPER02, AMTPER01+ AMTPER02 FROM AFS0 WHERE ORG =' SOC'
devient
Code:

1 2 INSERT INTO AATPCR/AFS SELECT ORG,AMTPER01, AMTPER02, 'AMTPER01+ AMTPER02' FROM AFS0 WHERE ORG =' SOC'
J'ai fais les test en sql direct et j'ai les même code erreurs.

C'est vraiment zarb :cfou:

Bon je reprends mon bâton de pèlerin et j'erre encore un peu dans le désert...

En meme temps pourquoi vouloir insérer une colonne calculée, c'est incorrect et ca ne sert à rien puisque il y déjà les 2 colonnes servant au calcul dans la table cible.

Resolu

Bon j'y suis arrivé.
Je suis passé par un CL qui appel un query (QMQRY) avec passage de paramètre. les zones amtper01 et 02 sont numériques et comme je passais en paramètre je mettais des quotes , donc considéré comme txt.==> SQL erreur

La solution

Dans le CL

Code:

1
2
3
4
5
6
7
8
9
10
11
DCL        VAR(&QT) TYPE(*CHAR) LEN(1) VALUE('''')      
DCL        VAR(&SUM  ) TYPE(*CHAR) LEN(102)   
DCL        VAR(&SUMA  ) TYPE(*CHAR) LEN(100)  
CHGVAR     VAR(&SUM)   VALUE('AMTPER01+AMTPER02')  
CHGVAR     VAR(&SUMA)   VALUE('AMTPER01+AMTPER02')  
 
/* CHGVAR     VAR(&SUM  ) VALUE(&QT *CAT &SUMA   *TCAT &QT) */  !ne pas mettre de quote pour une expression numérique!
 
CHGVAR     VAR(&ORGA) VALUE('SOC')               
CHGVAR     VAR(&ORG) VALUE(&QT *CAT &ORGA *TCAT &QT) 
STRQMQRY   QMQRY(AATPCR/CARABZ) SETVAR((SUM &SUM) (ORG  &ORG))

Dans le qmqry

Code:

1
2
3
INSERT INTO AATPCR/AFS1                    
SELECT ORG,AMTPER01, AMTPER02, &SUM        
FROM AFS0 where ORG = &ORG AND &SUM <> 0

Voilà , merci à tous !:applo: