logserial.c

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

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


	if (sqlca.sqlcode) 
	{
		bms_trace("error2 = [%d]\n", sqlca.sqlcode);
		fprintf(stdout, "%s\n", sqlca.sqlerrm.sqlerrmc);
		
           /*
           ** SQL STATEMENT: 11
           ** EXEC SQL ROLLBACK TRANSACTION;

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

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

		return FAILURE;
	}
	bms_trace("CurrLog[%d] [%s]", CurrLog, WorkDate);
	
        
           /*
           ** SQL STATEMENT: 12
           ** EXEC SQL EXEC :SerialNo = proc_getserialno;

           */
# line 55 "logserial.cp"
# line 55 "logserial.cp"
           {
# line 55 "logserial.cp"
                _SQL_CT_HANDLES * _sql;
# line 55 "logserial.cp"
               _sqlinitctx(&_sql, CS_VERSION_125, CS_TRUE, &sqlca, (long 
# line 55 "logserial.cp"
                   *)NULL, (CS_CHAR *)NULL);
# line 55 "logserial.cp"
               if (_sql != (_SQL_CT_HANDLES *) NULL)
# line 55 "logserial.cp"
               {
# line 55 "logserial.cp"
                   _sql->stmtIdlen = CS_UNUSED;
# line 55 "logserial.cp"
                   _sql->stmtData.persistent = CS_FALSE;
# line 55 "logserial.cp"
                   _sql->stmttype = SQL_EXECUTE_PROCEDURE;
# line 55 "logserial.cp"
                   _sql->connName.lnlen = CS_UNUSED;
# line 55 "logserial.cp"
                   if ((_sql->retcode = _sqlprolog(_sql)) == CS_SUCCEED)
# line 55 "logserial.cp"
                   {
# line 55 "logserial.cp"
                       _sql->retcode = ct_command(_sql->conn.command, 
# line 55 "logserial.cp"
                           CS_RPC_CMD, "proc_getserialno", 16, 
# line 55 "logserial.cp"
                           CS_NO_RECOMPILE);
# line 55 "logserial.cp"
                       _sql->retcode = ct_send(_sql->conn.command);
# line 55 "logserial.cp"
                       _sql->resloop = CS_TRUE;
# line 55 "logserial.cp"
                       while ((_sql->resloop == CS_TRUE) && (_sql->retcode = 
# line 55 "logserial.cp"
                           ct_results(_sql->conn.command, &_sql->restype)) == 
# line 55 "logserial.cp"
                       CS_SUCCEED)
# line 55 "logserial.cp"
                       {
# line 55 "logserial.cp"
                           switch ( _sql->restype )
# line 55 "logserial.cp"
                           {
# line 55 "logserial.cp"
                           case CS_COMPUTE_RESULT:
# line 55 "logserial.cp"
                               _sqlsetintrerr(_sql, (CS_INT) 
# line 55 "logserial.cp"
                                   _SQL_INTRERR_25003);
# line 55 "logserial.cp"
                               _sql->retcode = ct_cancel(NULL, 
# line 55 "logserial.cp"
                                   _sql->conn.command, CS_CANCEL_CURRENT);
# line 55 "logserial.cp"
                           break;
# line 55 "logserial.cp"
                           case CS_CURSOR_RESULT:
# line 55 "logserial.cp"
                               _sqlsetintrerr(_sql, (CS_INT) 
# line 55 "logserial.cp"
                                   _SQL_INTRERR_25004);
# line 55 "logserial.cp"
                               _sql->retcode = ct_cancel(NULL, 
# line 55 "logserial.cp"
                                   _sql->conn.command, CS_CANCEL_CURRENT);
# line 55 "logserial.cp"
                           break;
# line 55 "logserial.cp"
                           case CS_PARAM_RESULT:
# line 55 "logserial.cp"
                               _sqlsetintrerr(_sql, (CS_INT) 
# line 55 "logserial.cp"
                                   _SQL_INTRERR_25005);
# line 55 "logserial.cp"
                               _sql->retcode = ct_cancel(NULL, 
# line 55 "logserial.cp"
                                   _sql->conn.command, CS_CANCEL_CURRENT);
# line 55 "logserial.cp"
                           break;
# line 55 "logserial.cp"
                           case CS_ROW_RESULT:
# line 55 "logserial.cp"
                               _sqlsetintrerr(_sql, (CS_INT) 
# line 55 "logserial.cp"
                                   _SQL_INTRERR_25006);
# line 55 "logserial.cp"
                               _sql->retcode = ct_cancel(NULL, 
# line 55 "logserial.cp"
                                   _sql->conn.command, CS_CANCEL_CURRENT);
# line 55 "logserial.cp"
                           break;
# line 55 "logserial.cp"
                           case CS_STATUS_RESULT:
# line 55 "logserial.cp"
                               _sql->dfmtCS_INT_TYPE.count = 0;
# line 55 "logserial.cp"
                                   _sql->retcode = ct_bind(_sql->conn.command, 
# line 55 "logserial.cp"
                                       1, &_sql->dfmtCS_INT_TYPE, &SerialNo, 
# line 55 "logserial.cp"
                                       NULL, NULL);
# line 55 "logserial.cp"
                               _sql->retcode = ct_fetch(_sql->conn.command, 
# line 55 "logserial.cp"
                                   CS_UNUSED, CS_UNUSED, CS_UNUSED, 
# line 55 "logserial.cp"
                                   &_sql->rowsread);
# line 55 "logserial.cp"
                               if ((_sql->retcode == CS_SUCCEED) || 
# line 55 "logserial.cp"
                                   (_sql->retcode == CS_ROW_FAIL))
# line 55 "logserial.cp"
                               {
# line 55 "logserial.cp"
                                   _sql->retcode = ct_bind(_sql->conn.command, 
# line 55 "logserial.cp"
                                       CS_UNUSED, NULL, NULL, NULL, NULL);
# line 55 "logserial.cp"
                                   _sql->retcode = ct_fetch(_sql->conn.command,
# line 55 "logserial.cp"
                                        CS_UNUSED, CS_UNUSED, CS_UNUSED, 
# line 55 "logserial.cp"
                                       &_sql->rowsread);
# line 55 "logserial.cp"
                               }
# line 55 "logserial.cp"
                               
# line 55 "logserial.cp"
                           break;
# line 55 "logserial.cp"
                           case CS_DESCRIBE_RESULT:
# line 55 "logserial.cp"
                               _sqlsetintrerr(_sql, (CS_INT) 
# line 55 "logserial.cp"
                                   _SQL_INTRERR_25010);
# line 55 "logserial.cp"
                           break;
# line 55 "logserial.cp"
                           }
# line 55 "logserial.cp"
                           
# line 55 "logserial.cp"
                       }
# line 55 "logserial.cp"
                       
# line 55 "logserial.cp"
                       if ((_sql->retcode != CS_END_RESULTS) && (_sql->retcode 
# line 55 "logserial.cp"
                           != CS_CANCELED) && (_sql->resloop != CS_FALSE))
# line 55 "logserial.cp"
                       {
# line 55 "logserial.cp"
                           _sql->retcode = ct_cancel(NULL, _sql->conn.command, 
# line 55 "logserial.cp"
                               CS_CANCEL_ALL);
# line 55 "logserial.cp"
                           }
# line 55 "logserial.cp"
                            else {
# line 55 "logserial.cp"
                           if (_sql->retcode != CS_CANCELED)
# line 55 "logserial.cp"
                           {
# line 55 "logserial.cp"
                               _sql->retcode = CS_SUCCEED;
# line 55 "logserial.cp"
                           }
# line 55 "logserial.cp"
                           
# line 55 "logserial.cp"
                       }
# line 55 "logserial.cp"
                       
# line 55 "logserial.cp"
                       _sql->retcode = _sqlepilog(_sql);
# line 55 "logserial.cp"
                   }
# line 55 "logserial.cp"
                   
# line 55 "logserial.cp"
                   if (sqlca.sqlcode < 0)
# line 55 "logserial.cp"
                   {
# line 55 "logserial.cp"
                       error_handler();
# line 55 "logserial.cp"
                   }
# line 55 "logserial.cp"
                   
# line 55 "logserial.cp"
                   if (sqlca.sqlwarn[0] == 'W')
# line 55 "logserial.cp"
                   {
# line 55 "logserial.cp"
                       warning_handler();
# line 55 "logserial.cp"
                   }
# line 55 "logserial.cp"
                   
# line 55 "logserial.cp"
                   if (sqlca.sqlcode == 100)
# line 55 "logserial.cp"
                   {
# line 55 "logserial.cp"
                       notfound_handler();
# line 55 "logserial.cp"
                   }
# line 55 "logserial.cp"
                   
# line 55 "logserial.cp"
               }
# line 55 "logserial.cp"
               
# line 55 "logserial.cp"
           }
# line 55 "logserial.cp"
           

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


        if( SerialNo < 0 )
        {
                bms_trace("EXEC proc_getserialno failed.");
                return FAILURE;
        }

	
           /*
           ** SQL STATEMENT: 13
           ** EXEC SQL COMMIT TRANSACTION;

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

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


	strcpy(bs->serv_date, WorkDate);

	bs->trade_serial = SerialNo;

	*Active = CurrLog;

	return SUCCESS;
}

int DB_LogTransaction(int ActiveLog, BIG_STRC *bs)
{
	
           /*
           ** SQL STATEMENT: 13
           ** EXEC SQL BEGIN DECLARE SECTION ;
           */
# line 76 "logserial.cp"

	SQL_DAILY_TXLOG daily_txlog;
	short 	active = 0;