/* @tier medium @module cm @transform common-online */
/*
 * cm_ol_0031.pgc - 공통 응답코드 매핑 서비스 (CM_OL_0031)  [tier=medium]
 *
 * 내부 처리결과코드(RC, 정수)를 대외 표준 응답코드(4자리 문자열)로 매핑한다.
 * TxCore 오류상수(TX_OK/TX_ENOENT/...) 및 업무 결과코드를 msg_layout.h 의
 * 표준 대외코드(RESP_OK/RESP_INVALID/RESP_NOMERCH/RESP_SYSERR)로 환산한 뒤,
 * 대외 응답코드 마스터(cm_resp_code)를 조회하여 대외 설명문/응답그룹을
 * 응답에 함께 실어 준다. (ATMI void SVC(TPSVCINFO*) 대응)
 */
#include <stdio.h>
#include <string.h>

#include "txcore.h"
#include "txcore_dbio.h"
#include "acq_util.h"
#include "cm_core.h"

EXEC SQL INCLUDE sqlca;

/* 내부 RC -> 대외 표준 응답코드 문자열 매핑 규칙 */
static const char *cm_map_resp(int rc, const char **desc)
{
    switch (rc) {
    case TX_OK:
        *desc = "정상처리";
        return RESP_OK;
    case TX_EINVAL:
        *desc = "입력항목 오류";
        return RESP_INVALID;
    case TX_ENOKEY:
        *desc = "필수키 누락";
        return RESP_INVALID;
    case TX_ENOENT:
        *desc = "대상 없음(가맹점/거래)";
        return RESP_NOMERCH;
    case TX_EDB:
        *desc = "DB 처리 오류";
        return RESP_SYSERR;
    case TX_ENOMEM:
        *desc = "자원 부족";
        return RESP_SYSERR;
    case TX_FAIL:
    default:
        *desc = "시스템 오류";
        return RESP_SYSERR;
    }
}

TX_SERVICE(CM_OL_0031, ctx)
{
    EXEC SQL BEGIN DECLARE SECTION;
    char h_resp[8];
    char h_ext_desc[80];
    char h_resp_grp[8];
    EXEC SQL END DECLARE SECTION;

    long rc = 0;
    const char *resp;
    const char *desc = "";

    tx_log(TX_LOG_INFO, "[CM_OL_0031] 공통 응답코드 매핑 서비스 진입");

    if (tx_buf_getlong(ctx->in, "RC", &rc) != TX_OK) {
        tx_log(TX_LOG_ERROR, "[CM_OL_0031] RC 누락");
        tx_return(ctx, TX_EINVAL, ctx->out);
        return;
    }

    resp = cm_map_resp((int)rc, &desc);

    /* 대외 응답코드 마스터에서 표준 설명문/응답그룹 조회 */
    strncpy(h_resp, resp, sizeof(h_resp) - 1);
    h_resp[sizeof(h_resp) - 1] = '\0';
    h_ext_desc[0] = '\0';
    h_resp_grp[0] = '\0';

    EXEC SQL SELECT ext_desc, resp_grp
        INTO :h_ext_desc, :h_resp_grp
        FROM cm_resp_code
        WHERE resp_cd = :h_resp;

    if (sqlca.sqlcode == TX_SQL_NOTFOUND) {
        tx_log(TX_LOG_INFO, "[CM_OL_0031] 대외코드 미등록 resp=%s (내부설명 사용)", resp);
        strncpy(h_ext_desc, desc, sizeof(h_ext_desc) - 1);
        h_ext_desc[sizeof(h_ext_desc) - 1] = '\0';
    } else if (sqlca.sqlcode != TX_SQL_OK) {
        TX_DBIO_LOG_ERR("CM_OL_0031 SELECT cm_resp_code");
        strncpy(h_ext_desc, desc, sizeof(h_ext_desc) - 1);
        h_ext_desc[sizeof(h_ext_desc) - 1] = '\0';
    }

    tx_buf_reset(ctx->out);
    tx_buf_setlong(ctx->out, "RC", rc);
    tx_buf_sets(ctx->out, "RESPCODE", resp);
    tx_buf_sets(ctx->out, "RESPDESC", desc);
    tx_buf_sets(ctx->out, "EXTDESC", h_ext_desc);
    tx_buf_sets(ctx->out, "RESPGRP", h_resp_grp);
    tx_buf_sets(ctx->out, "SUCCESS", (strcmp(resp, RESP_OK) == 0) ? "Y" : "N");
    tx_log(TX_LOG_INFO, "[CM_OL_0031] 매핑완료 rc=%ld -> resp=%s(%s)", rc, resp, desc);
    tx_return(ctx, TX_OK, ctx->out);
}