cif_ps.c

UNIX/LINUX平台下面SMS网管原代码

	if ( ps_info.status == STATUS_DISA ) {
		bs->result = 8010 ;		/* 该客户已注销*/
		return( FAILURE) ;
	}

	memset( (char *)&ps_acc_reg, '\0', sizeof( ps_acc_reg)) ;
	strcpy( ps_acc_reg.cid, bs->cid) ;
	strcpy( ps_acc_reg.aid, bs->debi_aid) ;

	if ( (ret=DB_search_ps_acc_reg_on_aid( &ps_acc_reg)) != SUCCESS ) {
		if ( ret < FAILURE ) {
/*			fprintf(stdout, "CMS[%d] c8131 search_ps_acc_reg_on_aid[%d]!", mypid, ret) ;*/
			bs->result = DATABASE_PROGRAM_ERROR ;
		} else bs->result = 8016 ;	/* 缴费帐户序号不存在*/
		return( FAILURE) ;
	}

	memset( (char *)&consign, '\0', sizeof( consign)) ;
	consign.consign_id = bs->deduct_type ;
	if ( (ret=DB_search_consign( &consign)) != SUCCESS ) {
		if ( ret < FAILURE ) {
			bs->result = DATABASE_PROGRAM_ERROR ;
		} else bs->result = 8017 ;	/* 缴费种类没有定义*/
		return( FAILURE) ;
	}

	memset( (char *)&proxyfixauth, '\0', sizeof( proxyfixauth)) ;
	SetProxyFixAuth( bs, &consign, &ps_info, &proxyfixauth) ;

	if ( (ret=DB_search_proxyfixauth( &proxyfixauth)) != 100 ) {
		if ( ret == SUCCESS ) {
			bs->result = 8018 ;	/* 访缴费种类已经登记*/
			return( FAILURE) ;
		}
/*		fprintf(stdout, "CMS[%d] c8131 search_proxyfixauth[%d]!", mypid,ret) ;*/
		bs->result = DATABASE_PROGRAM_ERROR ;
		return( FAILURE) ;
	}
	memset( (char *)&proxyfixauth, '\0', sizeof( proxyfixauth)) ;
	SetProxyFixAuth( bs, &consign, &ps_info, &proxyfixauth) ;

	if ( (ret=DB_add_proxyfixauth( &proxyfixauth)) != SUCCESS ) {
/*		fprintf(stdout, "CMS[%d] c8131 add_proxyfixauth[%d]!", mypid, ret) ;*/
		bs->result = DATABASE_PROGRAM_ERROR ;
		return( FAILURE) ;
	}
	return( SUCCESS) ;
}

int SetProxyFixAuth( BIG_STRC *bs, CONSIGN *consign, PERSON_INFO *ps_info, PROXYFIXAUTH *pfa)
{
	strcpy( pfa->zoneno, ps_info->zoneno) ;	/* 地区号*/
	strcpy( pfa->cid, bs->cid) ;		/* 客户号*/
	pfa->datumno = bs->deduct_type ;	/* 缴费种类*/
	/*pfa->unitno = atoi( consign->fisq) ;*/	/* 公司代码*/
	pfa->unitno = 0 ;			/* 公司代码*/
	strcpy( pfa->aid, bs->debi_aid) ;	/* 缴费帐号 */
	if (strcmp(bs->notes1,"")==0)
	{
		strcpy(bs->notes1,"null");
	}

	strncpy( pfa->said, bs->notes1, 20) ;	/* 单据编号*/
	if (strcmp(bs->notes2,"")==0)
	{
		strcpy(bs->notes2,"null");
	}
	strncpy( pfa->name, bs->notes2, 20) ;	/* 单据姓名*/
	strcpy( pfa->address, bs->notes3) ;	/* 地址*/
	pfa->status = STATUS_ACTIVE ;		/* 状态 */

	strcpy( pfa->reg_teller, bs->teller) ;
	strcpy( pfa->reg_brch, bs->term_no);
	pub_get_year_second( pfa->reg_date) ;
	strcpy( pfa->modi_teller, bs->teller) ;
	strcpy( pfa->modi_brch, bs->term_no) ;
	pub_get_year_second( pfa->modi_date) ;

	return( SUCCESS) ;
}

