Programme en sql sur as400 qui tourne mais

Version imprimable

bonjour,

je suis actuellement sur un programme en sqlrpgle qui tourne mais j'ai l'impression qu'il ne s'arrête jamais. ok j'ai 125000 lignes à updater, mais je dois l'arrêter à chaque fois car je le trouve terriblement long. Je ne vois pas pourquoi.
si une âme charitable passe sur mon post...

Code:

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
   D  wrkf           DS
     D  itnbr                        15A
     D  safty                        10P 3
     D  fxorq                        10P 3
     D  itnb                         15A
     D  nods                          3S 0
     D  minq                         10S 3
     D  maxq                         10S 3
     D  mulq                         10S 3
     D  shfc                          3S 3

      /FREE

       exec sql declare c1 cursor for
       select itnbr, safty, fxorq, itnb, nods, minq, maxq, mulq, shfc
        from mery01/itembl, mery01/itmpln
        where itnbr = itnb and ltcod = 'M' for fetch only;

       exec sql open c1;

       dow (1 = 1);

       exec sql fetch next from c1 into :wrkf.itnbr, :wrkf.safty, :wrkf.fxorq,
           :wrkf.itnb, :wrkf.nods, :wrkf.minq, :wrkf.maxq, :wrkf.mulq,
           :wrkf.shfc;


       exec sql update mrp_parav/mrp_itembl set safty = :wrkf.safty,
       fxorq = :wrkf.fxorq where current of c1;


       exec sql update mrp_parav/mrp_itmpln set nods = :wrkf.nods,
         minq = :wrkf.minq,maxq = :wrkf.maxq, mulq = :wrkf.mulq,
        shfc = :wrkf.shfc where current of c1;

       ENDDO;

       exec sql close c1;

         *inlr = *on;
      /end-free

merci

12/05/2016, 13h32
m4k-Hurrican

Bonjour

Dow 1 = 1 ?

Tu penses que ta boucle va se terminer ? ;)
12/05/2016, 15h12
fandreoli

oui je me suis rendu compte de mon erreur.

j'ai changé par dow not %eof() mais même résultat :(
12/05/2016, 16h45
larry57

bonjour,

tu dois faire un
dow sqlCod = *Zero;

pas de eof ou autre, tu fais du sql.

Larry57
12/05/2016, 16h47
larry57

Par ailleurs, pas besoin d'affecter les record de ton fetch si tu as une DS.

merci pour les conseils.

voila maintenant mon code :

Code:

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
 /FREE

       exec sql declare c1 cursor for
       select * from MRP_PARAV/MRP_L1;

       exec sql open c1;

       dow sqlcode = 0;

       exec sql fetch next from c1 into :wrkf;


       exec sql update amflib3/itembl set safty = 0,
       fxorq = 0 where current of c1;


       exec sql update amflib3/itmpln set nods = 0,
         minq = 0, maxq = 0, mulq = 0, shfc = 0
         where current of c1;

       ENDDO;

       exec sql close c1;

       exec sql commit;

         *inlr = *on;
      /end-free

et ça ne fonctionne toujours pas

Bonjour,

Les update "current of" ne peuvent pas marcher pour 2 raisons :
1) le curseur est spécifié en lecture seule (for fetch only)
2) la mise à jour n'est pas possible sur une jointure (même en indiquant " for update of" au lieu du "for fetch only")

tu dois faire des updates classiques avec un where utilisant les clés retournées par le curseur

d'autre part vu comme tu as construit ta boucle avec un dowhile, il te faudrait retester le sqlcode après le fetch :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 /FREE exec sql declare c1 cursor for select * from MRP_PARAV/MRP_L1; exec sql open c1; dow sqlcode = 0; exec sql fetch next from c1 into :wrkf; if sqlcode = 0; exec sql update amflib3/itembl set safty = 0, fxorq = 0 where......; exec sql update amflib3/itmpln set nods = 0, minq = 0, maxq = 0, mulq = 0, shfc = 0 where .....; endif; ENDDO; etc...
Bonne soirée