Wave D 심화: 전 1,463 서비스를 실운영급 로직으로 (중앙값 33→156줄, 총 23만줄)
- 9섹션 구조 적용: 전필드 검증+에러코드(T_RC/T_MSG), 마스터·정책·상태 조회(sqlcode 0/100/<0 분기), 3+ 업무규칙 분기, 본처리(sqlerrd[2] 반영건수 확인), 이력/감사 적재(cm_log 등 best-effort), 집계·요약 갱신, 예외/보상, 응답 전 필드, 구조화 한글 로깅 - 모듈별 중앙값: au 201 · mg 181 · cl 170 · ac 162 · cm 161 · mm/vl 145 · py 144 · st 143 · rc/lg 138 - 기존 dbio 헬퍼·공통유틸·기존 테이블만 사용 (새 테이블/함수 없음) - 회귀 수정: 심화된 RECONCILE이 XA 브랜치 격리를 위반(미커밋 purchase 조회 후 FAIL)해 ACQUIRE 체인이 끊긴 것 → 미존재(100)를 정상 흐름으로 처리, 전문(UBF) 값으로 대사 진행 - 에이전트가 잡은 실버그: merchant_summary 0-덮어쓰기, 미초기화 문자열 userlog, 호스트변수 중복/스코프 오류 31+28+2건 - 검증: build DONE modules=11 batches=506, 12서버 runok, psc 1,466 AVAIL, 매입체인 XA 커밋(purchase_id=9194 status=S), prepared_xacts=0, 검증분기 동작 확인, 클론 0 Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
This commit is contained in:
hyeongwoo-choi
parent
c62d91b7a7
commit
c5caef89ca
1463 changed files with 220278 additions and 20405 deletions
|
|
@ -1,33 +1,136 @@
|
|||
/*
|
||||
* ACQUIRE.pgc - ac 모듈 서비스 ACQUIRE (one service = one file).
|
||||
* Moved verbatim from the former inline ac_svr.pgc; runs on the caller's XA
|
||||
* branch (no EXEC SQL CONNECT). Advertised by ac_svr at tpsvrinit.
|
||||
* 매입 접수(원팁): 가맹점/금액 검증 -> MDR 정책 조회 -> 금액구간·한도 규칙 판정
|
||||
* -> purchase/approval 생성 -> RECONCILE 체인 호출 -> 자기 브랜치에서 정산완료(S).
|
||||
* 입출력 계약 보존: 입력 T_MERCHANT/T_AMOUNT/T_BIZDATE,
|
||||
* 출력 T_PURCHASE_ID/T_FEE/T_NET/T_STATUS (+ RECONCILE 체인).
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQUIRE.h"
|
||||
|
||||
void ACQUIRE(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char merch[64], bizdate[16];
|
||||
const char *SVC = "ACQUIRE";
|
||||
char merch[64], bizdate[16], logmsg[256];
|
||||
long amount, bps = 25, fee, net, pid, rlen = 0;
|
||||
long grade = 0, ratio = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_lim = 0, h_sum = 0, h_cnt = 0, h_openc = 0, h_logid = 0, h_gross = 0;
|
||||
long h_amt = 0, h_fee = 0, h_net = 0, h_pid = 0;
|
||||
char h_merch[64], h_bizdate[16], h_status[8], h_name[64], h_logmsg[256];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
userlog("%s 진입: 신규 매입 접수 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 */
|
||||
gets_(b, T_MERCHANT, merch, sizeof(merch));
|
||||
if (merch[0] == 0) { userlog("ACQUIRE: missing T_MERCHANT"); FAIL(b); }
|
||||
amount = getl(b, T_AMOUNT);
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
if (merch[0] == 0) {
|
||||
userlog("%s: 가맹점 ID 누락", SVC);
|
||||
Bchg(b, T_MSG, 0, "가맹점 ID 누락", 0L); setl(b, T_RC, 101); FAIL(b);
|
||||
}
|
||||
strncpy(h_merch, merch, sizeof(h_merch)-1); h_merch[sizeof(h_merch)-1] = 0;
|
||||
|
||||
amount = getl(b, T_AMOUNT);
|
||||
if (amount <= 0) {
|
||||
Bchg(b, T_MSG, 0, "매입 금액 오류", 0L); setl(b, T_RC, 104); FAIL(b);
|
||||
}
|
||||
if (amount > 100000000L) {
|
||||
Bchg(b, T_MSG, 0, "단건 매입 상한 초과", 0L); setl(b, T_RC, 112); FAIL(b);
|
||||
}
|
||||
h_amt = amount;
|
||||
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) {
|
||||
Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b);
|
||||
}
|
||||
userlog("%s 컨텍스트: merch=%s amount=%ld bizdate=%s", SVC, h_merch, amount, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 가맹점 마스터 + MDR + 당일 누적 */
|
||||
EXEC SQL SELECT name, status, daily_limit INTO :h_name, :h_status, :h_lim
|
||||
FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 조회 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) {
|
||||
Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b);
|
||||
}
|
||||
if (acdb_merchant_mdr(merch, &bps) < 0) bps = 25; /* keep 25bps default */
|
||||
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0),
|
||||
count(*) FILTER (WHERE status IN ('A','M'))
|
||||
INTO :h_cnt, :h_sum, :h_openc FROM purchase
|
||||
WHERE merchant_id = :h_merch AND biz_date = :h_bizdate
|
||||
AND status NOT IN ('C','V');
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 당일누적 조회 실패 [%d]", SVC, sqlca.sqlcode);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 가맹점 상태 / 한도 / 금액 구간 (3+ 분기) */
|
||||
if (strcmp(h_status, "ACTIVE") != 0) {
|
||||
userlog("%s 거절: 가맹점 %s 상태=%s", SVC, h_merch, h_status);
|
||||
Bchg(b, T_MSG, 0, "비활성 가맹점", 0L); setl(b, T_RC, 121); FAIL(b);
|
||||
}
|
||||
if (h_lim > 0 && h_sum + amount > h_lim) {
|
||||
userlog("%s 거절: 한도초과 누적=%ld 요청=%ld 한도=%ld", SVC, h_sum, amount, h_lim);
|
||||
Bchg(b, T_MSG, 0, "가맹점 일한도 초과", 0L); setl(b, T_RC, 113); FAIL(b);
|
||||
}
|
||||
if (amount >= 10000000L) {
|
||||
grade = 3; Bchg(b, T_MSG, 0, "고액 매입 접수", 0L);
|
||||
} else if (amount >= 1000000L) {
|
||||
grade = 2; Bchg(b, T_MSG, 0, "중액 매입 접수", 0L);
|
||||
} else {
|
||||
grade = 1; Bchg(b, T_MSG, 0, "소액 매입 접수", 0L);
|
||||
}
|
||||
ratio = (h_lim > 0) ? ((h_sum + amount) * 10000L / h_lim) : 0;
|
||||
|
||||
/* 4) 본처리부: 수수료 산출 후 매입/승인 원장 생성 */
|
||||
fee = acq_fee(amount, bps);
|
||||
net = amount - fee;
|
||||
h_fee = fee; h_net = net;
|
||||
|
||||
pid = acdb_next_purchase_id();
|
||||
if (pid < 0) FAIL(b);
|
||||
if (acdb_insert_purchase(pid, merch, amount, fee, net, "A", "POS", bizdate) < 0) FAIL(b);
|
||||
if (acdb_insert_approval(pid, 1) < 0) FAIL(b);
|
||||
if (pid < 0) { Bchg(b, T_MSG, 0, "매입 채번 실패", 0L); setl(b, T_RC, 93); FAIL(b); }
|
||||
if (acdb_insert_purchase(pid, merch, amount, fee, net, "A", "POS", h_bizdate) < 0) {
|
||||
Bchg(b, T_MSG, 0, "매입 생성 실패", 0L); setl(b, T_RC, 94); FAIL(b);
|
||||
}
|
||||
if (acdb_insert_approval(pid, 1) < 0) {
|
||||
Bchg(b, T_MSG, 0, "승인 적재 실패", 0L); setl(b, T_RC, 95); FAIL(b);
|
||||
}
|
||||
h_pid = pid;
|
||||
|
||||
/* 5) 이력/감사 적재부 */
|
||||
snprintf(logmsg, sizeof(logmsg), "매입접수 pid=%ld merch=%s 금액=%ld 수수료=%ld 등급=%ld",
|
||||
pid, h_merch, amount, fee, grade);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) { userlog("%s: 로그채번 실패", SVC); setl(b, T_RC, 90); FAIL(b); }
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQUIRE', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) { userlog("%s: 로그적재 실패", SVC); setl(b, T_RC, 90); FAIL(b); }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 가맹점 일별 요약 재적재 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0)
|
||||
INTO :h_cnt, :h_gross, :h_fee, :h_net FROM purchase
|
||||
WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) { userlog("%s: 요약 재집계 실패", SVC); setl(b, T_RC, 90); FAIL(b); }
|
||||
if (acdb_upsert_merch_sum(merch, h_bizdate, h_gross, h_fee, h_net, h_cnt) < 0)
|
||||
userlog("%s 주의: 가맹점 요약 갱신 스킵", SVC);
|
||||
|
||||
/* 8) 응답부 (계약 보존: PID/FEE/NET/STATUS) */
|
||||
setl(b, T_PURCHASE_ID, pid);
|
||||
setl(b, T_FEE, fee);
|
||||
setl(b, T_NET, net);
|
||||
setl(b, T_ARG1, grade);
|
||||
setl(b, T_ARG2, ratio);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
Bchg(b, T_STATUS, 0, "A", 0L);
|
||||
|
||||
userlog("ACQUIRE pid=%ld merch=%s amount=%ld fee=%ld net=%ld -> RECONCILE",
|
||||
|
|
@ -36,10 +139,20 @@ void ACQUIRE(TPSVCINFO *p)
|
|||
/* continue the SAME global tx into rc_svr (distinct branch) */
|
||||
if (tpcall("RECONCILE", (char *)b, 0L, (char **)&b, &rlen, 0L) < 0) {
|
||||
userlog("ACQUIRE: tpcall(RECONCILE) FAIL: %s", tpstrerror(tperrno));
|
||||
/* 7) 예외/보상부: 체인 실패는 같은 XA 브랜치라 TPFAIL 로 전체 롤백 */
|
||||
Bchg(b, T_MSG, 0, "대사 체인 실패", 0L);
|
||||
setl(b, T_RC, 114);
|
||||
FAIL(b);
|
||||
}
|
||||
/* our branch resumes: settle-complete the purchase we own */
|
||||
if (acdb_update_status(pid, "S") < 0) FAIL(b);
|
||||
if (acdb_update_status(pid, "S") < 0) {
|
||||
userlog("%s: 정산완료 전이 실패 pid=%ld", SVC, pid);
|
||||
Bchg(b, T_MSG, 0, "정산완료 전이 실패", 0L);
|
||||
setl(b, T_RC, 96);
|
||||
FAIL(b);
|
||||
}
|
||||
Bchg(b, T_STATUS, 0, "S", 0L);
|
||||
setl(b, T_RC, 0);
|
||||
userlog("%s 완료: pid=%ld 상태=S 수수료=%ld 정산=%ld", SVC, pid, fee, net);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_ALERTAMT.pgc - ac 모듈 서비스 ACQ_ALERTAMT (one service = one file).
|
||||
* 매입 금액초과 알림: 가맹점의 영업일 매입 중 임계금액(T_AMOUNT)을 초과한
|
||||
* 고액 건수와 최고 매입액을 조회해 경보 여부를 판정한다.
|
||||
* 매입 금액초과 알림: 가맹점 영업일 매입 중 임계금액(T_AMOUNT)을 초과한
|
||||
* 고액 건수와 최고 매입액을 조회해 경보 등급을 판정한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_ALERTAMT.h"
|
||||
|
|
@ -9,22 +9,159 @@
|
|||
void ACQ_ALERTAMT(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_ALERTAMT";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_lim, h_over = 0, h_max = 0;
|
||||
char h_merch[64], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
h_lim = getl(b, T_AMOUNT); if (h_lim <= 0) h_lim = 1000000;
|
||||
gets_(b, T_MERCHANT, h_merch, sizeof(h_merch));
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE amount > :h_lim), coalesce(max(amount),0)
|
||||
INTO :h_over, :h_max FROM purchase
|
||||
WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
setl(b, T_COUNT, h_over);
|
||||
setl(b, T_AMT1, h_max);
|
||||
setl(b, T_RC, h_over > 0 ? 1 : 0);
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_MERCHANT, merch, sizeof(merch));
|
||||
if (merch[0] == 0) { Bchg(b, T_MSG, 0, "가맹점 ID 누락", 0L); setl(b, T_RC, 101); FAIL(b); }
|
||||
strncpy(h_merch, merch, sizeof(h_merch)-1); h_merch[sizeof(h_merch)-1] = 0;
|
||||
threshold = getl(b, T_AMOUNT); if (threshold <= 0) threshold = 1000000;
|
||||
h_amt = threshold;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT name, status, daily_limit INTO :h_str1, :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (strcmp(h_status, "ACTIVE") != 0)
|
||||
userlog("%s 주의: 가맹점 %s 상태=%s", SVC, h_merch, h_status);
|
||||
/* 가맹점 MDR(bps) 및 상태분포 컨텍스트 로드 */
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE status IN ('A','M')), count(*) FILTER (WHERE status = 'S') INTO :h_openc, :h_setc FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태분포 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산 진행 컨텍스트(기 정산 순액) */
|
||||
EXEC SQL SELECT coalesce(sum(net),0) INTO :h_ctx FROM settlement WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(max(amount),0), coalesce(sum(amount),0) INTO :h_cnt, :h_max, :h_gross FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 총매입집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*) INTO :h_a FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate AND amount > :h_amt;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 고액집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 임계 초과 건의 최고액 배수로 경보 등급을 산정한다 */
|
||||
if (h_a <= 0) { h_val = 0; }
|
||||
else if (h_max >= h_amt * 3) { h_val = 3; userlog("%s 위험: 최고액 %ld", SVC, h_max); }
|
||||
else if (h_max >= h_amt * 2) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
EXEC SQL SELECT coalesce(sum(gross_amount),0) INTO :h_val2 FROM merchant_summary WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 누적집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_pdgross FROM purchase WHERE merchant_id = :h_merch AND biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_val2 > 0 && h_gross > 0) ratio = (h_gross * 10000L) / (h_val2 + h_gross);
|
||||
else ratio = 0;
|
||||
h_share = (h_pdgross > 0) ? (h_gross * 100L / h_pdgross) : 0;
|
||||
userlog("%s 추이: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_pdgross, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "고액경보 merch=%s 임계=%ld 초과=%ld 등급=%ld", h_merch, h_amt, h_a, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_ALERTAMT', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_ALERTAMT' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_a);
|
||||
setl(b, T_AMOUNT, h_max);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_ARG1, h_val);
|
||||
setl(b, T_ARG2, ratio);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_ALERTCHK.pgc - ac 모듈 서비스 ACQ_ALERTCHK (one service = one file).
|
||||
* 매입 알림 점검: 가맹점의 당일 고액거래(임계금액 이상)와 보류 적체 건수를
|
||||
* 점검해 경보 여부와 알림 메시지를 만들어 돌려준다.
|
||||
* 매입 알림 점검: 가맹점의 당일 고액거래와 보류 적체 건수를 점검해
|
||||
* 경보 여부와 알림 메시지를 만들어 돌려준다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_ALERTCHK.h"
|
||||
|
|
@ -9,35 +9,169 @@
|
|||
void ACQ_ALERTCHK(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long threshold;
|
||||
char msg[160];
|
||||
const char *SVC = "ACQ_ALERTCHK";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_thr, h_big = 0, h_hold = 0;
|
||||
char h_merch[64], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
threshold = getl(b, T_AMT1);
|
||||
if (threshold <= 0) threshold = 1000000L; /* 기본 임계: 100만원 */
|
||||
h_thr = threshold;
|
||||
gets_(b, T_MERCHANT, h_merch, sizeof(h_merch));
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE amount >= :h_thr),
|
||||
count(*) FILTER (WHERE status = 'H')
|
||||
INTO :h_big, :h_hold
|
||||
FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_ALERTCHK FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
if (h_big > 0 || h_hold > 0) {
|
||||
snprintf(msg, sizeof(msg), "ALERT merchant=%s big=%ld hold=%ld thr=%ld",
|
||||
h_merch, h_big, h_hold, threshold);
|
||||
Bchg(b, T_MSG, 0, msg, 0L);
|
||||
setl(b, T_RC, 1); /* 경보 */
|
||||
} else {
|
||||
Bchg(b, T_MSG, 0, "CLEAR", 0L);
|
||||
setl(b, T_RC, 0); /* 정상 */
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_MERCHANT, merch, sizeof(merch));
|
||||
if (merch[0] == 0) { Bchg(b, T_MSG, 0, "가맹점 ID 누락", 0L); setl(b, T_RC, 101); FAIL(b); }
|
||||
strncpy(h_merch, merch, sizeof(h_merch)-1); h_merch[sizeof(h_merch)-1] = 0;
|
||||
threshold = getl(b, T_AMOUNT); if (threshold <= 0) threshold = 500000;
|
||||
h_amt = threshold;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
setl(b, T_ARG1, h_big);
|
||||
setl(b, T_ARG2, h_hold);
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT name, status, daily_limit INTO :h_str1, :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (strcmp(h_status, "ACTIVE") != 0)
|
||||
userlog("%s 주의: 가맹점 %s 상태=%s", SVC, h_merch, h_status);
|
||||
/* 가맹점 MDR(bps) 및 상태분포 컨텍스트 로드 */
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE status IN ('A','M')), count(*) FILTER (WHERE status = 'S') INTO :h_openc, :h_setc FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태분포 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산 진행 컨텍스트(기 정산 순액) */
|
||||
EXEC SQL SELECT coalesce(sum(net),0) INTO :h_ctx FROM settlement WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*) INTO :h_a FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate AND amount >= :h_amt;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 고액건수 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_b, :h_sum FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate AND status = 'H';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 보류적체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_cnt, :h_gross FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 전체실적 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 고액/보류 조합으로 알림 메시지와 등급을 결정 */
|
||||
if (h_a > 0 && h_b > 0) {
|
||||
h_val = 3; Bchg(b, T_MSG, 0, "고액거래 및 보류 적체 동시 발생", 0L);
|
||||
} else if (h_b >= 5) {
|
||||
h_val = 2; Bchg(b, T_MSG, 0, "보류 적체 과다", 0L);
|
||||
} else if (h_a > 0) {
|
||||
h_val = 1; Bchg(b, T_MSG, 0, "고액거래 발생", 0L);
|
||||
} else {
|
||||
h_val = 0; Bchg(b, T_MSG, 0, "정상", 0L);
|
||||
}
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
EXEC SQL SELECT coalesce(sum(gross_amount),0) INTO :h_val2 FROM merchant_summary WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 누적집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_pdgross FROM purchase WHERE merchant_id = :h_merch AND biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_val2 > 0 && h_gross > 0) ratio = (h_gross * 10000L) / (h_val2 + h_gross);
|
||||
else ratio = 0;
|
||||
h_share = (h_pdgross > 0) ? (h_gross * 100L / h_pdgross) : 0;
|
||||
userlog("%s 추이: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_pdgross, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "알림점검 merch=%s 고액=%ld 보류=%ld 등급=%ld", h_merch, h_a, h_b, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_ALERTCHK', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_ALERTCHK' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_ARG1, h_a);
|
||||
setl(b, T_ARG2, h_b);
|
||||
setl(b, T_ARG3, h_val);
|
||||
setl(b, T_AMT1, h_sum);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -9,20 +9,151 @@
|
|||
void ACQ_ALERTDUP(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_ALERTDUP";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_grp = 0;
|
||||
char h_merch[64], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_MERCHANT, h_merch, sizeof(h_merch));
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT count(*) INTO :h_grp FROM (
|
||||
SELECT amount FROM purchase WHERE merchant_id = :h_merch
|
||||
AND biz_date = :h_bizdate GROUP BY amount HAVING count(*) > 1) d;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
setl(b, T_COUNT, h_grp);
|
||||
setl(b, T_RC, h_grp > 0 ? 1 : 0);
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_MERCHANT, merch, sizeof(merch));
|
||||
if (merch[0] == 0) { Bchg(b, T_MSG, 0, "가맹점 ID 누락", 0L); setl(b, T_RC, 101); FAIL(b); }
|
||||
strncpy(h_merch, merch, sizeof(h_merch)-1); h_merch[sizeof(h_merch)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT name, status, daily_limit INTO :h_str1, :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (strcmp(h_status, "ACTIVE") != 0)
|
||||
userlog("%s 주의: 가맹점 %s 상태=%s", SVC, h_merch, h_status);
|
||||
/* 가맹점 MDR(bps) 및 상태분포 컨텍스트 로드 */
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE status IN ('A','M')), count(*) FILTER (WHERE status = 'S') INTO :h_openc, :h_setc FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태분포 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산 진행 컨텍스트(기 정산 순액) */
|
||||
EXEC SQL SELECT coalesce(sum(net),0) INTO :h_ctx FROM settlement WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*) INTO :h_a FROM (SELECT amount FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate GROUP BY amount HAVING count(*) > 1) g;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 중복그룹 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(c),0), coalesce(max(c),0) INTO :h_b, :h_max FROM (SELECT count(*) AS c FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate GROUP BY amount HAVING count(*) > 1) g2;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 중복건수 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_cnt, :h_gross FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 모집단 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 중복 그룹 비중으로 의심 등급 산정 */
|
||||
if (h_a <= 0) { h_val = 0; }
|
||||
else if (h_max >= 5) { h_val = 3; }
|
||||
else if (h_a >= 3) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
if (h_cnt > 0) ratio = (h_b * 10000L) / h_cnt; else ratio = 0;
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 중복 연루 비중(bps)을 맥락 지표로 사용 */
|
||||
h_share = ratio;
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "중복경보 merch=%s 그룹=%ld 연루=%ld 등급=%ld", h_merch, h_a, h_b, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_ALERTDUP', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_ALERTDUP' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_a);
|
||||
setl(b, T_ARG1, h_b);
|
||||
setl(b, T_ARG2, h_max);
|
||||
setl(b, T_ARG3, h_val);
|
||||
setl(b, T_ARG4, ratio);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -9,22 +9,146 @@
|
|||
void ACQ_ALERTQRY(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_ALERTQRY";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_vel = 0, h_lim = 0, h_dup = 0;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE reason LIKE 'VEL%'),
|
||||
count(*) FILTER (WHERE reason LIKE 'LIMIT%'),
|
||||
count(*) FILTER (WHERE reason LIKE 'DUP%')
|
||||
INTO :h_vel, :h_lim, :h_dup FROM ac_unmatch WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
setl(b, T_ARG1, h_vel);
|
||||
setl(b, T_ARG2, h_lim);
|
||||
setl(b, T_ARG3, h_dup);
|
||||
setl(b, T_COUNT, h_vel + h_lim + h_dup);
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE reason LIKE 'VEL%'), count(*) FILTER (WHERE reason LIKE 'LIMIT%'), count(*) FILTER (WHERE reason LIKE 'DUP%'), count(*) INTO :h_a, :h_b, :h_c, :h_cnt FROM ac_unmatch WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 유형분해 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(count(DISTINCT purchase_id),0) INTO :h_d FROM ac_unmatch WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 대상매입 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 최다 유형을 판별해 우선 대응 유형으로 표시 */
|
||||
if (h_a >= h_b && h_a >= h_c) { h_top = 1; }
|
||||
else if (h_b >= h_a && h_b >= h_c) { h_top = 2; }
|
||||
else if (h_c > 0) { h_top = 3; }
|
||||
else { h_top = 0; }
|
||||
h_e = h_cnt - (h_a + h_b + h_c);
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "알림유형 bizdate=%s 속도=%ld 한도=%ld 중복=%ld 기타=%ld", h_bizdate, h_a, h_b, h_c, h_e);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_ALERTQRY', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_ALERTQRY' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_ARG1, h_a);
|
||||
setl(b, T_ARG2, h_b);
|
||||
setl(b, T_ARG3, h_c);
|
||||
setl(b, T_ARG4, h_e);
|
||||
setl(b, T_ARG5, h_top);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_ID1, h_d);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -9,22 +9,165 @@
|
|||
void ACQ_ALERTVEL(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long allow;
|
||||
const char *SVC = "ACQ_ALERTVEL";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_5m = 0, h_30m = 0;
|
||||
char h_chan[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
allow = getl(b, T_ARG1); if (allow <= 0) allow = 50;
|
||||
gets_(b, T_CHANNEL, h_chan, sizeof(h_chan));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE created_at >= now() - interval '5 minutes'),
|
||||
count(*) FILTER (WHERE created_at >= now() - interval '30 minutes')
|
||||
INTO :h_5m, :h_30m FROM purchase WHERE channel = :h_chan;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
setl(b, T_ARG2, h_5m);
|
||||
setl(b, T_ARG3, h_30m);
|
||||
setl(b, T_RC, h_5m > allow ? 1 : 0);
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_MERCHANT, merch, sizeof(merch));
|
||||
if (merch[0] == 0) { Bchg(b, T_MSG, 0, "가맹점 ID 누락", 0L); setl(b, T_RC, 101); FAIL(b); }
|
||||
strncpy(h_merch, merch, sizeof(h_merch)-1); h_merch[sizeof(h_merch)-1] = 0;
|
||||
gets_(b, T_CHANNEL, channel, sizeof(channel)); if (channel[0] == 0) strcpy(channel, "POS");
|
||||
strncpy(h_chan, channel, sizeof(h_chan)-1); h_chan[sizeof(h_chan)-1] = 0;
|
||||
threshold = getl(b, T_ARG1); if (threshold <= 0) threshold = 30;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT name, status, daily_limit INTO :h_str1, :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (strcmp(h_status, "ACTIVE") != 0)
|
||||
userlog("%s 주의: 가맹점 %s 상태=%s", SVC, h_merch, h_status);
|
||||
/* 가맹점 MDR(bps) 및 상태분포 컨텍스트 로드 */
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE status IN ('A','M')), count(*) FILTER (WHERE status = 'S') INTO :h_openc, :h_setc FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태분포 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산 진행 컨텍스트(기 정산 순액) */
|
||||
EXEC SQL SELECT coalesce(sum(net),0) INTO :h_ctx FROM settlement WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*) INTO :h_a FROM purchase WHERE merchant_id = :h_merch AND channel = :h_chan AND created_at >= now() - interval '5 minutes';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 5분집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*) INTO :h_b FROM purchase WHERE merchant_id = :h_merch AND channel = :h_chan AND created_at >= now() - interval '30 minutes';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 30분집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_cnt, :h_gross FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 당일실적 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
h_cnt = (h_cnt > 0) ? h_cnt : h_a;
|
||||
/* 분당 환산 후 허용치 대비 경보 등급 */
|
||||
ratio = h_a / 5;
|
||||
if (ratio > threshold) { h_val = 2; userlog("%s 경보: 분당 %ld 건", SVC, ratio); }
|
||||
else if (ratio > threshold / 2) { h_val = 1; }
|
||||
else { h_val = 0; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
EXEC SQL SELECT coalesce(sum(gross_amount),0) INTO :h_val2 FROM merchant_summary WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 누적집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_pdgross FROM purchase WHERE merchant_id = :h_merch AND biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_val2 > 0 && h_gross > 0) ratio = (h_gross * 10000L) / (h_val2 + h_gross);
|
||||
else ratio = 0;
|
||||
h_share = (h_pdgross > 0) ? (h_gross * 100L / h_pdgross) : 0;
|
||||
userlog("%s 추이: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_pdgross, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "속도경보 merch=%s ch=%s 5m=%ld 30m=%ld 등급=%ld", h_merch, h_chan, h_a, h_b, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_ALERTVEL', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_ALERTVEL' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_a);
|
||||
setl(b, T_ARG2, h_b);
|
||||
setl(b, T_ARG3, ratio);
|
||||
setl(b, T_ARG1, h_val);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,6 +1,7 @@
|
|||
/*
|
||||
* ACQ_AMTFIX.pgc - ac 모듈 서비스 ACQ_AMTFIX (one service = one file).
|
||||
* 금액 확정 정정: 직전 금액 조회 후 하우스 25bps 로 절대 재계산, 증감(delta) 회신.
|
||||
* 금액 확정 정정: 직전 금액을 조회한 뒤 하우스 기준 MDR 로 수수료를 절대
|
||||
* 재계산하고 증감(delta)을 회신한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_AMTFIX.h"
|
||||
|
|
@ -8,24 +9,144 @@
|
|||
void ACQ_AMTFIX(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long amount, fee, net;
|
||||
const char *SVC = "ACQ_AMTFIX";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_old = 0, h_amount, h_fee, h_net;
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 금액/수수료 조정 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
amount = getl(b, T_AMOUNT);
|
||||
/* absolute fix: read prior amount, recompute fee at flat house 25bps (no MDR lookup) */
|
||||
EXEC SQL SELECT amount INTO :h_old FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0 || sqlca.sqlcode == 100) FAIL(b);
|
||||
fee = acq_fee(amount, 25);
|
||||
net = amount - fee;
|
||||
h_amount = amount; h_fee = fee; h_net = net;
|
||||
EXEC SQL UPDATE purchase SET amount = :h_amount, fee = :h_fee, net = :h_net, updated_at = now()
|
||||
WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0 || sqlca.sqlcode == 100) FAIL(b);
|
||||
setl(b, T_DELTA, amount - h_old);
|
||||
setl(b, T_FEE, fee);
|
||||
setl(b, T_NET, net);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
h_amt = getl(b, T_AMOUNT);
|
||||
if (h_amt < 1L) { Bchg(b, T_MSG, 0, "금액 범위 오류", 0L); setl(b, T_RC, 104); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 조정 유형/부호/한도 판정(3+ 분기) */
|
||||
/* 확정 금액과 기존 금액의 증감 방향으로 처리 경로를 나눈다 */
|
||||
h_delta = h_amt - h_gross;
|
||||
if (h_delta == 0) { Bchg(b, T_MSG, 0, "금액 변동 없음", 0L); setl(b, T_RC, 169); FAIL(b); }
|
||||
else if (h_delta > 0) { h_val = 3; Bchg(b, T_MSG, 0, "금액 증액 확정", 0L); }
|
||||
else { h_val = 2; Bchg(b, T_MSG, 0, "금액 감액 확정", 0L); }
|
||||
/* 하우스 기준 25bps 로 절대 재계산 */
|
||||
computed = acq_fee(h_amt, 25);
|
||||
|
||||
/* 4) 본처리부: 조정 원장 기록 및 매입 금액 보정 */
|
||||
h_fee = computed;
|
||||
h_net = h_amt - h_fee;
|
||||
if (acdb_update_amount(h_pid, h_amt, h_fee, h_net) < 0)
|
||||
{ Bchg(b, T_MSG, 0, "금액 갱신 실패", 0L); setl(b, T_RC, 97); FAIL(b); }
|
||||
h_aff = 1;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "금액확정 pid=%ld %ld -> %ld 증감=%ld", h_pid, h_gross, h_amt, h_delta);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_AMTFIX', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_AMTFIX' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_AMOUNT, h_amt);
|
||||
setl(b, T_DELTA, h_delta);
|
||||
setl(b, T_FEE, h_fee);
|
||||
setl(b, T_NET, h_net);
|
||||
setl(b, T_ARG1, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_APPRGAP.pgc - ac 모듈 서비스 ACQ_APPRGAP (one service = one file).
|
||||
* 승인-매입 갭 점검: 승인 없는 매입(무승인 매입)과 매입 없는 승인(고아
|
||||
* 승인)을 양방향으로 세어 갭 규모를 보고한다.
|
||||
* 승인-매입 갭 점검: 승인 없는 매입(무승인 매입)과 매입 없는 승인(고아 승인)을
|
||||
* 양방향으로 세어 갭 규모를 보고한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_APPRGAP.h"
|
||||
|
|
@ -9,30 +9,151 @@
|
|||
void ACQ_APPRGAP(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_APPRGAP";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_noappr = 0, h_orphan = 0, h_amt = 0;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
/* 승인 없는 매입: 건수 + 금액 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(u.amount), 0)
|
||||
INTO :h_noappr, :h_amt
|
||||
FROM purchase u
|
||||
WHERE u.biz_date = :h_bizdate AND u.status NOT IN ('C', 'V', 'P')
|
||||
AND NOT EXISTS (SELECT 1 FROM approval a WHERE a.purchase_id = u.purchase_id AND a.approved = true);
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 매입 없는 고아 승인 */
|
||||
EXEC SQL SELECT count(*) INTO :h_orphan
|
||||
FROM approval a LEFT JOIN purchase u ON u.purchase_id = a.purchase_id
|
||||
WHERE u.purchase_id IS NULL;
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_APPRGAP FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
setl(b, T_ARG1, h_noappr); /* 무승인 매입 건수 */
|
||||
setl(b, T_AMT1, h_amt); /* 무승인 매입 금액 */
|
||||
setl(b, T_ARG2, h_orphan); /* 고아 승인 건수 */
|
||||
setl(b, T_RC, (h_noappr + h_orphan) > 0 ? 1 : 0);
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*) INTO :h_a FROM purchase p WHERE p.biz_date = :h_bizdate AND NOT EXISTS (SELECT 1 FROM approval a WHERE a.purchase_id = p.purchase_id);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 무승인매입 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*) INTO :h_b FROM approval a WHERE NOT EXISTS (SELECT 1 FROM purchase p WHERE p.purchase_id = a.purchase_id);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 고아승인 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_cnt, :h_gross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 모집단 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 갭 규모를 모집단 대비 비율로 환산해 심각도 판정 */
|
||||
h_e = h_a + h_b;
|
||||
if (h_cnt > 0) ratio = (h_a * 10000L) / h_cnt; else ratio = 0;
|
||||
if (h_e == 0) { h_val = 0; }
|
||||
else if (ratio > 500) { h_val = 3; }
|
||||
else if (ratio > 100) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "승인갭 bizdate=%s 무승인=%ld 고아=%ld 등급=%ld", h_bizdate, h_a, h_b, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_APPRGAP', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_APPRGAP' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_ARG1, h_a);
|
||||
setl(b, T_ARG2, h_b);
|
||||
setl(b, T_ARG3, h_e);
|
||||
setl(b, T_ARG4, h_val);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,14 +1,159 @@
|
|||
/*
|
||||
* ACQ_APPRLINK.pgc - ac 모듈 서비스 ACQ_APPRLINK (one service = one file).
|
||||
* Moved verbatim from the former inline ac_svr.pgc; runs on the caller's XA
|
||||
* branch (no EXEC SQL CONNECT). Advertised by ac_svr at tpsvrinit.
|
||||
* 승인 연계: 매입 건에 승인 원장 행을 연결한다. 이미 승인이 있으면 추가
|
||||
* 승인 회차로 기록하고, 과다 승인 연계는 차단한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_APPRLINK.h"
|
||||
|
||||
void ACQ_APPRLINK(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long pid = getl(b, T_PURCHASE_ID);
|
||||
if (acdb_insert_approval(pid, 1) < 0) FAIL(b);
|
||||
const char *SVC = "ACQ_APPRLINK";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "A") == 0 || strcmp(h_prev, "M") == 0 || strcmp(h_prev, "S") == 0 || strcmp(h_prev, "C") == 0 || strcmp(h_prev, "H") == 0 || strcmp(h_prev, "V") == 0 || strcmp(h_prev, "P") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 기존 승인 회차를 세어 연계 가능 여부를 판정 */
|
||||
EXEC SQL SELECT count(*), count(*) FILTER (WHERE approved) INTO :h_cnt, :h_a
|
||||
FROM approval WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 승인회차 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_cnt >= 10) { Bchg(b, T_MSG, 0, "승인 연계 한도 초과", 0L); setl(b, T_RC, 145); FAIL(b); }
|
||||
else if (h_cnt == 0) { h_val = 1; Bchg(b, T_MSG, 0, "최초 승인 연계", 0L); }
|
||||
else if (h_a == 0) { h_val = 3; Bchg(b, T_MSG, 0, "거절 이력 후 재연계", 0L); }
|
||||
else { h_val = 2; Bchg(b, T_MSG, 0, "추가 승인 연계", 0L); }
|
||||
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
if (acdb_insert_approval(h_pid, 1) < 0) { Bchg(b, T_MSG, 0, "승인 연계 실패", 0L); setl(b, T_RC, 95); FAIL(b); }
|
||||
EXEC SQL SELECT count(*), coalesce(max(approval_id),0) INTO :h_b, :h_id FROM approval WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 연계후집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = 1;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "승인연계 pid=%ld 이전=%ld 이후=%ld id=%ld", h_pid, h_cnt, h_b, h_id);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_APPRLINK', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_APPRLINK' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_COUNT, h_b);
|
||||
setl(b, T_ID1, h_id);
|
||||
setl(b, T_ARG1, h_cnt);
|
||||
setl(b, T_ARG2, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,19 +1,151 @@
|
|||
/*
|
||||
* ACQ_APPRMAP.pgc - ac 모듈 서비스 ACQ_APPRMAP (one service = one file).
|
||||
* Moved verbatim from the former inline ac_svr.pgc; runs on the caller's XA
|
||||
* branch (no EXEC SQL CONNECT). Advertised by ac_svr at tpsvrinit.
|
||||
* 승인 매핑 조회: 한 매입에 연결된 승인 원장의 총 건수와 승인/거절 분포를
|
||||
* 집계해 승인 매핑 상태를 응답한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_APPRMAP.h"
|
||||
|
||||
void ACQ_APPRMAP(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_APPRMAP";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_cnt;
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
EXEC SQL SELECT count(*) INTO :h_cnt FROM approval WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), count(*) FILTER (WHERE approved), count(*) FILTER (WHERE NOT approved) INTO :h_cnt, :h_a, :h_b FROM approval WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 승인분포 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(max(approval_id),0) INTO :h_top FROM approval WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 최근승인 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT status, amount INTO :h_status, :h_gross FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입상태 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 승인 유무와 거절 이력으로 매핑 상태 코드를 산정 */
|
||||
if (h_cnt == 0) { h_val = 0; Bchg(b, T_MSG, 0, "승인 없음", 0L); }
|
||||
else if (h_b > 0 && h_a == 0) { h_val = 2; Bchg(b, T_MSG, 0, "전건 거절", 0L); }
|
||||
else if (h_b > 0) { h_val = 3; Bchg(b, T_MSG, 0, "승인/거절 혼재", 0L); }
|
||||
else { h_val = 1; Bchg(b, T_MSG, 0, "정상 승인", 0L); }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
ratio = (h_cnt > 0) ? (h_a * 10000L / h_cnt) : 0;
|
||||
h_share = ratio;
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "승인매핑 pid=%ld 총=%ld 승인=%ld 거절=%ld 상태=%ld", h_pid, h_cnt, h_a, h_b, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_APPRMAP', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_APPRMAP' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_ARG1, h_a);
|
||||
setl(b, T_ARG2, h_b);
|
||||
setl(b, T_ARG3, h_val);
|
||||
setl(b, T_ID1, h_top);
|
||||
Bchg(b, T_STATUS, 0, h_status, 0L);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -9,22 +9,140 @@
|
|||
void ACQ_BRANDQRY(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_BRANDQRY";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_n = 0, h_sum = 0, h_fee = 0;
|
||||
char h_iss[32], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_ISSUER, h_iss, sizeof(h_iss));
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0)
|
||||
INTO :h_n, :h_sum, :h_fee FROM purchase
|
||||
WHERE issuer = :h_iss AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
setl(b, T_COUNT, h_n);
|
||||
setl(b, T_GROSS, h_sum);
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_ISSUER, issuer, sizeof(issuer)); if (issuer[0] == 0) strcpy(issuer, "BC");
|
||||
strncpy(h_issuer, issuer, sizeof(h_issuer)-1); h_issuer[sizeof(h_issuer)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(avg(fee),0)::bigint INTO :h_cnt, :h_gross, :h_fee, :h_avg FROM purchase WHERE issuer = :h_issuer AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 브랜드집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_a, :h_sum FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 전체집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 브랜드 점유율(bps) 및 규모 등급 판정 */
|
||||
if (h_sum > 0) ratio = (h_gross * 10000L) / h_sum; else ratio = 0;
|
||||
if (h_cnt == 0) { h_val = 0; }
|
||||
else if (ratio >= 5000) { h_val = 3; }
|
||||
else if (ratio >= 2000) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
h_share = ratio;
|
||||
h_net = h_gross - h_fee;
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "브랜드조회 issuer=%s 건수=%ld 총액=%ld 점유=%ld", h_issuer, h_cnt, h_gross, ratio);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_BRANDQRY', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_BRANDQRY' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_FEE, h_fee);
|
||||
setl(b, T_RC, h_n > 0 ? 0 : 1);
|
||||
setl(b, T_ARG1, h_avg);
|
||||
setl(b, T_ARG2, ratio);
|
||||
setl(b, T_ARG3, h_val);
|
||||
setl(b, T_NET, h_net);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_BRANDRANK.pgc - ac 모듈 서비스 ACQ_BRANDRANK (one service = one file).
|
||||
* 매입 브랜드별 순위: 발급사 매출 상위 순으로 커서 조회하며 누적 점유율을
|
||||
* 계산해 상위 브랜드가 전체의 절반을 넘는 지점(집중도)을 함께 낸다.
|
||||
* 매입 브랜드별 순위: 발급사 매출 상위 순으로 1~3위를 뽑아 점유율을 계산하고
|
||||
* 상위 브랜드 집중도(상위 3사 합계 비중)를 함께 낸다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_BRANDRANK.h"
|
||||
|
|
@ -9,34 +9,154 @@
|
|||
void ACQ_BRANDRANK(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long rank = 0, run = 0, half_at = 0;
|
||||
const char *SVC = "ACQ_BRANDRANK";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_sum, h_grand = 0;
|
||||
char h_iss[32], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_grand FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
EXEC SQL DECLARE brr_cur CURSOR FOR
|
||||
SELECT issuer, sum(amount) FROM purchase WHERE biz_date = :h_bizdate
|
||||
GROUP BY issuer ORDER BY sum(amount) DESC;
|
||||
EXEC SQL OPEN brr_cur;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
for (;;) {
|
||||
EXEC SQL FETCH brr_cur INTO :h_iss, :h_sum;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE brr_cur; FAIL(b); }
|
||||
rank++; run += h_sum;
|
||||
if (half_at == 0 && h_grand > 0 && run * 2 >= h_grand) half_at = rank;
|
||||
if (rank <= 6) Badd(b, T_ISSUER, h_iss, 0L);
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
EXEC SQL CLOSE brr_cur;
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
setl(b, T_GROSS, h_grand);
|
||||
setl(b, T_ARG1, rank);
|
||||
setl(b, T_ARG2, half_at);
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT coalesce(sum(amount),0), count(DISTINCT issuer) INTO :h_gross, :h_n FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 모집단 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(issuer,''), coalesce(sum(amount),0) INTO :h_str2, :h_a FROM purchase WHERE biz_date = :h_bizdate GROUP BY issuer ORDER BY sum(amount) DESC LIMIT 1;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 1위 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(s),0) INTO :h_b FROM (SELECT sum(amount) AS s FROM purchase WHERE biz_date = :h_bizdate GROUP BY issuer ORDER BY sum(amount) DESC LIMIT 3) t;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상위3사 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 1위 점유율과 상위 3사 집중도로 시장 구조를 판정 */
|
||||
if (h_gross > 0) ratio = (h_a * 10000L) / h_gross; else ratio = 0;
|
||||
if (h_gross > 0) h_share = (h_b * 10000L) / h_gross; else h_share = 0;
|
||||
if (h_share >= 8000) { h_val = 3; }
|
||||
else if (h_share >= 5000) { h_val = 2; }
|
||||
else if (h_share > 0) { h_val = 1; }
|
||||
else { h_val = 0; }
|
||||
h_cnt = h_n;
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "브랜드순위 bizdate=%s 1위=%s 점유=%ld 집중=%ld", h_bizdate, h_str2, ratio, h_share);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_BRANDRANK', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_BRANDRANK' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
Bchg(b, T_ISSUER, 0, h_str2, 0L);
|
||||
setl(b, T_AMT1, h_a);
|
||||
setl(b, T_AMT2, h_b);
|
||||
setl(b, T_ARG1, ratio);
|
||||
setl(b, T_ARG2, h_share);
|
||||
setl(b, T_ARG3, h_val);
|
||||
setl(b, T_COUNT, h_n);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_BRANDSUM.pgc - ac 모듈 서비스 ACQ_BRANDSUM (one service = one file).
|
||||
* 매입 브랜드별 집계: 발급사(카드 브랜드) 기준으로 매출 합계를 그룹 집계해
|
||||
* 브랜드명·매출액 쌍을 occurrence 로 내리고 최다 브랜드 건수를 함께 계산한다.
|
||||
* 매입 브랜드별 집계: 발급사(카드 브랜드) 기준 매출 합계를 그룹 집계해
|
||||
* 브랜드 수와 최다 브랜드의 건수/금액을 계산한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_BRANDSUM.h"
|
||||
|
|
@ -9,29 +9,154 @@
|
|||
void ACQ_BRANDSUM(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long grand = 0, kinds = 0;
|
||||
const char *SVC = "ACQ_BRANDSUM";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_sum, h_n;
|
||||
char h_iss[32], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL DECLARE brs_cur CURSOR FOR
|
||||
SELECT issuer, sum(amount), count(*) FROM purchase
|
||||
WHERE biz_date = :h_bizdate GROUP BY issuer ORDER BY sum(amount) DESC;
|
||||
EXEC SQL OPEN brs_cur;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
for (;;) {
|
||||
EXEC SQL FETCH brs_cur INTO :h_iss, :h_sum, :h_n;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE brs_cur; FAIL(b); }
|
||||
if (kinds < 8) { Badd(b, T_ISSUER, h_iss, 0L); Badd(b, T_AMT1, (char *)&h_sum, 0L); }
|
||||
grand += h_sum; kinds++;
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
EXEC SQL CLOSE brs_cur;
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
setl(b, T_GROSS, grand);
|
||||
setl(b, T_ARG1, kinds);
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(DISTINCT issuer), count(*), coalesce(sum(amount),0) INTO :h_n, :h_cnt, :h_gross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 브랜드수 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(issuer,''), count(*), coalesce(sum(amount),0) INTO :h_str2, :h_a, :h_b FROM purchase WHERE biz_date = :h_bizdate GROUP BY issuer ORDER BY count(*) DESC LIMIT 1;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 최다브랜드 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(fee),0) INTO :h_fee FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 수수료합 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 브랜드 다양성과 최다 브랜드 편중도를 판정 */
|
||||
if (h_cnt > 0) ratio = (h_a * 10000L) / h_cnt; else ratio = 0;
|
||||
if (h_n <= 1) { h_val = 3; }
|
||||
else if (ratio >= 6000) { h_val = 2; }
|
||||
else if (h_n >= 4) { h_val = 0; }
|
||||
else { h_val = 1; }
|
||||
h_avg = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "브랜드집계 bizdate=%s 브랜드수=%ld 최다=%s 편중=%ld", h_bizdate, h_n, h_str2, ratio);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_BRANDSUM', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_BRANDSUM' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_n);
|
||||
Bchg(b, T_ISSUER, 0, h_str2, 0L);
|
||||
setl(b, T_ARG1, h_a);
|
||||
setl(b, T_AMT1, h_b);
|
||||
setl(b, T_ARG2, ratio);
|
||||
setl(b, T_ARG3, h_val);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_FEE, h_fee);
|
||||
setl(b, T_ARG4, h_avg);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_BULKCHK.pgc - ac 모듈 서비스 ACQ_BULKCHK (one service = one file).
|
||||
* 대량매입 배치검증: 영업일 접수(A) 매입을 커서로 순회하며 금액 양수 및
|
||||
* 수수료 정합(net=amount-fee)을 점검해 정상/오류 건수를 분리 집계한다.
|
||||
* 대량매입 배치검증: 영업일 접수(A) 매입의 금액 양수 및 수수료 정합
|
||||
* (net = amount - fee)을 일괄 점검해 정상/오류 건수를 분리 집계한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_BULKCHK.h"
|
||||
|
|
@ -9,30 +9,157 @@
|
|||
void ACQ_BULKCHK(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long ok = 0, bad = 0;
|
||||
const char *SVC = "ACQ_BULKCHK";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_amt, h_fee, h_net;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL DECLARE blk_cur CURSOR FOR
|
||||
SELECT purchase_id, amount, fee, net FROM purchase
|
||||
WHERE biz_date = :h_bizdate AND status = 'A';
|
||||
EXEC SQL OPEN blk_cur;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
for (;;) {
|
||||
EXEC SQL FETCH blk_cur INTO :h_pid, :h_amt, :h_fee, :h_net;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE blk_cur; FAIL(b); }
|
||||
if (h_amt > 0 && h_net == h_amt - h_fee) ok++;
|
||||
else { bad++; if (bad <= 8) Badd(b, T_PURCHASE_ID, (char *)&h_pid, 0L); }
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
EXEC SQL CLOSE blk_cur;
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
setl(b, T_ARG1, ok);
|
||||
setl(b, T_ARG2, bad);
|
||||
setl(b, T_RC, bad > 0 ? 1 : 0);
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*) INTO :h_cnt FROM purchase WHERE biz_date = :h_bizdate AND status = 'A';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 검증모집단 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*) INTO :h_a FROM purchase WHERE biz_date = :h_bizdate AND status = 'A' AND amount <= 0;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 금액오류 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*) INTO :h_b FROM purchase WHERE biz_date = :h_bizdate AND status = 'A' AND net <> amount - fee;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정합오류 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_gross FROM purchase WHERE biz_date = :h_bizdate AND status = 'A';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 금액합 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 오류 유형별 건수를 합산해 배치 판정 결과를 만든다 */
|
||||
h_e = h_a + h_b;
|
||||
h_c = h_cnt - h_e;
|
||||
if (h_e == 0) { h_val = 0; Bchg(b, T_MSG, 0, "전건 정상", 0L); }
|
||||
else if (h_a > 0 && h_b > 0) { h_val = 3; Bchg(b, T_MSG, 0, "금액/정합 복합 오류", 0L); }
|
||||
else if (h_b > 0) { h_val = 2; Bchg(b, T_MSG, 0, "수수료 정합 오류", 0L); }
|
||||
else { h_val = 1; Bchg(b, T_MSG, 0, "금액 오류", 0L); }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "대량검증 bizdate=%s 대상=%ld 정상=%ld 오류=%ld", h_bizdate, h_cnt, h_c, h_e);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_BULKCHK', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_BULKCHK' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_ARG1, h_c);
|
||||
setl(b, T_ARG2, h_e);
|
||||
setl(b, T_ARG3, h_a);
|
||||
setl(b, T_ARG4, h_b);
|
||||
setl(b, T_ARG5, h_val);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_BULKRPT.pgc - ac 모듈 서비스 ACQ_BULKRPT (one service = one file).
|
||||
* 대량매입 리포트: 영업일 매입을 상태(접수/대사/정산/취소)별로 한 번에 분해
|
||||
* 집계해 상태별 건수와 총 매출·순정산 금액을 요약 리포트로 낸다.
|
||||
* 대량매입 리포트: 영업일 매입을 상태(접수/대사/정산/취소)별로 한 번에
|
||||
* 분해 집계해 상태별 건수와 총 매출·순정산 금액을 요약 리포트로 낸다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_BULKRPT.h"
|
||||
|
|
@ -9,24 +9,150 @@
|
|||
void ACQ_BULKRPT(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_BULKRPT";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_a = 0, h_m = 0, h_s = 0, h_c = 0, h_g = 0, h_net = 0;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE status = 'A'), count(*) FILTER (WHERE status = 'M'),
|
||||
count(*) FILTER (WHERE status = 'S'), count(*) FILTER (WHERE status = 'C'),
|
||||
coalesce(sum(amount),0), coalesce(sum(net) FILTER (WHERE status = 'S'),0)
|
||||
INTO :h_a, :h_m, :h_s, :h_c, :h_g, :h_net FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE status = 'A'), count(*) FILTER (WHERE status = 'M'), count(*) FILTER (WHERE status = 'S'), count(*) FILTER (WHERE status = 'C') INTO :h_a, :h_b, :h_c, :h_d FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태분해 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(net),0), coalesce(sum(fee),0) INTO :h_cnt, :h_gross, :h_net, :h_fee FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 금액집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 진행 단계 비중으로 마감 준비도를 판정 */
|
||||
h_e = h_a + h_b;
|
||||
if (h_cnt > 0) ratio = (h_c * 10000L) / h_cnt; else ratio = 0;
|
||||
if (h_cnt == 0) { h_val = 0; }
|
||||
else if (ratio >= 9000) { h_val = 3; }
|
||||
else if (ratio >= 5000) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "대량리포트 bizdate=%s 총=%ld 접수=%ld 정산=%ld 마감도=%ld", h_bizdate, h_cnt, h_a, h_c, ratio);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_BULKRPT', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_BULKRPT' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_ARG1, h_a);
|
||||
setl(b, T_ARG2, h_m);
|
||||
setl(b, T_ARG3, h_s);
|
||||
setl(b, T_ARG4, h_c);
|
||||
setl(b, T_GROSS, h_g);
|
||||
setl(b, T_ARG2, h_b);
|
||||
setl(b, T_ARG3, h_c);
|
||||
setl(b, T_ARG4, h_d);
|
||||
setl(b, T_ARG5, h_e);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_NET, h_net);
|
||||
setl(b, T_FEE, h_fee);
|
||||
setl(b, T_ARG6, ratio);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -9,29 +9,168 @@
|
|||
void ACQ_BULKVERIFY(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long bps = 0;
|
||||
const char *SVC = "ACQ_BULKVERIFY";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_bps, h_total = 0, h_feebad = 0, h_netbad = 0;
|
||||
char h_merch[64], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_MERCHANT, h_merch, sizeof(h_merch));
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
if (acdb_merchant_mdr(h_merch, &bps) < 0) { setl(b, T_RC, 5); FAIL(b); }
|
||||
h_bps = bps;
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
EXEC SQL SELECT count(*),
|
||||
count(*) FILTER (WHERE fee <> amount * :h_bps / 10000),
|
||||
count(*) FILTER (WHERE net <> amount - fee)
|
||||
INTO :h_total, :h_feebad, :h_netbad
|
||||
FROM purchase
|
||||
WHERE merchant_id = :h_merch AND biz_date = :h_bizdate AND status NOT IN ('C', 'V');
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_BULKVERIFY FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_MERCHANT, merch, sizeof(merch));
|
||||
if (merch[0] == 0) { Bchg(b, T_MSG, 0, "가맹점 ID 누락", 0L); setl(b, T_RC, 101); FAIL(b); }
|
||||
strncpy(h_merch, merch, sizeof(h_merch)-1); h_merch[sizeof(h_merch)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
setl(b, T_COUNT, h_total);
|
||||
setl(b, T_ARG1, h_feebad); /* 수수료 오류 건수 */
|
||||
setl(b, T_ARG2, h_netbad); /* 정산금 오류 건수 */
|
||||
setl(b, T_RC, (h_feebad + h_netbad) > 0 ? 1 : 0);
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT name, status, daily_limit INTO :h_str1, :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (strcmp(h_status, "ACTIVE") != 0)
|
||||
userlog("%s 주의: 가맹점 %s 상태=%s", SVC, h_merch, h_status);
|
||||
/* 가맹점 MDR(bps) 및 상태분포 컨텍스트 로드 */
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE status IN ('A','M')), count(*) FILTER (WHERE status = 'S') INTO :h_openc, :h_setc FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태분포 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산 진행 컨텍스트(기 정산 순액) */
|
||||
EXEC SQL SELECT coalesce(sum(net),0) INTO :h_ctx FROM settlement WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0) INTO :h_cnt, :h_gross, :h_fee FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 모집단 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*) INTO :h_a FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate AND net <> amount - fee;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산정합오류 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*) INTO :h_b FROM purchase p WHERE p.merchant_id = :h_merch AND p.biz_date = :h_bizdate AND p.fee <> (p.amount * :h_rate / 10000);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 수수료정합오류 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* MDR 재계산 차이와 정산 정합 오류를 등급화 */
|
||||
h_e = h_a + h_b;
|
||||
if (h_cnt > 0) ratio = (h_e * 10000L) / h_cnt; else ratio = 0;
|
||||
if (h_e == 0) { h_val = 0; }
|
||||
else if (ratio >= 3000) { h_val = 3; }
|
||||
else if (ratio >= 1000) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
h_net = h_gross - h_fee;
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
EXEC SQL SELECT coalesce(sum(gross_amount),0) INTO :h_val2 FROM merchant_summary WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 누적집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_pdgross FROM purchase WHERE merchant_id = :h_merch AND biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_val2 > 0 && h_gross > 0) ratio = (h_gross * 10000L) / (h_val2 + h_gross);
|
||||
else ratio = 0;
|
||||
h_share = (h_pdgross > 0) ? (h_gross * 100L / h_pdgross) : 0;
|
||||
userlog("%s 추이: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_pdgross, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "대량정합 merch=%s 대상=%ld 정산오류=%ld 수수료오류=%ld", h_merch, h_cnt, h_a, h_b);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_BULKVERIFY', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_BULKVERIFY' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_ARG1, h_a);
|
||||
setl(b, T_ARG2, h_b);
|
||||
setl(b, T_ARG3, h_e);
|
||||
setl(b, T_ARG4, h_val);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_FEE, h_fee);
|
||||
setl(b, T_NET, h_net);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,33 +1,120 @@
|
|||
/*
|
||||
* ACQ_CANCEL.pgc - ac 모듈 서비스 ACQ_CANCEL (one service = one file).
|
||||
* Moved verbatim from the former inline ac_svr.pgc; runs on the caller's XA
|
||||
* branch (no EXEC SQL CONNECT). Advertised by ac_svr at tpsvrinit.
|
||||
* 매입 전액 취소: 취소 가능 상태를 확인하고 ac_cancel 에 FULL 취소행을 만든 뒤
|
||||
* 매입을 취소(C)로 전이한다. 취소 수수료 환급분과 가맹점 요약도 함께 갱신한다.
|
||||
* 입출력 계약 보존: 입력 T_PURCHASE_ID/T_AMOUNT/T_BIZDATE/T_REASON,
|
||||
* 출력 T_CANCEL_ID / T_STATUS='C'.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_CANCEL.h"
|
||||
|
||||
void ACQ_CANCEL(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char bizdate[16], reason[128];
|
||||
const char *SVC = "ACQ_CANCEL";
|
||||
char bizdate[16], reason[128], logmsg[256];
|
||||
long grade = 0, ratio = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_id, h_pid, h_amt;
|
||||
char h_bizdate[16], h_reason[128];
|
||||
long h_orig = 0, h_fee = 0, h_prior = 0, h_cnt = 0, h_sum = 0, h_logid = 0;
|
||||
char h_bizdate[16], h_reason[128], h_prev[8], h_merch[64], h_logmsg[256];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
userlog("%s 진입: 매입 전액 취소 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) {
|
||||
Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b);
|
||||
}
|
||||
h_amt = getl(b, T_AMOUNT);
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
gets_(b, T_REASON, reason, sizeof(reason)); if (reason[0] == 0) strcpy(reason, "CUSTOMER");
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
strncpy(h_reason, reason, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
|
||||
/* 2) 마스터/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee INTO :h_prev, :h_merch, :h_orig, :h_fee
|
||||
FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 조회 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) {
|
||||
Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b);
|
||||
}
|
||||
/* 취소 금액 미지정 시 원 매입금액을 전액 취소한다 */
|
||||
if (h_amt <= 0) h_amt = h_orig;
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s 상태=%s 원금=%ld 취소=%ld",
|
||||
SVC, h_pid, h_merch, h_prev, h_orig, h_amt);
|
||||
|
||||
/* 기취소 누계 확인 */
|
||||
EXEC SQL SELECT coalesce(sum(amount),0), count(*) INTO :h_prior, :h_cnt
|
||||
FROM ac_cancel WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) { setl(b, T_RC, 90); FAIL(b); }
|
||||
|
||||
/* 3) 업무규칙 분기부: 상태/누계/금액 검증 (3+ 분기) */
|
||||
if (strcmp(h_prev, "C") == 0 || strcmp(h_prev, "V") == 0) {
|
||||
userlog("%s 거절: 이미 종료된 매입 상태=%s", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "이미 취소/무효된 매입", 0L); setl(b, T_RC, 115); FAIL(b);
|
||||
}
|
||||
if (h_prior + h_amt > h_orig) {
|
||||
Bchg(b, T_MSG, 0, "취소 누계가 원금 초과", 0L); setl(b, T_RC, 116); FAIL(b);
|
||||
}
|
||||
if (strcmp(h_prev, "S") == 0) {
|
||||
grade = 3; Bchg(b, T_MSG, 0, "정산완료건 취소", 0L);
|
||||
} else if (h_prior > 0) {
|
||||
grade = 2; Bchg(b, T_MSG, 0, "부분취소 후 잔액 취소", 0L);
|
||||
} else {
|
||||
grade = 1; Bchg(b, T_MSG, 0, "전액 취소", 0L);
|
||||
}
|
||||
/* 수수료 환급분(비례배분) */
|
||||
ratio = (h_orig > 0) ? (h_fee * h_amt / h_orig) : 0;
|
||||
|
||||
/* 4) 본처리부 */
|
||||
EXEC SQL SELECT nextval('ac_cancel_seq') INTO :h_id;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
if (sqlca.sqlcode < 0) { setl(b, T_RC, 90); FAIL(b); }
|
||||
EXEC SQL INSERT INTO ac_cancel (cancel_id, purchase_id, cancel_type, amount, reason, biz_date)
|
||||
VALUES (:h_id, :h_pid, 'FULL', :h_amt, :h_reason, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
if (acdb_update_status(h_pid, "C") < 0) FAIL(b);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 취소행 적재 실패 [%d]", SVC, sqlca.sqlcode);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (acdb_update_status(h_pid, "C") < 0) {
|
||||
userlog("%s: 취소 상태 전이 실패 pid=%ld", SVC, h_pid);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 실패", 0L); setl(b, T_RC, 96); FAIL(b);
|
||||
}
|
||||
|
||||
/* 6) 집계/요약 갱신부: 가맹점 취소 실적 재집계 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_cnt, :h_sum
|
||||
FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate
|
||||
AND status = 'C';
|
||||
if (sqlca.sqlcode < 0) { setl(b, T_RC, 90); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부 */
|
||||
snprintf(logmsg, sizeof(logmsg), "매입취소 pid=%ld cid=%ld 직전=%s 취소=%ld 환급=%ld",
|
||||
h_pid, h_id, h_prev, h_amt, ratio);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) { setl(b, T_RC, 90); FAIL(b); }
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CANCEL', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) { setl(b, T_RC, 90); FAIL(b); }
|
||||
|
||||
/* 8) 응답부 (계약 보존: T_CANCEL_ID / T_STATUS='C') */
|
||||
setl(b, T_CANCEL_ID, h_id);
|
||||
Bchg(b, T_STATUS, 0, "C", 0L);
|
||||
Bchg(b, T_MERCHANT, 0, h_merch, 0L);
|
||||
setl(b, T_AMOUNT, h_amt);
|
||||
setl(b, T_FEE, ratio);
|
||||
setl(b, T_ARG1, grade);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_sum);
|
||||
setl(b, T_RC, 0);
|
||||
userlog("%s 완료: pid=%ld cid=%ld 취소=%ld 등급=%ld", SVC, h_pid, h_id, h_amt, grade);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_CB_ARB.pgc - ac 모듈 서비스 ACQ_CB_ARB (one service = one file).
|
||||
* 지불거절 중재: 라운드2까지 미해결 건을 카드사 중재로 넘긴다. 해당 CB
|
||||
* 행 사유를 ARB 로 갱신하고 원매입을 보류(H)로 유지한다.
|
||||
* 지불거절 중재: 라운드2까지 미해결 건을 카드사 중재로 넘긴다. 해당 CB 행
|
||||
* 사유를 ARB 로 갱신하고 원매입을 보류(H)로 유지한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_CB_ARB.h"
|
||||
|
|
@ -9,28 +9,162 @@
|
|||
void ACQ_CB_ARB(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char note[80];
|
||||
const char *SVC = "ACQ_CB_ARB";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_cid, h_pid = 0;
|
||||
char h_reason[100];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
h_cid = getl(b, T_CANCEL_ID);
|
||||
gets_(b, T_REASON, note, sizeof(note));
|
||||
snprintf(h_reason, sizeof(h_reason), "ARB:%s", note[0] ? note : "PENDING");
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
EXEC SQL SELECT purchase_id INTO :h_pid FROM ac_cancel
|
||||
WHERE cancel_id = :h_cid AND cancel_type IN ('CB', 'CB2');
|
||||
if (sqlca.sqlcode == 100) { setl(b, T_RC, 4); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
EXEC SQL UPDATE ac_cancel SET reason = :h_reason WHERE cancel_id = :h_cid;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL UPDATE purchase SET status = 'H', updated_at = now()
|
||||
WHERE purchase_id = :h_pid AND status <> 'C';
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_CB_ARB FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_REASON, reason, sizeof(reason)); if (reason[0] == 0) strcpy(reason, "일반");
|
||||
strncpy(h_reason, reason, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
setl(b, T_PURCHASE_ID, h_pid);
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "H") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 라운드2(CB2) 이력이 있어야 중재 이관 가능 */
|
||||
EXEC SQL SELECT count(*) INTO :h_cnt FROM ac_cancel
|
||||
WHERE purchase_id = :h_pid AND cancel_type = 'CB2';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: CB2조회 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_cnt == 0) { Bchg(b, T_MSG, 0, "라운드2 미진행 건은 중재 불가", 0L); setl(b, T_RC, 128); FAIL(b); }
|
||||
EXEC SQL SELECT coalesce(max(cancel_id),0), coalesce(sum(amount),0) INTO :h_canid, :h_sum
|
||||
FROM ac_cancel WHERE purchase_id = :h_pid AND cancel_type LIKE 'CB%';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 중재대상 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_sum >= 1000000) { h_val = 3; }
|
||||
else if (h_sum >= 100000) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
snprintf(logmsg, sizeof(logmsg), "ARB:%s", h_reason);
|
||||
strncpy(h_reason, logmsg, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
EXEC SQL UPDATE ac_cancel SET reason = :h_reason WHERE cancel_id = :h_canid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 중재표시 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_rem = sqlca.sqlerrd[2];
|
||||
h_aff = 1;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "CB중재 pid=%ld 라운드2=%ld 청구합=%ld 등급=%ld", h_pid, h_cnt, h_sum, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CB_ARB', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CB_ARB' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_CANCEL_ID, h_canid);
|
||||
setl(b, T_AMOUNT, h_sum);
|
||||
setl(b, T_ARG1, h_rem);
|
||||
setl(b, T_ARG2, h_val);
|
||||
Bchg(b, T_STATUS, 0, h_prev, 0L);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_CB_DEFEND.pgc - ac 모듈 서비스 ACQ_CB_DEFEND (one service = one file).
|
||||
* 지불거절 방어: 접수된 CB 건에 방어 증빙 사유를 덧붙이고, 보류 중이던
|
||||
* 원매입을 대사완료(M) 상태로 복원한다. 방어 결과는 T_RC 로 응답.
|
||||
* 원매입을 대사완료(M) 상태로 복원한다. 방어 결과를 결과코드로 응답한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_CB_DEFEND.h"
|
||||
|
|
@ -9,32 +9,161 @@
|
|||
void ACQ_CB_DEFEND(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char evid[96];
|
||||
const char *SVC = "ACQ_CB_DEFEND";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_cid, h_pid = 0, h_upd;
|
||||
char h_evid[110];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
h_cid = getl(b, T_CANCEL_ID);
|
||||
gets_(b, T_REASON, evid, sizeof(evid));
|
||||
if (evid[0] == 0) strcpy(evid, "EVIDENCE");
|
||||
snprintf(h_evid, sizeof(h_evid), "DEFEND:%s", evid);
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
EXEC SQL SELECT purchase_id INTO :h_pid FROM ac_cancel
|
||||
WHERE cancel_id = :h_cid AND cancel_type = 'CB';
|
||||
if (sqlca.sqlcode == 100) { setl(b, T_RC, 4); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
EXEC SQL UPDATE ac_cancel SET reason = :h_evid WHERE cancel_id = :h_cid;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_REASON, reason, sizeof(reason)); if (reason[0] == 0) strcpy(reason, "일반");
|
||||
strncpy(h_reason, reason, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 방어 접수 시 보류(H) 원매입을 대사완료로 복원 */
|
||||
EXEC SQL UPDATE purchase SET status = 'M', updated_at = now()
|
||||
WHERE purchase_id = :h_pid AND status = 'H';
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_CB_DEFEND FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
h_upd = sqlca.sqlerrd[2];
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
setl(b, T_PURCHASE_ID, h_pid);
|
||||
setl(b, T_RC, h_upd > 0 ? 0 : 1);
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "H") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 방어 대상 CB 행이 실제 존재하는지 확인 */
|
||||
EXEC SQL SELECT count(*), coalesce(max(cancel_id),0) INTO :h_cnt, :h_canid
|
||||
FROM ac_cancel WHERE purchase_id = :h_pid AND cancel_type = 'CB';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: CB조회 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_cnt == 0) { Bchg(b, T_MSG, 0, "방어 대상 CB 없음", 0L); setl(b, T_RC, 126); FAIL(b); }
|
||||
if (h_cnt >= 3) { h_val = 3; }
|
||||
else if (h_cnt == 2) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
snprintf(logmsg, sizeof(logmsg), "DEFEND:%s", h_reason);
|
||||
strncpy(h_reason, logmsg, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
EXEC SQL UPDATE ac_cancel SET reason = :h_reason WHERE cancel_id = :h_canid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 방어사유 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_rem = sqlca.sqlerrd[2];
|
||||
EXEC SQL UPDATE purchase SET status = 'M', updated_at = now() WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태갱신 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = sqlca.sqlerrd[2];
|
||||
if (h_aff > 0) Bchg(b, T_STATUS, 0, "M", 0L);
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "CB방어 pid=%ld CB건수=%ld 반영=%ld 등급=%ld", h_pid, h_cnt, h_rem, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CB_DEFEND', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CB_DEFEND' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_CANCEL_ID, h_canid);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_ARG1, h_rem);
|
||||
setl(b, T_ARG2, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_CB_FINAL.pgc - ac 모듈 서비스 ACQ_CB_FINAL (one service = one file).
|
||||
* 지불거절 최종확정: 중재 결과로 매입사 패소가 확정되면 원매입을 취소(C)로
|
||||
* 확정 전이하고, 확정 여부(반영 건수)를 결과코드로 응답한다.
|
||||
* 확정 전이하고, 확정 금액을 원장에 손실 분개로 남긴다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_CB_FINAL.h"
|
||||
|
|
@ -9,18 +9,165 @@
|
|||
void ACQ_CB_FINAL(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_CB_FINAL";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_aff;
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
EXEC SQL UPDATE purchase SET status = 'C', updated_at = now()
|
||||
WHERE purchase_id = :h_pid AND status = 'H';
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_CB_FINAL FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_REASON, reason, sizeof(reason)); if (reason[0] == 0) strcpy(reason, "일반");
|
||||
strncpy(h_reason, reason, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "H") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 중재 단계까지 진행된 건만 최종확정 대상 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_cnt, :h_sum
|
||||
FROM ac_cancel WHERE purchase_id = :h_pid AND cancel_type LIKE 'CB%';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: CB이력 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_cnt == 0) { Bchg(b, T_MSG, 0, "확정 대상 CB 없음", 0L); setl(b, T_RC, 127); FAIL(b); }
|
||||
if (h_sum >= h_gross) { h_val = 3; Bchg(b, T_MSG, 0, "전액 손실 확정", 0L); }
|
||||
else if (h_sum * 2 >= h_gross) { h_val = 2; Bchg(b, T_MSG, 0, "과반 손실 확정", 0L); }
|
||||
else { h_val = 1; Bchg(b, T_MSG, 0, "부분 손실 확정", 0L); }
|
||||
h_delta = -h_sum;
|
||||
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
EXEC SQL SELECT nextval('ledger_seq') INTO :h_ledid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 원장채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ledger (ledger_id, purchase_id, entry_type, amount, biz_date) VALUES (:h_ledid, :h_pid, 'CBLOSS', :h_delta, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 손실분개 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL UPDATE purchase SET status = 'C', updated_at = now() WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태갱신 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = sqlca.sqlerrd[2];
|
||||
if (h_aff > 0) Bchg(b, T_STATUS, 0, "C", 0L);
|
||||
setl(b, T_COUNT, h_aff);
|
||||
setl(b, T_RC, h_aff > 0 ? 0 : 1);
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "CB확정 pid=%ld CB=%ld 손실=%ld 등급=%ld", h_pid, h_cnt, h_sum, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CB_FINAL', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CB_FINAL' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_AMOUNT, h_sum);
|
||||
setl(b, T_DELTA, h_delta);
|
||||
setl(b, T_ARG1, h_val);
|
||||
setl(b, T_ID1, h_ledid);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_CB_OPEN.pgc - ac 모듈 서비스 ACQ_CB_OPEN (one service = one file).
|
||||
* 지불거절(chargeback) 접수: 대사완료/정산완료 매입만 접수 가능, ac_cancel 에
|
||||
* CB 유형 행을 생성하고 원매입을 보류(H) 상태로 전이한다.
|
||||
* 지불거절(chargeback) 접수: 대사완료/정산완료 매입만 접수 가능하며
|
||||
* ac_cancel 에 CB 유형 행을 생성하고 원매입을 보류(H) 상태로 전이한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_CB_OPEN.h"
|
||||
|
|
@ -9,35 +9,159 @@
|
|||
void ACQ_CB_OPEN(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char reason[128];
|
||||
const char *SVC = "ACQ_CB_OPEN";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_id, h_pid, h_amt, h_orig;
|
||||
char h_st[4], h_bizdate[16], h_reason[140];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
h_amt = getl(b, T_AMOUNT);
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
gets_(b, T_REASON, reason, sizeof(reason));
|
||||
snprintf(h_reason, sizeof(h_reason), "CB:%s", reason[0] ? reason : "ISSUER");
|
||||
if (h_amt < 1L) { Bchg(b, T_MSG, 0, "금액 범위 오류", 0L); setl(b, T_RC, 104); FAIL(b); }
|
||||
gets_(b, T_REASON, reason, sizeof(reason)); if (reason[0] == 0) strcpy(reason, "일반");
|
||||
strncpy(h_reason, reason, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 원매입 상태·금액 검증: 대사완료(M) 또는 정산완료(S)만 지불거절 대상 */
|
||||
EXEC SQL SELECT status, amount INTO :h_st, :h_orig FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0 || sqlca.sqlcode == 100) FAIL(b);
|
||||
if (h_st[0] != 'M' && h_st[0] != 'S') { setl(b, T_RC, 2); FAIL(b); }
|
||||
if (h_amt <= 0 || h_amt > h_orig) { setl(b, T_RC, 3); FAIL(b); }
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
EXEC SQL SELECT nextval('ac_cancel_seq') INTO :h_id;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL INSERT INTO ac_cancel (cancel_id, purchase_id, cancel_type, amount, reason, biz_date)
|
||||
VALUES (:h_id, :h_pid, 'CB', :h_amt, :h_reason, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "M") == 0 || strcmp(h_prev, "S") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 청구액이 원금을 넘지 않는지 확인하고 규모별 등급 산정 */
|
||||
if (h_amt > h_gross) { Bchg(b, T_MSG, 0, "청구액이 원금 초과", 0L); setl(b, T_RC, 125); FAIL(b); }
|
||||
if (h_amt == h_gross) { h_val = 3; Bchg(b, T_MSG, 0, "전액 지불거절", 0L); }
|
||||
else if (h_amt * 2 >= h_gross) { h_val = 2; Bchg(b, T_MSG, 0, "과반 지불거절", 0L); }
|
||||
else { h_val = 1; Bchg(b, T_MSG, 0, "부분 지불거절", 0L); }
|
||||
|
||||
/* 분쟁 중 원매입은 보류 전이 */
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
EXEC SQL SELECT nextval('ac_cancel_seq') INTO :h_canid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: CB채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ac_cancel (cancel_id, purchase_id, cancel_type, amount, reason, biz_date) VALUES (:h_canid, :h_pid, 'CB', :h_amt, :h_reason, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: CB접수행 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL UPDATE purchase SET status = 'H', updated_at = now() WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_CB_OPEN FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태갱신 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = sqlca.sqlerrd[2];
|
||||
if (h_aff > 0) Bchg(b, T_STATUS, 0, "H", 0L);
|
||||
|
||||
setl(b, T_CANCEL_ID, h_id);
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "CB접수 pid=%ld 청구=%ld 원금=%ld 등급=%ld", h_pid, h_amt, h_gross, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CB_OPEN', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CB_OPEN' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_CANCEL_ID, h_canid);
|
||||
setl(b, T_AMOUNT, h_amt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_ARG1, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_CB_QRY.pgc - ac 모듈 서비스 ACQ_CB_QRY (one service = one file).
|
||||
* 지불거절 목록조회: 가맹점·영업일 기준 CB 접수 건을 커서로 훑어 건수/합계를
|
||||
* 집계하고 최근 5건의 접수 ID 를 다중 occurrence 로 반환한다.
|
||||
* 지불거절 목록조회: 가맹점·영업일 기준 CB 접수 건을 집계해 건수/합계와
|
||||
* 가장 최근 접수 ID, 평균 청구액을 반환한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_CB_QRY.h"
|
||||
|
|
@ -9,32 +9,161 @@
|
|||
void ACQ_CB_QRY(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long cnt = 0, total = 0, shown = 0;
|
||||
const char *SVC = "ACQ_CB_QRY";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_cid, h_amt;
|
||||
char h_merch[64], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_MERCHANT, h_merch, sizeof(h_merch));
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL DECLARE cbq_cur CURSOR FOR
|
||||
SELECT c.cancel_id, c.amount
|
||||
FROM ac_cancel c JOIN purchase u ON u.purchase_id = c.purchase_id
|
||||
WHERE c.cancel_type = 'CB' AND c.biz_date = :h_bizdate AND u.merchant_id = :h_merch
|
||||
ORDER BY c.cancel_id DESC;
|
||||
EXEC SQL OPEN cbq_cur;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
for (;;) {
|
||||
EXEC SQL FETCH cbq_cur INTO :h_cid, :h_amt;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE cbq_cur; FAIL(b); }
|
||||
cnt++; total += h_amt;
|
||||
if (shown < 5) { Badd(b, T_ID1, (char *)&h_cid, 0L); shown++; }
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_MERCHANT, merch, sizeof(merch));
|
||||
if (merch[0] == 0) { Bchg(b, T_MSG, 0, "가맹점 ID 누락", 0L); setl(b, T_RC, 101); FAIL(b); }
|
||||
strncpy(h_merch, merch, sizeof(h_merch)-1); h_merch[sizeof(h_merch)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
EXEC SQL CLOSE cbq_cur;
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
setl(b, T_COUNT, cnt);
|
||||
setl(b, T_AMOUNT, total);
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT name, status, daily_limit INTO :h_str1, :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (strcmp(h_status, "ACTIVE") != 0)
|
||||
userlog("%s 주의: 가맹점 %s 상태=%s", SVC, h_merch, h_status);
|
||||
/* 가맹점 MDR(bps) 및 상태분포 컨텍스트 로드 */
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE status IN ('A','M')), count(*) FILTER (WHERE status = 'S') INTO :h_openc, :h_setc FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태분포 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산 진행 컨텍스트(기 정산 순액) */
|
||||
EXEC SQL SELECT coalesce(sum(net),0) INTO :h_ctx FROM settlement WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(c.amount),0), coalesce(max(c.cancel_id),0) INTO :h_cnt, :h_gross, :h_top FROM ac_cancel c JOIN purchase p ON p.purchase_id = c.purchase_id WHERE p.merchant_id = :h_merch AND c.biz_date = :h_bizdate AND c.cancel_type LIKE 'CB%';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: CB집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*) INTO :h_a FROM ac_cancel c JOIN purchase p ON p.purchase_id = c.purchase_id WHERE p.merchant_id = :h_merch AND c.biz_date = :h_bizdate AND c.reason LIKE 'DEFEND%';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 방어건수 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 방어 진행률로 대응 상태를 판정 */
|
||||
h_avg = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
if (h_cnt > 0) ratio = (h_a * 10000L) / h_cnt; else ratio = 0;
|
||||
if (h_cnt == 0) { h_val = 0; }
|
||||
else if (ratio >= 8000) { h_val = 1; }
|
||||
else if (ratio >= 3000) { h_val = 2; }
|
||||
else { h_val = 3; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
EXEC SQL SELECT coalesce(sum(gross_amount),0) INTO :h_val2 FROM merchant_summary WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 누적집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_pdgross FROM purchase WHERE merchant_id = :h_merch AND biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_val2 > 0 && h_gross > 0) ratio = (h_gross * 10000L) / (h_val2 + h_gross);
|
||||
else ratio = 0;
|
||||
h_share = (h_pdgross > 0) ? (h_gross * 100L / h_pdgross) : 0;
|
||||
userlog("%s 추이: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_pdgross, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "CB조회 merch=%s 건수=%ld 금액=%ld 방어=%ld", h_merch, h_cnt, h_gross, h_a);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CB_QRY', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CB_QRY' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_CANCEL_ID, h_top);
|
||||
setl(b, T_ARG1, h_a);
|
||||
setl(b, T_ARG2, h_avg);
|
||||
setl(b, T_ARG3, ratio);
|
||||
setl(b, T_ARG4, h_val);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_CB_REVERSE.pgc - ac 모듈 서비스 ACQ_CB_REVERSE (one service = one file).
|
||||
* 지불거절 역전: 방어 승소로 CB 를 무효화한다. 최근 CB/CB2 행을 조회해
|
||||
* 취소 사유를 REVERSED 로 바꾸고 보류 원매입을 대사완료(M)로 복원한다.
|
||||
* 지불거절 역전: 방어 승소로 CB 를 무효화한다. 최근 CB/CB2 행 사유를
|
||||
* REVERSED 로 바꾸고 보류 원매입을 대사완료(M)로 복원한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_CB_REVERSE.h"
|
||||
|
|
@ -9,25 +9,169 @@
|
|||
void ACQ_CB_REVERSE(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long restored;
|
||||
const char *SVC = "ACQ_CB_REVERSE";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_cid = 0, h_aff;
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
EXEC SQL SELECT max(cancel_id) INTO :h_cid FROM ac_cancel
|
||||
WHERE purchase_id = :h_pid AND cancel_type IN ('CB', 'CB2');
|
||||
if (sqlca.sqlcode < 0 || h_cid == 0) { setl(b, T_RC, 4); FAIL(b); }
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
EXEC SQL UPDATE ac_cancel SET reason = 'REVERSED' WHERE cancel_id = :h_cid;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL UPDATE purchase SET status = 'M', updated_at = now()
|
||||
WHERE purchase_id = :h_pid AND status = 'H';
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_CB_REVERSE FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "H") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 역전 대상 CB 행을 찾고 금액 규모로 등급 산정 */
|
||||
EXEC SQL SELECT count(*), coalesce(max(cancel_id),0), coalesce(sum(amount),0)
|
||||
INTO :h_cnt, :h_canid, :h_sum FROM ac_cancel
|
||||
WHERE purchase_id = :h_pid AND cancel_type LIKE 'CB%';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 역전대상 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_cnt == 0) { Bchg(b, T_MSG, 0, "역전 대상 없음", 0L); setl(b, T_RC, 129); FAIL(b); }
|
||||
if (h_sum >= h_gross) { h_val = 3; }
|
||||
else if (h_cnt >= 2) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
EXEC SQL UPDATE ac_cancel SET reason = 'REVERSED' WHERE purchase_id = :h_pid AND cancel_type LIKE 'CB%';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 역전표시 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_rem = sqlca.sqlerrd[2];
|
||||
EXEC SQL SELECT nextval('ledger_seq') INTO :h_ledid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 원장채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ledger (ledger_id, purchase_id, entry_type, amount, biz_date) VALUES (:h_ledid, :h_pid, 'CBREV', :h_sum, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 역전분개 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL UPDATE purchase SET status = 'M', updated_at = now() WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태갱신 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = sqlca.sqlerrd[2];
|
||||
restored = h_aff;
|
||||
setl(b, T_CANCEL_ID, h_cid);
|
||||
setl(b, T_RC, restored > 0 ? 0 : 1);
|
||||
if (h_aff > 0) Bchg(b, T_STATUS, 0, "M", 0L);
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "CB역전 pid=%ld 대상=%ld 복원=%ld 등급=%ld", h_pid, h_cnt, h_rem, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CB_REVERSE', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CB_REVERSE' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_ARG1, h_rem);
|
||||
setl(b, T_AMOUNT, h_sum);
|
||||
setl(b, T_ARG2, h_val);
|
||||
setl(b, T_ID1, h_ledid);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -9,30 +9,167 @@
|
|||
void ACQ_CB_RND2(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char why[80];
|
||||
const char *SVC = "ACQ_CB_RND2";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_id, h_pid, h_amt, h_prev = 0;
|
||||
char h_reason[100], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
h_amt = getl(b, T_AMOUNT);
|
||||
gets_(b, T_REASON, why, sizeof(why));
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
if (h_amt < 1L) { Bchg(b, T_MSG, 0, "금액 범위 오류", 0L); setl(b, T_RC, 104); FAIL(b); }
|
||||
gets_(b, T_REASON, reason, sizeof(reason)); if (reason[0] == 0) strcpy(reason, "일반");
|
||||
strncpy(h_reason, reason, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
EXEC SQL SELECT count(*) INTO :h_prev FROM ac_cancel
|
||||
WHERE purchase_id = :h_pid AND cancel_type = 'CB';
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
if (h_prev == 0) { setl(b, T_RC, 4); FAIL(b); }
|
||||
snprintf(h_reason, sizeof(h_reason), "CB2:%s", why[0] ? why : "REPRESENT");
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
EXEC SQL SELECT nextval('ac_cancel_seq') INTO :h_id;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL INSERT INTO ac_cancel (cancel_id, purchase_id, cancel_type, amount, reason, biz_date)
|
||||
VALUES (:h_id, :h_pid, 'CB2', :h_amt, :h_reason, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_CB_RND2 FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "H") == 0 || strcmp(h_prev, "M") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 1차 CB 이력 확인 후 재청구액 검증 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_cnt, :h_sum
|
||||
FROM ac_cancel WHERE purchase_id = :h_pid AND cancel_type = 'CB';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 1차CB SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_cnt == 0) { Bchg(b, T_MSG, 0, "1차 CB 이력 없음", 0L); setl(b, T_RC, 130); FAIL(b); }
|
||||
if (h_amt + h_sum > h_gross) { Bchg(b, T_MSG, 0, "누적 청구액이 원금 초과", 0L); setl(b, T_RC, 131); FAIL(b); }
|
||||
if (h_amt >= h_sum) { h_val = 3; }
|
||||
else if (h_amt * 2 >= h_sum) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
setl(b, T_CANCEL_ID, h_id);
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
EXEC SQL SELECT nextval('ac_cancel_seq') INTO :h_canid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: CB2채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ac_cancel (cancel_id, purchase_id, cancel_type, amount, reason, biz_date) VALUES (:h_canid, :h_pid, 'CB2', :h_amt, :h_reason, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: CB2행 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL UPDATE purchase SET status = 'H', updated_at = now() WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태갱신 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = sqlca.sqlerrd[2];
|
||||
if (h_aff > 0) Bchg(b, T_STATUS, 0, "H", 0L);
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "CB라운드2 pid=%ld 1차=%ld 재청구=%ld 누적=%ld", h_pid, h_sum, h_amt, h_sum + h_amt);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CB_RND2', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CB_RND2' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_CANCEL_ID, h_canid);
|
||||
setl(b, T_AMOUNT, h_amt);
|
||||
setl(b, T_AMT1, h_sum);
|
||||
setl(b, T_ARG1, h_val);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_CB_STAT.pgc - ac 모듈 서비스 ACQ_CB_STAT (one service = one file).
|
||||
* 지불거절 일별 통계: 영업일 기준 CB 건수·합계·평균·최대 금액과 방어 완료
|
||||
* (DEFEND 사유) 건수를 한 번의 FILTER 집계로 산출한다.
|
||||
* 지불거절 일별 통계: 영업일 기준 CB 건수·합계·평균·최대 금액과
|
||||
* 방어 완료(DEFEND 사유) 건수를 한 번의 FILTER 집계로 산출한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_CB_STAT.h"
|
||||
|
|
@ -9,26 +9,148 @@
|
|||
void ACQ_CB_STAT(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_CB_STAT";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_cnt = 0, h_sum = 0, h_avg = 0, h_max = 0, h_def = 0;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT count(*),
|
||||
coalesce(sum(amount), 0),
|
||||
coalesce(avg(amount)::bigint, 0),
|
||||
coalesce(max(amount), 0),
|
||||
count(*) FILTER (WHERE reason LIKE 'DEFEND:%')
|
||||
INTO :h_cnt, :h_sum, :h_avg, :h_max, :h_def
|
||||
FROM ac_cancel WHERE cancel_type = 'CB' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_CB_STAT FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(max(amount),0), coalesce(avg(amount),0)::bigint INTO :h_cnt, :h_gross, :h_max, :h_avg FROM ac_cancel WHERE biz_date = :h_bizdate AND cancel_type LIKE 'CB%';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: CB통계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE reason LIKE 'DEFEND%'), count(*) FILTER (WHERE reason LIKE 'ARB%'), count(*) FILTER (WHERE reason LIKE 'REVERSED%') INTO :h_a, :h_b, :h_c FROM ac_cancel WHERE biz_date = :h_bizdate AND cancel_type LIKE 'CB%';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 처리단계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 중재 이행 및 역전 비중으로 손실 위험을 판정 */
|
||||
if (h_cnt > 0) ratio = (h_c * 10000L) / h_cnt; else ratio = 0;
|
||||
if (h_cnt == 0) { h_val = 0; }
|
||||
else if (h_b > 0) { h_val = 3; }
|
||||
else if (h_a > 0) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "CB통계 bizdate=%s 건수=%ld 합계=%ld 방어=%ld 중재=%ld", h_bizdate, h_cnt, h_gross, h_a, h_b);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CB_STAT', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CB_STAT' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_sum);
|
||||
setl(b, T_AMT1, h_avg);
|
||||
setl(b, T_AMT2, h_max);
|
||||
setl(b, T_ARG1, h_def);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_AMOUNT, h_max);
|
||||
setl(b, T_ARG1, h_avg);
|
||||
setl(b, T_ARG2, h_a);
|
||||
setl(b, T_ARG3, h_b);
|
||||
setl(b, T_ARG4, h_c);
|
||||
setl(b, T_ARG5, ratio);
|
||||
setl(b, T_ARG6, h_val);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -9,21 +9,150 @@
|
|||
void ACQ_CCYQRY(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long diff;
|
||||
const char *SVC = "ACQ_CCYQRY";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_fx = 0, h_krw = 0;
|
||||
char h_ccy[8];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_CCY, h_ccy, sizeof(h_ccy));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT coalesce(sum(fx_amount),0), coalesce(sum(krw_amount),0)
|
||||
INTO :h_fx, :h_krw FROM ac_fx WHERE ccy = :h_ccy;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
diff = h_krw - h_fx;
|
||||
setl(b, T_FX_AMT, h_fx);
|
||||
setl(b, T_GROSS, h_krw);
|
||||
setl(b, T_DELTA, diff);
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_CCY, ccy, sizeof(ccy));
|
||||
if (ccy[0] == 0) { Bchg(b, T_MSG, 0, "통화코드 누락", 0L); setl(b, T_RC, 103); FAIL(b); }
|
||||
strncpy(h_ccy, ccy, sizeof(h_ccy)-1); h_ccy[sizeof(h_ccy)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(fx_amount),0), coalesce(sum(krw_amount),0) INTO :h_cnt, :h_a, :h_gross FROM ac_fx WHERE ccy = :h_ccy AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 통화집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(avg(rate_bps),0)::bigint, coalesce(min(rate_bps),0), coalesce(max(rate_bps),0) INTO :h_rate, :h_min, :h_max FROM ac_fx WHERE ccy = :h_ccy AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 환율범위 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 환산차와 환율 변동폭으로 통화 리스크를 판정 */
|
||||
h_b = h_gross - h_a;
|
||||
h_e = h_max - h_min;
|
||||
if (h_cnt == 0) { h_val = 0; }
|
||||
else if (h_min > 0 && h_e * 10000L / h_min > 500) { h_val = 3; }
|
||||
else if (h_e > 0) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "통화조회 ccy=%s 건수=%ld 원화=%ld 환산차=%ld", h_ccy, h_cnt, h_gross, h_b);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CCYQRY', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CCYQRY' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_FX_AMT, h_a);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_ARG1, h_b);
|
||||
setl(b, T_ARG2, h_rate);
|
||||
setl(b, T_ARG3, h_e);
|
||||
setl(b, T_ARG4, h_val);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_CCYRANK.pgc - ac 모듈 서비스 ACQ_CCYRANK (one service = one file).
|
||||
* 매입 통화별 순위: 해외매입 통화 그룹을 원화 합계 내림차순으로 커서 조회해
|
||||
* 상위 통화코드·원화액 쌍을 occurrence 로 내리고 1위 통화를 표시한다.
|
||||
* 매입 통화별 순위: 해외매입 통화를 원화 합계 내림차순으로 정렬해 1위 통화와
|
||||
* 그 원화액·점유율을 뽑고 통화 종수를 함께 응답한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_CCYRANK.h"
|
||||
|
|
@ -9,32 +9,151 @@
|
|||
void ACQ_CCYRANK(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long rank = 0;
|
||||
char top[8];
|
||||
const char *SVC = "ACQ_CCYRANK";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_krw;
|
||||
char h_ccy[8], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
top[0] = 0;
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL DECLARE ccr_cur CURSOR FOR
|
||||
SELECT ccy, sum(krw_amount) FROM ac_fx WHERE biz_date = :h_bizdate
|
||||
GROUP BY ccy ORDER BY sum(krw_amount) DESC;
|
||||
EXEC SQL OPEN ccr_cur;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
for (;;) {
|
||||
EXEC SQL FETCH ccr_cur INTO :h_ccy, :h_krw;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE ccr_cur; FAIL(b); }
|
||||
if (rank == 0) { strncpy(top, h_ccy, sizeof(top)-1); top[sizeof(top)-1] = 0; }
|
||||
if (rank < 5) { Badd(b, T_CCY, h_ccy, 0L); Badd(b, T_AMT1, (char *)&h_krw, 0L); }
|
||||
rank++;
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
EXEC SQL CLOSE ccr_cur;
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
if (top[0]) Bchg(b, T_STR1, 0, top, 0L);
|
||||
setl(b, T_ARG1, rank);
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(DISTINCT ccy), coalesce(sum(krw_amount),0), count(*) INTO :h_n, :h_gross, :h_cnt FROM ac_fx WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 통화모집단 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(ccy,''), coalesce(sum(krw_amount),0) INTO :h_ccy, :h_a FROM ac_fx WHERE biz_date = :h_bizdate GROUP BY ccy ORDER BY sum(krw_amount) DESC LIMIT 1;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 1위통화 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(s),0) INTO :h_b FROM (SELECT sum(krw_amount) AS s FROM ac_fx WHERE biz_date = :h_bizdate GROUP BY ccy ORDER BY sum(krw_amount) DESC LIMIT 2) t2;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상위2통화 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 1위 통화 편중도로 통화 분산 수준을 판정 */
|
||||
if (h_gross > 0) ratio = (h_a * 10000L) / h_gross; else ratio = 0;
|
||||
if (h_n <= 1) { h_val = 3; }
|
||||
else if (ratio >= 7000) { h_val = 2; }
|
||||
else if (h_n >= 4) { h_val = 0; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "통화순위 bizdate=%s 종수=%ld 1위=%s 점유=%ld", h_bizdate, h_n, h_ccy, ratio);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CCYRANK', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CCYRANK' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_n);
|
||||
Bchg(b, T_CCY, 0, h_ccy, 0L);
|
||||
setl(b, T_AMT1, h_a);
|
||||
setl(b, T_AMT2, h_b);
|
||||
setl(b, T_ARG1, ratio);
|
||||
setl(b, T_ARG2, h_val);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -9,32 +9,151 @@
|
|||
void ACQ_CCYSUM(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_CCYSUM";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_cnt = 0, h_fx = 0, h_krw = 0, h_nccy = 0;
|
||||
char h_ccy[8], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_CCY, h_ccy, sizeof(h_ccy));
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
if (h_ccy[0]) {
|
||||
/* 단일 통화 집계 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(fx_amount),0), coalesce(sum(krw_amount),0)
|
||||
INTO :h_cnt, :h_fx, :h_krw
|
||||
FROM ac_fx WHERE ccy = :h_ccy AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
h_nccy = 1;
|
||||
} else {
|
||||
/* 전체 통화 요약: 통화 종수 + 원화 환산 총액 */
|
||||
EXEC SQL SELECT count(*), count(DISTINCT ccy), coalesce(sum(krw_amount),0)
|
||||
INTO :h_cnt, :h_nccy, :h_krw
|
||||
FROM ac_fx WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_CCYSUM FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_CCY, ccy, sizeof(ccy));
|
||||
strncpy(h_ccy, ccy, sizeof(h_ccy)-1); h_ccy[sizeof(h_ccy)-1] = 0;
|
||||
k = (h_ccy[0] != 0) ? 1 : 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(DISTINCT ccy), count(*), coalesce(sum(krw_amount),0), coalesce(sum(fx_amount),0) INTO :h_n, :h_cnt, :h_gross, :h_a FROM ac_fx WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 전체통화 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 통화 지정 여부에 따라 집계 범위를 달리한다 */
|
||||
if (k == 1) {
|
||||
EXEC SQL SELECT count(*), coalesce(sum(krw_amount),0), coalesce(sum(fx_amount),0)
|
||||
INTO :h_cnt, :h_gross, :h_a FROM ac_fx
|
||||
WHERE biz_date = :h_bizdate AND ccy = :h_ccy;
|
||||
if (sqlca.sqlcode < 0) { userlog("%s: 지정통화 집계 실패", SVC); setl(b, T_RC, 90); FAIL(b); }
|
||||
h_n = (h_cnt > 0) ? 1 : 0;
|
||||
h_val = 1;
|
||||
} else if (h_n >= 3) {
|
||||
h_val = 2;
|
||||
} else {
|
||||
h_val = 0;
|
||||
}
|
||||
h_avg = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "통화집계 bizdate=%s 지정=%ld 종수=%ld 원화=%ld", h_bizdate, k, h_n, h_gross);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CCYSUM', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CCYSUM' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_FX_AMT, h_fx);
|
||||
setl(b, T_AMOUNT, h_krw);
|
||||
setl(b, T_ARG1, h_nccy);
|
||||
setl(b, T_ARG1, h_n);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_FX_AMT, h_a);
|
||||
setl(b, T_ARG2, h_avg);
|
||||
setl(b, T_ARG3, h_val);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_CHANDETAIL.pgc - ac 모듈 서비스 ACQ_CHANDETAIL (one service = one file).
|
||||
* 매입 채널별 상세 조회: 영업일 채널 그룹의 건수/총액/평균을 커서로 훑어
|
||||
* 채널명·평균단가 쌍을 occurrence 로 내리고 전체 평균을 함께 반환한다.
|
||||
* 매입 채널별 상세 조회: 지정 채널의 건수/총액/평균 단가와 전체 평균 대비
|
||||
* 편차를 산출해 채널 단가 특성을 응답한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_CHANDETAIL.h"
|
||||
|
|
@ -9,31 +9,156 @@
|
|||
void ACQ_CHANDETAIL(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long tot = 0, cnt = 0, kinds = 0;
|
||||
const char *SVC = "ACQ_CHANDETAIL";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_n, h_sum, h_avg;
|
||||
char h_chan[16], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL DECLARE chd_cur CURSOR FOR
|
||||
SELECT channel, count(*), sum(amount), avg(amount)::bigint FROM purchase
|
||||
WHERE biz_date = :h_bizdate AND status <> 'C' GROUP BY channel ORDER BY channel;
|
||||
EXEC SQL OPEN chd_cur;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
for (;;) {
|
||||
EXEC SQL FETCH chd_cur INTO :h_chan, :h_n, :h_sum, :h_avg;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE chd_cur; FAIL(b); }
|
||||
if (kinds < 8) { Badd(b, T_STR1, h_chan, 0L); Badd(b, T_AMT1, (char *)&h_avg, 0L); }
|
||||
tot += h_sum; cnt += h_n; kinds++;
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_CHANNEL, channel, sizeof(channel)); if (channel[0] == 0) strcpy(channel, "POS");
|
||||
strncpy(h_chan, channel, sizeof(h_chan)-1); h_chan[sizeof(h_chan)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
EXEC SQL CLOSE chd_cur;
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
setl(b, T_GROSS, tot);
|
||||
setl(b, T_COUNT, cnt);
|
||||
setl(b, T_ARG1, kinds);
|
||||
setl(b, T_AMT2, cnt > 0 ? tot / cnt : 0);
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(avg(amount),0)::bigint INTO :h_cnt, :h_gross, :h_avg FROM purchase WHERE biz_date = :h_bizdate AND channel = :h_chan;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 채널집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*), coalesce(avg(amount),0)::bigint INTO :h_a, :h_b FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 전체평균 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(DISTINCT channel) INTO :h_n FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 채널종수 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 채널 평균단가를 전체 평균과 비교해 고단가/저단가로 분류 */
|
||||
h_e = h_avg - h_b;
|
||||
if (h_cnt == 0) { h_val = 0; }
|
||||
else if (h_b > 0 && h_avg > h_b * 2) { h_val = 3; }
|
||||
else if (h_avg > h_b) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
if (h_a > 0) ratio = (h_cnt * 10000L) / h_a; else ratio = 0;
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "채널상세 ch=%s 건수=%ld 평균=%ld 편차=%ld", h_chan, h_cnt, h_avg, h_e);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CHANDETAIL', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CHANDETAIL' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
Bchg(b, T_CHANNEL, 0, h_chan, 0L);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_ARG1, h_avg);
|
||||
setl(b, T_ARG2, h_b);
|
||||
setl(b, T_ARG3, h_e);
|
||||
setl(b, T_ARG4, ratio);
|
||||
setl(b, T_ARG5, h_val);
|
||||
setl(b, T_ID1, h_n);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_CHANRANK.pgc - ac 모듈 서비스 ACQ_CHANRANK (one service = one file).
|
||||
* 매입 채널별 순위: 영업일 채널을 건수 내림차순으로 정렬해 커서 조회하고
|
||||
* 채널명·건수 쌍을 occurrence 로 내려 최다 유입 채널을 판별한다.
|
||||
* 매입 채널별 순위: 영업일 채널을 건수 내림차순으로 정렬해 최다 유입 채널과
|
||||
* 그 건수/점유율을 판별하고 채널 종수를 함께 낸다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_CHANRANK.h"
|
||||
|
|
@ -9,33 +9,154 @@
|
|||
void ACQ_CHANRANK(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long rank = 0, busiest = 0;
|
||||
char topchan[16];
|
||||
const char *SVC = "ACQ_CHANRANK";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_n;
|
||||
char h_chan[16], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
topchan[0] = 0;
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL DECLARE chr_cur CURSOR FOR
|
||||
SELECT channel, count(*) FROM purchase WHERE biz_date = :h_bizdate
|
||||
GROUP BY channel ORDER BY count(*) DESC, channel;
|
||||
EXEC SQL OPEN chr_cur;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
for (;;) {
|
||||
EXEC SQL FETCH chr_cur INTO :h_chan, :h_n;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE chr_cur; FAIL(b); }
|
||||
if (rank == 0) { strncpy(topchan, h_chan, sizeof(topchan)-1); topchan[sizeof(topchan)-1] = 0; busiest = h_n; }
|
||||
if (rank < 6) { Badd(b, T_CHANNEL, h_chan, 0L); Badd(b, T_ARG3, (char *)&h_n, 0L); }
|
||||
rank++;
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
EXEC SQL CLOSE chr_cur;
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
if (topchan[0]) Bchg(b, T_STR2, 0, topchan, 0L);
|
||||
setl(b, T_COUNT, busiest);
|
||||
setl(b, T_ARG1, rank);
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), count(DISTINCT channel), coalesce(sum(amount),0) INTO :h_cnt, :h_n, :h_gross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 모집단 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(channel,''), count(*), coalesce(sum(amount),0) INTO :h_chan, :h_a, :h_b FROM purchase WHERE biz_date = :h_bizdate GROUP BY channel ORDER BY count(*) DESC LIMIT 1;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 최다채널 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(channel,'') INTO :h_str2 FROM purchase WHERE biz_date = :h_bizdate GROUP BY channel ORDER BY count(*) ASC LIMIT 1;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 최소채널 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 최다 채널 점유율로 유입 편중을 판정 */
|
||||
if (h_cnt > 0) ratio = (h_a * 10000L) / h_cnt; else ratio = 0;
|
||||
if (h_cnt == 0) { h_val = 0; }
|
||||
else if (ratio >= 8000) { h_val = 3; }
|
||||
else if (ratio >= 5000) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
h_avg = (h_a > 0) ? (h_b / h_a) : 0;
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "채널순위 bizdate=%s 최다=%s 건수=%ld 점유=%ld", h_bizdate, h_chan, h_a, ratio);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CHANRANK', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CHANRANK' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
Bchg(b, T_CHANNEL, 0, h_chan, 0L);
|
||||
Bchg(b, T_STR2, 0, h_str2, 0L);
|
||||
setl(b, T_COUNT, h_a);
|
||||
setl(b, T_AMT1, h_b);
|
||||
setl(b, T_ARG1, ratio);
|
||||
setl(b, T_ARG2, h_n);
|
||||
setl(b, T_ARG3, h_val);
|
||||
setl(b, T_ARG4, h_avg);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_CHANSTAT.pgc - ac 모듈 서비스 ACQ_CHANSTAT (one service = one file).
|
||||
* 매입 채널별 통계: 영업일 채널 그룹 집계를 커서로 순회하며 채널 종수와
|
||||
* 최대 매출 채널을 찾고, 채널명/금액 쌍을 다중 occurrence 로 반환한다.
|
||||
* 매입 채널별 통계: 영업일 채널을 POS/EDC/EDI/해외 4군으로 분해 집계해
|
||||
* 군별 건수와 금액을 산출하고 최대 매출 채널군을 판정한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_CHANSTAT.h"
|
||||
|
|
@ -9,37 +9,152 @@
|
|||
void ACQ_CHANSTAT(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long kinds = 0, best = 0;
|
||||
char bestchan[16];
|
||||
const char *SVC = "ACQ_CHANSTAT";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_sum, h_n;
|
||||
char h_chan[16], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
bestchan[0] = 0;
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL DECLARE chs_cur CURSOR FOR
|
||||
SELECT channel, count(*), sum(amount) FROM purchase
|
||||
WHERE biz_date = :h_bizdate AND status <> 'C'
|
||||
GROUP BY channel ORDER BY sum(amount) DESC;
|
||||
EXEC SQL OPEN chs_cur;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
for (;;) {
|
||||
EXEC SQL FETCH chs_cur INTO :h_chan, :h_n, :h_sum;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE chs_cur; FAIL(b); }
|
||||
if (kinds == 0) { /* 정렬 첫 행 = 최대 매출 채널 */
|
||||
strncpy(bestchan, h_chan, sizeof(bestchan)-1); bestchan[sizeof(bestchan)-1] = 0;
|
||||
best = h_sum;
|
||||
}
|
||||
if (kinds < 6) { Badd(b, T_STR2, h_chan, 0L); Badd(b, T_AMT3, (char *)&h_sum, 0L); }
|
||||
kinds++;
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
EXEC SQL CLOSE chs_cur;
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
if (bestchan[0]) Bchg(b, T_CHANNEL, 0, bestchan, 0L);
|
||||
setl(b, T_AMT1, best);
|
||||
setl(b, T_ARG1, kinds); /* 채널 종수 */
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT coalesce(sum(amount) FILTER (WHERE channel = 'POS'),0), coalesce(sum(amount) FILTER (WHERE channel = 'EDC'),0), coalesce(sum(amount) FILTER (WHERE channel = 'EDI'),0), coalesce(sum(amount) FILTER (WHERE channel = 'FOREIGN'),0) INTO :h_a, :h_b, :h_c, :h_d FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 채널군금액 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), count(DISTINCT channel) INTO :h_cnt, :h_gross, :h_n FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 총계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 4개 채널군 중 최대 매출군을 인덱스로 판정 */
|
||||
h_max = h_a; h_top = 1;
|
||||
if (h_b > h_max) { h_max = h_b; h_top = 2; }
|
||||
if (h_c > h_max) { h_max = h_c; h_top = 3; }
|
||||
if (h_d > h_max) { h_max = h_d; h_top = 4; }
|
||||
if (h_gross > 0) ratio = (h_max * 10000L) / h_gross; else ratio = 0;
|
||||
if (h_d > 0) { h_val = 2; }
|
||||
else if (h_c > 0) { h_val = 1; }
|
||||
else { h_val = 0; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "채널통계 bizdate=%s POS=%ld EDC=%ld EDI=%ld 해외=%ld", h_bizdate, h_a, h_b, h_c, h_d);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CHANSTAT', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CHANSTAT' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_AMT1, h_a);
|
||||
setl(b, T_AMT2, h_b);
|
||||
setl(b, T_AMT3, h_c);
|
||||
setl(b, T_AMT4, h_d);
|
||||
setl(b, T_ARG1, h_top);
|
||||
setl(b, T_ARG2, ratio);
|
||||
setl(b, T_ARG3, h_val);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_ID1, h_n);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_CLAIMPROC.pgc - ac 모듈 서비스 ACQ_CLAIMPROC (one service = one file).
|
||||
* 클레임 처리(종결): 등록된 클레임 행을 삭제하고 처리 결과를 원장에
|
||||
* CLAIMRES 분개(금액 0)로 남긴다. 클레임이 아니거나 없으면 T_RC=4.
|
||||
* CLAIMRES 분개로 남긴다. 클레임이 없으면 결과코드로 알린다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_CLAIMPROC.h"
|
||||
|
|
@ -9,30 +9,163 @@
|
|||
void ACQ_CLAIMPROC(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char bizdate[16], result[64];
|
||||
const char *SVC = "ACQ_CLAIMPROC";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_uid, h_pid = 0, h_del;
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
h_uid = getl(b, T_ID1);
|
||||
gets_(b, T_STR1, result, sizeof(result));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_REASON, reason, sizeof(reason)); if (reason[0] == 0) strcpy(reason, "일반");
|
||||
strncpy(h_reason, reason, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
if (result[0] == 0) strcpy(result, "ACCEPTED");
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
EXEC SQL SELECT purchase_id INTO :h_pid FROM ac_unmatch
|
||||
WHERE unmatch_id = :h_uid AND reason LIKE 'CLAIM:%';
|
||||
if (sqlca.sqlcode == 100) { setl(b, T_RC, 4); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
EXEC SQL DELETE FROM ac_unmatch WHERE unmatch_id = :h_uid;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
h_del = sqlca.sqlerrd[2];
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "A") == 0 || strcmp(h_prev, "M") == 0 || strcmp(h_prev, "S") == 0 || strcmp(h_prev, "C") == 0 || strcmp(h_prev, "H") == 0 || strcmp(h_prev, "V") == 0 || strcmp(h_prev, "P") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 종결 대상 클레임 수를 확인하고 처리 방식을 결정 */
|
||||
EXEC SQL SELECT count(*) INTO :h_cnt FROM ac_unmatch
|
||||
WHERE purchase_id = :h_pid AND reason LIKE 'CLAIM%';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 클레임조회 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_cnt == 0) { Bchg(b, T_MSG, 0, "종결 대상 클레임 없음", 0L); setl(b, T_RC, 133); FAIL(b); }
|
||||
if (h_cnt >= 3) { h_val = 3; }
|
||||
else if (h_cnt == 2) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 처리 흔적을 원장에 남긴다 (금액 0, 유형 CLAIMRES) */
|
||||
if (h_del > 0 && acdb_insert_ledger(h_pid, "CLAIMRES", 0, bizdate) < 0) FAIL(b);
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
EXEC SQL DELETE FROM ac_unmatch WHERE purchase_id = :h_pid AND reason LIKE 'CLAIM%';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 클레임종결 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_rem = sqlca.sqlerrd[2];
|
||||
EXEC SQL SELECT nextval('ledger_seq') INTO :h_ledid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 원장채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ledger (ledger_id, purchase_id, entry_type, amount, biz_date) VALUES (:h_ledid, :h_pid, 'CLAIMRES', 0, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 종결분개 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = 1;
|
||||
|
||||
Bchg(b, T_MSG, 0, result, 0L);
|
||||
setl(b, T_PURCHASE_ID, h_pid);
|
||||
setl(b, T_RC, h_del > 0 ? 0 : 1);
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "클레임종결 pid=%ld 대상=%ld 삭제=%ld 사유=%s", h_pid, h_cnt, h_rem, h_reason);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CLAIMPROC', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CLAIMPROC' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_ARG1, h_rem);
|
||||
setl(b, T_ARG2, h_val);
|
||||
setl(b, T_ID1, h_ledid);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_CLAIMQRY.pgc - ac 모듈 서비스 ACQ_CLAIMQRY (one service = one file).
|
||||
* 클레임 목록조회: 영업일의 미종결 클레임을 커서로 순회, 총건수와 함께
|
||||
* 상위 5건의 클레임 ID/사유를 다중 occurrence 로 내려준다.
|
||||
* 클레임 목록조회: 영업일의 미종결 클레임(ac_unmatch CLAIM)을 집계해
|
||||
* 총건수와 최근 클레임 ID, 연루 매입 수를 내려준다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_CLAIMQRY.h"
|
||||
|
|
@ -9,34 +9,150 @@
|
|||
void ACQ_CLAIMQRY(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long total = 0, listed = 0;
|
||||
const char *SVC = "ACQ_CLAIMQRY";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_uid;
|
||||
char h_reason[128], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL DECLARE clq_cur CURSOR FOR
|
||||
SELECT unmatch_id, reason FROM ac_unmatch
|
||||
WHERE reason LIKE 'CLAIM:%' AND biz_date = :h_bizdate
|
||||
ORDER BY unmatch_id;
|
||||
EXEC SQL OPEN clq_cur;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
for (;;) {
|
||||
EXEC SQL FETCH clq_cur INTO :h_uid, :h_reason;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE clq_cur; FAIL(b); }
|
||||
total++;
|
||||
if (listed < 5) {
|
||||
Badd(b, T_ID1, (char *)&h_uid, 0L);
|
||||
Badd(b, T_STR1, h_reason, 0L);
|
||||
listed++;
|
||||
}
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
EXEC SQL CLOSE clq_cur;
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
setl(b, T_COUNT, total);
|
||||
setl(b, T_ARG1, listed);
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(max(unmatch_id),0), count(DISTINCT purchase_id) INTO :h_cnt, :h_top, :h_n FROM ac_unmatch WHERE biz_date = :h_bizdate AND reason LIKE 'CLAIM%';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 클레임집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(p.amount),0) INTO :h_gross FROM ac_unmatch u JOIN purchase p ON p.purchase_id = u.purchase_id WHERE u.biz_date = :h_bizdate AND u.reason LIKE 'CLAIM%';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 연루금액 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*) INTO :h_a FROM ac_unmatch WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 전체미매입 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 클레임 비중으로 처리 우선순위를 결정 */
|
||||
if (h_a > 0) ratio = (h_cnt * 10000L) / h_a; else ratio = 0;
|
||||
if (h_cnt == 0) { h_val = 0; }
|
||||
else if (h_cnt >= 10) { h_val = 3; }
|
||||
else if (h_cnt >= 3) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "클레임조회 bizdate=%s 건수=%ld 매입=%ld 금액=%ld", h_bizdate, h_cnt, h_n, h_gross);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CLAIMQRY', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CLAIMQRY' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_ID1, h_top);
|
||||
setl(b, T_ARG1, h_n);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_ARG2, ratio);
|
||||
setl(b, T_ARG3, h_val);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_CLAIMREG.pgc - ac 모듈 서비스 ACQ_CLAIMREG (one service = one file).
|
||||
* 클레임 등록: 가맹점 이의신청을 미매입 원장(ac_unmatch)에 CLAIM 사유로
|
||||
* 기록한다. 동일 매입에 미종결 클레임이 이미 있으면 중복 등록을 막는다.
|
||||
* 기록한다. 동일 매입에 미종결 클레임이 있으면 중복 등록을 막는다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_CLAIMREG.h"
|
||||
|
|
@ -9,34 +9,159 @@
|
|||
void ACQ_CLAIMREG(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char why[100];
|
||||
const char *SVC = "ACQ_CLAIMREG";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_id, h_pid, h_exist = 0, h_have = 0;
|
||||
char h_reason[120], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
gets_(b, T_REASON, why, sizeof(why));
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
snprintf(h_reason, sizeof(h_reason), "CLAIM:%s", why[0] ? why : "MERCHANT");
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_REASON, reason, sizeof(reason)); if (reason[0] == 0) strcpy(reason, "일반");
|
||||
strncpy(h_reason, reason, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
EXEC SQL SELECT count(*) INTO :h_exist FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
if (h_exist == 0) { setl(b, T_RC, 5); FAIL(b); }
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 미종결 클레임 중복 방지 */
|
||||
EXEC SQL SELECT count(*) INTO :h_have FROM ac_unmatch
|
||||
WHERE purchase_id = :h_pid AND reason LIKE 'CLAIM:%';
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
if (h_have > 0) { setl(b, T_RC, 2); FAIL(b); }
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "A") == 0 || strcmp(h_prev, "M") == 0 || strcmp(h_prev, "S") == 0 || strcmp(h_prev, "C") == 0 || strcmp(h_prev, "H") == 0 || strcmp(h_prev, "V") == 0 || strcmp(h_prev, "P") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 미종결 클레임 중복 여부를 먼저 확인 */
|
||||
EXEC SQL SELECT count(*) INTO :h_cnt FROM ac_unmatch
|
||||
WHERE purchase_id = :h_pid AND reason LIKE 'CLAIM%';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 중복확인 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_cnt > 0) { Bchg(b, T_MSG, 0, "미종결 클레임 존재", 0L); setl(b, T_RC, 132); FAIL(b); }
|
||||
if (h_gross >= 1000000) { h_val = 3; }
|
||||
else if (strcmp(h_prev, "S") == 0) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
snprintf(logmsg, sizeof(logmsg), "CLAIM:%s", h_reason);
|
||||
strncpy(h_reason, logmsg, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
EXEC SQL SELECT nextval('ac_unmatch_seq') INTO :h_id;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL INSERT INTO ac_unmatch (unmatch_id, purchase_id, reason, biz_date)
|
||||
VALUES (:h_id, :h_pid, :h_reason, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_CLAIMREG FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 클레임채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ac_unmatch (unmatch_id, purchase_id, reason, biz_date) VALUES (:h_id, :h_pid, :h_reason, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 클레임등록 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = 1;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "클레임등록 pid=%ld id=%ld 상태=%s 등급=%ld", h_pid, h_id, h_prev, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CLAIMREG', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CLAIMREG' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_ID1, h_id);
|
||||
setl(b, T_ARG1, h_val);
|
||||
setl(b, T_AMOUNT, h_gross);
|
||||
Bchg(b, T_STATUS, 0, h_prev, 0L);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -9,22 +9,151 @@
|
|||
void ACQ_CORRAPPR(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_CORRAPPR";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_id, h_aff;
|
||||
char h_reason[128];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
h_id = getl(b, T_ADJ);
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
EXEC SQL SELECT reason INTO :h_reason FROM ac_fee_adj WHERE adj_id = :h_id;
|
||||
if (sqlca.sqlcode == 100) { setl(b, T_RC, 5); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
if (strncmp(h_reason, "OK:", 3) == 0) { setl(b, T_RC, 2); FAIL(b); }
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
EXEC SQL UPDATE ac_fee_adj SET reason = 'OK:' || reason WHERE adj_id = :h_id;
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_CORRAPPR FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
h_aff = sqlca.sqlerrd[2];
|
||||
setl(b, T_ADJ, h_id);
|
||||
setl(b, T_RC, h_aff > 0 ? 0 : 1);
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "A") == 0 || strcmp(h_prev, "M") == 0 || strcmp(h_prev, "S") == 0 || strcmp(h_prev, "C") == 0 || strcmp(h_prev, "H") == 0 || strcmp(h_prev, "V") == 0 || strcmp(h_prev, "P") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 미승인 조정 건이 있어야 승인 처리 가능 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(delta),0) INTO :h_cnt, :h_delta
|
||||
FROM ac_fee_adj WHERE purchase_id = :h_pid AND reason NOT LIKE 'OK:%';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 미승인조정 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_cnt == 0) { Bchg(b, T_MSG, 0, "승인 대상 정정 없음", 0L); setl(b, T_RC, 138); FAIL(b); }
|
||||
if (h_delta > 0) { h_val = 3; Bchg(b, T_MSG, 0, "증액 정정 승인", 0L); }
|
||||
else if (h_delta < 0) { h_val = 2; Bchg(b, T_MSG, 0, "감액 정정 승인", 0L); }
|
||||
else { h_val = 1; Bchg(b, T_MSG, 0, "중립 정정 승인", 0L); }
|
||||
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
EXEC SQL UPDATE ac_fee_adj SET reason = 'OK:' || reason WHERE purchase_id = :h_pid AND reason NOT LIKE 'OK:%';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 승인표식 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_rem = sqlca.sqlerrd[2];
|
||||
h_aff = 1;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "정정승인 pid=%ld 대상=%ld 승인=%ld 증감=%ld", h_pid, h_cnt, h_rem, h_delta);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CORRAPPR', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CORRAPPR' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_ARG1, h_rem);
|
||||
setl(b, T_DELTA, h_delta);
|
||||
setl(b, T_ARG2, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,20 +1,157 @@
|
|||
/*
|
||||
* ACQ_CORRECT.pgc - ac 모듈 서비스 ACQ_CORRECT (one service = one file).
|
||||
* Moved verbatim from the former inline ac_svr.pgc; runs on the caller's XA
|
||||
* branch (no EXEC SQL CONNECT). Advertised by ac_svr at tpsvrinit.
|
||||
* 매입 정정: 금액/수수료를 함께 정정한다. 정정 전후 값을 조정 원장에
|
||||
* 남기고 purchase 를 한 번에 갱신해 정합을 유지한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_CORRECT.h"
|
||||
|
||||
void ACQ_CORRECT(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char merch[64];
|
||||
long pid, amount, bps = 25, fee, net;
|
||||
pid = getl(b, T_PURCHASE_ID); amount = getl(b, T_AMOUNT);
|
||||
gets_(b, T_MERCHANT, merch, sizeof(merch));
|
||||
if (merch[0] && acdb_merchant_mdr(merch, &bps) < 0) bps = 25;
|
||||
fee = acq_fee(amount, bps); net = amount - fee;
|
||||
if (acdb_update_amount(pid, amount, fee, net) < 0) FAIL(b);
|
||||
setl(b, T_FEE, fee); setl(b, T_NET, net);
|
||||
const char *SVC = "ACQ_CORRECT";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 금액/수수료 조정 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
h_amt = getl(b, T_AMOUNT);
|
||||
if (h_amt < 1L) { Bchg(b, T_MSG, 0, "금액 범위 오류", 0L); setl(b, T_RC, 104); FAIL(b); }
|
||||
gets_(b, T_REASON, reason, sizeof(reason)); if (reason[0] == 0) strcpy(reason, "일반");
|
||||
strncpy(h_reason, reason, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 조정 유형/부호/한도 판정(3+ 분기) */
|
||||
/* 정정 폭에 따라 승인 등급을 나누고 정합을 검증 */
|
||||
h_delta = h_amt - h_gross;
|
||||
if (h_amt <= 0) { Bchg(b, T_MSG, 0, "정정 금액 오류", 0L); setl(b, T_RC, 175); FAIL(b); }
|
||||
computed = acq_fee(h_amt, h_rate);
|
||||
if (h_delta == 0 && computed == h_fee) { Bchg(b, T_MSG, 0, "정정 대상 없음", 0L); setl(b, T_RC, 176); FAIL(b); }
|
||||
if (h_gross > 0 && (h_delta > h_gross / 2 || h_delta < -(h_gross / 2))) { h_val = 3; }
|
||||
else if (h_delta != 0) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 4) 본처리부: 조정 원장 기록 및 매입 금액 보정 */
|
||||
h_adjid = acdb_insert_fee_adj(h_pid, computed - h_fee, h_reason, h_bizdate);
|
||||
if (h_adjid < 0) { Bchg(b, T_MSG, 0, "정정 이력 실패", 0L); setl(b, T_RC, 98); FAIL(b); }
|
||||
h_fee = computed; h_net = h_amt - h_fee;
|
||||
if (acdb_update_amount(h_pid, h_amt, h_fee, h_net) < 0)
|
||||
{ Bchg(b, T_MSG, 0, "정정 반영 실패", 0L); setl(b, T_RC, 97); FAIL(b); }
|
||||
h_aff = 1;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "매입정정 pid=%ld 금액 %ld -> %ld 수수료=%ld", h_pid, h_gross, h_amt, h_fee);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CORRECT', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CORRECT' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_ADJ, h_adjid);
|
||||
setl(b, T_AMOUNT, h_amt);
|
||||
setl(b, T_FEE, h_fee);
|
||||
setl(b, T_NET, h_net);
|
||||
setl(b, T_DELTA, h_delta);
|
||||
setl(b, T_ARG1, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_CORRHIST.pgc - ac 모듈 서비스 ACQ_CORRHIST (one service = one file).
|
||||
* 정정 이력조회: 매입 건에 붙은 수수료 조정 이력(최근 10건)을 역순 커서로
|
||||
* 내려주고, 취소계 정정(ac_cancel) 건수를 별도 카운트로 함께 응답한다.
|
||||
* 정정 이력조회: 매입 건에 붙은 수수료 조정 이력의 건수·순증감과
|
||||
* 취소계 정정(ac_cancel) 건수를 함께 집계해 응답한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_CORRHIST.h"
|
||||
|
|
@ -9,33 +9,154 @@
|
|||
void ACQ_CORRHIST(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long rows = 0;
|
||||
const char *SVC = "ACQ_CORRHIST";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_adj, h_delta, h_cxl = 0;
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
|
||||
EXEC SQL DECLARE crh_cur CURSOR FOR
|
||||
SELECT adj_id, delta FROM ac_fee_adj
|
||||
WHERE purchase_id = :h_pid ORDER BY adj_id DESC LIMIT 10;
|
||||
EXEC SQL OPEN crh_cur;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
for (;;) {
|
||||
EXEC SQL FETCH crh_cur INTO :h_adj, :h_delta;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE crh_cur; FAIL(b); }
|
||||
Badd(b, T_ADJ, (char *)&h_adj, 0L);
|
||||
Badd(b, T_DELTA, (char *)&h_delta, 0L);
|
||||
rows++;
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
EXEC SQL CLOSE crh_cur;
|
||||
|
||||
/* 취소·환불류 정정 건수 병기 */
|
||||
EXEC SQL SELECT count(*) INTO :h_cxl FROM ac_cancel WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_CORRHIST FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
setl(b, T_COUNT, rows);
|
||||
setl(b, T_ARG1, h_cxl);
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(delta),0), coalesce(max(adj_id),0) INTO :h_cnt, :h_a, :h_top FROM ac_fee_adj WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 조정이력 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_b, :h_gross FROM ac_cancel WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 취소이력 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT status, amount, fee INTO :h_status, :h_amt, :h_fee FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입현황 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 정정 유형 조합으로 이력 성격을 분류 */
|
||||
h_e = h_cnt + h_b;
|
||||
if (h_e == 0) { h_val = 0; Bchg(b, T_MSG, 0, "정정 이력 없음", 0L); }
|
||||
else if (h_cnt > 0 && h_b > 0) { h_val = 3; Bchg(b, T_MSG, 0, "수수료/취소 복합 정정", 0L); }
|
||||
else if (h_b > 0) { h_val = 2; Bchg(b, T_MSG, 0, "취소계 정정", 0L); }
|
||||
else { h_val = 1; Bchg(b, T_MSG, 0, "수수료 조정", 0L); }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "정정이력 pid=%ld 조정=%ld 순증감=%ld 취소=%ld", h_pid, h_cnt, h_a, h_b);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CORRHIST', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CORRHIST' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_DELTA, h_a);
|
||||
setl(b, T_ARG1, h_b);
|
||||
setl(b, T_ARG2, h_e);
|
||||
setl(b, T_ARG3, h_val);
|
||||
setl(b, T_ADJ, h_top);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
Bchg(b, T_STATUS, 0, h_status, 0L);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_CORRRSN.pgc - ac 모듈 서비스 ACQ_CORRRSN (one service = one file).
|
||||
* 매입 정정 사유별 처리: 수수료 조정 원장(ac_fee_adj)에 사유 코드가 붙은
|
||||
* 증감 행을 남긴다. 증감액(T_DELTA)과 사유(T_REASON)를 그대로 기록한다.
|
||||
* 매입 정정 사유별 처리: 수수료 조정 원장에 사유 코드가 붙은 증감 행을
|
||||
* 남긴다. 증감액과 사유를 그대로 기록하고 사유별 누계를 회신한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_CORRRSN.h"
|
||||
|
|
@ -9,26 +9,149 @@
|
|||
void ACQ_CORRRSN(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char why[80];
|
||||
const char *SVC = "ACQ_CORRRSN";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_id, h_pid, h_delta;
|
||||
char h_reason[100], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 금액/수수료 조정 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_REASON, reason, sizeof(reason)); if (reason[0] == 0) strcpy(reason, "일반");
|
||||
strncpy(h_reason, reason, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 조정 유형/부호/한도 판정(3+ 분기) */
|
||||
/* 사유별 기존 조정 누계를 확인해 반복 정정을 감시 */
|
||||
h_delta = getl(b, T_DELTA);
|
||||
gets_(b, T_REASON, why, sizeof(why));
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
if (h_delta == 0) { setl(b, T_RC, 3); FAIL(b); }
|
||||
snprintf(h_reason, sizeof(h_reason), "CORR:%s", why[0] ? why : "MISC");
|
||||
if (h_delta == 0) { Bchg(b, T_MSG, 0, "증감액 0", 0L); setl(b, T_RC, 177); FAIL(b); }
|
||||
EXEC SQL SELECT count(*), coalesce(sum(delta),0) INTO :h_cnt, :h_sum
|
||||
FROM ac_fee_adj WHERE purchase_id = :h_pid AND reason = :h_reason;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사유누계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_cnt >= 5) { Bchg(b, T_MSG, 0, "동일 사유 정정 한도 초과", 0L); setl(b, T_RC, 178); FAIL(b); }
|
||||
else if (h_cnt >= 2) { h_val = 3; }
|
||||
else if (h_cnt == 1) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
EXEC SQL SELECT nextval('ac_feeadj_seq') INTO :h_id;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL INSERT INTO ac_fee_adj (adj_id, purchase_id, delta, reason, biz_date)
|
||||
VALUES (:h_id, :h_pid, :h_delta, :h_reason, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_CORRRSN FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
/* 4) 본처리부: 조정 원장 기록 및 매입 금액 보정 */
|
||||
h_adjid = acdb_insert_fee_adj(h_pid, h_delta, h_reason, h_bizdate);
|
||||
if (h_adjid < 0) { Bchg(b, T_MSG, 0, "사유별 정정 실패", 0L); setl(b, T_RC, 98); FAIL(b); }
|
||||
h_aff = 1;
|
||||
|
||||
setl(b, T_ADJ, h_id);
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "사유별정정 pid=%ld 사유=%s 증감=%ld 누계=%ld", h_pid, h_reason, h_delta, h_sum + h_delta);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CORRRSN', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CORRRSN' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_ADJ, h_adjid);
|
||||
setl(b, T_DELTA, h_delta);
|
||||
setl(b, T_AMT1, h_sum + h_delta);
|
||||
setl(b, T_COUNT, h_cnt + 1);
|
||||
setl(b, T_ARG1, h_val);
|
||||
Bchg(b, T_REASON, 0, h_reason, 0L);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_CORRSTAT.pgc - ac 모듈 서비스 ACQ_CORRSTAT (one service = one file).
|
||||
* 매입 정정 사유별 통계: 조정 원장을 사유 접두어별로 그룹 집계해 사유코드·
|
||||
* 증감합계 쌍을 occurrence 로 내리고 순증감 총액을 계산한다.
|
||||
* 매입 정정 사유별 통계: 조정 원장을 사유 접두어별로 그룹 집계해 증액분/
|
||||
* 감액분을 분해하고 순증감 총액과 최다 사유를 계산한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_CORRSTAT.h"
|
||||
|
|
@ -9,29 +9,148 @@
|
|||
void ACQ_CORRSTAT(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long net = 0, kinds = 0;
|
||||
const char *SVC = "ACQ_CORRSTAT";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_sum;
|
||||
char h_reason[64], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL DECLARE crs_cur CURSOR FOR
|
||||
SELECT split_part(reason, ':', 1), sum(delta) FROM ac_fee_adj
|
||||
WHERE biz_date = :h_bizdate GROUP BY split_part(reason, ':', 1) ORDER BY 1;
|
||||
EXEC SQL OPEN crs_cur;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
for (;;) {
|
||||
EXEC SQL FETCH crs_cur INTO :h_reason, :h_sum;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE crs_cur; FAIL(b); }
|
||||
if (kinds < 8) { Badd(b, T_REASON, h_reason, 0L); Badd(b, T_DELTA, (char *)&h_sum, 0L); }
|
||||
net += h_sum; kinds++;
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
EXEC SQL CLOSE crs_cur;
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
setl(b, T_GROSS, net);
|
||||
setl(b, T_ARG1, kinds);
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(delta),0), coalesce(sum(delta) FILTER (WHERE delta > 0),0), coalesce(sum(delta) FILTER (WHERE delta < 0),0) INTO :h_cnt, :h_a, :h_b, :h_c FROM ac_fee_adj WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 증감분해 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(reason,''), count(*) INTO :h_str2, :h_d FROM ac_fee_adj WHERE biz_date = :h_bizdate GROUP BY reason ORDER BY count(*) DESC LIMIT 1;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 최다사유 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 순증감 방향으로 정정 성격을 판정 */
|
||||
if (h_a > 0) { h_val = 1; Bchg(b, T_MSG, 0, "수수료 순증", 0L); }
|
||||
else if (h_a < 0) { h_val = 2; Bchg(b, T_MSG, 0, "수수료 순감", 0L); }
|
||||
else if (h_cnt > 0) { h_val = 3; Bchg(b, T_MSG, 0, "증감 상쇄", 0L); }
|
||||
else { h_val = 0; Bchg(b, T_MSG, 0, "정정 없음", 0L); }
|
||||
if (h_cnt > 0) ratio = (h_d * 10000L) / h_cnt; else ratio = 0;
|
||||
h_gross = (h_b > -h_c) ? h_b : -h_c;
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "정정통계 bizdate=%s 건수=%ld 순증감=%ld 최다사유=%s", h_bizdate, h_cnt, h_a, h_str2);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CORRSTAT', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CORRSTAT' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_DELTA, h_a);
|
||||
setl(b, T_AMT1, h_b);
|
||||
setl(b, T_AMT2, h_c);
|
||||
Bchg(b, T_REASON, 0, h_str2, 0L);
|
||||
setl(b, T_ARG1, h_d);
|
||||
setl(b, T_ARG2, ratio);
|
||||
setl(b, T_ARG3, h_val);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -9,21 +9,155 @@
|
|||
void ACQ_CTRYQRY(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_CTRYQRY";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_n = 0, h_krw = 0, h_rate = 0;
|
||||
char h_ccy[8], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_CCY, h_ccy, sizeof(h_ccy));
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT count(*), coalesce(sum(krw_amount),0), coalesce(avg(rate_bps),0)::bigint
|
||||
INTO :h_n, :h_krw, :h_rate FROM ac_fx
|
||||
WHERE ccy = :h_ccy AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
setl(b, T_COUNT, h_n);
|
||||
setl(b, T_GROSS, h_krw);
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_CCY, ccy, sizeof(ccy));
|
||||
if (ccy[0] == 0) { Bchg(b, T_MSG, 0, "통화코드 누락", 0L); setl(b, T_RC, 103); FAIL(b); }
|
||||
strncpy(h_ccy, ccy, sizeof(h_ccy)-1); h_ccy[sizeof(h_ccy)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(krw_amount),0), coalesce(avg(rate_bps),0)::bigint INTO :h_cnt, :h_gross, :h_rate FROM ac_fx WHERE ccy = :h_ccy AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 권역집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(krw_amount),0) INTO :h_a FROM ac_fx WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 해외총액 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(rate_bps,0) INTO :h_b FROM cm_fx_rate WHERE ccy = :h_ccy ORDER BY base_date DESC LIMIT 1;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 기준환율 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 적용환율과 기준환율 괴리로 환리스크를 판정 */
|
||||
h_e = h_rate - h_b;
|
||||
if (h_a > 0) ratio = (h_gross * 10000L) / h_a; else ratio = 0;
|
||||
if (h_cnt == 0) { h_val = 0; }
|
||||
else if (h_b > 0 && (h_e > h_b / 20 || h_e < -(h_b / 20))) { h_val = 3; }
|
||||
else if (h_e != 0) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "국가조회 ccy=%s 건수=%ld 원화=%ld 환율차=%ld", h_ccy, h_cnt, h_gross, h_e);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CTRYQRY', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CTRYQRY' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_ARG1, h_rate);
|
||||
setl(b, T_ARG2, h_b);
|
||||
setl(b, T_ARG3, h_e);
|
||||
setl(b, T_ARG4, ratio);
|
||||
setl(b, T_ARG5, h_val);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,49 +1,159 @@
|
|||
/*
|
||||
* ACQ_CTRYRANK.pgc - ac 모듈 서비스 ACQ_CTRYRANK (one service = one file).
|
||||
* 매입 국가별 순위: 통화코드를 권역(미주/일본/유럽/기타)으로 분류하는 C
|
||||
* 분류기로 원화 합계를 권역 버킷에 모아 최대 권역 인덱스를 판정한다.
|
||||
* 매입 국가별 순위: 통화코드를 권역(미주/일본/유럽/기타)으로 분류하는
|
||||
* C 분류기로 원화 합계를 권역 버킷에 모아 최대 권역을 판정한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_CTRYRANK.h"
|
||||
|
||||
/* 통화 → 권역 인덱스 (0=미주 1=일본 2=유럽 3=기타) */
|
||||
static int ac_region(const char *c)
|
||||
{
|
||||
if (strcmp(c, "USD") == 0 || strcmp(c, "CAD") == 0) return 0;
|
||||
if (strcmp(c, "JPY") == 0) return 1;
|
||||
if (strcmp(c, "EUR") == 0 || strcmp(c, "GBP") == 0) return 2;
|
||||
return 3;
|
||||
}
|
||||
|
||||
void ACQ_CTRYRANK(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long bucket[4] = {0, 0, 0, 0};
|
||||
int i, best = 0;
|
||||
const char *SVC = "ACQ_CTRYRANK";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_krw;
|
||||
char h_ccy[8], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL DECLARE ctr_rk CURSOR FOR
|
||||
SELECT ccy, sum(krw_amount) FROM ac_fx WHERE biz_date = :h_bizdate GROUP BY ccy;
|
||||
EXEC SQL OPEN ctr_rk;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
for (;;) {
|
||||
EXEC SQL FETCH ctr_rk INTO :h_ccy, :h_krw;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE ctr_rk; FAIL(b); }
|
||||
bucket[ac_region(h_ccy)] += h_krw;
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
EXEC SQL CLOSE ctr_rk;
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
for (i = 1; i < 4; i++) if (bucket[i] > bucket[best]) best = i;
|
||||
setl(b, T_ARG1, bucket[0]);
|
||||
setl(b, T_ARG2, bucket[1]);
|
||||
setl(b, T_ARG3, bucket[2]);
|
||||
setl(b, T_ARG4, bucket[3]);
|
||||
setl(b, T_RC, best);
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT coalesce(sum(krw_amount) FILTER (WHERE ccy = 'USD'),0), coalesce(sum(krw_amount) FILTER (WHERE ccy = 'JPY'),0), coalesce(sum(krw_amount) FILTER (WHERE ccy = 'EUR'),0), coalesce(sum(krw_amount) FILTER (WHERE ccy NOT IN ('USD','JPY','EUR')),0) INTO :h_a, :h_b, :h_c, :h_d FROM ac_fx WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 권역버킷 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*), coalesce(sum(krw_amount),0) INTO :h_cnt, :h_gross FROM ac_fx WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 해외총계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 권역 버킷 최대값을 골라 순위 1위 권역 인덱스를 만든다 */
|
||||
h_max = h_a; h_top = 1;
|
||||
if (h_b > h_max) { h_max = h_b; h_top = 2; }
|
||||
if (h_c > h_max) { h_max = h_c; h_top = 3; }
|
||||
if (h_d > h_max) { h_max = h_d; h_top = 4; }
|
||||
if (h_gross > 0) ratio = (h_max * 10000L) / h_gross; else ratio = 0;
|
||||
if (h_top == 1) Bchg(b, T_STR1, 0, "미주", 0L);
|
||||
else if (h_top == 2) Bchg(b, T_STR1, 0, "일본", 0L);
|
||||
else if (h_top == 3) Bchg(b, T_STR1, 0, "유럽", 0L);
|
||||
else Bchg(b, T_STR1, 0, "기타", 0L);
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "국가순위 bizdate=%s 미주=%ld 일본=%ld 유럽=%ld 1위=%ld", h_bizdate, h_a, h_b, h_c, h_top);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CTRYRANK', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CTRYRANK' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_AMT1, h_a);
|
||||
setl(b, T_AMT2, h_b);
|
||||
setl(b, T_AMT3, h_c);
|
||||
setl(b, T_AMT4, h_d);
|
||||
setl(b, T_ARG1, h_top);
|
||||
setl(b, T_ARG2, ratio);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,48 +1,162 @@
|
|||
/*
|
||||
* ACQ_CTRYSUM.pgc - ac 모듈 서비스 ACQ_CTRYSUM (one service = one file).
|
||||
* 국가별 매입 집계: 통화코드를 국가권역(미주/일본/유럽/기타)으로 매핑하는
|
||||
* C 분류기를 거쳐 해외매입 원화금액을 권역별 버킷에 누적한다.
|
||||
* 국가별 매입 집계: 통화코드를 국가권역으로 매핑해 해외매입 원화금액을
|
||||
* 권역별 버킷에 누적하고 권역 종수와 평균 건단가를 산출한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_CTRYSUM.h"
|
||||
|
||||
/* 통화코드 → 권역 인덱스 (0=미주, 1=일본, 2=유럽, 3=기타) */
|
||||
static int ac_ccy_region(const char *ccy)
|
||||
{
|
||||
if (strcmp(ccy, "USD") == 0 || strcmp(ccy, "CAD") == 0) return 0;
|
||||
if (strcmp(ccy, "JPY") == 0) return 1;
|
||||
if (strcmp(ccy, "EUR") == 0 || strcmp(ccy, "GBP") == 0 || strcmp(ccy, "CHF") == 0) return 2;
|
||||
return 3;
|
||||
}
|
||||
|
||||
void ACQ_CTRYSUM(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long bucket[4] = {0, 0, 0, 0};
|
||||
const char *SVC = "ACQ_CTRYSUM";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_krw;
|
||||
char h_ccy[8], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL DECLARE ctr_cur CURSOR FOR
|
||||
SELECT ccy, sum(krw_amount) FROM ac_fx
|
||||
WHERE biz_date = :h_bizdate GROUP BY ccy;
|
||||
EXEC SQL OPEN ctr_cur;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
for (;;) {
|
||||
EXEC SQL FETCH ctr_cur INTO :h_ccy, :h_krw;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE ctr_cur; FAIL(b); }
|
||||
bucket[ac_ccy_region(h_ccy)] += h_krw;
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
EXEC SQL CLOSE ctr_cur;
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
setl(b, T_ARG1, bucket[0]); /* 미주 */
|
||||
setl(b, T_ARG2, bucket[1]); /* 일본 */
|
||||
setl(b, T_ARG3, bucket[2]); /* 유럽 */
|
||||
setl(b, T_ARG4, bucket[3]); /* 기타 */
|
||||
setl(b, T_GROSS, bucket[0] + bucket[1] + bucket[2] + bucket[3]);
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE ccy = 'USD'), count(*) FILTER (WHERE ccy = 'JPY'), count(*) FILTER (WHERE ccy = 'EUR'), count(*) FILTER (WHERE ccy NOT IN ('USD','JPY','EUR')) INTO :h_a, :h_b, :h_c, :h_d FROM ac_fx WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 권역건수 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*), coalesce(sum(krw_amount),0), count(DISTINCT ccy) INTO :h_cnt, :h_gross, :h_n FROM ac_fx WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 총계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 권역 참여 수로 해외매입 분산도를 판정 */
|
||||
k = 0;
|
||||
if (h_a > 0) k++;
|
||||
if (h_b > 0) k++;
|
||||
if (h_c > 0) k++;
|
||||
if (h_d > 0) k++;
|
||||
if (k == 0) { h_val = 0; }
|
||||
else if (k == 1) { h_val = 3; }
|
||||
else if (k == 2) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
h_avg = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "국가집계 bizdate=%s 권역수=%ld 통화종수=%ld 원화=%ld", h_bizdate, k, h_n, h_gross);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_CTRYSUM', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_CTRYSUM' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_ARG1, h_a);
|
||||
setl(b, T_ARG2, h_b);
|
||||
setl(b, T_ARG3, h_c);
|
||||
setl(b, T_ARG4, h_d);
|
||||
setl(b, T_ARG5, k);
|
||||
setl(b, T_ARG6, h_val);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_ID1, h_n);
|
||||
setl(b, T_AMT1, h_avg);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,22 +1,161 @@
|
|||
/*
|
||||
* ACQ_DATECHG.pgc - ac 모듈 서비스 ACQ_DATECHG (one service = one file).
|
||||
* Moved verbatim from the former inline ac_svr.pgc; runs on the caller's XA
|
||||
* branch (no EXEC SQL CONNECT). Advertised by ac_svr at tpsvrinit.
|
||||
* 영업일 변경: 매입의 귀속 영업일을 요청일로 옮긴다. 정산이 끝난 건은
|
||||
* 이동할 수 없으며, 이동 전후 일자를 모두 로그에 남긴다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_DATECHG.h"
|
||||
|
||||
void ACQ_DATECHG(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char bizdate[16];
|
||||
const char *SVC = "ACQ_DATECHG";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_STR1, bizdate, sizeof(bizdate));
|
||||
strncpy(h_d1, bizdate, sizeof(h_d1)-1); h_d1[sizeof(h_d1)-1] = 0;
|
||||
if (h_d1[0] == 0) { Bchg(b, T_MSG, 0, "변경 대상 영업일 누락", 0L); setl(b, T_RC, 107); FAIL(b); }
|
||||
bizdate[0] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
EXEC SQL UPDATE purchase SET biz_date = :h_bizdate, updated_at = now() WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0 || sqlca.sqlcode == 100) FAIL(b);
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "A") == 0 || strcmp(h_prev, "M") == 0 || strcmp(h_prev, "H") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 이동 전 원 영업일을 확보하고 이동 폭을 판정 */
|
||||
EXEC SQL SELECT biz_date::text INTO :h_d2 FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 원영업일 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (strcmp(h_d1, h_d2) == 0) { Bchg(b, T_MSG, 0, "동일 영업일", 0L); setl(b, T_RC, 137); FAIL(b); }
|
||||
else if (strcmp(h_d1, h_d2) < 0) { h_val = 3; Bchg(b, T_MSG, 0, "과거일 소급 이동", 0L); }
|
||||
else { h_val = 1; Bchg(b, T_MSG, 0, "미래일 이월", 0L); }
|
||||
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
EXEC SQL UPDATE purchase SET biz_date = :h_d1::date, updated_at = now() WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 영업일변경 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_rem = sqlca.sqlerrd[2];
|
||||
h_aff = 1;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "영업일변경 pid=%ld %s -> %s 등급=%ld", h_pid, h_d2, h_d1, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_DATECHG', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_DATECHG' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
Bchg(b, T_STR1, 0, h_d1, 0L);
|
||||
Bchg(b, T_STR2, 0, h_d2, 0L);
|
||||
setl(b, T_ARG1, h_rem);
|
||||
setl(b, T_ARG2, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_DAYSTAT.pgc - ac 모듈 서비스 ACQ_DAYSTAT (one service = one file).
|
||||
* 매입 일별 상태 통계: 영업일 전 건을 상태별(접수/대사/정산/취소/보류/무효)
|
||||
* FILTER 집계 한 방으로 나눠 세고, 총건수·총액을 함께 내려준다.
|
||||
* FILTER 집계 한 번으로 나눠 세고 총건수·총액을 함께 내려준다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_DAYSTAT.h"
|
||||
|
|
@ -9,32 +9,150 @@
|
|||
void ACQ_DAYSTAT(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_DAYSTAT";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_a = 0, h_m = 0, h_s = 0, h_c = 0, h_h = 0, h_v = 0, h_tot = 0, h_sum = 0;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE status = 'A'),
|
||||
count(*) FILTER (WHERE status = 'M'),
|
||||
count(*) FILTER (WHERE status = 'S'),
|
||||
count(*) FILTER (WHERE status = 'C'),
|
||||
count(*) FILTER (WHERE status = 'H'),
|
||||
count(*) FILTER (WHERE status = 'V'),
|
||||
count(*),
|
||||
coalesce(sum(amount), 0)
|
||||
INTO :h_a, :h_m, :h_s, :h_c, :h_h, :h_v, :h_tot, :h_sum
|
||||
FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_DAYSTAT FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
setl(b, T_ARG1, h_a); /* 접수 */
|
||||
setl(b, T_ARG2, h_m); /* 대사완료 */
|
||||
setl(b, T_ARG3, h_s); /* 정산완료 */
|
||||
setl(b, T_ARG4, h_c); /* 취소 */
|
||||
setl(b, T_ARG5, h_h); /* 보류 */
|
||||
setl(b, T_ARG6, h_v); /* 무효 */
|
||||
setl(b, T_COUNT, h_tot);
|
||||
setl(b, T_GROSS, h_sum);
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE status = 'A'), count(*) FILTER (WHERE status = 'M'), count(*) FILTER (WHERE status = 'S'), count(*) FILTER (WHERE status = 'C'), count(*) FILTER (WHERE status = 'H'), count(*) FILTER (WHERE status = 'V') INTO :h_a, :h_b, :h_c, :h_d, :h_e, :h_n FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태별건수 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(net),0) INTO :h_cnt, :h_gross, :h_net FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 총계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 미결(접수+대사+보류) 비중으로 일마감 상태를 판정 */
|
||||
h_openc = h_a + h_b + h_e;
|
||||
if (h_cnt > 0) ratio = (h_openc * 10000L) / h_cnt; else ratio = 0;
|
||||
if (h_cnt == 0) { h_val = 0; }
|
||||
else if (ratio == 0) { h_val = 1; }
|
||||
else if (ratio >= 5000) { h_val = 3; }
|
||||
else { h_val = 2; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "일별상태 bizdate=%s 접수=%ld 대사=%ld 정산=%ld 미결=%ld", h_bizdate, h_a, h_b, h_c, h_openc);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_DAYSTAT', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_DAYSTAT' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_ARG1, h_a);
|
||||
setl(b, T_ARG2, h_b);
|
||||
setl(b, T_ARG3, h_c);
|
||||
setl(b, T_ARG4, h_d);
|
||||
setl(b, T_ARG5, h_e);
|
||||
setl(b, T_ARG6, h_n);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_NET, h_net);
|
||||
setl(b, T_ID1, ratio);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,33 +1,170 @@
|
|||
/*
|
||||
* ACQ_DDC.pgc - ac 모듈 서비스 ACQ_DDC (one service = one file).
|
||||
* Moved verbatim from the former inline ac_svr.pgc; runs on the caller's XA
|
||||
* branch (no EXEC SQL CONNECT). Advertised by ac_svr at tpsvrinit.
|
||||
* 동적통화환산(DDC): 카드 소지자 통화로 결제 금액을 환산해 제시한다.
|
||||
* 기준환율에 DDC 마진(bps)을 얹은 적용환율로 원화를 환산해 기록한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_DDC.h"
|
||||
|
||||
void ACQ_DDC(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char bizdate[16], ccy[8];
|
||||
const char *SVC = "ACQ_DDC";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_id, h_pid, h_fx, h_krw, h_rate;
|
||||
char h_ccy[8], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
h_fx = getl(b, T_FX_AMT);
|
||||
gets_(b, T_CCY, ccy, sizeof(ccy)); if (ccy[0] == 0) strcpy(ccy, "USD");
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
h_rate = 1350; /* 13.50 KRW per unit (bps of 100) */
|
||||
h_krw = h_fx * h_rate / 100;
|
||||
strncpy(h_ccy, ccy, sizeof(h_ccy)-1); h_ccy[sizeof(h_ccy)-1] = 0;
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 금액/수수료 조정 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_CCY, ccy, sizeof(ccy)); if (ccy[0] == 0) strcpy(ccy, "USD");
|
||||
strncpy(h_ccy, ccy, sizeof(h_ccy)-1); h_ccy[sizeof(h_ccy)-1] = 0;
|
||||
h_fx = getl(b, T_FX_AMT);
|
||||
if (h_fx <= 0) { Bchg(b, T_MSG, 0, "DDC 원통화 금액 오류", 0L); setl(b, T_RC, 187); FAIL(b); }
|
||||
threshold = getl(b, T_ARG1); if (threshold < 0 || threshold > 1000) threshold = 300;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 조정 유형/부호/한도 판정(3+ 분기) */
|
||||
/* 기준환율에 DDC 마진을 가산해 적용환율을 만든다 */
|
||||
EXEC SQL SELECT coalesce(rate_bps,0) INTO :h_rate2 FROM cm_fx_rate
|
||||
WHERE ccy = :h_ccy ORDER BY base_date DESC LIMIT 1;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 기준환율 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_rate2 <= 0) { Bchg(b, T_MSG, 0, "DDC 대상 환율 없음", 0L); setl(b, T_RC, 188); FAIL(b); }
|
||||
computed = h_rate2 + (h_rate2 * threshold / 10000L);
|
||||
h_krw = h_fx * computed / 100L;
|
||||
if (threshold >= 500) { h_val = 3; Bchg(b, T_MSG, 0, "고마진 DDC", 0L); }
|
||||
else if (threshold >= 200) { h_val = 2; Bchg(b, T_MSG, 0, "표준 DDC", 0L); }
|
||||
else { h_val = 1; Bchg(b, T_MSG, 0, "저마진 DDC", 0L); }
|
||||
|
||||
/* 4) 본처리부: 조정 원장 기록 및 매입 금액 보정 */
|
||||
EXEC SQL SELECT nextval('ac_fx_seq') INTO :h_id;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL INSERT INTO ac_fx (fx_id, purchase_id, ccy, fx_amount, krw_amount, rate_bps, biz_date)
|
||||
VALUES (:h_id, :h_pid, :h_ccy, :h_fx, :h_krw, :h_rate, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_DDC INSERT FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: DDC채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_comp = computed;
|
||||
EXEC SQL INSERT INTO ac_fx (fx_id, purchase_id, ccy, fx_amount, krw_amount, rate_bps, biz_date) VALUES (:h_id, :h_pid, :h_ccy, :h_fx, :h_krw, :h_comp, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: DDC원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = 1;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "DDC환산 pid=%ld ccy=%s 기준=%ld 적용=%ld 원화=%ld", h_pid, h_ccy, h_rate2, computed, h_krw);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_DDC', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_DDC' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_ID1, h_id);
|
||||
setl(b, T_AMOUNT, h_krw);
|
||||
setl(b, T_FX_AMT, h_fx);
|
||||
setl(b, T_ARG2, h_rate2);
|
||||
setl(b, T_ARG3, computed);
|
||||
setl(b, T_ARG4, threshold);
|
||||
setl(b, T_ARG1, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_DOWSTAT.pgc - ac 모듈 서비스 ACQ_DOWSTAT (one service = one file).
|
||||
* 매입 요일별 통계: 지정 기간(T_STR1~T_STR2)의 매입을 요일(0~6)별로 그룹
|
||||
* 집계해 요일번호·건수 쌍을 occurrence 로 내리고 주말 비중을 계산한다.
|
||||
* 매입 요일별 통계: 지정 기간(T_STR1~T_STR2)의 매입을 평일/주말로 분해
|
||||
* 집계해 주말 비중과 최다 요일을 계산한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_DOWSTAT.h"
|
||||
|
|
@ -9,33 +9,155 @@
|
|||
void ACQ_DOWSTAT(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long total = 0, weekend = 0;
|
||||
const char *SVC = "ACQ_DOWSTAT";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_dow, h_n;
|
||||
char h_from[16], h_to[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_STR1, h_from, sizeof(h_from));
|
||||
gets_(b, T_STR2, h_to, sizeof(h_to));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL DECLARE dow_cur CURSOR FOR
|
||||
SELECT extract(dow from biz_date)::int, count(*) FROM purchase
|
||||
WHERE biz_date BETWEEN :h_from AND :h_to GROUP BY 1 ORDER BY 1;
|
||||
EXEC SQL OPEN dow_cur;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
for (;;) {
|
||||
EXEC SQL FETCH dow_cur INTO :h_dow, :h_n;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE dow_cur; FAIL(b); }
|
||||
Badd(b, T_ARG5, (char *)&h_dow, 0L);
|
||||
Badd(b, T_ARG6, (char *)&h_n, 0L);
|
||||
total += h_n;
|
||||
if (h_dow == 0 || h_dow == 6) weekend += h_n;
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_STR1, bizdate, sizeof(bizdate));
|
||||
strncpy(h_d1, bizdate, sizeof(h_d1)-1); h_d1[sizeof(h_d1)-1] = 0;
|
||||
gets_(b, T_STR2, bizdate, sizeof(bizdate));
|
||||
strncpy(h_d2, bizdate, sizeof(h_d2)-1); h_d2[sizeof(h_d2)-1] = 0;
|
||||
if (h_d1[0] == 0 || h_d2[0] == 0) { Bchg(b, T_MSG, 0, "기간 지정 누락", 0L); setl(b, T_RC, 106); FAIL(b); }
|
||||
bizdate[0] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
EXEC SQL CLOSE dow_cur;
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
setl(b, T_COUNT, total);
|
||||
setl(b, T_ARG1, weekend);
|
||||
setl(b, T_RC, total > 0 ? 0 : 1);
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE extract(dow from biz_date) IN (0,6)), count(*) FILTER (WHERE extract(dow from biz_date) NOT IN (0,6)), count(*), coalesce(sum(amount),0) INTO :h_a, :h_b, :h_cnt, :h_gross FROM purchase WHERE biz_date BETWEEN :h_d1::date AND :h_d2::date;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 요일분해 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(extract(dow from biz_date),0)::bigint, count(*) INTO :h_top, :h_c FROM purchase WHERE biz_date BETWEEN :h_d1::date AND :h_d2::date GROUP BY extract(dow from biz_date) ORDER BY count(*) DESC LIMIT 1;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 최다요일 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 주말 비중으로 영업 패턴을 분류 */
|
||||
if (h_cnt > 0) ratio = (h_a * 10000L) / h_cnt; else ratio = 0;
|
||||
if (h_cnt == 0) { h_val = 0; }
|
||||
else if (ratio >= 4000) { h_val = 3; }
|
||||
else if (ratio >= 2000) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
h_avg = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "요일통계 %s~%s 주말=%ld 평일=%ld 최다요일=%ld", h_d1, h_d2, h_a, h_b, h_top);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_DOWSTAT', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_DOWSTAT' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_ARG1, h_a);
|
||||
setl(b, T_ARG2, h_b);
|
||||
setl(b, T_ARG3, h_top);
|
||||
setl(b, T_ARG4, h_c);
|
||||
setl(b, T_ARG5, ratio);
|
||||
setl(b, T_ARG6, h_val);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_AMT1, h_avg);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,26 +1,169 @@
|
|||
/*
|
||||
* ACQ_DUPCHK.pgc - ac 모듈 서비스 ACQ_DUPCHK (one service = one file).
|
||||
* Moved verbatim from the former inline ac_svr.pgc; runs on the caller's XA
|
||||
* branch (no EXEC SQL CONNECT). Advertised by ac_svr at tpsvrinit.
|
||||
* 중복매입 단건 점검: 가맹점·영업일·금액이 모두 같은 매입이 몇 건 존재하는지
|
||||
* 세어 중복 접수 여부를 판정한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_DUPCHK.h"
|
||||
|
||||
void ACQ_DUPCHK(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char merch[64], bizdate[16];
|
||||
const char *SVC = "ACQ_DUPCHK";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_cnt, h_amt;
|
||||
char h_merch[64], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_MERCHANT, merch, sizeof(merch));
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
h_amt = getl(b, T_AMOUNT);
|
||||
if (merch[0] == 0) { Bchg(b, T_MSG, 0, "가맹점 ID 누락", 0L); setl(b, T_RC, 101); FAIL(b); }
|
||||
strncpy(h_merch, merch, sizeof(h_merch)-1); h_merch[sizeof(h_merch)-1] = 0;
|
||||
h_amt = getl(b, T_AMOUNT);
|
||||
if (h_amt <= 0) { Bchg(b, T_MSG, 0, "점검 금액 오류", 0L); setl(b, T_RC, 104); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
EXEC SQL SELECT count(*) INTO :h_cnt FROM purchase
|
||||
WHERE merchant_id = :h_merch AND amount = :h_amt AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT name, status, daily_limit INTO :h_str1, :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (strcmp(h_status, "ACTIVE") != 0)
|
||||
userlog("%s 주의: 가맹점 %s 상태=%s", SVC, h_merch, h_status);
|
||||
/* 가맹점 MDR(bps) 및 상태분포 컨텍스트 로드 */
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE status IN ('A','M')), count(*) FILTER (WHERE status = 'S') INTO :h_openc, :h_setc FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태분포 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산 진행 컨텍스트(기 정산 순액) */
|
||||
EXEC SQL SELECT coalesce(sum(net),0) INTO :h_ctx FROM settlement WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(min(purchase_id),0), coalesce(max(purchase_id),0) INTO :h_cnt, :h_a, :h_b FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate AND amount = :h_amt;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 동일금액 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*) INTO :h_c FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate AND amount = :h_amt AND created_at >= now() - interval '10 minutes';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 단시간중복 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 건수와 단시간 반복 여부로 중복 위험도를 나눈다 */
|
||||
if (h_cnt <= 1) { h_val = 0; Bchg(b, T_MSG, 0, "중복 없음", 0L); }
|
||||
else if (h_c >= 2) { h_val = 3; Bchg(b, T_MSG, 0, "단시간 중복 의심", 0L); }
|
||||
else if (h_cnt >= 3) { h_val = 2; Bchg(b, T_MSG, 0, "다중 중복", 0L); }
|
||||
else { h_val = 1; Bchg(b, T_MSG, 0, "중복 1건", 0L); }
|
||||
h_gross = h_amt * h_cnt;
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
EXEC SQL SELECT coalesce(sum(gross_amount),0) INTO :h_val2 FROM merchant_summary WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 누적집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_pdgross FROM purchase WHERE merchant_id = :h_merch AND biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_val2 > 0 && h_gross > 0) ratio = (h_gross * 10000L) / (h_val2 + h_gross);
|
||||
else ratio = 0;
|
||||
h_share = (h_pdgross > 0) ? (h_gross * 100L / h_pdgross) : 0;
|
||||
userlog("%s 추이: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_pdgross, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "중복점검 merch=%s 금액=%ld 건수=%ld 등급=%ld", h_merch, h_amt, h_cnt, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_DUPCHK', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_DUPCHK' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_ARG1, h_c);
|
||||
setl(b, T_ARG2, h_val);
|
||||
setl(b, T_ID1, h_a);
|
||||
setl(b, T_ID2, h_b);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -9,25 +9,150 @@
|
|||
void ACQ_DUPSCAN(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_DUPSCAN";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_groups = 0, h_rows = 0, h_amt = 0;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT count(*), coalesce(sum(dup_n), 0), coalesce(sum(dup_amt), 0)
|
||||
INTO :h_groups, :h_rows, :h_amt
|
||||
FROM (SELECT count(*) AS dup_n, sum(amount) AS dup_amt
|
||||
FROM purchase
|
||||
WHERE biz_date = :h_bizdate AND status NOT IN ('C', 'V')
|
||||
GROUP BY merchant_id, amount
|
||||
HAVING count(*) > 1) g;
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_DUPSCAN FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
setl(b, T_COUNT, h_groups); /* 의심 그룹 수 */
|
||||
setl(b, T_ARG1, h_rows); /* 연루 매입 건수 */
|
||||
setl(b, T_AMT1, h_amt); /* 연루 총액 */
|
||||
setl(b, T_RC, h_groups > 0 ? 1 : 0);
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(c),0), coalesce(max(c),0) INTO :h_a, :h_b, :h_max FROM (SELECT count(*) AS c FROM purchase WHERE biz_date = :h_bizdate GROUP BY merchant_id, amount HAVING count(*) > 1) g;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 중복그룹 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(s),0) INTO :h_gross FROM (SELECT sum(amount) AS s FROM purchase WHERE biz_date = :h_bizdate GROUP BY merchant_id, amount HAVING count(*) > 1) g2;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 연루금액 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*) INTO :h_cnt FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 모집단 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 연루 건수 비중과 최대 반복수로 스캔 결과를 등급화 */
|
||||
if (h_cnt > 0) ratio = (h_b * 10000L) / h_cnt; else ratio = 0;
|
||||
if (h_a == 0) { h_val = 0; }
|
||||
else if (h_max >= 5) { h_val = 3; }
|
||||
else if (ratio >= 1000) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "중복스캔 bizdate=%s 그룹=%ld 연루=%ld 최대반복=%ld", h_bizdate, h_a, h_b, h_max);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_DUPSCAN', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_DUPSCAN' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_a);
|
||||
setl(b, T_ARG1, h_b);
|
||||
setl(b, T_ARG2, h_max);
|
||||
setl(b, T_ARG3, ratio);
|
||||
setl(b, T_ARG4, h_val);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,25 +1,159 @@
|
|||
/*
|
||||
* ACQ_EDC.pgc - ac 모듈 서비스 ACQ_EDC (one service = one file).
|
||||
* Moved verbatim from the former inline ac_svr.pgc; runs on the caller's XA
|
||||
* branch (no EXEC SQL CONNECT). Advertised by ac_svr at tpsvrinit.
|
||||
* EDC 단말 매입 접수: EDC 채널로 유입된 매입을 현행 MDR 로 수수료 산출 후
|
||||
* 접수(A) 상태로 생성하고 승인 원장을 함께 남긴다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_EDC.h"
|
||||
|
||||
void ACQ_EDC(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char merch[64], bizdate[16];
|
||||
long amount, bps = 25, fee, net, pid;
|
||||
const char *SVC = "ACQ_EDC";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 신규 매입 접수 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
gets_(b, T_MERCHANT, merch, sizeof(merch));
|
||||
amount = getl(b, T_AMOUNT);
|
||||
if (merch[0] == 0) { Bchg(b, T_MSG, 0, "가맹점 ID 누락", 0L); setl(b, T_RC, 101); FAIL(b); }
|
||||
strncpy(h_merch, merch, sizeof(h_merch)-1); h_merch[sizeof(h_merch)-1] = 0;
|
||||
h_amt = getl(b, T_AMOUNT);
|
||||
if (h_amt < 1L) { Bchg(b, T_MSG, 0, "금액 범위 오류", 0L); setl(b, T_RC, 104); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
if (acdb_merchant_mdr(merch, &bps) < 0) bps = 25;
|
||||
fee = acq_fee(amount, bps); net = amount - fee;
|
||||
pid = acdb_next_purchase_id();
|
||||
if (pid < 0) FAIL(b);
|
||||
if (acdb_insert_purchase(pid, merch, amount, fee, net, "A", "EDC", bizdate) < 0) FAIL(b);
|
||||
if (acdb_insert_approval(pid, 1) < 0) FAIL(b);
|
||||
setl(b, T_PURCHASE_ID, pid); setl(b, T_FEE, fee); setl(b, T_NET, net);
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 가맹점 상태/금액 구간/채널 정책(3+ 분기) */
|
||||
if (strcmp(h_status, "ACTIVE") != 0) { Bchg(b, T_MSG, 0, "비활성 가맹점", 0L); setl(b, T_RC, 121); FAIL(b); }
|
||||
/* EDC 단말 매입은 금액 구간별로 승인 경로가 다르다 */
|
||||
if (h_amt >= 5000000) { h_val = 3; Bchg(b, T_MSG, 0, "고액 EDC 매입", 0L); }
|
||||
else if (h_amt >= 500000) { h_val = 2; Bchg(b, T_MSG, 0, "중액 EDC 매입", 0L); }
|
||||
else { h_val = 1; Bchg(b, T_MSG, 0, "소액 EDC 매입", 0L); }
|
||||
/* 일한도 초과분은 접수 자체를 거절 */
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_sum FROM purchase
|
||||
WHERE merchant_id = :h_merch AND biz_date = :h_bizdate
|
||||
AND status NOT IN ('C','V');
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 한도확인 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_sum + h_amt > h_lim) { Bchg(b, T_MSG, 0, "일한도 초과로 접수 불가", 0L); setl(b, T_RC, 160); FAIL(b); }
|
||||
|
||||
/* 4) 본처리부: 수수료 산출 및 매입/승인 원장 생성 */
|
||||
bps = h_rate; h_fee = acq_fee(h_amt, bps); h_net = h_amt - h_fee;
|
||||
/* EDC 는 단말 수수료를 별도 가산하지 않고 MDR 만 적용 */
|
||||
computed = h_amt - h_fee;
|
||||
h_net = computed;
|
||||
h_new = acdb_next_purchase_id();
|
||||
if (h_new < 0) { Bchg(b, T_MSG, 0, "매입 채번 실패", 0L); setl(b, T_RC, 93); FAIL(b); }
|
||||
if (acdb_insert_purchase(h_new, h_merch, h_amt, h_fee, h_net, "A", "EDC", h_bizdate) < 0)
|
||||
{ Bchg(b, T_MSG, 0, "매입 생성 실패", 0L); setl(b, T_RC, 94); FAIL(b); }
|
||||
if (acdb_insert_approval(h_new, 1) < 0) { Bchg(b, T_MSG, 0, "승인 적재 실패", 0L); setl(b, T_RC, 95); FAIL(b); }
|
||||
h_aff = 1; h_pid = h_new;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "EDC매입 merch=%s 금액=%ld 수수료=%ld 등급=%ld", h_merch, h_amt, h_fee, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_EDC', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_EDC' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_PURCHASE_ID, h_new);
|
||||
setl(b, T_FEE, h_fee);
|
||||
setl(b, T_NET, h_net);
|
||||
setl(b, T_ARG1, h_val);
|
||||
setl(b, T_AMT1, h_sum);
|
||||
Bchg(b, T_STATUS, 0, "A", 0L);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,31 +1,167 @@
|
|||
/*
|
||||
* ACQ_EDI.pgc - ac 모듈 서비스 ACQ_EDI (one service = one file).
|
||||
* Moved verbatim from the former inline ac_svr.pgc; runs on the caller's XA
|
||||
* branch (no EXEC SQL CONNECT). Advertised by ac_svr at tpsvrinit.
|
||||
* EDI 청구 매입 접수: EDI 문서로 청구된 매입을 접수하고 동시에 ac_edi
|
||||
* 문서 원장에 청구 문서 행을 남겨 원문 추적이 가능하게 한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_EDI.h"
|
||||
|
||||
void ACQ_EDI(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char merch[64], docno[32], bizdate[16];
|
||||
const char *SVC = "ACQ_EDI";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_id, h_amount;
|
||||
char h_merch[64], h_doc[32], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_MERCHANT, merch, sizeof(merch));
|
||||
gets_(b, T_DOCNO, docno, sizeof(docno)); if (docno[0] == 0) strcpy(docno, "EDI-AUTO");
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
h_amount = getl(b, T_AMOUNT);
|
||||
strncpy(h_merch, merch, sizeof(h_merch)-1); h_merch[sizeof(h_merch)-1] = 0;
|
||||
strncpy(h_doc, docno, sizeof(h_doc)-1); h_doc[sizeof(h_doc)-1] = 0;
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 신규 매입 접수 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
gets_(b, T_MERCHANT, merch, sizeof(merch));
|
||||
if (merch[0] == 0) { Bchg(b, T_MSG, 0, "가맹점 ID 누락", 0L); setl(b, T_RC, 101); FAIL(b); }
|
||||
strncpy(h_merch, merch, sizeof(h_merch)-1); h_merch[sizeof(h_merch)-1] = 0;
|
||||
h_amt = getl(b, T_AMOUNT);
|
||||
if (h_amt < 1L) { Bchg(b, T_MSG, 0, "금액 범위 오류", 0L); setl(b, T_RC, 104); FAIL(b); }
|
||||
gets_(b, T_DOCNO, docno, sizeof(docno));
|
||||
if (docno[0] == 0) snprintf(docno, sizeof(docno), "EDI%ld", acq_seq_next());
|
||||
strncpy(h_docno, docno, sizeof(h_docno)-1); h_docno[sizeof(h_docno)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 가맹점 상태/금액 구간/채널 정책(3+ 분기) */
|
||||
if (strcmp(h_status, "ACTIVE") != 0) { Bchg(b, T_MSG, 0, "비활성 가맹점", 0L); setl(b, T_RC, 121); FAIL(b); }
|
||||
/* 동일 문서번호 중복 청구를 차단한다 */
|
||||
EXEC SQL SELECT count(*) INTO :h_cnt FROM ac_edi WHERE doc_no = :h_docno;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 문서중복 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_cnt > 0) { Bchg(b, T_MSG, 0, "중복 EDI 문서번호", 0L); setl(b, T_RC, 161); FAIL(b); }
|
||||
if (h_amt >= 10000000) { h_val = 3; }
|
||||
else if (h_amt >= 1000000) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 4) 본처리부: 수수료 산출 및 매입/승인 원장 생성 */
|
||||
bps = h_rate; h_fee = acq_fee(h_amt, bps); h_net = h_amt - h_fee;
|
||||
/* EDI 청구 문서를 먼저 채번해 원장에 남긴다 */
|
||||
EXEC SQL SELECT nextval('ac_edi_seq') INTO :h_id;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL INSERT INTO ac_edi (edi_id, merchant_id, doc_no, amount, biz_date)
|
||||
VALUES (:h_id, :h_merch, :h_doc, :h_amount, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_EDI INSERT FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: EDI채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ac_edi (edi_id, merchant_id, doc_no, amount, biz_date) VALUES (:h_id, :h_merch, :h_docno, :h_amt, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 청구문서 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_new = acdb_next_purchase_id();
|
||||
if (h_new < 0) { Bchg(b, T_MSG, 0, "매입 채번 실패", 0L); setl(b, T_RC, 93); FAIL(b); }
|
||||
if (acdb_insert_purchase(h_new, h_merch, h_amt, h_fee, h_net, "A", "EDI", h_bizdate) < 0)
|
||||
{ Bchg(b, T_MSG, 0, "매입 생성 실패", 0L); setl(b, T_RC, 94); FAIL(b); }
|
||||
if (acdb_insert_approval(h_new, 1) < 0) { Bchg(b, T_MSG, 0, "승인 적재 실패", 0L); setl(b, T_RC, 95); FAIL(b); }
|
||||
h_aff = 1; h_pid = h_new;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "EDI매입 merch=%s doc=%s 금액=%ld 등급=%ld", h_merch, h_docno, h_amt, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_EDI', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_EDI' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_PURCHASE_ID, h_new);
|
||||
setl(b, T_ID1, h_id);
|
||||
Bchg(b, T_DOCNO, 0, h_docno, 0L);
|
||||
setl(b, T_FEE, h_fee);
|
||||
setl(b, T_NET, h_net);
|
||||
setl(b, T_ARG1, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_EDIQRY.pgc - ac 모듈 서비스 ACQ_EDIQRY (one service = one file).
|
||||
* EDI 조회: 지정 가맹점(T_MERCHANT)의 영업일 EDI 접수 문서 건수와 금액
|
||||
* 합계를 조회해 응답한다. 접수분이 없으면 결과코드 1.
|
||||
* EDI 조회: 지정 가맹점(T_MERCHANT)의 영업일 EDI 접수 문서 건수와
|
||||
* 금액 합계를 조회해 응답한다. 접수분이 없으면 결과코드로 표시한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_EDIQRY.h"
|
||||
|
|
@ -9,20 +9,161 @@
|
|||
void ACQ_EDIQRY(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_EDIQRY";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_n = 0, h_sum = 0;
|
||||
char h_merch[64], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_MERCHANT, h_merch, sizeof(h_merch));
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_n, :h_sum
|
||||
FROM ac_edi WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
setl(b, T_COUNT, h_n);
|
||||
setl(b, T_GROSS, h_sum);
|
||||
setl(b, T_RC, h_n > 0 ? 0 : 1);
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_MERCHANT, merch, sizeof(merch));
|
||||
if (merch[0] == 0) { Bchg(b, T_MSG, 0, "가맹점 ID 누락", 0L); setl(b, T_RC, 101); FAIL(b); }
|
||||
strncpy(h_merch, merch, sizeof(h_merch)-1); h_merch[sizeof(h_merch)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT name, status, daily_limit INTO :h_str1, :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (strcmp(h_status, "ACTIVE") != 0)
|
||||
userlog("%s 주의: 가맹점 %s 상태=%s", SVC, h_merch, h_status);
|
||||
/* 가맹점 MDR(bps) 및 상태분포 컨텍스트 로드 */
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE status IN ('A','M')), count(*) FILTER (WHERE status = 'S') INTO :h_openc, :h_setc FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태분포 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산 진행 컨텍스트(기 정산 순액) */
|
||||
EXEC SQL SELECT coalesce(sum(net),0) INTO :h_ctx FROM settlement WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(max(edi_id),0) INTO :h_cnt, :h_gross, :h_top FROM ac_edi WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: EDI집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*) INTO :h_a FROM ac_edi WHERE merchant_id = :h_merch AND biz_date = :h_bizdate AND doc_no LIKE '%-R';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재전송분 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 재전송 비중으로 EDI 수신 품질을 판정 */
|
||||
if (h_cnt > 0) ratio = (h_a * 10000L) / h_cnt; else ratio = 0;
|
||||
if (h_cnt == 0) { h_val = 1; Bchg(b, T_MSG, 0, "EDI 접수분 없음", 0L); }
|
||||
else if (ratio >= 3000) { h_val = 3; Bchg(b, T_MSG, 0, "재전송 과다", 0L); }
|
||||
else if (h_a > 0) { h_val = 2; Bchg(b, T_MSG, 0, "일부 재전송", 0L); }
|
||||
else { h_val = 0; Bchg(b, T_MSG, 0, "정상 수신", 0L); }
|
||||
h_avg = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
EXEC SQL SELECT coalesce(sum(gross_amount),0) INTO :h_val2 FROM merchant_summary WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 누적집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_pdgross FROM purchase WHERE merchant_id = :h_merch AND biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_val2 > 0 && h_gross > 0) ratio = (h_gross * 10000L) / (h_val2 + h_gross);
|
||||
else ratio = 0;
|
||||
h_share = (h_pdgross > 0) ? (h_gross * 100L / h_pdgross) : 0;
|
||||
userlog("%s 추이: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_pdgross, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "EDI조회 merch=%s 문서=%ld 금액=%ld 재전송=%ld", h_merch, h_cnt, h_gross, h_a);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_EDIQRY', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_EDIQRY' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_ARG1, h_a);
|
||||
setl(b, T_ARG2, ratio);
|
||||
setl(b, T_ARG3, h_val);
|
||||
setl(b, T_ID1, h_top);
|
||||
setl(b, T_AMT1, h_avg);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_EDIRESEND.pgc - ac 모듈 서비스 ACQ_EDIRESEND (one service = one file).
|
||||
* EDI 재전송: 문서번호의 최신 EDI 원장을 찾아 재전송 사본(-R 접미 문서번호)
|
||||
* 을 발행한다. 이미 재전송본이면 다시 만들지 않는다.
|
||||
* EDI 재전송: 문서번호의 최신 EDI 원장을 찾아 재전송 사본(-R 접미 문서번호)을
|
||||
* 발행한다. 이미 재전송본이면 다시 만들지 않는다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_EDIRESEND.h"
|
||||
|
|
@ -9,38 +9,161 @@
|
|||
void ACQ_EDIRESEND(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
size_t dlen;
|
||||
const char *SVC = "ACQ_EDIRESEND";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_new, h_amt = 0;
|
||||
char h_doc[64], h_redoc[72], h_merch[64], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_DOCNO, h_doc, sizeof(h_doc));
|
||||
if (h_doc[0] == 0) { setl(b, T_RC, 8); FAIL(b); }
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
/* 재전송본(-R 접미) 자체는 재전송 금지 */
|
||||
dlen = strlen(h_doc);
|
||||
if (dlen >= 2 && strcmp(h_doc + dlen - 2, "-R") == 0) { setl(b, T_RC, 2); FAIL(b); }
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
/* 최신 원본 EDI 행 조회 */
|
||||
EXEC SQL SELECT merchant_id, amount, to_char(biz_date, 'YYYY-MM-DD')
|
||||
INTO :h_merch, :h_amt, :h_bizdate
|
||||
FROM ac_edi WHERE doc_no = :h_doc
|
||||
ORDER BY edi_id DESC LIMIT 1;
|
||||
if (sqlca.sqlcode == 100) { setl(b, T_RC, 4); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_DOCNO, docno, sizeof(docno));
|
||||
if (docno[0] == 0) { Bchg(b, T_MSG, 0, "문서번호 누락", 0L); setl(b, T_RC, 108); FAIL(b); }
|
||||
strncpy(h_docno, docno, sizeof(h_docno)-1); h_docno[sizeof(h_docno)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
snprintf(h_redoc, sizeof(h_redoc), "%s-R", h_doc);
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
EXEC SQL SELECT nextval('ac_edi_seq') INTO :h_new;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL INSERT INTO ac_edi (edi_id, merchant_id, doc_no, amount, biz_date)
|
||||
VALUES (:h_new, :h_merch, :h_redoc, :h_amt, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_EDIRESEND FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "A") == 0 || strcmp(h_prev, "M") == 0 || strcmp(h_prev, "S") == 0 || strcmp(h_prev, "C") == 0 || strcmp(h_prev, "H") == 0 || strcmp(h_prev, "V") == 0 || strcmp(h_prev, "P") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 원본 문서를 찾고 재전송 여부를 확인 */
|
||||
EXEC SQL SELECT count(*), coalesce(max(amount),0) INTO :h_cnt, :h_amt
|
||||
FROM ac_edi WHERE doc_no = :h_docno;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 원문서 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_cnt == 0) { Bchg(b, T_MSG, 0, "원 EDI 문서 없음", 0L); setl(b, T_RC, 140); FAIL(b); }
|
||||
if (strstr(h_docno, "-R") != NULL) { Bchg(b, T_MSG, 0, "이미 재전송본", 0L); setl(b, T_RC, 141); FAIL(b); }
|
||||
if (h_amt >= 1000000) { h_val = 3; }
|
||||
else if (h_amt >= 100000) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
snprintf(logmsg, sizeof(logmsg), "%s-R", h_docno);
|
||||
strncpy(h_str1, logmsg, sizeof(h_str1)-1); h_str1[sizeof(h_str1)-1] = 0;
|
||||
|
||||
Bchg(b, T_DOCNO, 0, h_redoc, 0L);
|
||||
setl(b, T_ID1, h_new);
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
EXEC SQL SELECT nextval('ac_edi_seq') INTO :h_id;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: EDI채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ac_edi (edi_id, merchant_id, doc_no, amount, biz_date) VALUES (:h_id, :h_merch, :h_str1, :h_amt, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재전송본 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = 1;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "EDI재전송 doc=%s -> %s 금액=%ld", h_docno, h_str1, h_amt);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_EDIRESEND', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_EDIRESEND' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_ID1, h_id);
|
||||
Bchg(b, T_DOCNO, 0, h_str1, 0L);
|
||||
setl(b, T_AMOUNT, h_amt);
|
||||
setl(b, T_ARG1, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_EDIRSNDCH.pgc - ac 모듈 서비스 ACQ_EDIRSNDCH (one service = one file).
|
||||
* EDI 재전송 채널별: 영업일 미수신 EDI 문서를 가맹점별로 커서 조회해
|
||||
* 문서번호·금액 쌍을 occurrence 로 내리고 재전송 대상 건수를 집계한다.
|
||||
* EDI 재전송 채널별: 영업일 미수신 EDI 문서를 가맹점별로 집계해 재전송
|
||||
* 대상 건수와 최다 대상 가맹점을 뽑아 응답한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_EDIRSNDCH.h"
|
||||
|
|
@ -9,29 +9,146 @@
|
|||
void ACQ_EDIRSNDCH(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long n = 0, tot = 0;
|
||||
const char *SVC = "ACQ_EDIRSNDCH";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_amt;
|
||||
char h_doc[32], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL DECLARE edr_cur CURSOR FOR
|
||||
SELECT doc_no, amount FROM ac_edi WHERE biz_date = :h_bizdate ORDER BY doc_no;
|
||||
EXEC SQL OPEN edr_cur;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
for (;;) {
|
||||
EXEC SQL FETCH edr_cur INTO :h_doc, :h_amt;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE edr_cur; FAIL(b); }
|
||||
if (n < 8) { Badd(b, T_DOCNO, h_doc, 0L); Badd(b, T_AMT1, (char *)&h_amt, 0L); }
|
||||
n++; tot += h_amt;
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
EXEC SQL CLOSE edr_cur;
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
setl(b, T_COUNT, n);
|
||||
setl(b, T_GROSS, tot);
|
||||
setl(b, T_RC, n > 0 ? 0 : 1);
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), count(DISTINCT merchant_id) INTO :h_cnt, :h_gross, :h_n FROM ac_edi WHERE biz_date = :h_bizdate AND doc_no NOT LIKE '%-R';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재전송대상 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(merchant_id,''), count(*) INTO :h_merch, :h_a FROM ac_edi WHERE biz_date = :h_bizdate AND doc_no NOT LIKE '%-R' GROUP BY merchant_id ORDER BY count(*) DESC LIMIT 1;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 최다대상 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 대상 규모로 재전송 배치 편성 여부를 판정 */
|
||||
if (h_cnt > 0) ratio = (h_a * 10000L) / h_cnt; else ratio = 0;
|
||||
if (h_cnt == 0) { h_val = 0; Bchg(b, T_MSG, 0, "재전송 대상 없음", 0L); }
|
||||
else if (h_cnt >= 50) { h_val = 3; Bchg(b, T_MSG, 0, "대량 재전송 필요", 0L); }
|
||||
else if (h_cnt >= 10) { h_val = 2; Bchg(b, T_MSG, 0, "배치 재전송 권고", 0L); }
|
||||
else { h_val = 1; Bchg(b, T_MSG, 0, "개별 재전송", 0L); }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "EDI재전송 bizdate=%s 대상=%ld 가맹점=%ld 최다=%s", h_bizdate, h_cnt, h_n, h_merch);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_EDIRSNDCH', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_EDIRSNDCH' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_ARG1, h_n);
|
||||
setl(b, T_ARG2, h_a);
|
||||
setl(b, T_ARG3, ratio);
|
||||
setl(b, T_ARG4, h_val);
|
||||
Bchg(b, T_MERCHANT, 0, h_merch, 0L);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -9,22 +9,149 @@
|
|||
void ACQ_EDISTAT(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_EDISTAT";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_lo = 0, h_mid = 0, h_hi = 0, h_sum = 0;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE amount < 100000),
|
||||
count(*) FILTER (WHERE amount >= 100000 AND amount < 1000000),
|
||||
count(*) FILTER (WHERE amount >= 1000000), coalesce(sum(amount),0)
|
||||
INTO :h_lo, :h_mid, :h_hi, :h_sum FROM ac_edi WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
setl(b, T_ARG1, h_lo);
|
||||
setl(b, T_ARG2, h_mid);
|
||||
setl(b, T_ARG3, h_hi);
|
||||
setl(b, T_GROSS, h_sum);
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE amount < 100000), count(*) FILTER (WHERE amount BETWEEN 100000 AND 999999), count(*) FILTER (WHERE amount >= 1000000) INTO :h_a, :h_b, :h_c FROM ac_edi WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 금액대분해 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), count(DISTINCT merchant_id) INTO :h_cnt, :h_gross, :h_n FROM ac_edi WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 총계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 고액 문서 비중으로 EDI 청구 성격을 분류 */
|
||||
if (h_cnt > 0) ratio = (h_c * 10000L) / h_cnt; else ratio = 0;
|
||||
if (h_cnt == 0) { h_val = 0; }
|
||||
else if (ratio >= 3000) { h_val = 3; }
|
||||
else if (h_c > 0) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
h_avg = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "EDI통계 bizdate=%s 소액=%ld 중액=%ld 고액=%ld 가맹점=%ld", h_bizdate, h_a, h_b, h_c, h_n);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_EDISTAT', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_EDISTAT' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_ARG1, h_a);
|
||||
setl(b, T_ARG2, h_b);
|
||||
setl(b, T_ARG3, h_c);
|
||||
setl(b, T_ARG4, ratio);
|
||||
setl(b, T_ARG5, h_val);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_ID1, h_n);
|
||||
setl(b, T_AMT1, h_avg);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,46 +1,158 @@
|
|||
/*
|
||||
* ACQ_ERRCLASS.pgc - ac 모듈 서비스 ACQ_ERRCLASS (one service = one file).
|
||||
* 매입 오류유형별 분류: 미매입 원장(ac_unmatch)의 사유 접두어를 읽어
|
||||
* 중복/한도/환율/기타 4개 오류군으로 분류하고 군별 건수를 집계한다.
|
||||
* 매입 오류유형별 분류: 미매입 원장의 사유 접두어를 읽어 중복/한도/환율/기타
|
||||
* 4개 오류군으로 분류하고 군별 건수를 집계한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_ERRCLASS.h"
|
||||
|
||||
/* 사유 접두어 → 오류군 (0=중복 1=한도 2=환율 3=기타) */
|
||||
static int ac_errkind(const char *r)
|
||||
{
|
||||
if (strncmp(r, "DUP", 3) == 0) return 0;
|
||||
if (strncmp(r, "LIMIT", 5) == 0) return 1;
|
||||
if (strncmp(r, "FX", 2) == 0) return 2;
|
||||
return 3;
|
||||
}
|
||||
|
||||
void ACQ_ERRCLASS(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long cls[4] = {0, 0, 0, 0};
|
||||
const char *SVC = "ACQ_ERRCLASS";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
char h_reason[64], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL DECLARE erc_cur CURSOR FOR
|
||||
SELECT reason FROM ac_unmatch WHERE biz_date = :h_bizdate;
|
||||
EXEC SQL OPEN erc_cur;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
for (;;) {
|
||||
EXEC SQL FETCH erc_cur INTO :h_reason;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE erc_cur; FAIL(b); }
|
||||
cls[ac_errkind(h_reason)]++;
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
EXEC SQL CLOSE erc_cur;
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
setl(b, T_ARG1, cls[0]);
|
||||
setl(b, T_ARG2, cls[1]);
|
||||
setl(b, T_ARG3, cls[2]);
|
||||
setl(b, T_ARG4, cls[3]);
|
||||
setl(b, T_COUNT, cls[0] + cls[1] + cls[2] + cls[3]);
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE reason LIKE 'DUP%'), count(*) FILTER (WHERE reason LIKE 'LIMIT%'), count(*) FILTER (WHERE reason LIKE 'FX%'), count(*) INTO :h_a, :h_b, :h_c, :h_cnt FROM ac_unmatch WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 오류군분해 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(DISTINCT purchase_id) INTO :h_n FROM ac_unmatch WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 연루매입 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 기타 오류군을 역산하고 최대 오류군을 판정 */
|
||||
h_d = h_cnt - (h_a + h_b + h_c);
|
||||
h_max = h_a; h_top = 1;
|
||||
if (h_b > h_max) { h_max = h_b; h_top = 2; }
|
||||
if (h_c > h_max) { h_max = h_c; h_top = 3; }
|
||||
if (h_d > h_max) { h_max = h_d; h_top = 4; }
|
||||
if (h_cnt > 0) ratio = (h_max * 10000L) / h_cnt; else ratio = 0;
|
||||
h_val = (h_cnt == 0) ? 0 : ((ratio >= 6000) ? 3 : 1);
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "오류분류 bizdate=%s 중복=%ld 한도=%ld 환율=%ld 기타=%ld", h_bizdate, h_a, h_b, h_c, h_d);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_ERRCLASS', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_ERRCLASS' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_ARG1, h_a);
|
||||
setl(b, T_ARG2, h_b);
|
||||
setl(b, T_ARG3, h_c);
|
||||
setl(b, T_ARG4, h_d);
|
||||
setl(b, T_ARG5, h_top);
|
||||
setl(b, T_ARG6, ratio);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_ID1, h_n);
|
||||
setl(b, T_ARG7, h_val);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_ERRQRY.pgc - ac 모듈 서비스 ACQ_ERRQRY (one service = one file).
|
||||
* 매입 오류유형별 조회: 사유 접두어(T_REASON)로 시작하는 미매입 건을
|
||||
* 패턴 조회해 해당 오류유형의 건수를 응답한다.
|
||||
* 패턴 조회해 해당 오류유형의 건수와 연루 금액을 응답한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_ERRQRY.h"
|
||||
|
|
@ -9,20 +9,153 @@
|
|||
void ACQ_ERRQRY(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char pat[64];
|
||||
const char *SVC = "ACQ_ERRQRY";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_n = 0;
|
||||
char h_like[70];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_REASON, pat, sizeof(pat));
|
||||
if (pat[0] == 0) strcpy(pat, "DUP");
|
||||
snprintf(h_like, sizeof(h_like), "%s%%", pat);
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT count(*) INTO :h_n FROM ac_unmatch WHERE reason LIKE :h_like;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
setl(b, T_COUNT, h_n);
|
||||
setl(b, T_RC, h_n > 0 ? 0 : 1);
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_REASON, reason, sizeof(reason)); if (reason[0] == 0) strcpy(reason, "DUP");
|
||||
snprintf(logmsg, sizeof(logmsg), "%s%%", reason);
|
||||
strncpy(h_reason, logmsg, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), count(DISTINCT purchase_id), coalesce(max(unmatch_id),0) INTO :h_cnt, :h_n, :h_top FROM ac_unmatch WHERE biz_date = :h_bizdate AND reason LIKE :h_reason;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 유형조회 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(p.amount),0) INTO :h_gross FROM ac_unmatch u JOIN purchase p ON p.purchase_id = u.purchase_id WHERE u.biz_date = :h_bizdate AND u.reason LIKE :h_reason;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 연루금액 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*) INTO :h_a FROM ac_unmatch WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 전체오류 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 지정 유형의 전체 대비 비중으로 대응 등급을 판정 */
|
||||
if (h_a > 0) ratio = (h_cnt * 10000L) / h_a; else ratio = 0;
|
||||
if (h_cnt == 0) { h_val = 0; }
|
||||
else if (ratio >= 5000) { h_val = 3; }
|
||||
else if (ratio >= 2000) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "오류조회 bizdate=%s 패턴=%s 건수=%ld 비중=%ld", h_bizdate, h_reason, h_cnt, ratio);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_ERRQRY', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_ERRQRY' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_ARG1, h_n);
|
||||
setl(b, T_ARG2, ratio);
|
||||
setl(b, T_ARG3, h_val);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_ID1, h_top);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_ERRRETRY.pgc - ac 모듈 서비스 ACQ_ERRRETRY (one service = one file).
|
||||
* 매입 오류 재처리: 보류(H) 상태로 묶여 있던 오류 매입을 접수(A)로 되돌려
|
||||
* 재처리 큐에 태우고 반영 건수를 결과코드로 응답한다.
|
||||
* 재처리 큐에 태우고 미매입 오류 이력을 정리한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_ERRRETRY.h"
|
||||
|
|
@ -9,17 +9,154 @@
|
|||
void ACQ_ERRRETRY(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_ERRRETRY";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_aff;
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
EXEC SQL UPDATE purchase SET status = 'A', updated_at = now()
|
||||
WHERE purchase_id = :h_pid AND status = 'H';
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_ERRRETRY FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "H") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 남아 있는 오류 사유 건수로 재처리 방식을 결정 */
|
||||
EXEC SQL SELECT count(*) INTO :h_cnt FROM ac_unmatch WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 오류이력 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_cnt == 0) { h_val = 1; Bchg(b, T_MSG, 0, "오류이력 없이 해제", 0L); }
|
||||
else if (h_cnt >= 3) { h_val = 3; Bchg(b, T_MSG, 0, "다중 오류 재처리", 0L); }
|
||||
else { h_val = 2; Bchg(b, T_MSG, 0, "단순 오류 재처리", 0L); }
|
||||
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
EXEC SQL DELETE FROM ac_unmatch WHERE purchase_id = :h_pid AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 오류정리 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_rem = sqlca.sqlerrd[2];
|
||||
EXEC SQL UPDATE purchase SET status = 'A', updated_at = now() WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태갱신 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = sqlca.sqlerrd[2];
|
||||
if (h_aff > 0) Bchg(b, T_STATUS, 0, "A", 0L);
|
||||
setl(b, T_RC, h_aff > 0 ? 0 : 1);
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "오류재처리 pid=%ld 오류=%ld 정리=%ld 등급=%ld", h_pid, h_cnt, h_rem, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_ERRRETRY', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_ERRRETRY' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_ARG1, h_rem);
|
||||
setl(b, T_ARG2, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_ERRSTAT.pgc - ac 모듈 서비스 ACQ_ERRSTAT (one service = one file).
|
||||
* 매입 오류유형별 통계: 미매입 원장을 사유 접두어 기준으로 한 번의 집계에서
|
||||
* 중복/한도/환율 오류 건수를 FILTER 로 분해해 동시에 응답한다.
|
||||
* 매입 오류유형별 통계: 미매입 원장을 사유 접두어 기준으로 중복/한도/환율
|
||||
* 오류 건수를 FILTER 로 분해해 동시에 응답하고 해소율을 계산한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_ERRSTAT.h"
|
||||
|
|
@ -9,22 +9,148 @@
|
|||
void ACQ_ERRSTAT(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_ERRSTAT";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_dup = 0, h_lim = 0, h_fx = 0, h_all = 0;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE reason LIKE 'DUP%'),
|
||||
count(*) FILTER (WHERE reason LIKE 'LIMIT%'),
|
||||
count(*) FILTER (WHERE reason LIKE 'FX%'), count(*)
|
||||
INTO :h_dup, :h_lim, :h_fx, :h_all FROM ac_unmatch WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
setl(b, T_ARG1, h_dup);
|
||||
setl(b, T_ARG2, h_lim);
|
||||
setl(b, T_ARG3, h_fx);
|
||||
setl(b, T_COUNT, h_all);
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE reason LIKE 'DUP%'), count(*) FILTER (WHERE reason LIKE 'LIMIT%'), count(*) FILTER (WHERE reason LIKE 'FX%'), count(*) INTO :h_a, :h_b, :h_c, :h_cnt FROM ac_unmatch WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 유형통계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*) INTO :h_d FROM ac_unmatch u JOIN purchase p ON p.purchase_id = u.purchase_id WHERE u.biz_date = :h_bizdate AND p.status IN ('M','S');
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 해소건수 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 해소율(원매입이 대사/정산으로 진행된 비율)로 잔존 위험 판정 */
|
||||
if (h_cnt > 0) ratio = (h_d * 10000L) / h_cnt; else ratio = 0;
|
||||
h_e = h_cnt - h_d;
|
||||
if (h_cnt == 0) { h_val = 0; }
|
||||
else if (ratio >= 8000) { h_val = 1; }
|
||||
else if (ratio >= 4000) { h_val = 2; }
|
||||
else { h_val = 3; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "오류통계 bizdate=%s 총=%ld 해소=%ld 잔존=%ld 해소율=%ld", h_bizdate, h_cnt, h_d, h_e, ratio);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_ERRSTAT', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_ERRSTAT' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_ARG1, h_a);
|
||||
setl(b, T_ARG2, h_b);
|
||||
setl(b, T_ARG3, h_c);
|
||||
setl(b, T_ARG4, h_d);
|
||||
setl(b, T_ARG5, h_e);
|
||||
setl(b, T_ARG6, ratio);
|
||||
setl(b, T_ARG7, h_val);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_ESCROW.pgc - ac 모듈 서비스 ACQ_ESCROW (one service = one file).
|
||||
* 매입 에스크로 예치: 분쟁 소지 매입 금액을 정산 전 유보하기 위해 원장에
|
||||
* ESCROW 항목으로 예치액을 적립한다. 금액이 0 이하면 거절.
|
||||
* ESCROW 항목으로 예치액을 적립한다. 금액이 0 이하면 거절한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_ESCROW.h"
|
||||
|
|
@ -9,23 +9,152 @@
|
|||
void ACQ_ESCROW(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_ESCROW";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_amt, h_lid;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 원장 예치/보증/연계 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
h_amt = getl(b, T_AMOUNT);
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
if (h_amt <= 0) { setl(b, T_RC, 3); FAIL(b); }
|
||||
if (h_amt < 1L) { Bchg(b, T_MSG, 0, "금액 범위 오류", 0L); setl(b, T_RC, 104); FAIL(b); }
|
||||
gets_(b, T_REASON, reason, sizeof(reason)); if (reason[0] == 0) strcpy(reason, "일반");
|
||||
strncpy(h_reason, reason, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
EXEC SQL SELECT nextval('ledger_seq') INTO :h_lid;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL INSERT INTO ledger (ledger_id, purchase_id, entry_type, amount, biz_date)
|
||||
VALUES (:h_lid, :h_pid, 'ESCROW', :h_amt, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_ESCROW FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
setl(b, T_SETTLE_ID, h_lid);
|
||||
/* 3) 업무규칙 분기부: 금액/유형/잔액 판정(3+ 분기) */
|
||||
/* 기존 예치 잔액을 확인해 과다 예치를 막는다 */
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_sum FROM ledger
|
||||
WHERE purchase_id = :h_pid AND entry_type = 'ESCROW';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 기예치 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_sum + h_amt > h_gross) { Bchg(b, T_MSG, 0, "예치 누계가 매입금액 초과", 0L); setl(b, T_RC, 196); FAIL(b); }
|
||||
if (h_amt * 2 >= h_gross) { h_val = 3; Bchg(b, T_MSG, 0, "과반 예치", 0L); }
|
||||
else if (h_sum > 0) { h_val = 2; Bchg(b, T_MSG, 0, "추가 예치", 0L); }
|
||||
else { h_val = 1; Bchg(b, T_MSG, 0, "최초 예치", 0L); }
|
||||
|
||||
/* 4) 본처리부: 원장 분개 기록 */
|
||||
EXEC SQL SELECT nextval('ledger_seq') INTO :h_ledid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 예치채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ledger (ledger_id, purchase_id, entry_type, amount, biz_date) VALUES (:h_ledid, :h_pid, 'ESCROW', :h_amt, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 예치분개 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = 1;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_cnt, :h_ctx FROM ledger WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 원장재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "에스크로예치 pid=%ld 예치=%ld 누계=%ld 등급=%ld", h_pid, h_amt, h_sum + h_amt, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_ESCROW', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_ESCROW' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_ID1, h_ledid);
|
||||
setl(b, T_AMOUNT, h_amt);
|
||||
setl(b, T_AMT1, h_sum + h_amt);
|
||||
setl(b, T_ARG1, h_val);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -9,28 +9,154 @@
|
|||
void ACQ_ESCROWREL(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_ESCROWREL";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_esc = 0, h_rel = 0, h_lid, h_bal;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 원장 예치/보증/연계 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_REASON, reason, sizeof(reason)); if (reason[0] == 0) strcpy(reason, "일반");
|
||||
strncpy(h_reason, reason, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 금액/유형/잔액 판정(3+ 분기) */
|
||||
/* 예치/해제 원장을 차감해 잔여 예치금을 구한다 */
|
||||
EXEC SQL SELECT coalesce(sum(amount) FILTER (WHERE entry_type = 'ESCROW'),0),
|
||||
coalesce(sum(amount) FILTER (WHERE entry_type = 'ESCROW_REL'),0)
|
||||
INTO :h_esc, :h_rel FROM ledger WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
h_bal = h_esc - h_rel;
|
||||
if (h_bal <= 0) { setl(b, T_GROSS, 0); setl(b, T_RC, 1); OK(b); }
|
||||
coalesce(sum(amount) FILTER (WHERE entry_type = 'ESCROW_REL'),0)
|
||||
INTO :h_sum, :h_val2 FROM ledger WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 예치잔액 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_rem = h_sum - h_val2;
|
||||
if (h_rem <= 0) { Bchg(b, T_MSG, 0, "해제할 예치 잔액 없음", 0L); setl(b, T_RC, 197); FAIL(b); }
|
||||
if (h_rem >= h_gross) { h_val = 3; Bchg(b, T_MSG, 0, "전액 예치 해제", 0L); }
|
||||
else if (h_val2 > 0) { h_val = 2; Bchg(b, T_MSG, 0, "부분 추가 해제", 0L); }
|
||||
else { h_val = 1; Bchg(b, T_MSG, 0, "최초 해제", 0L); }
|
||||
h_amt = h_rem;
|
||||
|
||||
EXEC SQL SELECT nextval('ledger_seq') INTO :h_lid;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL INSERT INTO ledger (ledger_id, purchase_id, entry_type, amount, biz_date)
|
||||
VALUES (:h_lid, :h_pid, 'ESCROW_REL', :h_bal, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_ESCROWREL FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
/* 4) 본처리부: 원장 분개 기록 */
|
||||
EXEC SQL SELECT nextval('ledger_seq') INTO :h_ledid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 해제채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ledger (ledger_id, purchase_id, entry_type, amount, biz_date) VALUES (:h_ledid, :h_pid, 'ESCROW_REL', :h_amt, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 해제분개 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = 1;
|
||||
|
||||
setl(b, T_GROSS, h_bal);
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_cnt, :h_ctx FROM ledger WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 원장재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "에스크로해제 pid=%ld 예치=%ld 기해제=%ld 해제=%ld", h_pid, h_sum, h_val2, h_amt);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_ESCROWREL', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_ESCROWREL' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_ID1, h_ledid);
|
||||
setl(b, T_AMOUNT, h_amt);
|
||||
setl(b, T_AMT1, h_sum);
|
||||
setl(b, T_AMT2, h_val2);
|
||||
setl(b, T_ARG1, 0);
|
||||
setl(b, T_ARG2, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -9,33 +9,151 @@
|
|||
void ACQ_EVENTBUY(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long fee, disc;
|
||||
const char *SVC = "ACQ_EVENTBUY";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_amt, h_bps = 0, h_disc, h_fee, h_net;
|
||||
char h_merch[64], h_mst[16], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 신규 매입 접수 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
gets_(b, T_MERCHANT, merch, sizeof(merch));
|
||||
if (merch[0] == 0) { Bchg(b, T_MSG, 0, "가맹점 ID 누락", 0L); setl(b, T_RC, 101); FAIL(b); }
|
||||
strncpy(h_merch, merch, sizeof(h_merch)-1); h_merch[sizeof(h_merch)-1] = 0;
|
||||
h_amt = getl(b, T_AMOUNT);
|
||||
disc = getl(b, T_ARG1); if (disc < 0) disc = 0;
|
||||
gets_(b, T_MERCHANT, h_merch, sizeof(h_merch));
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
if (h_amt <= 0) { setl(b, T_RC, 3); FAIL(b); }
|
||||
if (h_amt < 1L) { Bchg(b, T_MSG, 0, "금액 범위 오류", 0L); setl(b, T_RC, 104); FAIL(b); }
|
||||
threshold = getl(b, T_ARG1);
|
||||
if (threshold < 0 || threshold > 10000) { Bchg(b, T_MSG, 0, "할인율 범위 오류(0~10000bps)", 0L); setl(b, T_RC, 163); FAIL(b); }
|
||||
if (threshold == 0) threshold = 2000;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
EXEC SQL SELECT status, mdr_bps INTO :h_mst, :h_bps FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode == 100) { setl(b, T_RC, 5); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
if (strcmp(h_mst, "ACTIVE") != 0) { setl(b, T_RC, 6); FAIL(b); }
|
||||
h_disc = (h_bps > disc) ? h_bps - disc : 0;
|
||||
fee = h_amt * h_disc / 10000; h_fee = fee; h_net = h_amt - fee;
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
EXEC SQL SELECT nextval('purchase_seq') INTO :h_pid;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL INSERT INTO purchase (purchase_id, merchant_id, amount, fee, net, status, biz_date, channel, category)
|
||||
VALUES (:h_pid, :h_merch, :h_amt, :h_fee, :h_net, 'A', :h_bizdate, 'EVENT', 'PROMO');
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_EVENTBUY FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
/* 3) 업무규칙 분기부: 가맹점 상태/금액 구간/채널 정책(3+ 분기) */
|
||||
if (strcmp(h_status, "ACTIVE") != 0) { Bchg(b, T_MSG, 0, "비활성 가맹점", 0L); setl(b, T_RC, 121); FAIL(b); }
|
||||
/* 할인율 구간별로 승인 등급을 나눈다 */
|
||||
if (threshold >= 8000) { h_val = 3; Bchg(b, T_MSG, 0, "고할인 이벤트", 0L); }
|
||||
else if (threshold >= 4000) { h_val = 2; Bchg(b, T_MSG, 0, "중할인 이벤트", 0L); }
|
||||
else { h_val = 1; Bchg(b, T_MSG, 0, "일반 이벤트", 0L); }
|
||||
|
||||
setl(b, T_PURCHASE_ID, h_pid);
|
||||
/* 4) 본처리부: 수수료 산출 및 매입/승인 원장 생성 */
|
||||
bps = h_rate; h_fee = acq_fee(h_amt, bps); h_net = h_amt - h_fee;
|
||||
/* 이벤트 할인율만큼 수수료를 깎아 가맹점 정산금을 올린다 */
|
||||
h_delta = h_fee * threshold / 10000L;
|
||||
h_fee = h_fee - h_delta;
|
||||
h_net = h_amt - h_fee;
|
||||
h_new = acdb_next_purchase_id();
|
||||
if (h_new < 0) { Bchg(b, T_MSG, 0, "매입 채번 실패", 0L); setl(b, T_RC, 93); FAIL(b); }
|
||||
if (acdb_insert_purchase(h_new, h_merch, h_amt, h_fee, h_net, "A", "EVENT", h_bizdate) < 0)
|
||||
{ Bchg(b, T_MSG, 0, "매입 생성 실패", 0L); setl(b, T_RC, 94); FAIL(b); }
|
||||
if (acdb_insert_approval(h_new, 1) < 0) { Bchg(b, T_MSG, 0, "승인 적재 실패", 0L); setl(b, T_RC, 95); FAIL(b); }
|
||||
h_aff = 1; h_pid = h_new;
|
||||
EXEC SQL UPDATE purchase SET category = 'EVENT' WHERE purchase_id = :h_new;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 분류표시 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "이벤트매입 merch=%s 금액=%ld 할인율=%ld 감면=%ld", h_merch, h_amt, threshold, h_delta);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_EVENTBUY', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_EVENTBUY' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_PURCHASE_ID, h_new);
|
||||
setl(b, T_FEE, h_fee);
|
||||
setl(b, T_NET, h_net);
|
||||
setl(b, T_DELTA, h_delta);
|
||||
setl(b, T_ARG2, threshold);
|
||||
setl(b, T_ARG1, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
/*
|
||||
* ACQ_EXCHANGE.pgc - ac 모듈 서비스 ACQ_EXCHANGE (one service = one file).
|
||||
* 매입 교환 처리: 반품 후 동일가 재구매를 한 번에 처리한다. 원매입에 대해
|
||||
* 매입 교환 처리: 반품 후 동일가 재구매를 한 번에 처리한다. 원매입에
|
||||
* EXCHANGE 취소 행을 남기고 원매입 상태를 대사완료(M)로 유지한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
|
|
@ -9,30 +9,169 @@
|
|||
void ACQ_EXCHANGE(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char why[80];
|
||||
const char *SVC = "ACQ_EXCHANGE";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_id, h_pid, h_amt, h_orig = 0;
|
||||
char h_reason[100], h_st[4], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
h_amt = getl(b, T_AMOUNT);
|
||||
gets_(b, T_REASON, why, sizeof(why));
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_REASON, reason, sizeof(reason)); if (reason[0] == 0) strcpy(reason, "일반");
|
||||
strncpy(h_reason, reason, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
EXEC SQL SELECT status, amount INTO :h_st, :h_orig FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode == 100) { setl(b, T_RC, 5); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
if (h_amt <= 0 || h_amt > h_orig) { setl(b, T_RC, 3); FAIL(b); }
|
||||
snprintf(h_reason, sizeof(h_reason), "EXCHANGE:%s", why[0] ? why : "SWAP");
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
EXEC SQL SELECT nextval('ac_cancel_seq') INTO :h_id;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL INSERT INTO ac_cancel (cancel_id, purchase_id, cancel_type, amount, reason, biz_date)
|
||||
VALUES (:h_id, :h_pid, 'EXCHANGE', :h_amt, :h_reason, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_EXCHANGE FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "A") == 0 || strcmp(h_prev, "M") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 교환 금액과 원금 차이로 차액 정산 여부를 결정 */
|
||||
h_amt = getl(b, T_AMOUNT); if (h_amt <= 0) h_amt = h_gross;
|
||||
h_delta = h_amt - h_gross;
|
||||
if (h_delta > 0) { h_val = 3; Bchg(b, T_MSG, 0, "상위 교환(추가징수)", 0L); }
|
||||
else if (h_delta < 0) { h_val = 2; Bchg(b, T_MSG, 0, "하위 교환(차액환급)", 0L); }
|
||||
else { h_val = 1; Bchg(b, T_MSG, 0, "동일가 교환", 0L); }
|
||||
|
||||
setl(b, T_CANCEL_ID, h_id);
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
EXEC SQL SELECT nextval('ac_cancel_seq') INTO :h_canid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 취소채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ac_cancel (cancel_id, purchase_id, cancel_type, amount, reason, biz_date) VALUES (:h_canid, :h_pid, 'EXCHANGE', :h_gross, :h_reason, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 교환행 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT nextval('ledger_seq') INTO :h_ledid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 원장채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ledger (ledger_id, purchase_id, entry_type, amount, biz_date) VALUES (:h_ledid, :h_pid, 'EXCHANGE', :h_delta, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 차액분개 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL UPDATE purchase SET status = 'M', updated_at = now() WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태갱신 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = sqlca.sqlerrd[2];
|
||||
if (h_aff > 0) Bchg(b, T_STATUS, 0, "M", 0L);
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "매입교환 pid=%ld 원금=%ld 교환가=%ld 차액=%ld", h_pid, h_gross, h_amt, h_delta);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_EXCHANGE', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_EXCHANGE' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_CANCEL_ID, h_canid);
|
||||
setl(b, T_DELTA, h_delta);
|
||||
setl(b, T_AMOUNT, h_amt);
|
||||
setl(b, T_ARG1, h_val);
|
||||
setl(b, T_ID1, h_ledid);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,30 +1,155 @@
|
|||
/*
|
||||
* ACQ_FEEADJ.pgc - ac 모듈 서비스 ACQ_FEEADJ (one service = one file).
|
||||
* Moved verbatim from the former inline ac_svr.pgc; runs on the caller's XA
|
||||
* branch (no EXEC SQL CONNECT). Advertised by ac_svr at tpsvrinit.
|
||||
* 수수료 조정: 요청 증감액(T_DELTA)만큼 수수료 조정 이력을 남기고
|
||||
* purchase 의 fee 를 가산, net 을 차감해 정산금에 반영한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_FEEADJ.h"
|
||||
|
||||
void ACQ_FEEADJ(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char bizdate[16], reason[128];
|
||||
long pid, delta, adj;
|
||||
const char *SVC = "ACQ_FEEADJ";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long e_pid, e_delta;
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
pid = getl(b, T_PURCHASE_ID);
|
||||
delta = getl(b, T_DELTA);
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
gets_(b, T_REASON, reason, sizeof(reason)); if (reason[0] == 0) strcpy(reason, "ADJ");
|
||||
adj = acdb_insert_fee_adj(pid, delta, reason, bizdate);
|
||||
if (adj < 0) FAIL(b);
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
e_pid = pid; e_delta = delta;
|
||||
EXEC SQL UPDATE purchase SET fee = fee + :e_delta, net = net - :e_delta, updated_at = now()
|
||||
WHERE purchase_id = :e_pid;
|
||||
if (sqlca.sqlcode < 0 || sqlca.sqlcode == 100) FAIL(b);
|
||||
setl(b, T_ADJ, adj);
|
||||
userlog("%s 진입: 매입 금액/수수료 조정 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_REASON, reason, sizeof(reason)); if (reason[0] == 0) strcpy(reason, "일반");
|
||||
strncpy(h_reason, reason, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 조정 유형/부호/한도 판정(3+ 분기) */
|
||||
/* 조정 폭이 원 수수료 대비 과도하면 거절 */
|
||||
h_delta = getl(b, T_DELTA);
|
||||
if (h_delta == 0) { Bchg(b, T_MSG, 0, "조정액 0", 0L); setl(b, T_RC, 170); FAIL(b); }
|
||||
if (h_fee + h_delta < 0) { Bchg(b, T_MSG, 0, "조정 후 수수료 음수", 0L); setl(b, T_RC, 171); FAIL(b); }
|
||||
if (h_delta > 0 && h_delta > h_fee) { h_val = 3; }
|
||||
else if (h_delta > 0) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 4) 본처리부: 조정 원장 기록 및 매입 금액 보정 */
|
||||
h_adjid = acdb_insert_fee_adj(h_pid, h_delta, h_reason, h_bizdate);
|
||||
if (h_adjid < 0) { Bchg(b, T_MSG, 0, "조정 이력 적재 실패", 0L); setl(b, T_RC, 98); FAIL(b); }
|
||||
EXEC SQL UPDATE purchase SET fee = fee + :h_delta, net = net - :h_delta, updated_at = now() WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 수수료반영 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = sqlca.sqlerrd[2];
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "수수료조정 pid=%ld 증감=%ld 조정후=%ld 사유=%s", h_pid, h_delta, h_fee + h_delta, h_reason);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_FEEADJ', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_FEEADJ' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_ADJ, h_adjid);
|
||||
setl(b, T_DELTA, h_delta);
|
||||
setl(b, T_FEE, h_fee + h_delta);
|
||||
setl(b, T_NET, h_net - h_delta);
|
||||
setl(b, T_ARG1, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_FEEHIST.pgc - ac 모듈 서비스 ACQ_FEEHIST (one service = one file).
|
||||
* 수수료 조정 이력 집계: 매입 건의 조정 건수, 순증감 합계, 증액분/감액분을
|
||||
* FILTER 집계로 한 번에 산출한다. 순증감이 0 이 아니면 T_RC=1 로 표시.
|
||||
* FILTER 집계로 한 번에 산출하고 조정 여부를 결과코드로 표시한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_FEEHIST.h"
|
||||
|
|
@ -9,24 +9,151 @@
|
|||
void ACQ_FEEHIST(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_FEEHIST";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_n = 0, h_net = 0, h_up = 0, h_dn = 0;
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
|
||||
EXEC SQL SELECT count(*),
|
||||
coalesce(sum(delta), 0),
|
||||
coalesce(sum(delta) FILTER (WHERE delta > 0), 0),
|
||||
coalesce(sum(delta) FILTER (WHERE delta < 0), 0)
|
||||
INTO :h_n, :h_net, :h_up, :h_dn
|
||||
FROM ac_fee_adj WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_FEEHIST FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
setl(b, T_COUNT, h_n);
|
||||
setl(b, T_DELTA, h_net); /* 순증감 */
|
||||
setl(b, T_AMT1, h_up); /* 증액 합계 */
|
||||
setl(b, T_AMT2, h_dn); /* 감액 합계(음수) */
|
||||
setl(b, T_RC, h_net != 0 ? 1 : 0);
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(delta),0), coalesce(sum(delta) FILTER (WHERE delta > 0),0), coalesce(sum(delta) FILTER (WHERE delta < 0),0) INTO :h_cnt, :h_a, :h_b, :h_c FROM ac_fee_adj WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 조정집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT amount, fee, net, status INTO :h_amt, :h_fee, :h_net, :h_status FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입현황 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 순증감 방향과 원수수료 대비 조정폭으로 등급 판정 */
|
||||
if (h_fee > 0) ratio = (h_a * 10000L) / h_fee; else ratio = 0;
|
||||
if (h_cnt == 0) { h_val = 0; }
|
||||
else if (h_a > 0) { h_val = 1; }
|
||||
else if (h_a < 0) { h_val = 2; }
|
||||
else { h_val = 3; }
|
||||
h_gross = h_amt;
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "수수료이력 pid=%ld 건수=%ld 순증감=%ld 증액=%ld 감액=%ld", h_pid, h_cnt, h_a, h_b, h_c);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_FEEHIST', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_FEEHIST' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_DELTA, h_a);
|
||||
setl(b, T_AMT1, h_b);
|
||||
setl(b, T_AMT2, h_c);
|
||||
setl(b, T_FEE, h_fee);
|
||||
setl(b, T_NET, h_net);
|
||||
setl(b, T_ARG1, ratio);
|
||||
setl(b, T_ARG2, h_val);
|
||||
Bchg(b, T_STATUS, 0, h_status, 0L);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
/*
|
||||
* ACQ_FEERECALC.pgc - ac 모듈 서비스 ACQ_FEERECALC (one service = one file).
|
||||
* 수수료 재산정: 가맹점의 현행 MDR 로 수수료를 다시 계산해 기존 수수료와의
|
||||
* 수수료 재산정: 가맹점의 현행 MDR 로 수수료를 다시 계산해 기존 수수료와
|
||||
* 차액이 있으면 조정 이력을 남기고 purchase 의 fee/net 을 보정한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
|
|
@ -9,36 +9,143 @@
|
|||
void ACQ_FEERECALC(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long bps = 0, newfee, delta, adj;
|
||||
char bizdate[16];
|
||||
const char *SVC = "ACQ_FEERECALC";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_amt = 0, h_fee = 0, h_newfee;
|
||||
char h_merch[64];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 금액/수수료 조정 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
EXEC SQL SELECT merchant_id, amount, fee INTO :h_merch, :h_amt, :h_fee
|
||||
FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0 || sqlca.sqlcode == 100) FAIL(b);
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
if (acdb_merchant_mdr(h_merch, &bps) < 0) FAIL(b);
|
||||
newfee = acq_fee(h_amt, bps);
|
||||
delta = newfee - h_fee;
|
||||
/* 3) 업무규칙 분기부: 조정 유형/부호/한도 판정(3+ 분기) */
|
||||
/* 현행 MDR 로 재계산해 차액 유무를 판정 */
|
||||
computed = acq_fee(h_gross, h_rate);
|
||||
h_delta = computed - h_fee;
|
||||
if (h_delta == 0) { Bchg(b, T_MSG, 0, "재산정 차액 없음", 0L); setl(b, T_RC, 172); FAIL(b); }
|
||||
else if (h_delta > 0) { h_val = 3; Bchg(b, T_MSG, 0, "수수료 과소 징수분 추징", 0L); }
|
||||
else { h_val = 2; Bchg(b, T_MSG, 0, "수수료 과다 징수분 환급", 0L); }
|
||||
|
||||
if (delta != 0) {
|
||||
adj = acdb_insert_fee_adj(h_pid, delta, "RECALC", bizdate);
|
||||
if (adj < 0) FAIL(b);
|
||||
h_newfee = newfee;
|
||||
EXEC SQL UPDATE purchase SET fee = :h_newfee, net = amount - :h_newfee, updated_at = now()
|
||||
WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_FEERECALC FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
setl(b, T_ADJ, adj);
|
||||
/* 4) 본처리부: 조정 원장 기록 및 매입 금액 보정 */
|
||||
h_adjid = acdb_insert_fee_adj(h_pid, h_delta, "RECALC", h_bizdate);
|
||||
if (h_adjid < 0) { Bchg(b, T_MSG, 0, "재산정 이력 실패", 0L); setl(b, T_RC, 98); FAIL(b); }
|
||||
h_fee = computed; h_net = h_gross - h_fee;
|
||||
if (acdb_update_amount(h_pid, h_gross, h_fee, h_net) < 0)
|
||||
{ Bchg(b, T_MSG, 0, "재산정 반영 실패", 0L); setl(b, T_RC, 97); FAIL(b); }
|
||||
h_aff = 1;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "수수료재산정 pid=%ld mdr=%ld 차액=%ld 신수수료=%ld", h_pid, h_rate, h_delta, h_fee);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_FEERECALC', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
setl(b, T_FEE, newfee);
|
||||
setl(b, T_DELTA, delta);
|
||||
setl(b, T_RC, delta == 0 ? 1 : 0); /* 1=차액 없음 */
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_FEERECALC' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_ADJ, h_adjid);
|
||||
setl(b, T_FEE, h_fee);
|
||||
setl(b, T_NET, h_net);
|
||||
setl(b, T_DELTA, h_delta);
|
||||
setl(b, T_ARG1, h_rate);
|
||||
setl(b, T_ARG2, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_FEEWAIVE.pgc - ac 모듈 서비스 ACQ_FEEWAIVE (one service = one file).
|
||||
* 수수료 감면: 요청 감면율(bps)만큼 수수료를 깎아 가맹점 정산금에 돌려준다.
|
||||
* 음수 delta 조정 이력을 남기고 purchase 의 fee 차감 / net 증액을 반영.
|
||||
* 음수 delta 조정 이력을 남기고 purchase 의 fee 차감 / net 증액을 반영한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_FEEWAIVE.h"
|
||||
|
|
@ -9,35 +9,151 @@
|
|||
void ACQ_FEEWAIVE(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long rate, waive, adj;
|
||||
char bizdate[16];
|
||||
const char *SVC = "ACQ_FEEWAIVE";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_fee = 0, h_w;
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 금액/수수료 조정 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
rate = getl(b, T_ARG1); /* 감면율 bps (1~10000) */
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
threshold = getl(b, T_ARG1);
|
||||
if (threshold <= 0 || threshold > 10000) { Bchg(b, T_MSG, 0, "감면율 범위 오류", 0L); setl(b, T_RC, 173); FAIL(b); }
|
||||
gets_(b, T_REASON, reason, sizeof(reason)); if (reason[0] == 0) strcpy(reason, "일반");
|
||||
strncpy(h_reason, reason, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
if (rate < 1 || rate > 10000) { setl(b, T_RC, 9); FAIL(b); }
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
EXEC SQL SELECT fee INTO :h_fee FROM purchase
|
||||
WHERE purchase_id = :h_pid AND status NOT IN ('C', 'V');
|
||||
if (sqlca.sqlcode == 100) { setl(b, T_RC, 5); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
waive = acq_fee(h_fee, rate); /* fee * rate / 10000 */
|
||||
if (waive <= 0) { setl(b, T_RC, 1); setl(b, T_AMT1, 0); OK(b); }
|
||||
/* 3) 업무규칙 분기부: 조정 유형/부호/한도 판정(3+ 분기) */
|
||||
/* 감면율 구간별 승인 등급과 감면액 산출 */
|
||||
computed = h_fee * threshold / 10000L;
|
||||
if (computed <= 0) { Bchg(b, T_MSG, 0, "감면액 없음", 0L); setl(b, T_RC, 174); FAIL(b); }
|
||||
if (threshold >= 10000) { h_val = 3; Bchg(b, T_MSG, 0, "전액 감면", 0L); }
|
||||
else if (threshold >= 5000) { h_val = 2; Bchg(b, T_MSG, 0, "과반 감면", 0L); }
|
||||
else { h_val = 1; Bchg(b, T_MSG, 0, "부분 감면", 0L); }
|
||||
h_delta = -computed;
|
||||
|
||||
adj = acdb_insert_fee_adj(h_pid, -waive, "WAIVE", bizdate);
|
||||
if (adj < 0) FAIL(b);
|
||||
/* 4) 본처리부: 조정 원장 기록 및 매입 금액 보정 */
|
||||
h_adjid = acdb_insert_fee_adj(h_pid, h_delta, h_reason, h_bizdate);
|
||||
if (h_adjid < 0) { Bchg(b, T_MSG, 0, "감면 이력 실패", 0L); setl(b, T_RC, 98); FAIL(b); }
|
||||
h_comp = computed;
|
||||
EXEC SQL UPDATE purchase SET fee = fee - :h_comp, net = net + :h_comp, updated_at = now() WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 감면반영 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = sqlca.sqlerrd[2];
|
||||
|
||||
h_w = waive;
|
||||
EXEC SQL UPDATE purchase SET fee = fee - :h_w, net = net + :h_w, updated_at = now()
|
||||
WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_FEEWAIVE FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
setl(b, T_AMT1, waive);
|
||||
setl(b, T_ADJ, adj);
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "수수료감면 pid=%ld 감면율=%ld 감면액=%ld 잔여수수료=%ld", h_pid, threshold, computed, h_fee - computed);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_FEEWAIVE', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_FEEWAIVE' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_ADJ, h_adjid);
|
||||
setl(b, T_DELTA, h_delta);
|
||||
setl(b, T_FEE, h_fee - computed);
|
||||
setl(b, T_NET, h_net + computed);
|
||||
setl(b, T_ARG2, threshold);
|
||||
setl(b, T_ARG3, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,38 +1,174 @@
|
|||
/*
|
||||
* ACQ_FOREIGN.pgc - ac 모듈 서비스 ACQ_FOREIGN (one service = one file).
|
||||
* Moved verbatim from the former inline ac_svr.pgc; runs on the caller's XA
|
||||
* branch (no EXEC SQL CONNECT). Advertised by ac_svr at tpsvrinit.
|
||||
* 해외 매입 접수: 해외 카드 매입을 FOREIGN 채널로 접수한다. 원통화 금액과
|
||||
* 적용 환율로 원화를 환산해 매입 금액을 확정하고 ac_fx 원장에 남긴다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_FOREIGN.h"
|
||||
|
||||
void ACQ_FOREIGN(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char merch[64], bizdate[16], ccy[8];
|
||||
long amount, bps = 30, fee, net, pid;
|
||||
const char *SVC = "ACQ_FOREIGN";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_id, h_pid, h_fx, h_krw, h_rate;
|
||||
char h_ccy[8], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_MERCHANT, merch, sizeof(merch));
|
||||
amount = getl(b, T_AMOUNT);
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
gets_(b, T_CCY, ccy, sizeof(ccy)); if (ccy[0] == 0) strcpy(ccy, "USD");
|
||||
if (acdb_merchant_mdr(merch, &bps) < 0) bps = 30;
|
||||
fee = acq_fee(amount, bps); net = amount - fee;
|
||||
pid = acdb_next_purchase_id();
|
||||
if (pid < 0) FAIL(b);
|
||||
if (acdb_insert_purchase(pid, merch, amount, fee, net, "A", "FOREIGN", bizdate) < 0) FAIL(b);
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
h_pid = pid; h_fx = amount; h_rate = 1350; h_krw = amount;
|
||||
userlog("%s 진입: 신규 매입 접수 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
gets_(b, T_MERCHANT, merch, sizeof(merch));
|
||||
if (merch[0] == 0) { Bchg(b, T_MSG, 0, "가맹점 ID 누락", 0L); setl(b, T_RC, 101); FAIL(b); }
|
||||
strncpy(h_merch, merch, sizeof(h_merch)-1); h_merch[sizeof(h_merch)-1] = 0;
|
||||
gets_(b, T_CCY, ccy, sizeof(ccy)); if (ccy[0] == 0) strcpy(ccy, "USD");
|
||||
strncpy(h_ccy, ccy, sizeof(h_ccy)-1); h_ccy[sizeof(h_ccy)-1] = 0;
|
||||
h_fx = getl(b, T_FX_AMT);
|
||||
if (h_fx <= 0) { Bchg(b, T_MSG, 0, "원통화 금액 오류", 0L); setl(b, T_RC, 167); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 가맹점 상태/금액 구간/채널 정책(3+ 분기) */
|
||||
if (strcmp(h_status, "ACTIVE") != 0) { Bchg(b, T_MSG, 0, "비활성 가맹점", 0L); setl(b, T_RC, 121); FAIL(b); }
|
||||
/* 기준환율을 읽어 원화 환산액을 확정한다 */
|
||||
EXEC SQL SELECT coalesce(rate_bps,0) INTO :h_rate2 FROM cm_fx_rate
|
||||
WHERE ccy = :h_ccy ORDER BY base_date DESC LIMIT 1;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 기준환율 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_rate2 <= 0) { Bchg(b, T_MSG, 0, "환율 미등록 통화", 0L); setl(b, T_RC, 168); FAIL(b); }
|
||||
h_krw = h_fx * h_rate2 / 100L;
|
||||
h_amt = h_krw;
|
||||
if (h_krw >= 5000000) { h_val = 3; }
|
||||
else if (h_krw >= 500000) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 4) 본처리부: 수수료 산출 및 매입/승인 원장 생성 */
|
||||
bps = h_rate; h_fee = acq_fee(h_amt, bps); h_net = h_amt - h_fee;
|
||||
/* 환산 내역을 해외매입 원장에 기록 */
|
||||
EXEC SQL SELECT nextval('ac_fx_seq') INTO :h_id;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL INSERT INTO ac_fx (fx_id, purchase_id, ccy, fx_amount, krw_amount, rate_bps, biz_date)
|
||||
VALUES (:h_id, :h_pid, :h_ccy, :h_fx, :h_krw, :h_rate, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
setl(b, T_PURCHASE_ID, pid); setl(b, T_FEE, fee);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 환산채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ac_fx (fx_id, purchase_id, ccy, fx_amount, krw_amount, rate_bps, biz_date) VALUES (:h_id, 0, :h_ccy, :h_fx, :h_krw, :h_rate2, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 환산원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 환산 확정 후 수수료를 원화 기준으로 재산출 */
|
||||
h_fee = acq_fee(h_amt, h_rate); h_net = h_amt - h_fee;
|
||||
h_new = acdb_next_purchase_id();
|
||||
if (h_new < 0) { Bchg(b, T_MSG, 0, "매입 채번 실패", 0L); setl(b, T_RC, 93); FAIL(b); }
|
||||
if (acdb_insert_purchase(h_new, h_merch, h_amt, h_fee, h_net, "A", "FOREIGN", h_bizdate) < 0)
|
||||
{ Bchg(b, T_MSG, 0, "매입 생성 실패", 0L); setl(b, T_RC, 94); FAIL(b); }
|
||||
if (acdb_insert_approval(h_new, 1) < 0) { Bchg(b, T_MSG, 0, "승인 적재 실패", 0L); setl(b, T_RC, 95); FAIL(b); }
|
||||
h_aff = 1; h_pid = h_new;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "해외매입 merch=%s ccy=%s 원통화=%ld 원화=%ld", h_merch, h_ccy, h_fx, h_krw);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_FOREIGN', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_FOREIGN' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_PURCHASE_ID, h_new);
|
||||
setl(b, T_AMOUNT, h_krw);
|
||||
setl(b, T_FX_AMT, h_fx);
|
||||
setl(b, T_ARG2, h_rate2);
|
||||
setl(b, T_FEE, h_fee);
|
||||
setl(b, T_NET, h_net);
|
||||
setl(b, T_ID1, h_id);
|
||||
setl(b, T_ARG1, h_val);
|
||||
Bchg(b, T_CCY, 0, h_ccy, 0L);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -9,35 +9,167 @@
|
|||
void ACQ_FXCONVERT(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long krw;
|
||||
const char *SVC = "ACQ_FXCONVERT";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_fxid, h_pid, h_fx, h_rate, h_krw;
|
||||
char h_ccy[8], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 금액/수수료 조정 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_CCY, ccy, sizeof(ccy));
|
||||
if (ccy[0] == 0) { Bchg(b, T_MSG, 0, "통화코드 누락", 0L); setl(b, T_RC, 103); FAIL(b); }
|
||||
strncpy(h_ccy, ccy, sizeof(h_ccy)-1); h_ccy[sizeof(h_ccy)-1] = 0;
|
||||
h_fx = getl(b, T_FX_AMT);
|
||||
h_rate = getl(b, T_ARG1); /* 환율 bps: KRW = fx * rate / 10000 */
|
||||
gets_(b, T_CCY, h_ccy, sizeof(h_ccy));
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
if (h_fx <= 0 || h_rate <= 0 || h_ccy[0] == 0) { setl(b, T_RC, 3); FAIL(b); }
|
||||
if (h_fx <= 0) { Bchg(b, T_MSG, 0, "원통화 금액 오류", 0L); setl(b, T_RC, 167); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
krw = (h_fx * h_rate) / 10000L;
|
||||
h_krw = krw;
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
EXEC SQL SELECT nextval('ac_fx_seq') INTO :h_fxid;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL INSERT INTO ac_fx (fx_id, purchase_id, ccy, fx_amount, krw_amount, rate_bps, biz_date)
|
||||
VALUES (:h_fxid, :h_pid, :h_ccy, :h_fx, :h_krw, :h_rate, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
/* 3) 업무규칙 분기부: 조정 유형/부호/한도 판정(3+ 분기) */
|
||||
/* 요청 환율이 없으면 기준환율을 채택한다 */
|
||||
h_rate2 = getl(b, T_ARG1);
|
||||
if (h_rate2 <= 0) {
|
||||
EXEC SQL SELECT coalesce(rate_bps,0) INTO :h_rate2 FROM cm_fx_rate
|
||||
WHERE ccy = :h_ccy ORDER BY base_date DESC LIMIT 1;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 기준환율 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
}
|
||||
if (h_rate2 <= 0) { Bchg(b, T_MSG, 0, "적용 환율 없음", 0L); setl(b, T_RC, 168); FAIL(b); }
|
||||
h_krw = (h_fx * h_rate2) / 10000L;
|
||||
if (h_krw >= 5000000) { h_val = 3; }
|
||||
else if (h_krw >= 500000) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 해외매입 채널 표시 (존재하는 매입에만 반영) */
|
||||
EXEC SQL UPDATE purchase SET channel = 'FOREIGN', updated_at = now()
|
||||
WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_FXCONVERT FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
/* 4) 본처리부: 조정 원장 기록 및 매입 금액 보정 */
|
||||
EXEC SQL SELECT nextval('ac_fx_seq') INTO :h_id;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 환산채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ac_fx (fx_id, purchase_id, ccy, fx_amount, krw_amount, rate_bps, biz_date) VALUES (:h_id, :h_pid, :h_ccy, :h_fx, :h_krw, :h_rate2, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 환산원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL UPDATE purchase SET channel = 'FOREIGN', updated_at = now() WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 채널표시 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = sqlca.sqlerrd[2];
|
||||
|
||||
setl(b, T_ID1, h_fxid);
|
||||
setl(b, T_AMOUNT, krw);
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "통화환산 pid=%ld ccy=%s 원통화=%ld 원화=%ld", h_pid, h_ccy, h_fx, h_krw);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_FXCONVERT', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_FXCONVERT' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_ID1, h_id);
|
||||
setl(b, T_AMOUNT, h_krw);
|
||||
setl(b, T_FX_AMT, h_fx);
|
||||
setl(b, T_ARG2, h_rate2);
|
||||
setl(b, T_ARG1, h_val);
|
||||
Bchg(b, T_CCY, 0, h_ccy, 0L);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_FXRATE.pgc - ac 모듈 서비스 ACQ_FXRATE (one service = one file).
|
||||
* 통화 적용환율 조회: 해외매입 원장(ac_fx)에서 특정 통화의 최근 영업일
|
||||
* 평균/최저/최고 환율(bps)을 조회한다. 건수가 없으면 T_RC=1.
|
||||
* 통화 적용환율 조회: 해외매입 원장에서 특정 통화의 최근 영업일 평균/최저/
|
||||
* 최고 환율(bps)을 조회하고 기준환율과의 괴리를 계산한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_FXRATE.h"
|
||||
|
|
@ -9,27 +9,157 @@
|
|||
void ACQ_FXRATE(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_FXRATE";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_n = 0, h_avg = 0, h_min = 0, h_max = 0;
|
||||
char h_ccy[8], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_CCY, h_ccy, sizeof(h_ccy));
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
if (h_ccy[0] == 0) { setl(b, T_RC, 8); FAIL(b); }
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT count(*),
|
||||
coalesce(avg(rate_bps)::bigint, 0),
|
||||
coalesce(min(rate_bps), 0),
|
||||
coalesce(max(rate_bps), 0)
|
||||
INTO :h_n, :h_avg, :h_min, :h_max
|
||||
FROM ac_fx WHERE ccy = :h_ccy AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_FXRATE FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
setl(b, T_ARG1, h_avg);
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_CCY, ccy, sizeof(ccy));
|
||||
if (ccy[0] == 0) { Bchg(b, T_MSG, 0, "통화코드 누락", 0L); setl(b, T_RC, 103); FAIL(b); }
|
||||
strncpy(h_ccy, ccy, sizeof(h_ccy)-1); h_ccy[sizeof(h_ccy)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(avg(rate_bps),0)::bigint, coalesce(min(rate_bps),0), coalesce(max(rate_bps),0) INTO :h_cnt, :h_rate, :h_min, :h_max FROM ac_fx WHERE ccy = :h_ccy AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 적용환율 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(rate_bps,0) INTO :h_a FROM cm_fx_rate WHERE ccy = :h_ccy ORDER BY base_date DESC LIMIT 1;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 기준환율 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(krw_amount),0) INTO :h_gross FROM ac_fx WHERE ccy = :h_ccy AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 환산총액 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 적용-기준 환율 괴리와 당일 변동폭으로 환리스크 판정 */
|
||||
h_e = h_max - h_min;
|
||||
h_b = h_rate - h_a;
|
||||
if (h_cnt == 0) { h_val = 1; Bchg(b, T_MSG, 0, "환율 적용 실적 없음", 0L); }
|
||||
else if (h_a > 0 && (h_b > h_a / 50 || h_b < -(h_a / 50))) { h_val = 3; Bchg(b, T_MSG, 0, "기준환율 괴리 과다", 0L); }
|
||||
else if (h_e > 0) { h_val = 2; Bchg(b, T_MSG, 0, "당일 환율 변동", 0L); }
|
||||
else { h_val = 0; Bchg(b, T_MSG, 0, "환율 안정", 0L); }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "환율조회 ccy=%s 평균=%ld 기준=%ld 괴리=%ld", h_ccy, h_rate, h_a, h_b);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_FXRATE', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_FXRATE' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_ARG1, h_rate);
|
||||
setl(b, T_ARG2, h_min);
|
||||
setl(b, T_ARG3, h_max);
|
||||
setl(b, T_COUNT, h_n);
|
||||
setl(b, T_RC, h_n > 0 ? 0 : 1);
|
||||
setl(b, T_ARG4, h_a);
|
||||
setl(b, T_ARG5, h_b);
|
||||
setl(b, T_ARG6, h_e);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_ID1, h_val);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,47 +1,159 @@
|
|||
/*
|
||||
* ACQ_GRADESTAT.pgc - ac 모듈 서비스 ACQ_GRADESTAT (one service = one file).
|
||||
* 매입 가맹점등급별 통계: 가맹점 MDR(bps)을 프리미엄/일반/기본 등급으로 나눠
|
||||
* 등급별 매출 합계를 버킷 집계한다. 등급 경계는 C 분류기로 판정한다.
|
||||
* 매입 가맹점등급별 통계: 가맹점 MDR(bps)을 프리미엄/일반/기본 등급으로
|
||||
* 나눠 등급별 매출 합계를 버킷 집계한다. 등급 경계는 C 분류기로 판정한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_GRADESTAT.h"
|
||||
|
||||
/* MDR(bps) → 등급 (0=프리미엄 1=일반 2=기본) */
|
||||
static int ac_grade(long bps)
|
||||
{
|
||||
if (bps <= 20) return 0;
|
||||
if (bps <= 28) return 1;
|
||||
return 2;
|
||||
}
|
||||
|
||||
void ACQ_GRADESTAT(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long g[3] = {0, 0, 0};
|
||||
const char *SVC = "ACQ_GRADESTAT";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_bps, h_sum;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL DECLARE grd_cur CURSOR FOR
|
||||
SELECT m.mdr_bps, coalesce(sum(p.amount),0) FROM merchant m
|
||||
JOIN purchase p ON p.merchant_id = m.merchant_id AND p.biz_date = :h_bizdate
|
||||
GROUP BY m.merchant_id, m.mdr_bps;
|
||||
EXEC SQL OPEN grd_cur;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
for (;;) {
|
||||
EXEC SQL FETCH grd_cur INTO :h_bps, :h_sum;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE grd_cur; FAIL(b); }
|
||||
g[ac_grade(h_bps)] += h_sum;
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
EXEC SQL CLOSE grd_cur;
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
setl(b, T_ARG1, g[0]);
|
||||
setl(b, T_ARG2, g[1]);
|
||||
setl(b, T_ARG3, g[2]);
|
||||
setl(b, T_GROSS, g[0] + g[1] + g[2]);
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT coalesce(sum(p.amount) FILTER (WHERE m.mdr_bps <= 20),0), coalesce(sum(p.amount) FILTER (WHERE m.mdr_bps BETWEEN 21 AND 28),0), coalesce(sum(p.amount) FILTER (WHERE m.mdr_bps > 28),0) INTO :h_a, :h_b, :h_c FROM purchase p JOIN merchant m ON m.merchant_id = p.merchant_id WHERE p.biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 등급별매출 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), count(DISTINCT merchant_id) INTO :h_cnt, :h_gross, :h_n FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 총계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 최대 등급군을 골라 포트폴리오 성격을 판정 */
|
||||
h_max = h_a; h_top = 1;
|
||||
if (h_b > h_max) { h_max = h_b; h_top = 2; }
|
||||
if (h_c > h_max) { h_max = h_c; h_top = 3; }
|
||||
if (h_gross > 0) ratio = (h_a * 10000L) / h_gross; else ratio = 0;
|
||||
if (h_gross == 0) { h_val = 0; }
|
||||
else if (ratio >= 5000) { h_val = 3; }
|
||||
else if (h_c > h_a) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "등급통계 bizdate=%s 프리미엄=%ld 일반=%ld 기본=%ld", h_bizdate, h_a, h_b, h_c);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_GRADESTAT', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_GRADESTAT' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_AMT1, h_a);
|
||||
setl(b, T_AMT2, h_b);
|
||||
setl(b, T_AMT3, h_c);
|
||||
setl(b, T_ARG1, h_top);
|
||||
setl(b, T_ARG2, ratio);
|
||||
setl(b, T_ARG3, h_val);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_ID1, h_n);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_GUARANTEE.pgc - ac 모듈 서비스 ACQ_GUARANTEE (one service = one file).
|
||||
* 매입 보증 등록: 대형 매입에 대한 이행보증금을 원장에 GUARANTEE 항목으로
|
||||
* 적립한다. 보증률(T_ARG1, bps)로 보증금을 산출하며 기본 10%.
|
||||
* 적립한다. 보증률(T_ARG1, bps)로 보증금을 산출하며 기본 10% 를 적용한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_GUARANTEE.h"
|
||||
|
|
@ -9,26 +9,153 @@
|
|||
void ACQ_GUARANTEE(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_GUARANTEE";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_amt, h_bps, h_lid, h_guar;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 원장 예치/보증/연계 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
h_amt = getl(b, T_AMOUNT);
|
||||
h_bps = getl(b, T_ARG1); if (h_bps <= 0) h_bps = 1000;
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
h_guar = h_amt * h_bps / 10000;
|
||||
if (h_guar <= 0) { setl(b, T_RC, 3); FAIL(b); }
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
threshold = getl(b, T_ARG1);
|
||||
if (threshold < 0 || threshold > 10000) { Bchg(b, T_MSG, 0, "보증률 범위 오류", 0L); setl(b, T_RC, 198); FAIL(b); }
|
||||
if (threshold == 0) threshold = 1000;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
EXEC SQL SELECT nextval('ledger_seq') INTO :h_lid;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL INSERT INTO ledger (ledger_id, purchase_id, entry_type, amount, biz_date)
|
||||
VALUES (:h_lid, :h_pid, 'GUARANTEE', :h_guar, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_GUARANTEE FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
setl(b, T_AMT1, h_guar);
|
||||
setl(b, T_SETTLE_ID, h_lid);
|
||||
/* 3) 업무규칙 분기부: 금액/유형/잔액 판정(3+ 분기) */
|
||||
/* 보증률로 보증금을 산출하고 기존 보증 누계를 확인 */
|
||||
h_amt = h_gross * threshold / 10000L;
|
||||
if (h_amt <= 0) { Bchg(b, T_MSG, 0, "보증금 산출 불가", 0L); setl(b, T_RC, 199); FAIL(b); }
|
||||
EXEC SQL SELECT coalesce(sum(amount),0), count(*) INTO :h_sum, :h_cnt
|
||||
FROM ledger WHERE purchase_id = :h_pid AND entry_type = 'GUARANTEE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 기보증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_cnt > 0) { Bchg(b, T_MSG, 0, "이미 보증 등록됨", 0L); setl(b, T_RC, 200); FAIL(b); }
|
||||
if (threshold >= 5000) { h_val = 3; }
|
||||
else if (threshold >= 2000) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 4) 본처리부: 원장 분개 기록 */
|
||||
EXEC SQL SELECT nextval('ledger_seq') INTO :h_ledid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 보증채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ledger (ledger_id, purchase_id, entry_type, amount, biz_date) VALUES (:h_ledid, :h_pid, 'GUARANTEE', :h_amt, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 보증분개 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = 1;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_cnt, :h_ctx FROM ledger WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 원장재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "보증등록 pid=%ld 보증률=%ld 보증금=%ld 매입=%ld", h_pid, threshold, h_amt, h_gross);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_GUARANTEE', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_GUARANTEE' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_ID1, h_ledid);
|
||||
setl(b, T_AMOUNT, h_amt);
|
||||
setl(b, T_ARG2, threshold);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_ARG1, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_GUARQRY.pgc - ac 모듈 서비스 ACQ_GUARQRY (one service = one file).
|
||||
* 매입 보증 조회: 한 매입에 적립된 보증금(GUARANTEE) 총액과 건수를 원장에서
|
||||
* 조회해 응답한다. 보증 이력이 없으면 결과코드 1.
|
||||
* 매입 보증 조회: 한 매입에 적립된 보증금(GUARANTEE) 총액과 건수를
|
||||
* 원장에서 조회하고 매입금액 대비 보증 커버율을 계산한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_GUARQRY.h"
|
||||
|
|
@ -9,18 +9,148 @@
|
|||
void ACQ_GUARQRY(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_GUARQRY";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_sum = 0, h_n = 0;
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
|
||||
EXEC SQL SELECT coalesce(sum(amount),0), count(*) INTO :h_sum, :h_n
|
||||
FROM ledger WHERE purchase_id = :h_pid AND entry_type = 'GUARANTEE';
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
setl(b, T_AMT1, h_sum);
|
||||
setl(b, T_COUNT, h_n);
|
||||
setl(b, T_RC, h_n > 0 ? 0 : 1);
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(max(ledger_id),0) INTO :h_cnt, :h_gross, :h_top FROM ledger WHERE purchase_id = :h_pid AND entry_type = 'GUARANTEE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 보증집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT amount, status INTO :h_amt, :h_status FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 원매입 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 매입금액 대비 보증 커버율로 담보 충분성을 판정 */
|
||||
if (h_amt > 0) ratio = (h_gross * 10000L) / h_amt; else ratio = 0;
|
||||
if (h_cnt == 0) { h_val = 1; Bchg(b, T_MSG, 0, "보증 이력 없음", 0L); }
|
||||
else if (ratio >= 1000) { h_val = 0; Bchg(b, T_MSG, 0, "보증 충분", 0L); }
|
||||
else if (ratio >= 500) { h_val = 2; Bchg(b, T_MSG, 0, "보증 보통", 0L); }
|
||||
else { h_val = 3; Bchg(b, T_MSG, 0, "보증 부족", 0L); }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "보증조회 pid=%ld 건수=%ld 보증금=%ld 커버=%ld", h_pid, h_cnt, h_gross, ratio);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_GUARQRY', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_GUARQRY' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_AMOUNT, h_amt);
|
||||
setl(b, T_ARG1, ratio);
|
||||
setl(b, T_ARG2, h_val);
|
||||
setl(b, T_ID1, h_top);
|
||||
Bchg(b, T_STATUS, 0, h_status, 0L);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -9,24 +9,154 @@
|
|||
void ACQ_HALFSTAT(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long share = 0, total;
|
||||
const char *SVC = "ACQ_HALFSTAT";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_h1 = 0, h_h2 = 0, h_n = 0;
|
||||
int h_yr;
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
h_yr = (int)getl(b, T_ARG1); if (h_yr < 2000) h_yr = 2026;
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT coalesce(sum(amount) FILTER (WHERE extract(month from biz_date) <= 6),0),
|
||||
coalesce(sum(amount) FILTER (WHERE extract(month from biz_date) > 6),0), count(*)
|
||||
INTO :h_h1, :h_h2, :h_n FROM purchase WHERE extract(year from biz_date) = :h_yr;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
total = h_h1 + h_h2;
|
||||
if (total > 0) share = h_h1 * 100 / total;
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
setl(b, T_ARG2, h_h1);
|
||||
setl(b, T_ARG3, h_h2);
|
||||
setl(b, T_COUNT, h_n);
|
||||
setl(b, T_RC, share);
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
k = getl(b, T_ARG1); if (k < 2000 || k > 2999) k = 2026;
|
||||
snprintf(logmsg, sizeof(logmsg), "%ld-01-01", k);
|
||||
strncpy(h_d1, logmsg, sizeof(h_d1)-1); h_d1[sizeof(h_d1)-1] = 0;
|
||||
snprintf(logmsg, sizeof(logmsg), "%ld-12-31", k);
|
||||
strncpy(h_d2, logmsg, sizeof(h_d2)-1); h_d2[sizeof(h_d2)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT coalesce(sum(amount) FILTER (WHERE extract(month from biz_date) <= 6),0), coalesce(sum(amount) FILTER (WHERE extract(month from biz_date) > 6),0), count(*) FILTER (WHERE extract(month from biz_date) <= 6), count(*) FILTER (WHERE extract(month from biz_date) > 6) INTO :h_a, :h_b, :h_c, :h_d FROM purchase WHERE biz_date BETWEEN :h_d1::date AND :h_d2::date;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 반기분해 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_cnt, :h_gross FROM purchase WHERE biz_date BETWEEN :h_d1::date AND :h_d2::date;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 연간계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 상반기 비중으로 연간 실적 쏠림을 판정 */
|
||||
if (h_gross > 0) ratio = (h_a * 10000L) / h_gross; else ratio = 0;
|
||||
if (h_gross == 0) { h_val = 0; }
|
||||
else if (ratio >= 7000) { h_val = 3; }
|
||||
else if (ratio <= 3000) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
h_e = h_a - h_b;
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "반기통계 연도=%ld 상반기=%ld 하반기=%ld 비중=%ld", k, h_a, h_b, ratio);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_HALFSTAT', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_HALFSTAT' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_AMT1, h_a);
|
||||
setl(b, T_AMT2, h_b);
|
||||
setl(b, T_ARG1, h_c);
|
||||
setl(b, T_ARG2, h_d);
|
||||
setl(b, T_ARG3, ratio);
|
||||
setl(b, T_ARG4, h_val);
|
||||
setl(b, T_AMT3, h_e);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,6 +1,9 @@
|
|||
/*
|
||||
* ACQ_HOLD.pgc - ac 모듈 서비스 ACQ_HOLD (one service = one file).
|
||||
* 매입 보류: 접수/대사(A,M) 상태만 보류로 전이, 반영 건수를 T_RC 로.
|
||||
* 매입 보류: 접수/대사(A,M) 상태만 보류로 전이한다. 보류 사유를 미매입 원장에
|
||||
* 남기고 가맹점 보류 적체 현황을 함께 회신한다.
|
||||
* 입출력 계약 보존: 입력 T_PURCHASE_ID, 출력 T_STATUS='H' 및
|
||||
* T_RC (반영 0 / 미반영 1, 미반영도 정상 응답).
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_HOLD.h"
|
||||
|
|
@ -8,17 +11,130 @@
|
|||
void ACQ_HOLD(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_HOLD";
|
||||
char reason[128], logmsg[256];
|
||||
long grade = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_aff;
|
||||
long h_amt = 0, h_cnt = 0, h_sum = 0, h_id = 0, h_logid = 0, h_ctx = 0, h_unm = 0;
|
||||
char h_prev[8], h_merch[64], h_bizdate[16], h_reason[128], h_logmsg[256];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
userlog("%s 진입: 매입 보류 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
/* only an approved(A)/matched(M) purchase may be put on hold */
|
||||
if (h_pid <= 0) {
|
||||
Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b);
|
||||
}
|
||||
gets_(b, T_REASON, reason, sizeof(reason));
|
||||
if (reason[0] == 0) strcpy(reason, "HOLD");
|
||||
strncpy(h_reason, reason, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
|
||||
/* 2) 마스터/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount INTO :h_prev, :h_merch, :h_amt
|
||||
FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 조회 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) {
|
||||
Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b);
|
||||
}
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s 상태=%s 금액=%ld", SVC, h_pid, h_merch, h_prev, h_amt);
|
||||
|
||||
/* 3) 업무규칙 분기부: 금액/상태 구간별 보류 등급 (3+ 분기) */
|
||||
if (h_amt >= 10000000L) {
|
||||
grade = 3; Bchg(b, T_MSG, 0, "고액 매입 보류", 0L);
|
||||
} else if (strcmp(h_prev, "M") == 0) {
|
||||
grade = 2; Bchg(b, T_MSG, 0, "대사완료건 보류", 0L);
|
||||
} else if (strcmp(h_prev, "A") == 0) {
|
||||
grade = 1; Bchg(b, T_MSG, 0, "접수건 보류", 0L);
|
||||
} else {
|
||||
grade = 0; Bchg(b, T_MSG, 0, "보류 불가 상태", 0L);
|
||||
}
|
||||
|
||||
/* 4) 본처리부: only an approved(A)/matched(M) purchase may be put on hold */
|
||||
EXEC SQL UPDATE purchase SET status = 'H', updated_at = now()
|
||||
WHERE purchase_id = :h_pid AND status IN ('A', 'M');
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_HOLD FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("ACQ_HOLD FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = sqlca.sqlerrd[2];
|
||||
|
||||
/* 반영된 경우에만 보류 사유를 미매입 원장에 남긴다 */
|
||||
if (h_aff > 0) {
|
||||
EXEC SQL SELECT nextval('ac_unmatch_seq') INTO :h_id;
|
||||
if (sqlca.sqlcode < 0) { setl(b, T_RC, 90); FAIL(b); }
|
||||
EXEC SQL INSERT INTO ac_unmatch (unmatch_id, purchase_id, reason, biz_date)
|
||||
VALUES (:h_id, :h_pid, :h_reason, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 보류사유 적재 실패 [%d]", SVC, sqlca.sqlcode);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
}
|
||||
|
||||
/* 6) 집계/요약 갱신부: 가맹점 보류 적체 재집계 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_cnt, :h_sum
|
||||
FROM purchase WHERE merchant_id = :h_merch AND status = 'H';
|
||||
if (sqlca.sqlcode < 0) { setl(b, T_RC, 90); FAIL(b); }
|
||||
|
||||
/* 누적 보류 사유 건수 확인 */
|
||||
EXEC SQL SELECT count(*) INTO :h_unm FROM ac_unmatch WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) { setl(b, T_RC, 90); FAIL(b); }
|
||||
|
||||
/* 7) 예외/보상부 */
|
||||
if (h_aff == 0)
|
||||
userlog("%s 미반영: pid=%ld 상태=%s (보류 대상 아님)", SVC, h_pid, h_prev);
|
||||
if (h_cnt >= 10)
|
||||
userlog("%s 경보: 가맹점 %s 보류 적체 %ld 건", SVC, h_merch, h_cnt);
|
||||
if (h_unm >= 5)
|
||||
userlog("%s 경보: pid=%ld 보류 사유 %ld 건 누적", SVC, h_pid, h_unm);
|
||||
if (h_sum > 0 && h_amt > 0 && h_sum / h_amt >= 20)
|
||||
userlog("%s 경보: 보류 총액이 단건의 20배 초과 merch=%s", SVC, h_merch);
|
||||
|
||||
/* 5) 이력/감사 적재부 */
|
||||
snprintf(logmsg, sizeof(logmsg), "매입보류 pid=%ld 직전=%s 반영=%ld 적체=%ld 등급=%ld",
|
||||
h_pid, h_prev, h_aff, h_cnt, grade);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) { setl(b, T_RC, 90); FAIL(b); }
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_HOLD', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) { setl(b, T_RC, 90); FAIL(b); }
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_HOLD' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) { setl(b, T_RC, 90); FAIL(b); }
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 보류 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 보류 처리 %ld 회로 과다", SVC, h_ctx);
|
||||
|
||||
/* 8) 응답부 (계약 보존: 반영 시 T_STATUS='H', T_RC 는 0/1) */
|
||||
if (h_aff > 0) Bchg(b, T_STATUS, 0, "H", 0L);
|
||||
else Bchg(b, T_STATUS, 0, h_prev, 0L);
|
||||
Bchg(b, T_MERCHANT, 0, h_merch, 0L);
|
||||
setl(b, T_AMOUNT, h_amt);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_sum);
|
||||
setl(b, T_ARG1, grade);
|
||||
setl(b, T_ARG2, h_aff);
|
||||
setl(b, T_ARG3, h_unm);
|
||||
setl(b, T_ARG4, h_ctx);
|
||||
setl(b, T_ID1, h_id);
|
||||
setl(b, T_RC, h_aff > 0 ? 0 : 1);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld 적체=%ld", SVC, h_pid, h_aff, h_cnt);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_HOLDQRY.pgc - ac 모듈 서비스 ACQ_HOLDQRY (one service = one file).
|
||||
* 보류 매입 조회: 가맹점의 보류(H) 건을 최근 갱신순 커서로 훑어 건수·총액을
|
||||
* 집계하고 상위 5건의 매입 ID/금액을 occurrence 로 내려준다.
|
||||
* 보류 매입 조회: 가맹점의 보류(H) 건을 집계해 건수·총액과 최고 보류액,
|
||||
* 가장 오래된 보류 매입 ID를 응답한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_HOLDQRY.h"
|
||||
|
|
@ -9,35 +9,162 @@
|
|||
void ACQ_HOLDQRY(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long cnt = 0, total = 0, top = 0;
|
||||
const char *SVC = "ACQ_HOLDQRY";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_amt;
|
||||
char h_merch[64];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_MERCHANT, h_merch, sizeof(h_merch));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL DECLARE hlq_cur CURSOR FOR
|
||||
SELECT purchase_id, amount FROM purchase
|
||||
WHERE merchant_id = :h_merch AND status = 'H'
|
||||
ORDER BY updated_at DESC;
|
||||
EXEC SQL OPEN hlq_cur;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
for (;;) {
|
||||
EXEC SQL FETCH hlq_cur INTO :h_pid, :h_amt;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE hlq_cur; FAIL(b); }
|
||||
cnt++; total += h_amt;
|
||||
if (top < 5) {
|
||||
Badd(b, T_ID2, (char *)&h_pid, 0L);
|
||||
Badd(b, T_AMT4, (char *)&h_amt, 0L);
|
||||
top++;
|
||||
}
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_MERCHANT, merch, sizeof(merch));
|
||||
if (merch[0] == 0) { Bchg(b, T_MSG, 0, "가맹점 ID 누락", 0L); setl(b, T_RC, 101); FAIL(b); }
|
||||
strncpy(h_merch, merch, sizeof(h_merch)-1); h_merch[sizeof(h_merch)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
EXEC SQL CLOSE hlq_cur;
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
setl(b, T_COUNT, cnt);
|
||||
setl(b, T_GROSS, total);
|
||||
setl(b, T_RC, cnt > 0 ? 1 : 0); /* 1=보류 존재 */
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT name, status, daily_limit INTO :h_str1, :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (strcmp(h_status, "ACTIVE") != 0)
|
||||
userlog("%s 주의: 가맹점 %s 상태=%s", SVC, h_merch, h_status);
|
||||
/* 가맹점 MDR(bps) 및 상태분포 컨텍스트 로드 */
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE status IN ('A','M')), count(*) FILTER (WHERE status = 'S') INTO :h_openc, :h_setc FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태분포 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산 진행 컨텍스트(기 정산 순액) */
|
||||
EXEC SQL SELECT coalesce(sum(net),0) INTO :h_ctx FROM settlement WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(max(amount),0), coalesce(min(purchase_id),0) INTO :h_cnt, :h_gross, :h_max, :h_top FROM purchase WHERE merchant_id = :h_merch AND status = 'H';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 보류집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*) INTO :h_a FROM purchase WHERE merchant_id = :h_merch AND status = 'H' AND biz_date < :h_bizdate::date;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 이월보류 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 이월 보류 비중으로 적체 심각도를 판정 */
|
||||
if (h_cnt > 0) ratio = (h_a * 10000L) / h_cnt; else ratio = 0;
|
||||
if (h_cnt == 0) { h_val = 0; Bchg(b, T_MSG, 0, "보류 없음", 0L); }
|
||||
else if (ratio >= 5000) { h_val = 3; Bchg(b, T_MSG, 0, "이월 보류 적체", 0L); }
|
||||
else if (h_cnt >= 5) { h_val = 2; Bchg(b, T_MSG, 0, "보류 다수", 0L); }
|
||||
else { h_val = 1; Bchg(b, T_MSG, 0, "보류 소수", 0L); }
|
||||
h_avg = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
EXEC SQL SELECT coalesce(sum(gross_amount),0) INTO :h_val2 FROM merchant_summary WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 누적집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_pdgross FROM purchase WHERE merchant_id = :h_merch AND biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_val2 > 0 && h_gross > 0) ratio = (h_gross * 10000L) / (h_val2 + h_gross);
|
||||
else ratio = 0;
|
||||
h_share = (h_pdgross > 0) ? (h_gross * 100L / h_pdgross) : 0;
|
||||
userlog("%s 추이: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_pdgross, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "보류조회 merch=%s 건수=%ld 총액=%ld 이월=%ld", h_merch, h_cnt, h_gross, h_a);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_HOLDQRY', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_HOLDQRY' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_AMOUNT, h_max);
|
||||
setl(b, T_PURCHASE_ID, h_top);
|
||||
setl(b, T_ARG1, h_a);
|
||||
setl(b, T_ARG2, ratio);
|
||||
setl(b, T_ARG3, h_val);
|
||||
setl(b, T_AMT1, h_avg);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_HOURSTAT.pgc - ac 모듈 서비스 ACQ_HOURSTAT (one service = one file).
|
||||
* 매입 시간대별 통계: 접수시각을 새벽/오전/오후/야간 네 구간으로 나눠 구간별
|
||||
* 매입 건수를 한 번의 집계로 분해하고 피크 구간 인덱스를 판정한다.
|
||||
* 매입 시간대별 통계: 접수시각을 새벽/오전/오후/야간 네 구간으로 나눠
|
||||
* 구간별 건수를 분해하고 피크 구간 인덱스를 판정한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_HOURSTAT.h"
|
||||
|
|
@ -9,27 +9,151 @@
|
|||
void ACQ_HOURSTAT(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long v[4]; int i, peak = 0;
|
||||
const char *SVC = "ACQ_HOURSTAT";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_d = 0, h_m = 0, h_a = 0, h_n = 0;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE extract(hour from created_at) < 6),
|
||||
count(*) FILTER (WHERE extract(hour from created_at) BETWEEN 6 AND 11),
|
||||
count(*) FILTER (WHERE extract(hour from created_at) BETWEEN 12 AND 17),
|
||||
count(*) FILTER (WHERE extract(hour from created_at) >= 18)
|
||||
INTO :h_d, :h_m, :h_a, :h_n FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
v[0] = h_d; v[1] = h_m; v[2] = h_a; v[3] = h_n;
|
||||
for (i = 1; i < 4; i++) if (v[i] > v[peak]) peak = i;
|
||||
setl(b, T_ARG1, h_d);
|
||||
setl(b, T_ARG2, h_m);
|
||||
setl(b, T_ARG3, h_a);
|
||||
setl(b, T_ARG4, h_n);
|
||||
setl(b, T_RC, peak);
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE extract(hour from created_at) < 6), count(*) FILTER (WHERE extract(hour from created_at) BETWEEN 6 AND 11), count(*) FILTER (WHERE extract(hour from created_at) BETWEEN 12 AND 17), count(*) FILTER (WHERE extract(hour from created_at) >= 18) INTO :h_a, :h_b, :h_c, :h_d FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 시간대분해 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_cnt, :h_gross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 총계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 네 구간 중 피크 구간을 고르고 집중도를 계산 */
|
||||
h_max = h_a; h_top = 1;
|
||||
if (h_b > h_max) { h_max = h_b; h_top = 2; }
|
||||
if (h_c > h_max) { h_max = h_c; h_top = 3; }
|
||||
if (h_d > h_max) { h_max = h_d; h_top = 4; }
|
||||
if (h_cnt > 0) ratio = (h_max * 10000L) / h_cnt; else ratio = 0;
|
||||
if (h_a > 0 && h_top == 1) { h_val = 3; }
|
||||
else if (ratio >= 6000) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "시간대통계 bizdate=%s 새벽=%ld 오전=%ld 오후=%ld 야간=%ld", h_bizdate, h_a, h_b, h_c, h_d);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_HOURSTAT', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_HOURSTAT' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_ARG1, h_a);
|
||||
setl(b, T_ARG2, h_b);
|
||||
setl(b, T_ARG3, h_c);
|
||||
setl(b, T_ARG4, h_d);
|
||||
setl(b, T_ARG5, h_top);
|
||||
setl(b, T_ARG6, ratio);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_ARG7, h_val);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,34 +1,171 @@
|
|||
/*
|
||||
* ACQ_INSTALL.pgc - ac 모듈 서비스 ACQ_INSTALL (one service = one file).
|
||||
* Moved verbatim from the former inline ac_svr.pgc; runs on the caller's XA
|
||||
* branch (no EXEC SQL CONNECT). Advertised by ac_svr at tpsvrinit.
|
||||
* 할부 등록: 요청 개월수로 매입금액을 균등 분할해 ac_install 에 회차별
|
||||
* 스케줄을 적재한다. 잔액은 마지막 회차에 가산해 원금 정합을 맞춘다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_INSTALL.h"
|
||||
|
||||
void ACQ_INSTALL(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char bizdate[16];
|
||||
long months, amount, i;
|
||||
const char *SVC = "ACQ_INSTALL";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_id, h_pid, h_seq, h_months, h_mamt;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 할부/분할 스케줄 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
months = getl(b, T_INSTALL_N); if (months < 1) months = 3;
|
||||
amount = getl(b, T_AMOUNT);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
h_months = getl(b, T_INSTALL_N);
|
||||
if (h_months < 2 || h_months > 36) { Bchg(b, T_MSG, 0, "할부 개월 범위 오류(2~36)", 0L); setl(b, T_RC, 189); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
h_months = months; h_mamt = amount / months;
|
||||
for (i = 1; i <= months; i++) {
|
||||
h_seq = i;
|
||||
EXEC SQL SELECT nextval('ac_install_seq') INTO :h_id;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL INSERT INTO ac_install (install_id, purchase_id, seq_no, months, month_amount, biz_date)
|
||||
VALUES (:h_id, :h_pid, :h_seq, :h_months, :h_mamt, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
setl(b, T_COUNT, months);
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 개월/회차/금액 구간 판정(3+ 분기) */
|
||||
/* 기존 스케줄 중복을 막고 개월 구간별 등급을 정한다 */
|
||||
EXEC SQL SELECT count(*) INTO :h_cnt FROM ac_install WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 기존스케줄 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_cnt > 0) { Bchg(b, T_MSG, 0, "이미 할부 등록됨", 0L); setl(b, T_RC, 190); FAIL(b); }
|
||||
if (h_months >= 12) { h_val = 3; }
|
||||
else if (h_months >= 6) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
h_mamt = h_gross / h_months;
|
||||
h_rem = h_gross - (h_mamt * h_months);
|
||||
|
||||
/* 4) 본처리부: 회차별 스케줄 원장 루프 적재 */
|
||||
for (i = 1; i <= h_months; i++) {
|
||||
h_seq = i;
|
||||
/* 마지막 회차에 단수 잔액을 가산해 원금과 일치시킨다 */
|
||||
h_amt = (i == h_months) ? (h_mamt + h_rem) : h_mamt;
|
||||
EXEC SQL SELECT nextval('ac_install_seq') INTO :h_id;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 회차채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ac_install
|
||||
(install_id, purchase_id, seq_no, months, month_amount, biz_date)
|
||||
VALUES (:h_id, :h_pid, :h_seq, :h_months, :h_amt, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 회차적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
}
|
||||
h_aff = h_months;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "할부등록 pid=%ld 개월=%ld 회차금액=%ld 단수=%ld", h_pid, h_months, h_mamt, h_rem);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_INSTALL', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_INSTALL' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_COUNT, h_months);
|
||||
setl(b, T_INSTALL_N, h_months);
|
||||
setl(b, T_AMT1, h_mamt);
|
||||
setl(b, T_ARG1, h_rem);
|
||||
setl(b, T_ARG2, h_val);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_INSTCXL.pgc - ac 모듈 서비스 ACQ_INSTCXL (one service = one file).
|
||||
* 할부 취소: 한 매입의 할부 스케줄 전 회차를 원장에서 삭제해 할부를 해지한다.
|
||||
* 삭제된 회차수를 건수로 응답하며, 없으면 결과코드 1.
|
||||
* 할부 취소: 한 매입의 할부 스케줄 전 회차를 원장에서 삭제해 할부를
|
||||
* 해지한다. 삭제된 회차수를 응답하며 해지 분개를 남긴다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_INSTCXL.h"
|
||||
|
|
@ -9,16 +9,164 @@
|
|||
void ACQ_INSTCXL(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_INSTCXL";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_del;
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_REASON, reason, sizeof(reason)); if (reason[0] == 0) strcpy(reason, "일반");
|
||||
strncpy(h_reason, reason, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "A") == 0 || strcmp(h_prev, "M") == 0 || strcmp(h_prev, "S") == 0 || strcmp(h_prev, "C") == 0 || strcmp(h_prev, "H") == 0 || strcmp(h_prev, "V") == 0 || strcmp(h_prev, "P") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 해지 대상 회차와 잔여 금액을 먼저 확보 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(month_amount),0), coalesce(max(months),0)
|
||||
INTO :h_cnt, :h_sum, :h_months FROM ac_install WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 할부조회 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_cnt == 0) { Bchg(b, T_MSG, 0, "할부 스케줄 없음", 0L); setl(b, T_RC, 139); FAIL(b); }
|
||||
if (h_months >= 12) { h_val = 3; }
|
||||
else if (h_months >= 6) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
EXEC SQL DELETE FROM ac_install WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_INSTCXL FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
h_del = sqlca.sqlerrd[2];
|
||||
setl(b, T_COUNT, h_del);
|
||||
setl(b, T_RC, h_del > 0 ? 0 : 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 할부삭제 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_rem = sqlca.sqlerrd[2];
|
||||
EXEC SQL SELECT nextval('ledger_seq') INTO :h_ledid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 원장채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ledger (ledger_id, purchase_id, entry_type, amount, biz_date) VALUES (:h_ledid, :h_pid, 'INSTCXL', :h_sum, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 해지분개 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = 1;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "할부취소 pid=%ld 회차=%ld 삭제=%ld 개월=%ld", h_pid, h_cnt, h_rem, h_months);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_INSTCXL', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_INSTCXL' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_COUNT, h_rem);
|
||||
setl(b, T_INSTALL_N, h_months);
|
||||
setl(b, T_GROSS, h_sum);
|
||||
setl(b, T_ARG1, h_val);
|
||||
setl(b, T_ID1, h_ledid);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_INSTPLAN.pgc - ac 모듈 서비스 ACQ_INSTPLAN (one service = one file).
|
||||
* 할부 계획 조회: 한 매입의 약정 개월수와 회차 합계, 회차당 금액을 단건
|
||||
* 조회해 계획 개요를 응답한다. 할부가 없으면 결과코드 1.
|
||||
* 할부 계획 조회: 한 매입의 약정 개월수와 회차 합계, 회차당 금액을 조회해
|
||||
* 계획 개요와 원금 대비 스케줄 정합을 응답한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_INSTPLAN.h"
|
||||
|
|
@ -9,20 +9,150 @@
|
|||
void ACQ_INSTPLAN(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_INSTPLAN";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_months = 0, h_sum = 0, h_first = 0;
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
|
||||
EXEC SQL SELECT coalesce(max(months),0), coalesce(sum(month_amount),0),
|
||||
coalesce(min(month_amount),0)
|
||||
INTO :h_months, :h_sum, :h_first FROM ac_install WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(max(months),0), coalesce(sum(month_amount),0), coalesce(max(month_amount),0) INTO :h_cnt, :h_months, :h_sum, :h_max FROM ac_install WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 할부계획 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT amount, status INTO :h_amt, :h_status FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 원매입 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 스케줄 합계와 원금 차이로 계획 정합을 판정 */
|
||||
h_e = h_amt - h_sum;
|
||||
if (h_cnt == 0) { h_val = 1; Bchg(b, T_MSG, 0, "할부 없음", 0L); }
|
||||
else if (h_e == 0) { h_val = 0; Bchg(b, T_MSG, 0, "계획 정합", 0L); }
|
||||
else if (h_e > 0) { h_val = 2; Bchg(b, T_MSG, 0, "스케줄 부족", 0L); }
|
||||
else { h_val = 3; Bchg(b, T_MSG, 0, "스케줄 초과", 0L); }
|
||||
h_avg = (h_cnt > 0) ? (h_sum / h_cnt) : 0;
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "할부계획 pid=%ld 회차=%ld 개월=%ld 합계=%ld 차이=%ld", h_pid, h_cnt, h_months, h_sum, h_e);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_INSTPLAN', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_INSTPLAN' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_INSTALL_N, h_months);
|
||||
setl(b, T_GROSS, h_sum);
|
||||
setl(b, T_AMT1, h_first);
|
||||
setl(b, T_RC, h_months > 0 ? 0 : 1);
|
||||
setl(b, T_AMOUNT, h_amt);
|
||||
setl(b, T_ARG1, h_avg);
|
||||
setl(b, T_ARG2, h_e);
|
||||
setl(b, T_ARG3, h_val);
|
||||
setl(b, T_AMT1, h_max);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -9,28 +9,163 @@
|
|||
void ACQ_INSTPREPAY(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_INSTPREPAY";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_from, h_left = 0, h_cnt = 0, h_lid;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 할부/분할 스케줄 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
h_from = getl(b, T_ARG1);
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
h_seq = getl(b, T_ARG1);
|
||||
if (h_seq < 1) { Bchg(b, T_MSG, 0, "기준 회차 오류", 0L); setl(b, T_RC, 194); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
EXEC SQL SELECT coalesce(sum(month_amount),0), count(*) INTO :h_left, :h_cnt
|
||||
FROM ac_install WHERE purchase_id = :h_pid AND seq_no > :h_from;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
if (h_cnt == 0) { setl(b, T_RC, 1); OK(b); }
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
EXEC SQL SELECT nextval('ledger_seq') INTO :h_lid;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL INSERT INTO ledger (ledger_id, purchase_id, entry_type, amount, biz_date)
|
||||
VALUES (:h_lid, :h_pid, 'PREPAY', :h_left, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_INSTPREPAY FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
/* 3) 업무규칙 분기부: 개월/회차/금액 구간 판정(3+ 분기) */
|
||||
/* 기준 회차 이후 잔여 할부금을 집계 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(month_amount),0), coalesce(max(months),0)
|
||||
INTO :h_cnt, :h_sum, :h_months FROM ac_install
|
||||
WHERE purchase_id = :h_pid AND seq_no > :h_seq;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 잔여회차 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_cnt == 0) { Bchg(b, T_MSG, 0, "조기상환 잔여 회차 없음", 0L); setl(b, T_RC, 195); FAIL(b); }
|
||||
if (h_cnt >= 6) { h_val = 3; Bchg(b, T_MSG, 0, "장기 잔여 조기상환", 0L); }
|
||||
else if (h_cnt >= 3) { h_val = 2; Bchg(b, T_MSG, 0, "중기 잔여 조기상환", 0L); }
|
||||
else { h_val = 1; Bchg(b, T_MSG, 0, "소액 잔여 조기상환", 0L); }
|
||||
|
||||
setl(b, T_GROSS, h_left);
|
||||
/* 4) 본처리부: 회차별 스케줄 원장 루프 적재 */
|
||||
/* 선지급 분개를 남기고 잔여 회차를 정리한다 */
|
||||
EXEC SQL SELECT nextval('ledger_seq') INTO :h_ledid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 원장채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ledger (ledger_id, purchase_id, entry_type, amount, biz_date) VALUES (:h_ledid, :h_pid, 'PREPAY', :h_sum, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 선지급분개 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL DELETE FROM ac_install WHERE purchase_id = :h_pid AND seq_no > :h_seq;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 잔여회차정리 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_rem = sqlca.sqlerrd[2];
|
||||
h_aff = h_rem;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "할부조기상환 pid=%ld 기준회차=%ld 잔여=%ld 선지급=%ld", h_pid, h_seq, h_cnt, h_sum);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_INSTPREPAY', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_INSTPREPAY' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_sum);
|
||||
setl(b, T_ARG2, h_seq);
|
||||
setl(b, T_ARG3, h_rem);
|
||||
setl(b, T_ID1, h_ledid);
|
||||
setl(b, T_ARG4, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_INSTQRY.pgc - ac 모듈 서비스 ACQ_INSTQRY (one service = one file).
|
||||
* 할부 회차조회: 한 매입의 할부 스케줄(ac_install)을 회차 순으로 커서 조회해
|
||||
* 회차·회차금액 쌍을 occurrence 로 내리고 총 회차수와 합계를 계산한다.
|
||||
* 할부 회차조회: 한 매입의 할부 스케줄을 집계해 총 회차수와 합계,
|
||||
* 최소/최대 회차금액 및 최종 회차 번호를 계산한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_INSTQRY.h"
|
||||
|
|
@ -9,30 +9,157 @@
|
|||
void ACQ_INSTQRY(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long n = 0, tot = 0;
|
||||
const char *SVC = "ACQ_INSTQRY";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_seq, h_mamt;
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
|
||||
EXEC SQL DECLARE isq_cur CURSOR FOR
|
||||
SELECT seq_no, month_amount FROM ac_install WHERE purchase_id = :h_pid
|
||||
ORDER BY seq_no;
|
||||
EXEC SQL OPEN isq_cur;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
for (;;) {
|
||||
EXEC SQL FETCH isq_cur INTO :h_seq, :h_mamt;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE isq_cur; FAIL(b); }
|
||||
Badd(b, T_ARG5, (char *)&h_seq, 0L);
|
||||
Badd(b, T_AMT1, (char *)&h_mamt, 0L);
|
||||
n++; tot += h_mamt;
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
EXEC SQL CLOSE isq_cur;
|
||||
|
||||
setl(b, T_INSTALL_N, n);
|
||||
setl(b, T_GROSS, tot);
|
||||
setl(b, T_RC, n > 0 ? 0 : 1);
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(month_amount),0), coalesce(min(month_amount),0), coalesce(max(month_amount),0) INTO :h_cnt, :h_sum, :h_min, :h_max FROM ac_install WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 회차집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(max(seq_no),0), coalesce(min(seq_no),0) INTO :h_a, :h_b FROM ac_install WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 회차범위 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT amount INTO :h_amt FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 원금 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 회차금액 편차로 균등/불균등 분할을 구분 */
|
||||
h_e = h_max - h_min;
|
||||
if (h_cnt == 0) { h_val = 1; }
|
||||
else if (h_e == 0) { h_val = 0; }
|
||||
else if (h_min > 0 && h_e * 100L / h_min > 10) { h_val = 3; }
|
||||
else { h_val = 2; }
|
||||
if (h_amt > 0) ratio = (h_sum * 10000L) / h_amt; else ratio = 0;
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "할부회차 pid=%ld 회차수=%ld 합계=%ld 편차=%ld", h_pid, h_cnt, h_sum, h_e);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_INSTQRY', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_INSTQRY' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_sum);
|
||||
setl(b, T_AMT1, h_min);
|
||||
setl(b, T_AMT2, h_max);
|
||||
setl(b, T_ARG1, h_a);
|
||||
setl(b, T_ARG2, h_b);
|
||||
setl(b, T_ARG3, h_e);
|
||||
setl(b, T_ARG4, ratio);
|
||||
setl(b, T_ARG5, h_val);
|
||||
setl(b, T_AMOUNT, h_amt);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_ISSSTAT.pgc - ac 모듈 서비스 ACQ_ISSSTAT (one service = one file).
|
||||
* 매입 발급사별 통계: 영업일 발급사 그룹 집계에서 1위 발급사(건수·총액)와
|
||||
* 전체 발급사 수, 1위의 점유율(bps)을 계산해 응답한다.
|
||||
* 매입 발급사별 통계: 영업일 발급사 그룹에서 1위 발급사(건수·총액)와
|
||||
* 전체 발급사 수, 1위 점유율(bps)을 계산해 응답한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_ISSSTAT.h"
|
||||
|
|
@ -9,36 +9,154 @@
|
|||
void ACQ_ISSSTAT(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long share_bps = 0;
|
||||
const char *SVC = "ACQ_ISSSTAT";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_topcnt = 0, h_topsum = 0, h_kinds = 0, h_total = 0;
|
||||
char h_top[32], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
h_top[0] = 0;
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
/* 전체 발급사 수 + 총액 */
|
||||
EXEC SQL SELECT count(DISTINCT issuer), coalesce(sum(amount), 0)
|
||||
INTO :h_kinds, :h_total
|
||||
FROM purchase WHERE biz_date = :h_bizdate AND status <> 'C';
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1위 발급사 */
|
||||
EXEC SQL SELECT issuer, count(*), sum(amount)
|
||||
INTO :h_top, :h_topcnt, :h_topsum
|
||||
FROM purchase WHERE biz_date = :h_bizdate AND status <> 'C'
|
||||
GROUP BY issuer ORDER BY sum(amount) DESC, issuer LIMIT 1;
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_ISSSTAT FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
if (sqlca.sqlcode == 100) { setl(b, T_RC, 1); OK(b); }
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
if (h_total > 0) share_bps = (h_topsum * 10000) / h_total;
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
Bchg(b, T_ISSUER, 0, h_top, 0L);
|
||||
setl(b, T_COUNT, h_topcnt);
|
||||
setl(b, T_GROSS, h_topsum);
|
||||
setl(b, T_ARG1, h_kinds);
|
||||
setl(b, T_ARG2, share_bps); /* 1위 점유율 bps */
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(DISTINCT issuer), count(*), coalesce(sum(amount),0) INTO :h_n, :h_cnt, :h_gross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 발급사모집단 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(issuer,''), count(*), coalesce(sum(amount),0) INTO :h_issuer, :h_a, :h_b FROM purchase WHERE biz_date = :h_bizdate GROUP BY issuer ORDER BY sum(amount) DESC LIMIT 1;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 1위발급사 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*) INTO :h_c FROM purchase WHERE biz_date = :h_bizdate AND issuer = 'UNKNOWN';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 미상발급사 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 1위 점유율과 미상 비중으로 데이터 품질/집중도 판정 */
|
||||
if (h_gross > 0) ratio = (h_b * 10000L) / h_gross; else ratio = 0;
|
||||
if (h_cnt > 0) h_share = (h_c * 10000L) / h_cnt; else h_share = 0;
|
||||
if (h_cnt == 0) { h_val = 0; }
|
||||
else if (h_share >= 3000) { h_val = 3; }
|
||||
else if (ratio >= 6000) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "발급사통계 bizdate=%s 발급사=%ld 1위=%s 점유=%ld 미상=%ld", h_bizdate, h_n, h_issuer, ratio, h_c);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_ISSSTAT', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_ISSSTAT' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_n);
|
||||
Bchg(b, T_ISSUER, 0, h_issuer, 0L);
|
||||
setl(b, T_ARG1, h_a);
|
||||
setl(b, T_AMT1, h_b);
|
||||
setl(b, T_ARG2, ratio);
|
||||
setl(b, T_ARG3, h_c);
|
||||
setl(b, T_ARG4, h_share);
|
||||
setl(b, T_ARG5, h_val);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,22 +1,165 @@
|
|||
/*
|
||||
* ACQ_ISSUERCLS.pgc - ac 모듈 서비스 ACQ_ISSUERCLS (one service = one file).
|
||||
* Moved verbatim from the former inline ac_svr.pgc; runs on the caller's XA
|
||||
* branch (no EXEC SQL CONNECT). Advertised by ac_svr at tpsvrinit.
|
||||
* 발급사 분류 지정: 매입의 발급사(issuer) 코드를 지정 값으로 갱신하고
|
||||
* 같은 발급사의 당일 매입 건수와 매출을 재집계해 회신한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_ISSUERCLS.h"
|
||||
|
||||
void ACQ_ISSUERCLS(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char issuer[32];
|
||||
const char *SVC = "ACQ_ISSUERCLS";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid;
|
||||
char h_issuer[32];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_ISSUER, issuer, sizeof(issuer)); if (issuer[0] == 0) strcpy(issuer, "BC");
|
||||
strncpy(h_issuer, issuer, sizeof(h_issuer)-1); h_issuer[sizeof(h_issuer)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "A") == 0 || strcmp(h_prev, "M") == 0 || strcmp(h_prev, "S") == 0 || strcmp(h_prev, "C") == 0 || strcmp(h_prev, "H") == 0 || strcmp(h_prev, "V") == 0 || strcmp(h_prev, "P") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 미상(UNKNOWN) 에서의 확정 여부로 등급을 나눈다 */
|
||||
EXEC SQL SELECT issuer INTO :h_str2 FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 기존발급사 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (strcmp(h_str2, "UNKNOWN") == 0) { h_val = 3; Bchg(b, T_MSG, 0, "미상 발급사 확정", 0L); }
|
||||
else if (strcmp(h_str2, h_issuer) == 0) { h_val = 1; Bchg(b, T_MSG, 0, "동일 발급사", 0L); }
|
||||
else { h_val = 2; Bchg(b, T_MSG, 0, "발급사 정정", 0L); }
|
||||
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
EXEC SQL UPDATE purchase SET issuer = :h_issuer, updated_at = now() WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0 || sqlca.sqlcode == 100) FAIL(b);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 발급사갱신 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_rem = sqlca.sqlerrd[2];
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_cnt, :h_sum FROM purchase WHERE issuer = :h_issuer AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 발급사재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = 1;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "발급사지정 pid=%ld %s -> %s 동일=%ld", h_pid, h_str2, h_issuer, h_cnt);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_ISSUERCLS', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_ISSUERCLS' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
Bchg(b, T_ISSUER, 0, h_issuer, 0L);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_sum);
|
||||
setl(b, T_ARG1, h_rem);
|
||||
setl(b, T_ARG2, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,28 +1,170 @@
|
|||
/*
|
||||
* ACQ_LIMITCHK.pgc - ac 모듈 서비스 ACQ_LIMITCHK (one service = one file).
|
||||
* Moved verbatim from the former inline ac_svr.pgc; runs on the caller's XA
|
||||
* branch (no EXEC SQL CONNECT). Advertised by ac_svr at tpsvrinit.
|
||||
* 매입 한도 점검: 가맹점 일한도와 당일 누적 매입을 비교해 초과 여부를
|
||||
* 결과코드로 응답하고 잔여 한도를 함께 계산한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_LIMITCHK.h"
|
||||
|
||||
void ACQ_LIMITCHK(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char merch[64], bizdate[16];
|
||||
const char *SVC = "ACQ_LIMITCHK";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_sum, h_lim;
|
||||
char h_merch[64], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_MERCHANT, merch, sizeof(merch));
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
if (merch[0] == 0) { Bchg(b, T_MSG, 0, "가맹점 ID 누락", 0L); setl(b, T_RC, 101); FAIL(b); }
|
||||
strncpy(h_merch, merch, sizeof(h_merch)-1); h_merch[sizeof(h_merch)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_sum FROM purchase
|
||||
WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL SELECT daily_limit INTO :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0 || sqlca.sqlcode == 100) FAIL(b);
|
||||
setl(b, T_GROSS, h_sum);
|
||||
setl(b, T_RC, h_sum > h_lim ? 1 : 0);
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT name, status, daily_limit INTO :h_str1, :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (strcmp(h_status, "ACTIVE") != 0)
|
||||
userlog("%s 주의: 가맹점 %s 상태=%s", SVC, h_merch, h_status);
|
||||
/* 가맹점 MDR(bps) 및 상태분포 컨텍스트 로드 */
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE status IN ('A','M')), count(*) FILTER (WHERE status = 'S') INTO :h_openc, :h_setc FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태분포 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산 진행 컨텍스트(기 정산 순액) */
|
||||
EXEC SQL SELECT coalesce(sum(net),0) INTO :h_ctx FROM settlement WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT coalesce(sum(amount),0), count(*) INTO :h_gross, :h_cnt FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 당일누적 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_a FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate AND status IN ('C','V');
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 취소분 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 취소분을 제외한 유효 누적으로 한도 소진을 판정 */
|
||||
h_b = h_gross - h_a;
|
||||
h_e = h_lim - h_b;
|
||||
if (h_lim > 0) ratio = (h_b * 10000L) / h_lim; else ratio = 0;
|
||||
if (h_b > h_lim) { h_val = 1; Bchg(b, T_MSG, 0, "일한도 초과", 0L); }
|
||||
else if (ratio >= 9000) { h_val = 2; Bchg(b, T_MSG, 0, "한도 임박", 0L); }
|
||||
else if (ratio >= 5000) { h_val = 3; Bchg(b, T_MSG, 0, "한도 절반 소진", 0L); }
|
||||
else { h_val = 0; Bchg(b, T_MSG, 0, "한도 여유", 0L); }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
EXEC SQL SELECT coalesce(sum(gross_amount),0) INTO :h_val2 FROM merchant_summary WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 누적집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_pdgross FROM purchase WHERE merchant_id = :h_merch AND biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_val2 > 0 && h_gross > 0) ratio = (h_gross * 10000L) / (h_val2 + h_gross);
|
||||
else ratio = 0;
|
||||
h_share = (h_pdgross > 0) ? (h_gross * 100L / h_pdgross) : 0;
|
||||
userlog("%s 추이: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_pdgross, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "한도점검 merch=%s 누적=%ld 한도=%ld 잔여=%ld", h_merch, h_b, h_lim, h_e);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_LIMITCHK', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_LIMITCHK' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_GROSS, h_b);
|
||||
setl(b, T_ARG1, h_lim);
|
||||
setl(b, T_ARG2, h_e);
|
||||
setl(b, T_ARG3, ratio);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_AMT1, h_a);
|
||||
setl(b, T_ARG4, h_val);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_LIMITEXC.pgc - ac 모듈 서비스 ACQ_LIMITEXC (one service = one file).
|
||||
* 매입 한도 예외처리: 가맹점 일한도와 당일 누적 매입을 비교해 한도 초과 시
|
||||
* 미매입 원장에 LIMIT_EXC 예외를 기록하고, 여유 한도를 응답한다.
|
||||
* 미매입 원장에 LIMIT_EXC 예외를 기록하고 여유 한도를 응답한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_LIMITEXC.h"
|
||||
|
|
@ -9,32 +9,161 @@
|
|||
void ACQ_LIMITEXC(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long room;
|
||||
const char *SVC = "ACQ_LIMITEXC";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_id, h_lim = 0, h_used = 0;
|
||||
char h_merch[64], h_bizdate[16], h_reason[64];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_MERCHANT, h_merch, sizeof(h_merch));
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
EXEC SQL SELECT daily_limit INTO :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode == 100) { setl(b, T_RC, 5); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_used FROM purchase
|
||||
WHERE merchant_id = :h_merch AND biz_date = :h_bizdate AND status <> 'C';
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
room = h_lim - h_used;
|
||||
if (room >= 0) { setl(b, T_DELTA, room); setl(b, T_RC, 0); OK(b); }
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
snprintf(h_reason, sizeof(h_reason), "LIMIT_EXC:%ld", -room);
|
||||
EXEC SQL SELECT nextval('ac_unmatch_seq') INTO :h_id;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL INSERT INTO ac_unmatch (unmatch_id, purchase_id, reason, biz_date)
|
||||
VALUES (:h_id, 0, :h_reason, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_LIMITEXC FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
setl(b, T_DELTA, room);
|
||||
setl(b, T_RC, 1);
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "A") == 0 || strcmp(h_prev, "M") == 0 || strcmp(h_prev, "S") == 0 || strcmp(h_prev, "C") == 0 || strcmp(h_prev, "H") == 0 || strcmp(h_prev, "V") == 0 || strcmp(h_prev, "P") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 당일 유효 누적을 계산해 한도 초과 여부를 판정 */
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_sum FROM purchase
|
||||
WHERE merchant_id = :h_merch AND biz_date = :h_bizdate
|
||||
AND status NOT IN ('C','V');
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 누적집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_e = h_lim - h_sum;
|
||||
ratio = (h_lim > 0) ? (h_sum * 10000L / h_lim) : 0;
|
||||
if (h_e >= 0) { h_val = 0; Bchg(b, T_MSG, 0, "한도 이내", 0L); }
|
||||
else if (ratio >= 12000) { h_val = 3; Bchg(b, T_MSG, 0, "한도 20% 이상 초과", 0L); }
|
||||
else { h_val = 2; Bchg(b, T_MSG, 0, "한도 초과", 0L); }
|
||||
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
if (h_val > 0) {
|
||||
EXEC SQL SELECT nextval('ac_unmatch_seq') INTO :h_id;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 예외채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ac_unmatch (unmatch_id, purchase_id, reason, biz_date) VALUES (:h_id, :h_pid, 'LIMIT_EXC', :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 예외등록 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
}
|
||||
h_aff = 1;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "한도예외 pid=%ld 누적=%ld 한도=%ld 여유=%ld", h_pid, h_sum, h_lim, h_e);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_LIMITEXC', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_LIMITEXC' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_GROSS, h_sum);
|
||||
setl(b, T_ARG1, h_lim);
|
||||
setl(b, T_ARG2, h_e);
|
||||
setl(b, T_ARG3, ratio);
|
||||
setl(b, T_ARG4, h_val);
|
||||
setl(b, T_ID1, h_id);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_LIMITOVR.pgc - ac 모듈 서비스 ACQ_LIMITOVR (one service = one file).
|
||||
* 매입 한도 초과 승인: 한도 초과로 보류(H)된 매입을 관리자가 예외 승인해
|
||||
* 접수(A)로 되살린다. 승인 표식(net 유지)만 남기고 반영 건수를 응답한다.
|
||||
* 접수(A)로 되살린다. 승인 시 한도 소진 현황을 재확인한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_LIMITOVR.h"
|
||||
|
|
@ -9,18 +9,166 @@
|
|||
void ACQ_LIMITOVR(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_LIMITOVR";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_aff;
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
EXEC SQL UPDATE purchase SET status = 'A', updated_at = now()
|
||||
WHERE purchase_id = :h_pid AND status = 'H' AND channel <> 'RSV';
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_LIMITOVR FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_REASON, reason, sizeof(reason)); if (reason[0] == 0) strcpy(reason, "일반");
|
||||
strncpy(h_reason, reason, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "H") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 현재 소진율을 재확인해 예외 승인 등급을 정한다 */
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_sum FROM purchase
|
||||
WHERE merchant_id = :h_merch AND biz_date = :h_bizdate
|
||||
AND status NOT IN ('C','V');
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 소진재확인 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_lim > 0) ? (h_sum * 10000L / h_lim) : 0;
|
||||
if (ratio >= 15000) { Bchg(b, T_MSG, 0, "한도 150% 초과로 승인 불가", 0L); setl(b, T_RC, 123); FAIL(b); }
|
||||
else if (ratio >= 12000) { h_val = 3; }
|
||||
else if (ratio >= 10000) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
EXEC SQL SELECT nextval('ledger_seq') INTO :h_ledid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 원장채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ledger (ledger_id, purchase_id, entry_type, amount, biz_date) VALUES (:h_ledid, :h_pid, 'LIMITOVR', :h_gross, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 예외분개 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL UPDATE purchase SET status = 'A', updated_at = now() WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태갱신 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = sqlca.sqlerrd[2];
|
||||
if (h_aff > 0) Bchg(b, T_STATUS, 0, "A", 0L);
|
||||
setl(b, T_COUNT, h_aff);
|
||||
setl(b, T_RC, h_aff > 0 ? 0 : 2);
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "한도예외승인 pid=%ld 소진=%ld 한도=%ld 등급=%ld", h_pid, h_sum, h_lim, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_LIMITOVR', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_LIMITOVR' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_GROSS, h_sum);
|
||||
setl(b, T_ARG1, h_lim);
|
||||
setl(b, T_ARG2, ratio);
|
||||
setl(b, T_ARG3, h_val);
|
||||
setl(b, T_ID1, h_ledid);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_LIMITUSAGE.pgc - ac 모듈 서비스 ACQ_LIMITUSAGE (one service = one file).
|
||||
* 가맹점 한도소진 조회: 영업일 유효 매입(취소/무효 제외) 합계를 일한도와
|
||||
* 비교해 사용액/잔여액/소진율(bps)을 산출한다. 90% 초과 시 경보 표시.
|
||||
* 비교해 사용액/잔여액/소진율(bps)을 산출하고 90% 초과 시 경보한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_LIMITUSAGE.h"
|
||||
|
|
@ -9,29 +9,163 @@
|
|||
void ACQ_LIMITUSAGE(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long pct_bps;
|
||||
const char *SVC = "ACQ_LIMITUSAGE";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_limit = 0, h_used = 0;
|
||||
char h_merch[64], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_MERCHANT, h_merch, sizeof(h_merch));
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT daily_limit INTO :h_limit FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode == 100) { setl(b, T_RC, 5); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
EXEC SQL SELECT coalesce(sum(amount), 0) INTO :h_used FROM purchase
|
||||
WHERE merchant_id = :h_merch AND biz_date = :h_bizdate AND status NOT IN ('C', 'V');
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_LIMITUSAGE FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_MERCHANT, merch, sizeof(merch));
|
||||
if (merch[0] == 0) { Bchg(b, T_MSG, 0, "가맹점 ID 누락", 0L); setl(b, T_RC, 101); FAIL(b); }
|
||||
strncpy(h_merch, merch, sizeof(h_merch)-1); h_merch[sizeof(h_merch)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
pct_bps = (h_limit > 0) ? (h_used * 10000) / h_limit : 10000;
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
setl(b, T_AMT1, h_used);
|
||||
setl(b, T_AMT2, h_limit);
|
||||
setl(b, T_AMT3, h_limit > h_used ? h_limit - h_used : 0); /* 잔여 한도 */
|
||||
setl(b, T_ARG1, pct_bps);
|
||||
setl(b, T_RC, pct_bps > 9000 ? 1 : 0); /* 90% 초과 경보 */
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT name, status, daily_limit INTO :h_str1, :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (strcmp(h_status, "ACTIVE") != 0)
|
||||
userlog("%s 주의: 가맹점 %s 상태=%s", SVC, h_merch, h_status);
|
||||
/* 가맹점 MDR(bps) 및 상태분포 컨텍스트 로드 */
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE status IN ('A','M')), count(*) FILTER (WHERE status = 'S') INTO :h_openc, :h_setc FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태분포 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산 진행 컨텍스트(기 정산 순액) */
|
||||
EXEC SQL SELECT coalesce(sum(net),0) INTO :h_ctx FROM settlement WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_cnt, :h_gross FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate AND status NOT IN ('C','V');
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 유효매입 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(max(amount),0), coalesce(avg(amount),0)::bigint INTO :h_max, :h_avg FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate AND status NOT IN ('C','V');
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 단건규모 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 소진율 구간별 경보 등급을 부여 */
|
||||
h_e = h_lim - h_gross;
|
||||
if (h_lim > 0) ratio = (h_gross * 10000L) / h_lim; else ratio = 0;
|
||||
if (ratio >= 10000) { h_val = 3; }
|
||||
else if (ratio >= 9000) { h_val = 2; }
|
||||
else if (ratio >= 7000) { h_val = 1; }
|
||||
else { h_val = 0; }
|
||||
if (h_val >= 2) userlog("%s 경보: 한도 소진율 %ld bps", SVC, ratio);
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
EXEC SQL SELECT coalesce(sum(gross_amount),0) INTO :h_val2 FROM merchant_summary WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 누적집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_pdgross FROM purchase WHERE merchant_id = :h_merch AND biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_val2 > 0 && h_gross > 0) ratio = (h_gross * 10000L) / (h_val2 + h_gross);
|
||||
else ratio = 0;
|
||||
h_share = (h_pdgross > 0) ? (h_gross * 100L / h_pdgross) : 0;
|
||||
userlog("%s 추이: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_pdgross, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "한도소진 merch=%s 사용=%ld 잔여=%ld 소진율=%ld", h_merch, h_gross, h_e, ratio);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_LIMITUSAGE', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_LIMITUSAGE' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_ARG1, h_lim);
|
||||
setl(b, T_ARG2, h_e);
|
||||
setl(b, T_ARG3, ratio);
|
||||
setl(b, T_ARG4, h_val);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_AMT1, h_max);
|
||||
setl(b, T_AMT2, h_avg);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,27 +1,120 @@
|
|||
/*
|
||||
* ACQ_MERCHSUM.pgc - ac 모듈 서비스 ACQ_MERCHSUM (one service = one file).
|
||||
* Moved verbatim from the former inline ac_svr.pgc; runs on the caller's XA
|
||||
* branch (no EXEC SQL CONNECT). Advertised by ac_svr at tpsvrinit.
|
||||
* 가맹점 일별 집계: 영업일 매입을 재집계해 merchant_summary 에 upsert 하고
|
||||
* 건수/총액을 회신한다. 상태별 분해와 직전일 대비 추세도 함께 산출한다.
|
||||
* 입출력 계약 보존: 입력 T_MERCHANT/T_BIZDATE, 출력 T_COUNT/T_GROSS
|
||||
* (acdb_upsert_merch_sum 반영).
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_MERCHSUM.h"
|
||||
|
||||
void ACQ_MERCHSUM(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char merch[64], bizdate[16];
|
||||
const char *SVC = "ACQ_MERCHSUM";
|
||||
char merch[64], bizdate[16], logmsg[256];
|
||||
long trend = 0, ratio = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_cnt, h_gross, h_fee, h_net;
|
||||
char h_merch[64], h_bizdate[16];
|
||||
long h_a = 0, h_m = 0, h_s = 0, h_c = 0, h_pd = 0, h_lim = 0, h_logid = 0;
|
||||
char h_merch[64], h_bizdate[16], h_status[8], h_logmsg[256];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
userlog("%s 진입: 가맹점 일별 집계 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부 */
|
||||
gets_(b, T_MERCHANT, merch, sizeof(merch));
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
if (merch[0] == 0) {
|
||||
Bchg(b, T_MSG, 0, "가맹점 ID 누락", 0L); setl(b, T_RC, 101); FAIL(b);
|
||||
}
|
||||
strncpy(h_merch, merch, sizeof(h_merch)-1); h_merch[sizeof(h_merch)-1] = 0;
|
||||
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) {
|
||||
Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b);
|
||||
}
|
||||
strncpy(bizdate, h_bizdate, sizeof(bizdate)-1); bizdate[sizeof(bizdate)-1] = 0;
|
||||
userlog("%s 컨텍스트: merch=%s bizdate=%s", SVC, h_merch, h_bizdate);
|
||||
|
||||
/* 2) 마스터 조회부: 가맹점 존재/상태 확인 */
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim
|
||||
FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점 조회 실패 [%d]", SVC, sqlca.sqlcode); setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) {
|
||||
Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b);
|
||||
}
|
||||
if (strcmp(h_status, "ACTIVE") != 0)
|
||||
userlog("%s 주의: 가맹점 %s 상태=%s", SVC, h_merch, h_status);
|
||||
|
||||
/* 4) 본처리부: 영업일 실적 재집계 (계약 보존 질의) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0)
|
||||
INTO :h_cnt, :h_gross, :h_fee, :h_net FROM purchase
|
||||
WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
if (acdb_upsert_merch_sum(merch, bizdate, h_gross, h_fee, h_net, h_cnt) < 0) FAIL(b);
|
||||
setl(b, T_COUNT, h_cnt); setl(b, T_GROSS, h_gross);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 실적 집계 실패 [%d]", SVC, sqlca.sqlcode); setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 상태별 분해 및 직전일 실적 */
|
||||
EXEC SQL SELECT count(*) FILTER (WHERE status = 'A'), count(*) FILTER (WHERE status = 'M'),
|
||||
count(*) FILTER (WHERE status = 'S'), count(*) FILTER (WHERE status = 'C')
|
||||
INTO :h_a, :h_m, :h_s, :h_c FROM purchase
|
||||
WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) { setl(b, T_RC, 90); FAIL(b); }
|
||||
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_pd FROM purchase
|
||||
WHERE merchant_id = :h_merch AND biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) { setl(b, T_RC, 90); FAIL(b); }
|
||||
|
||||
/* 3) 업무규칙 분기부: 실적 규모/추세/한도 소진 판정 (3+ 분기) */
|
||||
trend = (h_pd > 0) ? (h_gross * 100L / h_pd) : 0;
|
||||
ratio = (h_lim > 0) ? (h_gross * 10000L / h_lim) : 0;
|
||||
if (h_cnt == 0) {
|
||||
Bchg(b, T_MSG, 0, "당일 실적 없음", 0L);
|
||||
} else if (ratio >= 9000) {
|
||||
Bchg(b, T_MSG, 0, "한도 임박 실적", 0L);
|
||||
} else if (trend >= 200) {
|
||||
Bchg(b, T_MSG, 0, "직전일 대비 급증", 0L);
|
||||
} else if (trend > 0 && trend <= 50) {
|
||||
Bchg(b, T_MSG, 0, "직전일 대비 급감", 0L);
|
||||
} else {
|
||||
Bchg(b, T_MSG, 0, "정상 실적", 0L);
|
||||
}
|
||||
|
||||
/* 6) 집계/요약 갱신부 (계약 보존: upsert 수행) */
|
||||
if (acdb_upsert_merch_sum(merch, bizdate, h_gross, h_fee, h_net, h_cnt) < 0) {
|
||||
userlog("%s: 요약 upsert 실패 merch=%s", SVC, h_merch);
|
||||
Bchg(b, T_MSG, 0, "요약 갱신 실패", 0L); setl(b, T_RC, 92); FAIL(b);
|
||||
}
|
||||
|
||||
/* 5) 이력/감사 적재부 */
|
||||
snprintf(logmsg, sizeof(logmsg), "가맹점집계 merch=%s 건수=%ld 총액=%ld 수수료=%ld 추세=%ld",
|
||||
h_merch, h_cnt, h_gross, h_fee, trend);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) { setl(b, T_RC, 90); FAIL(b); }
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_MERCHSUM', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) { setl(b, T_RC, 90); FAIL(b); }
|
||||
|
||||
/* 8) 응답부 (계약 보존: T_COUNT / T_GROSS) */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_FEE, h_fee);
|
||||
setl(b, T_NET, h_net);
|
||||
setl(b, T_ARG1, h_a);
|
||||
setl(b, T_ARG2, h_m);
|
||||
setl(b, T_ARG3, h_s);
|
||||
setl(b, T_ARG4, h_c);
|
||||
setl(b, T_ARG5, trend);
|
||||
setl(b, T_ARG6, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
userlog("%s 완료: merch=%s 건수=%ld 총액=%ld", SVC, h_merch, h_cnt, h_gross);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_MONSTAT.pgc - ac 모듈 서비스 ACQ_MONSTAT (one service = one file).
|
||||
* 매입 월간 통계: 기준일이 속한 달 전체의 건수/총액/평균 거래액과 영업일수
|
||||
* (거래 발생일 기준)를 date_trunc 월 경계로 집계한다.
|
||||
* 매입 월간 통계: 기준일이 속한 달 전체의 건수/총액/평균 거래액과
|
||||
* 영업일수(거래 발생일 기준)를 date_trunc 월 경계로 집계한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_MONSTAT.h"
|
||||
|
|
@ -9,27 +9,149 @@
|
|||
void ACQ_MONSTAT(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_MONSTAT";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_cnt = 0, h_amt = 0, h_avg = 0, h_days = 0;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT count(*),
|
||||
coalesce(sum(amount), 0),
|
||||
coalesce(avg(amount)::bigint, 0),
|
||||
count(DISTINCT biz_date)
|
||||
INTO :h_cnt, :h_amt, :h_avg, :h_days
|
||||
FROM purchase
|
||||
WHERE date_trunc('month', biz_date) = date_trunc('month', CAST(:h_bizdate AS date))
|
||||
AND status NOT IN ('C', 'V');
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_MONSTAT FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(avg(amount),0)::bigint, count(DISTINCT biz_date) INTO :h_cnt, :h_gross, :h_avg, :h_n FROM purchase WHERE date_trunc('month', biz_date) = date_trunc('month', :h_bizdate::date);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 월간집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_fee, :h_net FROM purchase WHERE date_trunc('month', biz_date) = date_trunc('month', :h_bizdate::date);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 월간수수료 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 영업일수 대비 일평균 실적으로 월 진척을 판정 */
|
||||
h_share = (h_n > 0) ? (h_gross / h_n) : 0;
|
||||
if (h_gross > 0) ratio = (h_fee * 10000L) / h_gross; else ratio = 0;
|
||||
if (h_cnt == 0) { h_val = 0; }
|
||||
else if (h_n >= 20) { h_val = 3; }
|
||||
else if (h_n >= 10) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "월간통계 기준=%s 건수=%ld 총액=%ld 영업일=%ld", h_bizdate, h_cnt, h_gross, h_n);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_MONSTAT', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_MONSTAT' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_amt);
|
||||
setl(b, T_AMT1, h_avg); /* 평균 거래액 */
|
||||
setl(b, T_ARG1, h_days); /* 거래 발생 영업일수 */
|
||||
setl(b, T_RC, h_cnt > 0 ? 0 : 1);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_ARG1, h_avg);
|
||||
setl(b, T_ARG2, h_n);
|
||||
setl(b, T_AMT1, h_share);
|
||||
setl(b, T_FEE, h_fee);
|
||||
setl(b, T_NET, h_net);
|
||||
setl(b, T_ARG3, ratio);
|
||||
setl(b, T_ARG4, h_val);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_NETCALC.pgc - ac 모듈 서비스 ACQ_NETCALC (one service = one file).
|
||||
* 정산금 재계산: 매입금액에서 수수료와 원천세 누계를 차감한 실정산금을
|
||||
* 다시 구해 purchase.net 을 보정한다. 변경 없으면 T_RC=1.
|
||||
* 다시 구해 purchase.net 을 보정한다. 변경이 없으면 결과코드로 알린다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_NETCALC.h"
|
||||
|
|
@ -9,38 +9,151 @@
|
|||
void ACQ_NETCALC(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long newnet;
|
||||
const char *SVC = "ACQ_NETCALC";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_amt = 0, h_fee = 0, h_oldnet = 0, h_wht = 0, h_newnet;
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 금액/수수료 조정 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
EXEC SQL SELECT amount, fee, net INTO :h_amt, :h_fee, :h_oldnet
|
||||
FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode == 100) { setl(b, T_RC, 5); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 원천세 누계 반영 */
|
||||
EXEC SQL SELECT coalesce(sum(tax_amount), 0) INTO :h_wht
|
||||
FROM ac_wht WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
/* 3) 업무규칙 분기부: 조정 유형/부호/한도 판정(3+ 분기) */
|
||||
/* 원천세 누계를 반영한 실정산금을 계산 */
|
||||
EXEC SQL SELECT coalesce(sum(tax_amount),0) INTO :h_tax FROM ac_wht
|
||||
WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 원천세누계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
computed = h_gross - h_fee - h_tax;
|
||||
h_delta = computed - h_net;
|
||||
if (h_delta == 0) { Bchg(b, T_MSG, 0, "정산금 변동 없음", 0L); setl(b, T_RC, 179); FAIL(b); }
|
||||
else if (h_tax > 0) { h_val = 3; Bchg(b, T_MSG, 0, "원천세 반영 보정", 0L); }
|
||||
else if (h_delta < 0) { h_val = 2; Bchg(b, T_MSG, 0, "정산금 하향 보정", 0L); }
|
||||
else { h_val = 1; Bchg(b, T_MSG, 0, "정산금 상향 보정", 0L); }
|
||||
|
||||
newnet = h_amt - h_fee - h_wht;
|
||||
if (newnet == h_oldnet) {
|
||||
setl(b, T_NET, newnet);
|
||||
setl(b, T_RC, 1); /* 이미 정합 */
|
||||
OK(b);
|
||||
/* 4) 본처리부: 조정 원장 기록 및 매입 금액 보정 */
|
||||
h_comp = computed;
|
||||
EXEC SQL UPDATE purchase SET net = :h_comp, updated_at = now() WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산금보정 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = sqlca.sqlerrd[2];
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "정산금재계산 pid=%ld 기존=%ld 신규=%ld 원천세=%ld", h_pid, h_net, computed, h_tax);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_NETCALC', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
h_newnet = newnet;
|
||||
EXEC SQL UPDATE purchase SET net = :h_newnet, updated_at = now()
|
||||
WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_NETCALC FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_NETCALC' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
setl(b, T_NET, newnet);
|
||||
setl(b, T_TAX, h_wht);
|
||||
setl(b, T_DELTA, newnet - h_oldnet);
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_NET, computed);
|
||||
setl(b, T_DELTA, h_delta);
|
||||
setl(b, T_TAX, h_tax);
|
||||
setl(b, T_FEE, h_fee);
|
||||
setl(b, T_AMOUNT, h_gross);
|
||||
setl(b, T_ARG1, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -6,39 +6,157 @@
|
|||
*/
|
||||
#include "ACQ_NOINTSHARE.h"
|
||||
|
||||
#define AC_NOINT_BPS_PER_MONTH 15L /* 발급사 분담률: 월당 15bps */
|
||||
|
||||
void ACQ_NOINTSHARE(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long share, adj;
|
||||
char bizdate[16];
|
||||
const char *SVC = "ACQ_NOINTSHARE";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_months = 0, h_amt = 0;
|
||||
char h_issuer[32];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 금액/수수료 조정 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 할부 스케줄에서 개월수 확인 (스케줄 없으면 무이자 대상 아님) */
|
||||
EXEC SQL SELECT coalesce(max(months), 0) INTO :h_months
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 조정 유형/부호/한도 판정(3+ 분기) */
|
||||
/* 할부 개월수를 확인하고 분담률을 산정 */
|
||||
EXEC SQL SELECT coalesce(max(months),0), count(*) INTO :h_months, :h_cnt
|
||||
FROM ac_install WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
if (h_months < 2) { setl(b, T_RC, 4); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 할부개월 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_months <= 0) { Bchg(b, T_MSG, 0, "할부 매입이 아님", 0L); setl(b, T_RC, 180); FAIL(b); }
|
||||
threshold = h_months * 15L;
|
||||
computed = h_gross * threshold / 10000L;
|
||||
if (h_months >= 12) { h_val = 3; Bchg(b, T_MSG, 0, "장기 무이자 분담", 0L); }
|
||||
else if (h_months >= 6) { h_val = 2; Bchg(b, T_MSG, 0, "중기 무이자 분담", 0L); }
|
||||
else { h_val = 1; Bchg(b, T_MSG, 0, "단기 무이자 분담", 0L); }
|
||||
h_delta = -computed;
|
||||
|
||||
EXEC SQL SELECT amount, issuer INTO :h_amt, :h_issuer
|
||||
FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0 || sqlca.sqlcode == 100) FAIL(b);
|
||||
/* 4) 본처리부: 조정 원장 기록 및 매입 금액 보정 */
|
||||
h_adjid = acdb_insert_fee_adj(h_pid, h_delta, "NOINT", h_bizdate);
|
||||
if (h_adjid < 0) { Bchg(b, T_MSG, 0, "분담금 이력 실패", 0L); setl(b, T_RC, 98); FAIL(b); }
|
||||
h_comp = computed;
|
||||
EXEC SQL UPDATE purchase SET fee = fee - :h_comp, net = net + :h_comp, updated_at = now() WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 분담반영 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = sqlca.sqlerrd[2];
|
||||
|
||||
share = acq_fee(h_amt, h_months * AC_NOINT_BPS_PER_MONTH);
|
||||
adj = acdb_insert_fee_adj(h_pid, -share, "NOINT", bizdate);
|
||||
if (adj < 0) { userlog("ACQ_NOINTSHARE adj FAIL pid=%ld", h_pid); FAIL(b); }
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
Bchg(b, T_ISSUER, 0, h_issuer, 0L);
|
||||
setl(b, T_AMT1, share); /* 발급사 분담금 */
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "무이자분담 pid=%ld 개월=%ld 분담률=%ld 분담금=%ld", h_pid, h_months, threshold, computed);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_NOINTSHARE', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_NOINTSHARE' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_ADJ, h_adjid);
|
||||
setl(b, T_INSTALL_N, h_months);
|
||||
setl(b, T_ADJ, adj);
|
||||
setl(b, T_ARG2, threshold);
|
||||
setl(b, T_DELTA, h_delta);
|
||||
setl(b, T_FEE, h_fee - computed);
|
||||
setl(b, T_ARG1, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_PARTCXL.pgc - ac 모듈 서비스 ACQ_PARTCXL (one service = one file).
|
||||
* 부분취소: 취소액이 잔여 매입금액 미만인 경우에만 허용. 수수료를 비례
|
||||
* 배분해 환급하고 purchase 잔액(amount/fee/net)을 차감, PARTIAL 취소행 생성.
|
||||
* 부분취소: 취소액이 잔여 매입금액 미만인 경우에만 허용한다. 수수료를
|
||||
* 비례 배분해 환급하고 purchase 잔액(amount/fee/net)을 차감한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_PARTCXL.h"
|
||||
|
|
@ -9,43 +9,167 @@
|
|||
void ACQ_PARTCXL(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long feeback;
|
||||
const char *SVC = "ACQ_PARTCXL";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_cid, h_pid, h_cxl, h_amt = 0, h_fee = 0, h_fb;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
h_cxl = getl(b, T_AMOUNT);
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
h_amt = getl(b, T_AMOUNT);
|
||||
if (h_amt < 1L) { Bchg(b, T_MSG, 0, "금액 범위 오류", 0L); setl(b, T_RC, 104); FAIL(b); }
|
||||
gets_(b, T_REASON, reason, sizeof(reason)); if (reason[0] == 0) strcpy(reason, "일반");
|
||||
strncpy(h_reason, reason, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
EXEC SQL SELECT amount, fee INTO :h_amt, :h_fee FROM purchase
|
||||
WHERE purchase_id = :h_pid AND status IN ('A', 'M');
|
||||
if (sqlca.sqlcode == 100) { setl(b, T_RC, 5); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
if (h_cxl <= 0 || h_cxl >= h_amt) { setl(b, T_RC, 3); FAIL(b); }
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 수수료 비례 환급분: fee * 취소액 / 원금액 */
|
||||
feeback = (h_fee * h_cxl) / h_amt;
|
||||
h_fb = feeback;
|
||||
|
||||
EXEC SQL SELECT nextval('ac_cancel_seq') INTO :h_cid;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL INSERT INTO ac_cancel (cancel_id, purchase_id, cancel_type, amount, reason, biz_date)
|
||||
VALUES (:h_cid, :h_pid, 'PARTIAL', :h_cxl, 'PARTCXL', :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
|
||||
EXEC SQL UPDATE purchase
|
||||
SET amount = amount - :h_cxl,
|
||||
fee = fee - :h_fb,
|
||||
net = net - (:h_cxl - :h_fb),
|
||||
updated_at = now()
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "A") == 0 || strcmp(h_prev, "M") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 기취소 누계를 반영한 잔액으로 부분취소 가능성을 검증 */
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_sum FROM ac_cancel
|
||||
WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_PARTCXL FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 기취소 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_rem = h_gross - h_sum;
|
||||
if (h_amt >= h_rem) { Bchg(b, T_MSG, 0, "취소액이 잔액 이상(전액취소 대상)", 0L); setl(b, T_RC, 146); FAIL(b); }
|
||||
h_delta = (h_gross > 0) ? (h_fee * h_amt / h_gross) : 0;
|
||||
if (h_amt * 2 >= h_rem) { h_val = 3; }
|
||||
else if (h_amt * 4 >= h_rem) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
setl(b, T_CANCEL_ID, h_cid);
|
||||
setl(b, T_AMT1, h_amt - h_cxl); /* 잔여 매입금액 */
|
||||
setl(b, T_FEE, feeback);
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
EXEC SQL SELECT nextval('ac_cancel_seq') INTO :h_canid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 취소채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ac_cancel (cancel_id, purchase_id, cancel_type, amount, reason, biz_date) VALUES (:h_canid, :h_pid, 'PARTIAL', :h_amt, :h_reason, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 부분취소행 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL UPDATE purchase SET amount = amount - :h_amt, fee = fee - :h_delta, net = net - (:h_amt - :h_delta), updated_at = now() WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 잔액차감 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = 1;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "부분취소 pid=%ld 취소=%ld 잔액=%ld 수수료환급=%ld", h_pid, h_amt, h_rem - h_amt, h_delta);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_PARTCXL', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_PARTCXL' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_CANCEL_ID, h_canid);
|
||||
setl(b, T_AMOUNT, h_amt);
|
||||
setl(b, T_FEE, h_delta);
|
||||
setl(b, T_ARG1, h_rem - h_amt);
|
||||
setl(b, T_ARG2, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,26 +1,162 @@
|
|||
/*
|
||||
* ACQ_PARTIAL.pgc - ac 모듈 서비스 ACQ_PARTIAL (one service = one file).
|
||||
* Moved verbatim from the former inline ac_svr.pgc; runs on the caller's XA
|
||||
* branch (no EXEC SQL CONNECT). Advertised by ac_svr at tpsvrinit.
|
||||
* 부분처리 등록: 매입의 일부 금액만 확정 처리하고 나머지는 미확정으로
|
||||
* 남긴다. PARTIAL 취소행으로 미확정분을 표시한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_PARTIAL.h"
|
||||
|
||||
void ACQ_PARTIAL(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char bizdate[16];
|
||||
const char *SVC = "ACQ_PARTIAL";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_id, h_pid, h_amt;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
h_pid = getl(b, T_PURCHASE_ID); h_amt = getl(b, T_AMOUNT);
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
h_amt = getl(b, T_AMOUNT);
|
||||
if (h_amt < 1L) { Bchg(b, T_MSG, 0, "금액 범위 오류", 0L); setl(b, T_RC, 104); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
EXEC SQL SELECT nextval('ac_cancel_seq') INTO :h_id;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL INSERT INTO ac_cancel (cancel_id, purchase_id, cancel_type, amount, reason, biz_date)
|
||||
VALUES (:h_id, :h_pid, 'PARTIAL', :h_amt, 'PARTIAL', :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
setl(b, T_CANCEL_ID, h_id);
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "A") == 0 || strcmp(h_prev, "M") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 확정 금액이 원금 범위인지 확인하고 확정 비율을 산정 */
|
||||
if (h_amt > h_gross) { Bchg(b, T_MSG, 0, "확정액이 원금 초과", 0L); setl(b, T_RC, 147); FAIL(b); }
|
||||
h_rem = h_gross - h_amt;
|
||||
ratio = (h_gross > 0) ? (h_amt * 10000L / h_gross) : 0;
|
||||
if (ratio >= 9000) { h_val = 1; Bchg(b, T_MSG, 0, "대부분 확정", 0L); }
|
||||
else if (ratio >= 5000) { h_val = 2; Bchg(b, T_MSG, 0, "과반 확정", 0L); }
|
||||
else { h_val = 3; Bchg(b, T_MSG, 0, "소액 확정", 0L); }
|
||||
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
EXEC SQL SELECT nextval('ac_cancel_seq') INTO :h_canid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 취소채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ac_cancel (cancel_id, purchase_id, cancel_type, amount, reason, biz_date) VALUES (:h_canid, :h_pid, 'PARTIAL', :h_rem, 'PARTIAL', :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 미확정행 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = 1;
|
||||
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "부분처리 pid=%ld 확정=%ld 미확정=%ld 확정률=%ld", h_pid, h_amt, h_rem, ratio);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_PARTIAL', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_PARTIAL' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_CANCEL_ID, h_canid);
|
||||
setl(b, T_AMOUNT, h_amt);
|
||||
setl(b, T_ARG1, h_rem);
|
||||
setl(b, T_ARG2, ratio);
|
||||
setl(b, T_ARG3, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -9,36 +9,173 @@
|
|||
void ACQ_PARTRFND(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char bizdate[16];
|
||||
const char *SVC = "ACQ_PARTRFND";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_cid, h_pid, h_req, h_orig = 0, h_prev = 0;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
h_req = getl(b, T_AMOUNT);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
h_amt = getl(b, T_AMOUNT);
|
||||
if (h_amt < 1L) { Bchg(b, T_MSG, 0, "금액 범위 오류", 0L); setl(b, T_RC, 104); FAIL(b); }
|
||||
gets_(b, T_REASON, reason, sizeof(reason)); if (reason[0] == 0) strcpy(reason, "일반");
|
||||
strncpy(h_reason, reason, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
EXEC SQL SELECT amount INTO :h_orig FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0 || sqlca.sqlcode == 100) FAIL(b);
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
/* 환불 누계 검증: 이미 환불된 합계 + 이번 요청액 <= 매입금액 */
|
||||
EXEC SQL SELECT coalesce(sum(amount), 0) INTO :h_prev FROM ac_cancel
|
||||
WHERE purchase_id = :h_pid AND cancel_type = 'REFUND';
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
if (h_req <= 0 || h_prev + h_req > h_orig) { setl(b, T_RC, 6); FAIL(b); }
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "M") == 0 || strcmp(h_prev, "S") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 기환불 누계를 확인해 초과 환불을 차단 */
|
||||
EXEC SQL SELECT coalesce(sum(amount),0), count(*) INTO :h_sum, :h_cnt
|
||||
FROM ac_cancel WHERE purchase_id = :h_pid AND cancel_type = 'REFUND';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 기환불 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_sum + h_amt > h_gross) { Bchg(b, T_MSG, 0, "환불 누계가 원금 초과", 0L); setl(b, T_RC, 148); FAIL(b); }
|
||||
h_rem = h_gross - h_sum - h_amt;
|
||||
if (h_rem == 0) { h_val = 3; Bchg(b, T_MSG, 0, "전액 환불 완료", 0L); }
|
||||
else if (h_cnt >= 2) { h_val = 2; Bchg(b, T_MSG, 0, "다회 부분환불", 0L); }
|
||||
else { h_val = 1; Bchg(b, T_MSG, 0, "부분환불", 0L); }
|
||||
h_delta = -h_amt;
|
||||
|
||||
EXEC SQL SELECT nextval('ac_cancel_seq') INTO :h_cid;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL INSERT INTO ac_cancel (cancel_id, purchase_id, cancel_type, amount, reason, biz_date)
|
||||
VALUES (:h_cid, :h_pid, 'REFUND', :h_req, 'PARTRFND', :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
EXEC SQL SELECT nextval('ac_cancel_seq') INTO :h_canid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 환불채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ac_cancel (cancel_id, purchase_id, cancel_type, amount, reason, biz_date) VALUES (:h_canid, :h_pid, 'REFUND', :h_amt, :h_reason, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 환불행 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT nextval('ledger_seq') INTO :h_ledid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 원장채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ledger (ledger_id, purchase_id, entry_type, amount, biz_date) VALUES (:h_ledid, :h_pid, 'PARTRFND', :h_delta, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 환불분개 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = 1;
|
||||
|
||||
if (acdb_insert_ledger(h_pid, "PARTRFND", -h_req, bizdate) < 0) FAIL(b);
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
setl(b, T_CANCEL_ID, h_cid);
|
||||
setl(b, T_AMT2, h_prev + h_req); /* 환불 누계 */
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "부분환불 pid=%ld 환불=%ld 누계=%ld 잔여=%ld", h_pid, h_amt, h_sum + h_amt, h_rem);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_PARTRFND', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_PARTRFND' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_CANCEL_ID, h_canid);
|
||||
setl(b, T_AMOUNT, h_amt);
|
||||
setl(b, T_AMT1, h_sum + h_amt);
|
||||
setl(b, T_ARG1, h_rem);
|
||||
setl(b, T_ARG2, h_val);
|
||||
setl(b, T_ID1, h_ledid);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -9,34 +9,154 @@
|
|||
void ACQ_PROMO(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
char promo[32], bizdate[16];
|
||||
const char *SVC = "ACQ_PROMO";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_amt;
|
||||
char h_merch[64], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 신규 매입 접수 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
gets_(b, T_MERCHANT, merch, sizeof(merch));
|
||||
if (merch[0] == 0) { Bchg(b, T_MSG, 0, "가맹점 ID 누락", 0L); setl(b, T_RC, 101); FAIL(b); }
|
||||
strncpy(h_merch, merch, sizeof(h_merch)-1); h_merch[sizeof(h_merch)-1] = 0;
|
||||
h_amt = getl(b, T_AMOUNT);
|
||||
gets_(b, T_MERCHANT, h_merch, sizeof(h_merch));
|
||||
gets_(b, T_STR1, promo, sizeof(promo));
|
||||
if (h_amt < 1L) { Bchg(b, T_MSG, 0, "금액 범위 오류", 0L); setl(b, T_RC, 104); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 행사 코드 형식 검증: PRM- 접두 필수 */
|
||||
if (strncmp(promo, "PRM-", 4) != 0) { setl(b, T_RC, 7); FAIL(b); }
|
||||
if (h_amt <= 0) { setl(b, T_RC, 3); FAIL(b); }
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
EXEC SQL SELECT nextval('purchase_seq') INTO :h_pid;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
/* 3) 업무규칙 분기부: 가맹점 상태/금액 구간/채널 정책(3+ 분기) */
|
||||
if (strcmp(h_status, "ACTIVE") != 0) { Bchg(b, T_MSG, 0, "비활성 가맹점", 0L); setl(b, T_RC, 121); FAIL(b); }
|
||||
/* 행사 매입은 수수료를 전액 면제하되 금액 상한을 둔다 */
|
||||
if (h_amt > 3000000) { Bchg(b, T_MSG, 0, "행사 매입 한도 초과", 0L); setl(b, T_RC, 162); FAIL(b); }
|
||||
if (h_amt >= 1000000) { h_val = 3; }
|
||||
else if (h_amt >= 100000) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 수수료 면제: fee 0, net 전액, 분류 PROMO */
|
||||
EXEC SQL INSERT INTO purchase (purchase_id, merchant_id, amount, fee, net, status, biz_date, channel, category)
|
||||
VALUES (:h_pid, :h_merch, :h_amt, 0, :h_amt, 'A', :h_bizdate, 'POS', 'PROMO');
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_PROMO FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
/* 4) 본처리부: 수수료 산출 및 매입/승인 원장 생성 */
|
||||
bps = h_rate; h_fee = acq_fee(h_amt, bps); h_net = h_amt - h_fee;
|
||||
/* 수수료 면제: 원 MDR 수수료를 감면액으로 보존해 응답 */
|
||||
h_delta = h_fee;
|
||||
h_fee = 0;
|
||||
h_net = h_amt;
|
||||
EXEC SQL SELECT nextval('ledger_seq') INTO :h_ledid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 원장채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_new = acdb_next_purchase_id();
|
||||
if (h_new < 0) { Bchg(b, T_MSG, 0, "매입 채번 실패", 0L); setl(b, T_RC, 93); FAIL(b); }
|
||||
if (acdb_insert_purchase(h_new, h_merch, h_amt, h_fee, h_net, "A", "POS", h_bizdate) < 0)
|
||||
{ Bchg(b, T_MSG, 0, "매입 생성 실패", 0L); setl(b, T_RC, 94); FAIL(b); }
|
||||
if (acdb_insert_approval(h_new, 1) < 0) { Bchg(b, T_MSG, 0, "승인 적재 실패", 0L); setl(b, T_RC, 95); FAIL(b); }
|
||||
h_aff = 1; h_pid = h_new;
|
||||
EXEC SQL UPDATE purchase SET category = 'PROMO' WHERE purchase_id = :h_new;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 분류표시 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
if (acdb_insert_ledger(h_pid, "PROMO", h_amt, bizdate) < 0) FAIL(b);
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
setl(b, T_PURCHASE_ID, h_pid);
|
||||
setl(b, T_NET, h_amt);
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "프로모션매입 merch=%s 금액=%ld 감면=%ld 등급=%ld", h_merch, h_amt, h_delta, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_PROMO', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_PROMO' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_PURCHASE_ID, h_new);
|
||||
setl(b, T_FEE, h_fee);
|
||||
setl(b, T_NET, h_net);
|
||||
setl(b, T_DELTA, h_delta);
|
||||
setl(b, T_ARG1, h_val);
|
||||
Bchg(b, T_CATEGORY, 0, "PROMO", 0L);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_PROMOQRY.pgc - ac 모듈 서비스 ACQ_PROMOQRY (one service = one file).
|
||||
* 프로모션 조회: 영업일 프로모션(category=PROMO) 매입의 건수와 매출, 감면
|
||||
* 수수료 합계를 조회해 행사 성과를 응답한다.
|
||||
* 프로모션 조회: 영업일 프로모션(category=PROMO) 매입의 건수와 매출,
|
||||
* 감면 수수료 합계를 조회해 행사 성과를 응답한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_PROMOQRY.h"
|
||||
|
|
@ -9,21 +9,148 @@
|
|||
void ACQ_PROMOQRY(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_PROMOQRY";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_n = 0, h_sum = 0, h_fee = 0;
|
||||
char h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0)
|
||||
INTO :h_n, :h_sum, :h_fee FROM purchase
|
||||
WHERE category = 'PROMO' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
setl(b, T_COUNT, h_n);
|
||||
setl(b, T_GROSS, h_sum);
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_gross, :h_fee, :h_net FROM purchase WHERE biz_date = :h_bizdate AND category = 'PROMO';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 프로모션집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_a, :h_b FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 전체집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 프로모션 매출 비중과 수수료 감면 효과를 판정 */
|
||||
if (h_b > 0) ratio = (h_gross * 10000L) / h_b; else ratio = 0;
|
||||
h_e = (h_gross * 25L / 10000L) - h_fee;
|
||||
if (h_cnt == 0) { h_val = 0; }
|
||||
else if (ratio >= 3000) { h_val = 3; }
|
||||
else if (ratio >= 1000) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "프로모션조회 bizdate=%s 건수=%ld 매출=%ld 감면=%ld", h_bizdate, h_cnt, h_gross, h_e);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_PROMOQRY', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_PROMOQRY' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_FEE, h_fee);
|
||||
setl(b, T_RC, h_n > 0 ? 0 : 1);
|
||||
setl(b, T_NET, h_net);
|
||||
setl(b, T_ARG1, ratio);
|
||||
setl(b, T_ARG2, h_e);
|
||||
setl(b, T_ARG3, h_val);
|
||||
setl(b, T_ARG4, h_a);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_PROMOSTAT.pgc - ac 모듈 서비스 ACQ_PROMOSTAT (one service = one file).
|
||||
* 프로모션 통계: 영업일 업종/분류별 매출을 그룹 집계해 분류코드·매출 쌍을
|
||||
* occurrence 로 내리고 프로모션 분류가 차지하는 비중을 계산한다.
|
||||
* 프로모션 통계: 영업일 업종/분류별 매출을 그룹 집계해 최다 분류와
|
||||
* 프로모션 분류가 차지하는 비중을 계산한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_PROMOSTAT.h"
|
||||
|
|
@ -9,32 +9,153 @@
|
|||
void ACQ_PROMOSTAT(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long grand = 0, promo = 0, kinds = 0;
|
||||
const char *SVC = "ACQ_PROMOSTAT";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_sum;
|
||||
char h_cat[32], h_bizdate[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
gets_(b, T_BIZDATE, h_bizdate, sizeof(h_bizdate));
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL DECLARE pms_cur CURSOR FOR
|
||||
SELECT category, sum(amount) FROM purchase WHERE biz_date = :h_bizdate
|
||||
GROUP BY category ORDER BY sum(amount) DESC;
|
||||
EXEC SQL OPEN pms_cur;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
for (;;) {
|
||||
EXEC SQL FETCH pms_cur INTO :h_cat, :h_sum;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE pms_cur; FAIL(b); }
|
||||
if (kinds < 8) { Badd(b, T_CATEGORY, h_cat, 0L); Badd(b, T_AMT1, (char *)&h_sum, 0L); }
|
||||
grand += h_sum;
|
||||
if (strcmp(h_cat, "PROMO") == 0) promo = h_sum;
|
||||
kinds++;
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
EXEC SQL CLOSE pms_cur;
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
setl(b, T_GROSS, grand);
|
||||
setl(b, T_AMT2, promo);
|
||||
setl(b, T_RC, grand > 0 ? promo * 100 / grand : 0);
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT count(DISTINCT category), count(*), coalesce(sum(amount),0) INTO :h_n, :h_cnt, :h_gross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 분류모집단 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(category,''), coalesce(sum(amount),0) INTO :h_str2, :h_a FROM purchase WHERE biz_date = :h_bizdate GROUP BY category ORDER BY sum(amount) DESC LIMIT 1;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 최다분류 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT coalesce(sum(amount),0) INTO :h_b FROM purchase WHERE biz_date = :h_bizdate AND category = 'PROMO';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 프로모션분 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 프로모션 비중으로 행사 의존도를 판정 */
|
||||
if (h_gross > 0) ratio = (h_b * 10000L) / h_gross; else ratio = 0;
|
||||
if (h_gross == 0) { h_val = 0; }
|
||||
else if (ratio >= 4000) { h_val = 3; }
|
||||
else if (ratio >= 1500) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
h_avg = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "프로모션통계 bizdate=%s 분류수=%ld 최다=%s 행사비중=%ld", h_bizdate, h_n, h_str2, ratio);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_PROMOSTAT', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_PROMOSTAT' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_COUNT, h_n);
|
||||
Bchg(b, T_CATEGORY, 0, h_str2, 0L);
|
||||
setl(b, T_AMT1, h_a);
|
||||
setl(b, T_AMT2, h_b);
|
||||
setl(b, T_ARG1, ratio);
|
||||
setl(b, T_ARG2, h_val);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
setl(b, T_AMT3, h_avg);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_QTRSTAT.pgc - ac 모듈 서비스 ACQ_QTRSTAT (one service = one file).
|
||||
* 매입 분기별 통계: 지정 연도(T_ARG1)의 매입 매출을 1~4분기로 나눠 분기별
|
||||
* 합계를 한 번의 집계로 산출하고 연간 총매출을 함께 응답한다.
|
||||
* 매입 분기별 통계: 지정 연도(T_ARG1)의 매입 매출을 1~4분기로 나눠
|
||||
* 분기별 합계를 한 번의 집계로 산출하고 연간 총매출을 함께 응답한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_QTRSTAT.h"
|
||||
|
|
@ -9,27 +9,156 @@
|
|||
void ACQ_QTRSTAT(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long yr;
|
||||
const char *SVC = "ACQ_QTRSTAT";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_q1 = 0, h_q2 = 0, h_q3 = 0, h_q4 = 0;
|
||||
int h_yr;
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
yr = getl(b, T_ARG1); if (yr < 2000) yr = 2026;
|
||||
h_yr = (int)yr;
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
|
||||
EXEC SQL SELECT coalesce(sum(amount) FILTER (WHERE extract(quarter from biz_date) = 1),0),
|
||||
coalesce(sum(amount) FILTER (WHERE extract(quarter from biz_date) = 2),0),
|
||||
coalesce(sum(amount) FILTER (WHERE extract(quarter from biz_date) = 3),0),
|
||||
coalesce(sum(amount) FILTER (WHERE extract(quarter from biz_date) = 4),0)
|
||||
INTO :h_q1, :h_q2, :h_q3, :h_q4 FROM purchase
|
||||
WHERE extract(year from biz_date) = :h_yr;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
userlog("%s 진입: 매입 조회/집계 요청 접수", SVC);
|
||||
|
||||
setl(b, T_ARG2, h_q1);
|
||||
setl(b, T_ARG3, h_q2);
|
||||
setl(b, T_ARG4, h_q3);
|
||||
setl(b, T_ARG5, h_q4);
|
||||
setl(b, T_GROSS, h_q1 + h_q2 + h_q3 + h_q4);
|
||||
/* 1) 입력 검증부: 전 필드 필수/형식 점검, 위반 시 사유코드로 거절 */
|
||||
k = getl(b, T_ARG1); if (k < 2000 || k > 2999) k = 2026;
|
||||
snprintf(logmsg, sizeof(logmsg), "%ld-01-01", k);
|
||||
strncpy(h_d1, logmsg, sizeof(h_d1)-1); h_d1[sizeof(h_d1)-1] = 0;
|
||||
snprintf(logmsg, sizeof(logmsg), "%ld-12-31", k);
|
||||
strncpy(h_d2, logmsg, sizeof(h_d2)-1); h_d2[sizeof(h_d2)-1] = 0;
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류(YYYY-MM-DD)", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
|
||||
/* 작업 컨텍스트 확인 로깅 */
|
||||
userlog("%s 컨텍스트: merch=%s pid=%ld bizdate=%s", SVC, h_merch, h_pid, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 조회/집계 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 2) 마스터/정책/상태 조회부: 기준 정보 및 운영 파라미터 로드 */
|
||||
/* 영업일 전체 컨텍스트 로드(개별 집계의 비교 기준) */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_ctx, :h_pdgross FROM purchase WHERE biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 일자컨텍스트 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 정산주기 운영 파라미터 로드 */
|
||||
EXEC SQL SELECT param_val INTO :h_str2 FROM cm_param WHERE param_key = 'SETTLE_CYCLE';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 정산주기 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
k = (sqlca.sqlcode == 0) ? atol(h_str2) : 1;
|
||||
userlog("%s 일자컨텍스트: 전체 %ld건 %ld원 주기=%ld", SVC, h_ctx, h_pdgross, k);
|
||||
|
||||
/* 4) 본처리부: 실적 집계 질의 수행 */
|
||||
EXEC SQL SELECT coalesce(sum(amount) FILTER (WHERE extract(quarter from biz_date) = 1),0), coalesce(sum(amount) FILTER (WHERE extract(quarter from biz_date) = 2),0), coalesce(sum(amount) FILTER (WHERE extract(quarter from biz_date) = 3),0), coalesce(sum(amount) FILTER (WHERE extract(quarter from biz_date) = 4),0) INTO :h_a, :h_b, :h_c, :h_d FROM purchase WHERE biz_date BETWEEN :h_d1::date AND :h_d2::date;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 분기분해 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_cnt, :h_gross FROM purchase WHERE biz_date BETWEEN :h_d1::date AND :h_d2::date;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 연간총계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 3) 업무규칙 분기부: 결과 구간/임계에 따른 파생 판정(3+ 분기) */
|
||||
/* 최대 분기를 골라 계절성 편중을 판정 */
|
||||
h_max = h_a; h_top = 1;
|
||||
if (h_b > h_max) { h_max = h_b; h_top = 2; }
|
||||
if (h_c > h_max) { h_max = h_c; h_top = 3; }
|
||||
if (h_d > h_max) { h_max = h_d; h_top = 4; }
|
||||
if (h_gross > 0) ratio = (h_max * 10000L) / h_gross; else ratio = 0;
|
||||
if (h_gross == 0) { h_val = 0; }
|
||||
else if (ratio >= 5000) { h_val = 3; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 6) 집계/요약 갱신부: 보조 재집계로 맥락 지표 산출 */
|
||||
/* 직전 영업일 전체 실적과 비교해 추세 지수를 만든다 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0) INTO :h_min, :h_val2 FROM purchase WHERE biz_date = (:h_bizdate::date - 1);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 직전일전체 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
ratio = (h_cnt > 0) ? (h_gross / h_cnt) : 0;
|
||||
h_avg = ratio;
|
||||
h_share = (h_val2 > 0) ? (h_gross * 100L / h_val2) : 0;
|
||||
userlog("%s 추세: 당일=%ld 직전일=%ld 지수=%ld", SVC, h_gross, h_val2, h_share);
|
||||
|
||||
/* 7) 예외/보상부: 결과 이상징후 감시(무실적/음수/한도) */
|
||||
if (h_cnt == 0) userlog("%s 경보: 조회 실적 없음 (%s)", SVC, h_bizdate);
|
||||
if (h_gross < 0) { Bchg(b, T_MSG, 0, "집계 음수 이상", 0L); setl(b, T_RC, 91); FAIL(b); }
|
||||
if (h_lim > 0 && h_gross > h_lim) userlog("%s 경보: 집계 %ld 가 한도 %ld 초과", SVC, h_gross, h_lim);
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "분기통계 연도=%ld 1Q=%ld 2Q=%ld 3Q=%ld 4Q=%ld", k, h_a, h_b, h_c, h_d);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_QTRSTAT', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_QTRSTAT' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부: 결과 필드 채움 */
|
||||
setl(b, T_AMT1, h_a);
|
||||
setl(b, T_AMT2, h_b);
|
||||
setl(b, T_AMT3, h_c);
|
||||
setl(b, T_AMT4, h_d);
|
||||
setl(b, T_ARG2, h_top);
|
||||
setl(b, T_ARG3, ratio);
|
||||
setl(b, T_ARG4, h_val);
|
||||
setl(b, T_COUNT, h_cnt);
|
||||
setl(b, T_GROSS, h_gross);
|
||||
/* 공통 컨텍스트 지표 동봉(수수료율/미결/정산완료) */
|
||||
setl(b, T_ARG7, h_rate);
|
||||
setl(b, T_ARG8, h_openc);
|
||||
setl(b, T_ID2, h_setc);
|
||||
userlog("%s 완료: 건수=%ld 총액=%ld 지표=%ld", SVC, h_cnt, h_gross, ratio);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
/*
|
||||
* ACQ_REBUY.pgc - ac 모듈 서비스 ACQ_REBUY (one service = one file).
|
||||
* 재매입: 취소(C)된 원매입의 가맹점/금액/채널을 승계해 신규 매입을 생성하고
|
||||
* 재매입: 취소(C)된 원매입의 가맹점/금액을 승계해 신규 매입을 생성하고
|
||||
* 현재 MDR 로 수수료를 재산출, 원장에 REBUY 연결 분개를 남긴다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
|
|
@ -9,34 +9,165 @@
|
|||
void ACQ_REBUY(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
long newpid, fee, net, bps = 0;
|
||||
char bizdate[16];
|
||||
const char *SVC = "ACQ_REBUY";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_amt = 0;
|
||||
char h_merch[64], h_chan[16];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 신규 매입 접수 요청", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
/* 원매입에서 가맹점/금액을 승계한다 */
|
||||
EXEC SQL SELECT merchant_id, amount, status INTO :h_merch, :h_amt, :h_prev
|
||||
FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 원매입승계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "원매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
if (strcmp(h_prev, "C") != 0) { Bchg(b, T_MSG, 0, "취소 건만 재매입 가능", 0L); setl(b, T_RC, 165); FAIL(b); }
|
||||
if (h_amt <= 0) { Bchg(b, T_MSG, 0, "승계 금액 오류", 0L); setl(b, T_RC, 104); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
/* 취소 상태의 원매입만 재매입 대상 */
|
||||
EXEC SQL SELECT merchant_id, amount, channel INTO :h_merch, :h_amt, :h_chan
|
||||
FROM purchase WHERE purchase_id = :h_pid AND status = 'C';
|
||||
if (sqlca.sqlcode == 100) { setl(b, T_RC, 5); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
if (acdb_merchant_mdr(h_merch, &bps) < 0) FAIL(b);
|
||||
fee = acq_fee(h_amt, bps);
|
||||
net = h_amt - fee;
|
||||
/* 3) 업무규칙 분기부: 가맹점 상태/금액 구간/채널 정책(3+ 분기) */
|
||||
if (strcmp(h_status, "ACTIVE") != 0) { Bchg(b, T_MSG, 0, "비활성 가맹점", 0L); setl(b, T_RC, 121); FAIL(b); }
|
||||
/* 재매입 횟수를 세어 반복 재매입을 제한한다 */
|
||||
EXEC SQL SELECT count(*) INTO :h_cnt FROM ledger
|
||||
WHERE purchase_id = :h_pid AND entry_type = 'REBUY';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재매입이력 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_cnt >= 3) { Bchg(b, T_MSG, 0, "재매입 횟수 초과", 0L); setl(b, T_RC, 166); FAIL(b); }
|
||||
else if (h_cnt >= 1) { h_val = 3; }
|
||||
else if (h_amt >= 1000000) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
newpid = acdb_next_purchase_id();
|
||||
if (newpid < 0) FAIL(b);
|
||||
if (acdb_insert_purchase(newpid, h_merch, h_amt, fee, net, "A", h_chan, bizdate) < 0) FAIL(b);
|
||||
/* 원매입 → 신매입 연결 분개 */
|
||||
if (acdb_insert_ledger(h_pid, "REBUY", h_amt, bizdate) < 0) FAIL(b);
|
||||
/* 4) 본처리부: 수수료 산출 및 매입/승인 원장 생성 */
|
||||
bps = h_rate; h_fee = acq_fee(h_amt, bps); h_net = h_amt - h_fee;
|
||||
/* 원매입과의 연결을 원장 REBUY 분개로 남긴다 */
|
||||
EXEC SQL SELECT nextval('ledger_seq') INTO :h_ledid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 원장채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO ledger (ledger_id, purchase_id, entry_type, amount, biz_date) VALUES (:h_ledid, :h_pid, 'REBUY', :h_amt, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재매입분개 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_new = acdb_next_purchase_id();
|
||||
if (h_new < 0) { Bchg(b, T_MSG, 0, "매입 채번 실패", 0L); setl(b, T_RC, 93); FAIL(b); }
|
||||
if (acdb_insert_purchase(h_new, h_merch, h_amt, h_fee, h_net, "A", "POS", h_bizdate) < 0)
|
||||
{ Bchg(b, T_MSG, 0, "매입 생성 실패", 0L); setl(b, T_RC, 94); FAIL(b); }
|
||||
if (acdb_insert_approval(h_new, 1) < 0) { Bchg(b, T_MSG, 0, "승인 적재 실패", 0L); setl(b, T_RC, 95); FAIL(b); }
|
||||
h_aff = 1; h_pid = h_new;
|
||||
|
||||
setl(b, T_ID1, newpid);
|
||||
setl(b, T_FEE, fee);
|
||||
setl(b, T_NET, net);
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "재매입 원pid=%ld 신규금액=%ld 회차=%ld 등급=%ld", h_pid, h_amt, h_cnt + 1, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_REBUY', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_REBUY' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_PURCHASE_ID, h_new);
|
||||
setl(b, T_ID1, h_pid);
|
||||
setl(b, T_AMOUNT, h_amt);
|
||||
setl(b, T_FEE, h_fee);
|
||||
setl(b, T_NET, h_net);
|
||||
setl(b, T_COUNT, h_cnt + 1);
|
||||
setl(b, T_ARG1, h_val);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
/*
|
||||
* ACQ_REBUYAPPR.pgc - ac 모듈 서비스 ACQ_REBUYAPPR (one service = one file).
|
||||
* 재매입 승인: 취소(C)된 원매입에 한해 승인 원장(approval)에 재승인 행을
|
||||
* 남기고 원매입을 접수(A)로 되살려 재매입을 개시한다.
|
||||
* 재매입 승인: 취소(C)된 원매입에 한해 승인 원장에 재승인 행을 남기고
|
||||
* 원매입을 접수(A)로 되살려 재매입을 개시한다.
|
||||
* Runs on the caller's XA branch (no EXEC SQL CONNECT). Advertised by ac_svr.
|
||||
*/
|
||||
#include "ACQ_REBUYAPPR.h"
|
||||
|
|
@ -9,26 +9,151 @@
|
|||
void ACQ_REBUYAPPR(TPSVCINFO *p)
|
||||
{
|
||||
UBFH *b = (UBFH *)p->data;
|
||||
const char *SVC = "ACQ_REBUYAPPR";
|
||||
char merch[64], bizdate[16], ccy[8], issuer[32], channel[16], logmsg[256];
|
||||
char reason[128], docno[64];
|
||||
long threshold = 0, ratio = 0, k = 0;
|
||||
char category[24];
|
||||
long i = 0, bps = 25, computed = 0, prior = 0;
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
long h_pid, h_aid;
|
||||
char st[4];
|
||||
long h_cnt = 0, h_gross = 0, h_net = 0, h_fee = 0, h_sum = 0, h_avg = 0, h_max = 0;
|
||||
long h_a = 0, h_b = 0, h_c = 0, h_d = 0, h_e = 0, h_top = 0, h_val = 0, h_val2 = 0;
|
||||
long h_lim = 0, h_rate = 0, h_pid = 0, h_amt = 0, h_logid = 0, h_n = 0, h_id = 0;
|
||||
long h_openc = 0, h_setc = 0, h_pdgross = 0, h_ctx = 0, h_share = 0, h_min = 0;
|
||||
long h_supply = 0, h_vat = 0, h_months = 0, h_delta = 0, h_tax = 0;
|
||||
char h_merch[64], h_bizdate[16], h_ccy[8], h_issuer[32], h_status[8], h_chan[16];
|
||||
char h_reason[128], h_str1[64], h_str2[40], h_logmsg[256], h_d1[16], h_d2[16];
|
||||
long h_krw = 0, h_fx = 0, h_comp = 0, h_rate2 = 0, h_sfee = 0, h_snet = 0;
|
||||
long h_seq = 0, h_mamt = 0, h_new = 0, h_aff = 0, h_prev2 = 0;
|
||||
long h_canid = 0, h_adjid = 0, h_invid = 0, h_ledid = 0, h_setid = 0, h_rem = 0;
|
||||
char h_prev[8], h_ctype[16], h_category[24], h_docno[64];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
|
||||
/* 작업영역 초기화: 문자열 호스트변수/로컬버퍼를 모두 널로 시작한다 */
|
||||
memset(h_merch, 0, sizeof(h_merch)); memset(h_bizdate, 0, sizeof(h_bizdate));
|
||||
memset(h_ccy, 0, sizeof(h_ccy)); memset(h_issuer, 0, sizeof(h_issuer));
|
||||
memset(h_status, 0, sizeof(h_status)); memset(h_chan, 0, sizeof(h_chan));
|
||||
memset(h_reason, 0, sizeof(h_reason)); memset(h_str1, 0, sizeof(h_str1));
|
||||
memset(h_str2, 0, sizeof(h_str2)); memset(h_logmsg, 0, sizeof(h_logmsg));
|
||||
memset(h_d1, 0, sizeof(h_d1)); memset(h_d2, 0, sizeof(h_d2));
|
||||
memset(merch, 0, sizeof(merch)); memset(bizdate, 0, sizeof(bizdate));
|
||||
memset(ccy, 0, sizeof(ccy)); memset(issuer, 0, sizeof(issuer));
|
||||
memset(channel, 0, sizeof(channel)); memset(reason, 0, sizeof(reason));
|
||||
memset(docno, 0, sizeof(docno)); memset(logmsg, 0, sizeof(logmsg));
|
||||
memset(h_prev, 0, sizeof(h_prev)); memset(h_ctype, 0, sizeof(h_ctype));
|
||||
memset(h_category, 0, sizeof(h_category)); memset(h_docno, 0, sizeof(h_docno));
|
||||
memset(category, 0, sizeof(category));
|
||||
|
||||
userlog("%s 진입: 매입 상태 전이 요청 접수", SVC);
|
||||
|
||||
/* 1) 입력 검증부: 전 필드 필수/범위/형식 점검 후 위반 시 거절 */
|
||||
h_pid = getl(b, T_PURCHASE_ID);
|
||||
if (h_pid <= 0) { Bchg(b, T_MSG, 0, "매입 ID 오류", 0L); setl(b, T_RC, 102); FAIL(b); }
|
||||
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
|
||||
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
|
||||
if (h_bizdate[0] == 0) {
|
||||
EXEC SQL SELECT param_val INTO :h_bizdate FROM cm_param WHERE param_key = 'BIZ_DATE';
|
||||
if (sqlca.sqlcode != 0) strcpy(h_bizdate, "2026-07-19");
|
||||
}
|
||||
if (strlen(h_bizdate) != 10) { Bchg(b, T_MSG, 0, "영업일 형식 오류", 0L); setl(b, T_RC, 105); FAIL(b); }
|
||||
userlog("%s 컨텍스트: pid=%ld merch=%s amt=%ld bizdate=%s", SVC, h_pid, h_merch, h_amt, h_bizdate);
|
||||
/* 요청 파라미터 감사 덤프 (운영 추적용) */
|
||||
userlog("%s 요청감사: 갱신 요청 수신", SVC);
|
||||
userlog("%s 요청감사: merch=%s pid=%ld amt=%ld biz=%s", SVC, h_merch, h_pid, h_amt, h_bizdate);
|
||||
|
||||
EXEC SQL SELECT status INTO :st FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode == 100) { setl(b, T_RC, 5); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
if (st[0] != 'C') { setl(b, T_RC, 2); FAIL(b); }
|
||||
/* 2) 마스터/정책/상태 조회부 */
|
||||
EXEC SQL SELECT status, merchant_id, amount, fee, net INTO :h_prev, :h_merch, :h_gross, :h_fee, :h_net FROM purchase WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 매입원장 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "매입 미존재", 0L); setl(b, T_RC, 111); FAIL(b); }
|
||||
userlog("%s 원매입: pid=%ld status=%s amount=%ld", SVC, h_pid, h_prev, h_gross);
|
||||
EXEC SQL SELECT status, daily_limit INTO :h_status, :h_lim FROM merchant WHERE merchant_id = :h_merch;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 가맹점마스터 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (sqlca.sqlcode == 100) { Bchg(b, T_MSG, 0, "가맹점 미존재", 0L); setl(b, T_RC, 110); FAIL(b); }
|
||||
if (acdb_merchant_mdr(h_merch, &h_rate) < 0) h_rate = 25;
|
||||
|
||||
EXEC SQL SELECT nextval('approval_seq') INTO :h_aid;
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
EXEC SQL INSERT INTO approval (approval_id, purchase_id, approved) VALUES (:h_aid, :h_pid, true);
|
||||
if (sqlca.sqlcode < 0) FAIL(b);
|
||||
/* 3) 업무규칙 분기부: 상태 전이 가능여부/유형 판정(3+ 분기) */
|
||||
if (!(strcmp(h_prev, "C") == 0)) {
|
||||
userlog("%s 거절: 상태 %s 에서 전이 불가", SVC, h_prev);
|
||||
Bchg(b, T_MSG, 0, "상태 전이 불가", 0L); setl(b, T_RC, 120); FAIL(b);
|
||||
}
|
||||
/* 취소 사유가 지불거절 계열이면 재매입을 제한한다 */
|
||||
EXEC SQL SELECT count(*) INTO :h_cnt FROM ac_cancel
|
||||
WHERE purchase_id = :h_pid AND cancel_type LIKE 'CB%';
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 취소사유 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_cnt > 0) { Bchg(b, T_MSG, 0, "지불거절 건은 재매입 불가", 0L); setl(b, T_RC, 124); FAIL(b); }
|
||||
if (h_gross >= 3000000) { h_val = 3; }
|
||||
else if (h_gross >= 300000) { h_val = 2; }
|
||||
else { h_val = 1; }
|
||||
|
||||
/* 4) 본처리부: 부수행 기록 및 상태 갱신 */
|
||||
if (acdb_insert_approval(h_pid, 1) < 0) { Bchg(b, T_MSG, 0, "재승인 적재 실패", 0L); setl(b, T_RC, 95); FAIL(b); }
|
||||
EXEC SQL UPDATE purchase SET status = 'A', updated_at = now() WHERE purchase_id = :h_pid;
|
||||
if (sqlca.sqlcode < 0) { userlog("ACQ_REBUYAPPR FAIL [%d] %s", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); FAIL(b); }
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 상태갱신 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
h_aff = sqlca.sqlerrd[2];
|
||||
if (h_aff > 0) Bchg(b, T_STATUS, 0, "A", 0L);
|
||||
|
||||
setl(b, T_ID1, h_aid);
|
||||
/* 6) 집계/요약 갱신부 */
|
||||
EXEC SQL SELECT count(*), coalesce(sum(amount),0), coalesce(sum(fee),0), coalesce(sum(net),0) INTO :h_cnt, :h_sum, :h_sfee, :h_snet FROM purchase WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 재집계 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
/* 재집계 결과(총액/수수료/순액/건수)를 가맹점 일별 요약에 반영 */
|
||||
if (acdb_upsert_merch_sum(h_merch, h_bizdate, h_sum, h_sfee, h_snet, h_cnt) < 0)
|
||||
userlog("%s 주의: 요약 갱신 스킵", SVC);
|
||||
userlog("%s 요약갱신: merch=%s 건수=%ld 총액=%ld 수수료=%ld", SVC, h_merch, h_cnt, h_sum, h_sfee);
|
||||
|
||||
/* 7) 예외/보상부: 반영 결과 정합 확인 */
|
||||
if (h_aff < 0) { Bchg(b, T_MSG, 0, "반영 실패", 0L); setl(b, T_RC, 92); FAIL(b); }
|
||||
|
||||
/* 5) 이력/감사 적재부: 처리 요약을 공통 로그(cm_log)에 남긴다 */
|
||||
snprintf(logmsg, sizeof(logmsg), "재매입승인 pid=%ld 금액=%ld 등급=%ld", h_pid, h_gross, h_val);
|
||||
strncpy(h_logmsg, logmsg, sizeof(h_logmsg)-1); h_logmsg[sizeof(h_logmsg)-1] = 0;
|
||||
EXEC SQL SELECT nextval('cm_log_seq') INTO :h_logid;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그채번 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
|
||||
VALUES (:h_logid, 'ACQ_REBUYAPPR', 'I', :h_logmsg, :h_bizdate);
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 로그적재 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
|
||||
/* 9) 사후 검증부: 당일 처리 이력 자기 점검 및 과다 호출 감시 */
|
||||
EXEC SQL SELECT count(*) INTO :h_ctx FROM cm_log
|
||||
WHERE svc_name = 'ACQ_REBUYAPPR' AND biz_date = :h_bizdate;
|
||||
if (sqlca.sqlcode < 0) {
|
||||
userlog("%s: 사후검증 SQL 실패 [%d] %s", SVC, sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
|
||||
setl(b, T_RC, 90); FAIL(b);
|
||||
}
|
||||
if (h_ctx <= 0) {
|
||||
userlog("%s 경보: 처리 이력이 적재되지 않음", SVC);
|
||||
Bchg(b, T_MSG, 0, "이력 적재 확인 실패", 0L);
|
||||
setl(b, T_RC, 89); FAIL(b);
|
||||
}
|
||||
if (h_ctx > 1000)
|
||||
userlog("%s 경보: 당일 호출 %ld 회로 과다", SVC, h_ctx);
|
||||
setl(b, T_ARG6, h_ctx);
|
||||
|
||||
/* 8) 응답부 */
|
||||
setl(b, T_AMOUNT, h_gross);
|
||||
setl(b, T_ARG1, h_val);
|
||||
setl(b, T_ARG2, h_cnt);
|
||||
userlog("%s 완료: pid=%ld 반영=%ld", SVC, h_pid, h_aff);
|
||||
setl(b, T_RC, 0);
|
||||
OK(b);
|
||||
}
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show more
Loading…
Add table
Add a link
Reference in a new issue