mrecallys.c

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

/*
	MRECALLYS:返销(退单)
	Input : 
	1	银行序号	2	参考确认销帐
	2	销帐流水	20	要撤消的流水号
	3	返销流水号	20	返销操作本身的操作流水号(银行的流水号)
	4   对帐标志    20
	Output: 
		1	返回状态(可以转换成int型)	8	
					0--成功
				   -1--失败
				-30001--流水记录未找到
				-30011--记帐凭证已制作
				-30021--写外部凭证金额错
				-30031--写电费表错
				-30041--无法记入调尾余额
				-30051--无法记入预收金额
				-30061--记流水帐出错
				-30071--无法做流水帐退单存档
				-30081--冲红记录不能退单
				-30999--尚未支持此类费用的退单
*/
#include "public.h"
#ifdef __cplusplus
extern "C"
#endif
void
#ifdef MW_CICS
main(MW_SVCINFO * transb)
#endif
#ifdef MW_TUXEDO
MRECALLYS(MW_SVCINFO * transb)
#endif
{
	/*定义输入参数*/
	int  iBankSerial = 0;	/*银行编号*/
	char szPaySerialNbr[21] = "";	/*销帐的流水号*/
	char szFxSerialNbr[21] = "";	/*返销操作的流水号*/
	char szdzFlag[21];        /*对帐标志*/
	/*定义输出参数*/
	int  iReturn = 0;
	/*定义数据库变量*/
	/*定义临时变量*/
	char szMsg[255];
	void *ppVar[2];
	char szSql[1000];
	char szTemp[200] = "";
	BOOL bRet;
	char *szInBuf;
	char *szOutBuf;
	int nStatus = 0;
	unsigned char pParam[] = TYPE_INT TYPE_CHAR TYPE_CHAR TYPE_CHAR TYPE_INT;
	CMiddleWare mwMidWare;
	MW_Init(&mwMidWare,transb);
	MW_AllocateString(&mwMidWare,1024); 
	szInBuf = MW_GetInBuf(&mwMidWare);
	if (szInBuf == NULL)
	{
		gf_Return(&mwMidWare,-1,"没有输入参数!");
		return;
	}
	MW_Trace(szInBuf);
	/*取输入参数:BANK_SERIAL(2)PAY_SERIAL_NBR(20)FX_SERIAL_NBR(20)*/
	strncpy(szTemp,szInBuf,2);
	szTemp[2] = '\0';
	iBankSerial = atoi(szTemp);
	strncpy(szPaySerialNbr,szInBuf + 2,20);
	szPaySerialNbr[20] = '\0';
	MW_Trace(szPaySerialNbr);
	strncpy(szFxSerialNbr,szInBuf + 22,20);
	szFxSerialNbr[20] = '\0';
	MW_Trace(szFxSerialNbr);
	strncpy(szdzFlag,szInBuf + 42 ,20);
    szdzFlag[20]= '\0';
	MW_Trace(szdzFlag);
/*	MW_GetValueInt(&mwMidWare,BANK_SERIAL,"BANK_SERIAL",&iBankSerial);
	MW_GetValue(&mwMidWare,PAY_SERIAL_NBR,"PAY_SERIAL_NBR",szPaySerialNbr,sizeof(szPaySerialNbr));
	MW_GetValue(&mwMidWare,FX_SERIAL_NBR,"FX_SERIAL_NBR",szFxSerialNbr,sizeof(szFxSerialNbr));
*/	/*调用反销帐存储过程进行销帐*/
/*
@BANK_SERIAL INT, 		--银行序号,电力系统为每一个联网的银行一个编号，以使同一系统可以与多个银行进行联网。1--GH 工商银行2--NH 农业银行3--ZH 中国银行4--JH 建设银行5--JT 交通银行6--ZS 招商银行7--SH 商业银行8--GD 光大银行9--MS 民生银行0--YC 邮政局
@PAY_SERIAL_NBR	CHAR(20),	--返销帐流水,该流水由银行方生成，并作为对帐主要标识。
@PAY_SERIAL_NBR_OLD	CHAR(20), --被返销的流水号
@I_RETURN INT output		--返回状态,销帐结果
*/
	ppVar[0] = &iReturn;
	bRet = DB_ExecuteStoredProcedureWithResult(&theDatabase, "Up_c_bank_recall_ys", &nStatus, 
		ppVar,1,
		pParam,iBankSerial,szPaySerialNbr,szFxSerialNbr,szdzFlag,0);
	if(!bRet || nStatus)	//失败
	{
		if (iReturn >= 0) iReturn = -1;
		gf_Return(&mwMidWare,iReturn,"执行Up_c_bank_recallys失败");
		return;
	}
	/*返回*/
	gf_Return(&mwMidWare,iReturn,"");
	return;
}