#define EXTERNEXEC SQL include savkz.h;	/* 數據表結構頭文件 */int             Sck_hqjqjz();int             SPUB_zhxxcx();SS_HQJQ(TPSVCINFO * rqst){	int             iRet;	struct accjz    tBuf;	/* 交易報文結構 */	struct appfunc  tApp;	/* 業務處理函數 */	memset(&tBuf, 0, sizeof(struct accjz));	memset(&tApp, 0, sizeof(struct appfunc));	/* 調用交易公共初始化例程 */	iRet = PubTrBegin(rqst, &tBuf, &tApp);	if (iRet == 0) {		tApp.func_jylr = NULL;		tApp.func_jyjz = Sck_hqjqjz;	/* 存款交易記帳函數名 */		tApp.func_jymz = NULL;		tApp.func_jycx1 = SPUB_zhxxcx;		tApp.func_jycx2 = NULL;		tApp.func_jycx3 = NULL;		/* 調用交易流程控制函數 */		iRet = PubTrApp(&tApp, &tBuf);	}	/* 調用交易公共結束例程 */	PubTrEnd(iRet, &tBuf);}int Sck_hqjqjz(struct accjz * ptBuf){	struct savzhxx  stZhxx;	double          dfjs;	ACCINFO        *pAcc;	memset(&stZhxx, 0, sizeof(struct savzhxx));	strcpy(stZhxx.zhzdm, SAV_ZH1);	strcpy(stZhxx.lczhzdm, SAV_LCZH1);	if (SPUB_MsgPreTreat(ptBuf) < 0) {		S_ERR			return (-1);	}	if (SPUB_initzh(&stZhxx, &SAVJYYS1, ACC_CQ) < 0) {		S_ERR			return (-1);	}	if (GetAccInfo(stZhxx.zhzdm) == NULL) {		strcpy(pTrInfo->xym, PXYM);		strcpy(pTrInfo->xyxx, "必須指定子帳戶");		S_ERR			return (-1);	}	if (strlen(stZhxx.zh) == JZH_LEN) {		strcpy(pTrInfo->xym, PXYM);		strcpy(pTrInfo->xyxx, "舊帳戶必須先換新折");		S_ERR			return (-1);	}	if ((stZhxx.zl[0] != ACC_GRCK) || (stZhxx.zl[1] != ACC_ZLHQ)) {		strcpy(pTrInfo->xym, PXYM);		strcpy(pTrInfo->xyxx, "必須是活期存款");		S_ERR			return (-1);	}	if (SPUB_xhzhhfx(&stZhxx, &SAVJYYS1) < 0) {	/* 銷戶帳戶合法性檢查 */		S_ERR			return (-1);	}	if (SPUB_xhjehfx(&stZhxx, &SAVJYYS1) < 0) {	/* 銷戶金額合法性檢查 */		S_ERR			return (-1);	}	if (SPUB_xhjx(&stZhxx, &SAVJYYS1) < 0) {	/* 銷戶計息 */		S_ERR			return (-1);	}	if (SPUB_xhxg(&stZhxx, &SAVJYYS1) < 0) {	/* 數據庫修改 */		S_ERR			return (-1);	}	if (RunAccCore(ACC_JZ) < 0) {		S_ERR			return (-1);	}	if (SPUB_GetNewZhxx(&stZhxx, ACC_CQ) < 0) {		S_ERR			return (-1);	}	/* 清積數 */	FreeCoreLink();	if (InitAccInfo(stZhxx.zhzdm, stZhxx.zh, stZhxx.zzh, NULL) != 0) {		S_ERR			return (-1);	}	if ((pAcc = GetAccInfo(stZhxx.zhzdm)) == NULL) {		strcpy(pTrInfo->xym, PXYM);		strcpy(pTrInfo->xyxx, "必須指定子帳戶");		S_ERR			return (-1);	}	GETACCFLDVAL(pAcc, "dfjs", &dfjs);	ptBuf->p_js1 = dfjs;	dfjs = 0.00;	SETACCFLDVAL(pAcc, "dfjs", &dfjs);	if (DBFlush() < 0) {		S_ERR			return (-1);	}	/* 打印存折 */	if (SPUB_dykz(&stZhxx, &SAVJYYS1, NULL, NULL) < 0) {		S_ERR			return -1;	}	if (SPUB_LastTreat(ptBuf, &stZhxx, NULL) < 0) {		S_ERR			return (-1);	}	return 0;}