Discussion :

[pwrdwnsys]

Bonjour à tous.

Dans un SQLRPGLE, je cherche à :

1. déclarer un curseur dans lequel il y a une jointure sur 2 tables avec sélection de tous les champs pour chacune des tables
2. faire un fetch du curseur dans une(des?) variable(s) externe(s) contenant les champs des deux tables

Exemple de source :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
     h decedit  ( '0,' )
     h datfmt   ( *iso )
     h datedit  ( *dmy.)
     h timfmt   ( *iso )
     h debug
     h option   ( *nodebugio :
     h            *srcstmt )

     d dpllot...
     d               e ds                  extname( dpllot )
     d                                     qualified
     d                                     inz
     d                                     template

     d dplvrs...
     d               e ds                  extname( dplvrs )
     d                                     qualified
     d                                     inz
     d                                     template

     d LenregFetch...
     d                 ds                  qualified
     d                                     dim( 10 )
     d  dsdplvrs                           likeds( dplvrs )
     d  dsdpllot                           likeds( dpllot )

      /free

       exec sql
         declare c1 insensitive no scroll cursor without return for
           select v.*,
                  l.*
             from dplvrs v inner
             join dpllot l on v.idlot = l.id
             order by numvrs
             for read only
             optimize for 10 rows ;

       exec sql
         open c1 ;

       exec sql
         fetch next from c1 for 10 rows into :lenregfetch ;

       exec sql
         close c1 ;

       *inlr = *on ;
       return ;

      /end-free

Le pré-compilateur SQL me sert cette erreur :
SQL5011 30 43 Position 46 Le tableau de structure hôte LENREGFETCH n'est pas défini ou est inutilisable.

Actuellement, ma seule piste est de créer une vue afin d'avoir une définition de DS externe contenant les deux formats, mais je ne trouve pas cela très "propre".

Quelqu'un sait-il comment je peux faire pour résoudre mon problème ?

Merci de vos réponses.

[Mercure]

Je pense que tu pourrais "fetcher" zone à zone dans la DS LENREGFETCH mais tu perdrais l'avantage du fetch multiple. Néanmoins, la solution de la vue me paraît correcte. Pourquoi serait-elle "sale" ?

[pwrdwnsys]

Néanmoins, la solution de la vue me paraît correcte. Pourquoi serait-elle "sale" ?

La solution de la vue fonctionne effectivement très bien (c'est ce que j'ai fait en attendant, pour avancer).
Le côté "sale", c'est que je crée un objet uniquement pour pouvoir compiler mon programme... Car je ne suis pas obligé de l'utiliser pour faire mes requêtes.

[Mercure]

Sans garantie, j'essaierais comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
     d EnregFetch...
     d                 ds                  qualified
     d                                     dim( 10 )
     d  dsdplvrs                           likeds( dplvrs )
     d  dsdpllot                           likeds( dpllot )
     d                                     template

puis

     d LenregFetch...
     d                 ds                  qualified
     d                                     dim( 10 )
     d  dsdplvrsllot                       likeds( EnregFetch )

[pwrdwnsys]

Ça ne fonctionne pas . Le message est le même.
Mais finalement, je pense que la solution de la vue est satisfaisante, car ce n'est pas comme si c'était un index à maintenir à chaque mouvement sur la table, ça n'a donc pas d'impact sur les performances...
Merci de tes réponses.