svrf312.ec

一个银行业务的程序

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

#define MAXLEN 3

//Date:2003/03/12

/**修改记录

*/

SvrF312(int argc,char *argv[])
{
	char	cTemp[80],cRetCode[4],cFileName[80];
	$char	e_cSqlDest[400];
	FILE	*fp=NULL;
	int	i,iRet=0,iOne=1,iType=0;
	$char	e_cCol[MAXLEN][31];
	char	cBody[256];

#ifdef QDCS
	for(i=0;i<argc;i++)
		WriteTest("argv[%d]:%s\n",i,argv[i]);
#endif
/**argv[0]
	1	企业信用等级评估
	2	个人信用等级评估
*/

	iType=atoi(argv[0]);
	memset(e_cSqlDest,0,sizeof(e_cSqlDest));
	switch(iType)
	{
		case 1:
			sprintf(e_cSqlDest,"corp_score");
			break;
		case 2:
			sprintf(e_cSqlDest,"indi_score");
			break;
	}

	memset(cRetCode,0,sizeof(cRetCode));
	if((iRet=GetCount(e_cSqlDest,cRetCode))==0){//NO record
		CreateStruct("返回码",NORECORD);return 0;
	} else {
		iOne=1;
		//地区号（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]: open file %s error \n",__FILE__,cFileName);
		    CreateStruct("返回码","020");
		    return 0;
		}
		switch(iType)
		{
			case 1:
				fprintf(fp, "type,item,value\n");
				break;
			case 2:
				fprintf(fp, "type,item,value\n");
				break;
		}
	}

	memset(e_cSqlDest,0,sizeof(e_cSqlDest));
	if(iType==1){
		sprintf(e_cSqlDest,"select type,item,value from corp_score order by type");
	}else if(iType==2){
		sprintf(e_cSqlDest,"select type,item,value from indi_score order by type");
	}

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

	$prepare Many from :e_cSqlDest;
	$declare File1 cursor for Many;
	if(SQLCODE!=0){
		if(iOne) fclose(fp);
		CreateStruct("返回码",DBOPERERR);return 0;
        }
        $open File1;
        if(SQLCODE!=0){
		if(iOne) fclose(fp);
		CreateStruct("返回码",DBOPERERR);return 0;
        }
        while(1){
		for(i=0;i<MAXLEN;i++)
			memset(e_cCol[i],0,sizeof(e_cCol[i]));

		$fetch File1 into :e_cCol[0],:e_cCol[1],:e_cCol[2];

                if(SQLCODE!=0)break;

		ClipStr(e_cCol[0]);
		ClipStr(e_cCol[1]);
		ClipStr(e_cCol[2]);
		fprintf(fp,"%s,%s,%s\n",e_cCol[0],e_cCol[1],e_cCol[2]);
        }
	$close File1;
	$free File1; 

	CreateStruct("返回码","000");
	if(iOne){
		fclose(fp);
	}

	memset(cBody,0,sizeof(cBody));
	strcpy(cBody,"10000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000");
	CreateStruct("发报报体",cBody);
		
	return 0;
}