logserial.c

UNIX/LINUX平台下面SMS网管原代码

	int	trade_serial;
	char	serv_time[19 + 1];
	
           /*
           ** SQL STATEMENT: 14
           ** EXEC SQL END DECLARE SECTION;

           */
# line 81 "logserial.cp"

           /*
           ** Generated code ends here.
           */
# line 81 "logserial.cp"


	FILE 	*fp;
	char 	filename[128];

	memset((char *)&daily_txlog, 0, sizeof(SQL_DAILY_TXLOG ));

	bms_trace("active log = [%d]", ActiveLog);
	
	memset(filename, 0, sizeof(filename));
	sprintf(filename, "%s/log/dberr%08ld.log", getenv("HOME"), GetDate());

	if(bs->side == IVR)
	{
		strcpy(bs->teller, "IVR");
	}
	else
	{
		bs->teller[5] = 0;
	}

	sprintf(serv_time, "%08ld %s", GetDate(), bs->serv_time);

	strncpy(daily_txlog.teller, bs->teller, 5 );
	daily_txlog.teller[strlen(daily_txlog.teller)] = 0;
	daily_txlog.trade_serial = bs->trade_serial	;   
	daily_txlog.otrade_serial = bs->otrade_serial	;   
	strncpy(daily_txlog.flag , bs->flag, 1);
	bs->flag[strlen(bs->flag)] = 0;
	daily_txlog.side = bs->side		;   
	daily_txlog.optcode = bs->optcode		;   
	strncpy(daily_txlog.serv_type, bs->serv_type, 1);
	daily_txlog.busin_type = bs->busin_type	;   
	daily_txlog.trade_type = bs->trade_type	;   
	daily_txlog.result = bs->result		;   
	strncpy(daily_txlog.serv_date, bs->serv_date		, 10 );
	sprintf(daily_txlog.serv_time, "%08ld %s", GetDate(), bs->serv_time);
	strncpy(daily_txlog.auther, bs->auther,  5);
	strncpy(daily_txlog.auth_no, bs->auth_no, strlen(bs->auth_no));
	sprintf(daily_txlog.zoneno, "%05d", bs->zoneno);   
	daily_txlog.ctype = bs->ctype;   
	strncpy(daily_txlog.cid	, bs->cid, 11 );
	daily_txlog.bid	= bs->bid		;   
	strncpy(daily_txlog.debi_aid, bs->debi_aid,  4);
	daily_txlog.debi_acct_type = bs->debi_acct_type	;   
	strncpy(daily_txlog.debi_bank, bs->debi_bank, 20 );
	strncpy(daily_txlog.debi_acct, bs->debi_acct, 30 );
	daily_txlog.debi_acct[strlen(daily_txlog.debi_acct)] = 0;
	daily_txlog.debi_curr = bs->debi_curr;   
	strncpy(daily_txlog.cred_aid, bs->cred_aid,  4 );
	daily_txlog.cred_acct_type = bs->cred_acct_type	;   
	strncpy(daily_txlog.cred_bank, bs->cred_bank, 20 );
	strncpy(daily_txlog.cred_acct, bs->cred_acct, 30 );
	daily_txlog.cred_curr = bs->cred_curr;   
	daily_txlog.debi_amt = bs->debi_amt;   
	daily_txlog.cred_amt = bs->cred_amt;   
	daily_txlog.debi_bala = bs->debi_bala;
	daily_txlog.cred_bala = bs->cred_bala;
	daily_txlog.bill_flg = bs->bill_flg;   
	strncpy(daily_txlog.abstract, bs->abstract, 10 );
	daily_txlog.deduct_type	= bs->deduct_type;   
	daily_txlog.pz_type = bs->pz_type;   
	strncpy(daily_txlog.pz_num, bs->pz_num, 30 );
	daily_txlog.pz_num[strlen(daily_txlog.pz_num)]=0;
	daily_txlog.source_typ = bs->source_typ	;   
	daily_txlog.source_ser = bs->source_ser	;   	
	strncpy(daily_txlog.consign_no, bs->sonsign_no, 20 );
	daily_txlog.purchase_num = bs->purchase_num;   
	daily_txlog.detail_num= bs->detail_num;   	
	strncpy(daily_txlog.address, bs->address, 80 );
	strncpy(daily_txlog.rate, bs->rate, 10 );
	strncpy(daily_txlog.name, bs->name, 80 );
	strncpy(daily_txlog.postcode, bs->postcode,  6 );
	strncpy(daily_txlog.tele, bs->tele, 20 );
	strncpy(daily_txlog.term_no, bs->term_no, 10 );
	strncpy(daily_txlog.incall_num, bs->incall_num, 30 );
	strncpy(daily_txlog.call_id, bs->call_id, 30 );
	daily_txlog.money1 = bs->money1;   
	daily_txlog.money2 = bs->money2;   
	daily_txlog.money3 = bs->money3;   
	daily_txlog.money4 = bs->money4;   
	strncpy(daily_txlog.notes1, bs->notes1, 30 );
	strncpy(daily_txlog.notes2, bs->notes2, 30 );
	strncpy(daily_txlog.notes3, bs->notes3, 30 );
	strncpy(daily_txlog.notes4, bs->notes4, 30 );
	strncpy(daily_txlog.notes5, bs->notes5, 30 );
	strncpy(daily_txlog.notes6, bs->notes6, 256);
	strncpy(daily_txlog.notes7, bs->notes7, 256);
	strncpy(daily_txlog.notes8, bs->notes8, 256);
	strncpy(daily_txlog.notes9, bs->notes9, 256);
	strncpy(daily_txlog.notes10, bs->notes10, 256);
	strncpy(daily_txlog.city_no, bs->city_no, 20 );
	strncpy(daily_txlog.trade_brch, bs->trade_brch, 20 );
	strncpy(daily_txlog.date1, bs->date1, 10 );
	strncpy(daily_txlog.date2, bs->date2, 10 );
	strncpy(daily_txlog.record, bs->index, 50 );

	
           /*
           ** SQL STATEMENT: 15
           ** EXEC SQL BEGIN TRANSACTION;

           */
