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

void MM_ISSUER_INQ(TPSVCINFO *p)
{
    UBFH *b = (UBFH *)p->data;
    char cd[32];
    EXEC SQL BEGIN DECLARE SECTION;
    char h_cd[32], h_name[64], h_status[16];
    EXEC SQL END DECLARE SECTION;
    gets_(b, T_ISSUER, cd, sizeof(cd));
    strncpy(h_cd, cd, sizeof(h_cd)-1); h_cd[sizeof(h_cd)-1] = 0;
    EXEC SQL SELECT issuer_name, status INTO :h_name, :h_status
        FROM mm_issuer WHERE issuer_cd = :h_cd;
    if (sqlca.sqlcode < 0 || sqlca.sqlcode == 100) FAIL(b);
    Bchg(b, T_STR1, 0, h_name, 0L);
    Bchg(b, T_STATUS, 0, h_status, 0L);
    OK(b);
}
