sp010111.cpre

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

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

    if (!VERIFY_NORMAL(AP_DEMAND(AP_PATH_ACCNEWPWD, csistru.szNewAccPwd)) ||
        !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, FALSE);
    EXEC CICS RETURN;
}

/* End of this file */