/* @tier medium @module py @transform payment-dbio */ /* * py_io_0011.pgc - 지급 보조 DBIO (ECPG) [tier=medium] */ #include #include #include "txcore.h" #include "txcore_dbio.h" #include "py_io_0011.h" EXEC SQL INCLUDE sqlca; int py_io_0011_fetch(const char *key, long *out_amount) { EXEC SQL BEGIN DECLARE SECTION; char h_key[32]; long h_val; 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 hold_amt INTO :h_val:h_ind FROM py_payout_dtl WHERE payout_key = :h_key AND paid_flag = 'Y'; if (sqlca.sqlcode == TX_SQL_NOTFOUND) return TX_ENOENT; if (sqlca.sqlcode != TX_SQL_OK) { TX_DBIO_LOG_ERR("py_io_0011_fetch"); return TX_EDB; } *out_amount = (h_ind < 0) ? 0 : h_val; return TX_OK; } int py_io_0011_touch(const char *key, long amount) { EXEC SQL BEGIN DECLARE SECTION; char h_key[32]; 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 UPDATE py_payout_dtl SET hold_amt = :h_amt WHERE payout_key = :h_key AND pay_amt >= :h_amt; if (sqlca.sqlcode != TX_SQL_OK) { TX_DBIO_LOG_ERR("py_io_0011_touch"); return TX_EDB; } if (sqlca.sqlerrd[2] == 0) return TX_ENOENT; return TX_OK; } long py_io_0011_total(const char *biz_date) { EXEC SQL BEGIN DECLARE SECTION; char h_dt[16]; long h_sum; EXEC SQL END DECLARE SECTION; if (!biz_date) return -1; strncpy(h_dt, biz_date, sizeof(h_dt) - 1); h_dt[sizeof(h_dt) - 1] = '\0'; EXEC SQL SELECT coalesce(sum(a.pay_amt), 0) INTO :h_sum FROM py_payout_dtl a JOIN py_payout_hold b ON a.payout_key = b.payout_key WHERE a.pay_dt = :h_dt; if (sqlca.sqlcode != TX_SQL_OK) { TX_DBIO_LOG_ERR("py_io_0011_total"); return -1; } return h_sum; }