declare
cursor c_sb031 is
select * from ucnsp.txdsb031;
sb031 c_sb031%rowtype;
procedure p010 is
begin
INSERT INTO TXDSB031 (LNG, CNTY, FLD, KDID, KDDET, MSGCOMT, SPURCOMT, TXEMP, TXDAT, TXTM)
VALUES (
sb031.LNG, sb031.CNTY, sb031.FLD, sb031.KDID, sb031.KDDET, sb031.MSGCOMT, sb031.SPURCOMT, sb031.TXEMP, sb031.TXDAT, sb031.TXTM
);
exception
when dup_val_on_index then
null;
end p010;
begin
open c_sb031;
loop
fetch c_sb031 into sb031;
exit when c_sb031%notfound;
p010;
end loop;
close c_sb031;
end;
cursor c_sb031 is
select * from ucnsp.txdsb031;
sb031 c_sb031%rowtype;
procedure p010 is
begin
INSERT INTO TXDSB031 (LNG, CNTY, FLD, KDID, KDDET, MSGCOMT, SPURCOMT, TXEMP, TXDAT, TXTM)
VALUES (
sb031.LNG, sb031.CNTY, sb031.FLD, sb031.KDID, sb031.KDDET, sb031.MSGCOMT, sb031.SPURCOMT, sb031.TXEMP, sb031.TXDAT, sb031.TXTM
);
exception
when dup_val_on_index then
null;
end p010;
begin
open c_sb031;
loop
fetch c_sb031 into sb031;
exit when c_sb031%notfound;
p010;
end loop;
close c_sb031;
end;