/* Processed by ecpg (15.18 (Debian 15.18-0+deb12u1)) */ /* These include files are added by the preprocessor */ #include #include #include /* End of automatic include section */ #line 1 "app/online/rc_ol_0028.pgc" /* @tier easy @module rc @transform reconciliation-online */ /* * rc_ol_0028.pgc - 대사 균형검증 (CURSOR) 온라인 서비스 (RC_OL_0028) * * 요청 영업일(BIZDATE)의 원장을 커서로 순회하며 승인 잔여금액과 * 매입/정산금액을 각각 누적하여 두 축의 균형(밸런스) 여부를 검증한다. * * 업무규칙: * - 접수('R') → 승인 잔여 SUMAPPR 에 amount 누적 * - 매입확정('M')/정산('S') → 매입/정산 SUMCAP 에 amount 누적 * - 차이 GAP = SUMAPPR - SUMCAP * - GAP 이 0 이면 BALANCED=Y, 아니면 BALANCED=N * * 응답: BIZDATE, SUMAPPR, SUMCAP, GAP, BALANCED (읽기 전용) */ #include #include #include "txcore.h" #include "txcore_dbio.h" #include "acq_util.h" #include "rc_core.h" #line 1 "/usr/include/postgresql/sqlca.h" #ifndef POSTGRES_SQLCA_H #define POSTGRES_SQLCA_H #ifndef PGDLLIMPORT #if defined(WIN32) || defined(__CYGWIN__) #define PGDLLIMPORT __declspec (dllimport) #else #define PGDLLIMPORT #endif /* __CYGWIN__ */ #endif /* PGDLLIMPORT */ #define SQLERRMC_LEN 150 #ifdef __cplusplus extern "C" { #endif struct sqlca_t { char sqlcaid[8]; long sqlabc; long sqlcode; struct { int sqlerrml; char sqlerrmc[SQLERRMC_LEN]; } sqlerrm; char sqlerrp[8]; long sqlerrd[6]; /* Element 0: empty */ /* 1: OID of processed tuple if applicable */ /* 2: number of rows processed */ /* after an INSERT, UPDATE or */ /* DELETE statement */ /* 3: empty */ /* 4: empty */ /* 5: empty */ char sqlwarn[8]; /* Element 0: set to 'W' if at least one other is 'W' */ /* 1: if 'W' at least one character string */ /* value was truncated when it was */ /* stored into a host variable. */ /* * 2: if 'W' a (hopefully) non-fatal notice occurred */ /* 3: empty */ /* 4: empty */ /* 5: empty */ /* 6: empty */ /* 7: empty */ char sqlstate[5]; }; struct sqlca_t *ECPGget_sqlca(void); #ifndef POSTGRES_ECPG_INTERNAL #define sqlca (*ECPGget_sqlca()) #endif #ifdef __cplusplus } #endif #endif #line 24 "app/online/rc_ol_0028.pgc" TX_SERVICE(RC_OL_0028, ctx) { /* exec sql begin declare section */ #line 29 "app/online/rc_ol_0028.pgc" char h_biz_date [ 9 ] ; #line 30 "app/online/rc_ol_0028.pgc" char h_status [ 2 ] ; #line 31 "app/online/rc_ol_0028.pgc" long h_amount ; /* exec sql end declare section */ #line 32 "app/online/rc_ol_0028.pgc" char bizdate[16]; long sumappr = 0, sumcap = 0, gap = 0; long scanned = 0; const char *balanced; int opened = 0; tx_log(TX_LOG_INFO, "[RC_OL_0028] 대사 균형검증 서비스 진입"); if (tx_buf_get(ctx->in, "BIZDATE", bizdate, sizeof(bizdate)) != TX_OK) { tx_log(TX_LOG_ERROR, "[RC_OL_0028] BIZDATE 누락"); tx_return(ctx, TX_EINVAL, ctx->out); return; } if (!date_is_valid(bizdate)) { tx_log(TX_LOG_WARN, "[RC_OL_0028] 영업일 형식 오류 date=%s", bizdate); tx_return(ctx, TX_EINVAL, ctx->out); return; } memset(h_biz_date, 0, sizeof(h_biz_date)); strncpy(h_biz_date, bizdate, sizeof(h_biz_date) - 1); ECPGset_var( 0, ( h_biz_date ), __LINE__);\ /* declare cur_rc_ol_0028 cursor for select amount , status from rc_ledger where biz_date = $1 order by key */ #line 60 "app/online/rc_ol_0028.pgc" #line 60 "app/online/rc_ol_0028.pgc" { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "declare cur_rc_ol_0028 cursor for select amount , status from rc_ledger where biz_date = $1 order by key", ECPGt_char,(h_biz_date),(long)9,(long)1,(9)*sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);} #line 62 "app/online/rc_ol_0028.pgc" if (sqlca.sqlcode != TX_SQL_OK) { TX_DBIO_LOG_ERR("OPEN cur_rc_ol_0028"); tx_return(ctx, TX_EDB, ctx->out); return; } opened = 1; for (;;) { { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "fetch cur_rc_ol_0028", ECPGt_EOIT, ECPGt_long,&(h_amount),(long)1,(long)1,sizeof(long), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_char,(h_status),(long)2,(long)1,(2)*sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 71 "app/online/rc_ol_0028.pgc" if (sqlca.sqlcode == TX_SQL_NOTFOUND) break; if (sqlca.sqlcode != TX_SQL_OK) { TX_DBIO_LOG_ERR("FETCH cur_rc_ol_0028"); break; } scanned++; /* 승인 잔여(접수) vs 매입/정산 완료로 양측 누적 */ if (strcmp(h_status, RC_ST_RECV) == 0) { sumappr += h_amount; } else if (strcmp(h_status, RC_ST_DONE) == 0 || strcmp(h_status, RC_ST_SETTLED) == 0) { sumcap += h_amount; } } if (opened) { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "close cur_rc_ol_0028", ECPGt_EOIT, ECPGt_EORT);} #line 92 "app/online/rc_ol_0028.pgc" gap = sumappr - sumcap; balanced = (gap == 0) ? "Y" : "N"; tx_log(TX_LOG_INFO, "[RC_OL_0028] date=%s 순회=%ld 승인잔여=%ld 매입정산=%ld GAP=%ld 균형=%s", bizdate, scanned, sumappr, sumcap, gap, balanced); /* --- 불균형 방향을 진단하여 후속 조치에 참고할 로그를 남긴다 --- */ if (scanned == 0) { tx_log(TX_LOG_WARN, "[RC_OL_0028] 순회 대상 없음 date=%s → 검증 생략", bizdate); } else if (gap == 0) { tx_log(TX_LOG_INFO, "[RC_OL_0028] 승인/매입 균형 일치 date=%s", bizdate); } else if (gap > 0) { tx_log(TX_LOG_WARN, "[RC_OL_0028] 승인잔여 초과 date=%s 미매입 추정=%ld", bizdate, gap); } else { tx_log(TX_LOG_WARN, "[RC_OL_0028] 매입정산 초과 date=%s 과매입 추정=%ld", bizdate, -gap); } tx_buf_reset(ctx->out); tx_buf_sets(ctx->out, "BIZDATE", bizdate); tx_buf_setlong(ctx->out, "SUMAPPR", sumappr); tx_buf_setlong(ctx->out, "SUMCAP", sumcap); tx_buf_setlong(ctx->out, "GAP", gap); tx_buf_sets(ctx->out, "BALANCED", balanced); tx_log(TX_LOG_INFO, "[RC_OL_0028] 대사 균형검증 서비스 정상 종료 date=%s 균형=%s", bizdate, balanced); tx_return(ctx, TX_OK, ctx->out); }