MyFirstPL/SQLProcedure
来源:互联网 发布:手机视频录制软件 编辑:程序博客网 时间:2024/05/22 10:37
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
createorreplaceprocedurecuidong_insert_records(p_nyinvarchar2)is
qystr varchar2(260):='大庆,吉林,辽河,冀东,江苏,胜利,华东分公司,储气库, 中原,河南,中海油,海南,华北,江汉,浙江勘探,'; 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_positionnumber(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); insertintoMK_CSYB_DBSC(NY,QY,LRRQ,LRRY,ZBDW,DWDM) values(p_ny,qy,date'2005-04-05','东部市场录入','市场开发部',dwdm); dwdm_loop:=dwdm_loop+1; ifdwdm_loop=18then exit; endif; endloop; qy_loop:=qy_loop+1; ifqy_loop=16then exit; endif; endloop; commit; exceptionwhenothersthen rollback;endcuidong_insert_records;
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
createorreplaceprocedurecuidong_insert_records(p_nyinvarchar2)is
qystr varchar2(260):='大庆,吉林,辽河,冀东,江苏,胜利,华东分公司,储气库, 中原,河南,中海油,海南,华北,江汉,浙江勘探,'; 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_positionnumber(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); insertintoMK_CSYB_DBSC(NY,QY,LRRQ,LRRY,ZBDW,DWDM) values(p_ny,qy,date'2005-04-05','东部市场录入','市场开发部',dwdm); dwdm_loop:=dwdm_loop+1; ifdwdm_loop=18then exit; endif; endloop; qy_loop:=qy_loop+1; ifqy_loop=16then exit; endif; endloop; commit; exceptionwhenothersthen rollback;endcuidong_insert_records;
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>