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