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 |
Partager