forge-bot/acquire-core-x
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Wave J: 카드보안·자금·규제 고도화 (패리티 70%→80%)

Browse source 
패리티 분석의 최우선 갭(카드보안·자금연동·운영·규제)을 데이터모델+시드+
런타임서비스+화면으로 체계적 보강. 전부 실측·런타임 검증.

■ J-1 카드보안 (승인 60→82)
- card_vault(6,680): PCI 토큰볼트 — PAN 원문 미저장, 마스킹+SHA256 해시.
- au_3ds(1,235): 3DS/SCA — ECI·CAVV·책임전환(ISSUER 1,143).
- au_verify(8,191): AVS/CVV + 리스크판정(APPROVE/REVIEW/DECLINE).
- 서비스 TOKENIZE/AUTH_3DS/AUTH_VERIFY (au).

■ J-2 자금이동 (정산 75→85)
- st_funding_instr(355k): 펌뱅킹 펀딩지시/반환(CONFIRMED/RETURNED).
- ac_dcc(426): DCC 다통화 승인시 환율고정(USD/JPY/EUR/CNY + 마크업 3%).
- 서비스 ST_FUNDINSTR/AC_DCC.

■ J-3 수수료·분쟁 (수수료 80→88, 분쟁 70→82)
- st_cb_fee(175): 채그백 건당수수료(단계별 차등).
- ac_retrieval(127) + 분쟁 SLA타이머·fraud_flag. 서비스 ACQ_RETRIEVAL.

■ J-4 리포팅·규제 (리포팅 70→85)
- rp_merchant_stmt(12.8k): 가맹점 월명세서.
- rp_regulatory(134): 여신전문금융업법 정산주기 준수·거래량 보고.

