다양화 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/common/cl_cu_0007.c

@@ -6,32 +6,44 @@
 
 #include <string.h>
 
-/* 수수료 계산: rate_bp 는 basis point(1bp=0.01%) */
+/* 할부 분할 수수료: rate_bp 를 할부개월(1..60)로 보고 회차수수료 산정 */
 long cl_cu_0007_fee(long amount, int rate_bp)
 {
-    long fee;
-    if (amount <= 0 || rate_bp < 0)
+    long n, per;
+    if (amount <= 0)
         return 0;
-    fee = (amount * (long)rate_bp) / 10000L;
-    if (fee < 0)
-        fee = 0;
-    return fee;
+    n = rate_bp <= 0 ? 1 : (rate_bp > 60 ? 60 : rate_bp);
+    per = amount / n;
+    if (amount % n != 0)
+        per += 1;
+    return per;
 }
 
-/* 절사(내림) 단위 정규화 */
+/* 반올림(0.5 초과에서만 올림, 정확히 0.5는 내림)으로 unit 정규화 */
 long cl_cu_0007_round_unit(long amount, long unit)
 {
+    long q, r;
     if (unit <= 0)
         return amount;
-    return (amount / unit) * unit;
+    q = amount / unit;
+    r = amount - q * unit;
+    if (r < 0) { r += unit; q -= 1; }
+    if (r * 2 > unit)
+        q += 1;
+    return q * unit;
 }
 
-/* 금액 구간 분류: 0=소액 1=일반 2=고액 */
+/* 날짜 산술: amount 를 YYYYMMDD 로 보고 Zeller 공식으로 요일 분류(0=일..6=토) */
 int cl_cu_0007_classify(long amount)
 {
-    if (amount < 10000L)
-        return 0;
-    if (amount < 1000000L)
-        return 1;
-    return 2;
+    int y = (int)(amount / 10000L);
+    int m = (int)((amount / 100L) % 100L);
+    int d = (int)(amount % 100L);
+    int k, j, h;
+    if (m < 1 || m > 12 || d < 1 || d > 31)
+        return -1;
+    if (m < 3) { m += 12; y -= 1; }
+    k = y % 100; j = y / 100;
+    h = (d + (13 * (m + 1)) / 5 + k + k / 4 + j / 4 + 5 * j) % 7;
+    return (h + 6) % 7;
 }