sp010109.cpre

商业银行前置系统

/*
 * This is a part of the Application Preconsole
 * - Service Provide - ABIS.
 * 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-05 Xiaomin Chen     - create implementation file for cics
 *                               program of card service - 转入
 */

#include <sybtesql.h>
#include "ap.h"
#include "apcs.h"
#include "apsc.h"
#include "apsp.h"

EXEC SQL INCLUDE sqlca;
EXEC SQL INCLUDE "abis.h";
EXEC SQL INCLUDE "abisext.h";
EXEC SQL INCLUDE "cs.h";

/*
 * Main function
 */

void main()
{
    CSISTRU csistru;
    
    char szAmt[AP_LEN_AMT + 1];
 
    PXMLSTRU pxmlstruResp;
    PXMLSTRU pxmlstruReq;

    memset(&csistru, 0, sizeof(csistru));
    
    if (!VERIFY_NULL(pxmlstruResp = ApScGetRespXml()) ||
        !VERIFY_NULL(pxmlstruReq = ApScGetReqXml()))
        EXEC CICS RETURN;

    /*
     * 填写Csi 请求信息，并调用公共函数获得Csi 应答信息。
     */

    csistru.nTransCode = 10;

    if (!VERIFY_NORMAL(AP_DEMAND(AP_PATH_AMT, szAmt)))
    {
        ApUpdateRespCode(pxmlstruResp, AP_RESPCODE_LOGERR);
        EXEC CICS RETURN;
    }

    csistru.dAmt = atof(szAmt);

    LinkCs(&csistru, pxmlstruReq, pxmlstruResp, TRUE);

    if (!ApIsRespCode(pxmlstruResp, AP_RESPCODE_ACCEPT))
        EXEC CICS RETURN;

    EXEC CICS RETURN;
}

/* End of this file */