cms503.sqc

一整套完整的银行卡系统源代码

		/* 数据库操作错 */
		if ( SQLCODE )
		{
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( SQLCODE );
			ERRLOG
			return FAILED;
		}
		EXEC SQL	FETCH cur_2 INTO :acField ;
		/* 数据库操作错 */
		if ( SQLCODE )
		{
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( SQLCODE );
			SQLCLOSECUR(cur_2,"cur_2")
			ERRLOG
			return FAILED;
		}
		SQLCLOSECUR(cur_2,"cur_2")
		strpack( acField );
		strcpy( pcField2, acField );
		iNum ++;
	}
	if ( iNum < pstCmsRuleDef->fldnum1 )
	{
		memset( acTblName,	0x00, sizeof( acTblName ) );
		memset( acStatment, 0x00, sizeof( acStatment ) );
		memset( acField,	0x00, sizeof( acField ) );
		memset( acWhrName,	0x00, sizeof( acWhrName ) );
		if ( !strlen( pstCmsRuleDef->fldsrcfld3 ) )
		{
			/* 卡号规则表数据错误 */
			strcpy( g_acRspCode, "CMS105" );
			pubCrtRspInfo( );
			ERRLOG
			return FAILED;
		}
		if ( !strlen( pstCmsRuleDef->fldsrctbl3 ) )
			strcpy( acTblName,	"cmscardkind" );
		else
			strcpy( acTblName,	pstCmsRuleDef->fldsrctbl3 );

		if ( !strlen( pstCmsRuleDef->fldwhr3 ) )
			strcpy( acWhrName,	"cardkind" );
		else
			strcpy( acWhrName,	pstCmsRuleDef->fldwhr3 );

		if ( !strlen( pstCmsRuleDef->fldsign3 ) )
			pstCmsRuleDef->fldsign3[ BIT1_LEN ] = SIGN_CARDKIND;

		if ( pstCmsRuleDef->fldsign3[ BIT1_LEN ] == SIGN_CARDKIND )
			sprintf( acStatment, "select %s from %s where %s ='%s'", \
						pstCmsRuleDef->fldsrcfld3,acTblName,acWhrName,
						pstCmsCardKind->cardkind );
		else
			sprintf( acStatment, "select %s from %s where %s ='%s'", \
						pstCmsRuleDef->fldsrcfld3,acTblName,acWhrName,
						pstPubcom->acBrc );

		strcpy( g_acTrcMsg, acStatment );
		TRCLOG2
		EXEC SQL	PREPARE pre_3 FROM :acStatment;
		/* 数据库操作错 */
		if ( SQLCODE )
		{
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( SQLCODE );
			ERRLOG
			return FAILED;
		}

		EXEC SQL	DECLARE cur_3 CURSOR FOR pre_3;
		SQLOPENCUR(cur_3,"cur_3")
		/* 数据库操作错 */
		if ( SQLCODE )
		{
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( SQLCODE );
			ERRLOG
			return FAILED;
		}
		EXEC SQL	FETCH cur_3 INTO :acField ;
		/* 数据库操作错 */
		if ( SQLCODE )
		{
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( SQLCODE );
			SQLCLOSECUR(cur_3,"cur_3")
			ERRLOG
			return FAILED;
		}
		SQLCLOSECUR(cur_3,"cur_3")
		strpack( acField );
		strcpy( pcField3, acField );
		iNum ++;
	}
	if ( iNum < pstCmsRuleDef->fldnum1 )
	{
		memset( acTblName,	0x00, sizeof( acTblName ) );
		memset( acStatment, 0x00, sizeof( acStatment ) );
		memset( acField,	0x00, sizeof( acField ) );
		memset( acWhrName,	0x00, sizeof( acWhrName ) );
		if ( !strlen( pstCmsRuleDef->fldsrcfld4 ) )
		{
			/* 卡号规则表数据错误 */
			strcpy( g_acRspCode, "CMS105" );
			pubCrtRspInfo( );
			ERRLOG
			return FAILED;
		}
		if ( !strlen( pstCmsRuleDef->fldsrctbl4 ) )
			strcpy( acTblName,	"cmscardkind" );
		else
			strcpy( acTblName,	pstCmsRuleDef->fldsrctbl4 );

		if ( !strlen( pstCmsRuleDef->fldwhr4 ) )
			strcpy( acWhrName,	"cardkind" );
		else
			strcpy( acWhrName,	pstCmsRuleDef->fldwhr4 );

		if ( !strlen( pstCmsRuleDef->fldsign4 ) )
			pstCmsRuleDef->fldsign4[ BIT1_LEN ] = SIGN_CARDKIND;

		if ( pstCmsRuleDef->fldsign4[ BIT1_LEN ] == SIGN_CARDKIND )
			sprintf( acStatment, "select %s from %s where %s ='%s'", \
						pstCmsRuleDef->fldsrcfld4,acTblName,acWhrName,
						pstCmsCardKind->cardkind );
		else
			sprintf( acStatment, "select %s from %s where %s ='%s'", \
						pstCmsRuleDef->fldsrcfld4,acTblName,acWhrName,
						pstPubcom->acBrc );

		strcpy( g_acTrcMsg, acStatment );
		TRCLOG2
		EXEC SQL	PREPARE pre_4 FROM :acStatment;
		/* 数据库操作错 */
		if ( SQLCODE )
		{
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( SQLCODE );
			ERRLOG
			return FAILED;
		}

		EXEC SQL	DECLARE cur_4 CURSOR FOR pre_4;
		SQLOPENCUR(cur_4,"cur_4")
		/* 数据库操作错 */
		if ( SQLCODE )
		{
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( SQLCODE );
			ERRLOG
			return FAILED;
		}
		EXEC SQL	FETCH cur_4 INTO :acField ;
		/* 数据库操作错 */
		if ( SQLCODE )
		{
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( SQLCODE );
			ERRLOG
			SQLCLOSECUR(cur_4,"cur_4")
			return FAILED;
		}
		SQLCLOSECUR(cur_4,"cur_4")
		strpack( acField );
		strcpy( pcField4, acField );
		iNum ++;
	}
	if ( iNum < pstCmsRuleDef->fldnum1 )
	{
		memset( acTblName,	0x00, sizeof( acTblName ) );
		memset( acStatment, 0x00, sizeof( acStatment ) );
		memset( acField,	0x00, sizeof( acField ) );
		memset( acWhrName,	0x00, sizeof( acWhrName ) );
		if ( !strlen( pstCmsRuleDef->fldsrcfld5 ) )
		{
			/* 卡号规则表数据错误 */
			strcpy( g_acRspCode, "CMS105" );
			pubCrtRspInfo( );
			ERRLOG
			return FAILED;
		}
		if ( !strlen( pstCmsRuleDef->fldsrctbl5 ) )
			strcpy( acTblName,	"cmscardkind" );
		else
			strcpy( acTblName,	pstCmsRuleDef->fldsrctbl5 );

		if ( !strlen( pstCmsRuleDef->fldwhr5 ) )
			strcpy( acWhrName,	"cardkind" );
		else
			strcpy( acWhrName,	pstCmsRuleDef->fldwhr5 );

		if ( !strlen( pstCmsRuleDef->fldsign5 ) )
			pstCmsRuleDef->fldsign5[ BIT1_LEN ] = SIGN_CARDKIND;

		if ( pstCmsRuleDef->fldsign5[ BIT1_LEN ] == SIGN_CARDKIND )
			sprintf( acStatment, "select %s from %s where %s ='%s'", \
						pstCmsRuleDef->fldsrcfld5,acTblName,acWhrName,
						pstCmsCardKind->cardkind );
		else
			sprintf( acStatment, "select %s from %s where %s ='%s'", \
						pstCmsRuleDef->fldsrcfld5,acTblName,acWhrName,
						pstPubcom->acBrc );

		strcpy( g_acTrcMsg, acStatment );
		TRCLOG2
		EXEC SQL	PREPARE pre_5 FROM :acStatment;
		/* 数据库操作错 */
		if ( SQLCODE )
		{
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( SQLCODE );
			ERRLOG
			return FAILED;
		}

		EXEC SQL	DECLARE cur_5 CURSOR FOR pre_5;
		SQLOPENCUR(cur_5,"cur_5")
		/* 数据库操作错 */
		if ( SQLCODE )
		{
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( SQLCODE );
			ERRLOG
			return FAILED;
		}
		EXEC SQL	FETCH cur_5 INTO :acField ;
		/* 数据库操作错 */
		if ( SQLCODE )
		{
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( SQLCODE );
			ERRLOG
			SQLCLOSECUR(cur_5,"cur_5")
			return FAILED;
		}
		SQLCLOSECUR(cur_5,"cur_5")
		strpack( acField );
		strcpy( pcField5, acField );
		iNum ++;
	}
	iNum = 0;
	if ( iNum < pstCmsRuleDef->fldnum2 )
	{
		memset( acTblName,	0x00, sizeof( acTblName ) );
		memset( acStatment, 0x00, sizeof( acStatment ) );
		memset( acField,	0x00, sizeof( acField ) );
		memset( acWhrName,	0x00, sizeof( acWhrName ) );
		if ( !strlen( pstCmsRuleDef->fldsrcfld6 ) )
		{
			/* 卡号规则表数据错误 */
			strcpy( g_acRspCode, "CMS105" );
			pubCrtRspInfo( );
			ERRLOG
			return FAILED;
		}
		if ( !strlen( pstCmsRuleDef->fldsrctbl6 ) )
			strcpy( acTblName,	"cmscardkind" );
		else
			strcpy( acTblName,	pstCmsRuleDef->fldsrctbl6 );

		if ( !strlen( pstCmsRuleDef->fldwhr6 ) )
			strcpy( acWhrName,	"cardkind" );
		else
			strcpy( acWhrName,	pstCmsRuleDef->fldwhr6 );

		if ( !strlen( pstCmsRuleDef->fldsign6 ) )
			pstCmsRuleDef->fldsign6[ BIT1_LEN ] = SIGN_CARDKIND;

		if ( pstCmsRuleDef->fldsign6[ BIT1_LEN ] == SIGN_CARDKIND )
			sprintf( acStatment, "select %s from %s where %s ='%s'", \
						pstCmsRuleDef->fldsrcfld6,acTblName,acWhrName,
						pstCmsCardKind->cardkind );
		else
			sprintf( acStatment, "select %s from %s where %s ='%s'", \
						pstCmsRuleDef->fldsrcfld6,acTblName,acWhrName,
						pstPubcom->acBrc );

		strcpy( g_acTrcMsg, acStatment );
		TRCLOG2
		EXEC SQL	PREPARE pre_6 FROM :acStatment;
		/* 数据库操作错 */
		if ( SQLCODE )
		{
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( SQLCODE );
			ERRLOG
			return FAILED;
		}

		EXEC SQL	DECLARE cur_6 CURSOR FOR pre_6;
		SQLOPENCUR(cur_6,"cur_6")
		/* 数据库操作错 */
		if ( SQLCODE )
		{
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( SQLCODE );
			ERRLOG
			return FAILED;
		}
		EXEC SQL	FETCH cur_6 INTO :acField ;
		/* 数据库操作错 */
		if ( SQLCODE )
		{
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( SQLCODE );
			ERRLOG
			SQLCLOSECUR(cur_6,"cur_6")
			return FAILED;
		}
		SQLCLOSECUR(cur_6,"cur_6")
		strpack( acField );
		strcpy( pcField6, acField );
		iNum ++;
	}
	if ( iNum < pstCmsRuleDef->fldnum2 )
	{
		memset( acTblName,	0x00, sizeof( acTblName ) );
		memset( acStatment, 0x00, sizeof( acStatment ) );
		memset( acField,	0x00, sizeof( acField ) );
		memset( acWhrName,	0x00, sizeof( acWhrName ) );
		if ( !strlen( pstCmsRuleDef->fldsrcfld7 ) )
		{
			/* 卡号规则表数据错误 */
			strcpy( g_acRspCode, "CMS105" );
			pubCrtRspInfo( );
			ERRLOG
			return FAILED;
		}
		if ( !strlen( pstCmsRuleDef->fldsrctbl7 ) )
			strcpy( acTblName,	"cmscardkind" );
		else
			strcpy( acTblName,	pstCmsRuleDef->fldsrctbl7 );

		if ( !strlen( pstCmsRuleDef->fldwhr7 ) )
			strcpy( acWhrName,	"cardkind" );
		else
			strcpy( acWhrName,	pstCmsRuleDef->fldwhr7 );

		if ( !strlen( pstCmsRuleDef->fldsign7 ) )
			pstCmsRuleDef->fldsign7[ BIT1_LEN ] = SIGN_CARDKIND;

		if ( pstCmsRuleDef->fldsign7[ BIT1_LEN ] == SIGN_CARDKIND )
			sprintf( acStatment, "select %s from %s where %s ='%s'", \
						pstCmsRuleDef->fldsrcfld7,acTblName,acWhrName,
						pstCmsCardKind->cardkind );
		else
			sprintf( acStatment, "select %s from %s where %s ='%s'", \
						pstCmsRuleDef->fldsrcfld7,acTblName,acWhrName,
						pstPubcom->acBrc );

		strcpy( g_acTrcMsg, acStatment );
		TRCLOG2
		EXEC SQL	PREPARE pre_7 FROM :acStatment;
		/* 数据库操作错 */
		if ( SQLCODE )
		{
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( SQLCODE );
			ERRLOG
			return FAILED;
		}

		EXEC SQL	DECLARE cur_7 CURSOR FOR pre_7;
		SQLOPENCUR(cur_7,"cur_7")
		/* 数据库操作错 */
		if ( SQLCODE )
		{
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( SQLCODE );
			ERRLOG
			return FAILED;
		}
		EXEC SQL	FETCH cur_7 INTO :acField ;
		/* 数据库操作错 */
		if ( SQLCODE )
		{
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( SQLCODE );
			ERRLOG
			SQLCLOSECUR(cur_7,"cur_7")
			return FAILED;
		}
		SQLCLOSECUR(cur_7,"cur_7")
		strpack( acField );
		strcpy( pcField7, acField );
		iNum ++;
	}
	if ( iNum < pstCmsRuleDef->fldnum2 )
	{
		memset( acTblName,	0x00, sizeof( acTblName ) );
		memset( acStatment, 0x00, sizeof( acStatment ) );
		memset( acField,	0x00, sizeof( acField ) );
		memset( acWhrName,	0x00, sizeof( acWhrName ) );
		if ( !strlen( pstCmsRuleDef->fldsrcfld8 ) )
		{
			/* 卡号规则表数据错误 */
			strcpy( g_acRspCode, "CMS105" );
			pubCrtRspInfo( );
			ERRLOG
			return FAILED;
		}
		if ( !strlen( pstCmsRuleDef->fldsrctbl8 ) )
			strcpy( acTblName,	"cmscardkind" );
		else
			strcpy( acTblName,	pstCmsRuleDef->fldsrctbl8 );

		if ( !strlen( pstCmsRuleDef->fldwhr8 ) )
			strcpy( acWhrName,	"cardkind" );
		else
			strcpy( acWhrName,	pstCmsRuleDef->fldwhr8 );

		if ( !strlen( pstCmsRuleDef->fldsign8 ) )
			pstCmsRuleDef->fldsign8[ BIT1_LEN ] = SIGN_CARDKIND;

		if ( pstCmsRuleDef->fldsign8[ BIT1_LEN ] == SIGN_CARDKIND )
			sprintf( acStatment, "select %s from %s where %s ='%s'", \
						pstCmsRuleDef->fldsrcfld8,acTblName,acWhrName,
						pstCmsCardKind->cardkind );
		else
			sprintf( acStatment, "select %s from %s where %s ='%s'", \
						pstCmsRuleDef->fldsrcfld8,acTblName,acWhrName,
						pstPubcom->acBrc );

		strcpy( g_acTrcMsg, acStatment );
		TRCLOG2
		EXEC SQL	PREPARE pre_8 FROM :acStatment;
		/* 数据库操作错 */
		if ( SQLCODE )
		{
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( SQLCODE );
			ERRLOG
			return FAILED;
		}

		EXEC SQL	DECLARE cur_8 CURSOR FOR pre_8;
		SQLOPENCUR(cur_8,"cur_8")
		/* 数据库操作错 */
		if ( SQLCODE )
		{
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( SQLCODE );
			ERRLOG
			return FAILED;
		}
		EXEC SQL	FETCH cur_8 INTO :acField ;
		/* 数据库操作错 */
		if ( SQLCODE )
		{
			strcpy( g_acRspCode, "CMS1A7" );
			pubCrtRspInfo( SQLCODE );
			ERRLOG
			SQLCLOSECUR(cur_8,"cur_8")
			return FAILED;
		}
		SQLCLOSECUR(cur_8,"cur_8")
		strpack( acField );
		strcpy( pcField8, acField );
		iNum ++;
	}
	return SUCCESS;
}