Discussion :

[L6N2000]

Bonjour,

Je réalise une sélection avec uniquement la clause WHERE qui change en fonction des informations saisies dans un écran. Ce qui me donne 22 possibilités de requêtes différentes aussi j'aimerai paramétrer cette requête or je travaille en RPG III et la requête fait plus de 256 caractères :

texte de la requête non paramétrée:
C/EXEC SQL
C+ DECLARE CURSOR1 CURSOR FOR
C+ SELECT
C+ A.ENRPG,
C+ A.RTOOL, VALUE(B.ITNBR,' '), VALUE(C.ITDSC,' '),
C+ A.WKCTR, A.JJDPG, A.MMDPG,
C+ A.AADPG, A.JJRPG, A.MMRPG,
C+ A.AARPG, A.STPGM, A.USPGM,
C+ VALUE(C.DNN,' '), VALUE(C.UDN,' '), VALUE(C.ENGNO,' '),
C+ VALUE(C.UUCBIM,' '),VALUE(B.OPSEQ,' '),VALUE(B.OPDSC,' ')
C+ FROM M6PGAMP A
C+ LEFT OUTER JOIN ROUTNG B
C+ ON A.RTOOL = B.RTOOL AND A.WKCTR = B.WKCTR
C+ LEFT OUTER JOIN ITEMASA C
C+ ON B.ITNBR = C.ITNBR
C+ WHERE
C+ A.WKCTR=:WKCTRE
C+ ORDER BY
C+ A.ENRPG DESC
C/END-EXEC

Tentative de paramétrage de la requête :
Pour cela, j’ai créé un tableau en carte E avec le texte de la requête
E TSQL 1 5 70

Et une DS en carte I :
IDSSQL DS
I 1 70 DSSQL1
I 71 140 DSSQL2
I 141 210 DSSQL3
I 211 280 DSSQL4
I 281 350 DSSQL5
I 351 420 DSSQL6

Ce qui donne :
C MOVE *BLANKS DSSQL
C MOVELTSQL,1 DSSQL1 P
C MOVELTSQL,2 DSSQL2 P
C MOVELTSQL,3 DSSQL3 P
C MOVELTSQL,4 DSSQL4 P
C MOVELTSQL,5 DSSQL5 P
C/EXEC SQL
C+ PREPARE SQLSRC FROM :DSSQL
C/END-EXEC
C/EXEC SQL
C+ DECLARE CURSOR200 CURSOR FOR SQLSRC
C/END-EXEC

Ce qui donne l’erreur de compilation :
SQL0312 30 996 Position 30 Variable DSSQL non définie ou non utilisable.

Comment puis-je préparer la requête ?

Y a t’il quelqu’un qui saurait m’aider ?

[Mercure]

1/ Cette pseudo instruction SQL (Declare ...) n'est pas une instruction SQL dynamique, tu ne fais que lui passer une variable (WKCTRE ) au niveau du WHERE qui provient d'une saisie. Tu peux donc écrire directement cette instruction comme suit dans le code de ton programme.

Code :

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

1
2
3
4
5
6
7
8
9
 
C/EXEC SQL
C+ DECLARE CURSOR1 CURSOR FOR 
C+ ... 
C+ WHERE
C+ A.WKCTR=:WKCTRE 
C+ ...
C+ A.ENRPG DESC 
/END-EXEC

Tu n'as pas besoin de tableau ou de zone de travail pour le faire.

2/ Convertis déjà ton RPG III archaïque en RPG IV avec la commande CVTRPGSRC et tu seras bien plus à l'aise pour coder. Plus de contrainte à la noix des 256 caractères, et bien d'autres choses encore bien plus agréables...

[L6N2000]

Bonjour,

proposition 1- c'est celle que j'avais mise en oeuvre, mais qui ne me convenait pas car j'avais 22 requêtes avec uniquement la clause where qui changeait

proposition 2- je me suis lancée : j'ai converti le source et l'ai modifié. Maintenant que je ne récupère plus rien dans la liste résultat, j'aimerai débuger ce programme en SQLRPGLE !

j'ai ajouté en carte h:
HOPTION (*srcstmt: *nodebugio)
HDFTACTGRP (*no)

compilé avec l'option 14 et le paramètre DBGVIEW à *SOURCE

comment lancer le débug ? ce programme attend des paramètres et j'aimerai appeler le CL et débuger le SQLRPGLE ?

D'avance merci pour votre aide

[K2R400]

Tu tapes STRDBG avec le nom de ton SQLRPGLE.
Tu poses un point d'arrêt avec F6 ou tu veux et tu sors.
tu lances ton CLP il va s'arrêter à ton point d'arrêt.

[L6N2000]

Merci

[Mercure]

proposition 1- c'est celle que j'avais mise en oeuvre, mais qui ne me convenait pas car j'avais 22 requêtes avec uniquement la clause where qui changeait

Et bien, justement ! Si ce n'est que le prédicat WHERE qui change, je ne vois pas la raison de faire "du" SQL dynamique bien plus coûteux que le SQL statique.

proposition 2- je me suis lancée...

j'ai ajouté en carte h:
HOPTION (*srcstmt: *nodebugio)
HDFTACTGRP (*no)

compilé avec l'option 14 et le paramètre DBGVIEW à *SOURCE

Bravo, tu as très bien fait ! Tu vas voir, tu ne vas plus vouloir revenir au RPG III