/* @tier medium @module mm @transform master-dbio */ /* * mm_io_0009.pgc - 마스터 보조 DBIO (ECPG) [tier=medium] */ #include #include #include "txcore.h" #include "txcore_dbio.h" #include "mm_io_0009.h" EXEC SQL INCLUDE sqlca; int mm_io_0009_fetch(const char *key, long *out_amount) { EXEC SQL BEGIN DECLARE SECTION; char h_key[20]; long h_amt; short h_ind; 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 max(credit_lim) INTO :h_amt:h_ind FROM mst_product WHERE acct_no = :h_key; if (sqlca.sqlcode == TX_SQL_NOTFOUND) return TX_ENOENT; if (sqlca.sqlcode != TX_SQL_OK) { TX_DBIO_LOG_ERR("mm_io_0009_fetch"); return TX_EDB; } if (h_ind < 0) { *out_amount = 0; return TX_ENOENT; } *out_amount = h_amt; return TX_OK; } int mm_io_0009_touch(const char *key, long amount) { EXEC SQL BEGIN DECLARE SECTION; char h_key[20]; long h_amt; 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_amt = amount; EXEC SQL INSERT INTO mst_product (acct_no, credit_lim, reg_dt, reg_ts) VALUES (:h_key, :h_amt, to_char(now(), 'YYYYMMDD'), now()); if (sqlca.sqlcode != TX_SQL_OK) { TX_DBIO_LOG_ERR("mm_io_0009_touch"); return TX_EDB; } return TX_OK; } long mm_io_0009_total(const char *biz_date) { EXEC SQL BEGIN DECLARE SECTION; char h_bd[9]; long h_cnt; EXEC SQL END DECLARE SECTION; if (!biz_date) return -1; strncpy(h_bd, biz_date, sizeof(h_bd) - 1); h_bd[sizeof(h_bd) - 1] = '\0'; EXEC SQL SELECT count(*) INTO :h_cnt FROM mst_product WHERE reg_dt = :h_bd AND credit_lim <> 0; if (sqlca.sqlcode != TX_SQL_OK) { TX_DBIO_LOG_ERR("mm_io_0009_total"); return -1; } return h_cnt; }