Discussion :

[nourdine8]

Bonjour,

je viens d'écrire un CL dans lequel j'exécute une requête SQL via QUERY MANAGER par la commande STRQMQRY.

SELECT
ALL CDSOC, CDQTEINV, CDPRIINV
FROM TSOCIETE T01
WHERE CDSOC = &WCDSOC

Est-il possible de récupérer les données en sortie de la requête (CDQTEINV et CDPRIINV) afin de faire un test sur ces dernières ? Si oui merci de m'indiquer la marche à suivre.

[Mercure]

Il faut que le record set résultant du SELECT soit déposé quelque part, ici dans un fichier.
Marche à suivre
1/ Dans le fichier source QQMQRYSRC, remplacer le contenu du membre concerné par

Code :

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

1
2
3
4
5
6
7
DELETE FROM MABIB/MATABLE;
CREATE TABLE MABIB/MATABLE AS (
SELECT
ALL CDSOC, CDQTEINV, CDPRIINV
FROM TSOCIETE T01
WHERE CDSOC = &WCDSOC )
WITH DATA;

2/ Recompiler ce membre avec CRTQMQRY.

3/ Pour récupérer le contenu du fichier MATABLE, dans le CL faire

Code :

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

1
2
3
DCLF MABIB/MATABLE
STRQMQRY ...
RCVF

[nourdine8]

Bonjour Mercure,

merci pour ta réponse, malheureusement j'ai un problème lors de l'éxécution de la requête :
Message . . . . : La commande RUN QUERY a échoué avec SQLCODE -104

Voici la requête :

DELETE FROM DBCAPINT19/TSOCNEI;
CREATE TABLE DBCAPINT19/TSOCNEI AS (
SELECT
ALL CDSOC, CDQTEINV, CDPRIINV
FROM DBCAPINT19/TSOCIETE T01
WHERE CDSOC = &WCDSOC )
WITH DATA;

[Mercure]

Mettre le delete en commentaire la première fois, puis retirer les tirets du commentaire ensuite.

-- DELETE FROM DBCAPINT19/TSOCNEI;

[nourdine8]

Le fichier existe, il a été créé par la commande :

CRTPF FILE(DBCAPINT19/TSOCNEI) SRCFILE(DEVSRC/QDDSSRC) SRCMBR(SOCNEI) +
IGCDTA(*NO) OPTION(*EVENTF) SIZE(250000 15000 10)

[Mercure]

Coller ici le message correspondant au MSGID SQL0104.
Pour y accéder, faire tourner la requête puis faire F10 pour voir la joblog et les messages d'erreur.