wca6520.pc

this can resolve the problem ,which answer the communication such as in opentp one envierment.

* 婡擻奣梫	丗	嫟捠僄儔乕僷働僢僩偵抣傪僙僢僩偡傞丅乮Oracle僄儔乕梡乯
* 栠傝抣	丗	側偟
*************************************************************************************************/
static	void lf_errpkt_set_ora(
	struct	tag_wcaerrpkt	*pst_wcaerrpkt,			/* 嫟捠僄儔乕僷働僢僩億僀儞僞				*/
	char	*pwk_table_name,						/* 僥乕僽儖柤								*/
	char	*pwk_sql_action,						/* SQL摦嶌									*/
	long	wk_position_main						/* 僄儔乕億僕僔儑儞乮儊僀儞乯				*/
) {
	strcpy(pst_wcaerrpkt->sub_module_id, DEF_PROG_ID);
	strcpy(pst_wcaerrpkt->prog_src_id, __FILE__);
	strcpy(pst_wcaerrpkt->table_name, pwk_table_name);
	strcpy(pst_wcaerrpkt->sql_action, pwk_sql_action);
	pst_wcaerrpkt->return_cd = CNS_EXIT_ERROR;
	pst_wcaerrpkt->position_main = wk_position_main;
	pst_wcaerrpkt->ora_cd = sqlca.sqlcode;

	return ;
}

/*************************************************************************************************
* 娭悢柤	:	lf_set_kzfk_nml
* 婡擻奣梫	:	岥嵗怳懼娗棟僥乕僽儖峔憿懱曇廤張棟(僼僃僢僠NORMAL)
* 栠傝抣	:	側偟
*************************************************************************************************/
static	void lf_set_kzfk_nml(
	struct	tag_wcacalpkt	*pst_wcacalpkt,			/* 嫟捠僇儗儞僟乕僷働僢僩					*/
	struct	tag_wcatkzfj	*pst_wcatkzfj,			/* 岥嵗怳懼忣曬僥乕僽儖峔憿懱				*/
	struct	tag_wcatkzfk	*pst_wcatkzfk,			/* 岥嵗怳懼娗棟僥乕僽儖峔憿懱				*/
	char	*pwk_sequence,							/* 儕傾儖岥怳張棟捠斣儚乕僋					*/
	long	wk_batch_sup_count,						/* 僶僢僠張棟SUP婲摦悢						*/
	long	wk_process_grp_add						/* 怳懼張棟僌儖乕僾壛嶼悢					*/
) {
	/*--- 儘乕僇儖曄悢偺掕媊							---*/
	long	wk_sequence_div;						/* 儕傾儖岥怳張棟捠斣儚乕僋					*/

	/*--- 撪晹曄悢偺弶婜壔								---*/
	wk_sequence_div = 0;

	/*--- 岥嵗怳懼娗棟僥乕僽儖峔憿懱曇廤張棟			---*/
	/*--- 怳懼張棟捠斣曇廤								---*/
	memcpy(pst_wcatkzfk->furikae_shori_tuban, pst_wcacalpkt->shori_ymd, 8);
	memcpy(pst_wcatkzfk->furikae_shori_tuban + 8, pwk_sequence, 5);

	/*--- 怳懼張棟僌儖乕僾曇廤							---*/
	wk_sequence_div = atol(pwk_sequence);
	if (0 == (wk_sequence_div % wk_batch_sup_count)) {
		strcpy(pst_wcatkzfk->furikae_shori_grp, "23");
	} else {
		sprintf(pst_wcatkzfk->furikae_shori_grp, "%ld", 
								((wk_sequence_div % wk_batch_sup_count) + wk_process_grp_add));
	}

	/*--- 怳懼張棟梷巭嬫暘曇廤							---*/
	strcpy(pst_wcatkzfk->furikae_shori_yks_kbn, "1");

	/*--- 儐乕僓僐乕僪曇廤								---*/
	strcpy(pst_wcatkzfk->user_cd, pst_wcatkzfj->user_cd);

	/*--- 岥嵗斣崋曇廤									---*/
	strcpy(pst_wcatkzfk->koza_no, pst_wcatkzfj->koza_no);

	/*--- 怳懼巜帵嬫暘曇廤								---*/
	strcpy(pst_wcatkzfk->furikae_siji_kbn, pst_wcatkzfj->furikae_siji_kbn);

	/*--- 僶僢僠張棟嬫暘曇廤							---*/
	strcpy(pst_wcatkzfk->bt_shori_kbn, pst_wcatkzfj->bt_shori_kbn);

	/*--- 怳懼掲嬫暘曇廤								---*/
	strcpy(pst_wcatkzfk->furikae_sime_kbn, pst_wcatkzfj->furikae_sime_kbn);

	/*--- 張棟忬嫷嬫暘曇廤								---*/
	strcpy(pst_wcatkzfk->shori_jokyo_kbn, pst_wcatkzfj->shori_jokyo_kbn);

	/*--- 怳懼張棟僄儔乕僐乕僪曇廤						---*/
	strcpy(pst_wcatkzfk->furikae_shori_err_cd, pst_wcatkzfj->furikae_shori_err_cd);

	/*--- 儗僐乕僪嶌惉擭寧擔曇廤						---*/
	strcpy(pst_wcatkzfk->rec_sk_ymd, pst_wcatkzfj->rec_sk_ymd);

	/*--- 儗僐乕僪嶌惉帪崗曇廤							---*/
	strcpy(pst_wcatkzfk->rec_sk_time, pst_wcatkzfj->rec_sk_time);

	/*--- 儗僐乕僪峏怴擭寧擔曇廤						---*/
	strcpy(pst_wcatkzfk->rec_up_ymd, pst_wcatkzfj->rec_up_ymd);

	/*--- 儗僐乕僪峏怴帪崗曇廤							---*/
	strcpy(pst_wcatkzfk->rec_up_time, pst_wcatkzfj->rec_up_time);

	/*--- 棙梡幰強懏晹揦曇廤							---*/
	strcpy(pst_wcatkzfk->riyosha_btn_cd, pst_wcatkzfj->riyosha_btn_cd);

	/*--- 儐乕僓ID曇廤									---*/
	strcpy(pst_wcatkzfk->user_id, pst_wcatkzfj->user_id);

	/*--- 擖椡尦僐儞僺儏乕僞柤曇廤						---*/
	strcpy(pst_wcatkzfk->inmt_computer, pst_wcatkzfj->inmt_computer);

	/*--- 僞僀儉僗僞儞僾曇廤							---*/
	strcpy(pst_wcatkzfk->timestmp, pst_wcatkzfj->timestmp);

	return ;
}

/*************************************************************************************************
* 娭悢柤	:	lf_set_kzfk_nfd
* 婡擻奣梫	:	岥嵗怳懼娗棟僥乕僽儖峔憿懱僄儞僪儗僐乕僪曇廤張棟(僼僃僢僠NOTFOUND)
* 栠傝抣	:	側偟
*************************************************************************************************/
static	void lf_set_kzfk_nfd(
	struct	tag_wcacalpkt	*pst_wcacalpkt,			/* 嫟捠僇儗儞僟乕僷働僢僩					*/
	struct	tag_wcatkzfj	*pst_wcatkzfj,			/* 岥嵗怳懼忣曬僥乕僽儖峔憿懱				*/
	struct	tag_wcatkzfk	*pst_wcatkzfk,			/* 岥嵗怳懼娗棟僥乕僽儖峔憿懱				*/
	long	wk_batch_sup_count						/* 僶僢僠張棟SUP婲摦悢						*/
) {
	WCA_DEBUG(DEF_PROG_ID, "****** 僄儞僪儗僐乕僪曇廤張棟(僼僃僢僠NOTFOUND) ******\n");

	/*--- 怳懼張棟捠斣曇廤								---*/
	memcpy(pst_wcatkzfk->furikae_shori_tuban, pst_wcacalpkt->shori_ymd, 8);
	memcpy(pst_wcatkzfk->furikae_shori_tuban + 8, "ENDPR", 5);

	/*--- 怳懼張棟僌儖乕僾曇廤							---*/
	if (1 == wk_batch_sup_count) {
		strcpy(pst_wcatkzfk->furikae_shori_grp, "21");
	} else if (2 == wk_batch_sup_count) {
		strcpy(pst_wcatkzfk->furikae_shori_grp, "22");
	} else if (3 == wk_batch_sup_count) {
		strcpy(pst_wcatkzfk->furikae_shori_grp, "23");
	}

	/*--- 怳懼張棟梷巭嬫暘曇廤							---*/
	strcpy(pst_wcatkzfk->furikae_shori_yks_kbn, "1");

	/*--- 儐乕僓僐乕僪曇廤								---*/
	strcpy(pst_wcatkzfk->user_cd, pst_wcatkzfj->user_cd);

	/*--- 岥嵗斣崋曇廤									---*/
	strcpy(pst_wcatkzfk->koza_no, pst_wcatkzfj->koza_no);

	/*--- 怳懼巜帵嬫暘曇廤								---*/
	strcpy(pst_wcatkzfk->furikae_siji_kbn, pst_wcatkzfj->furikae_siji_kbn);

	/*--- 僶僢僠張棟嬫暘曇廤							---*/
	strcpy(pst_wcatkzfk->bt_shori_kbn, pst_wcatkzfj->bt_shori_kbn);

	/*--- 怳懼掲嬫暘曇廤								---*/
	strcpy(pst_wcatkzfk->furikae_sime_kbn, pst_wcatkzfj->furikae_sime_kbn);

	/*--- 張棟忬嫷嬫暘曇廤								---*/
	strcpy(pst_wcatkzfk->shori_jokyo_kbn, pst_wcatkzfj->shori_jokyo_kbn);

	/*--- 怳懼張棟僄儔乕僐乕僪曇廤						---*/
	strcpy(pst_wcatkzfk->furikae_shori_err_cd, pst_wcatkzfj->furikae_shori_err_cd);

	/*--- 儗僐乕僪嶌惉擭寧擔曇廤						---*/
	strcpy(pst_wcatkzfk->rec_sk_ymd, pst_wcatkzfj->rec_sk_ymd);

	/*--- 儗僐乕僪嶌惉帪崗曇廤							---*/
	strcpy(pst_wcatkzfk->rec_sk_time, pst_wcatkzfj->rec_sk_time);

	/*--- 儗僐乕僪峏怴擭寧擔曇廤						---*/
	strcpy(pst_wcatkzfk->rec_up_ymd, pst_wcatkzfj->rec_up_ymd);

	/*--- 儗僐乕僪峏怴帪崗曇廤							---*/
	strcpy(pst_wcatkzfk->rec_up_time, pst_wcatkzfj->rec_up_time);

	/*--- 棙梡幰強懏晹揦曇廤							---*/
	strcpy(pst_wcatkzfk->riyosha_btn_cd, pst_wcatkzfj->riyosha_btn_cd);

	/*--- 儐乕僓ID曇廤									---*/
	strcpy(pst_wcatkzfk->user_id, pst_wcatkzfj->user_id);

	/*--- 擖椡尦僐儞僺儏乕僞柤曇廤						---*/
	strcpy(pst_wcatkzfk->inmt_computer, pst_wcatkzfj->inmt_computer);

	/*--- 僞僀儉僗僞儞僾曇廤							---*/
	strcpy(pst_wcatkzfk->timestmp, pst_wcatkzfj->timestmp);

	return ;
}

