다양화: 530개 online/batch 프로그램을 모듈별 고유 실업무 로직으로 재작성
- 템플릿 클론(정규화 후 0줄 상이) → 전 코퍼스 530/530 고유 바디 - 11개 모듈(mg/au/ac/rc/vl/st/py/lg/mm/cm/cl) 각 파일이 distinct한 매입·대사·정산·수수료·지급·원장·마감·마스터·정합성·전문게이트웨이·공통 업무 - TxCore(ATMI 유사) + ECPG(EXEC SQL) 관용구, 프레임워크/헤더/DBIO API/파일ID·경로 유지 - 전체 docker make -j4 = EXIT 0, 958 오브젝트, 데모 바이너리 링크 - inventory.json loc 실측 갱신 Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
This commit is contained in:
forge-bot
parent
b96cf702ee
commit
c3a0259e95
1027 changed files with 68915 additions and 40962 deletions
|
|
@ -8,10 +8,12 @@
|
|||
#line 1 "app/online/mg_ol_0015.pgc"
|
||||
/* @tier medium @module mg @transform msg-gateway-online */
|
||||
/*
|
||||
* mg_ol_0015.pgc - 전문게이트웨이 온라인 서비스 (MG_OL_0015) [tier=medium]
|
||||
* mg_ol_0015.pgc - 전문게이트웨이 이중화 전환 서비스 (MG_OL_0015) [tier=medium]
|
||||
*
|
||||
* TxCore TX_SERVICE 엔트리. 요청 TXBUF 를 검증하고 mg 표준 DBIO 를
|
||||
* 통해 처리한 뒤 응답 TXBUF 를 구성한다. (ATMI void SVC(TPSVCINFO*) 대응)
|
||||
* Active/Standby 두 노드의 상태지표(CPU 부하/메모리 여유/세션수/응답지연/
|
||||
* 하트비트 경과초)를 요청 TXBUF 에서 읽어 헬스 점수를 산출하고, 점수가
|
||||
* 높은 노드로 라우팅한다. Active 가 임계 미만이면 Standby 로 절체(failover)
|
||||
* 하며 전환사유와 함께 선택노드/양측 점수를 응답한다.
|
||||
*/
|
||||
#include <stdio.h>
|
||||
#include <string.h>
|
||||
|
|
@ -89,60 +91,90 @@ struct sqlca_t *ECPGget_sqlca(void);
|
|||
|
||||
#endif
|
||||
|
||||
#line 15 "app/online/mg_ol_0015.pgc"
|
||||
#line 17 "app/online/mg_ol_0015.pgc"
|
||||
|
||||
|
||||
/* 노드 헬스 점수: 100 만점, 낮을수록 위험 (임계 = 40) */
|
||||
#define HEALTH_THRESHOLD 40
|
||||
#define HEARTBEAT_DEAD 15 /* 하트비트 15초 초과 = 다운 간주 */
|
||||
|
||||
static int health_score(long cpu, long memfree, long sess, long latency, long hb)
|
||||
{
|
||||
long score = 100;
|
||||
|
||||
/* 하트비트 단절이면 즉시 0점(다운) */
|
||||
if (hb > HEARTBEAT_DEAD)
|
||||
return 0;
|
||||
|
||||
score -= cpu / 2; /* CPU 사용률 가중 */
|
||||
score -= (100 - memfree) / 4; /* 메모리 여유 부족 가중 */
|
||||
score -= sess / 50; /* 동시세션 과다 가중 */
|
||||
score -= latency / 20; /* 응답지연(ms) 가중 */
|
||||
|
||||
if (score < 0) score = 0;
|
||||
if (score > 100) score = 100;
|
||||
return (int)score;
|
||||
}
|
||||
|
||||
TX_SERVICE(MG_OL_0015, ctx)
|
||||
{
|
||||
mg_rec_t rec;
|
||||
char key[16], merch[16], bizdate[16];
|
||||
long amount = 0, cnt;
|
||||
int rc;
|
||||
long a_cpu = 0, a_mem = 0, a_sess = 0, a_lat = 0, a_hb = 0;
|
||||
long s_cpu = 0, s_mem = 0, s_sess = 0, s_lat = 0, s_hb = 0;
|
||||
int a_score, s_score;
|
||||
const char *selected;
|
||||
const char *reason;
|
||||
|
||||
tx_log(TX_LOG_INFO, "[MG_OL_0015] 전문게이트웨이 등록 서비스 진입");
|
||||
tx_log(TX_LOG_INFO, "[MG_OL_0015] 이중화 전환 판정 서비스 진입");
|
||||
|
||||
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, "[MG_OL_0015] 필수 필드 누락");
|
||||
tx_return(ctx, TX_EINVAL, ctx->out);
|
||||
return;
|
||||
}
|
||||
tx_buf_getlong(ctx->in, "AMOUNT", &amount);
|
||||
/* Active 노드 지표 */
|
||||
tx_buf_getlong(ctx->in, "A_CPU", &a_cpu);
|
||||
tx_buf_getlong(ctx->in, "A_MEMFREE", &a_mem);
|
||||
tx_buf_getlong(ctx->in, "A_SESS", &a_sess);
|
||||
tx_buf_getlong(ctx->in, "A_LATENCY", &a_lat);
|
||||
tx_buf_getlong(ctx->in, "A_HEARTBEAT", &a_hb);
|
||||
|
||||
/* 업무검증: 금액 범위 + 영업일 형식 */
|
||||
if (!amount_is_valid(amount)) {
|
||||
tx_log(TX_LOG_WARN, "[MG_OL_0015] 금액 범위 오류 amount=%ld", amount);
|
||||
tx_return(ctx, TX_EINVAL, ctx->out);
|
||||
return;
|
||||
}
|
||||
if (!date_is_valid(bizdate)) {
|
||||
tx_log(TX_LOG_WARN, "[MG_OL_0015] 영업일 오류 date=%s", bizdate);
|
||||
tx_return(ctx, TX_EINVAL, ctx->out);
|
||||
/* Standby 노드 지표 */
|
||||
tx_buf_getlong(ctx->in, "S_CPU", &s_cpu);
|
||||
tx_buf_getlong(ctx->in, "S_MEMFREE", &s_mem);
|
||||
tx_buf_getlong(ctx->in, "S_SESS", &s_sess);
|
||||
tx_buf_getlong(ctx->in, "S_LATENCY", &s_lat);
|
||||
tx_buf_getlong(ctx->in, "S_HEARTBEAT", &s_hb);
|
||||
|
||||
a_score = health_score(a_cpu, a_mem, a_sess, a_lat, a_hb);
|
||||
s_score = health_score(s_cpu, s_mem, s_sess, s_lat, s_hb);
|
||||
|
||||
tx_log(TX_LOG_INFO, "[MG_OL_0015] 헬스점수 active=%d standby=%d", a_score, s_score);
|
||||
|
||||
/* 라우팅 판정: Active 우선, 임계 미만이거나 Standby 우세시 절체 */
|
||||
if (a_score == 0 && s_score == 0) {
|
||||
tx_log(TX_LOG_ERROR, "[MG_OL_0015] 양 노드 모두 다운 - 라우팅 불가");
|
||||
tx_buf_reset(ctx->out);
|
||||
tx_buf_sets(ctx->out, "RESPCODE", RESP_SYSERR);
|
||||
tx_buf_sets(ctx->out, "SELECTED", "NONE");
|
||||
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, MG_ST_RECV, sizeof(rec.status) - 1);
|
||||
rec.amount = amount;
|
||||
rec.fee = amount / 100; /* 수수료 1% 가정 */
|
||||
|
||||
rc = mg_rec_insert(&rec);
|
||||
if (rc != TX_OK) {
|
||||
tx_log(TX_LOG_ERROR, "[MG_OL_0015] 등록 실패 rc=%d(%s)", rc, tx_strerror(rc));
|
||||
tx_return(ctx, rc, ctx->out);
|
||||
return;
|
||||
if (a_score >= HEALTH_THRESHOLD && a_score >= s_score) {
|
||||
selected = "ACTIVE";
|
||||
reason = "NORMAL";
|
||||
} else if (a_score < HEALTH_THRESHOLD && s_score >= HEALTH_THRESHOLD) {
|
||||
selected = "STANDBY";
|
||||
reason = "FAILOVER";
|
||||
} else if (s_score > a_score) {
|
||||
selected = "STANDBY";
|
||||
reason = "LOADBALANCE";
|
||||
} else {
|
||||
selected = "ACTIVE";
|
||||
reason = "DEGRADED";
|
||||
}
|
||||
|
||||
cnt = mg_rec_count(bizdate, MG_ST_RECV);
|
||||
|
||||
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, "DAYCNT", (cnt < 0) ? 0 : cnt);
|
||||
tx_log(TX_LOG_INFO, "[MG_OL_0015] 등록완료 key=%s 당일건수=%ld", key, cnt);
|
||||
tx_buf_sets(ctx->out, "SELECTED", selected);
|
||||
tx_buf_sets(ctx->out, "REASON", reason);
|
||||
tx_buf_setlong(ctx->out, "ASCORE", (long)a_score);
|
||||
tx_buf_setlong(ctx->out, "SSCORE", (long)s_score);
|
||||
tx_log(TX_LOG_INFO, "[MG_OL_0015] 라우팅 결정 node=%s reason=%s", selected, reason);
|
||||
tx_return(ctx, TX_OK, ctx->out);
|
||||
}
|
||||
|
|
|
|||
Reference in a new issue