/*
 * VL_SUMMARY.pgc - vl 모듈 서비스 VL_SUMMARY (one service = one file).
 * 기능: 당일 미결(OPEN) 의심거래 요약 (dbio).
 * 기존 인라인 vl_svr.pgc에서 분리; caller의 XA 브랜치에서 실행(EXEC SQL CONNECT 없음).
 * vl_svr가 tpsvrinit에서 이 서비스를 tpadvertise 한다.
 */
#include "VL_SUMMARY.h"

void VL_SUMMARY(TPSVCINFO *p)
{
    UBFH *b = (UBFH *)p->data;
    char bizdate[16];
    long cnt;
    gets_(b, T_BIZDATE, bizdate, sizeof(bizdate));
    cnt = vldb_suspect_count(bizdate);
    if (cnt < 0) FAIL(b);
    setl(b, T_COUNT, cnt);
    setl(b, T_RC, cnt > 0 ? 1 : 0);
    OK(b);
}
