/* 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/vl_ol_0032.pgc" /* @tier easy @module vl @transform validation-online */ /* * vl_ol_0032.pgc - 정합성 리포트 요약 서비스 (VL_OL_0032) [tier=easy] * * 입력 영업일의 대상/완료/불일치/정산 건수와 금액합계를 여러 집계 SQL 로 * 모아 하나의 리포트 응답으로 구성한다. */ #include #include #include #include "txcore.h" #include "txcore_dbio.h" #include "acq_util.h" #include "vl_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 17 "app/online/vl_ol_0032.pgc" TX_SERVICE(VL_OL_0032, ctx) { /* exec sql begin declare section */ #line 22 "app/online/vl_ol_0032.pgc" char h_bizdate [ 9 ] ; #line 23 "app/online/vl_ol_0032.pgc" long h_total_cnt ; #line 24 "app/online/vl_ol_0032.pgc" long h_total_amt ; #line 25 "app/online/vl_ol_0032.pgc" long h_done_cnt ; #line 26 "app/online/vl_ol_0032.pgc" long h_fail_cnt ; #line 27 "app/online/vl_ol_0032.pgc" long h_settle_cnt ; #line 28 "app/online/vl_ol_0032.pgc" long h_settle_amt ; /* exec sql end declare section */ #line 29 "app/online/vl_ol_0032.pgc" char bizdate[16]; char amt_disp[32]; long fail_rate; tx_log(TX_LOG_INFO, "[VL_OL_0032] 정합성 리포트 요약 서비스 진입"); if (tx_buf_get(ctx->in, "BIZDATE", bizdate, sizeof(bizdate)) != TX_OK) { tx_log(TX_LOG_ERROR, "[VL_OL_0032] 영업일(BIZDATE) 누락"); tx_buf_sets(ctx->out, "ERRCODE", "VL3200"); tx_return(ctx, TX_EINVAL, ctx->out); return; } if (!date_is_valid(bizdate)) { tx_log(TX_LOG_WARN, "[VL_OL_0032] 영업일 형식 오류 date=%s", bizdate); tx_buf_sets(ctx->out, "ERRCODE", "VL3201"); tx_return(ctx, TX_EINVAL, ctx->out); return; } strncpy(h_bizdate, bizdate, sizeof(h_bizdate) - 1); h_bizdate[sizeof(h_bizdate) - 1] = '\0'; /* 1) 대상 전체 건수/금액 */ h_total_cnt = 0; h_total_amt = 0; { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select count ( * ) , coalesce ( SUM ( amount ) , 0 ) from vl_ledger where biz_date = $1 ", ECPGt_char,(h_bizdate),(long)9,(long)1,(9)*sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_long,&(h_total_cnt),(long)1,(long)1,sizeof(long), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_long,&(h_total_amt),(long)1,(long)1,sizeof(long), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 59 "app/online/vl_ol_0032.pgc" if (sqlca.sqlcode != TX_SQL_OK) { TX_DBIO_LOG_ERR("리포트 대상집계 vl_ledger"); tx_buf_sets(ctx->out, "ERRCODE", "VL3208"); tx_return(ctx, TX_EDB, ctx->out); return; } /* 2) 완료/불일치 건수 */ h_done_cnt = 0; h_fail_cnt = 0; { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select coalesce ( SUM ( case when status = 'M' then 1 else 0 end ) , 0 ) , coalesce ( SUM ( case when status = 'U' then 1 else 0 end ) , 0 ) from vl_ledger where biz_date = $1 ", ECPGt_char,(h_bizdate),(long)9,(long)1,(9)*sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_long,&(h_done_cnt),(long)1,(long)1,sizeof(long), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_long,&(h_fail_cnt),(long)1,(long)1,sizeof(long), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 76 "app/online/vl_ol_0032.pgc" if (sqlca.sqlcode != TX_SQL_OK) { TX_DBIO_LOG_ERR("리포트 상태집계 vl_ledger"); tx_buf_sets(ctx->out, "ERRCODE", "VL3209"); tx_return(ctx, TX_EDB, ctx->out); return; } /* 3) 정산 건수/금액 */ h_settle_cnt = 0; h_settle_amt = 0; { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select count ( * ) , coalesce ( SUM ( settle_amt ) , 0 ) from vl_settle where biz_date = $1 ", ECPGt_char,(h_bizdate),(long)9,(long)1,(9)*sizeof(char), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_long,&(h_settle_cnt),(long)1,(long)1,sizeof(long), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_long,&(h_settle_amt),(long)1,(long)1,sizeof(long), ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);} #line 91 "app/online/vl_ol_0032.pgc" if (sqlca.sqlcode != TX_SQL_OK) { TX_DBIO_LOG_ERR("리포트 정산집계 vl_settle"); tx_buf_sets(ctx->out, "ERRCODE", "VL3210"); tx_return(ctx, TX_EDB, ctx->out); return; } /* 불일치율(%) = 불일치 / 대상 * 100 */ fail_rate = (h_total_cnt > 0) ? (h_fail_cnt * 100 / h_total_cnt) : 0; memset(amt_disp, 0, sizeof(amt_disp)); amount_format_won(h_total_amt, amt_disp, sizeof(amt_disp)); tx_buf_reset(ctx->out); tx_buf_sets(ctx->out, "BIZDATE", bizdate); tx_buf_setlong(ctx->out, "TOTALCNT", h_total_cnt); tx_buf_setlong(ctx->out, "TOTALAMT", h_total_amt); tx_buf_sets(ctx->out, "TOTALAMTDISP", amt_disp); tx_buf_setlong(ctx->out, "DONECNT", h_done_cnt); tx_buf_setlong(ctx->out, "FAILCNT", h_fail_cnt); tx_buf_setlong(ctx->out, "SETTLECNT", h_settle_cnt); tx_buf_setlong(ctx->out, "SETTLEAMT", h_settle_amt); tx_buf_setlong(ctx->out, "FAILRATE", fail_rate); tx_buf_sets(ctx->out, "ERRCODE", RESP_OK); tx_log(TX_LOG_INFO, "[VL_OL_0032] 리포트 date=%s 대상=%ld 완료=%ld 불일치=%ld 정산=%ld", bizdate, h_total_cnt, h_done_cnt, h_fail_cnt, h_settle_cnt); tx_return(ctx, TX_OK, ctx->out); }