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;