EXEC my_name_procedure @arg1, @arg2, @arg3, @arg4, @arg5 OUT

//---------------------------------------------------------------------------------------------------------------------
static bool CallSp( const char *lpszServiceName, const string HostName, 
                     const unsigned short wUDPPort, const unsigned int internalBES_id, 
                     const unsigned long wPID, RIMStream &DBNSrequest, 
                     const char * lpszdbConnectString, unsigned int service_timeout )
{
    const char * db_fcn = "CallSp";
    bool bSuccess = true;

    _CommandPtr    pCmd;
    _RecordsetPtr  pRS;

    _ConnectionPtr  pConnection = NULL;
    try
    {
        // Initialize the command object
        HRESULT hr = pCmd.CreateInstance( CLSID_Command );
        if( FAILED(hr) ) 
        {
            bSuccess = false;
        } 

        TESTHR(pConnection.CreateInstance(__uuidof(Connection)));
        pConnection->Open ( lpszdbConnectString, "", "", adConnectUnspecified );

        // Set all the command parameters and execute the command
        pCmd->ActiveConnection = pConnection;

        pCmd->CommandText = (_bstr_t)"my_name_procedure";
        pCmd->CommandType = adCmdStoredProc;

        // wrap rim data
        _variant_t vData;
        const size_t buffer_len = StreamWrapper( vData, DBNSrequest );

        vector<DBNSRequest> lstTest;
        //unsigned char *ptrData  = (unsigned char *)vData.parray->pvData;

        long version =  0 ;
        if( buffer_len >  0  )
        {
            _ParameterPtr  pParm0 = pCmd->CreateParameter( "", adVarChar,   adParamInput,  10 ,   lpszServiceName );
            _ParameterPtr  pParm1 = pCmd->CreateParameter( "", adVarChar,   adParamInput,  255 ,  HostName.c_str() );
            _ParameterPtr  pParm2 = pCmd->CreateParameter( "", adInteger,   adParamInput,  0 ,    (long)wUDPPort );
            _ParameterPtr  pParm3 = pCmd->CreateParameter( "", adInteger,   adParamInput,  0 ,    (long)internalBES_id );
            _ParameterPtr  pParm4 = pCmd->CreateParameter( "", adInteger,   adParamInput,  0 ,    (long)wPID );
            _ParameterPtr  pParm5 = pCmd->CreateParameter( "", adVarBinary, adParamInput, buffer_len, vData );
            _ParameterPtr  pParm6 = pCmd->CreateParameter( "", adInteger,   adParamInput,  0 ,    (long)service_timeout );
            _ParameterPtr  pParm7 = pCmd->CreateParameter( _bstr_t("version"), adInteger,   adParamOutput, 0 ,    version );

            pCmd->Parameters->Append( pParm0 );
            pCmd->Parameters->Append( pParm1 );
            pCmd->Parameters->Append( pParm2 );
            pCmd->Parameters->Append( pParm3 );
            pCmd->Parameters->Append( pParm4 );
            pCmd->Parameters->Append( pParm5 );
            pCmd->Parameters->Append( pParm6 );
            pCmd->Parameters->Append( pParm7 );

            hr = pCmd->Execute(  0 ,  0 , adCmdStoredProc );
            if( FAILED(hr) )
            {
                bSuccess = false;
            }
            pParm7 = pCmd->Parameters->GetItem(_bstr_t("version"));
            version = pParm7->GetValue();

            if( version < DBNS_VERSION && version ==  0  )
            {
                bSuccess = false;
            }
        }
    }
    catch(_com_error comerr)
    {
        DebugLog::Printf( DebugLog::LOG_INFORMATIONAL, IDE_35007, LoadString( IDE_35007 ), db_fcn,
            comerr.Error(), comerr.ErrorMessage(), (LPCTSTR)(_bstr_t)comerr.Source(), (LPCTSTR)(_bstr_t)comerr.Description(), "my_name_procedure" );
        bSuccess = false;
    }
    catch( ... )
    {
        DebugLog::Printf(DebugLog::LOG_INFORMATIONAL, IDE_35003, LoadString( IDE_35003 ), db_fcn);
        bSuccess = false;
    }
    if( pConnection )
    {
        if( pConnection->State == adStateOpen )
        {
            pConnection->Close();
        }
    }

    return bSuccess;
}