# line 178 "logserial.cp"
# line 178 "logserial.cp"
           {
# line 178 "logserial.cp"
                _SQL_CT_HANDLES * _sql;
# line 178 "logserial.cp"
               _sqlinitctx(&_sql, CS_VERSION_125, CS_TRUE, &sqlca, (long 
# line 178 "logserial.cp"
                   *)NULL, (CS_CHAR *)NULL);
# line 178 "logserial.cp"
               if (_sql != (_SQL_CT_HANDLES *) NULL)
# line 178 "logserial.cp"
               {
# line 178 "logserial.cp"
                   _sql->stmtData.persistent = CS_FALSE;
# line 178 "logserial.cp"
                   _sql->stmttype = SQL_TRANS;
# line 178 "logserial.cp"
                   _sql->connName.lnlen = CS_UNUSED;
# line 178 "logserial.cp"
                   if ((_sql->retcode = _sqlprolog(_sql)) == CS_SUCCEED)
# line 178 "logserial.cp"
                   {
# line 178 "logserial.cp"
                       _sql->retcode = ct_command(_sql->conn.command, 
# line 178 "logserial.cp"
                           CS_LANG_CMD, "BEGIN TRANSACTION", 17, CS_UNUSED);
# line 178 "logserial.cp"
                       _sql->retcode = ct_send(_sql->conn.command);
# line 178 "logserial.cp"
                       _sql->retcode = _sqlResults(_sql);
# line 178 "logserial.cp"
                       _sql->retcode = _sqlepilog(_sql);
# line 178 "logserial.cp"
                   }
# line 178 "logserial.cp"
                   
# line 178 "logserial.cp"
                   if (sqlca.sqlcode < 0)
# line 178 "logserial.cp"
                   {
# line 178 "logserial.cp"
                       error_handler();
# line 178 "logserial.cp"
                   }
# line 178 "logserial.cp"
                   
# line 178 "logserial.cp"
                   if (sqlca.sqlwarn[0] == 'W')
# line 178 "logserial.cp"
                   {
# line 178 "logserial.cp"
                       warning_handler();
# line 178 "logserial.cp"
                   }
# line 178 "logserial.cp"
                   
# line 178 "logserial.cp"
                   if (sqlca.sqlcode == 100)
# line 178 "logserial.cp"
                   {
# line 178 "logserial.cp"
                       notfound_handler();
# line 178 "logserial.cp"
                   }
# line 178 "logserial.cp"
                   
# line 178 "logserial.cp"
               }
# line 178 "logserial.cp"
               
# line 178 "logserial.cp"
           }
