testcommit.c

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

#include "Public.h"
#ifdef __cplusplus
extern "C"
#endif
void
#ifdef MW_CICS
main(MW_SVCINFO * transb)
#endif
#ifdef MW_TUXEDO
MCOMMIT(MW_SVCINFO * transb)
#endif
{
	char szMsg[255];
	void *ppVar[2];
	char szSql[512];
	char szTime[100] = "";
	BOOL bRet;
	int nStatus = 0;
	unsigned char pParam[] = TYPE_CHAR TYPE_CHAR TYPE_INT TYPE_FLOAT;
	CMiddleWare mwMidWare;
	char szBankCode[11] = "1111";
	char szKHBH[11] = "";
	double dSumFee = 0;
	long lPaySerialNbr = 0;
	char szData[5000] = "";
	MW_Init(&mwMidWare,transb);
	MW_Allocate(&mwMidWare,1024); 
	MW_GetValue(&mwMidWare,KHBH,"KHBH",szKHBH,sizeof(szKHBH));
	MW_GetValueDouble(&mwMidWare,SUM_FEE,"SUM_FEE",&dSumFee);
	MW_GetValueLong(&mwMidWare,PAY_SERIAL_NBR,"PAY_SERIAL_NBR",&lPaySerialNbr);
	MW_GetValue(&mwMidWare,RESULT,"RESULT",szData,sizeof(szData));
	if ((strlen(szData) != 4096) && szData[4095] != (30 + (4095 % 40)))
	{
		MW_Trace("Send Data Error");
	}
	bRet = DB_ExecuteStoredProcedure(&theDatabase, "up_c_gjl_test_commit", &nStatus, pParam,
		szBankCode,szKHBH,lPaySerialNbr,dSumFee);
	if(!bRet || nStatus)	//失败
	{
		gf_Return(&mwMidWare,-1,"执行up_c_gjl_test_commit失败");
		return;
	}
	gf_Return(&mwMidWare,0,"");
	return;
}