/* ------------------------------------------------------------------------
功  能: 查询代理业务信息  交易码: 8132
--------------------------------------------------------------------------- */
int c8132( TRADE_HEAD *tr_h, BIG_STRC *bs)
{
	PERSON_INFO ps_info ;
	int ret ;

	memset( (char *)&ps_info, '\0', sizeof( ps_info)) ;

	/*  查询客户是否存在,并取得客户号证件和客户姓名*/
	ret = DB_search_ps_info( bs->cid, bs->pz_type, bs->pz_num, &ps_info) ;
	if ( ret != SUCCESS ) {
		if ( ret != 100 ) {
			bms_trace("CMS[%d] c8133 search_ps_info[%d]!", mypid, ret) ;
			bs->result = DATABASE_PROGRAM_ERROR ;
		} else bs->result = 8004 ; /* 客户档案信息不存在*/
		return( FAILURE) ;
	}

	strcpy( bs->cid, ps_info.cid) ;		/* 客户号*/
	bs->pz_type = ps_info.ic_type ;		/* 证件种类*/
	strcpy( bs->pz_num, ps_info.ic_no) ;	/* 证件号码*/
	if ( ps_info.status == STATUS_DISA ) {
		bs->result = 8010 ;		/* 该客户已注销*/
		return( FAILURE) ;
	}

	if ( (ret=DB_query_proxyfixauth( bs->cid)) != SUCCESS) {
		if ( ret != FAILURE ) {
			bms_trace("BMS[%d] c8132 query_proxyfixauth[%d]!", mypid, ret) ;
			bs->result = DATABASE_PROGRAM_ERROR ;
		} else bs->result = 8019 ;	/* 无代理业务信息*/
		return( FAILURE) ;
	}
	return( SUCCESS) ;
}

/* ------------------------------------------------------------------------
功  能: 注销代理业务  交易码: 8133
--------------------------------------------------------------------------- */
int c8133( TRADE_HEAD *tr_h, BIG_STRC *bs)
{
	PERSON_INFO ps_info ;
	CONSIGN consign ;
	PROXYFIXAUTH proxyfixauth ;
	int ret ;

	memset( (char *)&ps_info, '\0', sizeof( ps_info)) ;

	if (bs->side==2)
	{
		memcpy( bs->cid, tr_h->bk_h.id, 11);
	/*  查询客户是否存在,并取得客户号证件和客户姓名*/
	ret = DB_search_ps_info( bs->cid, bs->pz_type, "", &ps_info) ;
	if ( ret != SUCCESS ) {
		if ( ret != 100 ) {
/*			fprintf(stdout, "CMS[%d] c8112 search_ps_info[%d]!", mypid, ret) ;*/
			bs->result = DATABASE_PROGRAM_ERROR ;
		} else bs->result = 8004 ; /* 客户档案信息不存在*/
		return( FAILURE) ;
	}
		if (strcmp( ps_info.ic_no,bs->pz_num)!=0)
		{
			bs->result = 4000;/*身份证号不对*/
			return( FAILURE) ;
		}
	}

	/*  查询客户是否存在,并取得客户号证件和客户姓名*/
	ret = DB_search_ps_info( bs->cid, bs->pz_type, bs->pz_num, &ps_info) ;
	if ( ret != SUCCESS ) {
		if ( ret != 100 ) {
			bms_trace("CMS[%d] c8133 search_ps_info[%d]!", mypid, ret) ;
			bs->result = DATABASE_PROGRAM_ERROR ;
		} else bs->result = 8004 ; /* 客户档案信息不存在*/
		return( FAILURE) ;
	}

	strcpy( bs->cid, ps_info.cid) ;		/* 客户号*/
	bs->pz_type = ps_info.ic_type ;		/* 证件种类*/
	strcpy( bs->pz_num, ps_info.ic_no) ;	/* 证件号码*/
	if ( ps_info.status == STATUS_DISA ) {
		bs->result = 8010 ;		/* 该客户已注销*/
		return( FAILURE) ;
	}

	memset( (char *)&consign, '\0', sizeof( consign)) ;
	consign.consign_id = bs->deduct_type ;
	if ( (ret=DB_search_consign( &consign)) != SUCCESS ) {
		if ( ret < FAILURE ) {
			bms_trace("CMS[%d] c8133 search_consign[%d]!", mypid, ret) ;
			bs->result = DATABASE_PROGRAM_ERROR ;
		} else bs->result = 8017 ;	/* 缴费种类没有定义*/
		return( FAILURE) ;
	}

	memset( (char *)&proxyfixauth, '\0', sizeof( proxyfixauth)) ;
	strcpy( proxyfixauth.cid, bs->cid) ;
	proxyfixauth.datumno = bs->deduct_type ;
	if ( (ret=DB_search_proxyfixauth( &proxyfixauth)) != SUCCESS ) {
		if ( ret < FAILURE ) {
			bms_trace("CMS[%d] c8133 search_proxyfixauth[%d]!", mypid,ret) ;
			bs->result = DATABASE_PROGRAM_ERROR ;
		} else bs->result = 8020 ;	/* 没有登记此项代理业务*/
		return( FAILURE) ;
	}

	if ( (ret=DB_del_proxyfixauth( &proxyfixauth)) != SUCCESS ) {
		bms_trace("CMS[%d] c8133 del_proxyfixauth[%d]!", mypid, ret) ;
		bs->result = DATABASE_PROGRAM_ERROR ;
		return( FAILURE) ;
	}
	return( SUCCESS) ;
}

