linkisi.cpre

来自「商业银行前置系统」· CPRE 代码 · 共 59 行

/*
 * This is a part of the Application Preconsole
 * - Service Provide - ISI.
 * Copyright (C) 2000-2000 ABC.SDC.
 * All rights reserved.
 *
 * This source code is only intended as a supplement to the
 * Application Preconsole Reference and related
 * electronic documentation provided with the library.
 * See these sources for detailed information regarding the
 * Application Preconsole product. 
 *
 * Update record:
 * 2001-08-08 ChenYu    - ISI linking function.
 */

#include "ap.h"

EXEC SQL INCLUDE sqlca;
EXEC SQL INCLUDE "isi.h";

RESULT LinkIsi(PISO8583STRU piso8583stru)
{
    char cMsg[SIZE_MSG_ISO8583];
    UINT nSize;
    long lRespCode;

    nSize = SIZE_MSG_ISO8583;
    ASSERT_NORMAL(ExportIso8583(piso8583stru, &cMsg, &nSize));
    
    /*
     * 向COMMUNICATION REGION提交交易。如果发送成功，而此后发生异常，
     * 都必须返回UNKNOWN ，以促使SPA 填写AP_RESPCODE_EXCEPTION ，并引
     * 发通知。
     */

    EXEC CICS ADDRESS EIB(dfheiptr);
    EXEC CICS LINK PROGRAM("SPISI") COMMAREA(cMsg) LENGTH(sizeof(cMsg))
              RESP(lRespCode);
             
    if (!VERIFY(lRespCode == DFHRESP(NORMAL)))
        return EXCEPTION;

    if (strncmp(cMsg, "EC", 2) == 0)
    {
        if (strncmp(cMsg + 2, AP_RESPCODE_EXCEPTION, 4) == 0)
            ASSERT_NORMAL(UNKNOWN);

        ASSERT_NORMAL(EXCEPTION);
    }

    if (!VERIFY_NORMAL(ImportIso8583(piso8583stru, cMsg, sizeof(cMsg))))
        return UNKNOWN;

    return NORMAL;
}

/* End of this file */