/*
 * py_bankverify_batch.pgc - py 지급파일 전건 대사 배치 (커서 검증, XA).
 *
 * 생성(G) 상태 파일을 커서로 훑어 파일 헤더의 건수/금액과 실제 편성 지급건의
 * 건수/net 합을 비교해 불일치 파일을 리포트한다. 갱신 없이 검증만 수행한다.
 * host 변수는 전용 카피북 py_bankverify_cpy.h 를 EXEC SQL INCLUDE.
 * Usage: py_bankverify_batch
 */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <atmi.h>

int main(int argc, char **argv)
{
    long files = 0, mism = 0;

    EXEC SQL INCLUDE py_bankverify_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(120, 0) < 0) { fprintf(stderr, "tpbegin FAIL: %s\n", tpstrerror(tperrno)); return 1; }

    EXEC SQL DECLARE pbv CURSOR FOR
        SELECT file_id, record_count, total_amount FROM py_file WHERE status = 'G' ORDER BY file_id;
    EXEC SQL OPEN pbv;
    if (sqlca.sqlcode < 0) { fprintf(stderr, "OPEN FAIL [%d]\n", sqlca.sqlcode); tpabort(0); return 1; }
    for (;;) {
        EXEC SQL FETCH pbv INTO :c_fid, :c_hcnt, :c_hsum;
        if (sqlca.sqlcode == 100) break;
        if (sqlca.sqlcode < 0) { EXEC SQL CLOSE pbv; tpabort(0); return 1; }
        EXEC SQL SELECT count(*), coalesce(sum(net),0) INTO :c_acnt, :c_asum
            FROM py_payout WHERE file_id = :c_fid;
        if (sqlca.sqlcode < 0) { EXEC SQL CLOSE pbv; tpabort(0); return 1; }
        files++;
        if (c_hcnt != c_acnt || c_hsum != c_asum) {
            mism++;
            printf("  파일 %ld 불일치: hdr(%ld/%ld) act(%ld/%ld)\n", c_fid, c_hcnt, c_hsum, c_acnt, c_asum);
        }
    }
    EXEC SQL CLOSE pbv;

    if (tpcommit(0) < 0) { fprintf(stderr, "tpcommit FAIL: %s\n", tpstrerror(tperrno)); tpabort(0); return 1; }
    printf(">>> py_bankverify_batch COMMIT: files=%ld mismatch=%ld\n", files, mism);
    tpclose(); tpterm();
    return 0;
}
