cadt.cpre

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

/*
 * This is a part of the Application Preconsole
 * - Channel Access - DT.
 * 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    - DT (Demonstrate Teller)
 */

#include <sybtesql.h>

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

EXEC SQL INCLUDE sqlca;

/* 
 * main function
 */ 
 
void main()
{
    char *pcCommArea;
                     
    PTIASTRU ptiastru;
    PTOASTRU ptoastru; 

    TOASTRU toastru;
    memset(&toastru, 0, sizeof(TOASTRU));
    
    EXEC CICS ADDRESS COMMAREA(pcCommArea);

    ptiastru = (PTIASTRU)pcCommArea;
    ptoastru = &toastru;
            
    /*
     * 根据不同的交易码进行处理
     */
     
    if (strcmp(ptiastru->szTransCode, AP_TRANSCODE_SS_QUERYBAL) == 0)
        VERIFY_NORMAL(HandleSsQueryBal(ptiastru, ptoastru));

    else if (strcmp(ptiastru->szTransCode, AP_TRANSCODE_MS_QUERYPHONECOST) == 0)
        VERIFY_NORMAL(HandleMsQueryPhoneCost(ptiastru, ptoastru));

    else if (strcmp(ptiastru->szTransCode, 
                    AP_TRANSCODE_MS_COLLECTPHONECOST) == 0)
        VERIFY_NORMAL(HandleMsCollectPhoneCost(ptiastru, ptoastru));

    else 
        strcpy(ptoastru->szRespCode, AP_RESPCODE_SERVICE_NOTSUPPORT);

    memcpy(pcCommArea, ptoastru, sizeof(TOASTRU));
    EXEC CICS RETURN;
}    

/* End of this file */