存储过程实例1.docx
- 文档编号:4994486
- 上传时间:2022-12-12
- 格式:DOCX
- 页数:44
- 大小:23.83KB
存储过程实例1.docx
《存储过程实例1.docx》由会员分享,可在线阅读,更多相关《存储过程实例1.docx(44页珍藏版)》请在冰豆网上搜索。
存储过程实例1
CREATEORREPLACEPROCEDURETOOLD_T_JZZYW_YX_ALLIS
/*****************************************
功能:
把新市库中的t_jzzyw_yx\t_jzzxx_yx\t_jzzyw_qtxx_yx
增量转换到旧市库的T_JZZ_YW,T_JZZ_XX数据;
时间:
2013-02-25
*****************************************/
V_ERRORSVARCHAR2(200);
V_NVARCHAR2
(2);
C_TABLE_NAMECONSTANTVARCHAR2(32):
='T_JZZYW_YX';
BEGIN
BEGIN
/***************************
判断新市库到旧市库的链路是否联通
如果不通,则退出当次转换
***************************/
SELECT*INTOV_NFROMDUAL@KYXX;
EXCEPTION
WHENOTHERSTHEN
V_ERRORS:
=SQLERRM;
INSERTINTOT_ERROR_LOG_TOOLD
(TYPE,ERRORMSG,XRSJ,YWID)
VALUES
(C_TABLE_NAME,V_ERRORS,SYSDATE,'链路不通,退出转换');
COMMIT;
RETURN;
END;
/*\*更新XZQ字段*\
UPDATEKY_T_JZZYW_YXYX
SETXZQ=
(SELECTT3.XZQDMXZQ
FROMT_JZZXX_YXT,T_FWXXT1,T_FWXX_MPXXT2,V_XZQH_ZZJGT3
WHERET.FWID=T1.ID
ANDT1.MPDM=T2.DM
ANDT2.XZQHDM=T3.DM
ANDJZZYWID=YX.ID);
COMMIT;*/
FORIIN(SELECTA.IDASID,
A.DJBIDASDJBID,
A.RYIDASRYID,
C.DQYWHJASDQYWHJ,
C.DQYWZTASDQYWZT,
A.SLLBASSLLB,
A.SLYYASSLYY,
A.SLRQASSLRQ,
A.SLDWDMASSLDWDM,
A.SLRASSLR,
A.SFKSASSFKS,
A.SFDYLQPZASSFDYLQPZ,
A.DYLQPZRQASDYLQPZRQ,
A.SFYJFASSFYJF,
A.HZBHASHZBH,
A.HZFFRQASHZFFRQ,
A.HZFFRASHZFFR,
A.SFSHASSFSH,
A.SHSFTGASSHSFTG,
A.SHBTGYYASSHBTGYY,
C.SHRASSHR,
A.SHRQASSHRQ,
A.SHDWASSHDW,
A.SFZZASSFZZ,
C.ZZDWDMASZZDWDM,
A.ZZRQASZZRQ,
A.SFCXZZASSFCXZZ,
A.BLSFFFASBLSFFF,
A.BLFFPHASBLFFPH,
A.BLFFDWDMASBLFFDWDM,
A.BLFFRASBLFFR,
A.BLFFRQASBLFFRQ,
A.JSDWDMASJSDWDM,
A.JSRASJSR,
A.JSRQASJSRQ,
A.SFFFASSFFF,
C.FFRASFFR,
A.FFDWDMASFFDWDM,
A.FFRQASFFRQ,
B.XMASLQR,
A.LQRQASLQRQ,
A.CXLXASCXLX,
A.CXNRASCXNR,
A.CXDWASCXDW,
A.CXRASCXR,
A.CXRQASCXRQ,
A.BZASBZ,
A.SJCSPHASSJCSPH,
A.CJRASCJR,
A.CJSJASCJSJ,
A.GXRASGXR,
A.GXSJASGXSJ,
A.SFTHASSFTH,
A.SFZZYWASSFZZYW,
A.SFDCLASSFDCL,
A.SFCXASSFCX,
A.ZZSFCGASZZSFCG,
A.ZZSBYYASZZSBYY,
A.SFDZZASSFDZZ,
A.DZZRQASDZZRQ,
A.ZZPHASZZPH,
A.CXZZCSASCXZZCS,
A.SLBHASSLBH,
B.GMSFHMASLQRSFZH,
A.KZZD1ASKZZD1,
A.KZZD2ASKZZD2,
A.KZZD3ASKZZD3,
A.KZZD4ASKZZD4,
A.KZZD5ASKZZD5,
A.KZZD6ASKZZD6,
C.FLAGASFLAG,
C.OPERATIONASOPERATION,
C.XZQASXZQ
FROMKY_T_JZZYW_YXC,T_JZZXX_YXB,T_JZZYW_YXA
WHEREA.ID=B.JZZYWID
ANDA.ID=C.ID
/*ANDXZQISNOTNULL*/
ANDFLAGISNULL)LOOP
/***************************
根据不同的操作类型,
应用到新市库上
***************************/
BEGIN
IFI.OPERATION='DE'THEN
/*DELETEFROMT_JZZ_YW@KYXXWHEREID=I.ID;
DELETEFROMT_JZZ_XX@KYXXWHEREID=I.ID;*/
NULL;
ELSIFI.OPERATION='IN'THEN
/*当t_jzzyw_yx的shsftg不为空且dqywhj为03、04、05、07、08、09、10时,
如果id不存在于t_jzz_yw_sh,就新增一条记录到t_jzz_yw_sh,
如果存在,则修改*/
IFI.SHRISNOTNULLAND
I.DQYWHJIN('03','04'/*,'05','07','08','09','10'*/)THEN
INSERTINTOT_JZZ_YW_SH@KYXX
(ID,SHR,SHDW,SHRQ,SHJG,SHBTGYY,CJR,CJSJ,ZHXGR,ZHXGSJ)
SELECTID,SHR,SHDW,SHRQ,SHJG,SHBTGYY,CJR,CJSJ,GXR,GXSJ
FROMT_JZZYW_SH
WHEREID=I.KZZD2;
ENDIF;
/*当t_jzzyw_yx的zzdwdm不为空且dqywhj为07、08、09、10时,
如果id不存在于t_jzz_yw_zzxx,就新增一条记录到t_jzz_yw_zzxx,
如果存在,则修改该记录*/
IFI.ZZDWDMISNOTNULLAND
I.DQYWHJIN('07','08','09'/*,'10'*/)THEN
--V_ZZXXID:
='ZZXX'||ID_JZZ.NEXTVAL;
INSERTINTOT_JZZ_YW_ZZXX@KYXX
(ID,ZZDW,ZZRQ,ZZSFCG,ZZCWLXMC,CJR,CJSJ,ZHXGR,ZHXGSJ)
SELECTID,
ZZDW,
ZZRQ,
ZZSFCG,
ZZCWLXMC,
CJR,
CJSJ,
ZHXGR,
ZHXGSJ
FROMT_JZZ_YW_ZZXX
WHEREID=I.KZZD4;
ENDIF;
/*当t_jzzyw_yx的FFR不为空且dqywhj为10时,
新增一条记录到t_jzz_yw_ff*/
IFI.FFRISNOTNULLANDI.DQYWHJ='10'THEN
--V_FFID:
='FFID'||ID_JZZ.NEXTVAL;
INSERTINTOT_JZZ_YW_FF@KYXX
(ID,FFR,FFDW,FFSJ,LQRXM,LQRSFZH,CJR,CJSJ,ZHXGR,ZHXGSJ)
VALUES
(I.KZZD3,
I.FFR,
I.FFDWDM,
I.FFRQ,
I.LQR,
I.LQRSFZH,
I.CJR,
I.CJSJ,
I.GXR,
I.GXSJ);
ENDIF;
INSERTINTOT_JZZ_YW@KYXX
(ID,
RYYWLSH,
RYID,
YWHJ,
DQYWZT,
SLLB,
SLYY,
SLRQ,
SLDW,
SLR,
SFKS,
SFDYLQPZ,
DYLQPZSJ,
SFYJF,
SFZXZZ,
CXRQ,
CZZZCS,
SLBH,
CJR,
CJSJ,
ZHXGR,
ZHXGSJ,
JZZBH,
XM,
ZJHM,
XB,
CSRQ,
MZ,
DZ,
ZZDZXZ,
HZBH,
JZZYXQX,
JZZYXQSRQ,
JZZYXJZRQ,
BZRQ,
JZZXPH,
SFSCSB,
SHENG,
SHI,
FWID,
XIAN,
ZYSCBZRQ,
ZALFFJE,
GBFJE,
SHIJB,
XZQ,
JZ,
FWZ,
JWH,
PQ,
GAFJ,
PCS,
JDDM,
MPDM,
CZWBH,
FWCSDZ,
DWDZ,
YDDH,
ZZSY,
DYHDZ,
ZZMM,
ZJXY,
WHCD,
QYBH,
XZ,
JTGJ,
CPHM,
LSRQ,
HYZK,
JHRQ,
POXM,
POZJLX,
POZJHM,
SFTZ,
JSZLX,
JSZHM,
YZRQ,
JSZYXRQ,
BZ,
JYZK,
HDQK,
CZHKSZD,
QH,
NANGS,
NUGS,
SFCB,
ZY,
PODZ,
SG,
RZRQ,
FJH,
ZZCS,
JZFS,
TBR,
TBRQ,
DWDH,
ZZID,
SHID,
FFID,
ZZXXID,
JCID,
DBID,
HJDH,
DQYWHJ)
SELECTA.ID,
A.DJBID,
A.RYID,
A.DQYWHJ,
NVL(A.DQYWZT,'2')ASDQYWZT,
A.SLLB,
A.SLYY,
A.SLRQ,
t6.xzqmc||t6.jzmc||t6.fwzmc||t6.jwhmc||t6.cmxzmcSLDW,
A.SLR,
A.SFKS,
A.SFDYLQPZ,
A.DYLQPZRQ,
A.SFYJF,
A.SFCXZZ,
A.CXRQ,
A.CXZZCS,
A.SLBH,
A.CJR,
A.CJSJ,
A.GXR,
A.GXSJ,
A.SLBH,
B.XM,
B.GMSFHM,
B.XBDM,
B.CSRQ,
B.MZDM,
B.HJDZ,
B.JZDZ,
NVL(T.HZBH,T.BZ),
B.YXQX,
B.YXQSRQ,
B.YXJZRQ,
B.SLRQ,
B.XPH,
B.SFSCSB,
SUBSTR(B.GMSFHM,0,2),
SUBSTR(B.GMSFHM,0,4),
B.FWID,
B.HJQXDM,
B.ZYSCBZRQ,
B.ZALFFJE,
B.GBFJE,
'4406',
T4.XZQDMXZQ,
T4.JZDMJZ,
T4.FWZDMFWZ,
T4.JWHDMJWH,
T4.CMXZDMPQ,
T5.GAFJ,
T2.PCS,
T2.JLXDMJDDM,
T1.MPDM,
T1.DABHCZWBH,
C.FWCS,
C.FWCSDZ,
C.YDDH,
NVL(C.ZZSY,'99'),
NVL(D.DYHDZ,E.DYHDZ),
COALESCE(D.ZZMM,E.ZZMM,'13'),
NVL(D.ZJXY,E.ZJXY),
COALESCE(D.WHCD,E.WHCD,'80'),
NVL(D.DWID,E.DWID),
NVL(D.HJXZ,E.HJXZ),
NVL(D.JTGJ,'03')ASJTGJ,
NVL(D.CPHM,E.CPHM),
COALESCE(D.LSRQ,E.LSRQ,D.TBSJ,SYSDATE),
COALESCE(D.HYZK,E.HYZK,'1'),
NVL(D.JHRQ,E.JHRQ),
NVL(D.POXM,E.POXM),
NVL(D.POZJLX,E.POZJLX),
NVL(D.POZJHM,E.POZJHM),
NVL(D.SFTZ,E.SFTZ),
NVL(D.JSZLX,E.JSZLX),
NVL(D.JSZHM,E.JSZHM),
NVL(D.YZRQ,E.YZRQ),
NVL(D.JSZYXRQ,E.JSZYXRQ),
NVL(D.BZ,E.BZ),
COALESCE(D.JYZK,E.JYZK,'2'),
NVL(D.HDQK,E.HDQK),
NVL(D.CZHKSZD,E.CZHKSZD),
NVL(D.HJQH,E.HJQH),
NVL(D.NANGS,E.NANGS),
NVL(D.NUGS,E.NUGS),
NVL(D.SFCB,E.SFCB),
NVL(D.ZY,E.ZY),
NVL(D.POHJDZ,E.POHJDZ),
NVL(D.SG,E.SG),
NVL(D.RZRQ,E.RZRQ),
NVL(D.FJH,E.FJH),
NVL(D.ZZCS,'无'),
COALESCE(D.JZFS,E.JZFS,'05'),
NULL,
NULL,
NULL,
NULL,
I.KZZD2,
I.KZZD3,
I.KZZD4,
NULL,
NULL,
NULL,
(CASE
WHENA.DQYWHJIN('01','02')THEN
'1'
WHENA.DQYWHJIN('03','04','05','07','08','09')THEN
'2'
WHENA.DQYWHJ='06'THEN
'8'
WHENA.DQYWHJ='10'THEN
'7'
END)DQYWHJ
FROMT_JZZYW_YXA,
T_JZZXX_YXB,
T_JZZYW_QTXX_YXC,
T_LDRK_DJBD,
T_LDRK_DJB_ZXQKE,
T_LDRK_XPT,
T_FWXXT1,
T_FWXX_MPXXT2,
T_FWXX_JLXT3,
V_XZQH_ZZJGT4,
T_XZQH_QXT5,
V_XZQH_ZZJGt6
WHEREA.ID=B.JZZYWID
ANDA.ID=C.JZZYWID
ANDA.DJBID=D.ID(+)
ANDA.DJBID=E.ID(+)
ANDT.ID(+)=B.XPID
ANDB.FWID=T1.ID
ANDT1.MPDM=T2.DM
ANDT2.JLXDM=T3.DM
ANDT2.XZQHDM=T4.DM
ANDT4.XZQDM=T5.DM
ANDa.sldwdm=t6.dm
ANDA.ID=I.ID;
IFI.DQYWHJ='10'THEN
INSERTINTOT_JZZ_XX@KYXX
(ID,
RYID,
SLRQ,
SLDW,
SLR,
SLBH,
JZZBH,
ZZDW,
ZZRQ,
FFR,
FFDW,
FFSJ,
XM,
ZJHM,
XB,
CSRQ,
MZ,
DZ,
ZZDZXZ,
HZBH,
CJR,
CJSJ,
ZHXGR,
ZHXGSJ,
JZZYXQX,
JZZYXQSRQ,
JZZYXJZRQ,
BZRQ,
JZZXPH,
SFSCSB,
SHENG,
SHI,
JZZZT,
FWID,
XIAN,
ZYSCBZRQ,
SHIJB,
XZQ,
JZ,
FWZ,
JWH,
PQ,
GAFJ,
PCS,
JDDM,
MPDM,
CZWBH,
FWCSDZ,
DWDZ,
YDDH,
ZZSY,
DYHDZ,
ZZMM,
ZJXY,
WHCD,
QYBH,
XZ,
JTGJ,
CPHM,
LSRQ,
HYZK,
JHRQ,
POXM,
POZJLX,
POZJHM,
SFTZ,
JSZLX,
JSZHM,
YZRQ,
JSZYXRQ,
BZ,
JYZK,
HDQK,
CZHKSZD,
QH,
NANGS,
NUGS,
SFCB,
ZY,
PODZ,
SG,
RZRQ,
FJH,
ZZCS,
JZFS,
TBR,
TBRQ,
DWDH,
HJDH,
ZXBZ)
SELECTA.ID,
A.RYID,
A.SLRQ,
t6.xzqmc||t6.jzmc||t6.fwzmc||t6.jwhmc||t6.cmxzmcSLDW,
A.SLR,
A.SLBH,
A.SLBH,
A.ZZDWDM,
A.ZZRQ,
A.FFR,
A.FFDWDM,
A.FFRQ,
B.XM,
B.GMSFHM,
B.XBDM,
B.CSRQ,
B.MZDM,
B.HJDZ,
B.JZDZ,
NVL(T.HZBH,T.BZ),
B.CJR,
B.CJSJ,
B.GXR,
B.GXSJ,
B.YXQX,
B.YXQSRQ,
B.YXJZRQ,
B.SLRQ,
B.XPH,
B.SFSCSB,
SUBSTR(B.GMSFHM,0,2),
SUBSTR(B.GMSFHM,0,4),
B.JZZZT,
B.FWID,
B.HJQXDM,
B.ZYSCBZRQ,
'4406',
T4.XZQDM,
T4.JZDM,
T4.FWZDM,
T4.JWHDM,
T4.CMXZDMPQ,
T5.GAFJ,
T2.PCS,
T2.JLXDM,
T1.MPDM,
T1.DABH,
C.FWCS,
C.FWCSDZ,
C.YDDH,
NVL(C.ZZSY,'99'),
NVL(D.DYHDZ,E.DYHDZ),
COALESCE(D.ZZMM,E.ZZMM,'13'),
NVL(D.ZJXY,E.ZJXY),
COALESCE(D.WHCD,E.WHCD,'80'),
NVL(D.DWID,E.DWID),
NVL(D.HJXZ,E.HJXZ),
NVL(D.JTGJ,'03')ASJTGJ,
NVL(D.CPHM,E.CPHM),
COALESCE(D.LSRQ,E.LSRQ,D.TBSJ,SYSDATE),
COALESCE(D.HYZK,E.HYZK,'1'),
NVL(D.JHRQ,E.JHRQ),
NVL(D.POXM,E.POXM),
NVL(D.POZJLX,E.POZJLX),
NVL(D.POZJHM,E.POZJHM),
NVL(D.SFTZ,E.SFTZ),
NVL(D.JSZLX,E.JSZLX),
NVL(D.JSZHM,E.JSZHM),
NVL(D.YZRQ,E.YZRQ),
NVL(D.JSZYXRQ,E.JSZYXRQ),
NVL(D.BZ,E.BZ),
COALESCE(D.JYZK,E.JYZK,'2'),
NVL(D.HDQK,E.HDQK),
NVL(D.CZHKSZD,E.CZHKSZD),
NVL(D.HJQH,E.HJQH),
NVL(D.NANGS,E.NANGS),
NVL(D.NUGS,E.NUGS),
NVL(D.SFCB,E.SFCB),
NVL(D.ZY,E.ZY),
NVL(D.POHJDZ,E.POHJDZ),
NVL(D.SG,E.SG),
NVL(D.RZRQ,E.RZRQ),
NVL(D.FJH,E.FJH),
NVL(D.ZZCS,'无'),
COALESCE(D.JZFS,E.JZFS,'05'),
B.XM,
B.SLRQ,
NULL,
NULL,
NULL
FROMT_JZZYW_YXA,
T_JZZXX_YXB,
T_JZZYW_QTXX_YXC,
T_LDRK_DJBD,
T_LDRK_DJB_ZXQKE,
T_LDRK_XPT,
T_FWXXT1,
T_FWXX_MPXXT2,
T_FWXX_JLXT3,
V_XZQH_ZZJGT4,
T_XZQH_QXT5,
V_XZQH_ZZJGT6
WHEREA.ID=B.JZZYW
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 存储 过程 实例