declare @pdata bigint 
exec master..xp_Proc1 "имя", @pdata OUTPUT
select @pdata

RETCODE __declspec(dllexport) xp_crc64(SRV_PROC *srvproc)
{
    try
    {
        if( srv_rpcparams(srvproc) <  2  ) 
        {
            srv_sendmsg(srvproc, SRV_MSG_ERROR, GETTABLE_ERROR, SRV_INFO, (DBTINYINT)  0 , NULL,  0 ,  0 , 
                "Wrong number of parameters - must be four : word varbinary IN, codepage int IN, crc64 char(20) OUT", SRV_NULLTERM);
            srv_senddone(srvproc, (SRV_DONE_ERROR | SRV_DONE_MORE),  0 ,  0 );
            return(- 1 );
        }
  
        if( srv_paramtype(srvproc,  1 ) != SRVVARBINARY || srv_paramtype(srvproc,  2 ) != SRVINTN )
        {
            char *msg = "Error executing extended stored procedure: Invalid parameter type.";
            // Send error message and return.
            srv_sendmsg(srvproc, SRV_MSG_ERROR, GETTABLE_ERROR, SRV_INFO, (DBTINYINT)  0 , NULL,  0 ,  0 , msg, SRV_NULLTERM);
            // A SRV_DONE_MORE instead of a SRV_DONE_FINAL must complete the
            // result set of an Extended Stored Procedure.
            srv_senddone(srvproc, (SRV_DONE_ERROR | SRV_DONE_MORE),  0 ,  0 );
            return(- 1 );
        } 
        // word
        size_t szlen = srv_paramlen(srvproc,  1 );
		wchar_t buff[LEN_BUFFER+ 1 ] = { 0 };
        if( szlen > LEN_BUFFER )
        {
            szlen = LEN_BUFFER;
        }
        memcpy( buff, srv_paramdata(srvproc,  1 ), szlen );

        DBINT codepage =  1252 ;
        memcpy(&codepage, srv_paramdata(srvproc,  2 ), srv_paramlen(srvproc,  2 ));
        if( codepage <  0  )
        {
            codepage =  1252 ;
        }
        unsigned __int64 rs = hashWord_crc64( buff, codepage );
		char str[ 256 ] = { 0 };
        _snprintf( str, sizeof(str)- 1 , "%I64d", rs );

        if( srv_rpcparams(srvproc) ==  3 )
        {
            srv_paramsetoutput(srvproc,  3 , (unsigned char *)str, strlen(str), FALSE);
        }else
        {
            size_t len = (wcslen(buff) <<  1 ) +  2 ;
            srv_describe(srvproc,  1 , "crc64", SRV_NULLTERM, SRVINT8, sizeof(__int64), SRVINT8, sizeof(__int64), NULL); 
            srv_describe(srvproc,  2 , "txt", SRV_NULLTERM, SRVNVARCHAR,  64 , SRVNVARCHAR,  64 , NULL); 

            srv_setcollen (srvproc,  1 , sizeof(__int64));    srv_setcoldata (srvproc,  1 , (void *)&rs);
            srv_setcollen (srvproc,  2 , len);    srv_setcoldata (srvproc,  2 , (void *)buff);

		    srv_sendrow(srvproc);
        }
        srv_senddone (srvproc, SRV_DONE_COUNT | SRV_DONE_MORE, (DBUSMALLINT)  0 ,  1 );
        return  0 ;
    }
    catch(...)
    {
        srv_sendmsg(srvproc, SRV_MSG_ERROR, GETTABLE_ERROR, SRV_INFO, (DBTINYINT)  0 , NULL,  0 ,  0 , "Unknown error in xp_crc64", SRV_NULLTERM);
        srv_senddone(srvproc, (SRV_DONE_ERROR | SRV_DONE_MORE),  0 ,  0 );
        return - 1 ;
    }
    return - 1 ;
}