고도화: 전 모듈 dbio 25→40 · batch 17→22 세분화 (+432본, 전부 고유)
- 11개 모듈 각 dbio +15(→40), batch +5(→22) 새 고유 ECPG 프로그램 + 카피북 헤더 (window/HAVING/JOIN/FILTER/NOT EXISTS/upsert/correlated/INSERT..SELECT 등 구조 다양) - 전 코퍼스 .pgc 1004/1004 정규화-고유 (dup 그룹 0) - 통합 검증: 12서버 runok, 333 서비스, 242 배치 바이너리, 매입체인 XA 커밋, prepared_xacts=0 Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
This commit is contained in:
forge-bot
parent
05ad8a3064
commit
fc16ea64c8
422 changed files with 8717 additions and 0 deletions
50
app/src/cl/batch/cl_gap_batch.pgc
Normal file
50
app/src/cl/batch/cl_gap_batch.pgc
Normal file
|
|
@ -0,0 +1,50 @@
|
|||
/*
|
||||
* cl_gap_batch.pgc - cl 일마감 저장건수 vs 실매입 대사 배치 (커서 + XA).
|
||||
*
|
||||
* period_key 프리픽스의 DAILY 마감을 커서로 훑어, 각 마감의 저장 txn_count 와
|
||||
* 실제 purchase 건수를 비교하여 불일치 마감 수를 집계한다. 전 구간 ONE global XA.
|
||||
* host 변수는 전용 카피북 cl_gap_cpy.h 를 EXEC SQL INCLUDE 로 가져온다.
|
||||
* Usage: cl_gap_batch [YYYY-MM]
|
||||
*/
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
#include <atmi.h>
|
||||
|
||||
int main(int argc, char **argv)
|
||||
{
|
||||
const char *prefix = (argc > 1) ? argv[1] : "2026-07";
|
||||
long checked = 0, mismatch = 0;
|
||||
|
||||
EXEC SQL INCLUDE cl_gap_cpy;
|
||||
|
||||
strncpy(g_prefix, prefix, sizeof(g_prefix)-1); g_prefix[sizeof(g_prefix)-1] = 0;
|
||||
|
||||
if (tpinit(NULL) < 0) { fprintf(stderr, "tpinit FAIL: %s\n", tpstrerror(tperrno)); return 1; }
|
||||
if (tpopen() < 0) { fprintf(stderr, "tpopen FAIL: %s\n", tpstrerror(tperrno)); return 1; }
|
||||
if (tpbegin(60, 0) < 0) { fprintf(stderr, "tpbegin FAIL: %s\n", tpstrerror(tperrno)); return 1; }
|
||||
|
||||
EXEC SQL DECLARE cgap CURSOR FOR
|
||||
SELECT close_id, to_char(biz_date,'YYYY-MM-DD'), txn_count FROM cl_close_log
|
||||
WHERE close_type = 'DAILY' AND period_key LIKE :g_prefix || '%' AND status <> 'X'
|
||||
ORDER BY biz_date;
|
||||
EXEC SQL OPEN cgap;
|
||||
if (sqlca.sqlcode < 0) { fprintf(stderr, "OPEN FAIL [%d] %s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); tpabort(0); return 1; }
|
||||
|
||||
for (;;) {
|
||||
EXEC SQL FETCH cgap INTO :g_cid, :g_bizdate, :g_stored;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { fprintf(stderr, "FETCH FAIL [%d] %s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); EXEC SQL CLOSE cgap; tpabort(0); return 1; }
|
||||
EXEC SQL SELECT count(*) INTO :g_actual FROM purchase WHERE biz_date = :g_bizdate;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE cgap; tpabort(0); return 1; }
|
||||
checked++;
|
||||
if (g_stored != g_actual) mismatch++;
|
||||
}
|
||||
EXEC SQL CLOSE cgap;
|
||||
|
||||
if (tpcommit(0) < 0) { fprintf(stderr, "tpcommit FAIL: %s\n", tpstrerror(tperrno)); tpabort(0); return 1; }
|
||||
printf(">>> cl_gap_batch COMMIT: prefix=%s 검증=%ld 불일치=%ld\n", prefix, checked, mismatch);
|
||||
|
||||
tpclose(); tpterm();
|
||||
return 0;
|
||||
}
|
||||
8
app/src/cl/batch/cl_gap_cpy.h
Normal file
8
app/src/cl/batch/cl_gap_cpy.h
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
/* cl_gap_cpy.h - cl_gap_batch 전용 카피북 (host 변수 선언, EXEC SQL INCLUDE 대상). */
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
char g_prefix[16];
|
||||
char g_bizdate[16];
|
||||
long g_cid;
|
||||
long g_stored;
|
||||
long g_actual;
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
35
app/src/cl/batch/cl_purgeold_batch.pgc
Normal file
35
app/src/cl/batch/cl_purgeold_batch.pgc
Normal file
|
|
@ -0,0 +1,35 @@
|
|||
/*
|
||||
* cl_purgeold_batch.pgc - cl 오래된 마감 스냅샷 정리 배치 (DELETE range + XA).
|
||||
*
|
||||
* cutoff 이전(biz_date < cutoff) 마감 스냅샷을 한 문장으로 삭제하고 삭제행수를
|
||||
* sqlca.sqlerrd[2] 로 확인한다. ONE global XA transaction 하에서 수행.
|
||||
* host 변수는 전용 카피북 cl_purgeold_cpy.h 를 EXEC SQL INCLUDE.
|
||||
* Usage: cl_purgeold_batch [YYYY-MM-DD]
|
||||
*/
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
#include <atmi.h>
|
||||
|
||||
int main(int argc, char **argv)
|
||||
{
|
||||
const char *cutoff = (argc > 1) ? argv[1] : "2026-01-01";
|
||||
|
||||
EXEC SQL INCLUDE cl_purgeold_cpy;
|
||||
|
||||
strncpy(p_cutoff, cutoff, sizeof(p_cutoff)-1); p_cutoff[sizeof(p_cutoff)-1] = 0;
|
||||
|
||||
if (tpinit(NULL) < 0) { fprintf(stderr, "tpinit FAIL: %s\n", tpstrerror(tperrno)); return 1; }
|
||||
if (tpopen() < 0) { fprintf(stderr, "tpopen FAIL: %s\n", tpstrerror(tperrno)); return 1; }
|
||||
if (tpbegin(60, 0) < 0) { fprintf(stderr, "tpbegin FAIL: %s\n", tpstrerror(tperrno)); return 1; }
|
||||
|
||||
EXEC SQL DELETE FROM cl_snapshot WHERE biz_date < :p_cutoff;
|
||||
if (sqlca.sqlcode < 0) { fprintf(stderr, "DELETE FAIL [%d] %s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); tpabort(0); return 1; }
|
||||
p_deleted = (long) sqlca.sqlerrd[2];
|
||||
|
||||
if (tpcommit(0) < 0) { fprintf(stderr, "tpcommit FAIL: %s\n", tpstrerror(tperrno)); tpabort(0); return 1; }
|
||||
printf(">>> cl_purgeold_batch COMMIT: cutoff=%s 삭제=%ld건\n", cutoff, p_deleted);
|
||||
|
||||
tpclose(); tpterm();
|
||||
return 0;
|
||||
}
|
||||
5
app/src/cl/batch/cl_purgeold_cpy.h
Normal file
5
app/src/cl/batch/cl_purgeold_cpy.h
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
/* cl_purgeold_cpy.h - cl_purgeold_batch 전용 카피북 (host 변수 선언). */
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
char p_cutoff[16];
|
||||
long p_deleted;
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
47
app/src/cl/batch/cl_relock_batch.pgc
Normal file
47
app/src/cl/batch/cl_relock_batch.pgc
Normal file
|
|
@ -0,0 +1,47 @@
|
|||
/*
|
||||
* cl_relock_batch.pgc - cl 완료 기간 일괄 잠금 배치 (커서 + upsert + XA).
|
||||
*
|
||||
* status='C' 로 마감된 고유 period_key 를 커서로 훑어 cl_period_lock 에
|
||||
* upsert(ON CONFLICT) 하여 기간을 잠근다. 전 구간 ONE global XA transaction.
|
||||
* host 변수는 전용 카피북 cl_relock_cpy.h 를 EXEC SQL INCLUDE.
|
||||
* Usage: cl_relock_batch
|
||||
*/
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
#include <atmi.h>
|
||||
|
||||
int main(int argc, char **argv)
|
||||
{
|
||||
long locked = 0;
|
||||
(void) argc; (void) argv;
|
||||
|
||||
EXEC SQL INCLUDE cl_relock_cpy;
|
||||
|
||||
if (tpinit(NULL) < 0) { fprintf(stderr, "tpinit FAIL: %s\n", tpstrerror(tperrno)); return 1; }
|
||||
if (tpopen() < 0) { fprintf(stderr, "tpopen FAIL: %s\n", tpstrerror(tperrno)); return 1; }
|
||||
if (tpbegin(60, 0) < 0) { fprintf(stderr, "tpbegin FAIL: %s\n", tpstrerror(tperrno)); return 1; }
|
||||
|
||||
EXEC SQL DECLARE crel CURSOR FOR
|
||||
SELECT DISTINCT period_key FROM cl_close_log WHERE status = 'C'
|
||||
ORDER BY period_key;
|
||||
EXEC SQL OPEN crel;
|
||||
if (sqlca.sqlcode < 0) { fprintf(stderr, "OPEN FAIL [%d] %s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); tpabort(0); return 1; }
|
||||
|
||||
for (;;) {
|
||||
EXEC SQL FETCH crel INTO :r_period;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { fprintf(stderr, "FETCH FAIL [%d] %s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); EXEC SQL CLOSE crel; tpabort(0); return 1; }
|
||||
EXEC SQL INSERT INTO cl_period_lock (period_key, locked) VALUES (:r_period, true)
|
||||
ON CONFLICT (period_key) DO UPDATE SET locked = true, locked_at = now();
|
||||
if (sqlca.sqlcode < 0) { fprintf(stderr, "UPSERT FAIL [%d] %s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); EXEC SQL CLOSE crel; tpabort(0); return 1; }
|
||||
locked++;
|
||||
}
|
||||
EXEC SQL CLOSE crel;
|
||||
|
||||
if (tpcommit(0) < 0) { fprintf(stderr, "tpcommit FAIL: %s\n", tpstrerror(tperrno)); tpabort(0); return 1; }
|
||||
printf(">>> cl_relock_batch COMMIT: 잠금기간=%ld\n", locked);
|
||||
|
||||
tpclose(); tpterm();
|
||||
return 0;
|
||||
}
|
||||
4
app/src/cl/batch/cl_relock_cpy.h
Normal file
4
app/src/cl/batch/cl_relock_cpy.h
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
/* cl_relock_cpy.h - cl_relock_batch 전용 카피북 (host 변수 선언). */
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
char r_period[16];
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
51
app/src/cl/batch/cl_reweigh_batch.pgc
Normal file
51
app/src/cl/batch/cl_reweigh_batch.pgc
Normal file
|
|
@ -0,0 +1,51 @@
|
|||
/*
|
||||
* cl_reweigh_batch.pgc - cl 마감 총액 스냅샷 재계산 배치 (커서 + UPDATE + XA).
|
||||
*
|
||||
* period_key 프리픽스 마감을 커서로 훑어, 각 마감의 스냅샷 net 합을 다시 계산하여
|
||||
* cl_close_log.total_amount 를 갱신한다. 전 구간 ONE global XA transaction.
|
||||
* host 변수는 전용 카피북 cl_reweigh_cpy.h 를 EXEC SQL INCLUDE.
|
||||
* Usage: cl_reweigh_batch [YYYY-MM]
|
||||
*/
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
#include <atmi.h>
|
||||
|
||||
int main(int argc, char **argv)
|
||||
{
|
||||
const char *prefix = (argc > 1) ? argv[1] : "2026-07";
|
||||
long updated = 0;
|
||||
|
||||
EXEC SQL INCLUDE cl_reweigh_cpy;
|
||||
|
||||
strncpy(w_prefix, prefix, sizeof(w_prefix)-1); w_prefix[sizeof(w_prefix)-1] = 0;
|
||||
|
||||
if (tpinit(NULL) < 0) { fprintf(stderr, "tpinit FAIL: %s\n", tpstrerror(tperrno)); return 1; }
|
||||
if (tpopen() < 0) { fprintf(stderr, "tpopen FAIL: %s\n", tpstrerror(tperrno)); return 1; }
|
||||
if (tpbegin(60, 0) < 0) { fprintf(stderr, "tpbegin FAIL: %s\n", tpstrerror(tperrno)); return 1; }
|
||||
|
||||
EXEC SQL DECLARE crw CURSOR FOR
|
||||
SELECT close_id FROM cl_close_log
|
||||
WHERE period_key LIKE :w_prefix || '%' AND status <> 'X'
|
||||
ORDER BY close_id;
|
||||
EXEC SQL OPEN crw;
|
||||
if (sqlca.sqlcode < 0) { fprintf(stderr, "OPEN FAIL [%d] %s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); tpabort(0); return 1; }
|
||||
|
||||
for (;;) {
|
||||
EXEC SQL FETCH crw INTO :w_cid;
|
||||
if (sqlca.sqlcode == 100) break;
|
||||
if (sqlca.sqlcode < 0) { fprintf(stderr, "FETCH FAIL [%d] %s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); EXEC SQL CLOSE crw; tpabort(0); return 1; }
|
||||
EXEC SQL SELECT coalesce(sum(net_amount),0) INTO :w_sum FROM cl_snapshot WHERE close_id = :w_cid;
|
||||
if (sqlca.sqlcode < 0) { EXEC SQL CLOSE crw; tpabort(0); return 1; }
|
||||
EXEC SQL UPDATE cl_close_log SET total_amount = :w_sum, updated_at = now() WHERE close_id = :w_cid;
|
||||
if (sqlca.sqlcode < 0) { fprintf(stderr, "UPDATE FAIL [%d] %s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); EXEC SQL CLOSE crw; tpabort(0); return 1; }
|
||||
updated++;
|
||||
}
|
||||
EXEC SQL CLOSE crw;
|
||||
|
||||
if (tpcommit(0) < 0) { fprintf(stderr, "tpcommit FAIL: %s\n", tpstrerror(tperrno)); tpabort(0); return 1; }
|
||||
printf(">>> cl_reweigh_batch COMMIT: prefix=%s 재계산=%ld건\n", prefix, updated);
|
||||
|
||||
tpclose(); tpterm();
|
||||
return 0;
|
||||
}
|
||||
6
app/src/cl/batch/cl_reweigh_cpy.h
Normal file
6
app/src/cl/batch/cl_reweigh_cpy.h
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
/* cl_reweigh_cpy.h - cl_reweigh_batch 전용 카피북 (host 변수 선언). */
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
char w_prefix[16];
|
||||
long w_cid;
|
||||
long w_sum;
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
39
app/src/cl/batch/cl_tierstat_batch.pgc
Normal file
39
app/src/cl/batch/cl_tierstat_batch.pgc
Normal file
|
|
@ -0,0 +1,39 @@
|
|||
/*
|
||||
* cl_tierstat_batch.pgc - cl 마감 총액 구간 분포 배치 (CASE 집계 + XA).
|
||||
*
|
||||
* period_key 프리픽스 마감을 총액 소/중/대 구간으로 CASE 분류하여 각 구간 건수를
|
||||
* 한 행으로 집계해 보고한다. ONE global XA transaction (read-committed).
|
||||
* host 변수는 전용 카피북 cl_tierstat_cpy.h 를 EXEC SQL INCLUDE.
|
||||
* Usage: cl_tierstat_batch [YYYY-MM]
|
||||
*/
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
#include <atmi.h>
|
||||
|
||||
int main(int argc, char **argv)
|
||||
{
|
||||
const char *prefix = (argc > 1) ? argv[1] : "2026-07";
|
||||
|
||||
EXEC SQL INCLUDE cl_tierstat_cpy;
|
||||
|
||||
strncpy(t_prefix, prefix, sizeof(t_prefix)-1); t_prefix[sizeof(t_prefix)-1] = 0;
|
||||
|
||||
if (tpinit(NULL) < 0) { fprintf(stderr, "tpinit FAIL: %s\n", tpstrerror(tperrno)); return 1; }
|
||||
if (tpopen() < 0) { fprintf(stderr, "tpopen FAIL: %s\n", tpstrerror(tperrno)); return 1; }
|
||||
if (tpbegin(60, 0) < 0) { fprintf(stderr, "tpbegin FAIL: %s\n", tpstrerror(tperrno)); return 1; }
|
||||
|
||||
EXEC SQL SELECT
|
||||
coalesce(sum(CASE WHEN total_amount < 1000000 THEN 1 ELSE 0 END),0),
|
||||
coalesce(sum(CASE WHEN total_amount >= 1000000 AND total_amount < 100000000 THEN 1 ELSE 0 END),0),
|
||||
coalesce(sum(CASE WHEN total_amount >= 100000000 THEN 1 ELSE 0 END),0)
|
||||
INTO :t_lo, :t_mid, :t_hi FROM cl_close_log
|
||||
WHERE period_key LIKE :t_prefix || '%' AND status <> 'X';
|
||||
if (sqlca.sqlcode < 0) { fprintf(stderr, "AGG FAIL [%d] %s\n", sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc); tpabort(0); return 1; }
|
||||
|
||||
if (tpcommit(0) < 0) { fprintf(stderr, "tpcommit FAIL: %s\n", tpstrerror(tperrno)); tpabort(0); return 1; }
|
||||
printf(">>> cl_tierstat_batch COMMIT: prefix=%s 소=%ld 중=%ld 대=%ld\n", prefix, t_lo, t_mid, t_hi);
|
||||
|
||||
tpclose(); tpterm();
|
||||
return 0;
|
||||
}
|
||||
7
app/src/cl/batch/cl_tierstat_cpy.h
Normal file
7
app/src/cl/batch/cl_tierstat_cpy.h
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
/* cl_tierstat_cpy.h - cl_tierstat_batch 전용 카피북 (host 변수 선언). */
|
||||
EXEC SQL BEGIN DECLARE SECTION;
|
||||
char t_prefix[16];
|
||||
long t_lo;
|
||||
long t_mid;
|
||||
long t_hi;
|
||||
EXEC SQL END DECLARE SECTION;
|
||||
Loading…
Add table
Add a link
Reference in a new issue