/*
 * RECONCILE (대사) - ECPG XA service.
 *
 * Marks the purchase matched (status='M'), writes a ledger recon entry, then
 * tpcall()s SETTLE - all inside the caller's global transaction.
 */
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <atmi.h>
#include <ubf.h>
#include <userlog.h>
#include <ndebug.h>
#include "acq.fd.h"

void RECONCILE(TPSVCINFO *p);

int tpsvrinit(int argc, char **argv)
{
    if (tpopen() < 0) {
        userlog("reconcile: tpopen FAIL: %s", tpstrerror(tperrno));
        return -1;
    }
    if (tpadvertise("RECONCILE", RECONCILE) < 0) {
        userlog("reconcile: tpadvertise(RECONCILE) FAIL: %s", tpstrerror(tperrno));
        return -1;
    }
    userlog("reconcile: RECONCILE advertised, RM opened");
    return 0;
}

void tpsvrdone(void)
{
    tpclose();
    userlog("reconcile: tpsvrdone");
}

void RECONCILE(TPSVCINFO *p)
{
    UBFH *b = (UBFH *)p->data;
    long net = 0;
    char bizdate[16] = "";
    BFLDLEN len;
    long rlen = 0;

    EXEC SQL BEGIN DECLARE SECTION;
    long   h_pid;
    long   h_net;
    char   h_bizdate[16];
    EXEC SQL END DECLARE SECTION;

    if (Bget(b, T_PURCHASE_ID, 0, (char *)&h_pid, 0L) < 0) {
        userlog("RECONCILE: missing T_PURCHASE_ID: %s", Bstrerror(Berror));
        tpreturn(TPFAIL, 0, p->data, 0L, 0L);
        return;
    }
    Bget(b, T_NET, 0, (char *)&net, 0L);
    len = sizeof(bizdate);
    Bget(b, T_BIZDATE, 0, bizdate, &len);
    h_net = net;
    strncpy(h_bizdate, bizdate, sizeof(h_bizdate) - 1); h_bizdate[sizeof(h_bizdate) - 1] = 0;

    /* This is a distinct XA branch (own DB connection); it writes only its own
     * recon evidence row and does NOT touch the purchase row (which belongs to
     * the ACQUIRE branch and is not yet committed / not visible here). */
    EXEC SQL INSERT INTO ledger (ledger_id, purchase_id, entry_type, amount, biz_date)
        VALUES (nextval('ledger_seq'), :h_pid, 'RECON', :h_net, :h_bizdate);
    if (sqlca.sqlcode < 0) {
        userlog("RECONCILE: INSERT ledger FAIL [%d] %s",
                sqlca.sqlcode, sqlca.sqlerrm.sqlerrmc);
        tpreturn(TPFAIL, 0, p->data, 0L, 0L);
        return;
    }

    Bchg(b, T_STATUS, 0, "M", 0L);

    userlog("RECONCILE pid=%ld matched -> SETTLE", h_pid);

    if (tpcall("SETTLE", (char *)b, 0L, (char **)&b, &rlen, 0L) < 0) {
        userlog("RECONCILE: tpcall(SETTLE) FAIL: %s", tpstrerror(tperrno));
        tpreturn(TPFAIL, 0, (char *)b, 0L, 0L);
        return;
    }

    tpreturn(TPSUCCESS, 0, (char *)b, 0L, 0L);
}

/* vim: set ts=4 sw=4 et smartindent: */