/*
 * VL_REQUIRED.pgc - vl 모듈 서비스 VL_REQUIRED (one service = one file).
 * 기능: 필수필드(가맹점/금액) 존재 검증 (RC 비트합).
 * 기존 인라인 vl_svr.pgc에서 분리; caller의 XA 브랜치에서 실행(EXEC SQL CONNECT 없음).
 * vl_svr가 tpsvrinit에서 이 서비스를 tpadvertise 한다.
 */
#include "VL_REQUIRED.h"

void VL_REQUIRED(TPSVCINFO *p)
{
    UBFH *b = (UBFH *)p->data;
    char merch[64];
    long amt, rc = 0;
    gets_(b, T_MERCHANT, merch, sizeof(merch));
    amt = getl(b, T_AMOUNT);
    if (merch[0] == 0) rc |= 1;
    if (amt == 0)      rc |= 2;
    setl(b, T_RC, rc);
    OK(b);
}
