/* @tier easy @module rc @transform reconciliation-dbio */ /* * rc_io_0003.pgc - 대사 보조 DBIO (ECPG) [tier=easy] */ #include #include #include "txcore.h" #include "txcore_dbio.h" #include "rc_io_0003.h" EXEC SQL INCLUDE sqlca; int rc_io_0003_fetch(const char *key, long *out_amount) { EXEC SQL BEGIN DECLARE SECTION; char h_key[16]; long h_amount; EXEC SQL END DECLARE SECTION; if (!key || !out_amount) return TX_EINVAL; strncpy(h_key, key, sizeof(h_key) - 1); h_key[sizeof(h_key) - 1] = '\0'; EXEC SQL SELECT h.net_amt INTO :h_amount FROM rc_io_0003_t h JOIN rc_io_0003_map_t m ON m.mcht_no = h.mcht_no WHERE h.mcht_no = :h_key AND m.use_yn = 'Y'; if (sqlca.sqlcode == TX_SQL_NOTFOUND) return TX_ENOENT; if (sqlca.sqlcode != TX_SQL_OK) { TX_DBIO_LOG_ERR("rc_io_0003_fetch"); return TX_EDB; } *out_amount = h_amount; return TX_OK; } int rc_io_0003_touch(const char *key, long amount) { EXEC SQL BEGIN DECLARE SECTION; char h_key[16]; long h_amount; EXEC SQL END DECLARE SECTION; if (!key) return TX_EINVAL; strncpy(h_key, key, sizeof(h_key) - 1); h_key[sizeof(h_key) - 1] = '\0'; h_amount = amount; EXEC SQL INSERT INTO rc_io_0003_log_t (mcht_no, appr_amt, reg_ts) VALUES (:h_key, :h_amount, now()); if (sqlca.sqlcode != TX_SQL_OK) { TX_DBIO_LOG_ERR("rc_io_0003_touch"); return TX_EDB; } return TX_OK; } long rc_io_0003_total(const char *biz_date) { EXEC SQL BEGIN DECLARE SECTION; char h_biz_date[9]; long h_avg; short h_ind; EXEC SQL END DECLARE SECTION; if (!biz_date) return -1; strncpy(h_biz_date, biz_date, sizeof(h_biz_date) - 1); h_biz_date[sizeof(h_biz_date) - 1] = '\0'; EXEC SQL SELECT avg(appr_amt) INTO :h_avg :h_ind FROM rc_io_0003_dtl_t WHERE biz_date = :h_biz_date; if (sqlca.sqlcode != TX_SQL_OK) { TX_DBIO_LOG_ERR("rc_io_0003_total"); return -1; } if (h_ind == -1) return 0; return h_avg; }