zabbix db 存储最佳实践

转载
mob64ca1401464d 2024-10-09 11:08:29
文章标签 zabbix db 存储最佳实践 DB2 SQL 360 金融 文章分类 运维
CREATE PROCEDURE KJZB.ZQINVEST_JT(out returnCode Integer,out 

errorMsg varchar(255)) 

LANGUAGE SQL 

BEGIN 

 declare sql_code integer default 0; 

 declare SQLSTATE char(5) default '00000'; 

 declare SQLCODE integer default 0; 

 declare sqlMsg varchar(200) default ''; 

 declare stmt varchar(1024); 


 declare vCurdate varchar(20); -- 当天日期 

 declare vCurYMd varchar(6); -- 当天所在的年月 

 declare vCurDay varchar(2) ; --所在天 

 declare maxday integer default 30; -- 每个月按30天算 

 declare fday integer; -- 实际天数 

 declare lastday integer; -- 到期日的天数 

 declare firstday integer; -- 购买月的天数 

 declare firstmonth integer; -- 购买的月份 

 declare lastmonth integer; -- 到期日的月份 

 declare firstyear integer; -- 购买日的年份 

 declare lastyear integer; -- 到期年份 

 declare disday integer; -- 间隔天数 

 declare dismonth integer; -- 间隔月份 

 declare disyear integer; -- 间隔年份 

 declare vLsh varchar(32); -- 流水号 

 declare vjgh varchar(8); -- 机构码 

 declare ywzh varchar(32); -- 业务帐号 

 declare vzh varchar(32); -- 投资账号 

 declare vJgbm varchar(8) default '32022300'; -- 投资帐号对应的机构(默认为清算中心) 

 declare vDfJgbm varchar(8); -- 对方机构号 

 declare gmrq varchar(8); -- 购买日期 

 declare dqrq varchar(8); -- 到期日期 

 declare zqpz varchar(1); -- 债券品种 

 declare hth varchar(16); -- 合同号 

 declare fxfs varchar(1); -- 付息方式 

 declare ywlx varchar(3) default '888'; -- 业务类型(默认业务类型 888) 

 declare tzqx varchar(1); -- 投资期限 

 declare ysjlxkmkzz varchar(7); -- 应收(计)利息科目控制字 

 declare tzsykmmkzz varchar(7); -- 投资收益科目控制字 

 declare yjkmkzz varchar(7) default '142112'; -- 溢价科目控制字 长期投资(溢价142112) 

 declare zjkmkzz varchar(7) default '142113'; -- 折价科目控制字 长期投资(折价142113) 

 declare fykmkzz varchar(7) default '142111'; -- 相关费用科目控制字 长期投资(相关费用 142111) 

 declare zid varchar(32) default '0'; -- id 债券投资ID 

 declare vId varchar(32); -- id 债券流水ID 

 declare yslx double; -- 应收利息 (面值 * 票面利率 (年) /360 * 当月实际天数) 

 declare yjlx double; -- 应计利息 (面值 * 票面利率 (年) /360 * 当月实际天数) 

 declare ysjlx double; -- 应收计利息 

 declare pmje double; -- 票面金额 

 declare pmll double; -- 票面利率 

 declare tzsy DECIMAL(12, 2); -- 投资收益 ( 应收(计)利息 - 每月摊销的溢价 - 每月摊销相关费用 ) 

 declare txyj double; -- 月摊销溢价 ( 溢价/(到期日 - 购买日 + 1) * 当月实际天数 ) 

 declare txzj double; -- 月摊销折价 ( 折价/(到期日 - 购买日 + 1) * 当月实际天数 ) 

 declare txfy double; -- 月摊销费用 (相关费用)/(到期日 - 购买日 + 1) * 当月实际天数 

 declare yj double default 0.0; -- 溢价 

 declare zj double default 0.0; -- 折价 

 declare fy double default 0.0; -- 相关费用 


 declare zqtz cursor for s1; 

 -- 声明异常 

 DECLARE CONTINUE HANDLER FOR NOT FOUND,SQLEXCEPTION,SQLWARNING 

 begin 

 set sql_code = SQLCODE; 

 set returnCode = sql_code; 

 end; 


 set vCurdate = (select char(current_date) from sysibm.sysdummy1); 

 set vCurdate = replace(vCurdate,'-',''); 

 set vCurYMd = substr(vCurdate,1,6); 

 set vCurDay = substr(vCurdate,7,2); 


 -- 读取还没到期的长期债券投资信息 

 set stmt = ' select JGBM,ZH,HTH,ZQPZ,PMJE,LL,GMRQ,DQR,YSLX,YJLX,YJ,ZJ,FY,FXFS,id,cast(substr(GMRQ,7,2) as integer),cast(substr(DQR,7,2) as integer),cast(substr(GMRQ,5,2) as integer),cast(substr(DQR,5,2) as integer),cast(substr(GMRQ,1,4) as integer),cast(substr(DQR,1,4) as integer) from kjzb.zqinvest where substr(dqr,1,6) >=''' || vCurYMd || ''' and tzqx = ''2'' and tzzt <> ''2'''; 

 prepare s1 from stmt; 


 open zqtz; 

 fetch zqtz into vDfJgbm,vzh,hth,zqpz,pmje,pmll,gmrq,dqrq,yslx,yjlx,yj,zj,fy,fxfs,zid,firstday,lastday,firstmonth,lastmonth,firstyear,lastyear; 

 while sql_code <> 100 do 

 -- 如果是31日购买的，第一个月不计提 

 if ( firstday = 31 and substr(gmrq,1,6) = vCurYMd ) then 

 goto EXIT; 

 end if; 


 -- 如果是01日到期的，最后一个月不计提 

 if ( lastday = 1 and substr(dqrq,1,6) = vCurYMd ) then 

 goto EXIT; 

 end if; 


 -- 间隔年份 

 if ( firstyear = lastyear ) then 

 set disyear = 0; 

 else 

 set disyear = lastyear - firstyear - 1; 

 end if; 


 -- 同年 

 if ( disyear = 0 ) then 

 -- 下个月或同月(业务逻辑上不会发生，但程序上要判断防止业务人员误操作) 

 if ( lastmonth - firstmonth <= 1 ) then 

 set dismonth = 0; 

 else 

 set dismonth = lastmonth - firstmonth - 1; 

 end if; 

 else 

 -- 不在同一年，间隔月份 = 第一年的月份 + 中间年的月份 + 最后一年的月份 

 set dismonth = ( 12 - firstmonth ) + ( disyear * 12 ) + ( lastmonth - 1 ) ; 

 end if; 


 -- 初始化摊销溢价、摊销折价、摊销费用 

 set txyj = 0.0; 

 set txzj = 0.0; 

 set txfy = 0.0; 

 if fxfs = '5' then -- 根据付息方式来计应计利息还是应收利息科目控制字 

 if zqpz = '1' then 

 set ysjlxkmkzz = '142107'; -- 应计利息 国债 142107 

 set tzsykmmkzz = '514111'; -- 投资收益（债券利息收入-国债利息收入） 514111 

 end if; 

 if zqpz = '2' then 

 set ysjlxkmkzz = '142108'; -- 应计利息 金融债 142108 

 set tzsykmmkzz = '514112'; -- 投资收益(债券利息收入-金融债券利息收入) 514112 

 end if; 

 if zqpz = '3' then 

 set ysjlxkmkzz = '142109'; -- 应计利息 公司债 142109 

 set tzsykmmkzz = '514113'; -- 债券利息收入-企业债券利息收入 514113 

 end if; 

 if zqpz = '4' then 

 set ysjlxkmkzz = '142110'; -- 应计利息 其他债券 142110 

 set tzsykmmkzz = '514114'; -- 债券利息收入-其他债券利息收入 514114 

 end if; 

 else 

 if zqpz = '1' then 

 set ysjlxkmkzz = '132102'; -- 应收利息 国债 132102 

 set tzsykmmkzz = '514111'; -- 投资收益（债券利息收入-国债利息收入） 514111 

 end if; 

 if zqpz = '2' then 

 set ysjlxkmkzz = '132103'; -- 应收利息 金融债 132103 

 set tzsykmmkzz = '514112'; -- 投资收益(债券利息收入-金融债券利息收入) 514112 

 end if; 

 if zqpz = '3' then 

 set ysjlxkmkzz = '132104'; -- 应收利息 公司债 132104 

 set tzsykmmkzz = '514113'; -- 债券利息收入-企业债券利息收入 514113 

 end if; 

 if zqpz = '4' then 

 set ysjlxkmkzz = '132105'; -- 应收利息 其他债券 132105 

 set tzsykmmkzz = '514114'; -- 债券利息收入-其他债券利息收入 514114 

 end if; 

 end if; 


 if ( substr(dqrq,1,6) = vCurYMd ) then -- 最后一个月计提 

 set fday = lastday - 1; 

 else 

 if ( substr(gmrq,1,6) = vCurYMd ) then -- 第一个月计提 

 set fday = 30 - firstday + 1; 

 else 

 set fday = maxday; -- 平常按30天算 

 end if; 

 end if; 


 -- 实际天数 = 第一个月的天数 + 间隔月份 * 30 + 最后一个月的天数(到期日不算) 

 set disday = ( 30 - firstday + 1) + ( dismonth * 30 ) + ( lastday - 1 ); 


 -- 记提公式:面值*票面利率(年)/ 360*当月实际天数 

 set ysjlx = pmje * (pmll / 100) /360 * fday; 



 -- 投资收益公式 : 应收（计）利息 ( + 月摊销折价）— 月摊销溢价 - 月摊销费用 

 set tzsy = ysjlx; 



 -- 设计思想为如果有溢价，则应该没有折价 

 if yj <> 0.0 then 

 set txyj = yj /disday * fday; 

 set tzsy = tzsy - txyj; 

 else 

 if zj <> 0.0 then 

 set txzj = zj/disday* fday; 

 set tzsy = tzsy + txzj; 

 end if; 

 end if; 


 if fy <> 0.0 then 

 set txfy = fy /disday * fday; 

 set tzsy = tzsy - txfy; 

 end if; 



 --借: 1321 应收利息[按月计提金额] 

 set vId = kjzb.getvId(); 

 set vLsh = kjzb.getLsh(32); -- 获取流水号 

 set vjgh = kjzb.getJgh(vzh); -- 获取机构号 

 set ywzh = kjzb.getZh(vjgh,ysjlxkmkzz); -- 应收(计)利息账号 


 if ywzh is null then 

 set sqlMsg = '债券记提走帐时找不到指定机构['||vjgh||']和科目控制字为['|| ysjlxkmkzz ||']的帐号'; 

 set errorMsg = sqlMsg; 

 goto ERROR_RETURN; 

 end if; 


 insert into kjzb.FLLSB values(vId,vJgbm,ysjlxkmkzz,vLsh,hth,ywzh,'借',ysjlx,'','0000',vCurdate,ywlx); 


 if sql_code <> 0 then 

 set sqlMsg = '债券走帐插入会计分录出错'; 

 set errorMsg = sqlMsg; 

 goto ERROR_RETURN; 

 end if; 


 -- 借: 1421 长期投资(折价)[按月计提金额] 

 if zj <> 0.0 then 

 set vId = kjzb.getvId(); 

 set ywzh = kjzb.getZh(vjgh,zjkmkzz); -- 长期投资(折价)账号 


 if ywzh is null then 

 set sqlMsg = '债券记提走帐时找不到指定机构['||vjgh||']和科目控制字为['|| zjkmkzz ||']的帐号'; 

 set errorMsg = sqlMsg; 

 goto ERROR_RETURN; 

 end if; 


 insert into kjzb.FLLSB values(vId,vJgbm,zjkmkzz,vLsh,hth,ywzh,'借',txzj,'','0000',vCurdate,ywlx); 

 if sql_code <> 0 then 

 set sqlMsg = '债券走帐插入会计分录出错'; 

 set errorMsg = sqlMsg; 

 goto ERROR_RETURN; 

 end if; 

 end if; 


 -- 贷: 5141 投资收益 应收（计）利息-每月摊消的溢价-每月摊消相关费用 

 set vId = kjzb.getvId(); 

 set ywzh = kjzb.getZh(vjgh,tzsykmmkzz); -- 投资收益账号 


 if ywzh is null then 

 set sqlMsg = '债券记提走帐时找不到指定机构['||vjgh||']和科目控制字为['|| tzsykmmkzz ||']的帐号'; 

 set errorMsg = sqlMsg; 

 goto ERROR_RETURN; 

 end if; 


 insert into kjzb.FLLSB values(vId,vJgbm,tzsykmmkzz,vLsh,hth,ywzh,'贷',tzsy,'','0000',vCurdate,ywlx); 

 if sql_code <> 0 then 

 set sqlMsg = '债券走帐插入会计分录出错'; 

 set errorMsg = sqlMsg; 

 goto ERROR_RETURN; 

 end if; 


 -- 贷: 1421 长期投资(溢价)[按月摊消]每月摊消的溢价(溢价/(到期日-购买日+1) *当月实际天数) 

 if yj <> 0.0 then 

 set vId = kjzb.getvId(); 

 set ywzh = kjzb.getZh(vjgh,yjkmkzz); -- 长期投资(溢价)账号 


 if ywzh is null then 

 set sqlMsg = '债券记提走帐时找不到指定机构['||vjgh||']和科目控制字为['|| yjkmkzz ||']的帐号'; 

 set errorMsg = sqlMsg; 

 goto ERROR_RETURN; 

 end if; 


 insert into kjzb.FLLSB values(vId,vJgbm,yjkmkzz,vLsh,hth,ywzh,'贷',txyj,'','0000',vCurdate,ywlx); 

 if sql_code <> 0 then 

 set sqlMsg = '债券走帐插入会计分录出错'; 

 set errorMsg = sqlMsg; 

 goto ERROR_RETURN; 

 end if; 

 end if; 


 -- 贷: 1421 长期投资(相关费用)[按月摊消金额] 每月摊消相关费用(相关费用/(到期日-购买日+1) *当月实际天数) 

 if (fy <> 0.0) then 

 set vId = kjzb.getvId(); 

 set ywzh = kjzb.getZh(vjgh,fykmkzz); -- 长期投资(相关费用)账号 


 if ywzh is null then 

 set sqlMsg = '债券记提走帐时找不到指定机构['||vjgh||']和科目控制字为['|| fykmkzz ||']的帐号'; 

 set errorMsg = sqlMsg; 

 goto ERROR_RETURN; 

 end if; 


 insert into kjzb.FLLSB values(vId,vJgbm,yjkmkzz,vLsh,hth,ywzh,'贷',txfy,'','0000',vCurdate,ywlx); 

 if sql_code <> 0 then 

 set sqlMsg = '债券走帐插入会计分录出错'; 

 set errorMsg = sqlMsg; 

 goto ERROR_RETURN; 

 end if; 

 end if; 


 -- 对 kjzb.zqinvest 表的以下字段进行更新 

 -- yjtyjlx 【已计提应计利息】 

 -- yjtyslx 【已计提应收利息】 

 -- ytxyj 【已摊销溢价】 

 -- ytxzj 【已摊销折价】 

 -- ytxfy 【已摊销费用】 

 if fxfs = '5' then 

 update kjzb.zqinvest set yjtyjlx = yjtyjlx + ysjlx,ytxyj = ytxyj + txyj,ytxzj = ytxzj + txzj,ytxfy = ytxfy + txfy where id = zid; 

 if sql_code <> 0 then 

 set sqlMsg = '债券走帐时更新表出错'; 

 set errorMsg = sqlMsg; 

 goto ERROR_RETURN; 

 end if; 

 else 

 update kjzb.zqinvest set yjtyslx = yjtyslx + ysjlx,ytxyj = ytxyj + txyj,ytxzj = ytxzj + txzj,ytxfy = ytxfy + txfy where id = zid; 

 if sql_code <> 0 then 

 set sqlMsg = '债券走帐时更新表出错'; 

 set errorMsg = sqlMsg; 

 goto ERROR_RETURN; 

 end if; 

 end if; 


 EXIT: 

 fetch zqtz into vDfJgbm,vzh,hth,zqpz,pmje,pmll,gmrq,dqrq,yslx,yjlx,yj,zj,fy,fxfs,zid,firstday,lastday,firstmonth,lastmonth,firstyear,lastyear; 


 end while; 


 close zqtz; -- 关闭游标 


 COMMIT; 

 set sqlMsg = '债券投资自动计提成功!'; 

 set errorMsg = sqlMsg; 

 set sql_code = 0; 

 set returnCode = sql_code; 

 return 1; 


 ERROR_RETURN: 

 ROLLBACK; 

 return -1; 

END
本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。