다양화 Wave2: dbio 289 + common 120 고유화 + 프로그램 206개 EXEC SQL 심화

- dbio io(289): fetch/touch/total 시그니처 유지, SQL 바디를 JOIN/집계/커서/
  upsert/DELETE 등 구조로 고유화 → 289/289 고유
- common cu(120): 유틸 시그니처 유지, Luhn/CRC/Zeller/BIN레인지/amortization/
  netting 등 실 알고리즘으로 고유화 → 120/120 고유
- 심화: 실제 EXEC SQL 없던 프로그램에 SELECT/INSERT/UPDATE/커서+tx 추가
  → online+batch 530/530 전부 실제 SQL 보유
- 전 코퍼스 프로그램 939/939 고유, 전체 docker make -j4 = EXIT 0, 958 오브젝트
- 임시 생성기 제거, inventory.json loc 실측 갱신

Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>

app/online/st_ol_0019.c

@@ -11,12 +11,14 @@
  * st_ol_0019.pgc - 정산 diff 검증(예상 vs 실제) (ST_OL_0019)  [tier=easy]
  *
  * 표준요율로 재산출한 예상 수수료와 원장에 기록된 실제 수수료의 차이를
- * 검증한다. 허용오차(tolerance)를 넘으면 불일치로 판정한다.
+ * 검증한다. 허용오차(tolerance)를 넘으면 불일치로 판정한다. 원장 금액/
+ * 수수료는 st_ledger 에서 임베디드 조회한다.
  */
 #include <stdio.h>
 #include <string.h>
 
 #include "txcore.h"
+#include "txcore_dbio.h"
 #include "acq_util.h"
 #include "st_core.h"
 
@@ -89,7 +91,7 @@ struct sqlca_t *ECPGget_sqlca(void);
 
 #endif
 
-#line 15 "app/online/st_ol_0019.pgc"
+#line 17 "app/online/st_ol_0019.pgc"
 
 
 
@@ -103,10 +105,26 @@ static long st_fee_round(long amount, long rate_bp)
 
 TX_SERVICE(ST_OL_0019, ctx)
 {
-    st_rec_t rec;
+    /* exec sql begin declare section */
+     
+     
+     
+    
+#line 31 "app/online/st_ol_0019.pgc"
+ char h_key [ 16 ] ;
+ 
+#line 32 "app/online/st_ol_0019.pgc"
+ long h_amount ;
+ 
+#line 33 "app/online/st_ol_0019.pgc"
+ long h_fee ;
+/* exec sql end declare section */
+#line 34 "app/online/st_ol_0019.pgc"
+
+
     char key[16];
     long std_bp = 0, tol = 0, expected, diff;
-    int  rc, mismatch;
+    int  mismatch;
 
     tx_log(TX_LOG_INFO, "[ST_OL_0019] 정산 diff 검증 진입");
 
@@ -119,25 +137,45 @@ TX_SERVICE(ST_OL_0019, ctx)
     if (std_bp <= 0) std_bp = 180;      /* 표준요율 1.80% */
     if (tol < 0) tol = 0;
 
-    memset(&rec, 0, sizeof(rec));
-    rc = st_rec_select(key, &rec);
-    if (rc != TX_OK) {
-        tx_return(ctx, rc, ctx->out);
+    /* 원장 금액/실제수수료 조회 */
+    strncpy(h_key, key, sizeof(h_key) - 1);
+    h_key[sizeof(h_key) - 1] = '\0';
+    h_amount = 0;
+    h_fee    = 0;
+    { ECPGdo(__LINE__, 0, 1, NULL, 0, ECPGst_normal, "select amount , fee from st_ledger where key = $1 ", 
+	ECPGt_char,(h_key),(long)16,(long)1,(16)*sizeof(char), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, 
+	ECPGt_long,&(h_amount),(long)1,(long)1,sizeof(long), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, 
+	ECPGt_long,&(h_fee),(long)1,(long)1,sizeof(long), 
+	ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EORT);}
+#line 59 "app/online/st_ol_0019.pgc"
+
+
+    if (sqlca.sqlcode == TX_SQL_NOTFOUND) {
+        tx_log(TX_LOG_WARN, "[ST_OL_0019] 원장 없음 key=%s", key);
+        tx_return(ctx, TX_ENOENT, ctx->out);
+        return;
+    }
+    if (sqlca.sqlcode != TX_SQL_OK) {
+        TX_DBIO_LOG_ERR("SELECT st_ledger diff");
+        tx_return(ctx, TX_EDB, ctx->out);
         return;
     }
 
-    expected = st_fee_round(rec.amount, std_bp);
-    diff     = rec.fee - expected;
+    expected = st_fee_round(h_amount, std_bp);
+    diff     = h_fee - expected;
     mismatch = ((diff < 0 ? -diff : diff) > tol);
 
     tx_buf_reset(ctx->out);
     tx_buf_sets(ctx->out, "RESPCODE", mismatch ? RESP_INVALID : RESP_OK);
     tx_buf_sets(ctx->out, "KEY", key);
+    tx_buf_setlong(ctx->out, "AMOUNT", h_amount);
     tx_buf_setlong(ctx->out, "EXPECTED", expected);
-    tx_buf_setlong(ctx->out, "ACTUAL", rec.fee);
+    tx_buf_setlong(ctx->out, "ACTUAL", h_fee);
     tx_buf_setlong(ctx->out, "DIFF", diff);
     tx_buf_sets(ctx->out, "VERDICT", mismatch ? "MISMATCH" : "OK");
     tx_log(TX_LOG_INFO, "[ST_OL_0019] diff key=%s 예상=%ld 실제=%ld diff=%ld %s",
-           key, expected, rec.fee, diff, mismatch ? "불일치" : "일치");
+           key, expected, h_fee, diff, mismatch ? "불일치" : "일치");
     tx_return(ctx, mismatch ? TX_FAIL : TX_OK, ctx->out);
 }