sp010112.cpre

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

/*
 * 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;
    
    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 = 12;    
    AP_DEMAND(AP_PATH_ACCPWD, csistru.szAccPwd);

    LinkCs(&csistru, pxmlstruReq, pxmlstruResp, FALSE);
    EXEC CICS RETURN;
}

/* End of this file */