/* ------------------------------------------------------------------------
功  能: 查询单笔代理业务  交易码: 8134
--------------------------------------------------------------------------- */
int c8134( TRADE_HEAD *tr_h, BIG_STRC *bs)
{
	PERSON_INFO ps_info ;
	CONSIGN consign ;
	PROXYFIXAUTH proxyfixauth ;
	PS_ACC_REG ps_acc_reg ;
	int ret ;

	memset( (char *)&ps_info, '\0', sizeof( ps_info)) ;

	/*  查询客户是否存在,并取得客户号证件和客户姓名*/
	ret = DB_search_ps_info( bs->cid, bs->pz_type, bs->pz_num, &ps_info) ;
	if ( ret != SUCCESS ) {
		if ( ret != 100 ) {
			bms_trace("CMS[%d] c8134 search_ps_info[%d]!", mypid, ret) ;
			bs->result = DATABASE_PROGRAM_ERROR ;
		} else bs->result = 8004 ; /* 客户档案信息不存在*/
		return( FAILURE) ;
	}

	strcpy( bs->cid, ps_info.cid) ;		/* 客户号*/
	bs->pz_type = ps_info.ic_type ;		/* 证件种类*/
	strcpy( bs->pz_num, ps_info.ic_no) ;	/* 证件号码*/
	if ( ps_info.status == STATUS_DISA ) {
		bs->result = 8010 ;		/* 该客户已注销*/
		return( FAILURE) ;
	}

	memset( (char *)&consign, '\0', sizeof( consign)) ;
	consign.consign_id = bs->deduct_type ;
	if ( (ret=DB_search_consign( &consign)) != SUCCESS ) {
		if ( ret < FAILURE ) {
			bms_trace("CMS[%d] c8134 search_consign[%d]!", mypid, ret) ;
			bs->result = DATABASE_PROGRAM_ERROR ;
		} else bs->result = 8017 ;	/* 缴费种类没有定义*/
		return( FAILURE) ;
	}

	memset( (char *)&proxyfixauth, '\0', sizeof( proxyfixauth)) ;
	strcpy( proxyfixauth.cid, bs->cid) ;
	proxyfixauth.datumno = bs->deduct_type ;

	if ( (ret=DB_search_proxyfixauth(&proxyfixauth)) != SUCCESS ) {
		if ( ret < FAILURE ) {
			bms_trace("CMS[%d] c8134 search_proxyfixauth[%d]!", mypid,ret) ;
			bs->result = DATABASE_PROGRAM_ERROR ;
		} else bs->result = 8020 ;	/* 没有登记此项代理业务*/
		return( FAILURE) ;
	}

	memset( (char *)&ps_acc_reg, '\0', sizeof( ps_acc_reg)) ;
	strcpy( ps_acc_reg.cid, bs->cid) ;
	strcpy( ps_acc_reg.aid, proxyfixauth.aid) ;

	if ( (ret=DB_search_ps_acc_reg_on_aid( &ps_acc_reg)) != SUCCESS ) {
		if ( ret < FAILURE ) {
			bms_trace("CMS[%d] c8134 search_ps_acc_reg_on_aid[%d]!", mypid, ret) ;
			bs->result = DATABASE_PROGRAM_ERROR ;
		} else bs->result = 8016 ;	/* 缴费帐户序号不存在*/
		return( FAILURE) ;
	}

	WriteProxyFixAuthInfo( &proxyfixauth, &consign, &ps_acc_reg, bs) ;
	return( SUCCESS) ;
}

