/*
 * MM_FEERATE_INQ.pgc - mm 모듈 서비스 MM_FEERATE_INQ (one service = one file).
 * 기능: 수수료율 조회 (dbio).
 * 기존 인라인 mm_svr.pgc에서 분리; caller의 XA 브랜치에서 실행(EXEC SQL CONNECT 없음).
 * mm_svr가 tpsvrinit에서 이 서비스를 tpadvertise 한다.
 */
#include "MM_FEERATE_INQ.h"

void MM_FEERATE_INQ(TPSVCINFO *p)
{
    UBFH *b = (UBFH *)p->data;
    char merch[64], ctype[16];
    long bps = 25;
    gets_(b, T_MERCHANT, merch, sizeof(merch));
    gets_(b, T_STR4, ctype, sizeof(ctype)); if (ctype[0] == 0) strcpy(ctype, "CREDIT");
    if (mmdb_get_fee_rate(merch, ctype, &bps) < 0) FAIL(b);
    setl(b, T_ARG1, bps);
    OK(b);
}
