testgettime.c

电力与银行通讯的源码 1.应用tuxedo中间件. 2.与银行的前置机通讯. 3.proc*c 的应用

/*
	GET:取费用
	Input : KHBH 客户编号
	Output: SUM_FEE	总费用
			PAY_SERIAL_NBR	流水
*/
#include "Public.h"
#ifdef __cplusplus
extern "C"
#endif
void
#ifdef MW_CICS
main(MW_SVCINFO * transb)
#endif
#ifdef MW_TUXEDO
MGET(MW_SVCINFO * transb)
#endif
{
	char szMsg[255];
	char szKKK[100] = "";
	void *ppVar[2];
	char szSql[512];
	char szKHBH[11] = "";
	BOOL bRet;
	int nStatus = 0;
	unsigned char pParam[] = TYPE_CHAR TYPE_INT TYPE_INT;
	CS_NUMERIC cs_SumFee;
	double dSumFee = 0;
	long lPaySerialNbr = 0;
	long lTemp = 0;
	char szData[5000] = "";	//数据转送的Buffer
	int i;
	CMiddleWare mwMidWare;
	MW_Init(&mwMidWare,transb);
	MW_Allocate(&mwMidWare,8000); 
	//设置4K的Buffer数据
	for (i = 0;i < 4096;i++)
	{
		szData[i] = 30 + (i % 40);
	}
	szData[4096] = '\0';
	ppVar[0] = &cs_SumFee;
	ppVar[1] = &lPaySerialNbr;
	MW_GetValue(&mwMidWare,KHBH,"KHBH",szKHBH,sizeof(szKHBH));
	bRet = DB_ExecuteStoredProcedureWithResult(&theDatabase, "up_c_gjl_test_get", &nStatus, 
		ppVar,2,
		pParam,szKHBH);
	if(!bRet || nStatus)	//失败
	{
		gf_Return(&mwMidWare,-1,"执行up_c_gjl_test_get失败");
		return;
	}
	DB_ConvertNumericToDouble(&theDatabase,&cs_SumFee,&dSumFee,14,4);
/*
	sprintf(szSql, "select sum(CSYSHJ) from C_DF where KHBH = \"%s\" ",szKHBH);
	if(!DB_SQLPrepare(&theDatabase, szSql, ppVar, 1))
	{
		sprintf(szMsg,"SQL = %s Prepare失败!",szSql);
		gf_Return(&mwMidWare,-1,szMsg);
		return;
	}
	DB_SQLFetch(&theDatabase);
	DB_ConvertNumericToDouble(&theDatabase,&cs_SumFee,&dSumFee,14,4);
	DB_SQLDone(&theDatabase);
	MW_Trace("OK1");
	sprintf(szSql, "select CUR_SERIAL from GJL_SERIAL");
	ppVar[0] = &lPaySerialNbr;
	if(!DB_SQLPrepare(&theDatabase, szSql, ppVar, 1))
	{
		sprintf(szMsg,"SQL = %s Prepare失败!",szSql);
		gf_Return(&mwMidWare,-1,szMsg);
		return;
	}
	DB_SQLFetch(&theDatabase);
	DB_SQLDone(&theDatabase);
	MW_Trace("OK2");
	strcpy(szSql,"update GJL_SERIAL set CUR_SERIAL = CUR_SERIAL + 1");
	DB_ExecuteSQL(&theDatabase,szSql);
	MW_Trace("OK3");
*/
	MW_SetValueDouble(&mwMidWare,SUM_FEE,"SUM_FEE",dSumFee,4);
	MW_SetValueLong(&mwMidWare,PAY_SERIAL_NBR,"PAY_SERIAL_NBR",lPaySerialNbr);
	MW_SetValue(&mwMidWare,RESULT,"RESULT",szData,sizeof(szData));
	gf_Return(&mwMidWare,0,"");
	return;
}