/* @tier easy @module cm @transform common-batch */
/*
 * cm_bt_0010.pgc - 공통 코드 매핑 정합성 검증 배치  [tier=easy]
 *
 * 코드 매핑 테이블(cm_code_map)을 커서로 순회하며 각 매핑의 원천코드
 * (src_cd)와 대상코드(dst_cd)가 공통코드 마스터(cm_code)에 실제 존재
 * 하는지 조회하여 고아(orphan) 매핑을 집계한다. 배치 main 엔트리 포함.
 *
 * 실행:  cm_bt_0010 <YYYYMMDD> [db@host]
 */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "txcore.h"
#include "txcore_dbio.h"
#include "acq_util.h"
#include "cm_core.h"

EXEC SQL INCLUDE sqlca;

static int run_cm_bt_0010(void)
{
    EXEC SQL BEGIN DECLARE SECTION;
    char h_map_id[16];
    char h_src_grp[16];
    char h_src_cd[16];
    char h_dst_grp[16];
    char h_dst_cd[16];
    int  h_cnt;
    EXEC SQL END DECLARE SECTION;

    long total = 0, valid = 0, orphan_src = 0, orphan_dst = 0;

    EXEC SQL DECLARE cur_cm_bt_0010 CURSOR FOR
        SELECT map_id, src_grp, src_cd, dst_grp, dst_cd
          FROM cm_code_map
         ORDER BY map_id;

    EXEC SQL OPEN cur_cm_bt_0010;
    if (sqlca.sqlcode != TX_SQL_OK) {
        TX_DBIO_LOG_ERR("OPEN cur_cm_bt_0010");
        return TX_EDB;
    }

    for (;;) {
        int ok = 1;

        EXEC SQL FETCH cur_cm_bt_0010
            INTO :h_map_id, :h_src_grp, :h_src_cd, :h_dst_grp, :h_dst_cd;

        if (sqlca.sqlcode == TX_SQL_NOTFOUND)
            break;
        if (sqlca.sqlcode != TX_SQL_OK) {
            TX_DBIO_LOG_ERR("FETCH cur_cm_bt_0010");
            break;
        }

        total++;

        h_cnt = 0;
        EXEC SQL SELECT COUNT(*) INTO :h_cnt
                   FROM cm_code
                  WHERE grp_cd = :h_src_grp AND code_cd = :h_src_cd;
        if (h_cnt == 0) {
            orphan_src++;
            ok = 0;
            tx_log(TX_LOG_WARN, "[cm_bt_0010] 원천코드 없음 map=%s src=%s/%s",
                   h_map_id, h_src_grp, h_src_cd);
        }

        h_cnt = 0;
        EXEC SQL SELECT COUNT(*) INTO :h_cnt
                   FROM cm_code
                  WHERE grp_cd = :h_dst_grp AND code_cd = :h_dst_cd;
        if (h_cnt == 0) {
            orphan_dst++;
            ok = 0;
            tx_log(TX_LOG_WARN, "[cm_bt_0010] 대상코드 없음 map=%s dst=%s/%s",
                   h_map_id, h_dst_grp, h_dst_cd);
        }

        if (ok)
            valid++;
    }

    EXEC SQL CLOSE cur_cm_bt_0010;

    tx_log(TX_LOG_INFO,
           "[cm_bt_0010] 매핑검증 총=%ld 정합=%ld 원천고아=%ld 대상고아=%ld",
           total, valid, orphan_src, orphan_dst);

    printf("========== 코드 매핑 정합성 검증 [cm_bt_0010] ==========\n");
    printf("  총 매핑수   : %ld\n", total);
    printf("  정합 매핑   : %ld\n", valid);
    printf("  원천 고아   : %ld\n", orphan_src);
    printf("  대상 고아   : %ld\n", orphan_dst);
    printf("=============================================\n");

    return (orphan_src == 0 && orphan_dst == 0) ? TX_OK : TX_FAIL;
}

int main(int argc, char **argv)
{
    const char *biz_date;
    const char *target;
    int rc;

    tx_set_loglevel(TX_LOG_INFO);

    if (argc < 2) {
        fprintf(stderr, "사용법: %s <YYYYMMDD> [db@host]\n", argv[0]);
        return 2;
    }
    biz_date = argv[1];
    target   = (argc >= 3) ? argv[2] : NULL;

    if (!date_is_valid(biz_date)) {
        fprintf(stderr, "오류: 유효하지 않은 영업일 '%s'\n", biz_date);
        return 2;
    }

    tx_log(TX_LOG_INFO, "[cm_bt_0010] 매핑검증 배치 시작 date=%s", biz_date);

    rc = cm_dbio_connect(target);
    if (rc != TX_OK) {
        tx_log(TX_LOG_ERROR, "[cm_bt_0010] DB 접속 실패 rc=%d", rc);
        return 1;
    }

    rc = run_cm_bt_0010();

    cm_dbio_disconnect();

    tx_log(TX_LOG_INFO, "[cm_bt_0010] 배치 종료 rc=%d(%s)", rc, tx_strerror(rc));
    return (rc == TX_OK) ? 0 : 1;
}