■ J-5 화면·검증
- 포털 "카드보안·규제"(SY0004, #sec): 토큰볼트·3DS·AVS/CVV·DCC·펀딩·규제.
- 통합빌드 error 0, 5,907 서비스 AVAIL, 6본 신규서비스 실호출 검증(미결2PC 0).
- PARITY_ANALYSIS 재채점: 가중 ≈80/100.

Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
This commit is contained in:
hyeongwoo 2026-07-23 13:00:07 +09:00
parent 782b802156
commit d292772b1f
21 changed files with 1337 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
app/src/ac/ac_svr.pgc
View file

@ -160,6 +160,10 @@
#include "ACQ_DISPUTE_ADVANCE.h"
#include "ACQ_PRESENT.h"
/* Wave J — 자금연동(DCC 다통화 환산) + 운영(매출전표 조회요청) */
#include "AC_DCC.h"
#include "ACQ_RETRIEVAL.h"
/* ----- advertise table: {service name, function} (fn is extern from its file) */
static struct { const char *name; void (*fn)(TPSVCINFO *); } SVCS[] = {
{"ACQUIRE", ACQUIRE}, {"ACQ_DDC", ACQ_DDC},
@ -261,6 +265,8 @@ static struct { const char *name; void (*fn)(TPSVCINFO *); } SVCS[] = {
{"ACQ_DISPUTE_OPEN", ACQ_DISPUTE_OPEN},
{"ACQ_DISPUTE_ADVANCE", ACQ_DISPUTE_ADVANCE},
{"ACQ_PRESENT", ACQ_PRESENT},
{"AC_DCC", AC_DCC},
{"ACQ_RETRIEVAL", ACQ_RETRIEVAL},
{NULL, NULL}
};

25
app/src/ac/svc/ACQ_RETRIEVAL.h Normal file
View file

@ -0,0 +1,25 @@
/*
* ACQ_RETRIEVAL.h - ac 서비스 ACQ_RETRIEVAL 카피북 (copybook / record header).
* 매출전표 조회요청(retrieval request) 생성/이행: 채그백 전 단계.
* action=FULFILL → 열린 조회요청을 FULFILLED(+fulfilled_at) 로 이행,
* 그 외 → 신규 OPEN 조회요청 생성(sla_due = today + 20).
* Request fields: T_PURCHASE_ID, T_STR1(reason 또는 action=FULFILL)
* Response fields: T_ID1(retr_id), T_STATUS
*/
#ifndef ACQ_RETRIEVAL_H
#define ACQ_RETRIEVAL_H
#include "ac_svc.h"
typedef struct {
long retr_id;
long purchase_id;
char merchant_id[64];
char reason[128];
char status[16]; /* OPEN/FULFILLED/EXPIRED */
char sla_due[16];
} ac_retrieval_rec_t;
void ACQ_RETRIEVAL(TPSVCINFO *p);
#endif /* ACQ_RETRIEVAL_H */

117
app/src/ac/svc/ACQ_RETRIEVAL.pgc Normal file
View file

@ -0,0 +1,117 @@
/*
* ACQ_RETRIEVAL.pgc - ac (매입) 모듈 서비스 ACQ_RETRIEVAL (one service = one file).
* 매출전표 조회요청(retrieval request) 생성/이행: 정식 채그백 직전 단계로, 발급사가
* 거래 증빙(매출전표/서명/수령증)을 요청하면 조회요청을 열고(OPEN, SLA=today+20),
* 가맹점이 증빙을 제출하면 이행(FULFILLED + fulfilled_at)한다.
* 처리단계: 입력검증 -> 매입 컨텍스트 조회 -> action 분기(FULFILL/신규) -> 본처리 ->
* 감사이력 -> 재검증 -> 응답 -> 로깅.
* 호출자 XA 브랜치에서 수행(EXEC SQL CONNECT 없음). ac_svr 가 tpsvrinit 에서 광고.
* XA 격리: 조회요청/매입은 본 브랜치에서 조회 가능한 커밋행 기준으로 판정한다.
*/
#include "ACQ_RETRIEVAL.h"
/* ACQ_RETRIEVAL - 매출전표 조회요청 생성/이행. */
void ACQ_RETRIEVAL(TPSVCINFO *p)
{
UBFH *b = (UBFH *)p->data;
/* ---- 지역 스크래치 (DECLARE SECTION 밖에서 초기화) ---- */
char reason[128], msgbuf[220];
int fulfil = 0;
EXEC SQL BEGIN DECLARE SECTION;
long h_pid, h_retr, h_chk;
char h_merch[64], h_reason[128], h_status[16], h_bizdate[16];
char h_cstatus[16], h_svc[24], h_msg[220];
EXEC SQL END DECLARE SECTION;
strcpy(h_svc, "ACQ_RETRIEVAL");
h_pid = h_retr = h_chk = 0;
strcpy(h_merch, "UNKNOWN"); strcpy(h_status, "OPEN");
strcpy(h_bizdate, "2026-07-19"); h_cstatus[0] = 0;
/* ===== 1) 입력 검증부 ===== */
h_pid = getl(b, T_PURCHASE_ID);
if (h_pid <= 0) {
setl(b, T_RC, 8801); Bchg(b, T_MSG, 0, "매입 ID(purchase_id) 필수", 0L);
userlog("[ACQ_RETRIEVAL] 매입 ID 검증 실패 pid=%ld", h_pid); FAIL(b);
}
gets_(b, T_STR1, reason, sizeof(reason));
if (strcmp(reason, "FULFILL") == 0) fulfil = 1;
if (reason[0] == 0) strcpy(reason, "매출전표사본");
strncpy(h_reason, reason, sizeof(h_reason)-1); h_reason[sizeof(h_reason)-1] = 0;
userlog("[운영] 조회요청 진입 pid=%ld action=%s", h_pid, fulfil ? "FULFILL" : reason);
/* ===== 2) 매입 컨텍스트 조회부 (가맹점/영업일) ===== */
EXEC SQL SELECT merchant_id, biz_date INTO :h_merch, :h_bizdate FROM purchase WHERE purchase_id = :h_pid;
if (sqlca.sqlcode == 100) {
strcpy(h_merch, "UNKNOWN");
if (h_bizdate[0] == 0) strcpy(h_bizdate, "2026-07-19");
userlog("[ACQ_RETRIEVAL] 매입 미조회 pid=%ld — 기본값으로 진행", h_pid);
} else if (sqlca.sqlcode < 0) {
setl(b, T_RC, 8810); Bchg(b, T_MSG, 0, "매입 조회 오류", 0L); FAIL(b);
}
/* ===== 3) action 분기부 (이행 / 신규 생성) ===== */
if (fulfil) {
/* 이행: 열린 조회요청 1건을 FULFILLED 로 전이 */
EXEC SQL SELECT retr_id INTO :h_retr FROM ac_retrieval
WHERE purchase_id = :h_pid AND status = 'OPEN' ORDER BY retr_id LIMIT 1;
if (sqlca.sqlcode == 100) {
Bchg(b, T_STATUS, 0, "NOOPEN", 0L);
setl(b, T_ID1, 0); Bchg(b, T_SVCNAME, 0, "ACQ_RETRIEVAL", 0L); setl(b, T_RC, 0);
userlog("[ACQ_RETRIEVAL] 이행 대상(OPEN) 없음 pid=%ld", h_pid);
OK(b);
} else if (sqlca.sqlcode < 0) {
setl(b, T_RC, 8811); Bchg(b, T_MSG, 0, "조회요청 조회 오류", 0L); FAIL(b);
}
strcpy(h_status, "FULFILLED");
EXEC SQL UPDATE ac_retrieval SET status = 'FULFILLED', fulfilled_at = now()
WHERE retr_id = :h_retr;
if (sqlca.sqlcode < 0) {
setl(b, T_RC, 8820); Bchg(b, T_MSG, 0, "조회요청 이행 실패", 0L);
userlog("[ACQ_RETRIEVAL] FULFILL UPDATE 실패 [%d] retr=%ld", sqlca.sqlcode, h_retr); FAIL(b);
}
} else {
/* 신규: OPEN 조회요청 생성(SLA = today + 20) */
strcpy(h_status, "OPEN");
EXEC SQL SELECT nextval('ac_retrieval_seq') INTO :h_retr;
if (sqlca.sqlcode < 0) { setl(b, T_RC, 8821); Bchg(b, T_MSG, 0, "조회요청 시퀀스 실패", 0L); FAIL(b); }
EXEC SQL INSERT INTO ac_retrieval
(retr_id, purchase_id, merchant_id, reason, status, sla_due)
VALUES (:h_retr, :h_pid, :h_merch, :h_reason, 'OPEN', CURRENT_DATE + 20);
if (sqlca.sqlcode < 0) {
setl(b, T_RC, 8822); Bchg(b, T_MSG, 0, "조회요청 적재 실패", 0L);
userlog("[ACQ_RETRIEVAL] ac_retrieval INSERT 실패 [%d]", sqlca.sqlcode); FAIL(b);
}
}
/* ===== 4) 감사이력 적재부 (cm_log) ===== */
snprintf(msgbuf, sizeof(msgbuf), "ACQ_RETRIEVAL pid=%ld retr=%ld merch=%s status=%s reason=%s",
h_pid, h_retr, h_merch, h_status, h_reason);
strncpy(h_msg, msgbuf, sizeof(h_msg)-1); h_msg[sizeof(h_msg)-1] = 0;
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
VALUES (nextval('cm_log_seq'), :h_svc, 'I', :h_msg, :h_bizdate);
if (sqlca.sqlcode < 0) { setl(b, T_RC, 8830); Bchg(b, T_MSG, 0, "감사 로그 적재 실패", 0L); FAIL(b); }
/* ===== 5) 재검증부 (적재/전이 상태 재조회) ===== */
EXEC SQL SELECT retr_id INTO :h_chk FROM ac_retrieval WHERE retr_id = :h_retr AND status = :h_status;
if (sqlca.sqlcode < 0 || sqlca.sqlcode == 100) {
setl(b, T_RC, 8840); Bchg(b, T_MSG, 0, "조회요청 재검증 실패", 0L);
userlog("[ACQ_RETRIEVAL] 재검증 실패 code=%d retr=%ld status=%s", sqlca.sqlcode, h_retr, h_status); FAIL(b);
}
/* ===== 6) 응답부 (계약: T_ID1=retr_id, T_STATUS) ===== */
setl(b, T_ID1, h_retr);
Bchg(b, T_STATUS, 0, h_status, 0L);
setl(b, T_PURCHASE_ID, h_pid);
Bchg(b, T_MERCHANT, 0, h_merch, 0L);
Bchg(b, T_REASON, 0, h_reason, 0L);
Bchg(b, T_SVCNAME, 0, "ACQ_RETRIEVAL", 0L);
setl(b, T_RC, 0);
/* ===== 7) 완료 로깅 ===== */
userlog("[운영] 조회요청 완료 pid=%ld retr=%ld status=%s merch=%s", h_pid, h_retr, h_status, h_merch);
OK(b);
}
/* vim: set ts=4 sw=4 et smartindent: */

26
app/src/ac/svc/AC_DCC.h Normal file
View file

@ -0,0 +1,26 @@
/*
* AC_DCC.h - ac 서비스 AC_DCC 카피북 (copybook / record header).
* DCC(Dynamic Currency Conversion) 다통화 환산: 원화 매입금액을 카드소지자
* 통화(USD/JPY/EUR/CNY)로 승인시점 고정환율 + 마크업(3%) 환산 → ac_dcc 적재.
* Request fields: T_PURCHASE_ID, T_STR1(txn_ccy), T_AMOUNT(원화)
* Response fields: T_AMT1(txn_amount 정수부), T_STR2(txn_ccy), T_ARG1(fx_rate 정수부)
*/
#ifndef AC_DCC_H
#define AC_DCC_H
#include "ac_svc.h"
typedef struct {
long dcc_id;
long purchase_id;
char base_ccy[8]; /* KRW */
char txn_ccy[8]; /* USD/JPY/EUR/CNY */
long base_amount; /* 원화 금액 */
long txn_amount; /* 외화 금액(정수부) */
long fx_rate; /* 고정환율(정수부) */
long markup_bps; /* DCC 마크업 */
} ac_dcc_rec_t;
void AC_DCC(TPSVCINFO *p);
#endif /* AC_DCC_H */

131
app/src/ac/svc/AC_DCC.pgc Normal file
View file

@ -0,0 +1,131 @@
/*
* AC_DCC.pgc - ac (매입) 모듈 서비스 AC_DCC (one service = one file).
* DCC(Dynamic Currency Conversion) 다통화 환산: 해외카드 소지자가 원화가맹점에서
* 자국통화 결제를 선택할 때, 원화 매입금액을 승인시점 고정환율 + DCC 마크업(3%)
* 으로 카드소지자 통화(USD/JPY/EUR/CNY)로 환산해 ac_dcc 에 적재한다.
* 환율(원/외화 1단위): USD 1330, JPY 8.9, EUR 1440, CNY 185 (스케일 x10 정수보관).
* txn_amount = base_amount / rate * (1 + markup) — 정수 절삭 없이 NUMERIC 연산.
* 처리단계: 입력검증 -> 매입 컨텍스트 조회 -> 통화/환율 결정 -> 환산 -> 본처리(INSERT)
* -> 감사이력 -> 재검증 -> 응답 -> 로깅.
* 호출자 XA 브랜치에서 수행(EXEC SQL CONNECT 없음). ac_svr 가 tpsvrinit 에서 광고.
*/
#include "AC_DCC.h"
/* AC_DCC - DCC 다통화 환산(승인시점 환율고정 + 마크업). */
void AC_DCC(TPSVCINFO *p)
{
UBFH *b = (UBFH *)p->data;
/* ---- 지역 스크래치 (DECLARE SECTION 밖에서 초기화) ---- */
char ccy[8], msgbuf[220];
long rate10 = 0, txn_int = 0, fx_int = 0;
EXEC SQL BEGIN DECLARE SECTION;
long h_pid, h_base, h_rate10, h_markup, h_dcc, h_txn_i, h_orig;
char h_ccy[8], h_base_ccy[8], h_bizdate[16], h_status[16], h_svc[24], h_msg[220];
EXEC SQL END DECLARE SECTION;
strcpy(h_svc, "AC_DCC");
h_pid = h_base = h_dcc = h_txn_i = h_orig = 0;
h_markup = 300; strcpy(h_base_ccy, "KRW"); strcpy(h_status, "CONVERTED");
strcpy(h_bizdate, "2026-07-19");
/* ===== 1) 입력 검증부 ===== */
h_pid = getl(b, T_PURCHASE_ID);
if (h_pid <= 0) {
setl(b, T_RC, 8701); Bchg(b, T_MSG, 0, "매입 ID(purchase_id) 필수", 0L);
userlog("[AC_DCC] 매입 ID 검증 실패 pid=%ld", h_pid); FAIL(b);
}
gets_(b, T_STR1, ccy, sizeof(ccy));
if (ccy[0] == 0) strcpy(ccy, "USD");
h_base = getl(b, T_AMOUNT);
/* 통화별 고정환율(스케일 x10): 문자열 비교로 결정(캐스팅 없음). */
if (strcmp(ccy, "USD") == 0) rate10 = 13300;
else if (strcmp(ccy, "JPY") == 0) rate10 = 89;
else if (strcmp(ccy, "EUR") == 0) rate10 = 14400;
else if (strcmp(ccy, "CNY") == 0) rate10 = 1850;
else {
setl(b, T_RC, 8702); Bchg(b, T_MSG, 0, "지원하지 않는 통화(txn_ccy)", 0L);
userlog("[AC_DCC] 미지원 통화 ccy=[%s]", ccy); FAIL(b);
}
strncpy(h_ccy, ccy, sizeof(h_ccy)-1); h_ccy[sizeof(h_ccy)-1] = 0;
h_rate10 = rate10;
userlog("[다통화] DCC 환산 진입 pid=%ld ccy=%s base=%ld rate10=%ld", h_pid, h_ccy, h_base, h_rate10);
/* ===== 2) 매입 컨텍스트 조회부 (원금/영업일 보정) ===== */
EXEC SQL SELECT amount, biz_date INTO :h_orig, :h_bizdate FROM purchase WHERE purchase_id = :h_pid;
if (sqlca.sqlcode == 100) {
/* 체인/미커밋 매입일 수 있어 실패 처리하지 않는다(RECONCILE 격리 규율). */
if (h_bizdate[0] == 0) strcpy(h_bizdate, "2026-07-19");
userlog("[AC_DCC] 매입 미조회 pid=%ld — 전문/기본값으로 진행", h_pid);
} else if (sqlca.sqlcode < 0) {
setl(b, T_RC, 8710); Bchg(b, T_MSG, 0, "매입 조회 오류", 0L); FAIL(b);
}
/* 원화금액 미지정 시 원 매입금액을 환산 대상으로 사용 */
if (h_base <= 0) h_base = h_orig;
if (h_base <= 0) {
setl(b, T_RC, 8703); Bchg(b, T_MSG, 0, "환산 대상 원화 금액 없음", 0L);
userlog("[AC_DCC] 환산 금액 0 pid=%ld", h_pid); FAIL(b);
}
/* ===== 3) 환산부 (외화금액·환율 정수부 산출) ===== */
/* txn = base/rate*(1+markup) = base*(10000+markup)/(rate10*1000) */
txn_int = h_base * (10000 + h_markup) / (h_rate10 * 1000);
fx_int = h_rate10 / 10;
userlog("[AC_DCC] 환산 base=%ld ccy=%s rate=%ld.%ld markup=%ld -> txn≈%ld %s",
h_base, h_ccy, fx_int, h_rate10 % 10, h_markup, txn_int, h_ccy);
/* ===== 4) 본처리부 (ac_dcc INSERT — NUMERIC 정밀연산) ===== */
EXEC SQL SELECT nextval('ac_dcc_seq') INTO :h_dcc;
if (sqlca.sqlcode < 0) { setl(b, T_RC, 8720); Bchg(b, T_MSG, 0, "DCC 시퀀스 실패", 0L); FAIL(b); }
EXEC SQL INSERT INTO ac_dcc
(dcc_id, purchase_id, base_ccy, txn_ccy, base_amount, txn_amount, fx_rate, markup_bps, opted_in)
VALUES (:h_dcc, :h_pid, :h_base_ccy, :h_ccy, :h_base,
:h_base * (10000 + :h_markup) / (:h_rate10 * 1000.0),
:h_rate10 / 10.0, :h_markup, true);
if (sqlca.sqlcode < 0) {
setl(b, T_RC, 8721); Bchg(b, T_MSG, 0, "DCC 적재 실패", 0L);
userlog("[AC_DCC] ac_dcc INSERT 실패 [%d]", sqlca.sqlcode); FAIL(b);
}
/* ===== 5) 감사이력 적재부 (cm_log) ===== */
snprintf(msgbuf, sizeof(msgbuf), "AC_DCC pid=%ld base=%ld KRW -> %ld %s (rate=%ld.%ld markup=%ldbps)",
h_pid, h_base, txn_int, h_ccy, fx_int, h_rate10 % 10, h_markup);
strncpy(h_msg, msgbuf, sizeof(h_msg)-1); h_msg[sizeof(h_msg)-1] = 0;
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
VALUES (nextval('cm_log_seq'), :h_svc, 'I', :h_msg, :h_bizdate);
if (sqlca.sqlcode < 0) { setl(b, T_RC, 8730); Bchg(b, T_MSG, 0, "감사 로그 적재 실패", 0L); FAIL(b); }
/* ===== 6) 재검증부 (적재행 외화금액 정수부 재조회) ===== */
EXEC SQL SELECT floor(txn_amount) INTO :h_txn_i FROM ac_dcc WHERE dcc_id = :h_dcc;
if (sqlca.sqlcode < 0 || sqlca.sqlcode == 100) {
setl(b, T_RC, 8740); Bchg(b, T_MSG, 0, "DCC 적재 재검증 실패", 0L);
userlog("[AC_DCC] 재검증 실패 code=%d", sqlca.sqlcode); FAIL(b);
}
if (h_txn_i != txn_int) {
/* 반올림 경계 1 이내 허용, 그 외 불일치는 실패 처리 */
long d = h_txn_i - txn_int; if (d < 0) d = -d;
if (d > 1) {
setl(b, T_RC, 8741); Bchg(b, T_MSG, 0, "DCC 환산 불일치(보상 롤백)", 0L);
userlog("[AC_DCC] 환산 불일치 db=%ld calc=%ld", h_txn_i, txn_int); FAIL(b);
}
txn_int = h_txn_i;
}
/* ===== 7) 응답부 (계약: T_AMT1=txn_amount, T_STR2=txn_ccy, T_ARG1=fx_rate) ===== */
setl(b, T_AMT1, txn_int);
Bchg(b, T_STR2, 0, h_ccy, 0L);
setl(b, T_ARG1, fx_int);
setl(b, T_AMT2, h_base);
setl(b, T_ID1, h_dcc);
Bchg(b, T_STATUS, 0, h_status, 0L);
Bchg(b, T_CCY, 0, h_ccy, 0L);
Bchg(b, T_SVCNAME, 0, "AC_DCC", 0L);
setl(b, T_RC, 0);
/* ===== 8) 완료 로깅 ===== */
userlog("[다통화] DCC 환산 완료 pid=%ld dcc=%ld base=%ld -> %ld %s", h_pid, h_dcc, h_base, txn_int, h_ccy);
OK(b);
}
/* vim: set ts=4 sw=4 et smartindent: */

7
app/src/au/au_svr.pgc
View file

@ -94,6 +94,10 @@
#include "RISK_SCORE_INQ.h"
#include "APPROVAL_RATE.h"
#include "AUTH_DUP_CHK.h"
/* --- Wave J: 카드보안 승인 3본 (au) --- */
#include "TOKENIZE.h"
#include "AUTH_3DS.h"
#include "AUTH_VERIFY.h"
/* --- scale-out services (승인/한도 심화) --- */
#include "LIMIT_MONTH_CHK.h"
#include "LIMIT_MONTH_INQ.h"
@ -194,6 +198,9 @@ static struct { const char *name; void (*fn)(TPSVCINFO *); } SVCS[] = {
{"MERCH_AUTH_RANK", MERCH_AUTH_RANK}, {"CARD_DAILY_RPT", CARD_DAILY_RPT},
{"RISK_SCORE_INQ", RISK_SCORE_INQ}, {"APPROVAL_RATE", APPROVAL_RATE},
{"AUTH_DUP_CHK", AUTH_DUP_CHK},
/* --- Wave J: 카드보안 승인 3본 (au) --- */
{"TOKENIZE", TOKENIZE}, {"AUTH_3DS", AUTH_3DS},
{"AUTH_VERIFY", AUTH_VERIFY},
/* --- scale-out services (승인/한도 심화) --- */
{"LIMIT_MONTH_CHK", LIMIT_MONTH_CHK}, {"LIMIT_MONTH_INQ", LIMIT_MONTH_INQ},
{"LIMIT_PERTX_CHK", LIMIT_PERTX_CHK}, {"LIMIT_CUMUL_INQ", LIMIT_CUMUL_INQ},

24
app/src/au/svc/AUTH_3DS.h Normal file
View file

@ -0,0 +1,24 @@
/*
* AUTH_3DS.h - au 서비스 AUTH_3DS 카피북 (copybook / record header).
* 업무: 3DS/SCA 비대면 인증결과 기록·판정 (ECI → auth_status/liability, 책임전환).
* Request fields: T_PURCHASE_ID(매입 ID), T_STR1(eci: 05/06/07)
* Response fields: T_STATUS(auth_status: Y/A/N/U), T_STR2(liability: ISSUER/MERCHANT),
* T_ID1(tds_id), T_RC, T_MSG
*/
#ifndef AUTH_3DS_H
#define AUTH_3DS_H
#include "au_svc.h"
typedef struct {
long tds_id;
long purchase_id;
char version[16];
char eci[8];
char auth_status[8]; /* Y=인증 A=시도 N=실패 U=불가 */
char liability[16]; /* ISSUER(전환됨) / MERCHANT */
} au_3ds_rec_t;
void AUTH_3DS(TPSVCINFO *p);
#endif /* AUTH_3DS_H */

124
app/src/au/svc/AUTH_3DS.pgc Normal file
View file

@ -0,0 +1,124 @@
/*
* AUTH_3DS.pgc - au 모듈 서비스 AUTH_3DS (one service = one file).
* 3DS/SCA 비대면 인증결과 기록·판정: 입력 ECI 를 인증상태(auth_status)와
* 책임주체(liability)로 매핑하여 au_3ds 원장에 적재한다.
* ECI 05 → Y(완전인증) / ISSUER(책임전환)
* ECI 06 → A(시도) / ISSUER(책임전환)
* ECI 07 → N(미인증) / MERCHANT(가맹점 책임)
* 그 외 → U(불가) / MERCHANT
* 처리단계: 입력검증 -> 매입/기존인증 조회 -> ECI 판정분기 -> 본처리(INSERT) ->
* 적재 재검증 -> 응답 -> 로깅.
* 호출자 XA 브랜치에서 수행(EXEC SQL CONNECT 없음). au_svr 가 tpsvrinit 에서 광고.
* XA 격리: 체인 내 미커밋 매입은 이 브랜치에서 안 보일 수 있으므로 조회 미존재(100)는
* 정상 흐름으로 간주하고 FAIL 하지 않는다(owner-writes 규율, RECONCILE 패턴).
*/
#include "AUTH_3DS.h"
/* AUTH_3DS - 3DS/SCA 인증결과 기록·판정. */
void AUTH_3DS(TPSVCINFO *p)
{
UBFH *b = (UBFH *)p->data;
const char *svcname = "AUTH_3DS";
/* ---- 지역 스크래치 (DECLARE SECTION 밖에서 초기화) ---- */
long rc = 0;
char inbuf[16];
EXEC SQL BEGIN DECLARE SECTION;
long h_pid;
char h_eci[8];
char h_astat[8];
char h_liab[16];
char h_ver[16];
long h_tds;
long h_prior;
long h_vcnt;
long h_pcnt;
EXEC SQL END DECLARE SECTION;
memset(inbuf, 0, sizeof(inbuf));
h_pid = 0; h_tds = 0; h_prior = 0; h_vcnt = 0; h_pcnt = 0;
memset(h_eci, 0, sizeof(h_eci)); memset(h_astat, 0, sizeof(h_astat));
memset(h_liab, 0, sizeof(h_liab)); memset(h_ver, 0, sizeof(h_ver));
strcpy(h_ver, "2.2.0");
userlog("[%s] 진입: 3DS/SCA 인증결과 기록·판정", svcname);
/* ===== 1) 입력 검증부 ===== */
h_pid = getl(b, T_PURCHASE_ID);
gets_(b, T_STR1, inbuf, sizeof(inbuf));
if (h_pid <= 0) {
setl(b, T_RC, 8401L); Bchg(b, T_MSG, 0, "매입 ID(purchase_id) 필수", 0L);
userlog("[%s] 입력검증 실패: pid=%ld", svcname, h_pid); FAIL(b);
}
if (inbuf[0] == 0) {
setl(b, T_RC, 8402L); Bchg(b, T_MSG, 0, "ECI 필수 누락", 0L);
userlog("[%s] 입력검증 실패: ECI 누락 pid=%ld", svcname, h_pid); FAIL(b);
}
strncpy(h_eci, inbuf, sizeof(h_eci) - 1); h_eci[sizeof(h_eci) - 1] = 0;
/* ===== 2) 조회부 (매입 존재 + 기존 인증/검증 현황) =====
* 매입 미존재(100)는 체인 신규건일 수 있어 정상 처리. */
EXEC SQL SELECT count(*) INTO :h_pcnt FROM purchase WHERE purchase_id = :h_pid;
if (sqlca.sqlcode < 0) {
setl(b, T_RC, 8410L); Bchg(b, T_MSG, 0, "매입 조회 오류", 0L);
userlog("[%s] 매입 조회 오류 [%d]", svcname, sqlca.sqlcode); FAIL(b);
}
if (h_pcnt == 0)
userlog("[%s] 매입 미커밋/미존재 pid=%ld — 인증만 기록", svcname, h_pid);
EXEC SQL SELECT count(*) INTO :h_prior FROM au_3ds WHERE purchase_id = :h_pid;
if (sqlca.sqlcode < 0) { h_prior = 0; }
EXEC SQL SELECT count(*) INTO :h_vcnt FROM au_verify WHERE purchase_id = :h_pid;
if (sqlca.sqlcode < 0) { h_vcnt = 0; }
if (h_prior > 0)
userlog("[%s] 기존 3DS 인증 %ld건 존재 pid=%ld — 재인증 기록", svcname, h_prior, h_pid);
/* ===== 3) ECI 판정 분기부 (auth_status / liability) ===== */
if (strcmp(h_eci, "05") == 0) {
strcpy(h_astat, "Y"); strcpy(h_liab, "ISSUER"); rc = 0;
} else if (strcmp(h_eci, "06") == 0) {
strcpy(h_astat, "A"); strcpy(h_liab, "ISSUER"); rc = 0;
} else if (strcmp(h_eci, "07") == 0) {
strcpy(h_astat, "N"); strcpy(h_liab, "MERCHANT"); rc = 2;
userlog("[%s] 미인증(ECI07) — 책임 가맹점 pid=%ld", svcname, h_pid);
} else {
strcpy(h_astat, "U"); strcpy(h_liab, "MERCHANT"); rc = 1;
userlog("[%s] 미지원 ECI=[%s] — 불가(U)/가맹점 pid=%ld", svcname, h_eci, h_pid);
}
/* ===== 4) 본처리부 (au_3ds 채번·INSERT) ===== */
EXEC SQL SELECT nextval('au_3ds_seq') INTO :h_tds;
if (sqlca.sqlcode < 0) {
setl(b, T_RC, 8420L); Bchg(b, T_MSG, 0, "3DS 시퀀스 채번 실패", 0L);
userlog("[%s] 시퀀스 채번 실패 [%d]", svcname, sqlca.sqlcode); FAIL(b);
}
EXEC SQL INSERT INTO au_3ds
(tds_id, purchase_id, version, eci, auth_status, liability)
VALUES (:h_tds, :h_pid, :h_ver, :h_eci, :h_astat, :h_liab);
if (sqlca.sqlcode < 0) {
setl(b, T_RC, 8421L); Bchg(b, T_MSG, 0, "3DS 인증결과 적재 실패", 0L);
userlog("[%s] au_3ds 적재 실패 [%d]", svcname, sqlca.sqlcode); FAIL(b);
}
/* ===== 5) 적재 재검증부 (기록행 재조회) ===== */
EXEC SQL SELECT auth_status, liability INTO :h_astat, :h_liab
FROM au_3ds WHERE tds_id = :h_tds;
if (sqlca.sqlcode < 0 || sqlca.sqlcode == 100) {
setl(b, T_RC, 8430L); Bchg(b, T_MSG, 0, "3DS 적재 재검증 실패", 0L);
userlog("[%s] 재검증 실패 tds=%ld code=%d", svcname, h_tds, sqlca.sqlcode); FAIL(b);
}
/* ===== 6) 응답부 ===== */
Bchg(b, T_STATUS, 0, h_astat, 0L); /* auth_status: Y/A/N/U */
Bchg(b, T_STR2, 0, h_liab, 0L); /* liability: ISSUER/MERCHANT */
setl(b, T_ID1, h_tds);
setl(b, T_RC, rc);
Bchg(b, T_MSG, 0,
(strcmp(h_liab, "ISSUER") == 0 ? "3DS 인증 완료(책임전환)" : "3DS 미전환(가맹점 책임)"),
0L);
/* ===== 7) 완료 로깅 ===== */
userlog("[%s] 완료: pid=%ld eci=%s status=%s liability=%s tds=%ld rc=%ld",
svcname, h_pid, h_eci, h_astat, h_liab, h_tds, rc);
OK(b);
}
/* vim: set ts=4 sw=4 et smartindent: */

23
app/src/au/svc/AUTH_VERIFY.h Normal file
View file

@ -0,0 +1,23 @@
/*
* AUTH_VERIFY.h - au 서비스 AUTH_VERIFY 카피북 (copybook / record header).
* 업무: AVS/CVV 검증 + 리스크 판정 (risk_score 산출 → APPROVE/REVIEW/DECLINE).
* Request fields: T_PURCHASE_ID(매입 ID), T_STR1(avs_code), T_STR2(cvv_code)
* Response fields: T_STATUS(decision), T_ARG1(risk_score), T_ID1(vrf_id), T_RC, T_MSG
*/
#ifndef AUTH_VERIFY_H
#define AUTH_VERIFY_H
#include "au_svc.h"
typedef struct {
long vrf_id;
long purchase_id;
char avs_code[8]; /* Y/A/Z/N/U */
char cvv_code[8]; /* M/N/P/U */
long risk_score; /* 0~999 */
char decision[16]; /* APPROVE / REVIEW / DECLINE */
} au_verify_rec_t;
void AUTH_VERIFY(TPSVCINFO *p);
#endif /* AUTH_VERIFY_H */

138
app/src/au/svc/AUTH_VERIFY.pgc Normal file
View file

@ -0,0 +1,138 @@
/*
* AUTH_VERIFY.pgc - au 모듈 서비스 AUTH_VERIFY (one service = one file).
* AVS/CVV 검증 + 리스크 판정: 주소검증(AVS)·카드검증값(CVV) 코드로 리스크 점수를
* 산출하고, 임계값으로 승인판정(decision)을 내려 au_verify 원장에 적재한다.
* risk_score > 900 → DECLINE, > 750 → REVIEW, 그 외 → APPROVE.
* AVS/CVV 응답 품질이 나쁠수록 가점(위험↑). 3DS 책임미전환(MERCHANT)이면 가중.
* 처리단계: 입력검증 -> 매입/기존검증/3DS 조회 -> 리스크 산출 -> 판정분기 ->
* 본처리(INSERT) -> 적재 재검증 -> 응답 -> 로깅.
* 호출자 XA 브랜치에서 수행(EXEC SQL CONNECT 없음). au_svr 가 tpsvrinit 에서 광고.
* XA 격리: 체인 내 미커밋 매입은 안 보일 수 있어 미존재(100)는 정상 처리한다.
*/
#include "AUTH_VERIFY.h"
/* AUTH_VERIFY - AVS/CVV 검증 + 리스크 판정. */
void AUTH_VERIFY(TPSVCINFO *p)
{
UBFH *b = (UBFH *)p->data;
const char *svcname = "AUTH_VERIFY";
/* ---- 지역 스크래치 (DECLARE SECTION 밖에서 초기화) ---- */
long rc = 0, risk = 0;
char avsbuf[8], cvvbuf[8];
EXEC SQL BEGIN DECLARE SECTION;
long h_pid;
char h_avs[8];
char h_cvv[8];
long h_score;
char h_dec[16];
long h_vrf;
long h_prior;
long h_pcnt;
char h_liab[16];
EXEC SQL END DECLARE SECTION;
memset(avsbuf, 0, sizeof(avsbuf)); memset(cvvbuf, 0, sizeof(cvvbuf));
h_pid = 0; h_score = 0; h_vrf = 0; h_prior = 0; h_pcnt = 0;
memset(h_avs, 0, sizeof(h_avs)); memset(h_cvv, 0, sizeof(h_cvv));
memset(h_dec, 0, sizeof(h_dec)); memset(h_liab, 0, sizeof(h_liab));
strcpy(h_liab, "NONE");
userlog("[%s] 진입: AVS/CVV 검증 + 리스크 판정", svcname);
/* ===== 1) 입력 검증부 ===== */
h_pid = getl(b, T_PURCHASE_ID);
gets_(b, T_STR1, avsbuf, sizeof(avsbuf));
gets_(b, T_STR2, cvvbuf, sizeof(cvvbuf));
if (h_pid <= 0) {
setl(b, T_RC, 8501L); Bchg(b, T_MSG, 0, "매입 ID(purchase_id) 필수", 0L);
userlog("[%s] 입력검증 실패: pid=%ld", svcname, h_pid); FAIL(b);
}
if (avsbuf[0] == 0) strcpy(avsbuf, "U"); /* 미제공 → 불가(U) */
if (cvvbuf[0] == 0) strcpy(cvvbuf, "U");
strncpy(h_avs, avsbuf, sizeof(h_avs) - 1); h_avs[sizeof(h_avs) - 1] = 0;
strncpy(h_cvv, cvvbuf, sizeof(h_cvv) - 1); h_cvv[sizeof(h_cvv) - 1] = 0;
/* ===== 2) 조회부 (매입 존재 + 기존 검증/3DS 책임 현황) ===== */
EXEC SQL SELECT count(*) INTO :h_pcnt FROM purchase WHERE purchase_id = :h_pid;
if (sqlca.sqlcode < 0) {
setl(b, T_RC, 8510L); Bchg(b, T_MSG, 0, "매입 조회 오류", 0L);
userlog("[%s] 매입 조회 오류 [%d]", svcname, sqlca.sqlcode); FAIL(b);
}
if (h_pcnt == 0)
userlog("[%s] 매입 미커밋/미존재 pid=%ld — 검증만 기록", svcname, h_pid);
EXEC SQL SELECT count(*) INTO :h_prior FROM au_verify WHERE purchase_id = :h_pid;
if (sqlca.sqlcode < 0) { h_prior = 0; }
EXEC SQL SELECT coalesce(max(liability), 'NONE') INTO :h_liab
FROM au_3ds WHERE purchase_id = :h_pid;
if (sqlca.sqlcode < 0 || sqlca.sqlcode == 100) { strcpy(h_liab, "NONE"); }
/* ===== 3) 리스크 산출부 (AVS/CVV 품질 → 가점) =====
* AVS: Y 일치=0, A 부분=50, Z 우편만=80, N 불일치=200, U 불가=150.
* CVV: M 일치=0, N 불일치=400, P 미처리=150, U 불가=150.
* 3DS 책임 미전환(MERCHANT)면 +100. pid 기반 소폭 분산 후 0~999 로 클램프. */
if (strcmp(h_avs, "Y") == 0) risk += 0;
else if (strcmp(h_avs, "A") == 0) risk += 50;
else if (strcmp(h_avs, "Z") == 0) risk += 80;
else if (strcmp(h_avs, "N") == 0) risk += 200;
else risk += 150; /* U 및 기타 */
if (strcmp(h_cvv, "M") == 0) risk += 0;
else if (strcmp(h_cvv, "N") == 0) risk += 400;
else if (strcmp(h_cvv, "P") == 0) risk += 150;
else risk += 150; /* U 및 기타 */
if (strcmp(h_liab, "MERCHANT") == 0) {
risk += 100;
userlog("[%s] 3DS 책임 미전환(MERCHANT) — 위험 가중 pid=%ld", svcname, h_pid);
}
risk += (long)(h_pid % 50); /* 소폭 분산 */
if (risk < 0) risk = 0;
if (risk > 999) risk = 999;
h_score = risk;
/* ===== 4) 판정 분기부 (임계값) ===== */
if (risk > 900) {
strcpy(h_dec, "DECLINE"); rc = 2;
} else if (risk > 750) {
strcpy(h_dec, "REVIEW"); rc = 1;
} else {
strcpy(h_dec, "APPROVE"); rc = 0;
}
userlog("[%s] 리스크 산출 pid=%ld avs=%s cvv=%s liab=%s score=%ld dec=%s",
svcname, h_pid, h_avs, h_cvv, h_liab, h_score, h_dec);
/* ===== 5) 본처리부 (au_verify 채번·INSERT) ===== */
EXEC SQL SELECT nextval('au_verify_seq') INTO :h_vrf;
if (sqlca.sqlcode < 0) {
setl(b, T_RC, 8520L); Bchg(b, T_MSG, 0, "검증 시퀀스 채번 실패", 0L);
userlog("[%s] 시퀀스 채번 실패 [%d]", svcname, sqlca.sqlcode); FAIL(b);
}
EXEC SQL INSERT INTO au_verify
(vrf_id, purchase_id, avs_code, cvv_code, risk_score, decision)
VALUES (:h_vrf, :h_pid, :h_avs, :h_cvv, :h_score, :h_dec);
if (sqlca.sqlcode < 0) {
setl(b, T_RC, 8521L); Bchg(b, T_MSG, 0, "검증결과 적재 실패", 0L);
userlog("[%s] au_verify 적재 실패 [%d]", svcname, sqlca.sqlcode); FAIL(b);
}
/* ===== 6) 적재 재검증부 (기록행 재조회) ===== */
EXEC SQL SELECT decision, risk_score INTO :h_dec, :h_score
FROM au_verify WHERE vrf_id = :h_vrf;
if (sqlca.sqlcode < 0 || sqlca.sqlcode == 100) {
setl(b, T_RC, 8530L); Bchg(b, T_MSG, 0, "검증 적재 재검증 실패", 0L);
userlog("[%s] 재검증 실패 vrf=%ld code=%d", svcname, h_vrf, sqlca.sqlcode); FAIL(b);
}
/* ===== 7) 응답부 ===== */
Bchg(b, T_STATUS, 0, h_dec, 0L); /* decision: APPROVE/REVIEW/DECLINE */
setl(b, T_ARG1, h_score); /* risk_score */
setl(b, T_ID1, h_vrf);
setl(b, T_RC, rc);
Bchg(b, T_MSG, 0,
(rc == 2 ? "리스크 거절" : (rc == 1 ? "리스크 검토대상" : "검증 통과")), 0L);
/* ===== 8) 완료 로깅 ===== */
userlog("[%s] 완료: pid=%ld decision=%s score=%ld vrf=%ld rc=%ld",
svcname, h_pid, h_dec, h_score, h_vrf, rc);
OK(b);
}
/* vim: set ts=4 sw=4 et smartindent: */

24
app/src/au/svc/TOKENIZE.h Normal file
View file

@ -0,0 +1,24 @@
/*
* TOKENIZE.h - au 서비스 TOKENIZE 카피북 (copybook / record header).
* 업무: PAN 토큰화 조회/발급 (PCI 스코프 축소 — 원문 PAN 미저장/미응답).
* Request fields: T_KEY1(카드번호 원문 또는 마스킹 문자열)
* Response fields: T_STR1(token), T_STR2(pan_masked), T_STATUS(NEW/FOUND/NOTFOUND),
* T_ID1(발급 시퀀스 audit id), T_RC, T_MSG
*/
#ifndef TOKENIZE_H
#define TOKENIZE_H
#include "au_svc.h"
typedef struct {
char token[40]; /* 표면 토큰 (비민감) */
char pan_masked[40]; /* 4111-****-****-1111 */
char pan_hash[80]; /* SHA-256(PAN) hex — 원문 불가역 */
char bin[12];
char last4[8];
char status[12]; /* NEW / FOUND / NOTFOUND */
} au_tokenize_rec_t;
void TOKENIZE(TPSVCINFO *p);
#endif /* TOKENIZE_H */

143
app/src/au/svc/TOKENIZE.pgc Normal file
View file

@ -0,0 +1,143 @@
/*
* TOKENIZE.pgc - au 모듈 서비스 TOKENIZE (one service = one file).
* PAN 토큰화 조회/발급: 입력 PAN 을 SHA-256 해시로 card_vault 에서 조회하고,
* 있으면 기존 토큰을, 없으면 신규 토큰('TKN-'||md5 앞12)을 발급/적재한다.
* PCI 스코프 축소 규율: 원문 PAN 은 저장하지 않고(마스킹+해시만), 응답에도
* 절대 싣지 않는다. 응답은 토큰과 마스킹 문자열, 발급 상태만 반환한다.
* 처리단계: 입력검증 -> 해시산출 -> 볼트조회 -> 업무규칙분기(원문/마스킹) ->
* 본처리(신규발급 INSERT) -> 적재 재검증 -> 응답 -> 로깅.
* 호출자 XA 브랜치에서 수행(EXEC SQL CONNECT 없음). au_svr 가 tpsvrinit 에서 광고.
* 캐스팅 규율: 호스트변수 date 캐스팅 금지. 해시는 convert_to(...,'UTF8') 로
* bytea 변환하여 시드(sha256(card_no::bytea))와 동일 해시를 얻는다(ASCII 동치).
*/
#include "TOKENIZE.h"
/* TOKENIZE - PAN 토큰화 조회/발급 (원문 PAN 미응답). */
void TOKENIZE(TPSVCINFO *p)
{
UBFH *b = (UBFH *)p->data;
const char *svcname = "TOKENIZE";
/* ---- 지역 스크래치 (DECLARE SECTION 밖에서 초기화) ---- */
long rc = 0, is_pan = 0, i = 0, ndigit = 0, slen = 0;
char inbuf[48];
EXEC SQL BEGIN DECLARE SECTION;
char h_card[48]; /* 입력 원문/마스킹 — 응답에 원문으로 절대 싣지 않음 */
char h_token[48];
char h_masked[48];
char h_hash[80];
long h_found;
long h_tokseq;
EXEC SQL END DECLARE SECTION;
memset(inbuf, 0, sizeof(inbuf));
memset(h_card, 0, sizeof(h_card)); memset(h_token, 0, sizeof(h_token));
memset(h_masked, 0, sizeof(h_masked)); memset(h_hash, 0, sizeof(h_hash));
h_found = 0; h_tokseq = 0;
userlog("[%s] 진입: PAN 토큰화 조회/발급 (원문 미저장/미응답)", svcname);
/* ===== 1) 입력 검증부 ===== */
gets_(b, T_KEY1, inbuf, sizeof(inbuf));
if (inbuf[0] == 0) {
setl(b, T_RC, 8801L); Bchg(b, T_MSG, 0, "카드번호 필수 누락", 0L);
userlog("[%s] 입력검증 실패: 카드번호 누락", svcname); FAIL(b);
}
strncpy(h_card, inbuf, sizeof(h_card) - 1); h_card[sizeof(h_card) - 1] = 0;
slen = (long)strlen(h_card);
if (slen < 4) {
setl(b, T_RC, 8802L); Bchg(b, T_MSG, 0, "카드번호 형식 오류(길이 부족)", 0L);
userlog("[%s] 입력검증 실패: 길이 부족 len=%ld", svcname, slen); FAIL(b);
}
/* ===== 2) 입력 유형 판정부 (원문 PAN vs 마스킹) =====
* 전부 숫자이고 길이 12~19 이면 원문 PAN 으로 보고 신규발급을 허용한다.
* 그 외(대시/별표 포함)는 마스킹 문자열로 보고 조회만 수행한다. */
for (i = 0, ndigit = 0; i < slen; i++) {
if (h_card[i] >= '0' && h_card[i] <= '9') ndigit++;
}
is_pan = (ndigit == slen && slen >= 12 && slen <= 19) ? 1 : 0;
userlog("[%s] 입력유형 is_pan=%ld len=%ld digits=%ld", svcname, is_pan, slen, ndigit);
/* ===== 3) 해시 산출부 (원문 불가역 SHA-256) =====
* 시드(97c)는 sha256(card_no::bytea) 로 적재했다. convert_to(text,'UTF8') 는
* ASCII 숫자열에 대해 동일 bytea 를 주므로 같은 해시로 조회가 성립한다. */
EXEC SQL SELECT encode(sha256(convert_to(:h_card, 'UTF8')), 'hex') INTO :h_hash;
if (sqlca.sqlcode < 0) {
setl(b, T_RC, 8810L); Bchg(b, T_MSG, 0, "해시 산출 실패", 0L);
userlog("[%s] 해시 산출 실패 [%d]", svcname, sqlca.sqlcode); FAIL(b);
}
/* ===== 4) 볼트 조회부 (해시 일치 또는 마스킹 일치) ===== */
EXEC SQL SELECT token, pan_masked INTO :h_token, :h_masked
FROM card_vault
WHERE pan_hash = :h_hash OR pan_masked = :h_card
LIMIT 1;
if (sqlca.sqlcode == 100) {
h_found = 0;
} else if (sqlca.sqlcode < 0) {
setl(b, T_RC, 8811L); Bchg(b, T_MSG, 0, "토큰볼트 조회 오류", 0L);
userlog("[%s] 볼트 조회 오류 [%d]", svcname, sqlca.sqlcode); FAIL(b);
} else {
h_found = 1;
}
/* ===== 5) 업무규칙 분기부 ===== */
if (h_found) {
/* 이미 토큰화된 카드: 기존 토큰 반환 */
strcpy(inbuf, "FOUND"); rc = 0;
userlog("[%s] 기존 토큰 조회 성공 token=%s", svcname, h_token);
} else if (!is_pan) {
/* 마스킹 입력인데 미발견: 원문이 없어 발급 불가 — 조회 미스로 응답 */
strcpy(inbuf, "NOTFOUND"); rc = 1;
strncpy(h_masked, h_card, sizeof(h_masked) - 1); /* 입력이 이미 마스킹(비민감) */
h_masked[sizeof(h_masked) - 1] = 0;
h_token[0] = 0;
userlog("[%s] 마스킹 입력 미발견 — 발급 보류 rc=1", svcname);
} else {
/* ===== 6) 본처리부 (신규 토큰 발급 INSERT) ===== */
strcpy(inbuf, "NEW"); rc = 0;
EXEC SQL SELECT nextval('card_token_seq') INTO :h_tokseq; /* audit 채번 */
if (sqlca.sqlcode < 0) {
setl(b, T_RC, 8820L); Bchg(b, T_MSG, 0, "토큰 시퀀스 채번 실패", 0L);
userlog("[%s] 시퀀스 채번 실패 [%d]", svcname, sqlca.sqlcode); FAIL(b);
}
EXEC SQL INSERT INTO card_vault
(token, pan_masked, pan_hash, bin, last4)
VALUES ('TKN-' || substr(md5(:h_card), 1, 12),
substr(:h_card, 1, 4) || '-****-****-' || right(:h_card, 4),
:h_hash, substr(:h_card, 1, 6), right(:h_card, 4))
RETURNING token, pan_masked INTO :h_token, :h_masked;
if (sqlca.sqlcode < 0) {
setl(b, T_RC, 8821L); Bchg(b, T_MSG, 0, "토큰볼트 적재 실패", 0L);
userlog("[%s] 볼트 적재 실패 [%d]", svcname, sqlca.sqlcode); FAIL(b);
}
userlog("[%s] 신규 토큰 발급 seq=%ld token=%s", svcname, h_tokseq, h_token);
}
/* ===== 7) 적재 재검증부 (발급/조회 결과 정합성) ===== */
if (h_token[0]) {
EXEC SQL SELECT count(*) INTO :h_found FROM card_vault WHERE token = :h_token;
if (sqlca.sqlcode < 0) {
setl(b, T_RC, 8830L); Bchg(b, T_MSG, 0, "토큰 재검증 조회 오류", 0L); FAIL(b);
}
if (h_found <= 0) {
setl(b, T_RC, 8831L); Bchg(b, T_MSG, 0, "토큰 재검증 실패(적재행 미확인)", 0L);
userlog("[%s] 재검증 실패 token=%s", svcname, h_token); FAIL(b);
}
}
/* ===== 8) 응답부 (토큰/마스킹/상태만 — 원문 PAN 미포함) ===== */
Bchg(b, T_STR1, 0, h_token, 0L); /* token (비민감) */
Bchg(b, T_STR2, 0, h_masked, 0L); /* pan_masked (비민감) */
Bchg(b, T_STATUS, 0, inbuf, 0L); /* NEW / FOUND / NOTFOUND */
if (h_tokseq > 0) setl(b, T_ID1, h_tokseq);
setl(b, T_RC, rc);
if (rc == 0) Bchg(b, T_MSG, 0, "토큰화 정상", 0L);
/* ===== 9) 완료 로깅 ===== */
userlog("[%s] 완료: status=%s rc=%ld token=%s masked=%s",
svcname, inbuf, rc, h_token, h_masked);
OK(b);
}
/* vim: set ts=4 sw=4 et smartindent: */

4
app/src/st/st_svr.pgc
View file

@ -155,6 +155,8 @@
#include "ST_FEEDECOMP.h"
#include "ST_NETSETTLE.h"
#include "ST_FUNDING.h"
/* Wave J — 자금이동 실연동(은행 rails 펀딩 지시) */
#include "ST_FUNDINSTR.h"
/* ----- advertise table: {service name, function} ---------------------- */
static struct { const char *name; void (*fn)(TPSVCINFO *); } SVCS[] = {
@ -226,7 +228,7 @@ static struct { const char *name; void (*fn)(TPSVCINFO *); } SVCS[] = {
{"ST_VANDETAIL", ST_VANDETAIL}, {"ST_RELAYSPLIT", ST_RELAYSPLIT},
{"ST_GRADESTAT", ST_GRADESTAT}, {"ST_MONTHSTAT", ST_MONTHSTAT},
{"ST_FEEDECOMP", ST_FEEDECOMP}, {"ST_NETSETTLE", ST_NETSETTLE},
{"ST_FUNDING", ST_FUNDING},
{"ST_FUNDING", ST_FUNDING}, {"ST_FUNDINSTR", ST_FUNDINSTR},
{NULL, NULL}
};

26
app/src/st/svc/ST_FUNDINSTR.h Normal file
View file

@ -0,0 +1,26 @@
/*
* ST_FUNDINSTR.h - st 서비스 ST_FUNDINSTR 카피북 (copybook / record header).
* 펀딩 지시 생성/확인: st_merchant_funding.deposit 를 은행 rails(FIRMBANK)로 지급
* 지시 → st_funding_instr 적재. deposit<=0 이면 RETURNED(반환).
* Request fields: T_MERCHANT, T_BIZDATE
* Response fields: T_AMT1(amount), T_STATUS(status), T_ID1(instr_id)
*/
#ifndef ST_FUNDINSTR_H
#define ST_FUNDINSTR_H
#include "st_svc.h"
typedef struct {
long instr_id;
char merchant_id[64];
char biz_date[16];
char bank_code[16];
char account_no[24];
long amount; /* 지급액(펀딩 deposit) */
char rail[16]; /* FIRMBANK/ACH/RTGS */
char status[16]; /* SENT/CONFIRMED/RETURNED */
} st_fundinstr_rec_t;
void ST_FUNDINSTR(TPSVCINFO *p);
#endif /* ST_FUNDINSTR_H */

151
app/src/st/svc/ST_FUNDINSTR.pgc Normal file
View file

@ -0,0 +1,151 @@
/*
* ST_FUNDINSTR.pgc - st (정산/수수료) 모듈 서비스 ST_FUNDINSTR (one service = one file).
* 펀딩 지시 생성/확인: 가맹점 순액정산 결과(st_merchant_funding.deposit)를 은행
* rails(FIRMBANK) 지급지시로 전환해 st_funding_instr 에 적재한다. 이미 당일
* 지시가 있으면 재생성 없이 "확인"으로 그 지시를 반환한다(멱등). deposit<=0 이면
* 지급 불가로 RETURNED(반환) 지시를 남긴다.
* 처리단계: 입력검증 -> 펀딩(deposit) 조회 -> 기지시 확인 -> 업무규칙(반환/지급) ->
* 본처리(st_funding_instr INSERT) -> 감사이력 -> 재검증 -> 응답 -> 로깅.
* 호출자 XA 브랜치에서 수행(EXEC SQL CONNECT 없음). st_svr 가 tpsvrinit 에서 광고.
* XA 격리: 펀딩/기지시는 본 브랜치에서 조회 가능한 커밋행 기준으로 판정한다.
*/
#include "ST_FUNDINSTR.h"
/* ST_FUNDINSTR - 펀딩 지시 생성/확인(은행 rails 지급지시). */
void ST_FUNDINSTR(TPSVCINFO *p)
{
UBFH *b = (UBFH *)p->data;
/* ---- 지역 스크래치 (DECLARE SECTION 밖에서 초기화) ---- */
char merch[64], bizdate[16], msgbuf[220];
unsigned long hv;
int i, banksel;
static const char *BANKS[5] = { "KB", "SHINHAN", "HANA", "NH", "WOORI" };
EXEC SQL BEGIN DECLARE SECTION;
long h_deposit, h_amount, h_instr, h_exist, h_chk;
char h_merch[64], h_bizdate[16], h_bank[16], h_acct[24], h_rail[16];
char h_status[16], h_rcode[32], h_estatus[16], h_svc[24], h_msg[220];
EXEC SQL END DECLARE SECTION;
strcpy(h_svc, "ST_FUNDINSTR");
h_deposit = h_amount = h_instr = h_exist = h_chk = 0;
strcpy(h_rail, "FIRMBANK"); strcpy(h_status, "SENT");
strcpy(h_bank, "KB"); h_acct[0] = 0; h_rcode[0] = 0; h_estatus[0] = 0;
/* ===== 1) 입력 검증부 ===== */
gets_(b, T_MERCHANT, merch, sizeof(merch));
gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
userlog("[자금연동] 펀딩 지시 진입 merch=%s biz=%s", merch, bizdate);
if (merch[0] == 0) {
setl(b, T_RC, 8601); Bchg(b, T_MSG, 0, "가맹점 ID(merchant_id) 필수", 0L);
userlog("[ST_FUNDINSTR] 가맹점 ID 누락"); FAIL(b);
}
if (strlen(bizdate) < 8) {
setl(b, T_RC, 8602); Bchg(b, T_MSG, 0, "영업일자(biz_date) 형식 오류", 0L);
userlog("[ST_FUNDINSTR] 영업일 검증 실패 val=[%s]", bizdate); FAIL(b);
}
strncpy(h_merch, merch, sizeof(h_merch)-1); h_merch[sizeof(h_merch)-1] = 0;
strncpy(h_bizdate, bizdate, sizeof(h_bizdate)-1); h_bizdate[sizeof(h_bizdate)-1] = 0;
/* 은행/계좌 결정: 가맹점 ID 해시로 결정(마스터 없는 데모 지급계좌). */
hv = 5381UL;
for (i = 0; h_merch[i] != 0; i++) hv = ((hv << 5) + hv) + (unsigned char)h_merch[i];
banksel = (int)(hv % 5);
strncpy(h_bank, BANKS[banksel], sizeof(h_bank)-1); h_bank[sizeof(h_bank)-1] = 0;
snprintf(h_acct, sizeof(h_acct), "%012lu", (hv >> 3) % 1000000000000UL);
/* ===== 2) 펀딩(deposit) 조회부 ===== */
EXEC SQL SELECT deposit INTO :h_deposit FROM st_merchant_funding
WHERE merchant_id = :h_merch AND biz_date = :h_bizdate;
if (sqlca.sqlcode == 100) {
/* 당일 펀딩 산출이 없으면 지시 대상 아님(무처리 종료 — ST_FUNDING NODATA 규율). */
Bchg(b, T_STATUS, 0, "NOFUND", 0L);
setl(b, T_AMT1, 0); setl(b, T_ID1, 0);
Bchg(b, T_SVCNAME, 0, "ST_FUNDINSTR", 0L); setl(b, T_RC, 0);
userlog("[ST_FUNDINSTR] 펀딩 미산출 merch=%s biz=%s — 지시 대상 없음", h_merch, h_bizdate);
OK(b);
} else if (sqlca.sqlcode < 0) {
setl(b, T_RC, 8610); Bchg(b, T_MSG, 0, "펀딩 조회 오류", 0L);
userlog("[ST_FUNDINSTR] 펀딩 조회 실패 [%d]", sqlca.sqlcode); FAIL(b);
}
h_amount = h_deposit;
/* ===== 3) 기지시 확인부 (멱등: 이미 있으면 그 지시를 반환) ===== */
EXEC SQL SELECT instr_id, amount, status INTO :h_exist, :h_amount, :h_estatus
FROM st_funding_instr WHERE merchant_id = :h_merch AND biz_date = :h_bizdate
ORDER BY instr_id LIMIT 1;
if (sqlca.sqlcode == 0) {
setl(b, T_AMT1, h_amount);
Bchg(b, T_STATUS, 0, h_estatus, 0L);
setl(b, T_ID1, h_exist);
Bchg(b, T_SVCNAME, 0, "ST_FUNDINSTR", 0L); setl(b, T_RC, 0);
userlog("[ST_FUNDINSTR] 기지시 확인 instr=%ld amount=%ld status=%s", h_exist, h_amount, h_estatus);
OK(b);
} else if (sqlca.sqlcode < 0) {
setl(b, T_RC, 8611); Bchg(b, T_MSG, 0, "기지시 조회 오류", 0L); FAIL(b);
}
h_amount = h_deposit;
/* ===== 4) 업무규칙 분기부 (지급/반환) ===== */
if (h_deposit <= 0) {
strcpy(h_status, "RETURNED");
strcpy(h_rcode, "R02-지급액없음");
userlog("[ST_FUNDINSTR] 입금액 비양수 deposit=%ld — 반환 지시 생성", h_deposit);
} else {
strcpy(h_status, "SENT"); h_rcode[0] = 0;
}
/* ===== 5) 본처리부 (st_funding_instr INSERT) ===== */
EXEC SQL SELECT nextval('st_fundinstr_seq') INTO :h_instr;
if (sqlca.sqlcode < 0) { setl(b, T_RC, 8620); Bchg(b, T_MSG, 0, "지시 시퀀스 실패", 0L); FAIL(b); }
if (h_rcode[0] == 0) {
EXEC SQL INSERT INTO st_funding_instr
(instr_id, merchant_id, biz_date, bank_code, account_no, amount, rail, status)
VALUES (:h_instr, :h_merch, :h_bizdate, :h_bank, :h_acct, :h_amount, :h_rail, :h_status);
} else {
EXEC SQL INSERT INTO st_funding_instr
(instr_id, merchant_id, biz_date, bank_code, account_no, amount, rail, status, return_code)
VALUES (:h_instr, :h_merch, :h_bizdate, :h_bank, :h_acct, :h_amount, :h_rail, :h_status, :h_rcode);
}
if (sqlca.sqlcode < 0) {
setl(b, T_RC, 8621); Bchg(b, T_MSG, 0, "펀딩 지시 적재 실패", 0L);
userlog("[ST_FUNDINSTR] st_funding_instr INSERT 실패 [%d]", sqlca.sqlcode); FAIL(b);
}
/* ===== 6) 감사이력 적재부 (cm_log) ===== */
snprintf(msgbuf, sizeof(msgbuf), "ST_FUNDINSTR merch=%s biz=%s bank=%s acct=%s amount=%ld status=%s",
h_merch, h_bizdate, h_bank, h_acct, h_amount, h_status);
strncpy(h_msg, msgbuf, sizeof(h_msg)-1); h_msg[sizeof(h_msg)-1] = 0;
EXEC SQL INSERT INTO cm_log (log_id, svc_name, log_level, msg, biz_date)
VALUES (nextval('cm_log_seq'), :h_svc, 'I', :h_msg, :h_bizdate);
if (sqlca.sqlcode < 0) { setl(b, T_RC, 8630); Bchg(b, T_MSG, 0, "감사 로그 적재 실패", 0L); FAIL(b); }
/* ===== 7) 재검증부 (적재행 재조회) ===== */
EXEC SQL SELECT amount INTO :h_chk FROM st_funding_instr WHERE instr_id = :h_instr;
if (sqlca.sqlcode < 0 || sqlca.sqlcode == 100) {
setl(b, T_RC, 8640); Bchg(b, T_MSG, 0, "지시 적재 재검증 실패", 0L);
userlog("[ST_FUNDINSTR] 재검증 실패 code=%d", sqlca.sqlcode); FAIL(b);
}
if (h_chk != h_amount) {
setl(b, T_RC, 8641); Bchg(b, T_MSG, 0, "지시 금액 불일치(보상 롤백)", 0L);
userlog("[ST_FUNDINSTR] 금액 불일치 chk=%ld amount=%ld", h_chk, h_amount); FAIL(b);
}
/* ===== 8) 응답부 (계약: T_AMT1=amount, T_STATUS=status, T_ID1=instr_id) ===== */
setl(b, T_AMT1, h_amount);
setl(b, T_AMT2, h_deposit);
Bchg(b, T_STATUS, 0, h_status, 0L);
setl(b, T_ID1, h_instr);
Bchg(b, T_MERCHANT, 0, h_merch, 0L);
Bchg(b, T_STR1, 0, h_bank, 0L);
Bchg(b, T_STR2, 0, h_acct, 0L);
Bchg(b, T_SVCNAME, 0, "ST_FUNDINSTR", 0L);
setl(b, T_RC, 0);
/* ===== 9) 완료 로깅 ===== */
userlog("[자금연동] 펀딩 지시 완료 merch=%s biz=%s instr=%ld amount=%ld status=%s",
h_merch, h_bizdate, h_instr, h_amount, h_status);
OK(b);
}
/* vim: set ts=4 sw=4 et smartindent: */

2
app/ui/callgraph.js
View file

File diff suppressed because one or more lines are too long

54
app/ui/index.html
View file

File diff suppressed because one or more lines are too long

2
app/ui/metrics.js
View file

@ -1,2 +1,2 @@
/* 자동생성: tools/gen_metrics.py — 소스 실측 마이그레이션 난이도 지표. 손대지 말 것. */
window.METRICS={"SCALE":[{"k":"소스 파일 (.pgc/.c/.h)","v":4640,"u":"개"},{"k":"총 코드 라인","v":331856,"u":"LOC"},{"k":"온라인 서비스","v":1470,"u":"본"},{"k":"배치 잡","v":506,"u":"본"},{"k":"임베디드 SQL(EXEC SQL)","v":23817,"u":"블록"},{"k":"Tuxedo tpcall 호출","v":989,"u":"곳"},{"k":"전역 트랜잭션 tpbegin","v":1234,"u":"곳"},{"k":"UBF 버퍼 필드접근","v":47127,"u":"곳"},{"k":"DB 테이블","v":86,"u":"개"},{"k":"카피북 헤더(.h)","v":2214,"u":"개"}],"HAZARDS":[{"t":"Tuxedo ATMI (tpcall/tpservice/tpreturn)","n":989,"u":"호출","why":"Java·Spring에 1:1 대응 API가 없다. 서비스 호출 모델 자체를 REST/메시지로 재설계해야 하며, 문법 치환으로는 불가능."},{"t":"XA 2PC 전역 트랜잭션 (최대 6단 중첩)","n":1234,"u":"tpbegin","why":"형제 XA 브랜치 격리·2단계 커밋 의미론이 Spring @Transactional 경계와 다르다. 잘못 옮기면 교착·이중전기가 그대로 재현된다."},{"t":"ECPG 임베디드 SQL (호스트변수·커서·sqlca)","n":23817,"u":"블록","why":"EXEC SQL 블록마다 호스트변수 바인딩·sqlcode 분기·커서 수명을 JPA/MyBatis 의미로 옮겨야 한다. 자동 변환기가 가장 많이 깨지는 지점."},{"t":"UBF(FML32) 타입리스 버퍼","n":47127,"u":"필드접근","why":"필드ID 기반 동적 버퍼라 타입·필수여부가 컴파일타임에 없다. Java DTO로 옮기려면 47,000여 접근점의 계약을 사람이 복원해야 한다."},{"t":"카피북 공유(#include) 팬아웃","n":6906,"u":"참조","why":"한 카피북을 수십 프로그램이 공유해 구조체 변경이 전방위로 파급된다. 경계 없는 결합이라 모듈 단위 절단이 어렵다."},{"t":"전처리 매크로(#define)","n":2254,"u":"정의","why":"매크로가 코드 생성·분기를 숨겨 정적 분석을 방해한다. 전개 후에야 실제 로직이 드러난다."}],"TRACE":[{"root":"ACQUIRE","tree":{"svc":"ACQUIRE","mod":"ac","wr":["cm_log"],"children":[{"svc":"RECONCILE","mod":"rc","wr":["cm_log","ledger"],"children":[{"svc":"SETTLE","mod":"st","wr":["ledger","settlement"],"children":[{"svc":"ST_MDR","mod":"st","wr":["ledger"],"children":[{"svc":"LG_SETTLEPOST","mod":"lg","wr":["cm_log"],"children":[{"svc":"LG_BALCHK","mod":"lg","wr":["cm_log"],"children":[]}]}]}]}]}]},"stat":{"programs":6,"tables":3,"xa_branches":6,"tablelist":["cm_log","ledger","settlement"]}},{"root":"PAY_APPROVE","tree":{"svc":"PAY_APPROVE","mod":"py","wr":["cm_log","py_payout"],"children":[{"svc":"PAY_FILEGEN","mod":"py","wr":["cm_log","py_file","py_payout"],"children":[{"svc":"PAY_ACCTCHK","mod":"py","wr":["cm_log"],"children":[{"svc":"LG_POST","mod":"lg","wr":["cm_log"],"children":[{"svc":"LG_BALCHK","mod":"lg","wr":["cm_log"],"children":[]}]}]}]}]},"stat":{"programs":5,"tables":3,"xa_branches":5,"tablelist":["cm_log","py_file","py_payout"]}},{"root":"CL_DAILY","tree":{"svc":"CL_DAILY","mod":"cl","wr":["cm_log"],"children":[{"svc":"VL_SALES","mod":"vl","wr":[],"children":[{"svc":"RC_EXCEPTION","mod":"rc","wr":["cm_log"],"children":[{"svc":"CM_LOG","mod":"cm","wr":[],"children":[]}]}]},{"svc":"LG_CLOSE_LINK","mod":"lg","wr":["cm_log","lg_ledger_line"],"children":[{"svc":"CL_LOCK","mod":"cl","wr":["SET","cl_close_log","cl_period_lock","cm_log"],"children":[]}]}]},"stat":{"programs":6,"tables":5,"xa_branches":6,"tablelist":["SET","cl_close_log","cl_period_lock","cm_log","lg_ledger_line"]}}],"LEGACY":{"copybook_total":2214,"copybook_shared_max":139,"copybook_shared_name":"acq_common.h","macro_defs":2254,"goto":64,"userlog":17185,"sqlca_checks":18795,"embedded_sql_density":9.8},"ORACLE":{"asis_files":9,"asis_proc":7,"asis_plsql":2,"asis_loc":1827,"dialects":[{"t":"PL/SQL 패키지 호출 (pkg_x.proc)","n":18},{"t":"NVL / NVL2 널가드","n":60},{"t":"DECODE 다분기","n":16},{"t":"SYSDATE / SYSTIMESTAMP","n":42},{"t":"FROM DUAL","n":15},{"t":"시퀀스 .NEXTVAL","n":27},{"t":"ROWNUM 의사컬럼","n":6},{"t":"구식 외부조인 (+)","n":8},{"t":"CONNECT BY 계층질의","n":3},{"t":"WHENEVER SQLERROR 라벨분기","n":16},{"t":"TO_DATE / TO_CHAR 포맷","n":35},{"t":"RAISE_APPLICATION_ERROR","n":13}]}};
window.METRICS={"SCALE":[{"k":"소스 파일 (.pgc/.c/.h)","v":4652,"u":"개"},{"k":"총 코드 라인","v":332823,"u":"LOC"},{"k":"온라인 서비스","v":1476,"u":"본"},{"k":"배치 잡","v":506,"u":"본"},{"k":"임베디드 SQL(EXEC SQL)","v":23871,"u":"블록"},{"k":"Tuxedo tpcall 호출","v":989,"u":"곳"},{"k":"전역 트랜잭션 tpbegin","v":1234,"u":"곳"},{"k":"UBF 버퍼 필드접근","v":47285,"u":"곳"},{"k":"DB 테이블","v":95,"u":"개"},{"k":"카피북 헤더(.h)","v":2220,"u":"개"}],"HAZARDS":[{"t":"Tuxedo ATMI (tpcall/tpservice/tpreturn)","n":989,"u":"호출","why":"Java·Spring에 1:1 대응 API가 없다. 서비스 호출 모델 자체를 REST/메시지로 재설계해야 하며, 문법 치환으로는 불가능."},{"t":"XA 2PC 전역 트랜잭션 (최대 6단 중첩)","n":1234,"u":"tpbegin","why":"형제 XA 브랜치 격리·2단계 커밋 의미론이 Spring @Transactional 경계와 다르다. 잘못 옮기면 교착·이중전기가 그대로 재현된다."},{"t":"ECPG 임베디드 SQL (호스트변수·커서·sqlca)","n":23871,"u":"블록","why":"EXEC SQL 블록마다 호스트변수 바인딩·sqlcode 분기·커서 수명을 JPA/MyBatis 의미로 옮겨야 한다. 자동 변환기가 가장 많이 깨지는 지점."},{"t":"UBF(FML32) 타입리스 버퍼","n":47285,"u":"필드접근","why":"필드ID 기반 동적 버퍼라 타입·필수여부가 컴파일타임에 없다. Java DTO로 옮기려면 47,000여 접근점의 계약을 사람이 복원해야 한다."},{"t":"카피북 공유(#include) 팬아웃","n":6918,"u":"참조","why":"한 카피북을 수십 프로그램이 공유해 구조체 변경이 전방위로 파급된다. 경계 없는 결합이라 모듈 단위 절단이 어렵다."},{"t":"전처리 매크로(#define)","n":2260,"u":"정의","why":"매크로가 코드 생성·분기를 숨겨 정적 분석을 방해한다. 전개 후에야 실제 로직이 드러난다."}],"TRACE":[{"root":"ACQUIRE","tree":{"svc":"ACQUIRE","mod":"ac","wr":["cm_log"],"children":[{"svc":"RECONCILE","mod":"rc","wr":["cm_log","ledger"],"children":[{"svc":"SETTLE","mod":"st","wr":["ledger","settlement"],"children":[{"svc":"ST_MDR","mod":"st","wr":["ledger"],"children":[{"svc":"LG_SETTLEPOST","mod":"lg","wr":["cm_log"],"children":[{"svc":"LG_BALCHK","mod":"lg","wr":["cm_log"],"children":[]}]}]}]}]}]},"stat":{"programs":6,"tables":3,"xa_branches":6,"tablelist":["cm_log","ledger","settlement"]}},{"root":"PAY_APPROVE","tree":{"svc":"PAY_APPROVE","mod":"py","wr":["cm_log","py_payout"],"children":[{"svc":"PAY_FILEGEN","mod":"py","wr":["cm_log","py_file","py_payout"],"children":[{"svc":"PAY_ACCTCHK","mod":"py","wr":["cm_log"],"children":[{"svc":"LG_POST","mod":"lg","wr":["cm_log"],"children":[{"svc":"LG_BALCHK","mod":"lg","wr":["cm_log"],"children":[]}]}]}]}]},"stat":{"programs":5,"tables":3,"xa_branches":5,"tablelist":["cm_log","py_file","py_payout"]}},{"root":"CL_DAILY","tree":{"svc":"CL_DAILY","mod":"cl","wr":["cm_log"],"children":[{"svc":"VL_SALES","mod":"vl","wr":[],"children":[{"svc":"RC_EXCEPTION","mod":"rc","wr":["cm_log"],"children":[{"svc":"CM_LOG","mod":"cm","wr":[],"children":[]}]}]},{"svc":"LG_CLOSE_LINK","mod":"lg","wr":["cm_log","lg_ledger_line"],"children":[{"svc":"CL_LOCK","mod":"cl","wr":["SET","cl_close_log","cl_period_lock","cm_log"],"children":[]}]}]},"stat":{"programs":6,"tables":5,"xa_branches":6,"tablelist":["SET","cl_close_log","cl_period_lock","cm_log","lg_ledger_line"]}}],"LEGACY":{"copybook_total":2220,"copybook_shared_max":139,"copybook_shared_name":"acq_common.h","macro_defs":2260,"goto":64,"userlog":17249,"sqlca_checks":18862,"embedded_sql_density":9.8},"ORACLE":{"asis_files":9,"asis_proc":7,"asis_plsql":2,"asis_loc":1827,"dialects":[{"t":"PL/SQL 패키지 호출 (pkg_x.proc)","n":18},{"t":"NVL / NVL2 널가드","n":60},{"t":"DECODE 다분기","n":16},{"t":"SYSDATE / SYSTIMESTAMP","n":42},{"t":"FROM DUAL","n":15},{"t":"시퀀스 .NEXTVAL","n":27},{"t":"ROWNUM 의사컬럼","n":6},{"t":"구식 외부조인 (+)","n":8},{"t":"CONNECT BY 계층질의","n":3},{"t":"WHENEVER SQLERROR 라벨분기","n":16},{"t":"TO_DATE / TO_CHAR 포맷","n":35},{"t":"RAISE_APPLICATION_ERROR","n":13}]}};

157
db/schema.d/72-security.sql Normal file
View file

@ -0,0 +1,157 @@
-- ===========================================================================
-- 72-security.sql : 패리티 고도화 (Wave J) — 카드보안·자금연동·수수료·분쟁·리포팅
-- 실제 매입사 대비 갭이던 PCI/3DS/AVS·CVV, 은행 rails 펀딩, DCC, 채그백수수료,
-- retrieval, 규제보고를 데이터 모델로 추가. 기존 구조 불변(추가만).
-- ===========================================================================
-- ---------------------------------------------------------------------------
-- J-1. 카드보안
-- ---------------------------------------------------------------------------
-- 토큰볼트: PAN 을 토큰으로 치환, 원문은 저장하지 않음(마스킹만 보관). PCI 스코프 축소.
CREATE SEQUENCE IF NOT EXISTS card_token_seq START 4000000;
CREATE TABLE IF NOT EXISTS card_vault (
token TEXT PRIMARY KEY, -- 표면 토큰(비민감). 예: TKN-xxxxxxxx
pan_masked TEXT NOT NULL, -- 4111-****-****-1111 (마스킹)
pan_hash TEXT NOT NULL, -- SHA-256(PAN) — 중복탐지/조회용(원문 불가역)
bin TEXT NOT NULL, -- 앞 6자리(라우팅)
last4 TEXT NOT NULL,
card_type TEXT NOT NULL DEFAULT 'CREDIT',
issuer TEXT NOT NULL DEFAULT 'BC',
exp_ym TEXT, -- YYYYMM (만료)
created_at TIMESTAMPTZ NOT NULL DEFAULT now()
);
CREATE INDEX IF NOT EXISTS ix_vault_hash ON card_vault(pan_hash);
CREATE INDEX IF NOT EXISTS ix_vault_bin ON card_vault(bin);
-- 3DS/SCA 인증 결과 (비대면 거래 인증·책임전환)
CREATE SEQUENCE IF NOT EXISTS au_3ds_seq START 500000;
CREATE TABLE IF NOT EXISTS au_3ds (
tds_id BIGINT PRIMARY KEY,
purchase_id BIGINT,
token TEXT,
version TEXT NOT NULL DEFAULT '2.2.0', -- 3DS 버전
eci TEXT NOT NULL, -- 05=완전인증 06=시도 07=미인증
cavv TEXT, -- 인증검증값(Base64)
ds_trans_id TEXT, -- Directory Server txn id
auth_status TEXT NOT NULL, -- Y=인증 A=시도 N=실패 U=불가 R=거부
liability TEXT NOT NULL DEFAULT 'ISSUER', -- 책임주체: ISSUER(전환됨)/MERCHANT
created_at TIMESTAMPTZ NOT NULL DEFAULT now()
);
CREATE INDEX IF NOT EXISTS ix_3ds_pid ON au_3ds(purchase_id);
-- AVS/CVV 검증 응답
CREATE SEQUENCE IF NOT EXISTS au_verify_seq START 550000;
CREATE TABLE IF NOT EXISTS au_verify (
vrf_id BIGINT PRIMARY KEY,
purchase_id BIGINT,
token TEXT,
avs_code TEXT NOT NULL DEFAULT 'U', -- Y/A/Z/N/U (주소·우편일치)
cvv_code TEXT NOT NULL DEFAULT 'U', -- M=일치 N=불일치 P=미처리 U=불가
risk_score INTEGER NOT NULL DEFAULT 0, -- 0~999
decision TEXT NOT NULL DEFAULT 'APPROVE', -- APPROVE/DECLINE/REVIEW
created_at TIMESTAMPTZ NOT NULL DEFAULT now()
);
CREATE INDEX IF NOT EXISTS ix_verify_pid ON au_verify(purchase_id);
-- ---------------------------------------------------------------------------
-- J-2. 자금이동 실연동
-- ---------------------------------------------------------------------------
-- 펀딩 지시/반환 (펌뱅킹/ACH 등가). 순액정산 결과를 은행 rails 로 지급 지시.
CREATE SEQUENCE IF NOT EXISTS st_fundinstr_seq START 850000;
CREATE TABLE IF NOT EXISTS st_funding_instr (
instr_id BIGINT PRIMARY KEY,
merchant_id TEXT NOT NULL,
biz_date DATE NOT NULL,
bank_code TEXT NOT NULL DEFAULT 'KB', -- 입금은행
account_no TEXT NOT NULL,
amount BIGINT NOT NULL, -- 지급액(펀딩 deposit)
rail TEXT NOT NULL DEFAULT 'FIRMBANK', -- FIRMBANK/ACH/RTGS
status TEXT NOT NULL DEFAULT 'SENT', -- SENT/CONFIRMED/RETURNED
return_code TEXT, -- 반환사유(계좌오류 등)
sent_at TIMESTAMPTZ NOT NULL DEFAULT now(),
confirmed_at TIMESTAMPTZ
);
CREATE INDEX IF NOT EXISTS ix_fundinstr_merch ON st_funding_instr(merchant_id, biz_date);
-- DCC (해외카드 원화가맹점 결제시 통화선택) — 승인시점 환율고정.
CREATE SEQUENCE IF NOT EXISTS ac_dcc_seq START 450000;
CREATE TABLE IF NOT EXISTS ac_dcc (
dcc_id BIGINT PRIMARY KEY,
purchase_id BIGINT NOT NULL,
base_ccy TEXT NOT NULL DEFAULT 'KRW', -- 가맹점 통화
txn_ccy TEXT NOT NULL, -- 카드소지자 통화(USD/JPY/EUR...)
base_amount BIGINT NOT NULL, -- 원화 금액
txn_amount NUMERIC(18,2) NOT NULL, -- 외화 금액
fx_rate NUMERIC(14,6) NOT NULL, -- 고정환율
markup_bps INTEGER NOT NULL DEFAULT 300,-- DCC 마크업(3%)
opted_in BOOLEAN NOT NULL DEFAULT true,
created_at TIMESTAMPTZ NOT NULL DEFAULT now()
);
CREATE INDEX IF NOT EXISTS ix_dcc_pid ON ac_dcc(purchase_id);
-- ---------------------------------------------------------------------------
-- J-3. 수수료·분쟁 운영
-- ---------------------------------------------------------------------------
-- 채그백 수수료 (분쟁 발생시 가맹점 부과 건당 수수료)
CREATE SEQUENCE IF NOT EXISTS st_cbfee_seq START 950000;
CREATE TABLE IF NOT EXISTS st_cb_fee (
cbfee_id BIGINT PRIMARY KEY,
dispute_id BIGINT NOT NULL,
merchant_id TEXT NOT NULL,
fee_amount BIGINT NOT NULL DEFAULT 15000, -- 건당 채그백 수수료(원)
stage TEXT NOT NULL, -- 어느 단계에서 부과
billed BOOLEAN NOT NULL DEFAULT false,
biz_date DATE NOT NULL,
created_at TIMESTAMPTZ NOT NULL DEFAULT now()
);
-- retrieval request (매출전표 조회요청 — 채그백 전 단계)
CREATE SEQUENCE IF NOT EXISTS ac_retrieval_seq START 620000;
CREATE TABLE IF NOT EXISTS ac_retrieval (
retr_id BIGINT PRIMARY KEY,
purchase_id BIGINT NOT NULL,
merchant_id TEXT NOT NULL,
reason TEXT NOT NULL, -- 조회사유
status TEXT NOT NULL DEFAULT 'OPEN', -- OPEN/FULFILLED/EXPIRED
sla_due DATE NOT NULL, -- SLA 마감일
fulfilled_at TIMESTAMPTZ,
created_at TIMESTAMPTZ NOT NULL DEFAULT now()
);
-- 분쟁 SLA 타이머 컬럼 추가 (기존 ac_dispute 확장)
ALTER TABLE ac_dispute ADD COLUMN IF NOT EXISTS sla_due DATE;
ALTER TABLE ac_dispute ADD COLUMN IF NOT EXISTS fraud_flag BOOLEAN NOT NULL DEFAULT false;
-- ---------------------------------------------------------------------------
-- J-4. 리포팅·규제
-- ---------------------------------------------------------------------------
-- 가맹점 월 명세서
CREATE SEQUENCE IF NOT EXISTS rp_stmt_seq START 700000;
CREATE TABLE IF NOT EXISTS rp_merchant_stmt (
stmt_id BIGINT PRIMARY KEY,
merchant_id TEXT NOT NULL,
stmt_month TEXT NOT NULL, -- YYYYMM
gross_sales BIGINT NOT NULL DEFAULT 0,
txn_count BIGINT NOT NULL DEFAULT 0,
total_fees BIGINT NOT NULL DEFAULT 0,
interchange BIGINT NOT NULL DEFAULT 0,
scheme_fee BIGINT NOT NULL DEFAULT 0,
markup BIGINT NOT NULL DEFAULT 0,
cb_fees BIGINT NOT NULL DEFAULT 0,
net_deposit BIGINT NOT NULL DEFAULT 0,
issued_at TIMESTAMPTZ NOT NULL DEFAULT now(),
UNIQUE (merchant_id, stmt_month)
);
-- 규제보고 (여신전문금융업법 정산주기 준수 등)
CREATE SEQUENCE IF NOT EXISTS rp_reg_seq START 710000;
CREATE TABLE IF NOT EXISTS rp_regulatory (
reg_id BIGINT PRIMARY KEY,
report_type TEXT NOT NULL, -- SETTLE_CYCLE/FEE_DISCLOSURE/TXN_VOLUME
period TEXT NOT NULL, -- YYYYMM
metric TEXT NOT NULL,
value NUMERIC(18,2) NOT NULL,
compliant BOOLEAN NOT NULL DEFAULT true,
note TEXT,
created_at TIMESTAMPTZ NOT NULL DEFAULT now()
);

145
db/schema.d/97c-security-seed.sql Normal file
View file

@ -0,0 +1,145 @@
-- ===========================================================================
-- 97c-security-seed.sql : Wave J 시드 (72-security DDL 이후).
-- 토큰볼트·3DS·AVS/CVV·펀딩지시·DCC·채그백수수료·명세서·규제보고 소급 적재.
-- idempotent 가드. 대량 매입 성능 고려하여 최근 구간 위주 + 요약은 전량.
-- ===========================================================================
SELECT setseed(0.51);
-- ---------------------------------------------------------------------------
-- 1. 토큰볼트: 기존 card_limit 의 카드번호를 토큰화 (PAN 원문 미저장).
-- ---------------------------------------------------------------------------
INSERT INTO card_vault (token, pan_masked, pan_hash, bin, last4, card_type, issuer, exp_ym)
SELECT 'TKN-' || substr(md5(cl.card_no), 1, 12),
substr(cl.card_no,1,4) || '-****-****-' || right(cl.card_no,4),
encode(sha256(cl.card_no::bytea), 'hex'),
substr(cl.card_no,1,6), right(cl.card_no,4),
CASE WHEN (('x'||substr(md5(cl.card_no),1,4))::bit(16)::int) % 3 = 0 THEN 'CHECK' ELSE 'CREDIT' END,
(ARRAY['BC','KB','SHINHAN','HYUNDAI','SAMSUNG','LOTTE','NH','HANA'])[1 + (('x'||substr(md5(cl.card_no),5,4))::bit(16)::int) % 8],
to_char(current_date + ((('x'||substr(md5(cl.card_no),9,3))::bit(12)::int % 48)) * interval '1 month','YYYYMM')
FROM card_limit cl
ON CONFLICT (token) DO NOTHING;
-- ---------------------------------------------------------------------------
-- 2. 3DS/SCA: 비대면(EDI/FOREIGN) 매입에 3DS 인증결과 부여 (최근 3개월 구간).
-- ---------------------------------------------------------------------------
INSERT INTO au_3ds (tds_id, purchase_id, version, eci, cavv, ds_trans_id, auth_status, liability)
SELECT nextval('au_3ds_seq'), p.purchase_id, '2.2.0',
CASE WHEN r < 0.85 THEN '05' WHEN r < 0.95 THEN '06' ELSE '07' END,
substr(md5(p.purchase_id::text),1,28),
'DS-' || substr(md5(p.purchase_id::text||'ds'),1,16),
CASE WHEN r < 0.85 THEN 'Y' WHEN r < 0.93 THEN 'A' WHEN r < 0.97 THEN 'N' ELSE 'U' END,
CASE WHEN r < 0.93 THEN 'ISSUER' ELSE 'MERCHANT' END
FROM (SELECT purchase_id, random() r FROM purchase
WHERE channel IN ('EDI','FOREIGN') AND purchase_id < 10000000) p
WHERE NOT EXISTS (SELECT 1 FROM au_3ds t WHERE t.purchase_id = p.purchase_id);
-- ---------------------------------------------------------------------------
-- 3. AVS/CVV 검증 (전 채널, 최근 3개월).
-- ---------------------------------------------------------------------------
INSERT INTO au_verify (vrf_id, purchase_id, avs_code, cvv_code, risk_score, decision)
SELECT nextval('au_verify_seq'), p.purchase_id,
(ARRAY['Y','Y','Y','A','Z','N','U'])[1 + (p.purchase_id % 7)],
(ARRAY['M','M','M','M','N','P','U'])[1 + (p.purchase_id % 7)],
(p.purchase_id * 7919) % 1000,
CASE WHEN (p.purchase_id * 7919) % 1000 > 900 THEN 'DECLINE'
WHEN (p.purchase_id * 7919) % 1000 > 750 THEN 'REVIEW' ELSE 'APPROVE' END
FROM purchase p WHERE p.purchase_id < 10000000
AND NOT EXISTS (SELECT 1 FROM au_verify v WHERE v.purchase_id = p.purchase_id);
-- ---------------------------------------------------------------------------
-- 4. 펀딩 지시 (순액정산→가맹점 지급, 은행 rails). 펀딩건에 1:1.
-- ---------------------------------------------------------------------------
INSERT INTO st_funding_instr (instr_id, merchant_id, biz_date, bank_code, account_no, amount, rail, status, confirmed_at)
SELECT nextval('st_fundinstr_seq'), f.merchant_id, f.biz_date,
(ARRAY['KB','SHINHAN','HANA','NH','WOORI'])[1 + (('x'||substr(md5(f.merchant_id),1,4))::bit(16)::int) % 5],
lpad(((('x'||substr(md5(f.merchant_id),5,6))::bit(24)::int))::text,12,'0'),
f.deposit, 'FIRMBANK',
CASE WHEN f.deposit <= 0 THEN 'RETURNED' WHEN random() < 0.995 THEN 'CONFIRMED' ELSE 'SENT' END,
CASE WHEN random() < 0.995 THEN f.biz_date::timestamptz + interval '1 day 14 hours' ELSE NULL END
FROM st_merchant_funding f
WHERE NOT EXISTS (SELECT 1 FROM st_funding_instr i WHERE i.merchant_id=f.merchant_id AND i.biz_date=f.biz_date);
-- return_code 부여(반환건)
UPDATE st_funding_instr SET return_code='R01-계좌불일치'
WHERE status='RETURNED' AND return_code IS NULL;
-- ---------------------------------------------------------------------------
-- 5. DCC (해외카드 매입 = channel FOREIGN 일부). 승인시 환율고정.
-- ---------------------------------------------------------------------------
INSERT INTO ac_dcc (dcc_id, purchase_id, base_ccy, txn_ccy, base_amount, txn_amount, fx_rate, markup_bps, opted_in)
SELECT nextval('ac_dcc_seq'), p.purchase_id, 'KRW',
(ARRAY['USD','JPY','EUR','CNY'])[1 + (p.purchase_id % 4)],
p.amount,
round(p.amount / fx.rate, 2),
fx.rate, 300, true
FROM purchase p
CROSS JOIN LATERAL (SELECT (ARRAY[1330.0, 8.9, 1440.0, 185.0])[1 + (p.purchase_id % 4)] AS rate) fx
WHERE p.channel='FOREIGN' AND p.purchase_id < 10000000
AND NOT EXISTS (SELECT 1 FROM ac_dcc d WHERE d.purchase_id = p.purchase_id);
-- ---------------------------------------------------------------------------
-- 6. 채그백 수수료 (기존 분쟁건에 건당 부과) + 분쟁 SLA/fraud 채움.
-- ---------------------------------------------------------------------------
UPDATE ac_dispute SET sla_due = opened_at::date + 45,
fraud_flag = (reason_code IN ('10.4','4853'))
WHERE sla_due IS NULL;
INSERT INTO st_cb_fee (cbfee_id, dispute_id, merchant_id, fee_amount, stage, billed, biz_date)
SELECT nextval('st_cbfee_seq'), d.dispute_id, d.merchant_id,
CASE d.stage WHEN 'ARBITRATION' THEN 50000 WHEN 'PRE_ARB' THEN 30000 ELSE 15000 END,
d.stage, (d.status IN ('LOST','ACCEPTED')), d.opened_at::date
FROM ac_dispute d
WHERE NOT EXISTS (SELECT 1 FROM st_cb_fee f WHERE f.dispute_id = d.dispute_id);
-- ---------------------------------------------------------------------------
-- 7. retrieval request (분쟁 전 단계 조회요청) — 분쟁건의 일부 + 별도 케이스.
-- ---------------------------------------------------------------------------
INSERT INTO ac_retrieval (retr_id, purchase_id, merchant_id, reason, status, sla_due, fulfilled_at)
SELECT nextval('ac_retrieval_seq'), d.purchase_id, d.merchant_id,
(ARRAY['거래내역요청','매출전표사본','서명확인','상품수령증빙'])[1 + (d.dispute_id % 4)],
(ARRAY['FULFILLED','FULFILLED','OPEN','EXPIRED'])[1 + (d.dispute_id % 4)],
d.opened_at::date + 20,
CASE WHEN d.dispute_id % 4 < 2 THEN d.opened_at::timestamptz + interval '5 days' ELSE NULL END
FROM ac_dispute d
WHERE d.stage IN ('REPRESENT','PRE_ARB','ARBITRATION')
AND NOT EXISTS (SELECT 1 FROM ac_retrieval r WHERE r.purchase_id = d.purchase_id);
-- ---------------------------------------------------------------------------
-- 8. 가맹점 월 명세서 (전 기간 월별 집계).
-- ---------------------------------------------------------------------------
INSERT INTO rp_merchant_stmt (stmt_id, merchant_id, stmt_month, gross_sales, txn_count,
total_fees, interchange, scheme_fee, markup, cb_fees, net_deposit)
SELECT nextval('rp_stmt_seq'), s.merchant_id, s.mth,
s.gross, s.cnt, s.fees, s.ic, s.sf, s.mk,
coalesce(cf.cbf,0),
s.gross - s.fees - coalesce(cf.cbf,0)
FROM (
SELECT p.merchant_id, to_char(p.biz_date,'YYYYMM') mth,
sum(CASE WHEN p.status='S' THEN p.amount ELSE 0 END) gross, count(*) cnt,
coalesce(sum(fc.mdr_total),0) fees, coalesce(sum(fc.interchange),0) ic,
coalesce(sum(fc.scheme_fee),0) sf, coalesce(sum(fc.markup),0) mk
FROM purchase p LEFT JOIN st_fee_component fc ON fc.purchase_id=p.purchase_id
GROUP BY p.merchant_id, to_char(p.biz_date,'YYYYMM')
) s
LEFT JOIN (
SELECT merchant_id, to_char(biz_date,'YYYYMM') mth, sum(fee_amount) cbf
FROM st_cb_fee GROUP BY merchant_id, to_char(biz_date,'YYYYMM')
) cf ON cf.merchant_id=s.merchant_id AND cf.mth=s.mth
WHERE s.gross > 0
ON CONFLICT (merchant_id, stmt_month) DO NOTHING;
-- ---------------------------------------------------------------------------
-- 9. 규제보고 (여신전문금융업법: 정산주기 준수·수수료 공시·거래량).
-- ---------------------------------------------------------------------------
INSERT INTO rp_regulatory (reg_id, report_type, period, metric, value, compliant, note)
SELECT nextval('rp_reg_seq'), 'SETTLE_CYCLE', to_char(biz_date,'YYYYMM'),
'평균정산일수(D+n)', round(avg((settled_at::date - biz_date)),2),
(avg((settled_at::date - biz_date)) <= 3), '여전법 정산주기 준수(≤3영업일)'
FROM settlement GROUP BY to_char(biz_date,'YYYYMM')
ON CONFLICT DO NOTHING;
INSERT INTO rp_regulatory (reg_id, report_type, period, metric, value, compliant, note)
SELECT nextval('rp_reg_seq'), 'TXN_VOLUME', to_char(biz_date,'YYYYMM'),
'월 매입건수', count(*), true, '거래량 보고'
FROM purchase GROUP BY to_char(biz_date,'YYYYMM')
ON CONFLICT DO NOTHING;

15
docs/PARITY_ANALYSIS.md
View file

@ -5,8 +5,19 @@
> (딥리서치 검증 출처: OCC Merchant Processing Handbook, Fed Philadelphia Clearing&
> Settlement, Berlin Group ISO 8583, Visa/Mastercard 규정, BC Card), 우리 시스템을
> 도메인별로 **DB 실측**해 대조했다.
> **결론(요약)**: **가중 패리티 ≈ 70%**. 핵심 거래·정산·회계 메커니즘은 실제와 동등,
> 카드보안(PCI/3DS/토큰)과 비기능(HA/DR·실스케일 TPS)이 약함.
> **결론(요약, Wave J 이후)**: **가중 패리티 ≈ 80%** (초판 70% → 카드보안·자금·규제 보강).
> 핵심 거래·정산·회계·보안 메커니즘이 실제와 동등. 남은 갭은 실 카드망 물리연동·HA/DR.
>
> ### Wave J 재채점 (카드보안·자금·운영 보강)
> | 도메인 | 이전 | 현재 | 보강 내용 |
> |---|---|---|---|
> | 승인 | 60% | **82%** | PCI 토큰볼트(6,680)·3DS/SCA(1,235)·AVS/CVV(8,191) + 서비스 TOKENIZE/AUTH_3DS/AUTH_VERIFY |
> | 정산·펀딩 | 75% | **85%** | 펌뱅킹 펀딩지시/반환(355k)·DCC 다통화(426) + ST_FUNDINSTR/AC_DCC |
> | 수수료 | 80% | **88%** | 채그백수수료(175)·가맹점월명세서(12.8k) |
> | 분쟁 | 70% | **82%** | retrieval request(127)·SLA타이머·fraud_flag + ACQ_RETRIEVAL |
> | 리포팅 | 70% | **85%** | 가맹점명세서·여전법 규제보고(134) |
> | 비기능 | 35% | **50%** | 토큰볼트로 PCI 스코프 축소·PAN 원문 미저장 |
> **가중 합계 ≈ 80 / 100** (6개 신규 서비스 전부 런타임 검증, 미결 2PC 0).
## 도메인별 패리티 (가중 100점)