Discussion :

[fandreoli]

Bonjour à tous,

je m'arrache les cheveux sur ce problème :

un programme en SQLRPGLE qui lit un Logique Joint et remplis un fichier :

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
exec sql set option closqlcsr = *endmod,
         COMMIT = *NONE,  alwcpydta = *yes;
       exec sql delete from TRSFOUR;
       exec sql declare c1 cursor for select * from TRSFOURL2
                where  xa150 > 0
                and xa026 = '01235' order by xa149;
       exec sql open c1;
B1     read TRSFOURL2R;
       *INlr = %EOF;
       DOW *inlr = *off;
       exec sql fetch next from c1 into :wrkf;
       exec sql insert into TRSFOUR (XA008, XA026, XA149,
        XA150, XA003, XA013, TPSNUTI) values (:wrkf.XA008, :wrkf.XA026,
        :wrkf.XA149, :wrkf.XA150, :wrkf.XA003, :wrkf.XA013, 0);
B1       read TRSFOURL2R;
         *INlr = %EOF;
          ENDDO;
       exec sql close c1;
         *inlr = *on;

le soucis est que la requête contenue dans le curseur ne me renvoi pas les bonnes données, alors que si je la tape directement j'obtiens le résultat attendu...
mais pourquoi???????

merci de vos réponses

[larry57]

Bonjour,

Tu ne peux pas faire de read sur ton sql, il faut affecter les données via un fetch.
exec sql fetch next from c1 into :wrkf;
dow sqlCod = *Zero;

exec sql fetch next from c1 into :wrkf;
Enddo;

Revoie la structure de ton programme et vire le *inlr... laisse le en fin de programme.

LArry57