le forum IBM i

Bonjour,

Je cherche à récupérer le nom d'un fichier pour faire un update sur un enregistrement.
Ce nom doit être récupéré en faisant une recherche sur deux fichiers.

Le nom de la bibliothèque est passé en variable.

Quand je passe par cette méthode, cela fonctionne (mais je mets la bib en dure)

Code : Tout sélectionner

d wTABLE_NAME     s             20
exec sql                                                           
SELECT "TABLE_NAME"                                                
  into &#58;wTABLE_NAME                                                
  FROM ODCL/ARSSEG                                               
  WHERE AGID = &#40;SELECT AGID FROM ODCL/ARSAG WHERE NAME = &#58;E_Doc&#41;;

En utilisant cette solution, j'ai le message : Variable WTABLE_NAME non définie ou non utilisable.

Code : Tout sélectionner

d wTABLE_NAME     s             20
File1 = %trim&#40;E_Bib&#41;+ '/ARSSEG';                             
File2 = %trim&#40;E_Bib&#41;+ '/ARSAG';                              
Requete = 'select "TABLE_NAME" into &#58;wTABLE_NAME from ' +    
          %trim&#40;File1&#41; + ' WHERE AGID = &#40;SELECT AGID FROM ' +
          %trim&#40;File2&#41; + ' WHERE NAME = &#58;E_Doc&#41;';            
exec sql                                                     
 execute immediate &#58;requete;

En regardant le contenu de Requete, mes variables File1 et File2 ont bien les valeurs.

Code : Tout sélectionner

select "TABLE_NAME" into &#58;wTABLE_NAME from ODCL/ARSSEG WHERE 
AGID = &#40;SELECT AGID FROM ODCL/ARSAG WHERE NAME = &#58;E_Doc&#41;

Je ne comprends pas où je fais une erreur.

Merci d'avance pour votre aide.

Tu ne peux pas utiliser SQL dynamique avec SELECT INTO.
Donc, soit tu utilises SQL statique, soit un curseur, pour récupérer ta donnée.

Curseur

Code : Tout sélectionner

File1 = 'ARSSEG';                             
File2 = 'ARSAG';                             
Requete = 'select "TABLE_NAME" from ' + %trim&#40;E_Bib&#41;+ '/' + %trim&#40;File1&#41; +
' WHERE AGID = &#40;SELECT AGID FROM ' + %trim&#40;E_Bib&#41;+ '/' + %trim&#40;File2&#41; +
' WHERE NAME = ' + x'7D' + E_Doc + x'7D' + '&#41;'; // x'7D' = quote si E_Doc est alphanumérique

 exec sql  prepare sqlstm from &#58;Requete;              
 exec sql  declare c1 cursor for sqlstm; 
 exec sql  open c1;                                  
 exec sql  fetch from c1 into &#58;wTABLE_NAME; 
 exec sql  close c1;

Merci Philippe pour ces explications

le forum IBM i

PB avec sql et variable

PB avec sql et variable

Select Into

PB avec sql et variable