[PRO*C] Affecter résultat SQL à une structure

[nenekes]

Bonjour à tous,

j'ai défini une structure de fichier en working du style :

Code :

1
2
3
4
5
6
 
01  toto.
   05 wtoto pic x(5)
   05 wtata pic x
   05 wtiti pic 9(2)
   .....etc

et je vais chercher dans une table Oracle avec un curseur ces infos que je voudrais mettre dans cette structure ci-dessus....
Je pense que je peux faire simplement des move de zone à zone mais j'en ai une quarantaine... Existe-t-il une façon plus directe afin d'affecter mon résultat SQL dans ma structure en working please ??

Merci

[Mercure]

Pas sûr sous Oracle, mais j'essaierais un :

Code :

FETCH NEXT CURSEUR INTO :toto

[Peut-êtreUneRéponse]

Il suffit de récupérer tes SELECT dans la zone groupe (01 toto) de ta clause copy grâce à INTO:

Code :

1
2
3
4
5
6
 
EXEC SQL
  SELECT * INTO :toto
  FROM TABLE1
  WHERE blabla
END-EXEC

Attention, l'ordre des select doit être celui de ta clause copy.

.

[nenekes]

mais ouais, j aurais pas osé faire ca (encore fallait y penser ) mais si ca marche ce sera parfait

merci les gars

je teste et j reviens .....

[Mercure]

La clause

Code :

1
2
SELECT * INTO :toto 
...

peut fonctionner mais uniquement si une seule ligne est retournée par la requête. Dans le cas contraire, il faudra déclarer un curseur et procéder à la lecture des lignes par un FETCH séquentiel.
Ce fetch pourrait placer les lignes lues dans les même zones "toto" ou dans une zone de travail "toto" occursée, avec un occurs = nombre de lignes à lire.

[Peut-êtreUneRéponse]

Effectivement l'exemple que je citais est bien dans le cadre d'un fetch (DECLARE CURSOR, OPEN CURSOR, FETCH et CLOSE CURSOR) le MOVE se faisant après le FETCH.

.