?? svrf334.ec
字號(hào):
/*****************************
*聯(lián)社日終統(tǒng)計(jì)函數(shù) *
******************************/
#include <stdio.h>
#include <stdlib.h>
/*最大10戶貸款結(jié)構(gòu)*/
$struct {
char id[17];
char name[61];
char lic[21];
double idLoanSum;
double idLoanBal;
double idOverBal;
double idSlackBal;
double idBadBal;
} struMaxL[10];
SvrF334(int argc,char *argv[])
{
$char cProcBank[11],cWorkDate[9],cWorkYM[7];
$char vcTempId[17],vcCustName[61],vcTradeLic[21];
$char vcTradeDate[9],vcBankNo[11];
int i;
$char cSql[256];
double vdIdLoanSum,vdIdLoanBal,vdIdOverBal,vdIdSlackBal,vdIdBadBal;
$double vdNorSum,vdBadSum,vdBankNorSum,vdBankBadSum;
$struct {
char tradedate[9];
char bankno[11];
char custno[17];
char custname[61];
char tradelic[21];
double loansum;
double loanbal;
double overbal;
double slackbal;
double badbal;
double banknorsum;
double bankbadsum;
double subsum;
} struMax;
sprintf(cWorkDate,"%s",argv[0]);
sprintf(cProcBank,"%s",argv[1]);
strncpy(cWorkYM,cWorkDate,6);
cWorkYM[6]=0;
/*刪除當(dāng)月最大10戶貸款戶*/
$delete from stat_maxloan
where bank_no=$cProcBank and trade_date[1,6]=$cWorkYM;
if(sqlca.sqlcode!=0)
WriteTest("svrf334:delete stat_maxloan err[%ld]\n",sqlca.sqlcode);
/*刪除當(dāng)月最大10戶不良貸款戶*/
$delete from stat_maxbadloan
where bank_no=$cProcBank and trade_date[1,6]=$cWorkYM;
if(sqlca.sqlcode!=0)
WriteTest("svrf334:delete stat_maxbadloan err[%ld]\n",sqlca.sqlcode);
sprintf(cSql,"select unique trade_date,bank_no,bank_norsum,bank_badsum from stat_maxloan where trade_date[1,6]='%s'",cWorkYM);
$prepare selid from $cSql;
if(sqlca.sqlcode<0)
{
WriteTest("svrf334:prepare[%s] err[%ld]\n",cSql,sqlca.sqlcode);
$free selid;
return 0;
}
$declare cursel cursor for selid;
if(sqlca.sqlcode!=0)
{
WriteTest("svrf334:declare err[%ld]\n",sqlca.sqlcode);
CreateStruct("返回碼","020");
$free selid;
return 0;
}
$open cursel;
if(sqlca.sqlcode!=0)
{
WriteTest("svrf334:open declare err[%ld]\n",sqlca.sqlcode);
CreateStruct("返回碼","020");
$free selid;
return 0;
}
$fetch cursel into $vcTradeDate,$vcBankNo,$vdNorSum,$vdBadSum;
if(sqlca.sqlcode<0)
{
WriteTest("svrf334:fetch err[%ld]\n",sqlca.sqlcode);
CreateStruct("返回碼","020");
$close cursel;
$free cursel;
$free selid;
return 0;
}
vdBankNorSum=0;
vdBankBadSum=0;
while(sqlca.sqlcode==0)
{
vdBankNorSum+=vdNorSum;
vdBankBadSum+=vdBadSum;
$fetch cursel into $vcTradeDate,$vcBankNo,$vdNorSum,$vdBadSum;
}
$close cursel;
$free cursel;
$free selid;
for(i=0;i<10;i++)
{
strcpy(struMaxL[i].id," ");
struMaxL[i].idLoanSum=0;
struMaxL[i].idLoanBal=0;
struMaxL[i].idOverBal=0;
struMaxL[i].idSlackBal=0;
struMaxL[i].idBadBal=0;
}
sprintf(cSql,"select * from stat_maxloan order by cust_no");
$prepare selid1 from $cSql;
if(sqlca.sqlcode<0)
{
WriteTest("svrf334:prepare[%s] err[%ld]\n",cSql,sqlca.sqlcode);
CreateStruct("返回碼","020");
$free selid1;
return 0;
}
$declare cursel1 cursor for selid1;
if(sqlca.sqlcode!=0)
{
WriteTest("svrf334:declare err[%ld]\n",sqlca.sqlcode);
CreateStruct("返回碼","020");
$free selid1;
return 0;
}
$open cursel1;
if(sqlca.sqlcode!=0)
{
WriteTest("svrf334:open declare err[%ld]\n",sqlca.sqlcode);
CreateStruct("返回碼","020");
$free selid1;
return 0;
}
$fetch cursel1 into $struMax;
if(sqlca.sqlcode<0)
{
WriteTest("svrf334:fetch err[%ld]\n",sqlca.sqlcode);
CreateStruct("返回碼","020");
$close cursel1;
$free cursel1;
$free selid1;
return 0;
}
strcpy(vcTempId," ");
while(sqlca.sqlcode==0)
{
if(strcmp(vcTempId,struMax.custno)==0)
{/*當(dāng)前記錄與上一記錄為同一客戶*/
vdIdLoanSum+=struMax.loansum;
vdIdLoanBal+=struMax.loanbal;
vdIdOverBal+=struMax.overbal;
vdIdSlackBal+=struMax.slackbal;
vdIdBadBal+=struMax.badbal;
}
else
{
if(strcmp(vcTempId," ")==0)
{
vdIdLoanSum=struMax.loansum;
vdIdLoanBal=struMax.loanbal;
vdIdOverBal=struMax.overbal;
vdIdSlackBal=struMax.slackbal;
vdIdBadBal=struMax.badbal;
strcpy(vcTempId,struMax.custno);
strcpy(vcCustName,struMax.custname);
strcpy(vcTradeLic,struMax.tradelic);
}
else
{/*根據(jù)當(dāng)前貸款戶累加值更新10大貸款戶*/
MaxLoan(vcTempId,vcCustName,vcTradeLic,vdIdLoanSum,vdIdLoanBal,vdIdOverBal,vdIdSlackBal,vdIdBadBal);
vdIdLoanSum=struMax.loansum;
vdIdLoanBal=struMax.loanbal;
vdIdOverBal=struMax.overbal;
vdIdSlackBal=struMax.slackbal;
vdIdBadBal=struMax.badbal;
strcpy(vcTempId,struMax.custno);
strcpy(vcCustName,struMax.custname);
strcpy(vcTradeLic,struMax.tradelic);
}
}
$fetch cursel1 into $struMax;
}
$close cursel1;
$free cursel1;
$free selid1;
if(strcmp(vcTempId," ")!=0)
MaxLoan(vcTempId,vcCustName,vcTradeLic,vdIdLoanSum,vdIdLoanBal,vdIdOverBal,vdIdSlackBal,vdIdBadBal);
for(i=0;i<10;i++)
{
if(strcmp(struMaxL[i].id," ")==0)
break;
$insert into stat_maxloan values($cWorkDate,$cProcBank,
$struMaxL[i].id,$struMaxL[i].name,$struMaxL[i].lic,
$struMaxL[i].idLoanSum,$struMaxL[i].idLoanBal,
$struMaxL[i].idOverBal,$struMaxL[i].idSlackBal,
$struMaxL[i].idBadBal,$vdBankNorSum,$vdBankBadSum,0);
if(sqlca.sqlcode!=0)
WriteTest("svrf334:insert stat_maxloan err[%ld]\n",sqlca.sqlcode);
}
for(i=0;i<10;i++)
{
strcpy(struMaxL[i].id," ");
struMaxL[i].idLoanSum=0;
struMaxL[i].idLoanBal=0;
struMaxL[i].idOverBal=0;
struMaxL[i].idSlackBal=0;
struMaxL[i].idBadBal=0;
}
sprintf(cSql,"select * from stat_maxbadloan order by cust_no");
$prepare selid2 from $cSql;
if(sqlca.sqlcode<0)
{
WriteTest("svrf334:prepare[%s] err[%ld]\n",cSql,sqlca.sqlcode);
CreateStruct("返回碼","020");
$free selid2;
return 0;
}
$declare cursel2 cursor for selid2;
if(sqlca.sqlcode!=0)
{
WriteTest("svrf334:declare err[%ld]\n",sqlca.sqlcode);
CreateStruct("返回碼","020");
$free selid2;
return 0;
}
$open cursel2;
if(sqlca.sqlcode!=0)
{
WriteTest("svrf334:open declare err[%ld]\n",sqlca.sqlcode);
CreateStruct("返回碼","020");
$free selid2;
return 0;
}
$fetch cursel2 into $struMax;
if(sqlca.sqlcode<0)
{
WriteTest("svrf334:fetch err[%ld]\n",sqlca.sqlcode);
CreateStruct("返回碼","020");
$close cursel2;
$free cursel2;
$free selid2;
return 0;
}
strcpy(vcTempId," ");
while(sqlca.sqlcode==0)
{
if(strcmp(vcTempId,struMax.custno)==0)
{/*當(dāng)前記錄與上一記錄為同一客戶*/
vdIdLoanSum+=struMax.loansum;
vdIdLoanBal+=struMax.loanbal;
vdIdOverBal+=struMax.overbal;
vdIdSlackBal+=struMax.slackbal;
vdIdBadBal+=struMax.badbal;
}
else
{
if(strcmp(vcTempId," ")==0)
{
vdIdLoanSum=struMax.loansum;
vdIdLoanBal=struMax.loanbal;
vdIdOverBal=struMax.overbal;
vdIdSlackBal=struMax.slackbal;
vdIdBadBal=struMax.badbal;
strcpy(vcTempId,struMax.custno);
strcpy(vcCustName,struMax.custname);
strcpy(vcTradeLic,struMax.tradelic);
}
else
{/*根據(jù)當(dāng)前貸款戶累加值更新10大貸款戶*/
MaxBadLoan(vcTempId,vcCustName,vcTradeLic,vdIdLoanSum,vdIdLoanBal,vdIdOverBal,vdIdSlackBal,vdIdBadBal);
vdIdLoanSum=struMax.loansum;
vdIdLoanBal=struMax.loanbal;
vdIdOverBal=struMax.overbal;
vdIdSlackBal=struMax.slackbal;
vdIdBadBal=struMax.badbal;
strcpy(vcTempId,struMax.custno);
strcpy(vcCustName,struMax.custname);
strcpy(vcTradeLic,struMax.tradelic);
}
}
$fetch cursel2 into $struMax;
}
$close cursel2;
$free cursel2;
$free selid2;
if(strcmp(vcTempId," ")!=0)
MaxBadLoan(vcTempId,vcCustName,vcTradeLic,vdIdLoanSum,vdIdLoanBal,vdIdOverBal,vdIdSlackBal,vdIdBadBal);
for(i=0;i<10;i++)
{
if(strcmp(struMaxL[i].id," ")==0)
break;
$insert into stat_maxbadloan values($cWorkDate,$cProcBank,
$struMaxL[i].id,$struMaxL[i].name,$struMaxL[i].lic,
$struMaxL[i].idLoanSum,$struMaxL[i].idLoanBal,
$struMaxL[i].idOverBal,$struMaxL[i].idSlackBal,
$struMaxL[i].idBadBal,$vdBankNorSum,$vdBankBadSum,0);
if(sqlca.sqlcode!=0)
WriteTest("svrf334:insert stat_maxloan err[%ld]\n",sqlca.sqlcode);
}
CreateStruct("返回碼","000");
return 0;
}
int MaxLoan(vcId,vcName,vcLic,vdIdLoanSum,vdIdLoanBal,vdIdOverBal,vdIdSlackBal,vdIdBadBal)
char *vcId,*vcName,*vcLic;
double vdIdLoanSum,vdIdLoanBal,vdIdOverBal,vdIdSlackBal,vdIdBadBal;
{
int i,j;
for(i=0;i<10;i++)
{
if((vdIdLoanBal+vdIdOverBal+vdIdSlackBal+vdIdBadBal)>
(struMaxL[i].idLoanBal+struMaxL[i].idOverBal
+struMaxL[i].idSlackBal+struMaxL[i].idBadBal))
{
for(j=9;j>i;j--)
{
strcpy(struMaxL[j].id,struMaxL[j-1].id);
strcpy(struMaxL[j].name,struMaxL[j-1].name);
strcpy(struMaxL[j].lic,struMaxL[j-1].lic);
struMaxL[j].idLoanSum=struMaxL[j-1].idLoanSum;
struMaxL[j].idLoanBal=struMaxL[j-1].idLoanBal;
struMaxL[j].idOverBal=struMaxL[j-1].idOverBal;
struMaxL[j].idSlackBal=struMaxL[j-1].idSlackBal;
struMaxL[j].idBadBal=struMaxL[j-1].idBadBal;
}
strcpy(struMaxL[i].id,vcId);
strcpy(struMaxL[i].name,vcName);
strcpy(struMaxL[i].lic,vcLic);
struMaxL[i].idLoanSum=vdIdLoanSum;
struMaxL[i].idLoanBal=vdIdLoanBal;
struMaxL[i].idOverBal=vdIdOverBal;
struMaxL[i].idSlackBal=vdIdSlackBal;
struMaxL[i].idBadBal=vdIdBadBal;
break;
}
}
return(0);
}
int MaxBadLoan(vcId,vcName,vcLic,vdIdLoanSum,vdIdLoanBal,vdIdOverBal,vdIdSlackBal,vdIdBadBal)
char *vcId,*vcName,*vcLic;
double vdIdLoanSum,vdIdLoanBal,vdIdOverBal,vdIdSlackBal,vdIdBadBal;
{
int i,j;
for(i=0;i<10;i++)
{
if((vdIdOverBal+vdIdSlackBal+vdIdBadBal)>
(struMaxL[i].idOverBal
+struMaxL[i].idSlackBal+struMaxL[i].idBadBal))
{
for(j=9;j>i;j--)
{
strcpy(struMaxL[j].id,struMaxL[j-1].id);
strcpy(struMaxL[j].name,struMaxL[j-1].name);
strcpy(struMaxL[j].lic,struMaxL[j-1].lic);
struMaxL[j].idLoanSum=struMaxL[j-1].idLoanSum;
struMaxL[j].idLoanBal=struMaxL[j-1].idLoanBal;
struMaxL[j].idOverBal=struMaxL[j-1].idOverBal;
struMaxL[j].idSlackBal=struMaxL[j-1].idSlackBal;
struMaxL[j].idBadBal=struMaxL[j-1].idBadBal;
}
strcpy(struMaxL[i].id,vcId);
strcpy(struMaxL[i].name,vcName);
strcpy(struMaxL[i].lic,vcLic);
struMaxL[i].idLoanSum=vdIdLoanSum;
struMaxL[i].idLoanBal=vdIdLoanBal;
struMaxL[i].idOverBal=vdIdOverBal;
struMaxL[i].idSlackBal=vdIdSlackBal;
struMaxL[i].idBadBal=vdIdBadBal;
break;
}
}
return(0);
}
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -