98 lines
3.2 KiB
Text
98 lines
3.2 KiB
Text
/* @tier hard @module st @transform settlement-online */
|
|
/*
|
|
* st_ol_0024.pgc - 정산수수료 온라인 서비스 (ST_OL_0024) [tier=hard]
|
|
*
|
|
* TxCore TX_SERVICE 엔트리. 요청 TXBUF 를 검증하고 st 표준 DBIO 를
|
|
* 통해 처리한 뒤 응답 TXBUF 를 구성한다. (ATMI void SVC(TPSVCINFO*) 대응)
|
|
*/
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
|
|
#include "txcore.h"
|
|
#include "acq_util.h"
|
|
#include "st_core.h"
|
|
|
|
EXEC SQL INCLUDE sqlca;
|
|
|
|
TX_SERVICE(ST_OL_0024, ctx)
|
|
{
|
|
st_rec_t rec;
|
|
char key[16], merch[16], bizdate[16], nextbiz[9];
|
|
long amount = 0, daysum = 0;
|
|
int rc;
|
|
TXBUF *sub_in;
|
|
TXBUF *sub_out;
|
|
|
|
tx_log(TX_LOG_INFO, "[ST_OL_0024] 정산수수료 트랜잭션 오케스트레이션 진입");
|
|
|
|
if (tx_buf_get(ctx->in, "KEY", key, sizeof(key)) != TX_OK ||
|
|
tx_buf_get(ctx->in, "MERCHID", merch, sizeof(merch)) != TX_OK ||
|
|
tx_buf_get(ctx->in, "BIZDATE", bizdate, sizeof(bizdate)) != TX_OK) {
|
|
tx_log(TX_LOG_ERROR, "[ST_OL_0024] 필수 필드 누락");
|
|
tx_return(ctx, TX_EINVAL, ctx->out);
|
|
return;
|
|
}
|
|
tx_buf_getlong(ctx->in, "AMOUNT", &amount);
|
|
|
|
if (!amount_is_valid(amount) || !date_is_valid(bizdate)) {
|
|
tx_log(TX_LOG_WARN, "[ST_OL_0024] 입력 검증 실패 amount=%ld date=%s",
|
|
amount, bizdate);
|
|
tx_return(ctx, TX_EINVAL, ctx->out);
|
|
return;
|
|
}
|
|
|
|
/* 트랜잭션 시작 → 원장 반영 → 후속 서비스 연계 → 커밋 */
|
|
if (tx_begin() != TX_OK) {
|
|
tx_return(ctx, TX_FAIL, ctx->out);
|
|
return;
|
|
}
|
|
|
|
memset(&rec, 0, sizeof(rec));
|
|
strncpy(rec.key, key, sizeof(rec.key) - 1);
|
|
strncpy(rec.merch_id, merch, sizeof(rec.merch_id) - 1);
|
|
strncpy(rec.biz_date, bizdate, sizeof(rec.biz_date) - 1);
|
|
strncpy(rec.status, ST_ST_RECV, sizeof(rec.status) - 1);
|
|
rec.amount = amount;
|
|
rec.fee = amount / 100;
|
|
|
|
rc = st_rec_insert(&rec);
|
|
if (rc != TX_OK) {
|
|
tx_log(TX_LOG_ERROR, "[ST_OL_0024] 원장반영 실패 rc=%d", rc);
|
|
tx_abort();
|
|
tx_return(ctx, rc, ctx->out);
|
|
return;
|
|
}
|
|
|
|
/* 정산 영업일 = 거래일의 다음 영업일 */
|
|
if (date_next_business(bizdate, nextbiz) != 0) {
|
|
memcpy(nextbiz, bizdate, 8);
|
|
nextbiz[8] = '\0';
|
|
}
|
|
|
|
/* 후속 정산집계 서비스 연계 (레지스트리 문자열 디스패치) */
|
|
sub_in = tx_buf_alloc();
|
|
sub_out = tx_buf_alloc();
|
|
if (sub_in && sub_out) {
|
|
tx_buf_sets(sub_in, "MERCHID", merch);
|
|
tx_buf_sets(sub_in, "BIZDATE", nextbiz);
|
|
tx_buf_setlong(sub_in, "AMOUNT", amount);
|
|
rc = tx_call("ST_POST", sub_in, sub_out);
|
|
if (rc != TX_OK)
|
|
tx_log(TX_LOG_WARN, "[ST_OL_0024] 후속연계 경고 rc=%d", rc);
|
|
}
|
|
tx_buf_free(sub_in);
|
|
tx_buf_free(sub_out);
|
|
|
|
/* 교차 검증: 당일 합계 재계산 */
|
|
if (st_rec_sum(bizdate, &daysum) != TX_OK)
|
|
daysum = 0;
|
|
|
|
tx_commit();
|
|
|
|
tx_buf_reset(ctx->out);
|
|
tx_buf_sets(ctx->out, "RESPCODE", RESP_OK);
|
|
tx_buf_sets(ctx->out, "KEY", key);
|
|
tx_buf_setlong(ctx->out, "DAYSUM", daysum);
|
|
tx_log(TX_LOG_INFO, "[ST_OL_0024] 완료 key=%s 당일합계=%ld", key, daysum);
|
|
tx_return(ctx, TX_OK, ctx->out);
|
|
}
|