int WriteProxyFixAuthInfo( PROXYFIXAUTH *pfa, CONSIGN *consign, \
			PS_ACC_REG *ps_acc_reg, BIG_STRC *bs)
{
	sprintf( bs->rate, "%04d", pfa->unitno) ;	/* 公司代码*/
	strcpy( bs->sonsign_no, consign->consign) ;	/* 公司名称*/
	strcpy( bs->debi_aid, pfa->aid) ;		/* 缴费帐号编号*/
	strcpy( bs->debi_acct, ps_acc_reg->account) ;	/* 缴费帐号*/
	strcpy( bs->debi_aid, pfa->aid) ;		/* 缴费帐号*/
	strcpy( bs->tele, pfa->said) ;			/* 单据编号*/
	strcpy( bs->name, pfa->name) ;			/* 单据姓名*/
	strcpy( bs->address, pfa->address) ;		/* 地址*/
	sprintf( bs->notes1, "%1d", pfa->status) ;	/* 状态 */

	strcpy( bs->notes2, pfa->reg_teller) ;
	strcpy( bs->notes3, pfa->reg_date) ;
	strcpy( bs->notes4, pfa->modi_teller) ;
	strcpy( bs->notes5, pfa->modi_date) ;

	return( SUCCESS) ;
}

/* ------------------------------------------------------------------------
功  能: 查询证券相关信息  交易码: 8140
--------------------------------------------------------------------------- */
int c8140( TRADE_HEAD *tr_h, BIG_STRC *bs)
{
	PERSON_INFO ps_info ;
	PS_RELINFO ps_relinfo ;
	PS_ACC_REG ps_acc_reg ;
	int ret ;

	memset( (char *)&ps_info, '\0', sizeof( ps_info)) ;

	/*  查询客户是否存在,并取得客户号证件和客户姓名*/
	ret = DB_search_ps_info( bs->cid, bs->pz_type, bs->pz_num, &ps_info) ;
	if ( ret != SUCCESS ) {
		if ( ret != 100 ) {
			bms_trace("CMS[%d] c8140 search_ps_info[%d]!", mypid, ret) ;
			bs->result = DATABASE_PROGRAM_ERROR ;
		} else bs->result = 8004 ; /* 客户档案信息不存在*/
		return( FAILURE) ;
	}

	strcpy( bs->cid, ps_info.cid) ;		/* 客户号*/
	bs->pz_type = ps_info.ic_type ;		/* 证件种类*/
	strcpy( bs->pz_num, ps_info.ic_no) ;	/* 证件号码*/
	if ( ps_info.status == STATUS_DISA ) {
		bs->result = 8010 ;		/* 该客户已注销*/
		return( FAILURE) ;
	}

	memset( (char *)&ps_relinfo, '\0', sizeof( ps_relinfo)) ;
	if ( (ret=DB_search_ps_relinfo( bs->cid, &ps_relinfo)) != SUCCESS ) {
		if ( ret < FAILURE ) {
			bms_trace("CMS[%d] c8140 search_relinfo[%d]!", mypid,ret) ;
			bs->result = DATABASE_PROGRAM_ERROR ;
		} else bs->result = 8021 ;	/* 无证券相关信息*/
		return( FAILURE) ;
	}

	memset( (char *)&ps_acc_reg, '\0', sizeof( ps_acc_reg)) ;
	strcpy( ps_acc_reg.cid, bs->cid) ;
	strcpy( ps_acc_reg.aid, ps_relinfo.shaid) ;
	if ( (ret=DB_search_ps_acc_reg_on_aid( &ps_acc_reg)) != SUCCESS ) {
		if ( ret < FAILURE ) {
			bms_trace("CMS1[%d] c8140 search_ps_acc_reg_on_aid[%d]!", mypid, ret) ;
			bs->result = DATABASE_PROGRAM_ERROR ;
		} else bs->result = 8023 ;	/* 银行帐号不存在*/
		return( FAILURE) ;
	}
	strcpy( bs->address, ps_acc_reg.account) ;

/*
	memset( (char *)&ps_acc_reg, '\0', sizeof( ps_acc_reg)) ;
	strcpy( ps_acc_reg.cid, bs->cid) ;
	strcpy( ps_acc_reg.aid, ps_relinfo.szaid) ;
	if ( (ret=DB_search_ps_acc_reg_on_aid( &ps_acc_reg)) != SUCCESS ) {
		if ( ret < FAILURE ) {
			bms_trace("CMS[%d] c8140 search_ps_acc_reg_on_aid[%d]!", mypid, ret) ;
			bs->result = DATABASE_PROGRAM_ERROR ;
		} else bs->result = 8023 ;	
		return( FAILURE) ;
	}

	strcpy( bs->name, ps_acc_reg.account) ;
	strcpy( bs->address, ps_relinfo.shaid) ;
	strcpy( bs->name, ps_relinfo.szaid) ;
*/
	WritePsRelInfo( &ps_relinfo, bs) ;

	strcpy(bs->sonsign_no, ps_info.func_def);

	return( SUCCESS) ;
}