/*************************************************************************************************
* 娭悢柤	:	lf_set_kzfk_nrd
* 婡擻奣梫	:	岥嵗怳懼娗棟僥乕僽儖峔憿懱僄儞僪儗僐乕僪曇廤張棟(僼僃僢僠NORECORD)
* 栠傝抣	:	側偟
*************************************************************************************************/
static	void lf_set_kzfk_nrd(
	struct	tag_wcacalpkt	*pst_wcacalpkt,			/* 嫟捠僇儗儞僟乕僷働僢僩					*/
	struct	tag_wcatkzfk	*pst_wcatkzfk,			/* 岥嵗怳懼娗棟僥乕僽儖峔憿懱				*/
	long	wk_batch_sup_count						/* 僶僢僠張棟SUP婲摦悢						*/
) {
	WCA_DEBUG(DEF_PROG_ID, "****** 僄儞僪儗僐乕僪曇廤張棟(僼僃僢僠NORECORD) ******\n");

	/*--- 怳懼張棟捠斣曇廤								---*/
	memcpy(pst_wcatkzfk->furikae_shori_tuban, pst_wcacalpkt->shori_ymd, 8);
	memcpy(pst_wcatkzfk->furikae_shori_tuban + 8, "ENDPR", 5);

	/*--- 怳懼張棟僌儖乕僾曇廤							---*/
	if (1 == wk_batch_sup_count) {
		strcpy(pst_wcatkzfk->furikae_shori_grp, "21");
	} else if (2 == wk_batch_sup_count) {
		strcpy(pst_wcatkzfk->furikae_shori_grp, "22");
	} else if (3 == wk_batch_sup_count) {
		strcpy(pst_wcatkzfk->furikae_shori_grp, "23");
	}

	/*--- 怳懼張棟梷巭嬫暘曇廤							---*/
	strcpy(pst_wcatkzfk->furikae_shori_yks_kbn, "1");

	/*--- 儐乕僓僐乕僪曇廤								---*/
	strcpy(pst_wcatkzfk->user_cd, "2904");

	/*--- 怳懼巜帵嬫暘曇廤								---*/
	strcpy(pst_wcatkzfk->furikae_siji_kbn, "1");

	/*--- 僶僢僠張棟嬫暘曇廤							---*/
	strcpy(pst_wcatkzfk->bt_shori_kbn, "1");

	/*--- 張棟忬嫷嬫暘曇廤								---*/
	strcpy(pst_wcatkzfk->shori_jokyo_kbn, "1");

	return ;
}