Discussion :

[Nombre pi]

Bonjour,

J'ai un fichier F1 sur lequel je voudrais exécuter une requête SELECT avec des conditions (WHERE...) et le résultat est le contenu d'une zone unique (exemple le nom d'un utilisateur).
Je voudrais écrire la requête dans un membre source exemple REQUETE1 et l'appeler à partir d'un programme CL (ou une commande) avec retour de cette variable.
Comment faire.
Merci d'avance.

[m4k-Hurrican]

Bonjour,

Pas de SQL en CL (CLP ou CLLE).
Je te conseille donc d'appeler un SQLRPGLE avec le(s) paramètre(s) adéquat(s), et qui lui, exécutera la requête, récupérera la donnée voulue et la retournera au CL.

[Nombre pi]

Bonjour,

Pas de SQL en CL (CLP ou CLLE).
Je te conseille donc d'appeler un SQLRPGLE avec le(s) paramètre(s) adéquat(s), et qui lui, exécutera la requête, récupérera la donnée voulue et la retournera au CL.

Et si on utilisait QMQRY ?

[m4k-Hurrican]

A moins que je fasse erreur (je ne pratique plus depuis longtemps), QMQRY ne te permettra pas de récupérer une variable.

Franchement il ne faut pas se casser la tête, mets ta requête SQL dans une procédure RPGLE, et appelle cette procédure dans un CLLE.

[Nombre pi]

A moins que je fasse erreur (je ne pratique plus depuis longtemps), QMQRY ne te permettra pas de récupérer une variable.

Franchement il ne faut pas se casser la tête, mets ta requête SQL dans une procédure RPGLE, et appelle cette procédure dans un CLLE.

Désolé mais je ne parle pas RPGLE.
Y a t-il moyen de le faire avec CL ?

[m4k-Hurrican]

Non, comme indiqué précédemment ce n'est pas possible.

Le RPGLE n'est pas complexe, surtout si tu le limites à des accès SQL. Tu devrais vraiment prendre le temps de te pencher dessus.

[larry57]

Bonjour,

Pour ma part, je ne fait plus de CL, si j'ai des commandes à exécuter, j'utilise l'API QCMDEXC.
Faire un RPGLE ou SQLRPGLE n'est pas compliqué du tout, le faire en CL, un retour en arrière.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 * exécution de commandes                                       
D StdCmd          S            500A                             
D StdLen          S             15P 5                           
D Execute         PR                  ExtPgm('QCMDEXC')         
D     CmdStr                          Like(StdCmd)              
D                                     Options(*VarSize)         
D                                     Const                     
D     CmdStrLen                       Like(StdLen) Const        
D var1            S                   Like(StdCmd)              
D var2            S                   Like(stdLen)              
D                                     Inz(%size(var1))

et ça s'exécude comme ça :

Code :

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

1
2
var1 ='CLRPFM FILE(MALIB/MONFICHIER)';     
execute(var1:var2);

Pour un sql en sqlrpgle :

Code :

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

1
2
3
 exec sql                                                        
  select * into :MABASE from MONFIC where MAZONE= :MAZONE 
  fetch first row only;

Rien de bien compliqué.

Larry57