sp000180.cpre

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

/*
 * 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-11-04 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;

/*
 * Main function
 */

void main()
{
    PXMLSTRU pxmlstruResp;
    PXMLSTRU pxmlstruReq;
    
    if (!VERIFY_NULL(pxmlstruResp = ApScGetRespXml()) ||
        !VERIFY_NULL(pxmlstruReq = ApScGetReqXml()))
        EXEC CICS RETURN;

    VERIFY_NORMAL(ApCsRecord(pxmlstruReq, pxmlstruResp));
    EXEC CICS RETURN;
}

/* End of this file */