int WritePsRelInfo( PS_RELINFO *ps_relinfo, BIG_STRC *bs)
{
	strncpy( bs->abstract, ps_relinfo->shstkhdno, 10) ;
	strncpy( bs->rate, ps_relinfo->shfundno, 10) ;
	strcpy( bs->debi_bank, ps_relinfo->shstockcono) ;
	strcpy( bs->debi_acct, ps_relinfo->shsbailno) ;
	strcpy( bs->debi_aid, ps_relinfo->shaid) ;
	strcpy( bs->tele, ps_relinfo->shfuncodno) ;
	strcpy( bs->incall_num, ps_relinfo->shfbailno) ;

	strncpy( bs->notes1, ps_relinfo->szstkhdno, 10) ;
	strncpy( bs->notes2, ps_relinfo->szfundno, 10) ;
	strcpy( bs->cred_bank, ps_relinfo->szstockcono) ;
	strcpy( bs->cred_acct, ps_relinfo->szsbailno) ;
	strcpy( bs->cred_aid, ps_relinfo->szaid) ;
	strcpy( bs->notes3, ps_relinfo->szfuncodno) ;
	strcpy( bs->notes4, ps_relinfo->szfbailno) ;
	strcpy( bs->auther, ps_relinfo->reg_teller) ;
	strcpy( bs->auth_no, ps_relinfo->reg_brch) ;
	strcpy( bs->notes5, ps_relinfo->reg_date) ;

	return( SUCCESS) ;
}

/* ------------------------------------------------------------------------
功  能: 登记银证转帐功能  交易码: 8141
--------------------------------------------------------------------------- */
int c8141( TRADE_HEAD *tr_h, BIG_STRC *bs)
{
	PERSON_INFO ps_info ;
	PS_ACC_REG ps_acc_reg ;
	PS_RELINFO ps_relinfo ;
	int ret ;

	memset( (char *)&ps_info, '\0', sizeof( ps_info)) ;

	/*  查询客户是否存在,并取得客户号证件和客户姓名*/
	ret = DB_search_ps_info( bs->cid, bs->pz_type, bs->pz_num, &ps_info) ;
	if ( ret != SUCCESS ) {
		if ( ret != 100 ) {
			bms_trace("CMS[%d] c8141 search_ps_info[%d]!", mypid, ret) ;
			bs->result = DATABASE_PROGRAM_ERROR ;
		} else bs->result = 8004 ; /* 客户档案信息不存在*/
		return( FAILURE) ;
	}

	strcpy( bs->cid, ps_info.cid) ;		/* 客户号*/
	bs->pz_type = ps_info.ic_type ;		/* 证件种类*/
	strcpy( bs->pz_num, ps_info.ic_no) ;	/* 证件号码*/
	if ( ps_info.status == STATUS_DISA ) {
		bs->result = 8010 ;		/* 该客户已注销*/
		return( FAILURE) ;
	}

	if ( ps_info.func_def[ 0] == '1' ) {
		bs->result = 8022 ;		/* 银证转帐已登记*/
		return( FAILURE) ;
	} 

	memset( (char *)&ps_acc_reg, '\0', sizeof( ps_acc_reg)) ;
	strcpy( ps_acc_reg.cid, bs->cid) ;
	strcpy( ps_acc_reg.aid, bs->debi_aid) ;

	if ( (ret=DB_search_ps_acc_reg_on_aid( &ps_acc_reg)) != SUCCESS ) {
		if ( ret < FAILURE ) {
			bms_trace("CMS[%d] c8141 search_ps_acc_reg_on_aid[%d]!", mypid, ret) ;
			bs->result = DATABASE_PROGRAM_ERROR ;
		} else bs->result = 8023 ;	/* 银行帐号不存在*/
		return( FAILURE) ;
	}

	memset( (char *)&ps_relinfo, '\0', sizeof( ps_relinfo)) ;
	SetBSRelInfo( bs, &ps_relinfo, &ps_info) ;

	if ( (ret=DB_add_BSrelinfo( &ps_relinfo)) != SUCCESS ) {
		bms_trace("CMS[%d] c8141 add_BSrelinfo[%d]!", mypid, ret) ;
		bs->result = DATABASE_PROGRAM_ERROR ;
		return( FAILURE) ;
	}

	return( SUCCESS) ;
}

