dbfunc.c

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

                           _sql->retcode = _sqlepilog(_sql);
# line 114 "dbfunc.cp"
                       }
# line 114 "dbfunc.cp"
                       
# line 114 "dbfunc.cp"
                   }
# line 114 "dbfunc.cp"
                   
# line 114 "dbfunc.cp"
                   if (sqlca.sqlcode < 0)
# line 114 "dbfunc.cp"
                   {
# line 114 "dbfunc.cp"
                       error_handler();
# line 114 "dbfunc.cp"
                   }
# line 114 "dbfunc.cp"
                   
# line 114 "dbfunc.cp"
                   if (sqlca.sqlwarn[0] == 'W')
# line 114 "dbfunc.cp"
                   {
# line 114 "dbfunc.cp"
                       warning_handler();
# line 114 "dbfunc.cp"
                   }
# line 114 "dbfunc.cp"
                   
# line 114 "dbfunc.cp"
                   if (sqlca.sqlcode == 100)
# line 114 "dbfunc.cp"
                   {
# line 114 "dbfunc.cp"
                       notfound_handler();
# line 114 "dbfunc.cp"
                   }
# line 114 "dbfunc.cp"
                   
# line 114 "dbfunc.cp"
               }
# line 114 "dbfunc.cp"
               
# line 114 "dbfunc.cp"
           }
# line 114 "dbfunc.cp"
           

           /*
           ** Generated code ends here.
           */
# line 114 "dbfunc.cp"

	if ( sqlca.sqlcode < 0 ) return( sqlca.sqlcode) ;

	
           /*
           ** SQL STATEMENT: 10
           ** EXEC SQL EXECUTE IMMEDIATE "set chained off" ;
           */
# line 117 "dbfunc.cp"
# line 117 "dbfunc.cp"
           {
# line 117 "dbfunc.cp"
                _SQL_CT_HANDLES * _sql;
# line 117 "dbfunc.cp"
               _sqlinitctx(&_sql, CS_VERSION_125, CS_TRUE, &sqlca, (long 
# line 117 "dbfunc.cp"
                   *)NULL, (CS_CHAR *)NULL);
# line 117 "dbfunc.cp"
               if (_sql != (_SQL_CT_HANDLES *) NULL)
# line 117 "dbfunc.cp"
               {
# line 117 "dbfunc.cp"
                   _sql->stmtData.persistent = CS_FALSE;
# line 117 "dbfunc.cp"
                   _sql->stmttype = SQL_EXECUTE_IMMEDIATE;
# line 117 "dbfunc.cp"
                   _sql->connName.lnlen = CS_UNUSED;
# line 117 "dbfunc.cp"
                   if ((_sql->retcode = _sqlprolog(_sql)) == CS_SUCCEED)
# line 117 "dbfunc.cp"
                   {
# line 117 "dbfunc.cp"
                       _sql->retcode = ct_dynamic(_sql->conn.command, 
# line 117 "dbfunc.cp"
                           CS_EXEC_IMMEDIATE, NULL, CS_UNUSED, "set chained off"
"", 15);
# line 117 "dbfunc.cp"
                       _sql->retcode = ct_send(_sql->conn.command);
# line 117 "dbfunc.cp"
                       _sql->retcode = _sqlResults(_sql);
# line 117 "dbfunc.cp"
                       _sql->retcode = _sqlepilog(_sql);
# line 117 "dbfunc.cp"
                   }
# line 117 "dbfunc.cp"
                   
# line 117 "dbfunc.cp"
                   if (sqlca.sqlcode < 0)
# line 117 "dbfunc.cp"
                   {
# line 117 "dbfunc.cp"
                       error_handler();
# line 117 "dbfunc.cp"
                   }
# line 117 "dbfunc.cp"
                   
# line 117 "dbfunc.cp"
                   if (sqlca.sqlwarn[0] == 'W')
# line 117 "dbfunc.cp"
                   {
# line 117 "dbfunc.cp"
                       warning_handler();
# line 117 "dbfunc.cp"
                   }
# line 117 "dbfunc.cp"
                   
# line 117 "dbfunc.cp"
                   if (sqlca.sqlcode == 100)
# line 117 "dbfunc.cp"
                   {
# line 117 "dbfunc.cp"
                       notfound_handler();
# line 117 "dbfunc.cp"
                   }
# line 117 "dbfunc.cp"
                   
# line 117 "dbfunc.cp"
               }
# line 117 "dbfunc.cp"
               
# line 117 "dbfunc.cp"
           }
# line 117 "dbfunc.cp"
           

           /*
           ** Generated code ends here.
           */
# line 117 "dbfunc.cp"

	if ( sqlca.sqlcode < 0 ) return( sqlca.sqlcode) ;

	
           /*
           ** SQL STATEMENT: 11
           ** EXEC SQL EXECUTE IMMEDIATE "set transaction isolation level 1" ;
           */
