ORACLE游标

declare
 v_n_biz_id  number;
cursor mycur is
select  * from bkt20090312info  a ;
begin
for bkt in mycur loop
--dbms_output.put_line('编号:'||person.N_RECID);

insert into tb_bkt_biz_info
  (n_recid, d_create_time,v_biz_code, v_biz_name, v_biz_addr, v_biz_state, v_rel_phone, n_contract_id, n_client_id, v_addr_zhb, v_whxk_cert, v_zdz_cert, v_zdz_addr, v_yyzz_cert, v_yyzz_addr, v_yyzz_compno, v_yyzz_tax_no, v_yyzz_org_code, v_area_code, d_biz_start, v_box, v_awning, v_awning_note, v_note, n_equipment_id, v_biz_start_flag, v_hall, v_electric, v_yyzz_ds_no, n_trans_id, v_sub_area, v_owner_type, n_addin_co_name, n_org_id, v_mobile, n_publish_site, v_name_sim, v_name_tran, v_app_code)
values
 (sq_bkt_biz_info.nextval, sysdate, bkt.经营编号, bkt.报亭名称, bkt.地址, '1', bkt.电话, null, null, bkt.综合办地址, bkt.文化许可证, bkt.占道证号码, bkt.占道证地址, bkt.工商营业执照注册号, bkt.营业执照地址, bkt.税务登记电脑号, bkt.税务登记证号, null, bkt.所属区域, bkt.开业时间, bkt.是否有报箱, bkt.是否有遮阳蓬, bkt.遮阳蓬情况, bkt.备注, null, bkt.开业时间, bkt.是否有亭, bkt.是否有电, bkt.税务登记证号,null, bkt.所属片区, bkt.是否加盟, bkt.加盟公司名称, bkt.管理部门, null, null, null, null, null);
  select  sq_bkt_biz_info.currval into v_n_biz_id from dual;
  dbms_output.put_line('编号:'||v_n_biz_id);

end loop;
end;
/