int SetBSRelInfo( BIG_STRC *bs, PS_RELINFO *ps_relinfo, PERSON_INFO *ps_info)
{
	strcpy( ps_relinfo->zoneno, ps_info->zoneno) ;	/* 地区号*/
	strcpy( ps_relinfo->cid, bs->cid) ;
	strcpy( ps_relinfo->shaid, bs->debi_aid) ;
	strcpy( ps_relinfo->shsbailno, bs->debi_acct) ;
	strcpy( ps_relinfo->shstockcono, bs->debi_bank) ;
	strcpy( ps_relinfo->szaid, bs->debi_aid) ;
	strcpy( ps_relinfo->szsbailno, bs->debi_acct) ;
	strcpy( ps_relinfo->szstockcono, bs->debi_bank) ;
	strcpy( ps_relinfo->reg_teller, bs->teller) ;
	strcpy( ps_relinfo->reg_brch, bs->term_no);
	pub_get_year_second( ps_relinfo->reg_date) ;
	strcpy( ps_relinfo->modi_teller, bs->teller) ;
	strcpy( ps_relinfo->modi_brch, bs->term_no) ;
	pub_get_year_second( ps_relinfo->modi_date) ;
	return( SUCCESS) ;
}

/* ------------------------------------------------------------------------
功  能: 注销银证转帐功能  交易码: 8142
--------------------------------------------------------------------------- */
int c8142( TRADE_HEAD *tr_h, BIG_STRC *bs)
{
	PERSON_INFO ps_info ;
	PS_RELINFO ps_relinfo ;
	int ret ;

	memset( (char *)&ps_info, '\0', sizeof( ps_info)) ;

	/*  查询客户是否存在,并取得客户号证件和客户姓名*/
	ret = DB_search_ps_info( bs->cid, bs->pz_type, bs->pz_num, &ps_info) ;
	if ( ret != SUCCESS ) {
		if ( ret != 100 ) {
			bms_trace("CMS[%d] c8142 search_ps_info[%d]!", mypid, ret) ;
			bs->result = DATABASE_PROGRAM_ERROR ;
		} else bs->result = 8004 ; /* 客户档案信息不存在*/
		return( FAILURE) ;
	}

	strcpy( bs->cid, ps_info.cid) ;		/* 客户号*/
	bs->pz_type = ps_info.ic_type ;		/* 证件种类*/
	strcpy( bs->pz_num, ps_info.ic_no) ;	/* 证件号码*/
	if ( ps_info.status == STATUS_DISA ) {
		bs->result = 8010 ;		/* 该客户已注销*/
		return( FAILURE) ;
	}

	if ( ps_info.func_def[ 0] == '0' ) {
		bs->result = 8024 ;		/* 银证转帐功能未登记*/
		return( FAILURE) ;
	} 

	memset( (char *)&ps_relinfo, '\0', sizeof( ps_relinfo)) ;
	strcpy( ps_relinfo.cid, bs->cid) ;

	if ( (ret=DB_del_BSrelinfo( &ps_relinfo)) != SUCCESS ) {
		bms_trace("CMS[%d] c8142 del_BSrelinfo[%d]!", mypid, ret) ;
		bs->result = DATABASE_PROGRAM_ERROR ;
		return( FAILURE) ;
	}

	return( SUCCESS) ;
}