oracle利用游标 往表中批量插入数据

declare

cursor c1 is select fid from T_DEV_Informationtable;

fid T_DEV_Informationtable.fid%Type;

begin

open c1;

loop

fetch c1 into fid ;

exit when c1%notfound;

 insert into T_DEV_MaintenanceSingles (FNUMBER, FSIMPLENAME, FID, FCREATORID, FCREATETIME, FLASTUPDATEUSERID, FLASTUPDATETIME, FCONTROLUNITID, FUSERID, FTIMES, FSCENE, FINSTEAD, FMEND, FSYSTEM, FRESTORE, FOTHER, FNOTSETTLE, FOTHER2, FNETWORKADMINID, FYES, FNO,
FGRADES, FSPECIAL, FSERIOUS, FMALFUNCTION, FSPLENDID, FSPLENDID1, FALLRIGHT, FALLRIGHT1, FSAMEAS, FSAMEAS1, FMISTAKE, FMISTAKE1, FUSERCZID, FUSERJY, FREMARK, FUSERTIME, FAUDITUSERID, FAUDITTIME, FIFAUDIT, FDEVICEID, FSETTLES, FUSERS, FNETADMIN, FCOMPUTER,
FRETICLE, FPRINTER, FPHONE, FELECTROGRAPH, FOTHERS, FIFADUIT, FNAME_L1, FNAME_L2, FNAME_L3, FDESCRIPTION_L1, FDESCRIPTION_L2, FDESCRIPTION_L3)

values ('', '',newbosid('6DA930F8'), 's0f3WWzXTj6m6QzvQUqNMxO33n8=', '02-JAN-14 04.08.20.000000 PM', 'Fh1oISwiTUK1U0+vd9F60xO33n8=', '09-NOV-13 08.52.40.000000 AM', '00000000-0000-0000-0000-000000000000CCE7AED4', '', '02-JAN-14 04.08.20.000000 PM', 1, 0, 0,
0, 1, 0, 0, 0, '', 1, 0, 0, 1, 0, 送邮件报错               清, 0, 1, 1, 0, 0, 0, 0, 0, 'CKePrQESEADgAZPQwKgCZxO33n8=', '', '', '18-MAY-11 12.00.00.000000 AM', 'Fh1oISwiTUK1U0+vd9F60xO33n8=', '09-NOV-13 08.54.22.778000 AM', 1, fid, 1, ', ' , 1, 0, 0, 0, 0, '', 0,
'', '', '', '', '', '');

end loop;

close c1;

commit;

end;