/* * 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(ApCsSettle(pxmlstruReq, pxmlstruResp));    EXEC CICS RETURN;}/* End of this file */