# line 120 "dbfunc.cp"
# line 120 "dbfunc.cp"
           {
# line 120 "dbfunc.cp"
                _SQL_CT_HANDLES * _sql;
# line 120 "dbfunc.cp"
               _sqlinitctx(&_sql, CS_VERSION_125, CS_TRUE, &sqlca, (long 
# line 120 "dbfunc.cp"
                   *)NULL, (CS_CHAR *)NULL);
# line 120 "dbfunc.cp"
               if (_sql != (_SQL_CT_HANDLES *) NULL)
# line 120 "dbfunc.cp"
               {
# line 120 "dbfunc.cp"
                   _sql->stmtData.persistent = CS_FALSE;
# line 120 "dbfunc.cp"
                   _sql->stmttype = SQL_EXECUTE_IMMEDIATE;
# line 120 "dbfunc.cp"
                   _sql->connName.lnlen = CS_UNUSED;
# line 120 "dbfunc.cp"
                   if ((_sql->retcode = _sqlprolog(_sql)) == CS_SUCCEED)
# line 120 "dbfunc.cp"
                   {
# line 120 "dbfunc.cp"
                       _sql->retcode = ct_dynamic(_sql->conn.command, 
# line 120 "dbfunc.cp"
                           CS_EXEC_IMMEDIATE, NULL, CS_UNUSED, "set transaction"
" isolation level 1", 33);
# line 120 "dbfunc.cp"
                       _sql->retcode = ct_send(_sql->conn.command);
# line 120 "dbfunc.cp"
                       _sql->retcode = _sqlResults(_sql);
# line 120 "dbfunc.cp"
                       _sql->retcode = _sqlepilog(_sql);
# line 120 "dbfunc.cp"
                   }
# line 120 "dbfunc.cp"
                   
# line 120 "dbfunc.cp"
                   if (sqlca.sqlcode < 0)
# line 120 "dbfunc.cp"
                   {
# line 120 "dbfunc.cp"
                       error_handler();
# line 120 "dbfunc.cp"
                   }
# line 120 "dbfunc.cp"
                   
# line 120 "dbfunc.cp"
                   if (sqlca.sqlwarn[0] == 'W')
# line 120 "dbfunc.cp"
                   {
# line 120 "dbfunc.cp"
                       warning_handler();
# line 120 "dbfunc.cp"
                   }
# line 120 "dbfunc.cp"
                   
# line 120 "dbfunc.cp"
                   if (sqlca.sqlcode == 100)
# line 120 "dbfunc.cp"
                   {
# line 120 "dbfunc.cp"
                       notfound_handler();
# line 120 "dbfunc.cp"
                   }
# line 120 "dbfunc.cp"
                   
# line 120 "dbfunc.cp"
               }
# line 120 "dbfunc.cp"
               
# line 120 "dbfunc.cp"
           }
# line 120 "dbfunc.cp"
           

           /*
           ** Generated code ends here.
           */
# line 120 "dbfunc.cp"

	if ( sqlca.sqlcode < 0 ) return( sqlca.sqlcode) ;

	return( SUCCESS);
}

void DB_closeDB()
{
	
           /*
           ** SQL STATEMENT: 12
           ** EXEC SQL DISCONNECT ALL ;
           */
# line 128 "dbfunc.cp"
# line 128 "dbfunc.cp"
           {
# line 128 "dbfunc.cp"
                _SQL_CT_HANDLES * _sql;
# line 128 "dbfunc.cp"
               _sqlinitctx(&_sql, CS_VERSION_125, CS_TRUE, &sqlca, (long 
# line 128 "dbfunc.cp"
                   *)NULL, (CS_CHAR *)NULL);
# line 128 "dbfunc.cp"
               if (_sql != (_SQL_CT_HANDLES *) NULL)
# line 128 "dbfunc.cp"
               {
# line 128 "dbfunc.cp"
                   _sql->stmtData.persistent = CS_FALSE;
# line 128 "dbfunc.cp"
                   _sql->stmttype = SQL_DISCONNECT_ALL;
# line 128 "dbfunc.cp"
                   _sql->connName.lnlen = CS_UNUSED;
# line 128 "dbfunc.cp"
                   if ((_sql->retcode = _sqlprolog(_sql)) == CS_SUCCEED)
# line 128 "dbfunc.cp"
                   {
# line 128 "dbfunc.cp"
                       _sql->retcode = _sqlepilog(_sql);
# line 128 "dbfunc.cp"
                   }
# line 128 "dbfunc.cp"
                   
# line 128 "dbfunc.cp"
                   if (sqlca.sqlcode < 0)
# line 128 "dbfunc.cp"
                   {
# line 128 "dbfunc.cp"
                       error_handler();
# line 128 "dbfunc.cp"
                   }
# line 128 "dbfunc.cp"
                   
# line 128 "dbfunc.cp"
                   if (sqlca.sqlwarn[0] == 'W')
# line 128 "dbfunc.cp"
                   {
# line 128 "dbfunc.cp"
                       warning_handler();
# line 128 "dbfunc.cp"
                   }
# line 128 "dbfunc.cp"
                   
# line 128 "dbfunc.cp"
                   if (sqlca.sqlcode == 100)
# line 128 "dbfunc.cp"
                   {
# line 128 "dbfunc.cp"
                       notfound_handler();
# line 128 "dbfunc.cp"
                   }
# line 128 "dbfunc.cp"
                   
# line 128 "dbfunc.cp"
               }
# line 128 "dbfunc.cp"
               
# line 128 "dbfunc.cp"
           }
# line 128 "dbfunc.cp"
           

           /*
           ** Generated code ends here.
           */
# line 128 "dbfunc.cp"

	return;
}

void DB_Commit()
{
	
           /*
           ** SQL STATEMENT: 13
           ** EXEC SQL COMMIT TRANSACTION;

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

           /*
           ** Generated code ends here.
           */
# line 134 "dbfunc.cp"

	return;
}

void DB_Rollback()
{
	
           /*
           ** SQL STATEMENT: 14
           ** EXEC SQL ROLLBACK TRANSACTION;

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