dbfunc.c

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

                   
# line 140 "dbfunc.cp"
                   if (sqlca.sqlcode == 100)
# line 140 "dbfunc.cp"
                   {
# line 140 "dbfunc.cp"
                       notfound_handler();
# line 140 "dbfunc.cp"
                   }
# line 140 "dbfunc.cp"
                   
# line 140 "dbfunc.cp"
               }
# line 140 "dbfunc.cp"
               
# line 140 "dbfunc.cp"
           }
# line 140 "dbfunc.cp"
           

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

	return;
}

int  DB_search_pin(char *sname, short *ictype, char *icno, char *pin, char *cid)
{
	
           /*
           ** SQL STATEMENT: 14
           ** EXEC SQL BEGIN DECLARE SECTION ;
           */
# line 146 "dbfunc.cp"
 
	char sCid[17 + 1] ;
	char password[16 + 1] ;
	char name[30], id[30];
	int  type = -1;
	int  status = -1;
	
           /*
           ** SQL STATEMENT: 15
           ** EXEC SQL END DECLARE SECTION ;
           */
# line 152 "dbfunc.cp"

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


	
           /*
           ** SQL STATEMENT: 16
           ** EXEC SQL WHENEVER SQLERROR CALL error_handler() ;
           */
# line 154 "dbfunc.cp"

	
           /*
           ** SQL STATEMENT: 17
           ** EXEC SQL WHENEVER SQLWARNING CALL warning_handler() ;
           */
# line 155 "dbfunc.cp"

	
           /*
           ** SQL STATEMENT: 18
           ** EXEC SQL WHENEVER NOT FOUND CALL notfound_handler() ;
           */
# line 156 "dbfunc.cp"


	memset(sCid, 0, sizeof(sCid));
	strcpy(sCid, cid);
	bms_trace("cid=[%s]", sCid);

	memset(name, 0, sizeof(sname));
	memset(id, 0, sizeof(id));
	memset(password, 0, sizeof(password));

	
           /*
           ** SQL STATEMENT: 19
           ** EXEC SQL SELECT status INTO :status 
           ** 		 FROM person_info
           ** 		 WHERE cid = :sCid;
           */
# line 168 "dbfunc.cp"
# line 166 "dbfunc.cp"
           {
# line 166 "dbfunc.cp"
                _SQL_CT_HANDLES * _sql;
# line 166 "dbfunc.cp"
               _sqlinitctx(&_sql, CS_VERSION_125, CS_TRUE, &sqlca, (long 
# line 166 "dbfunc.cp"
                   *)NULL, (CS_CHAR *)NULL);
# line 166 "dbfunc.cp"
               if (_sql != (_SQL_CT_HANDLES *) NULL)
# line 166 "dbfunc.cp"
               {
# line 166 "dbfunc.cp"
                   _sql->stmtIdlen = CS_UNUSED;
# line 166 "dbfunc.cp"
                   _sql->stmtData.persistent = CS_FALSE;
# line 166 "dbfunc.cp"
                   _sql->stmttype = SQL_SELECT_STMT;
# line 166 "dbfunc.cp"
                   _sql->connName.lnlen = CS_UNUSED;
# line 166 "dbfunc.cp"
                   if ((_sql->retcode = _sqlprolog(_sql)) == CS_SUCCEED)
# line 166 "dbfunc.cp"
                   {
# line 166 "dbfunc.cp"
                       _sql->retcode = ct_command(_sql->conn.command, 
# line 166 "dbfunc.cp"
                           CS_LANG_CMD, "SELECT status FROM person_info 	"
"	 WHERE cid = @sql1_sCid ", 57, CS_UNUSED);
# line 166 "dbfunc.cp"
                       if (_sql->retcode == CS_SUCCEED)
# line 166 "dbfunc.cp"
                       {
# line 166 "dbfunc.cp"
                           _sql->dfmtCS_CHAR_TYPE.count = 0;
# line 166 "dbfunc.cp"
                           _sql->dfmtCS_CHAR_TYPE.format = (CS_FMT_NULLTERM | 
# line 166 "dbfunc.cp"
                               CS_FMT_PADBLANK);
# line 166 "dbfunc.cp"
                           _sql->dfmtCS_CHAR_TYPE.maxlength = 17 + 1;
# line 166 "dbfunc.cp"
                           _sql->dfmtCS_CHAR_TYPE.status = CS_INPUTVALUE;
# line 166 "dbfunc.cp"
                           _sql->retcode = ct_param(_sql->conn.command, 
# line 166 "dbfunc.cp"
                               &_sql->dfmtCS_CHAR_TYPE, _sqlcheckstr(_sql, 
# line 166 "dbfunc.cp"
                           SQLNULLSTR(sCid)), (CS_INT) CS_NULLTERM, 
# line 166 "dbfunc.cp"
                               (CS_SMALLINT) 0);
# line 166 "dbfunc.cp"
                           _sql->dfmtCS_CHAR_TYPE.status = 0;
# line 166 "dbfunc.cp"
                       }
# line 166 "dbfunc.cp"
                       
# line 166 "dbfunc.cp"
                       _sql->retcode = ct_send(_sql->conn.command);
# line 166 "dbfunc.cp"
                       _sql->resloop = CS_TRUE;
# line 166 "dbfunc.cp"
                       while ((_sql->resloop == CS_TRUE) && (_sql->retcode = 
# line 166 "dbfunc.cp"
                           ct_results(_sql->conn.command, &_sql->restype)) == 
# line 166 "dbfunc.cp"
                       CS_SUCCEED)
# line 166 "dbfunc.cp"
                       {
# line 166 "dbfunc.cp"
                           switch ( _sql->restype )
# line 166 "dbfunc.cp"
                           {
# line 166 "dbfunc.cp"
                           case CS_COMPUTE_RESULT:
# line 166 "dbfunc.cp"
                               _sqlsetintrerr(_sql, (CS_INT) 
# line 166 "dbfunc.cp"
                                   _SQL_INTRERR_25003);
# line 166 "dbfunc.cp"
                               _sql->retcode = ct_cancel(NULL, 
# line 166 "dbfunc.cp"
                                   _sql->conn.command, CS_CANCEL_CURRENT);
# line 166 "dbfunc.cp"
                           break;
# line 166 "dbfunc.cp"
                           case CS_CURSOR_RESULT:
# line 166 "dbfunc.cp"
                               _sqlsetintrerr(_sql, (CS_INT) 
# line 166 "dbfunc.cp"
                                   _SQL_INTRERR_25004);
# line 166 "dbfunc.cp"
                               _sql->retcode = ct_cancel(NULL, 
# line 166 "dbfunc.cp"
                                   _sql->conn.command, CS_CANCEL_CURRENT);
# line 166 "dbfunc.cp"
                           break;
# line 166 "dbfunc.cp"
                           case CS_PARAM_RESULT:
# line 166 "dbfunc.cp"
                               _sqlsetintrerr(_sql, (CS_INT) 
# line 166 "dbfunc.cp"
                                   _SQL_INTRERR_25005);
# line 166 "dbfunc.cp"
                               _sql->retcode = ct_cancel(NULL, 
# line 166 "dbfunc.cp"
                                   _sql->conn.command, CS_CANCEL_CURRENT);
# line 166 "dbfunc.cp"
                           break;
# line 166 "dbfunc.cp"
                           case CS_ROW_RESULT:
# line 166 "dbfunc.cp"
                               _sql->dfmtCS_INT_TYPE.count = 0;
# line 166 "dbfunc.cp"
                                   _sql->retcode = ct_bind(_sql->conn.command, 
# line 166 "dbfunc.cp"
                                       1, &_sql->dfmtCS_INT_TYPE, &status, 
# line 166 "dbfunc.cp"
                                       NULL, NULL);
# line 166 "dbfunc.cp"
                               _sql->retcode = ct_fetch(_sql->conn.command, 
# line 166 "dbfunc.cp"
                                   CS_UNUSED, CS_UNUSED, CS_UNUSED, 
# line 166 "dbfunc.cp"
                                   &_sql->rowsread);
# line 166 "dbfunc.cp"
                               if ((_sql->retcode == CS_SUCCEED) || 
# line 166 "dbfunc.cp"
                                   (_sql->retcode == CS_ROW_FAIL))
# line 166 "dbfunc.cp"
                               {
# line 166 "dbfunc.cp"
                                   _sql->retcode = ct_bind(_sql->conn.command, 
# line 166 "dbfunc.cp"
                                       CS_UNUSED, NULL, NULL, NULL, NULL);
# line 166 "dbfunc.cp"
                                   _sql->retcode = ct_fetch(_sql->conn.command,
# line 166 "dbfunc.cp"
                                        CS_UNUSED, CS_UNUSED, CS_UNUSED, 
# line 166 "dbfunc.cp"
                                       &_sql->rowsread);
# line 166 "dbfunc.cp"
                               }
# line 166 "dbfunc.cp"
                               
# line 166 "dbfunc.cp"
                           break;
# line 166 "dbfunc.cp"
                           case CS_STATUS_RESULT:
# line 166 "dbfunc.cp"
                               _sqlsetintrerr(_sql, (CS_INT) 
# line 166 "dbfunc.cp"
                                   _SQL_INTRERR_25009);
# line 166 "dbfunc.cp"
                               _sql->retcode = ct_cancel(NULL, 
# line 166 "dbfunc.cp"
                                   _sql->conn.command, CS_CANCEL_CURRENT);
# line 166 "dbfunc.cp"
                           break;
# line 166 "dbfunc.cp"
                           case CS_DESCRIBE_RESULT:
# line 166 "dbfunc.cp"
                               _sqlsetintrerr(_sql, (CS_INT) 
# line 166 "dbfunc.cp"
                                   _SQL_INTRERR_25010);
# line 166 "dbfunc.cp"
                           break;
# line 166 "dbfunc.cp"
                           }
# line 166 "dbfunc.cp"
                           
# line 166 "dbfunc.cp"
                       }
# line 166 "dbfunc.cp"
                       
# line 166 "dbfunc.cp"
                       if ((_sql->retcode != CS_END_RESULTS) && (_sql->retcode 
# line 166 "dbfunc.cp"
                           != CS_CANCELED) && (_sql->resloop != CS_FALSE))
# line 166 "dbfunc.cp"
                       {
# line 166 "dbfunc.cp"
                           _sql->retcode = ct_cancel(NULL, _sql->conn.command, 
# line 166 "dbfunc.cp"
                               CS_CANCEL_ALL);
# line 166 "dbfunc.cp"
                           }
# line 166 "dbfunc.cp"
                            else {
# line 166 "dbfunc.cp"
                           if (_sql->retcode != CS_CANCELED)
# line 166 "dbfunc.cp"
                           {
# line 166 "dbfunc.cp"
                               _sql->retcode = CS_SUCCEED;
# line 166 "dbfunc.cp"
                           }
# line 166 "dbfunc.cp"
                           
# line 166 "dbfunc.cp"
                       }
# line 166 "dbfunc.cp"
                       
# line 166 "dbfunc.cp"
                       _sql->retcode = _sqlepilog(_sql);
# line 166 "dbfunc.cp"
                   }
# line 166 "dbfunc.cp"
                   
# line 166 "dbfunc.cp"
                   if (sqlca.sqlcode < 0)
# line 166 "dbfunc.cp"
                   {
# line 166 "dbfunc.cp"
                       error_handler();
# line 166 "dbfunc.cp"
                   }
# line 166 "dbfunc.cp"
                   
# line 166 "dbfunc.cp"
                   if (sqlca.sqlwarn[0] == 'W')
# line 166 "dbfunc.cp"
                   {
# line 166 "dbfunc.cp"
                       warning_handler();
# line 166 "dbfunc.cp"
                   }
# line 166 "dbfunc.cp"
                   
# line 166 "dbfunc.cp"
                   if (sqlca.sqlcode == 100)
# line 166 "dbfunc.cp"
                   {
# line 166 "dbfunc.cp"
                       notfound_handler();
# line 166 "dbfunc.cp"
                   }
# line 166 "dbfunc.cp"
                   
# line 166 "dbfunc.cp"
               }
# line 166 "dbfunc.cp"
               
# line 166 "dbfunc.cp"
           }
# line 166 "dbfunc.cp"
           

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


	if( sqlca.sqlcode )
	{
		return sqlca.sqlcode;
	}

	if( status == 2 )
	{
		return 101;
	}

	
            /*
            ** SQL STATEMENT: 20
            ** EXEC SQL SELECT a.name, a.ic_type, a.ic_no, b.ppasswd 
            ** 	         INTO :name, :type, :id, :password 
            ** 	         FROM person_info a, ps_accinfo b
            ** 	         WHERE a.cid = b.cid AND a.cid = :sCid;
            */
# line 183 "dbfunc.cp"
# line 180 "dbfunc.cp"
            {
# line 180 "dbfunc.cp"
                 _SQL_CT_HANDLES * _sql;
# line 180 "dbfunc.cp"
                _sqlinitctx(&_sql, CS_VERSION_125, CS_TRUE, &sqlca, (long 
# line 180 "dbfunc.cp"
                    *)NULL, (CS_CHAR *)NULL);
# line 180 "dbfunc.cp"
                if (_sql != (_SQL_CT_HANDLES *) NULL)
# line 180 "dbfunc.cp"
                {
# line 180 "dbfunc.cp"
                    _sql->stmtIdlen = CS_UNUSED;
# line 180 "dbfunc.cp"
                    _sql->stmtData.persistent = CS_FALSE;
# line 180 "dbfunc.cp"
                    _sql->stmttype = SQL_SELECT_STMT;
# line 180 "dbfunc.cp"
                    _sql->connName.lnlen = CS_UNUSED;
# line 180 "dbfunc.cp"
                    if ((_sql->retcode = _sqlprolog(_sql)) == CS_SUCCEED)
# line 180 "dbfunc.cp"
                    {
# line 180 "dbfunc.cp"
                        _sql->retcode = ct_command(_sql->conn.command, 
# line 180 "dbfunc.cp"
                            CS_LANG_CMD, "SELECT a.name, a.ic_type, a.ic_no, b."
"ppasswd  	         FROM person_info a, ps_accinfo b 	         WHERE"
" a.cid = b.cid AND a.cid = @sql4_sCid ", 142, CS_UNUSED);
# line 180 "dbfunc.cp"
                        if (_sql->retcode == CS_SUCCEED)
# line 180 "dbfunc.cp"
                        {
# line 180 "dbfunc.cp"
                            _sql->dfmtCS_CHAR_TYPE.count = 0;
# line 180 "dbfunc.cp"
                            _sql->dfmtCS_CHAR_TYPE.format = (CS_FMT_NULLTERM | 
# line 180 "dbfunc.cp"
                                CS_FMT_PADBLANK);
# line 180 "dbfunc.cp"
                            _sql->dfmtCS_CHAR_TYPE.maxlength = 17 + 1;
# line 180 "dbfunc.cp"
                            _sql->dfmtCS_CHAR_TYPE.status = CS_INPUTVALUE;
# line 180 "dbfunc.cp"
                            _sql->retcode = ct_param(_sql->conn.command, 
# line 180 "dbfunc.cp"
                                &_sql->dfmtCS_CHAR_TYPE, _sqlcheckstr(_sql, 
# line 180 "dbfunc.cp"
                            SQLNULLSTR(sCid)), (CS_INT) CS_NULLTERM, 
# line 180 "dbfunc.cp"
                                (CS_SMALLINT) 0);
# line 180 "dbfunc.cp"
                            _sql->dfmtCS_CHAR_TYPE.status = 0;
# line 180 "dbfunc.cp"
                        }
# line 180 "dbfunc.cp"
                        
# line 180 "dbfunc.cp"
                        _sql->retcode = ct_send(_sql->conn.command);
# line 180 "dbfunc.cp"
                        _sql->resloop = CS_TRUE;
# line 180 "dbfunc.cp"
                        while ((_sql->resloop == CS_TRUE) && (_sql->retcode = 
# line 180 "dbfunc.cp"
                            ct_results(_sql->conn.command, &_sql->restype)) == 
# line 180 "dbfunc.cp"
                        CS_SUCCEED)
# line 180 "dbfunc.cp"
                        {
# line 180 "dbfunc.cp"
                            switch ( _sql->restype )
# line 180 "dbfunc.cp"
                            {
# line 180 "dbfunc.cp"
                            case CS_COMPUTE_RESULT:
# line 180 "dbfunc.cp"
                                _sqlsetintrerr(_sql, (CS_INT) 
# line 180 "dbfunc.cp"
                                    _SQL_INTRERR_25003);
# line 180 "dbfunc.cp"
                                _sql->retcode = ct_cancel(NULL, 
# line 180 "dbfunc.cp"
                                    _sql->conn.command, CS_CANCEL_CURRENT);
# line 180 "dbfunc.cp"
                            break;
# line 180 "dbfunc.cp"
                            case CS_CURSOR_RESULT:
# line 180 "dbfunc.cp"
                                _sqlsetintrerr(_sql, (CS_INT) 
# line 180 "dbfunc.cp"
                                    _SQL_INTRERR_25004);
# line 180 "dbfunc.cp"
                                _sql->retcode = ct_cancel(NULL, 
# line 180 "dbfunc.cp"
                                    _sql->conn.command, CS_CANCEL_CURRENT);
# line 180 "dbfunc.cp"
                            break;
# line 180 "dbfunc.cp"
                            case CS_PARAM_RESULT:
# line 180 "dbfunc.cp"
                                _sqlsetintrerr(_sql, (CS_INT) 
# line 180 "dbfunc.cp"
                                    _SQL_INTRERR_25005);
# line 180 "dbfunc.cp"
                                _sql->retcode = ct_cancel(NULL, 
# line 180