/*
 * VL_CONFIRM.pgc - vl 모듈 서비스 VL_CONFIRM (one service = one file).
 * 기능: 의심거래 종결 확정 (status CLOSED by suspect_id).
 * 기존 인라인 vl_svr.pgc에서 분리; caller의 XA 브랜치에서 실행(EXEC SQL CONNECT 없음).
 * vl_svr가 tpsvrinit에서 이 서비스를 tpadvertise 한다.
 */
#include "VL_CONFIRM.h"

void VL_CONFIRM(TPSVCINFO *p)
{
    UBFH *b = (UBFH *)p->data;
    EXEC SQL BEGIN DECLARE SECTION;
    long h_sid;
    EXEC SQL END DECLARE SECTION;
    h_sid = getl(b, T_ID1);
    EXEC SQL UPDATE vl_suspect SET status = 'CLOSED'
        WHERE suspect_id = :h_sid AND status = 'OPEN';
    if (sqlca.sqlcode < 0 || sqlca.sqlcode == 100) { setl(b, T_RC, 1); OK(b); }
    setl(b, T_RC, 0);
    OK(b);
}
