svrf306.ec

一个银行业务的程序

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

//Date:2003/02/13

/**修改记录

*/

SvrF306(int argc,char *argv[])
{
	char	cRetCode[4],cSerNo[11];
	$char	e_cSqlDest[800];
	int	i,iType=0;
	$int	e_iSerNo=0;

#ifdef QDCS
	for(i=0;i<argc;i++)
		WriteTest("argv[%d]:%s\n",i,argv[i]);
#endif
/**argv[0]
	1	有价证券质押报告
	2	房产抵押报告
	3	地产抵押报告
	4	设备抵押报告
*/

	iType=atoi(argv[0]);

	memset(e_cSqlDest,0,sizeof(e_cSqlDest));
	if(iType==1){
		sprintf(e_cSqlDest,"select max(serno) from portfolio where apply_no='%s'",argv[1]);
	}else if(iType==2){
		sprintf(e_cSqlDest,"select max(serno) from realty where apply_no='%s'",argv[1]);
	}else if(iType==3){
		sprintf(e_cSqlDest,"select max(serno) from ground_use where apply_no='%s'",argv[1]);
	}else if(iType==4){
		sprintf(e_cSqlDest,"select max(serno) from equipment where apply_no='%s'",argv[1]);
	}

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

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

#ifdef QDCS
	WriteTest("[%s],serno=%d\n",__FILE__,e_iSerNo);
#endif
	if(e_iSerNo<=0)e_iSerNo=1;
	else e_iSerNo+=1;
	memset(cSerNo,0,sizeof(cSerNo));
	sprintf(cSerNo,"%d",e_iSerNo);

	CreateStruct("返回码","000");
	CreateStruct("序号STR",cSerNo);
		
	return 0;
}