create or replace procedure cuidong_insert_records(p_ny in varchar2) is
qystr varchar2(260) := '大慶,吉林,遼河,冀東,江蘇,勝利,華東分公司,儲(chǔ)氣庫(kù), 中原,河南,中海油,海南,華北,江漢,浙江勘探,'; qy mk_csyb_xbsc.qy%type; qy_position number(2); qy_loop number(2) := 1; dwdmstr varchar2(300) :='ykgfgs,ekgfgs,skgfgs,jdfwzx,xwwhzx,tbwgs,ghshgs,gsshgs, jsjdzx,syjlzx,hse,gcjl,txgs,gsgs,js,sd,kygs,'; temp_dwdmstr varchar2(300); dwdm mk_csyb_xbsc.dwdm%type; dwdm_position number(2); dwdm_loop number(2) := 1; do_count number(2) := 0;begin loop do_count := do_count + 1; qy_position := instr(qystr,','); qy := substr(qystr,1,qy_position-1); qystr := substr(qystr,qy_position+1,length(qystr)); dbms_output.put_line(do_count||' '||qy_position||' '||qy||' '||p_ny); dwdm_loop := 1; temp_dwdmstr := dwdmstr; loop dwdm_position := instr(temp_dwdmstr,','); dwdm := substr(temp_dwdmstr,1,dwdm_position-1); temp_dwdmstr := substr(temp_dwdmstr,dwdm_position+1,length(temp_dwdmstr)); dbms_output.put_line(' '||dwdm_position||' '||dwdm||' '||p_ny); insert into mk_csyb_dbsc( ny, qy, lrrq, lrry, zbdw, dwdm ) values(p_ny,qy,date'2005-04-05','東部市場(chǎng)錄入','市場(chǎng)開發(fā)部',dwdm); dwdm_loop := dwdm_loop + 1; if dwdm_loop = 18 then exit; end if; end loop; qy_loop := qy_loop + 1; if qy_loop = 16 then exit; end if; end loop; commit; exception when others then rollback;end cuidong_insert_records;