# line 178 "logserial.cp"
           

           /*
           ** Generated code ends here.
           */
# line 178 "logserial.cp"


	switch(ActiveLog)
	{
	case 1:
        	
           /*
           ** SQL STATEMENT: 16
           ** EXEC SQL INSERT INTO daily_txlog1 VALUES( :daily_txlog);
           */
# line 183 "logserial.cp"
# line 183 "logserial.cp"
           {
# line 183 "logserial.cp"
                _SQL_CT_HANDLES * _sql;
# line 183 "logserial.cp"
               _sqlinitctx(&_sql, CS_VERSION_125, CS_TRUE, &sqlca, (long 
# line 183 "logserial.cp"
                   *)NULL, (CS_CHAR *)NULL);
# line 183 "logserial.cp"
               if (_sql != (_SQL_CT_HANDLES *) NULL)
# line 183 "logserial.cp"
               {
# line 183 "logserial.cp"
                   _sql->stmtIdlen = CS_UNUSED;
# line 183 "logserial.cp"
                   _sql->stmtData.persistent = CS_FALSE;
# line 183 "logserial.cp"
                   _sql->stmttype = SQL_INSERT_STMT;
# line 183 "logserial.cp"
                   _sql->connName.lnlen = CS_UNUSED;
# line 183 "logserial.cp"
                   if ((_sql->retcode = _sqlprolog(_sql)) == CS_SUCCEED)
# line 183 "logserial.cp"
                   {
# line 183 "logserial.cp"
                       _sql->retcode = ct_command(_sql->conn.command, 
# line 183 "logserial.cp"
                           CS_LANG_CMD, "INSERT INTO daily_txlog1 VALUES( @sql0"
"_teller,@sql1_trade_serial,@sql2_otrade_serial,@sql3_flag,@sql4_side,@sql5_opt"
"code,@sql6_serv_type,@sql7_busin_type,@sql8_trade_type,@sql9_result,@sql10_ser"
"v_date,@sql11_serv_time,@sql12_auther,@sql13_auth_no,@sql14_zoneno,@sql15_ctyp"
"e,@sql16_cid,@sql17_bid,@sql18_debi_aid,@sql19_debi_acct_type,@sql20_debi_bank"
",@sql21_debi_acct,@sql22_debi_curr,@sql23_cred_aid,@sql24_cred_acct_type,@sql2"
"5_cred_bank,@sql26_cred_acct,@sql27_cred_curr,@sql28_debi_amt,@sql29_cred_amt,"
"@sql30_debi_bala,@sql31_cred_bala,@sql32_bill_flg,@sql33_abstract,@sql34_deduc"
"t_type,@sql35_pz_type,@sql36_pz_num,@sql37_source_typ,@sql38_source_ser,@sql39"
"_consign_no,@sql40_purchase_num,@sql41_detail_num,@sql42_address,@sql43_rate,@"
"sql44_name,@sql45_postcode,@sql46_tele,@sql47_term_no,@sql48_incall_num,@sql49"
"_call_id,@sql50_money1,@sql51_money2,@sql52_money3,@sql53_money4,@sql54_notes1"
",@sql55_notes2,@sql56_notes3,@sql57_notes4,@sql58_notes5,@sql59_notes6,@sql60_"
"notes7,@sql61_notes8,@sql62_notes9,@sql63_notes10,@sql64_city_no,@sql65_trade_"
"brch,@sql66_date1,@sql67_date2,@sql68_record )", 1098, CS_UNUSED);
# line 183 "logserial.cp"
                       if (_sql->retcode == CS_SUCCEED)
# line 183 "logserial.cp"
                       {
# line 183 "logserial.cp"
                           _sql->dfmtCS_CHAR_TYPE.count = 0;
# line 183 "logserial.cp"
                           _sql->dfmtCS_CHAR_TYPE.format = (CS_FMT_NULLTERM | 
# line 183 "logserial.cp"
                               CS_FMT_PADBLANK);
# line 183 "logserial.cp"
                           _sql->dfmtCS_CHAR_TYPE.maxlength = 5 + 1;
# line 183 "logserial.cp"
                           _sql->dfmtCS_CHAR_TYPE.status = CS_INPUTVALUE;
# line 183 "logserial.cp"
                           _sql->retcode = ct_param(_sql->conn.command, 
# line 183 "logserial.cp"
                               &_sql->dfmtCS_CHAR_TYPE, _sqlcheckstr(_sql, 
# line 183 "logserial.cp"
                           SQLNULLSTR(daily_txlog.teller)), (CS_INT) 
# line 183 "logserial.cp"
                               CS_NULLTERM, (CS_SMALLINT) 0);
# line 183 "logserial.cp"
                           _sql->dfmtCS_CHAR_TYPE.status = 0;
# line 183 "logserial.cp"
                       }
# line 183 "logserial.cp"
                       
# line 183 "logserial.cp"
                       if (_sql->retcode == CS_SUCCEED)
# line 183 "logserial.cp"
                       {
# line 183 "logserial.cp"
                           _sql->dfmtCS_INT_TYPE.count = 0;
# line 183 "logserial.cp"
                           _sql->dfmtCS_INT_TYPE.status = CS_INPUTVALUE;
# line 183 "logserial.cp"
                           _sql->retcode = ct_param(_sql->conn.command, 
# line 183 "logserial.cp"
                               &_sql->dfmtCS_INT_TYPE, 
# line 183 "logserial.cp"
                               &daily_txlog.trade_serial, (CS_INT) CS_UNUSED, 
# line 183 "logserial.cp"
                               (CS_SMALLINT) 0);
# line 183 "logserial.cp"
                           _sql->dfmtCS_INT_TYPE.status = 0;
# line 183 "logserial.cp"
                       }
# line 183 "logserial.cp"
                       
# line 183 "logserial.cp"
                       if (_sql->retcode == CS_SUCCEED)
# line 183 "logserial.cp"
                       {
# line 183 "logserial.cp"
                           _sql->dfmtCS_INT_TYPE.count = 0;
# line 183 "logserial.cp"
                           _sql->dfmtCS_INT_TYPE.status = CS_INPUTVALUE;
# line 183 "logserial.cp"
                           _sql->retcode = ct_param(_sql->conn.command, 
# line 183 "logserial.cp"
                               &_sql->dfmtCS_INT_TYPE, 
# line 183 "logserial.cp"
                               &daily_txlog.otrade_serial, (CS_INT) CS_UNUSED, 
# line 183 "logserial.cp"
                               (CS_SMALLINT) 0);
# line 183 "logserial.cp"
                           _sql->dfmtCS_INT_TYPE.status = 0;
# line 183 "logserial.cp"
                       }
# line 183 "logserial.cp"
                       
# line 183 "logserial.cp"
                       if (_sql->retcode == CS_SUCCEED)
# line 183 "logserial.cp"
                       {
# line 183 "logserial.cp"
                           _sql->dfmtCS_CHAR_TYPE.count = 0;
# line 183 "logserial.cp"
                           _sql->dfmtCS_CHAR_TYPE.format = (CS_FMT_NULLTERM | 
# line 183 "logserial.cp"
                               CS_FMT_PADBLANK);
# line 183 "logserial.cp"
                           _sql->dfmtCS_CHAR_TYPE.maxlength = 1 + 1;
# line 183 "logserial.cp"
                           _sql->dfmtCS_CHAR_TYPE.status = CS_INPUTVALUE;
# line 183 "logserial.cp"
                           _sql->retcode = ct_param(_sql->conn.command, 
# line 183 "logserial.cp"
                               &_sql->dfmtCS_CHAR_TYPE, _sqlcheckstr(_sql, 
# line 183 "logserial.cp"
                           SQLNULLSTR(daily_txlog.flag)), (CS_INT) CS_NULLTERM,
# line 183 "logserial.cp"
                                (CS_SMALLINT) 0);
# line 183 "logserial.cp"
                           _sql->dfmtCS_CHAR_TYPE.status = 0;
# line 183 "logserial.cp"
                       }
# line 183 "logserial.cp"
                       
# line 183 "logserial.cp"
                       if (_sql->retcode == CS_SUCCEED)
# line 183 "logserial.cp"
                       {
# line 183 "logserial.cp"
                           _sql->dfmtCS_SMALLINT_TYPE.count = 0;
# line 183 "logserial.cp"
                           _sql->dfmtCS_SMALLINT_TYPE.status = CS_INPUTVALUE;
# line 183 "logserial.cp"
                           _sql->retcode = ct_param(_sql->conn.command, 
# line 183 "logserial.cp"
                               &_sql->dfmtCS_SMALLINT_TYPE, &daily_txlog.side, 
# line 183 "logserial.cp"
                               (CS_INT) CS_UNUSED, (CS_SMALLINT) 0);
# line 183 "logserial.cp"
                           _sql->dfmtCS_SMALLINT_TYPE.status = 0;
# line 183 "logserial.cp"
                       }
# line 183 "logserial.cp"
                       
# line 183 "logserial.cp"
                       if (_sql->retcode == CS_SUCCEED)
# line 183 "logserial.cp"
                       {
# line 183 "logserial.cp"
                           _sql->dfmtCS_SMALLINT_TYPE.count = 0;
# line 183 "logserial.cp"
                           _sql->dfmtCS_SMALLINT_TYPE.status = CS_INPUTVALUE;
# line 183 "logserial.cp"
                           _sql->retcode = ct_param(_sql->conn.command, 
# line 183 "logserial.cp"
                               &_sql->dfmtCS_SMALLINT_TYPE, 
# line 183 "logserial.cp"
                               &daily_txlog.optcode, (CS_INT) CS_UNUSED, 
# line 183 "logserial.cp"
                               (CS_SMALLINT) 0);
# line 183 "logserial.cp"
                           _sql->dfmtCS_SMALLINT_TYPE.status = 0;
# line 183 "logserial.cp"
                       }
# line 183 "logserial.cp"
                       
# line 183 "logserial.cp"
                       if (_sql->retcode == CS_SUCCEED)
# line 183 "logserial.cp"
                       {
# line 183 "logserial.cp"
                           _sql->dfmtCS_CHAR_TYPE.count = 0;
# line 183 "logserial.cp"
                           _sql->dfmtCS_CHAR_TYPE.format = (CS_FMT_NULLTERM | 
# line 183 "logserial.cp"
                               CS_FMT_PADBLANK);
# line 183 "logserial.cp"
                           _sql->dfmtCS_CHAR_TYPE.maxlength = 1 + 1;
# line 183 "logserial.cp"
                           _sql->dfmtCS_CHAR_TYPE.status = CS_INPUTVALUE;
# line 183 "logserial.cp"
                           _sql->retcode = ct_param(_sql->conn.command, 
# line 183 "logserial.cp"
                               &_sql->dfmtCS_CHAR_TYPE, _sqlcheckstr(_sql, 
# line 183 "logserial.cp"
                           SQLNULLSTR(daily_txlog.serv_type)), (CS_INT) 
# line 183 "logserial.cp"
                               CS_NULLTERM, (CS_SMALLINT) 0);
# line 183 "logserial.cp"
                           _sql->dfmtCS_CHAR_TYPE.status = 0;
# line 183 "logserial.cp"
                       }
# line 183 "logserial.cp"
                       
# line 183 "logserial.cp"
                       if (_sql->retcode == CS_SUCCEED)
# line 183 "logserial.cp"
                       {
# line 183 "logserial.cp"
                           _sql->dfmtCS_SMALLINT_TYPE.count = 0;
# line 183 "logserial.cp"
                           _sql->dfmtCS_SMALLINT_TYPE.status = CS_INPUTVALUE;
# line 183 "logserial.cp"
                           _sql->retcode = ct_param(_sql->conn.command, 
# line 183 "logserial.cp"
                               &_sql->dfmtCS_SMALLINT_TYPE, 
# line 183 "logserial.cp"
                               &daily_txlog.busin_type, (CS_INT) CS_UNUSED, 
# line 183 "logserial.cp"
                               (CS_SMALLINT) 0);
# line 183 "logserial.cp"
                           _sql->dfmtCS_SMALLINT_TYPE.status = 0;
# line 183 "logserial.cp"
                       }
# line 183 "logserial.cp"
                       
# line 183 "logserial.cp"
                       if (_sql->retcode == CS_SUCCEED)
# line 183 "logserial.cp"
                       {
# line 183 "logserial.cp"
                           _sql->dfmtCS_SMALLIN