caterm.cpre

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

/*
 * This is a part of the Application Preconsole
 * - Channel Access - TERM.
 * Copyright (C) 2001-2001 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-09-17 Chang Yong    - 柜台CA主控
 */

#include <sybtesql.h>

#include "ap.h"
#include "apca.h"

EXEC SQL INCLUDE sqlca;
EXEC SQL INCLUDE "abis.h";

#include "term.h"
#include "cs.h"

/* 
 * main function
 */ 
 
void main()
{
    char *pcCommArea;
                     
    TIASTRU tiastru;    
    TOASTRU toastru;

    PTIASTRU ptiastru;
    PTOASTRU ptoastru; 
    
    ptiastru = &tiastru;
    ptoastru = &toastru;
    
    memset(&tiastru, 0, sizeof(tiastru));
    memset(&toastru, 0, sizeof(toastru));
       
    EXEC CICS ADDRESS COMMAREA(pcCommArea);

    if (!VERIFY_NULL(pcCommArea) ||
        !VERIFY_NORMAL(CreateMemoReg()))
        EXEC CICS RETURN;

    tscanf(pcCommArea, FMT_TIA, VAR_TIA); 
        
    /* 
     * TOA初始化
     */
    
    ptoastru->nSeqNo = ptiastru->nSeqNo;
    ptoastru->cRespType = 'E';
    ptoastru->nLen = 4;
    strcpy(ptoastru->szData, "1002");
    strcpy(ptoastru->szTerm, ptiastru->szTerm);
        
    /*
     * 根据不同的交易码进行处理
     */
    
    if (ptiastru->nTransCode == TRANSCODE_CS_TRANSFERIN)
        VERIFY_NORMAL(HandleCsTransferIn(ptiastru, ptoastru));

    else if (ptiastru->nTransCode == TRANSCODE_CS_TRANSFEROUT)
        VERIFY_NORMAL(HandleCsTransferOut(ptiastru, ptoastru));

    else if (ptiastru->nTransCode == TRANSCODE_CS_DEPOSIT)
        VERIFY_NORMAL(HandleCsDeposit(ptiastru, ptoastru));

    else if (ptiastru->nTransCode == TRANSCODE_CS_WITHDRAW)     	
        VERIFY_NORMAL(HandleCsWithdraw(ptiastru, ptoastru));

    else if (ptiastru->nTransCode == TRANSCODE_CS_QUERYBAL)
        VERIFY_NORMAL(HandleCsQueryBal(ptiastru, ptoastru));

    else if (ptiastru->nTransCode == TRANSCODE_CS_CHANGEPIN)
        VERIFY_NORMAL(HandleCsChangePin(ptiastru, ptoastru));

    else if (ptiastru->nTransCode == TRANSCODE_CS_REFUND)
        VERIFY_NORMAL(HandleCsRefund(ptiastru, ptoastru));

    else if (ptiastru->nTransCode == TRANSCODE_CS_LOST)
        VERIFY_NORMAL(HandleCsLost(ptiastru, ptoastru));

    else if (ptiastru->nTransCode == TRANSCODE_CS_CANCEL)
        VERIFY_NORMAL(HandleCsCancel(ptiastru, ptoastru));

    else if (ptiastru->nTransCode == TRANSCODE_CS_AUTH)
        VERIFY_NORMAL(HandleCsAuth(ptiastru, ptoastru));

    else
        VERIFY_NORMAL(INVALID);

    tprintf(pcCommArea, FMT_TOA, VAR_TOA);
    
    DeleteMemoReg();
    EXEC CICS RETURN;
}    

/* End of this file */