sp010108.cpre

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

/*
 * 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-02 HLW      - create implementation file for cics
 *                       program of card service - withdraw
 */
  
#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];
    char szAccType[AP_LEN_ACCTYPE + 1];
    char szAccFlag[AP_LEN_ACCFLAG + 1];
    char szTrackVerify[1 + 1];
 
    PXMLSTRU pxmlstruResp;
    PXMLSTRU pxmlstruReq;
    
    memset(&csistru, 0, sizeof(csistru));
   
    if (!VERIFY_NULL(pxmlstruResp = ApScGetRespXml()) ||
        !VERIFY_NULL(pxmlstruReq = ApScGetReqXml()))
        EXEC CICS RETURN;

    if (!VERIFY_NORMAL(AP_DEMAND(AP_PATH_ACCTYPE, szAccType)) ||
        !VERIFY_NORMAL(AP_DEMAND(AP_PATH_ACCFLAG, szAccFlag)) ||        
        !VERIFY_NORMAL(AP_DEMAND(AP_PATH_AMT, szAmt)))
    {
        ApUpdateRespCode(pxmlstruResp, AP_RESPCODE_LOGERR);
        EXEC CICS RETURN;
    }

    /*
     * 填写Csi 请求信息，并调用公共函数获得Csi 应答信息。
     */
    
    csistru.nTransCode = 2;
    csistru.dAmt = atof(szAmt);
    
    AP_DEMAND(AP_PATH_ACCPWD, csistru.szAccPwd);
    
    if (!VERIFY_NORMAL(AP_DEMAND(AP_PATH_TRACKVERIFY, szTrackVerify)))
    {
        ApUpdateRespCode(pxmlstruResp, AP_RESPCODE_LOGERR);
        EXEC CICS RETURN;
    }
      
    if (strcmp(szTrackVerify, "Y") == 0)
    {
        if (!VERIFY_NORMAL(AP_DEMAND(AP_PATH_TRACK2, csistru.szTrack2)))
        {
            ApUpdateRespCode(pxmlstruResp, AP_RESPCODE_LOGERR);
            EXEC CICS RETURN;
        }
        
        AP_DEMAND(AP_PATH_TRACK3, csistru.szTrack3);
        csistru.nVerifyFlag = 1;
    }
    else
        csistru.nVerifyFlag = 0;

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

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

    if (strcmp(szAccFlag, AP_ACCFLAG_NATIVE) == 0 &&
        strcmp(szAccType, AP_ACCTYPE_CREDITCARD) == 0)
    {
        if (!VERIFY_NORMAL(AP_INSERT(AP_PATH_AUTHCODE, csistru.szAuthCode)))
        {
            ApUpdateRespCode(pxmlstruResp, AP_RESPCODE_EXCEPTION);
            EXEC CICS RETURN;
        }
    }

    EXEC CICS RETURN;
}

/* End of this file */