svrf304.ec

一个银行业务的程序

#include "../incl/serverpub.h"
$include sqlca;

//Date:2003/01/06
//para:ID,Type

SvrF304(int argc,char *argv[])
{
	char	cTemp[200],cRetCode[4],cFileName[80];
	$char	e_cSql[800];
	FILE	*fp=NULL;
	int	i,iRet=0;
	$char	e_cId[17],e_cName[41],e_cCode[21],e_cRemark[41],e_cMan[5],e_cDate[11],e_cMan1[5],e_cDate1[11],e_cBankNo[11];
	$int 	e_iPer,e_iFlag;
#ifdef QDCS
	for(i=0;i<argc;i++)
		WriteTest("argv[%d]:%s\n",i,argv[i]);
#endif

	memset(e_cSql,0,sizeof(e_cSql));
	sprintf(e_cSql,"relation where id='%s' and type='%s'",argv[0],argv[1]);

	memset(cRetCode,0,sizeof(cRetCode));
	if((iRet=GetCount(e_cSql,cRetCode))==0){//NO record
		CreateStruct("返回码",NORECORD);return 0;
	}else{
		memset(e_cId,0,sizeof(e_cId));
		memcpy(e_cId,argv[0],16);

		memset(e_cName,0,sizeof(e_cName));
		$select name into :e_cName from enterprise where id=:e_cId;
		CreateStruct("客户名称",e_cName);

		//地区号（5）+前置机号（4）+所号（4）+操作员号（4）
		memset(cTemp,0,sizeof(cTemp));
		FindKey("地区号");strcat(cTemp,sCurrent->cValue);
		FindKey("前置机号");strcat(cTemp,sCurrent->cValue);
		FindKey("储蓄所号");strcat(cTemp,sCurrent->cValue);
		FindKey("操作员号");strcat(cTemp,sCurrent->cValue);
		memset(cFileName,0,sizeof(cFileName));
		sprintf(cFileName,"%s/download/%s",getenv("HOME"),cTemp);

		if((fp=fopen(cFileName,"w"))==NULL)
		{
		    WriteTest("%s: create file %s error \n",__FILE__,cFileName);
		    CreateStruct("返回码","020");
		    return 0;
		}
	}
	

	fprintf(fp,"RetCode,FileFlag,CustNo,RelaCustNo,RelaCustName,Percent,RelaFlag,Remark,CreatBankNo,CreatOpeNo,CreatDate,ModiOperNo,ModiDate\n");
	memset(e_cSql,0,sizeof(e_cSql));
	sprintf(e_cSql,"select ent_id,code,name,percent,flag,bank_no,credit_man,cre_date,alter_op,alter_date from relation where id='%s' and type='%s' order by cre_date",argv[0],argv[1]);

#ifdef QDCS
	WriteTest("[%s]SQL=%s\n",__FILE__,e_cSql);
#endif

	$prepare Many from :e_cSql;
	$declare File1 cursor for Many;
	if(SQLCODE!=0){CreateStruct("返回码",DBOPERERR);return 0;}
        $open File1;
        if(SQLCODE!=0){ CreateStruct("返回码",DBOPERERR);return 0; }

        while(1)
	{
		memset(e_cId,0,sizeof(e_cId));
		memset(e_cCode,0,sizeof(e_cCode));
		memset(e_cName,0,sizeof(e_cName));
		memset(e_cRemark,0,sizeof(e_cRemark));
		memset(e_cMan,0,sizeof(e_cMan));
		memset(e_cDate,0,sizeof(e_cDate));
		memset(e_cMan1,0,sizeof(e_cMan1));
		memset(e_cDate1,0,sizeof(e_cDate1));
                $fetch File1 into :e_cId,:e_cCode,:e_cName,:e_iPer,:e_iFlag,:e_cBankNo,:e_cMan,:e_cDate,:e_cMan1,:e_cDate1;
                if(SQLCODE!=0)break;

		ConvertDate(e_cDate);
		ConvertDate(e_cDate1);
		fprintf(fp,"000,1,%16s,%20s,%40s,%d,%d,%40s,%10s,%4s,%8s,%4s,%8s\n",e_cId,e_cCode,e_cName,e_iPer,e_iFlag,e_cRemark,e_cBankNo,e_cMan,e_cDate,e_cMan1,e_cDate1);
        }
	$close File1;
	$free File1; 

	fclose(fp);
	CreateStruct("返回码","000");

	return 0;
}