PC World Komputer 1998 July & August/Pcwk78a98.iso/Micrsoft/VJ/OS/SYSTEM/INSTCAT.SQL

Text File | 1998-02-12 | 635KB | 20,266 lines

/*
**    INSTCAT.SQL
**    Installs catalog stored procedures on the Microsoft SQL Server.
**    Copyright 1992-1998, Microsoft Corp.    All rights reserved.
*/

/*
NOTE:  you MUST change the last row inserted into spt_server_info
to be version number of this file.    the convention is j.nn.bbb, where
jj is the major version number ('7' now), nn is the minor version number
('00' now), and bbb is the build number.
insert into spt_server_info
    values (500, 'SYS_SPROC_VERSION', '7.00.bbb')
*/

/****************************************************************************/
/* This portion sets up the ability to perform all the functions in this    */
/* script                                                                    */
/****************************************************************************/
go
use master
go
dump tran master with no_log
go

set quoted_identifier on
go

if (exists (select * from sysobjects
        where name = 'sp_configure' and type = 'P '))
begin
    execute sp_configure 'update',1
end
reconfigure with override
go

exec sp_MS_upd_sysobj_category 1 /*Capture datetime for use below.*/

go

/*
** If old versions of tables exist, drop them.
*/
if (exists (select * from sysobjects
        where name = 'MSdatatype_info' and type = 'U '))
    drop table MSdatatype_info
go
if (exists (select * from sysobjects
        where name = 'MSdatatype_info_ext' and type = 'U '))
    drop table MSdatatype_info_ext
go
if (exists (select * from sysobjects
        where name = 'MStable_types' and type = 'U '))
    drop table MStable_types
go
if (exists (select * from sysobjects
        where name = 'MSserver_info' and type = 'U '))
    drop table MSserver_info
go
if (exists (select * from sysobjects
        where name = 'spt_table_types' and type = 'U '))
    drop table spt_table_types
go
if (exists (select * from sysobjects
        where name = 'spt_provider_types' and type = 'U '))
    drop table spt_provider_types
go
/*
** If tables or procs already exist, drop them.
*/

if (exists (select * from sysobjects
        where name = 'spt_datatype_info' and type = 'U '))
    drop table spt_datatype_info
go
if (exists (select * from sysobjects
        where name = 'spt_datatype_info_ext' and type = 'U '))
    drop table spt_datatype_info_ext
go
if (exists (select * from sysobjects
        where name = 'spt_server_info' and type = 'U '))
    drop table spt_server_info
go
if (exists (select * from sysobjects
        where name = 'sp_tables' and type = 'P '))
    drop proc sp_tables
go
if (exists (select * from sysobjects
        where name = 'sp_statistics' and type = 'P '))
    drop proc sp_statistics
go
if (exists (select * from sysobjects
        where name = 'sp_columns' and type = 'P '))
    drop proc sp_columns
go
if (exists (select * from sysobjects
        where name = 'sp_fkeys' and type = 'P '))
    drop proc sp_fkeys
go
if (exists (select * from sysobjects
        where name = 'sp_pkeys' and type = 'P '))
    drop proc sp_pkeys
dump tran master with no_log
go

go
if (exists (select * from sysobjects
        where name = 'sp_stored_procedures' and type = 'P '))
    drop proc sp_stored_procedures
go
if (exists (select * from sysobjects
        where name = 'sp_sproc_columns' and type = 'P '))
    drop proc sp_sproc_columns
go
if (exists (select * from sysobjects
        where name = 'sp_table_privileges' and type = 'P '))
    drop proc sp_table_privileges
go
if (exists (select * from sysobjects
        where name = 'sp_column_privileges' and type = 'P '))
    drop proc sp_column_privileges
go
dump tran master with no_log
go
if (exists (select * from sysobjects
        where name = 'sp_server_info' and type = 'P '))
    drop proc sp_server_info
go
if (exists (select * from sysobjects
        where name = 'sp_datatype_info' and type = 'P '))
    drop proc sp_datatype_info
go
if (exists (select * from sysobjects
        where name = 'sp_special_columns' and type = 'P '))
    drop proc sp_special_columns
go
if (exists (select * from sysobjects
        where name = 'sp_databases' and type = 'P '))
    drop proc sp_databases
go
dump tran master with no_log
go
if (exists (select * from sysobjects
        where name = 'sp_ddopen' and type = 'P '))
    drop proc sp_ddopen
go

dump tran master with no_log
go


if (exists (select * from sysobjects
        where name = 'sp_catalogs_rowset' and type = 'P '))
    drop procedure sp_catalogs_rowset
go
if (exists (select * from sysobjects
        where name = 'sp_column_privileges_rowset' and type = 'P '))
    drop procedure sp_column_privileges_rowset
go
if (exists (select * from sysobjects
        where name = 'sp_columns_rowset' and type = 'P '))
    drop procedure sp_columns_rowset
go
if (exists (select * from sysobjects
        where name = 'sp_foreign_keys_rowset' and type = 'P '))
    drop procedure sp_foreign_keys_rowset
go
if (exists (select * from sysobjects
        where name = 'sp_indexes_rowset' and type = 'P '))
    drop procedure sp_indexes_rowset
go
if (exists (select * from sysobjects
        where name = 'sp_primary_keys_rowset' and type = 'P '))
    drop procedure sp_primary_keys_rowset
go
if (exists (select * from sysobjects
        where name = 'sp_procedure_params_rowset' and type = 'P '))
    drop procedure sp_procedure_params_rowset
go
if (exists (select * from sysobjects
        where name = 'sp_procedures_rowset' and type = 'P '))
    drop procedure sp_procedures_rowset
go
if (exists (select * from sysobjects
        where name = 'sp_provider_types_rowset' and type = 'P '))
    drop procedure sp_provider_types_rowset
go
if (exists (select * from sysobjects
        where name = 'sp_schemata_rowset' and type = 'P '))
    drop procedure sp_schemata_rowset
go
if (exists (select * from sysobjects
        where name = 'sp_statistics_rowset' and type = 'P '))
    drop procedure sp_statistics_rowset
go
if (exists (select * from sysobjects
        where name = 'sp_tables_rowset' and type = 'P '))
    drop procedure sp_tables_rowset
go
if (exists (select * from sysobjects
        where name = 'sp_table_privileges_rowset' and type = 'P '))
    drop proc sp_table_privileges_rowset
go
if (exists (select * from sysobjects
        where name = 'sp_linkedservers_rowset' and type = 'P '))
    drop proc sp_linkedservers_rowset
go

dump tran master with no_log
go

print 'creating table spt_datatype_info_ext'
go

if (charindex('6.00', @@version) = 0 and
    charindex('6.50', @@version) = 0 and
    charindex('7.00', @@version) = 0)
begin    /*    Pre 6.0 server */
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 6.0 SQL Server.'
    print 'Ignore the following error.'
    create table spt_datatype_info_ext (
                user_type        smallint    not null,
                CREATE_PARAMS    varchar(32) null,
                AUTO_INCREMENT    smallint null,
                typename        varchar(32))
end
go
if (charindex('6.00', @@version) > 0 or
    charindex('6.50', @@version) > 0 or
    charindex('7.00', @@version) > 0)
begin    /* 6.0 or later server */
    create table spt_datatype_info_ext (
                user_type        smallint    not null,
                CREATE_PARAMS    varchar(32) null,
                AUTO_INCREMENT    smallint null,
                typename        sysname)    /* from systypes, to avoid xusertype hard-code */
end
go

grant select on spt_datatype_info_ext to public
go


insert into spt_datatype_info_ext
    /* CHAR      user_type, create_params, auto_increment */
    values             (1,    'length' ,0, 'char')

insert into spt_datatype_info_ext
    /* VARCHAR     user_type, create_params, auto_increment */
    values             (2,    'max length' ,0, 'varchar')

insert into spt_datatype_info_ext
    /* BINARY     user_type, create_params, auto_increment */
    values             (3,    'length' ,0, 'binary')

insert into spt_datatype_info_ext
    /* VARBINARY user_type, create_params, auto_increment */
    values             (4,    'max length' ,0, 'varbinary')

if    (charindex('6.00', @@version) > 0 or
     charindex('6.50', @@version) > 0 or
     charindex('7.00', @@version) > 0)
begin    /*    Add 6.0 data types */
    insert into spt_datatype_info_ext
        /* DECIMAL user_type, create_params, auto_increment */
        values             (26,    'precision,scale' ,0, 'decimal')

    insert into spt_datatype_info_ext
        /* NUMERIC user_type, create_params, auto_increment */
        values             (25,    'precision,scale' ,0, 'numeric')

    insert into spt_datatype_info_ext
        /* DECIMAL IDENTITY user_type, create_params, auto_increment */
        values             (26,    'precision' ,1, 'decimal')

    insert into spt_datatype_info_ext
        /* NUMERIC IDENTITY user_type, create_params, auto_increment */
        values             (25,    'precision' ,1, 'numeric')

end
else    /*    Pre 6.0 server, add SYSNAME create param */
    begin
        insert into spt_datatype_info_ext
            /* SYSNAME     user_type, create_param, auto_increments */
            values             (18,    'max length' ,0, 'sysname')

    end
go

if (charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
go
if (charindex('7.00', @@version) > 0)
begin    /*    Update usertypes for 7.00 server */
    begin tran
    insert into spt_datatype_info_ext
        /* NCHAR     user_type, create_params, auto_increment */
        values             (0,    'length' ,0, 'nchar')

    insert into spt_datatype_info_ext
        /* NVARCHAR     user_type, create_params, auto_increment */
        values             (0,    'max length' ,0, 'nvarchar')

    /* SET user_type TO SPHINX VALUES */
    update spt_datatype_info_ext set user_type = xusertype
        from spt_datatype_info_ext e, systypes t where t.name = e.typename

    commit tran
end
go

create unique clustered index datatypeinfoextclust on spt_datatype_info_ext(user_type,AUTO_INCREMENT)
go

print 'creating table spt_datatype_info'
go
if (charindex('6.00', @@version) = 0 and
    charindex('6.50', @@version) = 0 and
    charindex('7.00', @@version) = 0)
begin    /*    Pre 6.0 server */
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 6.0 SQL Server.'
    print 'Ignore the following error.'
    create table spt_datatype_info (
        ss_dtype            tinyint     not null,
        fixlen                int         null,        /* datatype len for variable, else null */
        ODBCVer             tinyint     null,        /* version if needed, else null */
        TYPE_NAME            varchar(32)    not null,
        DATA_TYPE            smallint    not null,
        data_precision        int         null,
        numeric_scale        smallint    null,    /* min scale if 6.0 */
        RADIX                smallint    null,
        length                int         null,
        LITERAL_PREFIX        varchar(32) null,
        LITERAL_SUFFIX        varchar(32) null,
        CREATE_PARAMS        varchar(32) null,
        NULLABLE            smallint    not null,
        CASE_SENSITIVE        smallint    not null,
        SEARCHABLE            smallint    not null,
        UNSIGNED_ATTRIBUTE    smallint    null,
        MONEY                smallint    not null,
        AUTO_INCREMENT        smallint    null,
        LOCAL_TYPE_NAME     varchar(32)    null,
        charbin             tinyint     null, /* 0 for char/binary types, NULL for all others */
        SQL_DATA_TYPE        smallint    not null,
        SQL_DATETIME_SUB    smallint    null)
end
go
if (charindex('6.00', @@version) > 0 or
    charindex('6.50', @@version) > 0 or
    charindex('7.00', @@version) > 0)
begin    /* 6.0 or later server */
    create table spt_datatype_info (
        ss_dtype            tinyint     not null,
        fixlen                int         null,        /* datatype len for variable, else null */
        ODBCVer             tinyint     null,        /* version if needed, else null */
        TYPE_NAME            sysname     not null,
        DATA_TYPE            smallint    not null,
        data_precision        int         null,
        numeric_scale        smallint    null,    /* min scale if 6.0 */
        RADIX                smallint    null,
        length                int         null,
        LITERAL_PREFIX        varchar(32) null,
        LITERAL_SUFFIX        varchar(32) null,
        CREATE_PARAMS        varchar(32) null,
        NULLABLE            smallint    not null,
        CASE_SENSITIVE        smallint    not null,
        SEARCHABLE            smallint    not null,
        UNSIGNED_ATTRIBUTE    smallint    null,
        MONEY                smallint    not null,
        AUTO_INCREMENT        smallint    null,
        LOCAL_TYPE_NAME     sysname     null,
        charbin             tinyint     null, /* 0 for char/binary types, NULL for all others */
        SQL_DATA_TYPE        smallint    not null,
        SQL_DATETIME_SUB    smallint    null)
end
go

grant select on spt_datatype_info to public
go

/* Get case sensitivity */
/*(leih 10/8/96) SID: Part I. break into two batches to avoid OOM error */
if 'A' = 'A' /* create dummy begin block */
begin
    declare @case smallint

    begin tran
    select @case = 0
    select @case = 1 where 'a' <> 'A'

    /* Local Binary */
    insert into spt_datatype_info values
    (45,null,null,'binary',-2,null,null,null,null,'0x',null,'length',1,0,2,null,0,null,'binary',0,-2,null)

    /* Local Bit */
    insert into spt_datatype_info values
    (50,null,null,'bit',-7,1,0,2,null,null,null,null,0,0,2,null,0,null,'bit',null,-7,null)

    /* Local Char */
    insert into spt_datatype_info values
    (47,null,null,'char',1,null,null,null,null,'''','''','length',1,@case,3,null,0,null,'char',0,1,null)

    /* Local Datetime */
    insert into spt_datatype_info values
    (61,8,2,'datetime',11,23,3,10,16,'''','''',null,1,0,3,null,0,null,'datetime',null,9,3)
    insert into spt_datatype_info values
    (61,8,3,'datetime',93,23,3,10,16,'''','''',null,1,0,3,null,0,null,'datetime',null,9,3)

    /* Local Smalldatetime */
    insert into spt_datatype_info values
    (58,4,2,'smalldatetime',11,16,0,10,16,'''','''',null,1,0,3,null,0,null,'smalldatetime',null,9,3)
    insert into spt_datatype_info values
    (58,4,3,'smalldatetime',93,16,0,10,16,'''','''',null,1,0,3,null,0,null,'smalldatetime',null,9,3)

    /* Local Float */
    insert into spt_datatype_info values
    (62,8,2,'float',6,15,null,10,8,null,null,null,1,0,2,0,0,0,'float',null,6,null)
    insert into spt_datatype_info values
    (62,8,3,'float',6,53,null, 2,8,null,null,null,1,0,2,0,0,0,'float',null,6,null)

    /* Local Real */
    insert into spt_datatype_info values
    (59,4,2,'real',7, 7,null,10,4,null,null,null,1,0,2,0,0,0,'real',null,7,null)
    insert into spt_datatype_info values
    (59,4,3,'real',7,24,null, 2,4,null,null,null,1,0,2,0,0,0,'real',null,7,null)

    /* Local Smallmoney */
    insert into spt_datatype_info values
    (122,4,null,'smallmoney',3,10,4,10,12,'$',null,null,1,0,2,0,1,0,'smallmoney',null,3,null)

    /* Local Money */
    insert into spt_datatype_info values
    (60,8,null,'money',3,19,4,10,21,'$',null,null,1,0,2,0,1,0,'money',null,3,null)

    /* Local Int */
    insert into spt_datatype_info values
    (56,4,null,'int',4,10,0,10,4,null,null,null,1,0,2,0,0,0,'int',null,4,null)

    commit tran
end
go

/*(leih 10/8/96) SID: Part II. break into two batches to avoid OOM error */
if 'A' = 'A' /* create dummy begin block */
begin
    declare @case smallint

    begin tran
    select @case = 0
    select @case = 1 where 'a' <> 'A'


    /* Local Smallint */
    insert into spt_datatype_info values
    (52,2,null,'smallint',5,5,0,10,2,null,null,null,1,0,2,0,0,0,'smallint',null,5,null)
    insert into spt_datatype_info values
    (52,2,1,'smallint',5,5,0,10,2,null,null,null,1,0,2,0,0,0,'smallint',null,5,null)

    /* Local Tinyint */
    insert into spt_datatype_info values
    (48,1,null,'tinyint',-6,3,0,10,1,null,null,null,1,0,2,1,0,0,'tinyint',null,-6,null)

    /* Local Text */
    insert into spt_datatype_info values
    (35,null,null,'text',-1,2147483647,null,null,2147483647,'''','''',null,1,@case,1,null,0,null,'text',0,-1,null)

    /* Local Varbinary */
    insert into spt_datatype_info values
    (37,null,null,'varbinary',-3,null,null,null,null,'0x',null,'max length',1,0,2,null,0,null,'varbinary',0,-3,null)

    /* Local Varchar */
    insert into spt_datatype_info values
    (39,null,null,'varchar',12,null,null,null,null,'''','''','max length',1,@case,3,null,0,null,'varchar',0,12,null)

    /* Local Image */
    insert into spt_datatype_info values
    (34,null,null,'image',-4,2147483647,null,null,2147483647,'0x',null,null,1,0,0,null,0,null,'image',0,-4,null)

    if (charindex('6.00', @@version) > 0 or
        charindex('6.50', @@version) > 0 or
        charindex('7.00', @@version) > 0)
    begin    /*    Add 6.0 data types */
        /* Local Decimal */
        insert into spt_datatype_info values    /* sql server type is 'decimaln' */
        (55,null,null,'decimal',3,38,0,10,null,null,null,'precision,scale',1,0,2,0,0,0,'decimal',null,3,null)

        /* Local Numeric */
        insert into spt_datatype_info values    /* sql server type is 'numericn' */
        (63,null,null,'numeric',2    ,38,0,10,null,null,null,'precision,scale',1,0,2,0,0,0,'numeric',null,2,null)

        /* Identity attribute data types */

        /* Identity Int */
        insert into spt_datatype_info values
        (56,null,null,'int identity',4,10,0,10,null,null,null,null,0,0,2,0,0,1,'int identity',null,4,null)

        /* Identity Smallint */
        insert into spt_datatype_info values
        (52,null,null,'smallint identity',5,5,0,10,null,null,null,null,0,0,2,0,0,1,'smallint identity',null,5,null)

        /* Identity Tinyint */
        insert into spt_datatype_info values
        (48,null,null,'tinyint identity',-6,3,0,10,null,null,null,null,0,0,2,1,0,1,'tinyint identity',null,-6,null)

        /* Identity Numeric */
        insert into spt_datatype_info values    /* sql server type is 'decmaln' */
        (55,null,null,'decimal() identity',3,38,0,10,null,null,null,'precision,scale',0,0,2,0,0,1,'decimal() identity',null,3,null)

        /* Identity Numeric */
        insert into spt_datatype_info values    /* sql server type is 'decmaln' */
        (63,null,null,'numeric() identity',2,38,0,10,null,null,null,'precision,scale',0,0,2,0,0,1,'numeric() identity',null,2,null)

    end

    if (charindex('7.00', @@version) = 0)
    begin    /*    Add nullable type for non-Sphinx server */
        /* Local Datetimn */
        insert into spt_datatype_info values
        (111,4,2,'smalldatetime',11,16,0,10,16,'''','''',null,1,0,3,null,0,null,'smalldatetime',null,9,3)
        insert into spt_datatype_info values
        (111,4,3,'smalldatetime',93,16,0,10,16,'''','''',null,1,0,3,null,0,null,'smalldatetime',null,9,3)
        insert into spt_datatype_info values /* sql server type is 'datetimn' */
        (111,8,2,'datetime',11,23,3,10,16,'''','''',null,1,0,3,null,0,null,'datetime',null,9,3)
        insert into spt_datatype_info values
        (111,8,3,'datetime',93,23,3,10,16,'''','''',null,1,0,3,null,0,null,'datetime',null,9,3)

        /* Local Floatn */
        insert into spt_datatype_info values /* sql server type is 'floatn' */
        (109,4,2,'real',7, 7,null,10,4,null,null,null,1,0,2,0,0,0,'real',null,7,null)
        insert into spt_datatype_info values
        (109,4,3,'real',7,24,null, 2,4,null,null,null,1,0,2,0,0,0,'real',null,7,null)
        insert into spt_datatype_info values /* sql server type is 'floatn' */
        (109,8,2,'float',6,15,null,10,8,null,null,null,1,0,2,0,0,0,'float',null,6,null)
        insert into spt_datatype_info values
        (109,8,3,'float',6,53,null, 2,8,null,null,null,1,0,2,0,0,0,'float',null,6,null)

        /* Local Moneyn */
        insert into spt_datatype_info values    /* sql server type is 'moneyn' */
        (110,4,null,'smallmoney',3,10,4,10,12,'$',null,null,1,0,2,0,1,0,'smallmoney',null,3,null)
        insert into spt_datatype_info values    /* sql server type is 'moneyn' */
        (110,8,null,'money',3,19,4,10,21,'$',null,null,1,0,2,0,1,0,'money',null,3,null)

        /* Local Intn */
        insert into spt_datatype_info values /* sql server type is 'intn' */
        (38,4,null,'int',4,10,0,10,4,null,null,null,1,0,2,0,0,0,'int',null,4,null)
        insert into spt_datatype_info values /* sql server type is 'intn' */
        (38,2,null,'smallint',5,5,0,10,2,null,null,null,1,0,2,0,0,0,'smallint',null,5,null)
        insert into spt_datatype_info values
        (38,1,null,'tinyint',-6,3,0,10,1,null,null,null,1,0,2,1,0,0,'tinyint',null,-6,null)

        if (charindex('6.00', @@version) > 0 or
            charindex('6.50', @@version) > 0 or
            charindex('7.00', @@version) > 0)
        begin    /*    Add 6.0 data types */
            /* Local Decimaln */
            insert into spt_datatype_info values    /* sql server type is 'decimaln' */
            (106,null,null,'decimal',3,38,0,10,null,null,null,'precision,scale',1,0,2,0,0,0,'decimal',null,3,null)
            insert into spt_datatype_info values    /* sql server type is 'decmaln' */
            (106,null,null,'decimal() identity',3,38,0,10,null,null,null,'precision,scale',0,0,2,0,0,1,'decimal() identity',null,3,null)

            /* Local Numericn */
            insert into spt_datatype_info values    /* sql server type is 'numericn' */
            (108,null,null,'numeric',2,38,0,10,null,null,null,'precision,scale',1,0,2,0,0,0,'numeric',null,2,null)
            insert into spt_datatype_info values    /* sql server type is 'decmaln' */
            (108,null,null,'numeric() identity',2,38,0,10,null,null,null,'precision,scale',0,0,2,0,0,1,'numeric() identity',null,2,null)
        end
    end

    commit tran
end
go

if (charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
go
if (charindex('7.00', @@version) > 0)
    begin
        declare @case smallint

        select @case = 0
        select @case = 1 where 'a' <> 'A'

        /* Local Timestamp */
        insert into spt_datatype_info values
        (0,null,null,'timestamp',-2,8,null,null,null,'0x',null,null,1,0,2,null,0,null,'timestamp',0,-2,null)

        /* Local GUID */
        insert into spt_datatype_info values
        (0,null,null,'uniqueidentifier',-11,16,null,null,null,'''','''',null,1,0,2,null,0,null,'uniqueidentifier',NULL,-11,null)

        /* Local NChar */
        insert into spt_datatype_info values
        (0,null,null,'nchar',-8,null,null,null,null,'N''','''','length',1,@case,3,null,0,null,'nchar',0,-8,null)

        /* Local NVarchar */
        insert into spt_datatype_info values
        (0,null,null,'nvarchar',-9,null,null,null,null,'N''','''','max length',1,@case,3,null,0,null,'nvarchar',0,-9,null)

        /* Local NText */
        insert into spt_datatype_info values
        (0,null,null,'ntext',-10,2147483646,null,null,2147483646,'N''','''',null,1,@case,1,null,0,null,'ntext',0,-10,null)

        update spt_datatype_info set ss_dtype = (select xtype from systypes
            where TYPE_NAME like name+'%')
    end
go

create unique clustered index datatypeinfoclust on spt_datatype_info(ss_dtype,fixlen,ODBCVer,AUTO_INCREMENT)
go

dump tran master with no_log
go

print 'creating table spt_server_info'
go
create table spt_server_info (
              attribute_id        int NOT NULL,
              attribute_name    varchar(60) NOT NULL,
              attribute_value    varchar(255) NOT NULL)
go

create unique clustered index serverinfoclust on spt_server_info(attribute_id)
go

/*(leih 10/8/96) SID: Part I break into two batches to avoid OOM error */
insert into spt_server_info
    values (1,'DBMS_NAME','Microsoft SQL Server')
insert into spt_server_info
    values (2,'DBMS_VER',@@version)
insert into spt_server_info
    values (10,'OWNER_TERM','owner')
insert into spt_server_info
    values (11,'TABLE_TERM','table')
insert into spt_server_info
    values (12,'MAX_OWNER_NAME_LENGTH','30')
insert into spt_server_info
    values (13,'TABLE_LENGTH','30')
insert into spt_server_info
    values (14,'MAX_QUAL_LENGTH','30')
insert into spt_server_info
    values (15,'COLUMN_LENGTH','30')
if 'A' = 'a' /* If not case sensitive server */
begin
    insert into spt_server_info
        values (16,'IDENTIFIER_CASE','MIXED')
end
else
begin
    insert into spt_server_info
        values (16,'IDENTIFIER_CASE','SENSITIVE')
end
insert into spt_server_info
    values (17,'TX_ISOLATION','2')
insert into spt_server_info
    select 18,'COLLATION_SEQ',
        'charset='+t2.name+' sort_order='+t1.name
        +' charset_num='+rtrim(convert(char(4),t1.csid))+
        ' sort_order_num='+rtrim(convert(char(4),t1.id))
    from master.dbo.syscharsets t1, master.dbo.syscharsets t2, master.dbo.sysconfigures t3
    where t1.csid=t2.id and t1.id=t3.value and t3.config in (123,1123)
insert into spt_server_info
    values (19,'SAVEPOINT_SUPPORT','Y')
insert into spt_server_info
    values (20,'MULTI_RESULT_SETS','Y')
insert into spt_server_info
    values (22,'ACCESSIBLE_TABLES','Y')
go

/*(leih 10/8/96) SID: Part II. break into two batches to avoid OOM error */
insert into spt_server_info
    values (100,'USERID_LENGTH','30')
insert into spt_server_info
    values (101,'QUALIFIER_TERM','database')
insert into spt_server_info
    values (102,'NAMED_TRANSACTIONS','Y')
insert into spt_server_info
    values (103,'SPROC_AS_LANGUAGE','Y')
insert into spt_server_info
    values (104,'ACCESSIBLE_SPROC','Y')
insert into spt_server_info
    values (105,'MAX_INDEX_COLS','16')
insert into spt_server_info
    values (106,'RENAME_TABLE','Y')
insert into spt_server_info
    values (107,'RENAME_COLUMN','Y')
insert into spt_server_info
    values (108,'DROP_COLUMN','N')
insert into spt_server_info
    values (109,'INCREASE_COLUMN_LENGTH','N')
if (charindex('6.50', @@version) = 0 and
    charindex('7.00', @@version) = 0)
begin
    insert into spt_server_info
        values (110,'DDL_IN_TRANSACTION','N')
end
else
begin
    insert into spt_server_info
        values (110,'DDL_IN_TRANSACTION','Y')
end
insert into spt_server_info
    values (111,'DESCENDING_INDEXES','N')
insert into spt_server_info
    values (112,'SP_RENAME','Y')
insert into spt_server_info
    values (113,'REMOTE_SPROC','Y')
insert into spt_server_info
    values (500,'SYS_SPROC_VERSION','7.00.408')
go

if (charindex('7.00', @@version) > 0)
begin    /*    Update values for 7.00 server */
    update spt_server_info set attribute_value = '128'
        where attribute_id in (12,13,14,15,100)
end
go

grant select on spt_server_info to public
go

print 'creating sp_column_privileges'
go

/*    Procedure for pre 6.50 server */
CREATE PROCEDURE sp_column_privileges (
            @table_name         varchar(32),
            @table_owner        varchar(32) = null,
            @table_qualifier    varchar(32) = null,
            @column_name        varchar(96) = null)    /* 3*32 */
as

    declare @table_id     int
    DECLARE @full_table_name    varchar(65)    /* 2*32 + 1 */
    declare @low smallint                     /* range of userids to check */
    declare @high smallint
    declare @owner_uid smallint

    select @low = 0, @high = 32767

    if @column_name is null /*    If column name not supplied, match all */
        select @column_name = '%'

    if @table_qualifier is not null
    begin
        if db_name() <> @table_qualifier
        begin    /* If qualifier doesn't match current database */
            raiserror 20001 'Table qualifier must be name of current database'
            return
        end
    end
    if @table_owner is null
    begin    /* If unqualified table name */
        SELECT @full_table_name = @table_name
    end
    else
    begin    /* Qualified table name */
        SELECT @full_table_name = @table_owner + '.' + @table_name
    end
    /*    Get Object ID */
    select @table_id = object_id(@full_table_name)

    if (@@trancount <> 0)
    begin    /* If inside a transaction */
        raiserror 20003 'The procedure ''sp_column_privileges'' cannot be executed from within a transaction.'
        return
    end

    /*
    ** We need to create a table which will contain a row for every row to
    ** be returned to the client.
    */

    create table #column_priv1(
        COLUMN_NAME             varchar(32) NOT NULL,
        grantor                 smallint NOT NULL,
        grantee                 smallint NOT NULL,
        select_privilege        bit,
        select_grantable        bit,
        insert_privilege        bit,
        insert_grantable        bit,
        update_privilege        bit,
        update_grantable        bit,
        references_privilege    bit,
        references_grantable    bit,
        uid                     smallint NOT NULL,
        gid                     smallint NOT NULL)

/*
** insert a row for the table owner (who has all permissions)
*/
    select @owner_uid = (
        select uid
        from sysobjects
        where id = @table_id)

    if (charindex('6.00', @@version) > 0)
    begin
        insert into #column_priv1
            select
                c.name,
                u.uid,
                @owner_uid,
                0,
                1,
                0,
                1,
                0,
                1,
                0,
                1,
                @owner_uid,
                0
            from syscolumns c, sysusers u
            where id = @table_id
                and c.number = 0
                and u.suid = 1        /* grantor is dbo of database */
    end
    else
    begin
        insert into #column_priv1
            select
                c.name,
                u.uid,
                @owner_uid,
                0,
                1,
                0,
                1,
                0,
                1,
                0,
                0,
                @owner_uid,
                0
            from syscolumns c, sysusers u
            where id = @table_id
                and c.number = 0
                and u.suid = 1        /* grantor is dbo of database */
    end
/*
** now stick in a row for every column for every user in the database
** we will need to weed out those who have no permissions later
** (and yes this is a cartesion product: the uid field in sysprotects
** can also have a group id, in which case we need to extend those
** privileges to all group members).
*/

    insert into #column_priv1
        select distinct
            c.name,
            o.uid,
            u.uid,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            u.uid,
            u.gid
        from sysusers u, syscolumns c, sysobjects o
        where o.id = @table_id
            and c.id = o.id
            and c.number = 0
            and u.gid <> u.uid
            and u.uid <> @owner_uid

    /*
    ** we need to create another temporary table to contain all the various
    ** protection information for the table in question
    */
    create table #protects (
                uid         smallint NOT NULL,
                grantor        smallint NOT NULL,
                action        tinyint NOT NULL,
                protecttype tinyint NOT NULL,
                name        varchar(32) NOT NULL)

    insert into #protects
        select
            p.uid,
            p.uid,
            p.action,
            p.protecttype,
            isnull(col_name(id, c.number), '~All')
            from
                sysprotects p,
                master.dbo.spt_values c,
                master.dbo.spt_values a,
                master.dbo.spt_values b
            where
                convert(tinyint, substring(isnull(p.columns, 0x1), c.low, 1))
                    & c.high <> 0
                    and c.number <= (
                        select count(*)
                        from syscolumns
                        where id = @table_id)
                and c.type = 'P'
                and a.type = 'T'
                and a.number = p.action
                and p.action in (193,195,197,26)
                and b.type = 'T'
                and b.number = p.protecttype
                and p.id = @table_id
                and p.uid between @low and @high


    update #column_priv1
    set select_privilege = 1
        from #protects p
    where
        p.protecttype = 205
        and p.action = 193
        and (p.name = #column_priv1.COLUMN_NAME
            or name = '~All')
        and (p.uid = 0
            or p.uid = #column_priv1.gid
            or p.uid = #column_priv1.uid)
        and not exists (
            select * from #protects
            where
                protecttype = 206
                and action = 193
                and (name = #column_priv1.COLUMN_NAME
                    or name = '~All')
                and ( uid = 0
                    or uid = #column_priv1.gid
                    or uid = #column_priv1.uid))

    update #column_priv1
    set insert_privilege = 1
        from #protects p
    where
        p.protecttype = 205
        and p.action = 195
        and (p.name = #column_priv1.COLUMN_NAME
            or name = '~All')
        and (p.uid = 0
            or p.uid = #column_priv1.gid
            or p.uid = #column_priv1.uid)
        and not exists (
            select * from #protects
            where
                protecttype = 206
                and action = 195
                and (name = #column_priv1.COLUMN_NAME
                       or name = '~All')
                and (uid = 0
                    or uid = #column_priv1.gid
                    or uid = #column_priv1.uid))

    update #column_priv1
    set update_privilege = 1
        from #protects p
    where
        p.protecttype = 205
        and p.action = 197
        and (p.name = #column_priv1.COLUMN_NAME
            or name = '~All')
        and (p.uid = 0
            or p.uid = #column_priv1.gid
            or p.uid = #column_priv1.uid)
        and not exists (
            select * from #protects
                where protecttype = 206
                and action = 197
                and (name = #column_priv1.COLUMN_NAME
                    or name = '~All')
                and (uid = 0
                    or uid = #column_priv1.gid
                    or uid = #column_priv1.uid))

    update #column_priv1
    set references_privilege = 1
        from #protects p
    where
        p.protecttype = 205
        and p.action = 26
        and (p.name = #column_priv1.COLUMN_NAME
            or name = '~All')
        and (p.uid = 0
            or p.uid = #column_priv1.gid
            or p.uid = #column_priv1.uid)
        and not exists (
            select * from #protects
                where protecttype = 206
                and action = 26
                and (name = #column_priv1.COLUMN_NAME
                    or name = '~All')
                and (uid = 0
                    or uid = #column_priv1.gid
                    or uid = #column_priv1.uid))

    update #column_priv1
    set select_grantable = 1
        from #protects p
    where
        p.protecttype = 204
        and p.action = 193
        and (p.name = #column_priv1.COLUMN_NAME
            or name = '~All')
        and (p.uid = 0
            or p.uid = #column_priv1.gid
            or p.uid = #column_priv1.uid)
        and not exists (
            select * from #protects
            where
                protecttype = 206
                and action = 193
                and (name = #column_priv1.COLUMN_NAME
                    or name = '~All')
                and ( uid = 0
                    or uid = #column_priv1.gid
                    or uid = #column_priv1.uid))

    update #column_priv1
    set insert_grantable = 1
        from #protects p
    where
        p.protecttype = 204
        and p.action = 195
        and (p.name = #column_priv1.COLUMN_NAME
            or name = '~All')
        and (p.uid = 0
            or p.uid = #column_priv1.gid
            or p.uid = #column_priv1.uid)
        and not exists (
            select * from #protects
            where
                protecttype = 206
                and action = 195
                and (name = #column_priv1.COLUMN_NAME
                    or name = '~All')
                and ( uid = 0
                    or uid = #column_priv1.gid
                    or uid = #column_priv1.uid))

    update #column_priv1
    set update_grantable = 1
        from #protects p
    where
        p.protecttype = 204
        and p.action = 197
        and (p.name = #column_priv1.COLUMN_NAME
            or name = '~All')
        and (p.uid = 0
            or p.uid = #column_priv1.gid
            or p.uid = #column_priv1.uid)
        and not exists (
            select * from #protects
            where
                protecttype = 206
                and action = 197
                and (name = #column_priv1.COLUMN_NAME
                    or name = '~All')
                and ( uid = 0
                    or uid = #column_priv1.gid
                    or uid = #column_priv1.uid))

    update #column_priv1
    set references_grantable = 1
        from #protects p
    where
        p.protecttype = 204
        and p.action = 26
        and (p.name = #column_priv1.COLUMN_NAME
            or name = '~All')
        and (p.uid = 0
            or p.uid = #column_priv1.gid
            or p.uid = #column_priv1.uid)
        and not exists (
            select * from #protects
            where
                protecttype = 206
                and action = 26
                and (name = #column_priv1.COLUMN_NAME
                    or name = '~All')
                and ( uid = 0
                    or uid = #column_priv1.gid
                    or uid = #column_priv1.uid))

    create table #column_priv2(
        COLUMN_NAME     varchar(32) NOT NULL,
        grantor         smallint NULL,
        grantee         smallint NOT NULL,
        PRIVILEGE        varchar(32) NOT NULL,
        IS_GRANTABLE    varchar(3) NULL)

    insert into #column_priv2
        select
            COLUMN_NAME,
            grantor,
            grantee,
            'SELECT',
            'NO'
        from #column_priv1
        where select_privilege = 1 and select_grantable    = 0

    insert into #column_priv2
        select
            COLUMN_NAME,
            grantor,
            grantee,
            'INSERT',
            'NO'
        from #column_priv1
        where insert_privilege = 1 and insert_grantable = 0

    insert into #column_priv2
        select
            COLUMN_NAME,
            grantor,
            grantee,
            'UPDATE',
            'NO'
        from #column_priv1
        where update_privilege = 1 and update_grantable = 0

    insert into #column_priv2
        select
            COLUMN_NAME,
            grantor,
            grantee,
            'REFERENCES',
            'NO'
        from #column_priv1
        where references_privilege = 1 and references_grantable = 0

    insert into #column_priv2
        select
            COLUMN_NAME,
            grantor,
            grantee,
            'SELECT',
            'YES'
        from #column_priv1
        where select_grantable = 1

    insert into #column_priv2
        select
            COLUMN_NAME,
            grantor,
            grantee,
            'INSERT',
            'YES'
        from #column_priv1
        where insert_grantable = 1

    insert into #column_priv2
        select
            COLUMN_NAME,
            grantor,
            grantee,
            'UPDATE',
            'YES'
        from #column_priv1
        where update_grantable = 1

    insert into #column_priv2
        select
            COLUMN_NAME,
            grantor,
            grantee,
            'REFERENCES',
            'YES'
        from #column_priv1
        where references_grantable = 1

    select
        convert(varchar(32),db_name()) TABLE_QUALIFIER,
        convert(varchar(32),user_name(@owner_uid)) TABLE_OWNER,
        @table_name TABLE_NAME,
        COLUMN_NAME,
        convert(varchar(32),user_name(grantor)) GRANTOR,
        convert(varchar(32),user_name(grantee)) GRANTEE,
        PRIVILEGE,
        IS_GRANTABLE
    from #column_priv2
    where COLUMN_NAME like @column_name
    order by 4, 7
go

if (charindex('6.50', @@version) = 0 and
    charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 6.50 SQL Server.'
    print 'Ignore the following errors.'
end
else
    drop proc sp_column_privileges
go

/*    Procedure for 6.50 server */
CREATE PROCEDURE sp_column_privileges (
            @table_name         varchar(32),
            @table_owner        varchar(32) = null,
            @table_qualifier    varchar(32) = null,
            @column_name        varchar(96) = null)    /* 3*32 */
as

    declare @table_id     int

    if @column_name is null /*    If column name not supplied, match all */
        select @column_name = '%'

    if @table_qualifier is not null
    begin
        if db_name() <> @table_qualifier
        begin    /* If qualifier doesn't match current database */
            raiserror (15250, -1,-1)
            return
        end
    end
    if @table_owner is null
    begin    /* If unqualified table name */
        select @table_id = object_id(@table_name)
    end
    else
    begin    /* Qualified table name */
        select @table_id = object_id(@table_owner + '.' + @table_name)
    end

    select
        convert(varchar(32),db_name()) TABLE_QUALIFIER,
        convert(varchar(32),user_name(o.uid)) TABLE_OWNER,
        @table_name TABLE_NAME,
        convert(varchar(32),c.name) COLUMN_NAME,
        convert(varchar(32),user_name(p.grantor)) GRANTOR,
        convert(varchar(32),user_name(u.uid)) GRANTEE,
        convert (varchar(32),case p.action
             when 193 then 'SELECT'
             when 195 then 'INSERT'
             when 197 then 'UPDATE'
             else 'REFERENCES'
        end) PRIVILEGE,
        convert (varchar(3),case when p.protecttype = 205 then 'NO'
            else 'YES'
        end) IS_GRANTABLE
    from sysprotects p, sysobjects o, sysusers u, master.dbo.spt_values v, syscolumns c
    where
        c.id = @table_id
        and c.name like @column_name
        and c.id = p.id
        and c.id = o.id
        and case substring(p.columns, 1, 1) & 1
                when NULL then 255    /* all columns have permission */
                when 0 then convert(tinyint, substring(p.columns, v.low, 1))
                else (~convert(tinyint, isnull(substring(p.columns, v.low, 1),0)))
            end
            & v.high <> 0            /* permission applies to this column */
        and v.number <= (select count(*) from syscolumns
            where id = @table_id)    /* ranges from 1 to # of columns in table */
        and v.type = 'P'
        and v.number = c.colid
            /* expand groups */
        and ((p.uid = u.uid and u.uid <> u.gid) or
             (p.uid = u.gid and u.uid <> u.gid))
        and p.protecttype <> 206    /* only grant rows */
        and p.action in (26,193,195,197)
        and o.uid <> u.uid            /* no rows for owner */
        and not exists (            /* exclude revoke'd privileges */
            select *
            from sysprotects p1
            where
                p1.protecttype = 206
                and p1.action = p.action
                and p1.id = p.id
                and p1.uid = u.uid
                and case substring(p1.columns, 1, 1) & 1
                        when NULL then 255    /* all columns have permission */
                        when 0 then convert(tinyint, substring(p1.columns, v.low, 1))
                                            else (~convert(tinyint,isnull(substring(p.columns, v.low, 1),0)))
                    end
                    & v.high <> 0)            /* permission applies to this column */
    union all
    select    /*    Add rows for table owner */
        convert(varchar(32),db_name()) TABLE_QUALIFIER,
        convert(varchar(32),user_name(o.uid)) TABLE_OWNER,
        @table_name TABLE_NAME,
        convert(varchar(32),col_name(@table_id, c.colid)) COLUMN_NAME,
        convert(varchar(32),user_name(u.uid)) grantor,
        convert(varchar(32),user_name(o.uid)) grantee,
        convert (varchar(32),case v.number
            when 193 then 'SELECT'
            when 195 then 'INSERT'
            when 197 then 'UPDATE'
            else 'REFERENCES'
        end) PRIVILEGE,
        convert(varchar(3),'YES') IS_GRANTABLE
    from sysobjects o, master.dbo.spt_values v, sysusers u, syscolumns c
    where
        c.id = @table_id
        and c.name like @column_name
        and c.id = o.id
        and u.suid = 1        /* grantor is dbo of database */
        and v.type = 'P'    /* cross product to get all exposed privileges */
        and v.number in (26,193,195,197)
        and not exists (    /* exclude revoke'd privileges */
            select *
            from sysprotects p1
            where
                p1.protecttype = 206
                and p1.action = v.number
                and p1.id = o.id
                and p1.uid = o.uid)
    order by 4, 7
go



if (charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
else
    drop proc sp_column_privileges
go

/*    Procedure for 7.00 server */
CREATE PROCEDURE sp_column_privileges (
            @table_name         sysname,
            @table_owner        sysname = null,
            @table_qualifier    sysname = null,
            @column_name        nvarchar(384) = null)    /* 3*128 */
as

    declare @table_id     int

    if @column_name is null /*    If column name not supplied, match all */
        select @column_name = '%'

    if @table_qualifier is not null
    begin
        if db_name() <> @table_qualifier
        begin    /* If qualifier doesn't match current database */
            raiserror (15250, -1,-1)
            return
        end
    end
    if @table_owner is null
    begin    /* If unqualified table name */
        select @table_id = object_id(quotename(@table_name))
    end
    else
    begin    /* Qualified table name */
        if @table_owner = N''
        begin    /* If empty owner name */
            select @table_id = 0
        end
        else
        begin
            select @table_id = object_id(quotename(@table_owner) +
                '.' + quotename(@table_name))
        end
    end

    select
        convert(sysname,db_name()) TABLE_QUALIFIER,
        convert(sysname,user_name(o.uid)) TABLE_OWNER,
        @table_name TABLE_NAME,
        convert(sysname,c.name) COLUMN_NAME,
        convert(sysname,user_name(p.grantor)) GRANTOR,
        convert(sysname,user_name(u.uid)) GRANTEE,
        convert (varchar(32),case p.action
             when 193 then 'SELECT'
             when 195 then 'INSERT'
             when 197 then 'UPDATE'
             else 'REFERENCES'
        end) PRIVILEGE,
        convert (varchar(3),case when p.protecttype = 205 then 'NO'
            else 'YES'
        end) IS_GRANTABLE
    from sysprotects p, sysobjects o, sysusers u, master.dbo.spt_values v, syscolumns c, sysmembers m
    where
        c.id = @table_id
        and c.name like @column_name
        and c.id = p.id
        and c.id = o.id
        and case substring(p.columns, 1, 1) & 1
                when NULL then 255    /* all columns have permission */
                when 0 then convert(tinyint, substring(p.columns, v.low, 1))
                else (~convert(tinyint, isnull(substring(p.columns, v.low, 1),0)))
            end
            & v.high <> 0            /* permission applies to this column */
        and v.number <= (select count(*) from syscolumns
            where id = @table_id)    /* ranges from 1 to # of columns in table */
        and v.type = 'P'
        and v.number = c.colid
            /* expand groups - AKUNDONE: only 1 level of group unrolling here. Need more?? */
        and (u.uid > 0 and u.uid < 16384)
        and ((p.uid = u.uid) or
             (p.uid = m.groupuid and u.uid = m.memberuid))
        and p.protecttype <> 206    /* only grant rows */
        and p.action in (26,193,195,197)
        and o.uid <> u.uid            /* no rows for owner */
        and not exists (            /* exclude revoke'd privileges */
            select *
            from sysprotects p1
            where
                p1.protecttype = 206
                and p1.action = p.action
                and p1.id = p.id
                and p1.uid = u.uid
                and case substring(p1.columns, 1, 1) & 1
                        when NULL then 255    /* all columns have permission */
                        when 0 then convert(tinyint, substring(p1.columns, v.low, 1))
                                            else (~convert(tinyint,isnull(substring(p.columns, v.low, 1),0)))
                    end
                    & v.high <> 0)            /* permission applies to this column */
    union all
    select    /*    Add rows for table owner */
        convert(sysname,db_name()) TABLE_QUALIFIER,
        convert(sysname,user_name(o.uid)) TABLE_OWNER,
        @table_name TABLE_NAME,
        convert(sysname,col_name(@table_id, c.colid)) COLUMN_NAME,
        convert(sysname,user_name(u.uid)) grantor,
        convert(sysname,user_name(o.uid)) grantee,
        convert (varchar(32),case v.number
            when 193 then 'SELECT'
            when 195 then 'INSERT'
            when 197 then 'UPDATE'
            else 'REFERENCES'
        end) PRIVILEGE,
        convert(varchar(3),'YES') IS_GRANTABLE
    from sysobjects o, master.dbo.spt_values v, sysusers u, syscolumns c
    where
        c.id = @table_id
        and c.name like @column_name
        and c.id = o.id
        and u.uid = 1        /* grantor is 'dbo' of database */
        and v.type = 'P'    /* cross product to get all exposed privileges */
        and v.number in (26,193,195,197)
        and not exists (    /* exclude revoke'd privileges */
            select *
            from sysprotects p1
            where
                p1.protecttype = 206
                and p1.action = v.number
                and p1.id = o.id
                and p1.uid = o.uid)
    order by 4, 7
go


grant execute on sp_column_privileges to public
go

dump tran master with no_log
go

print 'creating sp_columns'
go

/*    Procedure for pre-6.0 server */
CREATE PROCEDURE sp_columns (
                 @table_name        varchar(96),
                 @table_owner        varchar(96) = null,
                 @table_qualifier    varchar(32) = null,
                 @column_name        varchar(96) = null,
                 @ODBCVer            int = 2)
AS
    DECLARE @full_table_name    varchar(193)
    DECLARE @table_id int

    if @ODBCVer <> 3
        select @ODBCVer = 2
    if @column_name is null /*    If column name not supplied, match all */
        select @column_name = '%'
    if @table_qualifier is not null
    begin
        if db_name() <> @table_qualifier
        begin    /* If qualifier doesn't match current database */
            raiserror 20001 'Table qualifier must be name of current database'
            return
        end
    end
    if @table_name is null
    begin    /*    If table name not supplied, match all */
        select @table_name = '%'
    end
    if @table_owner is null
    begin    /* If unqualified table name */
        SELECT @full_table_name = @table_name
    end
    else
    begin    /* Qualified table name */
        SELECT @full_table_name = @table_owner + '.' + @table_name
    end

    /*    Get Object ID */
    SELECT @table_id = object_id(@full_table_name)
    if ((charindex('%',@full_table_name) = 0) and
        (charindex('_',@full_table_name) = 0)  and
        @table_id <> 0)
    begin
        /* this block is for the case where there is no pattern
             matching required for the table name */
        SELECT
            TABLE_QUALIFIER = convert(varchar(32),DB_NAME()),
            TABLE_OWNER = convert(varchar(32),USER_NAME(o.uid)),
            TABLE_NAME = convert(varchar(32),o.name),
            COLUMN_NAME = convert(varchar(32),c.name),
            d.DATA_TYPE,
            TYPE_NAME = t.name,
            "PRECISION" = isnull(d.data_precision, convert(int,c.length)),
            LENGTH = isnull(d.length, convert(int,c.length)),
            SCALE = d.numeric_scale,
            d.RADIX,
            NULLABLE =    /* set nullability from status flag */
                convert(smallint, convert(bit, c.status&8)),
            REMARKS = convert(varchar(254),null),    /* Remarks are NULL */
            COLUMN_DEF = text,
            d.SQL_DATA_TYPE,
            d.SQL_DATETIME_SUB,
            CHAR_OCTET_LENGTH = isnull(d.data_precision, convert(int,c.length))+d.charbin,
            ORDINAL_POSITION = convert(int,c.colid),
            IS_NULLABLE = convert(varchar(254),rtrim(substring('NO      YES',(c.status&8)+1,3))),
            SS_DATA_TYPE = c.type
        FROM
            syscolumns c,
            sysobjects o,
            syscomments m,
            master.dbo.spt_datatype_info d,
            systypes t
        WHERE
            o.id = @table_id
            AND c.id = o.id
            AND t.type = d.ss_dtype
            AND c.length = isnull(d.fixlen, c.length)
            AND (d.ODBCVer is null or d.ODBCVer = @ODBCVer)
            AND o.type <> 'P'
            AND c.usertype = t.usertype
            AND c.name like @column_name
            AND c.cdefault *= m.id
            AND m.colid = 1
        ORDER BY 17
    end
    else
    begin
        /* this block is for the case where there IS pattern
             matching done on the table name */
        if @table_owner is null /*    If owner not supplied, match all */
            select @table_owner = '%'
        SELECT
            TABLE_QUALIFIER = convert(varchar(32),DB_NAME()),
            TABLE_OWNER = convert(varchar(32),USER_NAME(o.uid)),
            TABLE_NAME = convert(varchar(32),o.name),
            COLUMN_NAME = convert(varchar(32),c.name),
            d.DATA_TYPE,
            TYPE_NAME = t.name,
            "PRECISION" = isnull(d.data_precision, convert(int,c.length)),
            LENGTH = isnull(d.length, convert(int,c.length)),
            SCALE = d.numeric_scale,
            d.RADIX,
            NULLABLE =    /* set nullability from status flag */
                convert(smallint, convert(bit, c.status&8)),
            REMARKS = convert(varchar(254),null),    /* Remarks are NULL */
            COLUMN_DEF = text,
            d.SQL_DATA_TYPE,
            d.SQL_DATETIME_SUB,
            CHAR_OCTET_LENGTH = isnull(d.data_precision, convert(int,c.length))+d.charbin,
            ORDINAL_POSITION = convert(int,c.colid),
            IS_NULLABLE = convert(varchar(254),rtrim(substring('NO      YES',(c.status&8)+1,3))),
            SS_DATA_TYPE = c.type
        FROM
            syscolumns c,
            sysobjects o,
            syscomments m,
            master.dbo.spt_datatype_info d,
            systypes t
        WHERE
            o.name like @table_name
            AND user_name(o.uid) like @table_owner
            AND o.id = c.id
            AND t.type = d.ss_dtype
            AND c.length = isnull(d.fixlen, c.length)
            AND (d.ODBCVer is null or d.ODBCVer = @ODBCVer)
            AND o.type <> 'P'
            AND c.usertype = t.usertype
            AND c.name like @column_name
            AND c.cdefault *= m.id
            AND m.colid = 1
        ORDER BY 2, 3, 17
    end
go

if (charindex('6.00', @@version) = 0 and
    charindex('6.50', @@version) = 0 and
    charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 6.0 SQL Server.'
    print 'Ignore the following error.'
end
else
    drop proc sp_columns
go

/*    Procedure for 6.0 and 6.50 server */
CREATE PROCEDURE sp_columns (
                 @table_name        varchar(96),
                 @table_owner        varchar(96) = null,
                 @table_qualifier    varchar(32) = null,
                 @column_name        varchar(96) = null,
                 @ODBCVer            int = 2)
AS
    DECLARE @full_table_name    varchar(193)
    DECLARE @table_id int

    if @ODBCVer <> 3
        select @ODBCVer = 2
    if @column_name is null /*    If column name not supplied, match all */
        select @column_name = '%'
    if @table_qualifier is not null
    begin
        if db_name() <> @table_qualifier
        begin    /* If qualifier doesn't match current database */
            raiserror (15250, -1,-1)
            return
        end
    end
    if @table_name is null
    begin    /*    If table name not supplied, match all */
        select @table_name = '%'
    end
    if @table_owner is null
    begin    /* If unqualified table name */
        SELECT @full_table_name = @table_name
    end
    else
    begin    /* Qualified table name */
        SELECT @full_table_name = @table_owner + '.' + @table_name
    end

    /*    Get Object ID */
    SELECT @table_id = object_id(@full_table_name)
    if ((charindex('%',@full_table_name) = 0) and
        (charindex('_',@full_table_name) = 0)  and
        @table_id <> 0)
    begin
        /* this block is for the case where there is no pattern
            matching required for the table name */
        SELECT
            TABLE_QUALIFIER = convert(varchar(32),DB_NAME()),
            TABLE_OWNER = convert(varchar(32),USER_NAME(o.uid)),
            TABLE_NAME = convert(varchar(32),o.name),
            COLUMN_NAME = convert(varchar(32),c.name),
            d.DATA_TYPE,
            convert(varchar(32),case
                when t.usertype > 100 or t.usertype in (18,80) then t.name
                else d.TYPE_NAME
            end) TYPE_NAME,
            convert(int,case
                when d.DATA_TYPE in (6,7) then d.data_precision         /* FLOAT/REAL */
                else isnull(convert(int,c.prec), 2147483647)
            end) "PRECISION",
            convert(int,case
                when d.ss_dtype IN (106, 108, 55, 63) then    /* decimal/numeric types */
                    c.prec+2
                else
                    isnull(d.length, c.length)
            end) LENGTH,
            SCALE = convert(smallint, c.scale),
            d.RADIX,
            NULLABLE =    /* set nullability from status flag */
                convert(smallint, convert(bit, c.status&8)),
            REMARKS = convert(varchar(254),null),    /* Remarks are NULL */
            COLUMN_DEF = text,
            d.SQL_DATA_TYPE,
            d.SQL_DATETIME_SUB,
            CHAR_OCTET_LENGTH = isnull(convert(int,c.prec), 2147483647)+d.charbin,
            ORDINAL_POSITION = convert(int,c.colid),
            IS_NULLABLE = convert(varchar(254),rtrim(substring('NO      YES',(c.status&8)+1,3))),
            SS_DATA_TYPE = c.type
        FROM
            syscolumns c,
            sysobjects o,
            syscomments m,
            master.dbo.spt_datatype_info d,
            systypes t
        WHERE
            o.id = @table_id
            AND c.id = o.id
            AND t.type = d.ss_dtype
            AND c.length = isnull(d.fixlen, c.length)
            AND (d.ODBCVer is null or d.ODBCVer = @ODBCVer)
            AND o.type <> 'P'
            AND isnull(d.AUTO_INCREMENT,0) = (c.status&128)/128
            AND c.usertype = t.usertype
            AND c.name like @column_name
            AND c.cdefault *= m.id
            AND m.colid = 1
        ORDER BY 17
    end
    else
    begin
        /* this block is for the case where there IS pattern
            matching done on the table name */
        if @table_owner is null /*    If owner not supplied, match all */
            select @table_owner = '%'
        SELECT
            TABLE_QUALIFIER = convert(varchar(32),DB_NAME()),
            TABLE_OWNER = convert(varchar(32),USER_NAME(o.uid)),
            TABLE_NAME = convert(varchar(32),o.name),
            COLUMN_NAME = convert(varchar(32),c.name),
            d.DATA_TYPE,
            convert(varchar(32),case
                when t.usertype > 100 or t.usertype in (18,80) then t.name
                else d.TYPE_NAME
            end) TYPE_NAME,
            convert(int,case
                when d.DATA_TYPE in (6,7) then d.data_precision         /* FLOAT/REAL */
                else isnull(convert(int,c.prec), 2147483647)
            end) "PRECISION",
            convert(int,case
                when d.ss_dtype IN (106, 108, 55, 63) then    /* decimal/numeric types */
                    c.prec+2
                else
                    isnull(d.length, c.length)
            end) LENGTH,
            SCALE = convert(smallint, c.scale),
            d.RADIX,
            NULLABLE =    /* set nullability from status flag */
                convert(smallint, convert(bit, c.status&8)),
            REMARKS = convert(varchar(254),null),    /* Remarks are NULL */
            COLUMN_DEF = text,
            d.SQL_DATA_TYPE,
            d.SQL_DATETIME_SUB,
            CHAR_OCTET_LENGTH = isnull(convert(int,c.prec), 2147483647)+d.charbin,
            ORDINAL_POSITION = convert(int,c.colid),
            IS_NULLABLE = convert(varchar(254),rtrim(substring('NO      YES',(c.status&8)+1,3))),
            SS_DATA_TYPE = c.type
        FROM
            syscolumns c,
            sysobjects o,
            syscomments m,
            master.dbo.spt_datatype_info d,
            systypes t
        WHERE
            o.name like @table_name
            AND user_name(o.uid) like @table_owner
            AND o.id = c.id
            AND t.type = d.ss_dtype
            AND c.length = isnull(d.fixlen, c.length)
            AND (d.ODBCVer is null or d.ODBCVer = @ODBCVer)
            AND o.type <> 'P'
            AND isnull(d.AUTO_INCREMENT,0) = (c.status&128)/128
            AND c.usertype = t.usertype
            AND c.name like @column_name
            AND c.cdefault *= m.id
            AND m.colid = 1
        ORDER BY 2, 3, 17
    end
go

if (charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
else
    drop proc sp_columns
go

/*    Procedure for 7.0 server */
CREATE PROCEDURE sp_columns (
                 @table_name        nvarchar(384),
                 @table_owner        nvarchar(384) = null,
                 @table_qualifier    sysname = null,
                 @column_name        nvarchar(384) = null,
                 @ODBCVer            int = 2)
AS
    DECLARE @full_table_name    nvarchar(769)
    DECLARE @table_id int

    if @ODBCVer <> 3
        select @ODBCVer = 2
    if @column_name is null /*    If column name not supplied, match all */
        select @column_name = '%'
    if @table_qualifier is not null
    begin
        if db_name() <> @table_qualifier
        begin    /* If qualifier doesn't match current database */
            raiserror (15250, -1,-1)
            return
        end
    end
    if @table_name is null
    begin    /*    If table name not supplied, match all */
        select @table_name = '%'
    end
    if @table_owner is null
    begin    /* If unqualified table name */
        SELECT @full_table_name = quotename(@table_name)
    end
    else
    begin    /* Qualified table name */
        if @table_owner = ''
        begin    /* If empty owner name */
            SELECT @full_table_name = quotename(@table_owner)
        end
        else
        begin
            SELECT @full_table_name = quotename(@table_owner) +
                '.' + quotename(@table_name)
        end
    end

    /*    Get Object ID */
    SELECT @table_id = object_id(@full_table_name)
    if ((charindex('%',@full_table_name) = 0) and
        (charindex('_',@full_table_name) = 0)  and
        @table_id <> 0)
    begin
        /* this block is for the case where there is no pattern
            matching required for the table name */
        SELECT
            TABLE_QUALIFIER = convert(sysname,DB_NAME()),
            TABLE_OWNER = convert(sysname,USER_NAME(o.uid)),
            TABLE_NAME = convert(sysname,o.name),
            COLUMN_NAME = convert(sysname,c.name),
            d.DATA_TYPE,
            convert (sysname,case
                when t.xusertype > 255 then t.name
                else d.TYPE_NAME
            end) TYPE_NAME,
            convert(int,case
                when d.DATA_TYPE in (6,7) then d.data_precision         /* FLOAT/REAL */
                else OdbcPrec(c.xtype,c.length,c.xprec)
            end) "PRECISION",
            convert(int,case
                when type_name(d.ss_dtype) IN ('numeric','decimal') then    /* decimal/numeric types */
                    OdbcPrec(c.xtype,c.length,c.xprec)+2
                else
                    isnull(d.length, c.length)
            end) LENGTH,
            SCALE = convert(smallint, OdbcScale(c.xtype,c.xscale)),
            d.RADIX,
            NULLABLE = convert(smallint, ColumnProperty (c.id, c.name, 'AllowsNull')),
            REMARKS = convert(varchar(254),null),    /* Remarks are NULL */
            COLUMN_DEF = text,
            d.SQL_DATA_TYPE,
            d.SQL_DATETIME_SUB,
            CHAR_OCTET_LENGTH = isnull(d.length, c.length)+d.charbin,
            ORDINAL_POSITION = convert(int,c.colid),
            IS_NULLABLE = convert(varchar(254),
                substring('NO YES',(ColumnProperty (c.id, c.name, 'AllowsNull')*3)+1,3)),
            SS_DATA_TYPE = c.type
        FROM
            sysobjects o,
            master.dbo.spt_datatype_info d,
            systypes t,
            syscolumns c
            LEFT OUTER JOIN syscomments m on c.cdefault = m.id
                AND m.colid = 1
        WHERE
            o.id = @table_id
            AND c.id = o.id
            AND t.xtype = d.ss_dtype
            AND c.length = isnull(d.fixlen, c.length)
            AND (d.ODBCVer is null or d.ODBCVer = @ODBCVer)
            AND o.type <> 'P'
            AND isnull(d.AUTO_INCREMENT,0) = isnull(ColumnProperty (c.id, c.name, 'IsIdentity'),0)
            AND c.xusertype = t.xusertype
            AND c.name like @column_name
        ORDER BY 17
    end
    else
    begin
        /* this block is for the case where there IS pattern
            matching done on the table name */
        if @table_owner is null /*    If owner not supplied, match all */
            select @table_owner = '%'
        SELECT
            TABLE_QUALIFIER = convert(sysname,DB_NAME()),
            TABLE_OWNER = convert(sysname,USER_NAME(o.uid)),
            TABLE_NAME = convert(sysname,o.name),
            COLUMN_NAME = convert(sysname,c.name),
            d.DATA_TYPE,
            convert (sysname,case
                when t.xusertype > 255 then t.name
                else d.TYPE_NAME
            end) TYPE_NAME,
            convert(int,case
                when d.DATA_TYPE in (6,7) then d.data_precision         /* FLOAT/REAL */
                else OdbcPrec(c.xtype,c.length,c.xprec)
            end) "PRECISION",
            convert(int,case
                when type_name(d.ss_dtype) IN ('numeric','decimal') then    /* decimal/numeric types */
                    OdbcPrec(c.xtype,c.length,c.xprec)+2
                else
                    isnull(d.length, c.length)
            end) LENGTH,
            SCALE = convert(smallint, OdbcScale(c.xtype,c.xscale)),
            d.RADIX,
            NULLABLE = convert(smallint, ColumnProperty (c.id, c.name, 'AllowsNull')),
            REMARKS = convert(varchar(254),null),    /* Remarks are NULL */
            COLUMN_DEF = text,
            d.SQL_DATA_TYPE,
            d.SQL_DATETIME_SUB,
            CHAR_OCTET_LENGTH = isnull(d.length, c.length)+d.charbin,
            ORDINAL_POSITION = convert(int,c.colid),
            IS_NULLABLE = convert(varchar(254),
                rtrim(substring('NO YES',(ColumnProperty (c.id, c.name, 'AllowsNull')*3)+1,3))),
            SS_DATA_TYPE = c.type
        FROM
            sysobjects o,
            master.dbo.spt_datatype_info d,
            systypes t,
            syscolumns c
            LEFT OUTER JOIN syscomments m on c.cdefault = m.id
                AND m.colid = 1
        WHERE
            o.name like @table_name
            AND user_name(o.uid) like @table_owner
            AND o.id = c.id
            AND t.xtype = d.ss_dtype
            AND c.length = isnull(d.fixlen, c.length)
            AND (d.ODBCVer is null or d.ODBCVer = @ODBCVer)
            AND o.type <> 'P'
            AND isnull(d.AUTO_INCREMENT,0) = isnull(ColumnProperty (c.id, c.name, 'IsIdentity'),0)
            AND c.xusertype = t.xusertype
            AND c.name like @column_name
        ORDER BY 2, 3, 17
    end
go

grant execute on sp_columns to public
go

dump tran master with no_log
go

print 'creating sp_databases'
go

/*    Procedure for pre-7.0 server */
create proc sp_databases
as
    /* Use temporary table to sum up database size w/o using group by */
    create table #databases (
                  DATABASE_NAME varchar(32) NOT NULL,
                  size int NOT NULL)

    /* Insert row for each database */
    insert into #databases
        select
            name,
            (select sum(size) from master.dbo.sysusages
                where dbid = d.dbid)
        from master.dbo.sysdatabases d

    select
         DATABASE_NAME,
         DATABASE_SIZE = size*2,    /* Convert from 2048 byte pages to K */
         REMARKS = convert(varchar(254),null)    /* Remarks are NULL */
    from #databases
    order by 1
go

if (charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
else
    drop proc sp_databases
go

/*    Procedure for 7.0 server */
create proc sp_databases
as
    declare @name sysname
    declare @SQL  nvarchar(600)

    /* Use temporary table to sum up database size w/o using group by */
    create table #databases (
                  DATABASE_NAME sysname NOT NULL,
                  size int NOT NULL)

    declare c1 cursor for
        select name from master.dbo.sysdatabases

    open c1
    fetch c1 into @name

    while @@fetch_status >= 0
    begin
        select @SQL = 'insert into #databases
                select N'''+ @name + ''', sum(size) from '
                + QuoteName(@name) + '.dbo.sysfiles'
        /* Insert row for each database */
        execute (@SQL)
        fetch c1 into @name
    end
    deallocate c1

    select
        DATABASE_NAME,
        DATABASE_SIZE = size*8,/* Convert from 8192 byte pages to K */
        REMARKS = convert(varchar(254),null)    /* Remarks are NULL */
    from #databases
    order by 1
go

grant execute on sp_databases to public
go

dump tran master with no_log
go

print 'creating sp_datatype_info'
go

/*    Procedure for pre-6.0 server */
create proc sp_datatype_info
    (@data_type int = 0, @ODBCVer tinyint = 2)
as
    if @ODBCVer <> 3
        select @ODBCVer = 2
    if @data_type = 0
        select
            TYPE_NAME = t.name,
            d.DATA_TYPE,
            "PRECISION" = isnull(d.data_precision, convert(int,t.length)),
            d.LITERAL_PREFIX,
            d.LITERAL_SUFFIX,
            e.CREATE_PARAMS,
            d.NULLABLE,
            d.CASE_SENSITIVE,
            d.SEARCHABLE,
            d.UNSIGNED_ATTRIBUTE,
            d.MONEY,
            d.AUTO_INCREMENT,
            LOCAL_TYPE_NAME = t.name,
            MINIMUM_SCALE = d.numeric_scale,
            MAXIMUM_SCALE = d.numeric_scale,
            d.SQL_DATA_TYPE,
            d.SQL_DATETIME_SUB,
            NUM_PREC_RADIX = convert(int,d.RADIX),
            INTERVAL_PRECISION = convert(smallint,NULL),
            USERTYPE = t.usertype
        from master.dbo.spt_datatype_info d, master.dbo.spt_datatype_info_ext e, systypes t
        where
            d.ss_dtype = t.type
            AND (d.ODBCVer is null or d.ODBCVer = @ODBCVer)
            and t.usertype *= e.user_type
            and t.type not in (111,109,38,110)    /* get rid of nullable types */
        order by 2, 12, 11, t.usertype

    else
        select
            TYPE_NAME = t.name,
            d.DATA_TYPE,
            "PRECISION" = isnull(d.data_precision, convert(int,t.length)),
            d.LITERAL_PREFIX,
            d.LITERAL_SUFFIX,
            e.CREATE_PARAMS,
            d.NULLABLE,
            d.CASE_SENSITIVE,
            d.SEARCHABLE,
            d.UNSIGNED_ATTRIBUTE,
            d.MONEY,
            d.AUTO_INCREMENT,
            LOCAL_TYPE_NAME = t.name,
            MINIMUM_SCALE = d.numeric_scale,
            MAXIMUM_SCALE = d.numeric_scale,
            d.SQL_DATA_TYPE,
            d.SQL_DATETIME_SUB,
            NUM_PREC_RADIX = convert(int,d.RADIX),
            INTERVAL_PRECISION = convert(smallint,NULL),
            USERTYPE = t.usertype
        from master.dbo.spt_datatype_info d, master.dbo.spt_datatype_info_ext e, systypes t
        where
            DATA_TYPE = @data_type
            and d.ss_dtype = t.type
            AND (d.ODBCVer is null or d.ODBCVer = @ODBCVer)
            and t.usertype *= e.user_type
            and t.type not in (111,109,38,110)    /* get rid of nullable types */
        order by 12, 11, t.usertype

go

if (charindex('6.00', @@version) = 0 and
    charindex('6.50', @@version) = 0 and
    charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 6.0 SQL Server.'
    print 'Ignore the following errors.'
end
else
    drop proc sp_datatype_info
go

/*    Procedure for 6.0 and 6.50 servers */
create proc sp_datatype_info
    (@data_type int = 0, @ODBCVer tinyint = 2)
as
    if @ODBCVer <> 3
        select @ODBCVer = 2
    if @data_type = 0
        select
            convert(varchar(32),case
                when t.usertype > 100 or t.usertype in (18,80) then t.name
                else d.TYPE_NAME
            end) TYPE_NAME,
            d.DATA_TYPE,
            convert(int,case
                when d.DATA_TYPE in (6,7) then d.data_precision         /* FLOAT/REAL */
                when d.ss_dtype in (35,34) then 2147483647                /* TEXT/IMAGE */
                when d.ss_dtype in (55,63,106,108) then @@max_precision /* DECIMAL/NUMERIC */
                else t.prec
            end) "PRECISION",
            d.LITERAL_PREFIX,
            d.LITERAL_SUFFIX,
            e.CREATE_PARAMS,
            convert(smallint,case
                when d.AUTO_INCREMENT = 1 then 0 /* IDENTITY*/
                else t.allownulls
            end) NULLABLE,
            d.CASE_SENSITIVE,
            d.SEARCHABLE,
            d.UNSIGNED_ATTRIBUTE,
            d.MONEY,
            d.AUTO_INCREMENT,
            convert(varchar(32),case
                when t.usertype > 100 or t.usertype in (18,80) then t.name
                else d.TYPE_NAME
            end) LOCAL_TYPE_NAME,
            MINIMUM_SCALE = d.numeric_scale,
            convert(smallint,case
                when d.ss_dtype in (106,108) and d.AUTO_INCREMENT = 0 then @@max_precision /* DECIMAL/NUMERIC */
                when d.ss_dtype in (106,108) and d.AUTO_INCREMENT = 1 then 0 /* DECIMAL/NUMERIC IDENTITY*/
                else t.scale
            end) MAXIMUM_SCALE,
            d.SQL_DATA_TYPE,
            d.SQL_DATETIME_SUB,
            NUM_PREC_RADIX = convert(int,d.RADIX),
            INTERVAL_PRECISION = convert(smallint,NULL),
            USERTYPE = t.usertype
        from master.dbo.spt_datatype_info d, master.dbo.spt_datatype_info_ext e, systypes t
        where
            d.ss_dtype = t.type
            AND (d.ODBCVer is null or d.ODBCVer = @ODBCVer)
            and t.usertype *= e.user_type
            and isnull(d.AUTO_INCREMENT,0) *= e.AUTO_INCREMENT
            and t.type not in (111,109,38,110,55,63)    /* get rid of nullable types */
        order by 2, 12, 11, t.usertype

    else
        select
            convert(varchar(32),case
                when t.usertype > 100 or t.usertype in (18,80) then t.name
                else d.TYPE_NAME
            end) TYPE_NAME,
            d.DATA_TYPE,
            convert(int,case
                when d.DATA_TYPE in (6,7) then d.data_precision         /* FLOAT/REAL */
                when d.ss_dtype in (35,34) then 2147483647                /* TEXT/IMAGE */
                when d.ss_dtype in (55,63,106,108) then @@max_precision /* DECIMAL/NUMERIC */
                else t.prec
            end) "PRECISION",
            d.LITERAL_PREFIX,
            d.LITERAL_SUFFIX,
            e.CREATE_PARAMS,
            convert(smallint,case
                when d.AUTO_INCREMENT = 1 then 0 /* IDENTITY*/
                else t.allownulls
            end) NULLABLE,
            d.CASE_SENSITIVE,
            d.SEARCHABLE,
            d.UNSIGNED_ATTRIBUTE,
            d.MONEY,
            d.AUTO_INCREMENT,
            convert(varchar(32),case
                when t.usertype > 100 or t.usertype in (18,80) then t.name
                else d.TYPE_NAME
            end) LOCAL_TYPE_NAME,
            MINIMUM_SCALE = d.numeric_scale,
            convert(smallint,case
                when d.ss_dtype in (106,108) and d.AUTO_INCREMENT = 0 then @@max_precision /* DECIMAL/NUMERIC */
                when d.ss_dtype in (106,108) and d.AUTO_INCREMENT = 1 then 0 /* DECIMAL/NUMERIC IDENTITY*/
                else t.scale
            end) MAXIMUM_SCALE,
            d.SQL_DATA_TYPE,
            d.SQL_DATETIME_SUB,
            NUM_PREC_RADIX = convert(int,d.RADIX),
            INTERVAL_PRECISION = convert(smallint,NULL),
            USERTYPE = t.usertype
        from master.dbo.spt_datatype_info d, master.dbo.spt_datatype_info_ext e, systypes t
        where
            d.DATA_TYPE = @data_type
            and d.ss_dtype = t.type
            AND (d.ODBCVer is null or d.ODBCVer = @ODBCVer)
            and t.usertype *= e.user_type
            and isnull(d.AUTO_INCREMENT,0) *= e.AUTO_INCREMENT
            and t.type not in (111,109,38,110,55,63)    /* get rid of nullable types */
        order by 12, 11, t.usertype
go

if (charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
else
    drop proc sp_datatype_info
go

/*    Procedure for 7.0 server */
create proc sp_datatype_info
    (@data_type int = 0, @ODBCVer tinyint = 2)
as
    declare @mintype int
    declare @maxtype int

    if @ODBCVer <> 3
        select @ODBCVer = 2
    if @data_type = 0
    begin
        select @mintype = -32768
        select @maxtype = 32767
    end
    else
    begin
        select @mintype = @data_type
        select @maxtype = @data_type
    end

    select
        convert(sysname,case
            when t.xusertype > 255 then t.name
            else d.TYPE_NAME
        end) TYPE_NAME,
        d.DATA_TYPE,
        convert(int,case
            when d.DATA_TYPE in (6,7) then d.data_precision         /* FLOAT/REAL */
            when type_name(d.ss_dtype) IN ('numeric','decimal') then @@max_precision /* DECIMAL/NUMERIC */
            else TypeProperty (t.name, 'Precision')
        end) "PRECISION",
        d.LITERAL_PREFIX,
        d.LITERAL_SUFFIX,
        e.CREATE_PARAMS,
        convert(smallint,case
            when d.AUTO_INCREMENT = 1 then 0 /* IDENTITY*/
            else TypeProperty (t.name, 'AllowsNull')
        end) NULLABLE,
        d.CASE_SENSITIVE,
        d.SEARCHABLE,
        d.UNSIGNED_ATTRIBUTE,
        d.MONEY,
        d.AUTO_INCREMENT,
        convert(sysname,case
            when t.xusertype > 255 then t.name
            else d.LOCAL_TYPE_NAME
        end) LOCAL_TYPE_NAME,
        MINIMUM_SCALE = d.numeric_scale,
        convert(smallint,case
            when type_name(d.ss_dtype) IN ('numeric','decimal') and d.AUTO_INCREMENT = 0 then @@max_precision /* DECIMAL/NUMERIC */
            when type_name(d.ss_dtype) IN ('numeric','decimal') and d.AUTO_INCREMENT = 1 then 0 /* DECIMAL/NUMERIC IDENTITY*/
            else TypeProperty (t.name, 'Scale')
        end) MAXIMUM_SCALE,
        d.SQL_DATA_TYPE,
        d.SQL_DATETIME_SUB,
        NUM_PREC_RADIX = convert(int,d.RADIX),
        INTERVAL_PRECISION = convert(smallint,NULL),
        USERTYPE = t.usertype
    from master.dbo.spt_datatype_info d
        INNER JOIN systypes t on d.ss_dtype = t.xtype
        LEFT OUTER JOIN master.dbo.spt_datatype_info_ext e on
            t.xusertype = e.user_type
            and isnull(d.AUTO_INCREMENT,0) = e.AUTO_INCREMENT
    where
        d.DATA_TYPE between @mintype and @maxtype
        and (d.ODBCVer is null or d.ODBCVer = @ODBCVer)
    order by 2, 12, 11,
    case
        when t.usertype=18 then 255
        else t.usertype
    end

go

grant execute on sp_datatype_info to public
go

dump tran master with no_log
go

print 'creating sp_fkeys'
go

/*    Procedure for pre-6.0 server */
CREATE PROCEDURE sp_fkeys(
               @pktable_name        varchar(32) = null,
               @pktable_owner        varchar(32) = null,
               @pktable_qualifier    varchar(32) = null,
               @fktable_name        varchar(32) = null,
               @fktable_owner        varchar(32) = null,
               @fktable_qualifier    varchar(32) = null )
as
    declare    @order_by_pk int

    select  @order_by_pk = 0

    if (@pktable_name is null) and (@fktable_name is null)
    begin    /* If neither primary key nor foreign key table names given */
        raiserror 20004 'PK table name or FK table name must be given.'
        return
    end
    if @fktable_qualifier is not null
    begin
        if db_name() <> @fktable_qualifier
        begin    /* If qualifier doesn't match current database */
            raiserror 20001 'Foreign Key Table qualifier must be name of current database'
            return
        end
    end
    if @pktable_qualifier is not null
    begin
        if db_name() <> @pktable_qualifier
        begin    /* If qualifier doesn't match current database */
            raiserror 20001 'Primary Key Table qualifier must be name of current database'
            return
        end
    end

    if @pktable_name is null
    begin /*  If table name not supplied, match all */
        select @pktable_name = '%'
        select @order_by_pk = 1
    end
    if @pktable_owner is null    /*    If PK owner not supplied, match all */
        select @pktable_owner = '%'
    if @fktable_name is null    /*    If table name not supplied, match all */
        select @fktable_name = '%'
    if @fktable_owner is null    /*    If FK owner not supplied, match all */
        select @fktable_owner = '%'

    if @@trancount <> 0
    begin    /* If inside a transaction */
        raiserror 20003 'The procedure ''sp_fkeys'' cannot be executed from within a transaction.'
        return
    end
    create table #fkeys(
             PKTABLE_QUALIFIER    varchar(32) NULL,
             PKTABLE_OWNER        varchar(32) NULL,
             PKTABLE_NAME        varchar(32) NOT NULL,
             PKCOLUMN_NAME        varchar(32) NOT NULL,
             FKTABLE_QUALIFIER    varchar(32) NULL,
             FKTABLE_OWNER        varchar(32) NULL,
             FKTABLE_NAME        varchar(32) NOT NULL,
             FKCOLUMN_NAME        varchar(32) NOT NULL,
             KEY_SEQ            smallint NOT NULL)

    /*    SQL Server supports upto 8 PK/FK relationships between 2 tables */
    /*    Process syskeys for each relationship */
    /*    The inserts below adds a row to the temp table for each of the
        8 possible relationships */
    insert into #fkeys
        select
            db_name(),
            user_name(o1.uid),
            object_name(k.depid),
            c2.name,
            db_name(),
            user_name(o2.uid),
            object_name(k.id),
            c1.name,
            1
        from
            syskeys k, syscolumns c1, syscolumns c2,sysobjects o1, sysobjects o2
        where
            c1.id = k.id
            and k.type = 2    /* Foreign type key */
            and c1.colid = k.key1
            and c2.id = k.depid
            and c2.colid = k.depkey1
            and o1.id = k.depid
            and o2.id = k.id
    union all
        select
            db_name(),
            user_name(o1.uid),
            object_name(k.depid),
            c2.name,
            db_name(),
            user_name(o2.uid),
            object_name(k.id),
            c1.name,
            2
        from
            syskeys k, syscolumns c1, syscolumns c2,sysobjects o1, sysobjects o2
        where
            c1.id = k.id
            and k.type = 2    /* Foreign type key */
            and c1.colid = k.key2
            and c2.id = k.depid
            and c2.colid = k.depkey2
            and o1.id = k.depid
            and o2.id = k.id
    union all
        select
            db_name(),
            user_name(o1.uid),
            object_name(k.depid),
            c2.name,
            db_name(),
            user_name(o2.uid),
            object_name(k.id),
            c1.name,
            3
        from
            syskeys k, syscolumns c1, syscolumns c2,sysobjects o1, sysobjects o2
        where
            c1.id = k.id
            and k.type = 2    /* Foreign type key */
            and c1.colid = k.key3
            and c2.id = k.depid
            and c2.colid = k.depkey3
            and o1.id = k.depid
            and o2.id = k.id
    union all
        select
            db_name(),
            user_name(o1.uid),
            object_name(k.depid),
            c2.name,
            db_name(),
            user_name(o2.uid),
            object_name(k.id),
            c1.name,
            4
        from
            syskeys k, syscolumns c1, syscolumns c2,sysobjects o1, sysobjects o2
        where
            c1.id = k.id
            and k.type = 2    /* Foreign type key */
            and c1.colid = k.key4
            and c2.id = k.depid
            and c2.colid = k.depkey4
            and o1.id = k.depid
            and o2.id = k.id
    union all
        select
            db_name(),
            user_name(o1.uid),
            object_name(k.depid),
            c2.name,
            db_name(),
            user_name(o2.uid),
            object_name(k.id),
            c1.name,
            5
        from
            syskeys k, syscolumns c1, syscolumns c2,sysobjects o1, sysobjects o2
        where
            c1.id = k.id
            and k.type = 2    /* Foreign type key */
            and c1.colid = k.key5
            and c2.id = k.depid
            and c2.colid = k.depkey5
            and o1.id = k.depid
            and o2.id = k.id
    union all
        select
            db_name(),
            user_name(o1.uid),
            object_name(k.depid),
            c2.name,
            db_name(),
            user_name(o2.uid),
            object_name(k.id),
            c1.name,
            6
        from
            syskeys k, syscolumns c1, syscolumns c2,sysobjects o1, sysobjects o2
        where
            c1.id = k.id
            and k.type = 2    /* Foreign type key */
            and c1.colid = k.key6
            and c2.id = k.depid
            and c2.colid = k.depkey6
            and o1.id = k.depid
            and o2.id = k.id
    union all
        select
            db_name(),
            user_name(o1.uid),
            object_name(k.depid),
            c2.name,
            db_name(),
            user_name(o2.uid),
            object_name(k.id),
            c1.name,
            7
        from
            syskeys k, syscolumns c1, syscolumns c2,sysobjects o1, sysobjects o2
        where
            c1.id = k.id
            and k.type = 2    /* Foreign type key */
            and c1.colid = k.key7
            and c2.id = k.depid
            and c2.colid = k.depkey7
            and o1.id = k.depid
            and o2.id = k.id
    union all
        select
            db_name(),
            user_name(o1.uid),
            object_name(k.depid),
            c2.name,
            db_name(),
            user_name(o2.uid),
            object_name(k.id),
            c1.name,
            8
        from
            syskeys k, syscolumns c1, syscolumns c2,sysobjects o1, sysobjects o2
        where
            c1.id = k.id
            and k.type = 2    /* Foreign type key */
            and c1.colid = k.key8
            and c2.id = k.depid
            and c2.colid = k.depkey8
            and o1.id = k.depid
            and o2.id = k.id

    if @order_by_pk = 1 /*    If order by PK fields */
        select
            PKTABLE_QUALIFIER,
            PKTABLE_OWNER,
            PKTABLE_NAME,
            PKCOLUMN_NAME,
            FKTABLE_QUALIFIER,
            FKTABLE_OWNER,
            FKTABLE_NAME,
            FKCOLUMN_NAME,
            KEY_SEQ,
            UPDATE_RULE = convert(smallint, null),
            DELETE_RULE = convert(smallint,null),
            FK_NAME = convert(varchar(32),null),
            PK_NAME = convert(varchar(32),null),
            DEFERRABILITY = convert(smallint,7)
        from #fkeys
        where FKTABLE_NAME like @fktable_name
            and FKTABLE_OWNER like @fktable_owner
            and PKTABLE_NAME  like @pktable_name
            and PKTABLE_OWNER like @pktable_owner
        order by 1, 2, 3, 9
    else        /*    Order by FK fields */
        select
            PKTABLE_QUALIFIER,
            PKTABLE_OWNER,
            PKTABLE_NAME,
            PKCOLUMN_NAME,
            FKTABLE_QUALIFIER,
            FKTABLE_OWNER,
            FKTABLE_NAME,
            FKCOLUMN_NAME,
            KEY_SEQ,
            UPDATE_RULE = convert(smallint,null),
            DELETE_RULE = convert(smallint,null),
            FK_NAME = convert(varchar(32),null),
            PK_NAME = convert(varchar(32),null),
            DEFERRABILITY = convert(smallint,7)
        from #fkeys
        where FKTABLE_NAME like @fktable_name
            and FKTABLE_OWNER like @fktable_owner
            and PKTABLE_NAME  like @pktable_name
            and PKTABLE_OWNER like @pktable_owner
        order by 5, 6, 7, 9
go

if (charindex('6.00', @@version) = 0 and
    charindex('6.50', @@version) = 0 and
    charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 6.0 SQL Server.'
    print 'Ignore the following errors.'
end
else
    drop proc sp_fkeys
go

/*    Procedure for 6.0 and 6.50 servers */
CREATE PROCEDURE sp_fkeys(
               @pktable_name        varchar(32) = null,
               @pktable_owner        varchar(32) = null,
               @pktable_qualifier    varchar(32) = null,
               @fktable_name        varchar(32) = null,
               @fktable_owner        varchar(32) = null,
               @fktable_qualifier    varchar(32) = null )
as
    DECLARE @pktable_id            int
    DECLARE @pkfull_table_name    varchar(65) /* 2*32 +1 */
    DECLARE @fktable_id            int
    DECLARE @fkfull_table_name    varchar(65) /* 2*32 +1 */
    declare    @order_by_pk        int

    select  @order_by_pk = 0

    if (@pktable_name is null) and (@fktable_name is null)
    begin    /* If neither primary key nor foreign key table names given */
        raiserror (15252,-1,-1)
        return
    end
    if @fktable_qualifier is not null
    begin
        if db_name() <> @fktable_qualifier
        begin    /* If qualifier doesn't match current database */
            raiserror (15250, -1,-1)
            return
        end
    end
    if @pktable_qualifier is not null
    begin
        if db_name() <> @pktable_qualifier
        begin    /* If qualifier doesn't match current database */
            raiserror (15250, -1,-1)
            return
        end
    end

    if @pktable_owner is null
    begin    /* If unqualified primary key table name */
        SELECT @pkfull_table_name = @pktable_name
    end
    else
    begin    /* Qualified primary key table name */
        SELECT @pkfull_table_name = @pktable_owner + '.' + @pktable_name
    end
    /*    Get Object ID */
    SELECT @pktable_id = object_id(@pkfull_table_name)

    if @fktable_owner is null
    begin    /* If unqualified foreign key table name */
        SELECT @fkfull_table_name = @fktable_name
    end
    else
    begin    /* Qualified foreign key table name */
        SELECT @fkfull_table_name = @fktable_owner + '.' + @fktable_name
    end
    /*    Get Object ID */
    SELECT @fktable_id = object_id(@fkfull_table_name)

    if @fktable_name is not null
    begin
        if @fktable_id is null
            SELECT @fktable_id = 0    /* fk table not found, empty result */
    end

    if @pktable_name is null
    begin /*  If table name not supplied, match all */
        select @order_by_pk = 1
    end
    else
    begin
        if @pktable_id is null
        begin
            SELECT @pktable_id = 0    /* pk table not found, empty result */
        end
    end

    if (@@trancount <> 0 and
        charindex('6.50', @@version) = 0)
    begin    /* If inside a transaction */
        raiserror (15002,-1,-1,'sp_fkeys')
        return
    end

    create table #fkeys(
             pkdb_id        int NOT NULL,
             pktable_id     int NOT NULL,
             pkcolid        int NOT NULL,
             fkdb_id        int NOT NULL,
             fktable_id        int NOT NULL,
             fkcolid        int NOT NULL,
             KEY_SEQ        smallint NOT NULL,
             fk_id            int NOT NULL,
             pk_id            int NOT NULL)

    /*    SQL Server supports upto 16 PK/FK relationships between 2 tables */
    /*    Process syskeys for each relationship */
    /*    The inserts below adds a row to the temp table for each of the
        16 possible relationships */
    insert into #fkeys
        select
            r.rkeydbid,
            r.rkeyid,
            r.rkey1,
            r.fkeydbid,
            r.fkeyid,
            r.fkey1,
            1,
            r.constid,
            s.constid
        from
            sysreferences r, sysconstraints s
        where    r.rkeyid = s.id
            AND (s.status & 0xf) = 1
            AND r.rkeyid between isnull(@pktable_id, 0) and isnull(@pktable_id, 0x7fffffff)
            AND r.fkeyid between isnull(@fktable_id, 0) and isnull(@fktable_id, 0x7fffffff)
      union all
        select
            r.rkeydbid,
            r.rkeyid,
            r.rkey2,
            r.fkeydbid,
            r.fkeyid,
            r.fkey2,
            2,
            r.constid,
            s.constid
        from
            sysreferences r, sysconstraints s
        where    r.rkeyid = s.id
            AND (s.status & 0xf) = 1
            AND r.rkeyid between isnull(@pktable_id, 0) and isnull(@pktable_id, 0x7fffffff)
            AND r.fkeyid between isnull(@fktable_id, 0) and isnull(@fktable_id, 0x7fffffff)
      union all
        select
            r.rkeydbid,
            r.rkeyid,
            r.rkey3,
            r.fkeydbid,
            r.fkeyid,
            r.fkey3,
            3,
            r.constid,
            s.constid
        from
            sysreferences r, sysconstraints s
        where    r.rkeyid = s.id
            AND (s.status & 0xf) = 1
            AND r.rkeyid between isnull(@pktable_id, 0) and isnull(@pktable_id, 0x7fffffff)
            AND r.fkeyid between isnull(@fktable_id, 0) and isnull(@fktable_id, 0x7fffffff)
      union all
        select
            r.rkeydbid,
            r.rkeyid,
            r.rkey4,
            r.fkeydbid,
            r.fkeyid,
            r.fkey4,
            4,
            r.constid,
            s.constid
        from
            sysreferences r, sysconstraints s
        where    r.rkeyid = s.id
            AND (s.status & 0xf) = 1
            AND r.rkeyid between isnull(@pktable_id, 0) and isnull(@pktable_id, 0x7fffffff)
            AND r.fkeyid between isnull(@fktable_id, 0) and isnull(@fktable_id, 0x7fffffff)
      union all
        select
            r.rkeydbid,
            r.rkeyid,
            r.rkey5,
            r.fkeydbid,
            r.fkeyid,
            r.fkey5,
            5,
            r.constid,
            s.constid
        from
            sysreferences r, sysconstraints s
        where    r.rkeyid = s.id
            AND (s.status & 0xf) = 1
            AND r.rkeyid between isnull(@pktable_id, 0) and isnull(@pktable_id, 0x7fffffff)
            AND r.fkeyid between isnull(@fktable_id, 0) and isnull(@fktable_id, 0x7fffffff)
      union all
        select
            r.rkeydbid,
            r.rkeyid,
            r.rkey6,
            r.fkeydbid,
            r.fkeyid,
            r.fkey6,
            6,
            r.constid,
            s.constid
        from
            sysreferences r, sysconstraints s
        where    r.rkeyid = s.id
            AND (s.status & 0xf) = 1
            AND r.rkeyid between isnull(@pktable_id, 0) and isnull(@pktable_id, 0x7fffffff)
            AND r.fkeyid between isnull(@fktable_id, 0) and isnull(@fktable_id, 0x7fffffff)
      union all
        select
            r.rkeydbid,
            r.rkeyid,
            r.rkey7,
            r.fkeydbid,
            r.fkeyid,
            r.fkey7,
            7,
            r.constid,
            s.constid
        from
            sysreferences r, sysconstraints s
        where    r.rkeyid = s.id
            AND (s.status & 0xf) = 1
            AND r.rkeyid between isnull(@pktable_id, 0) and isnull(@pktable_id, 0x7fffffff)
            AND r.fkeyid between isnull(@fktable_id, 0) and isnull(@fktable_id, 0x7fffffff)
      union all
        select
            r.rkeydbid,
            r.rkeyid,
            r.rkey8,
            r.fkeydbid,
            r.fkeyid,
            r.fkey8,
            8,
            r.constid,
            s.constid
        from
            sysreferences r, sysconstraints s
        where    r.rkeyid = s.id
            AND (s.status & 0xf) = 1
            AND r.rkeyid between isnull(@pktable_id, 0) and isnull(@pktable_id, 0x7fffffff)
            AND r.fkeyid between isnull(@fktable_id, 0) and isnull(@fktable_id, 0x7fffffff)
      union all
        select
            r.rkeydbid,
            r.rkeyid,
            r.rkey9,
            r.fkeydbid,
            r.fkeyid,
            r.fkey9,
            9,
            r.constid,
            s.constid
        from
            sysreferences r, sysconstraints s
        where    r.rkeyid = s.id
            AND (s.status & 0xf) = 1
            AND r.rkeyid between isnull(@pktable_id, 0) and isnull(@pktable_id, 0x7fffffff)
            AND r.fkeyid between isnull(@fktable_id, 0) and isnull(@fktable_id, 0x7fffffff)
      union all
        select
            r.rkeydbid,
            r.rkeyid,
            r.rkey10,
            r.fkeydbid,
            r.fkeyid,
            r.fkey10,
            10,
            r.constid,
            s.constid
        from
            sysreferences r, sysconstraints s
        where    r.rkeyid = s.id
            AND (s.status & 0xf) = 1
            AND r.rkeyid between isnull(@pktable_id, 0) and isnull(@pktable_id, 0x7fffffff)
            AND r.fkeyid between isnull(@fktable_id, 0) and isnull(@fktable_id, 0x7fffffff)
      union all
        select
            r.rkeydbid,
            r.rkeyid,
            r.rkey11,
            r.fkeydbid,
            r.fkeyid,
            r.fkey11,
            11,
            r.constid,
            s.constid
        from
            sysreferences r, sysconstraints s
        where    r.rkeyid = s.id
            AND (s.status & 0xf) = 1
            AND r.rkeyid between isnull(@pktable_id, 0) and isnull(@pktable_id, 0x7fffffff)
            AND r.fkeyid between isnull(@fktable_id, 0) and isnull(@fktable_id, 0x7fffffff)
      union all
        select
            r.rkeydbid,
            r.rkeyid,
            r.rkey12,
            r.fkeydbid,
            r.fkeyid,
            r.fkey12,
            12,
            r.constid,
            s.constid
        from
            sysreferences r, sysconstraints s
        where    r.rkeyid = s.id
            AND (s.status & 0xf) = 1
            AND r.rkeyid between isnull(@pktable_id, 0) and isnull(@pktable_id, 0x7fffffff)
            AND r.fkeyid between isnull(@fktable_id, 0) and isnull(@fktable_id, 0x7fffffff)
      union all
        select
            r.rkeydbid,
            r.rkeyid,
            r.rkey13,
            r.fkeydbid,
            r.fkeyid,
            r.fkey13,
            13,
            r.constid,
            s.constid
        from
            sysreferences r, sysconstraints s
        where    r.rkeyid = s.id
            AND (s.status & 0xf) = 1
            AND r.rkeyid between isnull(@pktable_id, 0) and isnull(@pktable_id, 0x7fffffff)
            AND r.fkeyid between isnull(@fktable_id, 0) and isnull(@fktable_id, 0x7fffffff)
      union all
        select
            r.rkeydbid,
            r.rkeyid,
            r.rkey14,
            r.fkeydbid,
            r.fkeyid,
            r.fkey14,
            14,
            r.constid,
            s.constid
        from
            sysreferences r, sysconstraints s
        where    r.rkeyid = s.id
            AND (s.status & 0xf) = 1
            AND r.rkeyid between isnull(@pktable_id, 0) and isnull(@pktable_id, 0x7fffffff)
            AND r.fkeyid between isnull(@fktable_id, 0) and isnull(@fktable_id, 0x7fffffff)
      union all
        select
            r.rkeydbid,
            r.rkeyid,
            r.rkey15,
            r.fkeydbid,
            r.fkeyid,
            r.fkey15,
            15,
            r.constid,
            s.constid
        from
            sysreferences r, sysconstraints s
        where    r.rkeyid = s.id
            AND (s.status & 0xf) = 1
            AND r.rkeyid between isnull(@pktable_id, 0) and isnull(@pktable_id, 0x7fffffff)
            AND r.fkeyid between isnull(@fktable_id, 0) and isnull(@fktable_id, 0x7fffffff)
      union all
        select
            r.rkeydbid,
            r.rkeyid,
            r.rkey16,
            r.fkeydbid,
            r.fkeyid,
            r.fkey16,
            16,
            r.constid,
            s.constid
        from
            sysreferences r, sysconstraints s
        where    r.rkeyid = s.id
            AND (s.status & 0xf) = 1
            AND r.rkeyid between isnull(@pktable_id, 0) and isnull(@pktable_id, 0x7fffffff)
            AND r.fkeyid between isnull(@fktable_id, 0) and isnull(@fktable_id, 0x7fffffff)

    if @order_by_pk = 1 /*    If order by PK fields */
        select
            PKTABLE_QUALIFIER = convert(varchar(32),DB_NAME(f.pkdb_id)),
            PKTABLE_OWNER = convert(varchar(32),USER_NAME(o1.uid)),
            PKTABLE_NAME = convert(varchar(32),o1.name),
            PKCOLUMN_NAME = convert(varchar(32),c1.name),
            FKTABLE_QUALIFIER = convert(varchar(32),DB_NAME(f.fkdb_id)),
            FKTABLE_OWNER = convert(varchar(32),USER_NAME(o2.uid)),
            FKTABLE_NAME = convert(varchar(32),o2.name),
            FKCOLUMN_NAME = convert(varchar(32),c2.name),
            KEY_SEQ,
            UPDATE_RULE = convert(smallint,1),
            DELETE_RULE = convert(smallint,1),
            FK_NAME = convert(varchar(32),OBJECT_NAME(fk_id)),
            PK_NAME = convert(varchar(32),OBJECT_NAME(pk_id)),
            DEFERRABILITY = convert(smallint,7)
        from #fkeys f,
            sysobjects o1, sysobjects o2,
            syscolumns c1, syscolumns c2
        where    o1.id = f.pktable_id
            AND o2.id = f.fktable_id
            AND c1.id = f.pktable_id
            AND c2.id = f.fktable_id
            AND c1.colid = f.pkcolid
            AND c2.colid = f.fkcolid
        order by 1,2,3,9
    else        /*    Order by FK fields */
        select
            PKTABLE_QUALIFIER = convert(varchar(32),DB_NAME(f.pkdb_id)),
            PKTABLE_OWNER = convert(varchar(32),USER_NAME(o1.uid)),
            PKTABLE_NAME = convert(varchar(32),o1.name),
            PKCOLUMN_NAME = convert(varchar(32),c1.name),
            FKTABLE_QUALIFIER = convert(varchar(32),DB_NAME(f.fkdb_id)),
            FKTABLE_OWNER = convert(varchar(32),USER_NAME(o2.uid)),
            FKTABLE_NAME = convert(varchar(32),o2.name),
            FKCOLUMN_NAME = convert(varchar(32),c2.name),
            KEY_SEQ,
            UPDATE_RULE = convert(smallint,1),
            DELETE_RULE = convert(smallint,1),
            FK_NAME = convert(varchar(32),OBJECT_NAME(fk_id)),
            PK_NAME = convert(varchar(32),OBJECT_NAME(pk_id)),
            DEFERRABILITY = convert(smallint,7)
        from #fkeys f,
            sysobjects o1, sysobjects o2,
            syscolumns c1, syscolumns c2
        where    o1.id = f.pktable_id
            AND o2.id = f.fktable_id
            AND c1.id = f.pktable_id
            AND c2.id = f.fktable_id
            AND c1.colid = f.pkcolid
            AND c2.colid = f.fkcolid
        order by 5,6,7,9
go

if (charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
else
    drop proc sp_fkeys
go

/*    Procedure for 7.0 and later servers */
CREATE PROCEDURE sp_fkeys(
               @pktable_name        sysname = null,
               @pktable_owner        sysname = null,
               @pktable_qualifier    sysname = null,
               @fktable_name        sysname = null,
               @fktable_owner        sysname = null,
               @fktable_qualifier    sysname = null )
as
    DECLARE @pktable_id            int
    DECLARE @pkfull_table_name    nvarchar(257) /* 2*128 + 1 */
    DECLARE @fktable_id            int
    DECLARE @fkfull_table_name    nvarchar(257) /* 2*128 + 1 */
    declare    @order_by_pk        int

    /* select 'XXX starting table creation' */

    create table #fkeysall(
            rkeyid int NOT NULL,
            rkey1 int NOT NULL,
                rkey2 int NOT NULL,
                rkey3 int NOT NULL,
                rkey4 int NOT NULL,
                rkey5 int NOT NULL,
                rkey6 int NOT NULL,
                rkey7 int NOT NULL,
                rkey8 int NOT NULL,
                rkey9 int NOT NULL,
                rkey10 int NOT NULL,
                rkey11 int NOT NULL,
                rkey12 int NOT NULL,
                rkey13 int NOT NULL,
                rkey14 int NOT NULL,
                rkey15 int NOT NULL,
                rkey16 int NOT NULL,
            fkeyid int NOT NULL,
            fkey1 int NOT NULL,
                fkey2 int NOT NULL,
                fkey3 int NOT NULL,
                fkey4 int NOT NULL,
                fkey5 int NOT NULL,
                fkey6 int NOT NULL,
                fkey7 int NOT NULL,
                fkey8 int NOT NULL,
                fkey9 int NOT NULL,
                fkey10 int NOT NULL,
                fkey11 int NOT NULL,
                fkey12 int NOT NULL,
                fkey13 int NOT NULL,
                fkey14 int NOT NULL,
                fkey15 int NOT NULL,
                fkey16 int NOT NULL,
            constid int NOT NULL,
            name sysname NOT NULL)

    create table #fkeys(
            pktable_id        int NOT NULL,
            pkcolid         int NOT NULL,
            fktable_id        int NOT NULL,
            fkcolid         int NOT NULL,
            KEY_SEQ         smallint NOT NULL,
            fk_id            int NOT NULL,
            PK_NAME            sysname NOT NULL)

    create table #fkeysout(
            PKTABLE_QUALIFIER sysname NULL,
            PKTABLE_OWNER sysname NULL,
            PKTABLE_NAME sysname NOT NULL,
            PKCOLUMN_NAME sysname NOT NULL,
            FKTABLE_QUALIFIER sysname NULL,
            FKTABLE_OWNER sysname NULL,
            FKTABLE_NAME sysname NOT NULL,
            FKCOLUMN_NAME sysname NOT NULL,
            KEY_SEQ smallint NOT NULL,
            UPDATE_RULE smallint NULL,
            DELETE_RULE smallint NULL,
            FK_NAME sysname NULL,
            PK_NAME sysname NULL,
            DEFERRABILITY smallint null)

    /* select 'XXX starting parameter analysis' */

    select  @order_by_pk = 0

    if (@pktable_name is null) and (@fktable_name is null)
    begin    /* If neither primary key nor foreign key table names given */
        raiserror (15252,-1,-1)
        return
    end
    if @fktable_qualifier is not null
    begin
        if db_name() <> @fktable_qualifier
        begin    /* If qualifier doesn't match current database */
            raiserror (15250, -1,-1)
            return
        end
    end
    if @pktable_qualifier is not null
    begin
        if db_name() <> @pktable_qualifier
        begin    /* If qualifier doesn't match current database */
            raiserror (15250, -1,-1)
            return
        end
    end

    if @pktable_owner is null
    begin    /* If unqualified primary key table name */
        SELECT @pkfull_table_name = quotename(@pktable_name)
    end
    else
    begin    /* Qualified primary key table name */
        if @pktable_owner = ''
        begin    /* If empty owner name */
            SELECT @pkfull_table_name = quotename(@pktable_owner)
        end
        else
        begin
            SELECT @pkfull_table_name = quotename(@pktable_owner) +
                '.' + quotename(@pktable_name)
        end
    end
    /*    Get Object ID */
    SELECT @pktable_id = object_id(@pkfull_table_name)

    if @fktable_owner is null
    begin    /* If unqualified foreign key table name */
        SELECT @fkfull_table_name = quotename(@fktable_name)
    end
    else
    begin    /* Qualified foreign key table name */
        if @fktable_owner = ''
        begin    /* If empty owner name */
            SELECT @fkfull_table_name = quotename(@fktable_owner)
        end
        else
        begin
            SELECT @fkfull_table_name = quotename(@fktable_owner) +
                '.' + quotename(@fktable_name)
        end
    end
    /*    Get Object ID */
    SELECT @fktable_id = object_id(@fkfull_table_name)

    if @fktable_name is not null
    begin
        if @fktable_id is null
            SELECT @fktable_id = 0    /* fk table not found, empty result */
    end

    if @pktable_name is null
    begin /*  If table name not supplied, match all */
        select @order_by_pk = 1
    end
    else
    begin
        if @pktable_id is null
        begin
            SELECT @pktable_id = 0    /* pk table not found, empty result */
        end
    end

    /*    SQL Server supports upto 16 PK/FK relationships between 2 tables */
    /*    Process syskeys for each relationship */
    /*  First, attempt to get all 16 keys for each rel'ship, then sort
        them out with a 16-way "insert select ... union select ..." */

    /* select 'XXX starting data analysis' */

    insert into #fkeysall
        select
            r.rkeyid,
            r.rkey1, r.rkey2, r.rkey3, r.rkey4,
                r.rkey5, r.rkey6, r.rkey7, r.rkey8,
                r.rkey9, r.rkey10, r.rkey11, r.rkey12,
                r.rkey13, r.rkey14, r.rkey15, r.rkey16,
            r.fkeyid,
            r.fkey1, r.fkey2, r.fkey3, r.fkey4,
                r.fkey5, r.fkey6, r.fkey7, r.fkey8,
                r.fkey9, r.fkey10, r.fkey11, r.fkey12,
                r.fkey13, r.fkey14, r.fkey15, r.fkey16,
            r.constid,
            i.name
        from
            sysreferences r, sysobjects o, sysindexes i
        where    r.constid = o.id
            AND o.xtype = 'F'
            AND r.rkeyindid = i.indid
            AND r.rkeyid = i.id
            AND r.rkeyid between isnull(@pktable_id, 0)
                            and isnull(@pktable_id, 0x7fffffff)
            AND r.fkeyid between isnull(@fktable_id, 0)
                            and isnull(@fktable_id, 0x7fffffff)

    /* select count (*) as 'XXX countall' from #fkeysall */

    insert into #fkeys
            select rkeyid, rkey1, fkeyid, fkey1, 1, constid, name
            from #fkeysall
        union all
            select rkeyid, rkey2, fkeyid, fkey2, 2, constid, name
            from #fkeysall
        union all
            select rkeyid, rkey3, fkeyid, fkey3, 3, constid, name
            from #fkeysall
        union all
            select rkeyid, rkey4, fkeyid, fkey4, 4, constid, name
            from #fkeysall
        union all
            select rkeyid, rkey5, fkeyid, fkey5, 5, constid, name
            from #fkeysall
        union all
            select rkeyid, rkey6, fkeyid, fkey6, 6, constid, name
            from #fkeysall
        union all
            select rkeyid, rkey7, fkeyid, fkey7, 7, constid, name
            from #fkeysall
        union all
            select rkeyid, rkey8, fkeyid, fkey8, 8, constid, name
            from #fkeysall
        union all
            select rkeyid, rkey9, fkeyid, fkey9, 9, constid, name
            from #fkeysall
        union all
            select rkeyid, rkey10, fkeyid, fkey10, 10, constid, name
            from #fkeysall
        union all
            select rkeyid, rkey11, fkeyid, fkey11, 11, constid, name
            from #fkeysall
        union all
            select rkeyid, rkey12, fkeyid, fkey12, 12, constid, name
            from #fkeysall
        union all
            select rkeyid, rkey13, fkeyid, fkey13, 13, constid, name
            from #fkeysall
        union all
            select rkeyid, rkey14, fkeyid, fkey14, 14, constid, name
            from #fkeysall
        union all
            select rkeyid, rkey15, fkeyid, fkey15, 15, constid, name
            from #fkeysall
        union all
            select rkeyid, rkey16, fkeyid, fkey16, 16, constid, name
            from #fkeysall

    /* select count (*) as 'XXX count' from #fkeys */

    insert into #fkeysout
        select
            PKTABLE_QUALIFIER = convert(sysname,db_name()),
            PKTABLE_OWNER = convert(sysname,USER_NAME(o1.uid)),
            PKTABLE_NAME = convert(sysname,o1.name),
            PKCOLUMN_NAME = convert(sysname,c1.name),
            FKTABLE_QUALIFIER = convert(sysname,db_name()),
            FKTABLE_OWNER = convert(sysname,USER_NAME(o2.uid)),
            FKTABLE_NAME = convert(sysname,o2.name),
            FKCOLUMN_NAME = convert(sysname,c2.name),
            KEY_SEQ,
            UPDATE_RULE = convert(smallint,1),
            DELETE_RULE = convert(smallint,1),
            FK_NAME = convert(sysname,OBJECT_NAME(fk_id)),
            PK_NAME,
            DEFERRABILITY = 7    /* SQL_NOT_DEFERRABLE */
        from #fkeys f,
            sysobjects o1, sysobjects o2,
            syscolumns c1, syscolumns c2
        where    o1.id = f.pktable_id
            AND o2.id = f.fktable_id
            AND c1.id = f.pktable_id
            AND c2.id = f.fktable_id
            AND c1.colid = f.pkcolid
            AND c2.colid = f.fkcolid

    /* select count (*) as 'XXX countout' from #fkeysout */

    if @order_by_pk = 1 /*    If order by PK fields */
        select
            PKTABLE_QUALIFIER, PKTABLE_OWNER, PKTABLE_NAME, PKCOLUMN_NAME,
            FKTABLE_QUALIFIER, FKTABLE_OWNER, FKTABLE_NAME, FKCOLUMN_NAME,
            KEY_SEQ, UPDATE_RULE, DELETE_RULE, FK_NAME, PK_NAME, DEFERRABILITY
        from #fkeysout
        order by 1,2,3,9
    else        /*    Order by FK fields */
        select
            PKTABLE_QUALIFIER, PKTABLE_OWNER, PKTABLE_NAME, PKCOLUMN_NAME,
            FKTABLE_QUALIFIER, FKTABLE_OWNER, FKTABLE_NAME, FKCOLUMN_NAME,
            KEY_SEQ, UPDATE_RULE, DELETE_RULE, FK_NAME, PK_NAME, DEFERRABILITY
        from #fkeysout
        order by 5,6,7,9
go

grant execute on sp_fkeys to public
go

dump tran master with no_log
go

print 'creating sp_pkeys'
go

/*    Procedure for pre-6.0 server */
CREATE PROCEDURE sp_pkeys(
               @table_name        varchar(32),
               @table_owner     varchar(32) = null,
               @table_qualifier varchar(32) = null )
as
    if @table_qualifier is not null
    begin
        if db_name() <> @table_qualifier
        begin    /* If qualifier doesn't match current database */
            raiserror 20001 'Table qualifier must be name of current database'
            return
        end
    end
    if @table_owner is null /*    If owner not supplied, match all */
        select @table_owner = '%'
    if @@trancount <> 0
    begin    /* If inside a transaction */
        raiserror 20003 'The procedure ''sp_pkeys'' cannot be executed from within a transaction.'
        return
    end

    create table #pkeys(
             TABLE_QUALIFIER varchar(32) NULL,
             TABLE_OWNER     varchar(32) NULL,
             TABLE_NAME      varchar(32) NOT NULL,
             COLUMN_NAME     varchar(32) NOT NULL,
             KEY_SEQ         smallint NOT NULL)

    /*    SQL Server supports upto 8 PK/FK relationships between 2 tables */
    /*    Process syskeys for each relationship */
    /*    The inserts below adds a row to the temp table for each of the
        8 possible relationships */
    insert into #pkeys
        select
            db_name(),
            (select user_name(uid) from sysobjects o where o.id = k.id),
            object_name(k.id),
            c.name,
            1
        from
            syskeys k, syscolumns c
        where
            c.id = k.id
            and k.type = 1    /* Primary type key */
            and c.colid = k.key1
    if (@@rowcount = 0)
        goto done

    insert into #pkeys
        select
            db_name(),
            (select user_name(uid) from sysobjects o where o.id = k.id),
            object_name(k.id),
            c.name,
            2
        from
            syskeys k, syscolumns c
        where
            c.id = k.id
            and k.type = 1    /* Primary type key */
            and c.colid = key2
    if (@@rowcount = 0)
        goto done

    insert into #pkeys
        select
            db_name(),
            (select user_name(uid) from sysobjects o where o.id = k.id),
            object_name(k.id),
            c.name,
            3
        from
            syskeys k, syscolumns c
        where
            c.id = k.id
            and k.type = 1    /* Primary type key */
            and c.colid = key3
    if (@@rowcount = 0)
        goto done

    insert into #pkeys
        select
            db_name(),
            (select user_name(uid) from sysobjects o where o.id = k.id),
            object_name(k.id),
            c.name,
            4
        from
            syskeys k, syscolumns c
        where
            c.id = k.id
            and k.type = 1    /* Primary type key */
            and c.colid = key4
    if (@@rowcount = 0)
        goto done

    insert into #pkeys
        select
            db_name(),
            (select user_name(uid) from sysobjects o where o.id = k.id),
            object_name(k.id),
            c.name,
            5
        from
            syskeys k, syscolumns c
        where
            c.id = k.id
            and k.type = 1    /* Primary type key */
            and c.colid = key5
    if (@@rowcount = 0)
        goto done

    insert into #pkeys
        select
            db_name(),
            (select user_name(uid) from sysobjects o where o.id = k.id),
            object_name(k.id),
            c.name,
            6
        from
            syskeys k, syscolumns c
        where
            c.id = k.id
            and k.type = 1    /* Primary type key */
            and c.colid = key6
    if (@@rowcount = 0)
        goto done

    insert into #pkeys
        select
            db_name(),
            (select user_name(uid) from sysobjects o where o.id = k.id),
            object_name(k.id),
            c.name,
            7
        from
            syskeys k, syscolumns c
        where
            c.id = k.id
            and k.type = 1    /* Primary type key */
            and c.colid = key7
    if (@@rowcount = 0)
        goto done

    insert into #pkeys
         select
             db_name(),
             (select user_name(uid) from sysobjects o where o.id = k.id),
             object_name(k.id),
             c.name,
             8
         from
             syskeys k, syscolumns c
         where
             c.id = k.id
             and k.type = 1 /* Primary type key */
             and c.colid = key8

    done:
    select
        TABLE_QUALIFIER,
        TABLE_OWNER,
        TABLE_NAME,
        COLUMN_NAME,
        KEY_SEQ,
        PK_NAME = convert(varchar(32),null)
    from #pkeys
    where TABLE_NAME = @table_name
        and TABLE_OWNER like @table_owner
    order by 1, 2, 3, 5
go

if (charindex('6.00', @@version) = 0 and
    charindex('6.50', @@version) = 0 and
    charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 6.0 SQL Server.'
    print 'Ignore the following error.'
end
else
    drop proc sp_pkeys
go

/*    Procedure for 6.0 and 6.50 servers */
CREATE PROCEDURE sp_pkeys(
               @table_name        sysname,
               @table_owner     sysname = null,
               @table_qualifier sysname = null )
as
    DECLARE @table_id            int
    DECLARE @full_table_name    varchar(255) /* 2*128 + 1 */

    if @table_qualifier is not null
    begin
        if db_name() <> @table_qualifier
        begin    /* If qualifier doesn't match current database */
            raiserror (15250, -1,-1)
            return
        end
    end
    if @table_owner is null
    begin    /* If unqualified table name */
        SELECT @full_table_name = @table_name
    end
    else
    begin    /* Qualified table name */
        if @table_owner = ''
        begin    /* If empty owner name */
            SELECT @full_table_name = @table_owner
        end
        else
        begin
            SELECT @full_table_name = @table_owner + '.' + @table_name
        end
    end
    /*    Get Object ID */
    SELECT @table_id = object_id(@full_table_name)

    select
        TABLE_QUALIFIER = convert(sysname,db_name()),
        TABLE_OWNER = convert(sysname,user_name(o.uid)),
        TABLE_NAME = convert(sysname,o.name),
        COLUMN_NAME = convert(sysname,c.name),
        KEY_SEQ = convert(smallint,c1.colid),
        PK_NAME = convert(sysname,i.name)
    from
        sysindexes i, syscolumns c, sysobjects o, syscolumns c1
    where
        o.id = @table_id
        and o.id = c.id
        and o.id = i.id
        and (i.status & 0x800) = 0x800
        and c.name = index_col (@full_table_name, i.indid, c1.colid)
        and c1.colid <= i.keycnt    /* create rows from 1 to keycnt */
        and c1.id = @table_id
    order by 1, 2, 3, 5
go

if (charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
else
    drop proc sp_pkeys
go

/*    Procedure for 7.0 and later servers */
CREATE PROCEDURE sp_pkeys(
               @table_name        sysname,
               @table_owner     sysname = null,
               @table_qualifier sysname = null )
as
    DECLARE @table_id            int
    DECLARE @full_table_name    varchar(255) /* 2*128 + 1 */

    if @table_qualifier is not null
    begin
        if db_name() <> @table_qualifier
        begin    /* If qualifier doesn't match current database */
            raiserror (15250, -1,-1)
            return
        end
    end
    if @table_owner is null
    begin    /* If unqualified table name */
        SELECT @full_table_name = quotename(@table_name)
    end
    else
    begin    /* Qualified table name */
        if @table_owner = ''
        begin    /* If empty owner name */
            SELECT @full_table_name = quotename(@table_owner)
        end
        else
        begin
            SELECT @full_table_name = quotename(@table_owner) +
                '.' + quotename(@table_name)
        end
    end
    /*    Get Object ID */
    SELECT @table_id = object_id(@full_table_name)

    select
        TABLE_QUALIFIER = convert(sysname,db_name()),
        TABLE_OWNER = convert(sysname,user_name(o.uid)),
        TABLE_NAME = convert(sysname,o.name),
        COLUMN_NAME = convert(sysname,c.name),
        KEY_SEQ = convert(smallint,c1.colid),
        PK_NAME = convert(sysname,i.name)
    from
        sysindexes i, syscolumns c, sysobjects o, syscolumns c1
    where
        o.id = @table_id
        and o.id = c.id
        and o.id = i.id
        and (i.status & 0x800) = 0x800
        and c.name = index_col (@full_table_name, i.indid, c1.colid)
        and c1.colid <= i.keycnt    /* create rows from 1 to keycnt */
        and c1.id = @table_id
    order by 1, 2, 3, 5
go

grant execute on sp_pkeys to public
go

dump tran master with no_log
go

print 'creating sp_server_info'
go

create proc sp_server_info (
            @attribute_id  int = null)
as
    if @attribute_id is not null
        select *
        from master.dbo.spt_server_info
        where attribute_id = @attribute_id
    else
        select *
        from master.dbo.spt_server_info
        order by attribute_id
go

grant execute on sp_server_info to public
go

dump tran master with no_log
go

print 'creating sp_special_columns'
go

/*    Procedure for pre-6.0 server */
CREATE PROCEDURE sp_special_columns (
                 @table_name        varchar(32),
                 @table_owner        varchar(32) = null,
                 @table_qualifier    varchar(32) = null,
                 @col_type            char(1) = 'R',
                 @scope                char(1) = 'T',
                 @nullable            char(1) = 'U',
                 @ODBCVer            int = 2)
AS
    DECLARE @indid                int
    DECLARE @table_id            int
    DECLARE @full_table_name    varchar(65) /* 2*32+1 */
    DECLARE @scopeout            smallint

    if @col_type not in ('R','V')
    begin
        raiserror 20002 'Illegal ''col_type'' specified -- must be ''R'' or ''V''.'
        return
    end

    if @scope = 'C'
        select @scopeout = 0
    else if @scope = 'T'
        select @scopeout = 1
    else
    begin
        raiserror 20002 'Illegal ''scope'' specified -- must be ''C'' or ''T''.'
        return
    end

    if @nullable not in ('U','O')
    begin
        raiserror 20002 'Illegal ''nullable'' specified -- must be ''U'' or ''O''.'
        return
    end

    if @table_qualifier is not null
    begin
        if db_name() <> @table_qualifier
        begin /* If qualifier doesn't match current database */
            raiserror 20001 'Table qualifier must be name of current database'
            return
        end
    end
    if @table_owner is null
    begin     /* If unqualified table name */
        SELECT @full_table_name = @table_name
    end
    else
    begin    /* Qualified table name */
        SELECT @full_table_name = @table_owner + '.' + @table_name
    end
    /*    Get Object ID */
    SELECT @table_id = object_id(@full_table_name)

    if @col_type = 'V'
    BEGIN /* if ROWVER, just run that query */
        SELECT
            SCOPE = convert(smallint,NULL),
            COLUMN_NAME = convert(varchar(32),c.name),
            DATA_TYPE = convert(smallint, -3),
            TYPE_NAME = t.name,
            "PRECISION" = convert(int,8),
            LENGTH = convert(int,8),
            SCALE = convert(smallint, NULL),
            PSEUDO_COLUMN = convert(smallint,1)
        FROM
            systypes t, syscolumns c
        WHERE
            c.id = @table_id
            AND c.usertype = 80 /*    TIMESTAMP */
            AND t.usertype = 80 /*    TIMESTAMP */
        RETURN
    END

    /* ROWID, now find the id of the 'best' index for this table */

    IF @nullable = 'O'    /* Don't include any indexes that contain
                           nullable columns. */

            SELECT @indid = MIN(indid)
                FROM sysindexes i,syscolumns c,syscolumns c2
                WHERE
                    i.status&2 = 2        /*    If Unique Index */
                     AND c.id = i.id
                     AND c2.id = c.id
                     AND c2.colid < i.keycnt + (i.status&16)/16
                    AND i.id = @table_id
                    AND indid > 0        /*    Eliminate Table Row */
                    AND c.name = index_col(@table_name,i.indid,c2.colid)
                    GROUP BY indid HAVING SUM(c.status&8) = 0

    ELSE    /* Include indexes that are partially nullable. */

        SELECT @indid = MIN(indid)
            FROM sysindexes i
            WHERE
                status&2 = 2        /*    If Unique Index */
                AND id = @table_id
                AND indid > 0        /*    Eliminate Table Row */

    SELECT
        SCOPE = @scopeout,
        COLUMN_NAME = convert(varchar(32),INDEX_COL(@full_table_name,indid,c2.colid)),
        d.DATA_TYPE,
        TYPE_NAME = t.name,
        "PRECISION" = isnull(d.data_precision, convert(int,c.length)),
        LENGTH = isnull(d.length, convert(int,c.length)),
        SCALE = d.numeric_scale,
        PSEUDO_COLUMN = convert(smallint,1)
    FROM
        sysindexes x,
        syscolumns c,
        master.dbo.spt_datatype_info d,
        systypes t,
        syscolumns c2    /* Self-join to generate list of index columns and */
                        /* to extract datatype names */
    WHERE
        x.id = @table_id
        AND c.name = INDEX_COL(@full_table_name,@indid,c2.colid)
        AND c.id = x.id
        AND c2.id = x.id
        AND c2.colid < keycnt+(x.status&16)/16
        AND x.indid = @indid
        AND t.type = d.ss_dtype
        AND c.length = d.fixlen
        AND c.usertype = t.usertype

go

if (charindex('6.00', @@version) = 0 and
    charindex('6.50', @@version) = 0 and
    charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 6.0 SQL Server.'
    print 'Ignore the following errors.'
end
else
    drop proc sp_special_columns
go

/*    Procedure for 6.0 and 6.50 servers */
CREATE PROCEDURE sp_special_columns (
                 @table_name        varchar(32),
                 @table_owner        varchar(32) = null,
                 @table_qualifier    varchar(32) = null,
                 @col_type            char(1) = 'R',
                 @scope                char(1) = 'T',
                 @nullable            char(1) = 'U',
                 @ODBCVer            int = 2)
AS
    DECLARE @indid                int
    DECLARE @table_id            int
    DECLARE @full_table_name    varchar(65) /* 2*32+1 */
    DECLARE @scopeout            smallint

    if @col_type not in ('R','V')
    begin
        raiserror (15251,-1,-1,'col_type','''R'' or ''V''')
        return
    end

    if @scope = 'C'
        select @scopeout = 0
    else if @scope = 'T'
        select @scopeout = 1
    else
    begin
        raiserror (15251,-1,-1,'scope','''C'' or ''T''')
        return
    end

    if @nullable not in ('U','O')
    begin
        raiserror (15251,-1,-1,'nullable','''U'' or ''O''')
        return
    end

    if @table_qualifier is not null
    begin
        if db_name() <> @table_qualifier
        begin /* If qualifier doesn't match current database */
            raiserror (15250, -1,-1)
            return
        end
    end
    if @table_owner is null
    begin     /* If unqualified table name */
        SELECT @full_table_name = @table_name
    end
    else
    begin     /* Qualified table name */
        SELECT @full_table_name = @table_owner + '.' + @table_name
    end
    /*    Get Object ID */
    SELECT @table_id = object_id(@full_table_name)

    if @col_type = 'V'
    BEGIN /* if ROWVER, just run that query */
        SELECT
            SCOPE = convert(smallint,NULL),
            COLUMN_NAME = convert(varchar(32),c.name),
            DATA_TYPE = convert(smallint, -2),
            TYPE_NAME = t.name,
            "PRECISION" = convert(int,8),
            LENGTH = convert(int,8),
            SCALE = convert(smallint, NULL),
            PSEUDO_COLUMN = convert(smallint,1)
        FROM
            systypes t, syscolumns c
        WHERE
            c.id = @table_id
            AND c.usertype = 80 /*    TIMESTAMP */
            AND t.usertype = 80 /*    TIMESTAMP */
        RETURN
    END

    /* ROWID, now find the id of the 'best' index for this table */

    IF @nullable = 'O'    /* Don't include any indexes that contain
                           nullable columns. */

        SELECT @indid = MIN(indid)
            FROM sysindexes i,syscolumns c,syscolumns c2
            WHERE
                i.status&2 = 2        /*    If Unique Index */
                AND c.id = i.id
                AND c2.id = c.id
                AND c2.colid < i.keycnt + (i.status&16)/16
                AND i.id = @table_id
                AND indid > 0        /*    Eliminate Table Row */
                AND c.name = index_col(@table_name,i.indid,c2.colid)
                GROUP BY indid HAVING SUM(c.status&8) = 0

    ELSE    /* Include indexes that are partially nullable. */

        SELECT @indid = MIN(indid)
            FROM sysindexes i
            WHERE
                status&2 = 2        /*    If Unique Index */
                AND id = @table_id
                AND indid > 0        /*    Eliminate Table Row */

    SELECT
        SCOPE = @scopeout,
        COLUMN_NAME = convert(varchar(32),INDEX_COL(@full_table_name,indid,c2.colid)),
        d.DATA_TYPE,
        convert(varchar(32),case
            when (t.usertype > 100 or t.usertype in (18,80))
                then t.name
            else d.TYPE_NAME
        end) TYPE_NAME,
        convert(int,case
            when d.DATA_TYPE in (6,7) then d.data_precision         /* FLOAT/REAL */
            else isnull(convert(int,c.prec), 2147483647)
        end) "PRECISION",
        convert(int,case
            when d.ss_dtype IN (106, 108, 55, 63) then    /* decimal/numeric types */
                convert(int,c.prec+2)
            else
                isnull(d.length, c.length)
        end) LENGTH,
        SCALE = convert(smallint, c.scale),
        PSEUDO_COLUMN = convert(smallint,1)
    FROM
        sysindexes x,
        syscolumns c,
        master.dbo.spt_datatype_info d,
        systypes t,
        syscolumns c2    /* Self-join to generate list of index columns and */
                        /* to extract datatype names */
    WHERE
        x.id = @table_id
        AND c.name = INDEX_COL(@full_table_name,@indid,c2.colid)
        AND c.id = x.id
        AND c2.id = x.id
        AND c2.colid < x.keycnt+(x.status&16)/16
        AND x.indid = @indid
        AND t.type = d.ss_dtype
        AND (d.ODBCVer is null or d.ODBCVer = @ODBCVer)
        AND isnull(d.AUTO_INCREMENT,0) = (c.status&128)/128
        AND c.usertype = t.usertype
go

if (charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
else
    drop proc sp_special_columns
go

/*    Procedure for 7.0 and later servers */
CREATE PROCEDURE sp_special_columns (
                 @table_name        sysname,
                 @table_owner        sysname = null,
                 @table_qualifier    sysname = null,
                 @col_type            char(1) = 'R',
                 @scope                char(1) = 'T',
                 @nullable            char(1) = 'U',
                 @ODBCVer            int = 2)
AS
    DECLARE @indid                int
    DECLARE @table_id            int
    DECLARE @full_table_name    nvarchar(257)
    DECLARE @scopeout            smallint

    if @col_type not in ('R','V')
    begin
        raiserror (15251,-1,-1,'col_type','''R'' or ''V''')
        return
    end

    if @scope = 'C'
        select @scopeout = 0
    else if @scope = 'T'
        select @scopeout = 1
    else
    begin
        raiserror (15251,-1,-1,'scope','''C'' or ''T''')
        return
    end

    if @nullable not in ('U','O')
    begin
        raiserror (15251,-1,-1,'nullable','''U'' or ''O''')
        return
    end

    if @table_qualifier is not null
    begin
        if db_name() <> @table_qualifier
        begin /* If qualifier doesn't match current database */
            raiserror (15250, -1,-1)
            return
        end
    end
    if @table_owner is null
    begin     /* If unqualified table name */
        SELECT @full_table_name = quotename(@table_name)
    end
    else
    begin    /* Qualified table name */
        if @table_owner = ''
        begin    /* If empty owner name */
            SELECT @full_table_name = quotename(@table_owner)
        end
        else
        begin
            SELECT @full_table_name = quotename(@table_owner) +
                '.' + quotename(@table_name)
        end
    end
    /*    Get Object ID */
    SELECT @table_id = object_id(@full_table_name)

    if @col_type = 'V'
    BEGIN /* if ROWVER, just run that query */
        SELECT
            SCOPE = convert(smallint,NULL),
            COLUMN_NAME = convert(sysname,c.name),
            DATA_TYPE = convert(smallint, -2),
            TYPE_NAME = t.name,
            "PRECISION" = convert(int,8),
            LENGTH = convert(int,8),
            SCALE = convert(smallint, NULL),
            PSEUDO_COLUMN = convert(smallint,1)
        FROM
            systypes t, syscolumns c
        WHERE
            not (@table_id is null)
            AND c.id = @table_id
            AND t.name = 'timestamp'    /*    TIMESTAMP  */
            AND t.xtype = c.xtype
            AND t.xusertype = c.xusertype
        RETURN
    END

    /* ROWID, now find the id of the 'best' index for this table */

    IF @nullable = 'O'    /* Don't include any indexes that contain
                           nullable columns. */

        SELECT @indid = MIN(indid)
            FROM sysindexes x, syscolumns c, syscolumns c2
            WHERE
                not (@table_id is null)
                AND x.status&2 = 2        /*    If Unique Index */
                AND c.id = x.id
                AND c2.id = c.id
                AND c2.colid < x.keycnt + (x.status&16)/16
                AND x.id = @table_id
                AND indid > 0        /*    Eliminate Table Row */
                AND c.name = index_col(@table_name,x.indid,c2.colid)
                GROUP BY indid HAVING SUM(c.status&8) = 0

    ELSE    /* Include indexes that are partially nullable. */

        SELECT @indid = MIN(indid)
            FROM sysindexes x
            WHERE
                not (@table_id is null)
                AND status&2 = 2        /*    If Unique Index */
                AND id = @table_id
                AND indid > 0        /*    Eliminate Table Row */

    SELECT
        SCOPE = @scopeout,
        COLUMN_NAME = convert(sysname,INDEX_COL(@full_table_name,indid,c2.colid)),
        d.DATA_TYPE,
        convert(sysname,case
            when t.xusertype > 255 then t.name
            else d.TYPE_NAME
        end) TYPE_NAME,
        convert(int,case
            when d.DATA_TYPE in (6,7) then d.data_precision         /* FLOAT/REAL */
            else OdbcPrec(c.xtype,c.length,c.xprec)
        end) "PRECISION",
        convert(int,case
            when type_name(d.ss_dtype) IN ('numeric','decimal') then    /* decimal/numeric types */
                OdbcPrec(c.xtype,c.length,c.xprec)+2
            else isnull(d.length, c.length)
        end) LENGTH,
        SCALE = convert(smallint, OdbcScale(c.xtype,c.xscale)),
        PSEUDO_COLUMN = convert(smallint,1)
    FROM
        sysindexes x,
        syscolumns c,
        master.dbo.spt_datatype_info d,
        systypes t,
        syscolumns c2    /* Self-join to generate list of index columns and */
                        /* to extract datatype names */
    WHERE
        not (@table_id is null)
        AND x.id = @table_id
        AND c.name = INDEX_COL(@full_table_name,@indid,c2.colid)
        AND c.id = x.id
        AND c2.id = x.id
        AND c2.colid < x.keycnt + (x.status&16)/16
        AND x.indid = @indid
        AND t.xtype = d.ss_dtype
        AND (d.ODBCVer is null or d.ODBCVer = @ODBCVer)
        AND isnull(d.AUTO_INCREMENT,0) = isnull(ColumnProperty (c.id, c.name, 'IsIdentity'),0)
        AND c.xusertype = t.xusertype
go

grant execute on sp_special_columns to public
go

dump tran master with no_log
go

print 'creating sp_sproc_columns'
go

/*    Procedure for pre-6.0 server */
CREATE PROCEDURE sp_sproc_columns (
                 @procedure_name        varchar(102) = '%', /* 3*32+5+1 */
                 @procedure_owner        varchar(96) = null,
                 @procedure_qualifier    varchar(32) = null,
                 @column_name            varchar(96) = null,
                 @ODBCVer                int = 2)
AS
    DECLARE @group_num_lower smallint
    DECLARE @group_num_upper smallint
    DECLARE @semi_position int
    DECLARE @full_procedure_name    varchar(205)/* 2*102+1 */
    DECLARE @procedure_id int

    if @column_name is null /*    If column name not supplied, match all */
        select @column_name = '%'
    if @procedure_qualifier is not null
    begin
        if db_name() <> @procedure_qualifier
        begin
            if @procedure_qualifier = ''
            begin
                /* in this case, we need to return an empty result set */
                /* because the user has requested a database with an empty name */
                select @procedure_name = ''
                select @procedure_owner = ''
            end
            else
            begin    /* If qualifier doesn't match current database */
                raiserror 20001 'Procedure qualifier must be name of current database'
                return
            end
        end
    end

    if @procedure_name is null
    begin    /*    If procedure name not supplied, match all */
        select @procedure_name = '%'
    end

    /* first we need to extract the procedure group number, if one exists */
    select @semi_position = charindex(';',@procedure_name)
    if (@semi_position > 0)
    begin    /* If group number separator (;) found */
        select @group_num_lower = convert(int,substring(@procedure_name, @semi_position + 1, 2))
        select @group_num_upper = @group_num_lower
        select @procedure_name = substring(@procedure_name, 1, @semi_position -1)
    end
    else
    begin    /* No group separator, so default to group number of 1 */
        select @group_num_lower = 1
        select @group_num_upper = 32767
    end

    if @procedure_owner is null
    begin    /* If unqualified procedure name */
        SELECT @full_procedure_name = @procedure_name
    end
    else
    begin    /* Qualified procedure name */
        SELECT @full_procedure_name = @procedure_owner + '.' + @procedure_name
    end

    /*    Get Object ID */
    SELECT @procedure_id = object_id(@full_procedure_name)
    if ((charindex('%',@full_procedure_name) = 0) and
        (charindex('_',@full_procedure_name) = 0)  and
        @procedure_id <> 0)
    begin
        /* this block is for the case where there is no pattern
            matching required for the procedure name */
        SELECT
            PROCEDURE_QUALIFIER = convert(varchar(32),DB_NAME()),
            PROCEDURE_OWNER = convert(varchar(32),USER_NAME(o.uid)),
            PROCEDURE_NAME = convert(varchar(36),o.name +';'+ ltrim(str(c.number,5))),
            COLUMN_NAME = convert(varchar(32),c.name),
            COLUMN_TYPE = convert(smallint, 0),
            d.DATA_TYPE,
            TYPE_NAME = t.name,
            "PRECISION" = isnull(d.data_precision, convert(int,c.length)),
            LENGTH = isnull(d.length, convert(int,c.length)),
            SCALE = d.numeric_scale,
            d.RADIX,
            d.NULLABLE,
            REMARKS = convert(varchar(254),null),    /* Remarks are NULL */
            COLUMN_DEF = convert(varchar(255),null),
            d.SQL_DATA_TYPE,
            d.SQL_DATETIME_SUB,
            CHAR_OCTET_LENGTH = isnull(d.data_precision, convert(int,c.length))+d.charbin,
            ORDINAL_POSITION = convert(int,c.colid),
            IS_NULLABLE = convert(varchar(254),rtrim(substring('NO YES',d.NULLABLE*3+1,3))),
            SS_DATA_TYPE = c.type
        FROM
            syscolumns c,
            sysobjects o,
            master.dbo.spt_datatype_info d,
            systypes t
        WHERE
            o.id = @procedure_id
            AND c.id = o.id
            AND t.type = d.ss_dtype
            AND c.length = isnull(d.fixlen, c.length)
            AND (d.ODBCVer is null or d.ODBCVer = @ODBCVer)
            AND c.usertype = t.usertype
            AND c.name like @column_name
            AND c.number between @group_num_lower and @group_num_upper
        UNION ALL
        SELECT           /* return value row*/
            PROCEDURE_QUALIFIER = convert(varchar(32),DB_NAME()),
            PROCEDURE_OWNER = convert(varchar(32),USER_NAME(o.uid)),
            PROCEDURE_NAME = convert(varchar(36),o.name +';'+ isnull(ltrim(str(c.number,5)),'1')),
            COLUMN_NAME = convert(varchar(32),'RETURN_VALUE'),
            COLUMN_TYPE = convert(smallint, 5),
            DATA_TYPE = convert(smallint, 4),
            TYPE_NAME = convert(varchar(32),'int'),
            "PRECISION" = convert(int,10),
            LENGTH = convert(int,4),
            SCALE = convert(smallint,0),
            RADIX = convert(smallint,10),
            NULLABLE = convert(smallint,0),
            REMARKS = convert(varchar(254),null),    /* Remarks are NULL */
            COLUMN_DEF = convert(varchar(255),NULL),
            SQL_DATA_TYPE = convert(smallint, 4),
            SQL_DATETIME_SUB = convert(smallint,null),
            CHAR_OCTET_LENGTH = convert(int,null),
            ORDINAL_POSITION = convert(int,0),
            IS_NULLABLE = convert(varchar(254),'NO'),
            SS_DATA_TYPE = convert(tinyint,56)
        FROM
            syscomments c, sysobjects o
        WHERE
            o.id = @procedure_id
            AND c.id = o.id
            AND c.colid = 1
            AND o.type = 'P'                        /* Just Procedures */
            AND 'RETURN_VALUE' like @column_name
            AND c.number between @group_num_lower and @group_num_upper
        ORDER BY 1, 2, 3, 18
    end
    else
    begin
        /* this block is for the case where there IS pattern
            matching done on the procedure name */
        if @procedure_owner is null
            select @procedure_owner = '%'
        SELECT
            PROCEDURE_QUALIFIER = convert(varchar(32),DB_NAME()),
            PROCEDURE_OWNER = convert(varchar(32),USER_NAME(o.uid)),
            PROCEDURE_NAME = convert(varchar(36),o.name +';'+ ltrim(str(c.number,5))),
            COLUMN_NAME = convert(varchar(32),c.name),
            COLUMN_TYPE = convert(smallint, 0),
            d.DATA_TYPE,
            TYPE_NAME = t.name,
            "PRECISION" = isnull(d.data_precision, convert(int,c.length)),
            LENGTH = isnull(d.length, convert(int,c.length)),
            SCALE = d.numeric_scale,
            d.RADIX,
            d.NULLABLE,
            REMARKS = convert(varchar(254),null),    /* Remarks are NULL */
            COLUMN_DEF = convert(varchar(255),null),
            d.SQL_DATA_TYPE,
            d.SQL_DATETIME_SUB,
            CHAR_OCTET_LENGTH = isnull(d.data_precision, convert(int,c.length))+d.charbin,
            ORDINAL_POSITION = convert(int,c.colid),
            IS_NULLABLE = convert(varchar(254),rtrim(substring('NO YES',d.NULLABLE*3+1,3))),
            SS_DATA_TYPE = c.type
        FROM
            syscolumns c,
            sysobjects o,
            master.dbo.spt_datatype_info d,
            systypes t
        WHERE
            o.name like @procedure_name
            AND user_name(o.uid) like @procedure_owner
            AND o.id = c.id
            AND t.type = d.ss_dtype
            AND c.length = isnull(d.fixlen, c.length)
            AND (d.ODBCVer is null or d.ODBCVer = @ODBCVer)
            AND c.usertype = t.usertype
            AND o.type = 'P'                            /* Just Procedures */
            AND c.name like @column_name
            AND c.number between @group_num_lower and @group_num_upper
        UNION ALL
        SELECT           /* return value row*/
            PROCEDURE_QUALIFIER = convert(varchar(32),DB_NAME()),
            PROCEDURE_OWNER = convert(varchar(32),USER_NAME(o.uid)),
            PROCEDURE_NAME = convert(varchar(36),o.name +';'+ isnull(ltrim(str(c.number,5)),'1')),
            COLUMN_NAME = convert(varchar(32),'RETURN_VALUE'),
            COLUMN_TYPE = convert(smallint, 5),
            DATA_TYPE = convert(smallint, 4),
            TYPE_NAME = convert(varchar(32),'int'),
            "PRECISION" = convert(int,10),
            LENGTH = convert(int,4),
            SCALE = convert(smallint,0),
            RADIX = convert(smallint,10),
            NULLABLE = convert(smallint,0),
            REMARKS = convert(varchar(254),null),    /* Remarks are NULL */
            COLUMN_DEF = convert(varchar(255),NULL),
            SQL_DATA_TYPE = convert(smallint, 4),
            SQL_DATETIME_SUB = convert(smallint,null),
            CHAR_OCTET_LENGTH = convert(int,null),
            ORDINAL_POSITION = convert(int,0),
            IS_NULLABLE = convert(varchar(254),'NO'),
            SS_DATA_TYPE = convert(tinyint,56)
        FROM
            syscomments c, sysobjects o
        WHERE
            o.name like @procedure_name
            AND user_name(o.uid) like @procedure_owner
            AND c.id = o.id
            AND c.colid = 1
            AND o.type = 'P'                        /* Just Procedures */
            AND 'RETURN_VALUE' like @column_name
            AND c.number between @group_num_lower and @group_num_upper
        ORDER BY 1, 2, 3, 18
    end
go

if (charindex('6.00', @@version) = 0 and
    charindex('6.50', @@version) = 0 and
    charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 6.0 SQL Server.'
    print 'Ignore the following error.'
end
else
    drop proc sp_sproc_columns
go

/*    Procedure for 6.0 and 6.50 servers */
CREATE PROCEDURE sp_sproc_columns (
                 @procedure_name        varchar(102) = '%', /* 3*36+5+1 */
                 @procedure_owner        varchar(96) = null,
                 @procedure_qualifier    varchar(32) = null,
                 @column_name            varchar(96) = null,
                 @ODBCVer                int = 2)
AS
    DECLARE @group_num_lower smallint
    DECLARE @group_num_upper smallint
    DECLARE @semi_position int
    DECLARE @full_procedure_name    varchar(205)
    DECLARE @procedure_id int

    if @column_name is null /*    If column name not supplied, match all */
        select @column_name = '%'
    if @procedure_qualifier is not null
    begin
        if db_name() <> @procedure_qualifier
        begin
            if @procedure_qualifier = ''
            begin
                /* in this case, we need to return an empty result set */
                /* because the user has requested a database with an empty name */
                select @procedure_name = ''
                select @procedure_owner = ''
            end
            else
            begin    /* If qualifier doesn't match current database */
                raiserror (15250, -1,-1)
                return
            end
        end
    end

    if @procedure_name is null
    begin    /*    If procedure name not supplied, match all */
        select @procedure_name = '%'
    end

    /* first we need to extract the procedure group number, if one exists */
    select @semi_position = charindex(';',@procedure_name)
    if (@semi_position > 0)
    begin    /* If group number separator (;) found */
        select @group_num_lower = convert(int,substring(@procedure_name, @semi_position + 1, 2))
        select @group_num_upper = @group_num_lower
        select @procedure_name = substring(@procedure_name, 1, @semi_position -1)
    end
    else
    begin    /* No group separator, so default to group number of 1 */
        select @group_num_lower = 1
        select @group_num_upper = 32767
    end

    if @procedure_owner is null
    begin    /* If unqualified procedure name */
        SELECT @full_procedure_name = @procedure_name
    end
    else
    begin    /* Qualified procedure name */
        SELECT @full_procedure_name = @procedure_owner + '.' + @procedure_name
    end

    /*    Get Object ID */
    SELECT @procedure_id = object_id(@full_procedure_name)
    if ((charindex('%',@full_procedure_name) = 0) and
        (charindex('_',@full_procedure_name) = 0)  and
        @procedure_id <> 0)
    begin
        /* this block is for the case where there is no pattern
            matching required for the procedure name */
        SELECT
            PROCEDURE_QUALIFIER = convert(varchar(32),DB_NAME()),
            PROCEDURE_OWNER = convert(varchar(32),USER_NAME(o.uid)),
            PROCEDURE_NAME = convert(varchar(36),o.name +';'+ ltrim(str(c.number,5))),
            COLUMN_NAME = convert(varchar(32),c.name),
            COLUMN_TYPE = convert(smallint, 1+((c.status/64)&1)),
            d.DATA_TYPE,
            TYPE_NAME = t.name,
            convert(int,case
                when d.DATA_TYPE in (6,7) then d.data_precision         /* FLOAT/REAL */
                else isnull(convert(int,c.prec), 2147483647)
            end) "PRECISION",
            convert(int,case
                when d.ss_dtype IN (106, 108, 55, 63) then    /* decimal/numeric types */
                    c.prec+2
                else
                    isnull(d.length, c.length)
            end) LENGTH,
            SCALE = convert(smallint, c.scale),
            d.RADIX,
            d.NULLABLE,
            REMARKS = convert(varchar(254),null),    /* Remarks are NULL */
            COLUMN_DEF = convert(varchar(255),NULL),
            d.SQL_DATA_TYPE,
            d.SQL_DATETIME_SUB,
            CHAR_OCTET_LENGTH = isnull(convert(int,c.prec), 2147483647)+d.charbin,
            ORDINAL_POSITION = convert(int,c.colid),
            IS_NULLABLE = convert(varchar(254),rtrim(substring('NO YES',d.NULLABLE*3+1,3))),
            SS_DATA_TYPE = c.type
        FROM
            syscolumns c,
            sysobjects o,
            master.dbo.spt_datatype_info d,
            systypes t
        WHERE
            o.id = @procedure_id
            AND c.id = o.id
            AND c.type = d.ss_dtype
            AND c.length = isnull(d.fixlen, c.length)
            AND (d.ODBCVer is null or d.ODBCVer = @ODBCVer)
            AND isnull(d.AUTO_INCREMENT,0) = 0
            AND c.usertype = t.usertype
            AND c.name like @column_name
            AND c.number between @group_num_lower and @group_num_upper
        UNION ALL
        SELECT           /* return value row*/
            PROCEDURE_QUALIFIER = convert(varchar(32),DB_NAME()),
            PROCEDURE_OWNER = convert(varchar(32),USER_NAME(o.uid)),
            PROCEDURE_NAME = convert(varchar(36),o.name +';'+ isnull(ltrim(str(c.number,5)),'1')),
            COLUMN_NAME = convert(varchar(32),'RETURN_VALUE'),
            COLUMN_TYPE = convert(smallint, 5),
            DATA_TYPE = convert(smallint, 4),
            TYPE_NAME = convert(varchar(32),'int'),
            "PRECISION" = convert(int,10),
            LENGTH = convert(int,4),
            SCALE = convert(smallint,0),
            RADIX = convert(smallint,10),
            NULLABLE = convert(smallint,0),
            REMARKS = convert(varchar(254),null),    /* Remarks are NULL */
            COLUMN_DEF = convert(varchar(255),NULL),
            SQL_DATA_TYPE = convert(smallint, 4),
            SQL_DATETIME_SUB = convert(smallint,null),
            CHAR_OCTET_LENGTH = convert(int,null),
            ORDINAL_POSITION = convert(int,0),
            IS_NULLABLE = convert(varchar(254),'NO'),
            SS_DATA_TYPE = convert(tinyint,56)
        FROM
            syscomments c, sysobjects o
        WHERE
            o.id = @procedure_id
            AND c.id = o.id
            AND c.colid = 1
            AND o.type = 'P'                        /* Just Procedures */
            AND 'RETURN_VALUE' like @column_name
            AND c.number between @group_num_lower and @group_num_upper
        ORDER BY 1, 2, 3, 18
    end
    else
    begin
        /* this block is for the case where there IS pattern
            matching done on the procedure name */
        if @procedure_owner is null
            select @procedure_owner = '%'
        SELECT
            PROCEDURE_QUALIFIER = convert(varchar(32),DB_NAME()),
            PROCEDURE_OWNER = convert(varchar(32),USER_NAME(o.uid)),
            PROCEDURE_NAME = convert(varchar(36),o.name +';'+ ltrim(str(c.number,5))),
            COLUMN_NAME = convert(varchar(32),c.name),
            COLUMN_TYPE = convert(smallint, 1+((c.status/64)&1)),
            d.DATA_TYPE,
            TYPE_NAME = t.name,
            convert(int,case
                when d.DATA_TYPE in (6,7) then d.data_precision         /* FLOAT/REAL */
                else isnull(convert(int,c.prec), 2147483647)
            end) "PRECISION",
            convert(int,case
                when d.ss_dtype IN (106, 108, 55, 63) then    /* decimal/numeric types */
                    c.prec+2
                else
                    isnull(d.length, c.length)
            end) LENGTH,
            SCALE = convert(smallint, c.scale),
            d.RADIX,
            d.NULLABLE,
            REMARKS = convert(varchar(254),null),    /* Remarks are NULL */
            COLUMN_DEF = convert(varchar(255),NULL),
            d.SQL_DATA_TYPE,
            d.SQL_DATETIME_SUB,
            CHAR_OCTET_LENGTH = isnull(convert(int,c.prec), 2147483647)+d.charbin,
            ORDINAL_POSITION = convert(int,c.colid),
            IS_NULLABLE = convert(varchar(254),rtrim(substring('NO YES',d.NULLABLE*3+1,3))),
            SS_DATA_TYPE = c.type
        FROM
            syscolumns c,
            sysobjects o,
            master.dbo.spt_datatype_info d,
            systypes t
        WHERE
            o.name like @procedure_name
            AND user_name(o.uid) like @procedure_owner
            AND o.id = c.id
            AND c.type = d.ss_dtype
            AND c.length = isnull(d.fixlen, c.length)
            AND (d.ODBCVer is null or d.ODBCVer = @ODBCVer)
            AND isnull(d.AUTO_INCREMENT,0) = 0
            AND c.usertype = t.usertype
            AND o.type = 'P'                            /* Just Procedures */
            AND c.name like @column_name
            AND c.number between @group_num_lower and @group_num_upper
        UNION ALL
        SELECT           /* return value row*/
            PROCEDURE_QUALIFIER = convert(varchar(32),DB_NAME()),
            PROCEDURE_OWNER = convert(varchar(32),USER_NAME(o.uid)),
            PROCEDURE_NAME = convert(varchar(36),o.name +';'+ isnull(ltrim(str(c.number,5)),'1')),
            COLUMN_NAME = convert(varchar(32),'RETURN_VALUE'),
            COLUMN_TYPE = convert(smallint, 5),
            DATA_TYPE = convert(smallint, 4),
            TYPE_NAME = convert(varchar(32),'int'),
            "PRECISION" = convert(int,10),
            LENGTH = convert(int,4),
            SCALE = convert(smallint,0),
            RADIX = convert(smallint,10),
            NULLABLE = convert(smallint,0),
            REMARKS = convert(varchar(254),null),    /* Remarks are NULL */
            COLUMN_DEF = convert(varchar(255),NULL),
            SQL_DATA_TYPE = convert(smallint, 4),
            SQL_DATETIME_SUB = convert(smallint,null),
            CHAR_OCTET_LENGTH = convert(int,null),
            ORDINAL_POSITION = convert(int,0),
            IS_NULLABLE = convert(varchar(254),'NO'),
            SS_DATA_TYPE = convert(tinyint,56)
        FROM
            syscomments c, sysobjects o
        WHERE
            o.name like @procedure_name
            AND user_name(o.uid) like @procedure_owner
            AND c.id = o.id
            AND c.colid = 1
            AND o.type = 'P'                        /* Just Procedures */
            AND 'RETURN_VALUE' like @column_name
            AND c.number between @group_num_lower and @group_num_upper
        ORDER BY 1, 2, 3, 18
    end
go

if (charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
else
    drop proc sp_sproc_columns
go

/*    Procedure for 7.0 server */
CREATE PROCEDURE sp_sproc_columns (
                 @procedure_name        nvarchar(390) = '%',
                 @procedure_owner        nvarchar(384) = null,
                 @procedure_qualifier    sysname = null,
                 @column_name            nvarchar(384) = null,
                 @ODBCVer                int = 2)
AS
    DECLARE @group_num_lower smallint
    DECLARE @group_num_upper smallint
    DECLARE @semi_position int
    DECLARE @full_procedure_name    nvarchar(774)
    DECLARE @procedure_id int

    if @column_name is null /*    If column name not supplied, match all */
        select @column_name = '%'
    if @procedure_qualifier is not null
    begin
        if db_name() <> @procedure_qualifier
        begin
            if @procedure_qualifier = ''
            begin
                /* in this case, we need to return an empty result set */
                /* because the user has requested a database with an empty name */
                select @procedure_name = ''
                select @procedure_owner = ''
            end
            else
            begin    /* If qualifier doesn't match current database */
                raiserror (15250, -1,-1)
                return
            end
        end
    end

    if @procedure_name is null
    begin    /*    If procedure name not supplied, match all */
        select @procedure_name = '%'
    end

    /* first we need to extract the procedure group number, if one exists */
    select @semi_position = charindex(';',@procedure_name)
    if (@semi_position > 0)
    begin    /* If group number separator (;) found */
        select @group_num_lower = convert(int,substring(@procedure_name, @semi_position + 1, 2))
        select @group_num_upper = @group_num_lower
        select @procedure_name = substring(@procedure_name, 1, @semi_position -1)
    end
    else
    begin    /* No group separator, so default to all groups */
        select @group_num_lower = 1
        select @group_num_upper = 32767
    end

    if @procedure_owner is null
    begin    /* If unqualified procedure name */
        SELECT @full_procedure_name = quotename(@procedure_name)
    end
    else
    begin    /* Qualified procedure name */
        if @procedure_owner = ''
        begin    /* If empty owner name */
            SELECT @full_procedure_name = quotename(@procedure_owner)
        end
        else
        begin
            SELECT @full_procedure_name = quotename(@procedure_owner) +
                '.' + quotename(@procedure_name)
        end
    end

    /*    Get Object ID */
    SELECT @procedure_id = object_id(@full_procedure_name)
    if ((charindex('%',@full_procedure_name) = 0) and
        (charindex('_',@full_procedure_name) = 0)  and
        not (@procedure_id is null))
    begin
        /* this block is for the case where there is no pattern
            matching required for the procedure name */
        SELECT
            PROCEDURE_QUALIFIER = convert(sysname,DB_NAME()),
            PROCEDURE_OWNER = convert(sysname,USER_NAME(o.uid)),
            PROCEDURE_NAME = convert(nvarchar(134),o.name +';'+ ltrim(str(c.number,5))),
            COLUMN_NAME = convert(sysname,c.name),
            COLUMN_TYPE = convert(smallint, 1+c.isoutparam),
            d.DATA_TYPE,
            TYPE_NAME = t.name,
            convert(int,case
                when d.DATA_TYPE in (6,7) then d.data_precision         /* FLOAT/REAL */
                else OdbcPrec(c.xtype,c.length,c.xprec)
            end) "PRECISION",
            convert(int,case
                when type_name(d.ss_dtype) IN ('numeric','decimal') then    /* decimal/numeric types */
                    OdbcPrec(c.xtype,c.length,c.xprec)+2
                else
                    isnull(d.length, c.length)
            end) LENGTH,
            SCALE = convert(smallint, OdbcScale(c.xtype,c.xscale)),
            d.RADIX,
            d.NULLABLE,
            REMARKS = convert(varchar(254),null),    /* Remarks are NULL */
            COLUMN_DEF = convert(nvarchar(4000),NULL),
            d.SQL_DATA_TYPE,
            d.SQL_DATETIME_SUB,
            CHAR_OCTET_LENGTH = isnull(d.length, c.length)+d.charbin,
            ORDINAL_POSITION = convert(int,c.colid),
            IS_NULLABLE = convert(varchar(254),rtrim(substring('NO YES',d.NULLABLE*3+1,3))),
            SS_DATA_TYPE = c.type
        FROM
            syscolumns c,
            sysobjects o,
            master.dbo.spt_datatype_info d,
            systypes t
        WHERE
            o.id = @procedure_id
            AND c.id = o.id
            AND c.xtype = d.ss_dtype
            AND c.length = isnull(d.fixlen, c.length)
            AND (d.ODBCVer is null or d.ODBCVer = @ODBCVer)
            AND isnull(d.AUTO_INCREMENT,0) = 0
            AND c.xusertype = t.xusertype
            AND c.name like @column_name
            AND c.number between @group_num_lower and @group_num_upper
        UNION ALL
        SELECT           /* return value row*/
            PROCEDURE_QUALIFIER = convert(sysname,DB_NAME()),
            PROCEDURE_OWNER = convert(sysname,USER_NAME(o.uid)),
            PROCEDURE_NAME = convert(nvarchar(134),o.name +';'+ ltrim(str(c.number,5))),
            COLUMN_NAME = convert(sysname,'RETURN_VALUE'),
            COLUMN_TYPE = convert(smallint, 5),
            DATA_TYPE = convert(smallint, 4),
            TYPE_NAME = convert(sysname,'int'),
            "PRECISION" = convert(int,10),
            LENGTH = convert(int,4),
            SCALE = convert(smallint,0),
            RADIX = convert(smallint,10),
            NULLABLE = convert(smallint,0),
            REMARKS = convert(varchar(254),null),    /* Remarks are NULL */
            COLUMN_DEF = convert(nvarchar(4000),NULL),
            SQL_DATA_TYPE = convert(smallint, 4),
            SQL_DATETIME_SUB = convert(smallint,null),
            CHAR_OCTET_LENGTH = convert(int,null),
            ORDINAL_POSITION = convert(int,0),
            IS_NULLABLE = convert(varchar(254),'NO'),
            SS_DATA_TYPE = convert(tinyint,56)
        FROM
            syscomments c, sysobjects o
        WHERE
            o.id = @procedure_id
            AND c.id = o.id
            AND c.colid = 1
            AND o.type = 'P'                        /* Just Procedures */
            AND 'RETURN_VALUE' like @column_name
            AND c.number between @group_num_lower and @group_num_upper
        ORDER BY 1, 2, 3, 18
    end
    else
    begin
        /* this block is for the case where there IS pattern
            matching done on the procedure name */
        if @procedure_owner is null
            select @procedure_owner = '%'
        SELECT
            PROCEDURE_QUALIFIER = convert(sysname,DB_NAME()),
            PROCEDURE_OWNER = convert(sysname,USER_NAME(o.uid)),
            PROCEDURE_NAME = convert(nvarchar(134),o.name +';'+ ltrim(str(c.number,5))),
            COLUMN_NAME = convert(sysname,c.name),
            COLUMN_TYPE = convert(smallint,    1+c.isoutparam),
            d.DATA_TYPE,
            TYPE_NAME = t.name,
            convert(int,case
                when d.DATA_TYPE in (6,7) then d.data_precision         /* FLOAT/REAL */
                else OdbcPrec(c.xtype,c.length,c.xprec)
            end) "PRECISION",
            convert(int,case
                when type_name(d.ss_dtype) IN ('numeric','decimal') then    /* decimal/numeric types */
                    OdbcPrec(c.xtype,c.length,c.xprec)+2
                else
                    isnull(d.length, c.length)
            end) LENGTH,
            SCALE = convert(smallint, OdbcScale(c.xtype,c.xscale)),
            d.RADIX,
            d.NULLABLE,
            REMARKS = convert(varchar(254),null),    /* Remarks are NULL */
            COLUMN_DEF = convert(nvarchar(4000),NULL),
            d.SQL_DATA_TYPE,
            d.SQL_DATETIME_SUB,
            CHAR_OCTET_LENGTH = isnull(d.length, c.length)+d.charbin,
            ORDINAL_POSITION = convert(int,c.colid),
            IS_NULLABLE = convert(varchar(254),rtrim(substring('NO YES',d.NULLABLE*3+1,3))),
            SS_DATA_TYPE = c.type
        FROM
            syscolumns c,
            sysobjects o,
            master.dbo.spt_datatype_info d,
            systypes t
        WHERE
            o.name like @procedure_name
            AND user_name(o.uid) like @procedure_owner
            AND o.id = c.id
            AND c.xtype = d.ss_dtype
            AND c.length = isnull(d.fixlen, c.length)
            AND (d.ODBCVer is null or d.ODBCVer = @ODBCVer)
            AND isnull(d.AUTO_INCREMENT,0) = 0
            AND c.xusertype = t.xusertype
            AND o.type = 'P'                            /* Just Procedures */
            AND c.name like @column_name
            AND c.number between @group_num_lower and @group_num_upper
        UNION ALL
        SELECT           /* return value row*/
            PROCEDURE_QUALIFIER = convert(sysname,DB_NAME()),
            PROCEDURE_OWNER = convert(sysname,USER_NAME(o.uid)),
            PROCEDURE_NAME = convert(nvarchar(134),o.name +';'+ isnull(ltrim(str(c.number,5)),'1')),
            COLUMN_NAME = convert(sysname,'RETURN_VALUE'),
            COLUMN_TYPE = convert(smallint, 5),
            DATA_TYPE = convert(smallint, 4),
            TYPE_NAME = convert(sysname,'int'),
            "PRECISION" = convert(int,10),
            LENGTH = convert(int,4),
            SCALE = convert(smallint,0),
            RADIX = convert(smallint,10),
            NULLABLE = convert(smallint,0),
            REMARKS = convert(varchar(254),null),    /* Remarks are NULL */
            COLUMN_DEF = convert(nvarchar(4000),NULL),
            SQL_DATA_TYPE = convert(smallint, 4),
            SQL_DATETIME_SUB = convert(smallint,null),
            CHAR_OCTET_LENGTH = convert(int,null),
            ORDINAL_POSITION = convert(int,0),
            IS_NULLABLE = convert(varchar(254),'NO'),
            SS_DATA_TYPE = convert(tinyint,56)
        FROM
            syscomments c, sysobjects o
        WHERE
            o.name like @procedure_name
            AND c.id = o.id
            AND user_name(o.uid) like @procedure_owner
            AND c.colid = 1
            AND o.type = 'P'                        /* Just Procedures */
            AND 'RETURN_VALUE' like @column_name
            AND c.number between @group_num_lower and @group_num_upper
        ORDER BY 1, 2, 3, 18
    end
go

grant execute on sp_sproc_columns to public
go

dump tran master with no_log
go

print 'creating sp_statistics'
go

/*    Procedure for pre-7.0 server */
CREATE PROCEDURE sp_statistics (
                 @table_name        varchar(32),
                 @table_owner        varchar(32) = null,
                 @table_qualifier    varchar(32) = null,
                 @index_name        varchar(32) = '%',
                 @is_unique         char(1) = 'N',
                 @accuracy            char(1) = 'Q')
AS
    DECLARE @indid                int
    DECLARE @lastindid            int
    DECLARE @table_id            int
    DECLARE @full_table_name    varchar(65) /* 2*32+1 */

    create table #TmpIndex(
        TABLE_QUALIFIER varchar(32) NULL,
        TABLE_OWNER     varchar(32) NULL,
        TABLE_NAME        varchar(32) NOT NULL,
        INDEX_QUALIFIER varchar(32) null,
        INDEX_NAME        varchar(32) null,
        NON_UNIQUE        smallint null,
        TYPE            smallint NOT NULL,
        SEQ_IN_INDEX    smallint null,
        COLUMN_NAME     varchar(32) null,
        COLLATION        char(1) null,
        index_id        int null,
        CARDINALITY     int null,
        PAGES            int null,
        status            smallint NOT NULL)

    if @table_qualifier is not null
    begin
        if db_name() <> @table_qualifier
        begin    /* If qualifier doesn't match current database */
            raiserror 20001 'Table qualifier must be name of current database'
            return
        end
    end

    if @accuracy not in ('Q','E')
        begin
            raiserror 20002 'Illegal ''accuracy'' specified -- must be ''Q'' or ''E''.'
            return
        end

    if (@@trancount <> 0 and
        charindex('6.50', @@version) = 0 and
        charindex('7.00', @@version) = 0)
    begin    /* If inside a transaction */
        raiserror 20003 'The procedure ''sp_statistics'' cannot be executed from within a transaction.'
        return
    end

    if @table_owner is null
    begin    /* If unqualified table name */
        SELECT @full_table_name = @table_name
    end
    else
    begin    /* Qualified table name */
        if @table_owner = ''
        begin    /* If empty owner name */
            SELECT @full_table_name = @table_owner
        end
        else
        begin
            SELECT @full_table_name = @table_owner + '.' + @table_name
        end
    end
    /*    Get Object ID */
    SELECT @table_id = object_id(@full_table_name)

    /*    Start at lowest index id */
    SELECT @indid = min(indid)
    FROM sysindexes
    WHERE id = @table_id
        AND indid > 0
        AND indid < 255

    WHILE @indid is not NULL
    BEGIN
        INSERT #TmpIndex    /* Add all columns that are in index */
            SELECT
                DB_NAME(),                                /* TABLE_QUALIFIER */
                USER_NAME(o.uid),                        /* TABLE_OWNER       */
                o.name,                                 /* TABLE_NAME       */
                o.name,                                 /* INDEX_QUALIFIER */
                x.name,                                 /* INDEX_NAME       */
                0,                                        /* NON_UNIQUE       */
                1,                                        /* SQL_INDEX_CLUSTERED */
                colid,                                    /* SEQ_IN_INDEX    */
                INDEX_COL(@full_table_name,indid,colid),/* COLUMN_NAME       */
                'A',                                    /* COLLATION       */
                @indid,                                 /* index_id        */
                x.rows,                                 /* CARDINALITY       */
                x.dpages,                                /* PAGES           */
                x.status                                /* status            */
            FROM sysindexes x, syscolumns c, sysobjects o
            WHERE
                x.id = @table_id
                AND x.id = o.id
                AND x.id = c.id
                AND c.colid < keycnt+(x.status&18)/18    /* all but Unique Clust indices have an extra key */
                AND x.indid = @indid
        /*
        **      Now move @indid to the next index.
        */
        SELECT @lastindid = @indid
        SELECT @indid = NULL

        SELECT @indid = min(indid)
        FROM sysindexes
        WHERE id = @table_id
            AND indid > @lastindid
            AND indid < 255
    END

    UPDATE #TmpIndex
        SET NON_UNIQUE = 1
        WHERE status&2 <> 2 /* If non-unique index */
    UPDATE #TmpIndex
        SET
            TYPE = 3,            /* SQL_INDEX_OTHER */
            CARDINALITY = NULL,
            PAGES = NULL
        WHERE index_id > 1    /* If non-clustered index */

    /* now add row for table statistics */
    INSERT #TmpIndex
        SELECT
            DB_NAME(),                /* TABLE_QUALIFIER */
            USER_NAME(o.uid),        /* TABLE_OWNER       */
            o.name,                 /* TABLE_NAME       */
            null,                    /* INDEX_QUALIFIER */
            null,                    /* INDEX_NAME       */
            null,                    /* NON_UNIQUE       */
            0,                        /* SQL_TABLE_STAT  */
            null,                    /* SEQ_IN_INDEX    */
            null,                    /* COLUMN_NAME       */
            null,                    /* COLLATION       */
            0,                        /* index_id        */
            x.rows,                 /* CARDINALITY       */
            x.dpages,                /* PAGES           */
            0                        /* status           */
        FROM sysindexes x, sysobjects o
        WHERE o.id = @table_id
            AND x.id = o.id
            AND (x.indid = 0 or x.indid = 1)    /*    If there are no indexes */
                                                /*    then table stats are in */
                                                /*    a row with indid =0        */

    if @is_unique <> 'Y'    /* If all indexes desired */
        SELECT
            TABLE_QUALIFIER,
            TABLE_OWNER,
            TABLE_NAME,
            NON_UNIQUE,
            INDEX_QUALIFIER,
            INDEX_NAME,
            TYPE,
            SEQ_IN_INDEX,
            COLUMN_NAME,
            COLLATION,
            CARDINALITY,
            PAGES,
            FILTER_CONDITION = convert(varchar(128),null)
        FROM #TmpIndex
        WHERE
            INDEX_NAME like @index_name /* If matching name */
            or INDEX_NAME is null        /* If SQL_TABLE_STAT row */
        ORDER BY 4, 7, 6, 8
    else                    /* If only unique indexes desired */
        SELECT
            TABLE_QUALIFIER,
            TABLE_OWNER,
            TABLE_NAME,
            NON_UNIQUE,
            INDEX_QUALIFIER,
            INDEX_NAME,
            TYPE,
            SEQ_IN_INDEX,
            COLUMN_NAME,
            COLLATION,
            CARDINALITY,
            PAGES,
            FILTER_CONDITION = convert(varchar(128),null)
        FROM #TmpIndex
        WHERE
            (NON_UNIQUE = 0             /* If unique */
                or NON_UNIQUE is NULL)    /* If SQL_TABLE_STAT row */
            and (INDEX_NAME like @index_name    /* If matching name */
                or INDEX_NAME is null)    /* If SQL_TABLE_STAT row */
        ORDER BY 4, 7, 6, 8

    DROP TABLE #TmpIndex
go

if (charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
else
    drop proc sp_statistics
go

/*    Procedure for 7.0 server */
CREATE PROCEDURE sp_statistics (
                 @table_name        sysname,
                 @table_owner        sysname = null,
                 @table_qualifier    sysname = null,
                 @index_name        sysname = '%',
                 @is_unique         char(1) = 'N',
                 @accuracy            char(1) = 'Q')
AS
    DECLARE @indid                int
    DECLARE @lastindid            int
    DECLARE @table_id            int
    DECLARE @full_table_name    nvarchar(257)

    create table #TmpIndex(
        TABLE_QUALIFIER sysname NULL,
        TABLE_OWNER     sysname NULL,
        TABLE_NAME        sysname NOT NULL,
        INDEX_QUALIFIER sysname null,
        INDEX_NAME        sysname null,
        NON_UNIQUE        smallint null,
        TYPE            smallint NOT NULL,
        SEQ_IN_INDEX    smallint null,
        COLUMN_NAME     sysname null,
        COLLATION        char(1) null,
        index_id        int null,
        CARDINALITY     int null,
        PAGES            int null,
        status            int NOT NULL)

    if @table_qualifier is not null
    begin
        if db_name() <> @table_qualifier
        begin    /* If qualifier doesn't match current database */
            raiserror (15250, -1,-1)
            return
        end
    end

    if @accuracy not in ('Q','E')
        begin
            raiserror (15251,-1,-1,'accuracy','''Q'' or ''E''')
            return
        end

    if @table_owner is null
    begin    /* If unqualified table name */
        SELECT @full_table_name = quotename(@table_name)
    end
    else
    begin    /* Qualified table name */
        if @table_owner = ''
        begin    /* If empty owner name */
            SELECT @full_table_name = quotename(@table_owner)
        end
        else
        begin
            SELECT @full_table_name = quotename(@table_owner) +
                '.' + quotename(@table_name)
        end
    end
    /*    Get Object ID */
    SELECT @table_id = object_id(@full_table_name)

    /*    Start at lowest index id */
    SELECT @indid = min(indid)
    FROM sysindexes
    WHERE not (@table_id is null)
        AND id = @table_id
        AND indid > 0
        AND indid < 255

    WHILE @indid is not NULL
    BEGIN
        INSERT #TmpIndex    /* Add all columns that are in index */
            SELECT
                DB_NAME(),                                /* TABLE_QUALIFIER */
                USER_NAME(o.uid),                        /* TABLE_OWNER       */
                o.name,                                 /* TABLE_NAME       */
                o.name,                                 /* INDEX_QUALIFIER */
                x.name,                                 /* INDEX_NAME       */
                case                                    /* NON_UNIQUE       */
                    WHEN x.status&2 <> 2 then 1            /* Nonunique index */
                    else 0                                /* Unique index    */
                end,
                case                                    /* TYPE            */
                    when @indid > 1 then 3                /* Non-Clustered   */
                    else 1                                /* Clustered index */
                end,
                colid,                                    /* SEQ_IN_INDEX    */
                INDEX_COL(@full_table_name,indid,colid),/* COLUMN_NAME       */
                'A',                                    /* COLLATION       */
                @indid,                                 /* index_id        */
                case                                    /* CARDINALITY       */
                    when @indid > 1 then NULL            /* Non-Clustered   */
                    else x.rows                         /* Clustered index */
                end,
                case                                    /* PAGES           */
                    when @indid > 1 then NULL            /* Non-Clustered   */
                    else x.dpages                        /* Clustered index */
                end,
                x.status                                /* status            */
            FROM sysindexes x, syscolumns c, sysobjects o
            WHERE
                not (@table_id is null)
                AND x.id = @table_id
                AND x.id = o.id
                AND x.id = c.id
                AND colid < keycnt+(x.status&18)/18    /* all but Unique Clust indices have an extra key */
                AND INDEX_COL(@full_table_name,indid,colid) IS NOT NULL
                AND indid = @indid
                AND (x.status&2 = 2
                    OR @is_unique <> 'Y')
        /*
        **      Now move @indid to the next index.
        */
        SELECT @lastindid = @indid
        SELECT @indid = NULL

        SELECT @indid = min(indid)
        FROM sysindexes
        WHERE not (@table_id is null)
            AND id = @table_id
            AND indid > @lastindid
            AND indid < 255
    END

    /* now add row for table statistics */
    INSERT #TmpIndex
        SELECT
            DB_NAME(),                /* TABLE_QUALIFIER */
            USER_NAME(o.uid),        /* TABLE_OWNER       */
            o.name,                 /* TABLE_NAME       */
            null,                    /* INDEX_QUALIFIER */
            null,                    /* INDEX_NAME       */
            null,                    /* NON_UNIQUE       */
            0,                        /* SQL_TABLE_STAT  */
            null,                    /* SEQ_IN_INDEX    */
            null,                    /* COLUMN_NAME       */
            null,                    /* COLLATION       */
            0,                        /* index_id        */
            x.rows,                 /* CARDINALITY       */
            x.dpages,                /* PAGES           */
            0                        /* status           */
        FROM sysindexes x, sysobjects o
        WHERE not (@table_id is null)
            AND o.id = @table_id
            AND x.id = o.id
            AND (x.indid = 0 or x.indid = 1)    /*    If there are no indexes */
                                                /*    then table stats are in */
                                                /*    a row with indid =0        */

    SELECT
        TABLE_QUALIFIER,
        TABLE_OWNER,
        TABLE_NAME,
        NON_UNIQUE,
        INDEX_QUALIFIER,
        INDEX_NAME,
        TYPE,
        SEQ_IN_INDEX,
        COLUMN_NAME,
        COLLATION,
        CARDINALITY,
        PAGES,
        FILTER_CONDITION = convert(varchar(128),null)
    FROM #TmpIndex
    WHERE
        INDEX_NAME like @index_name /* If matching name */
        or INDEX_NAME is null        /* If SQL_TABLE_STAT row */
    ORDER BY 4, 7, 6, 8

    DROP TABLE #TmpIndex
go

grant execute on sp_statistics to public
go

dump tran master with no_log
go

print 'creating sp_stored_procedures'
go


/* pre 7.00 version */
create procedure sp_stored_procedures(
                        @sp_name        varchar(102) = null,
                        @sp_owner        varchar(96) = null,
                        @sp_qualifier    varchar(32) = null)
as
    declare @proc_type smallint

    if @sp_qualifier is not null
    begin
        if db_name() <> @sp_qualifier
        begin
            if @sp_qualifier = ''
            begin
                /* in this case, we need to return an empty result set */
                /* because the user has requested a database with an empty name */
                select @sp_name = ''
                select @sp_owner = ''
            end else
            begin    /* If qualifier doesn't match current database */
                raiserror 20001 'Procedure qualifier must be name of current database'
                return
            end
        end
    end

    if @sp_name is null
    begin  /*  If procedure name not supplied, match all */
        select @sp_name = '%'
    end
    else begin
        if (@sp_owner is null) and (charindex('%', @sp_name) = 0)
        begin
            if exists (select * from sysobjects
                where uid = user_id()
                    and name = @sp_name
                    and type = 'P') /* Object type of Procedure */
            begin
                select @sp_owner = user_name()
            end
        end
    end
    if @sp_owner is null    /*    If procedure owner not supplied, match all */
        select @sp_owner = '%'

    select @proc_type=2        /* Return 2 for 4.2 and later servers. */

    select
        PROCEDURE_QUALIFIER = convert(varchar(32),db_name()),
        PROCEDURE_OWNER = convert(varchar(32),user_name(o.uid)),
        PROCEDURE_NAME = convert(varchar(36),o.name +';'+ ltrim(str(c.number,5))),
        NUM_INPUT_PARAMS = -1,    /* Constant since value unknown */
        NUM_OUTPUT_PARAMS = -1, /* Constant since value unknown */
        NUM_RESULT_SETS = -1,    /* Constant since value unknown */
        REMARKS = convert(varchar(254),null),    /* Remarks are NULL */
        PROCEDURE_TYPE = @proc_type
    from
        sysobjects o,syscomments c,sysusers u
    where
        o.name like @sp_name
        and c.colid = 1
        and user_name(o.uid) like @sp_owner
        and o.type = 'P'        /* Object type of Procedure */
        and c.id = o.id
        and u.uid = user_id()    /* constrain sysusers uid for use in subquery */
        and (suser_id() = 1     /* User is the System Administrator */
            or o.uid = user_id()    /* User created the object */
            /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
            or ((select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
             from sysprotects p
             /* outer join to correlate with all rows in sysobjects */
             where p.id =* o.id
                 /*  get rows for public,current user,user's group */
                 and (p.uid = 0 or p.uid = user_id() or p.uid =* u.gid)
                 /* check for SELECT,EXECUTE privilege */
                 and (action in (193,224)))&1    /* more magic...normalize GRANT */
            ) = 1     /* final magic...compare Grants    */
        )
    order by 1, 2, 3
go

grant execute on sp_stored_procedures to public
go


if (charindex('7.00', @@version) > 0)
    drop procedure sp_stored_procedures
else
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
go


/* 7.00 version */
create procedure sp_stored_procedures(
                        @sp_name        nvarchar(390) = null,
                        @sp_owner        nvarchar(384) = null,
                        @sp_qualifier    sysname = null)
as
    declare @proc_type smallint

    if @sp_qualifier is not null
    begin
        if db_name() <> @sp_qualifier
        begin
            if @sp_qualifier = ''
            begin
                /* in this case, we need to return an empty result set */
                /* because the user has requested a database with an empty name */
                select @sp_name = ''
                select @sp_owner = ''
            end else
            begin    /* If qualifier doesn't match current database */
                raiserror (15250, -1,-1)
                return
            end
        end
    end

    if @sp_name is null
    begin  /*  If procedure name not supplied, match all */
        select @sp_name = '%'
    end
    else begin
        if (@sp_owner is null) and (charindex('%', @sp_name) = 0)
        begin
            if exists (select * from sysobjects
                where uid = user_id()
                    and name = @sp_name
                    and type = 'P') /* Object type of Procedure */
            begin
                select @sp_owner = user_name()
            end
        end
    end
    if @sp_owner is null    /*    If procedure owner not supplied, match all */
        select @sp_owner = '%'

    select @proc_type=2        /* Return 2 for 4.2 and later servers. */

    select
        PROCEDURE_QUALIFIER = convert(sysname,db_name()),
        PROCEDURE_OWNER = convert(sysname,user_name(o.uid)),
        PROCEDURE_NAME = convert(nvarchar(134),o.name +';'+ ltrim(str(c.number,5))),
        NUM_INPUT_PARAMS = -1,    /* Constant since value unknown */
        NUM_OUTPUT_PARAMS = -1, /* Constant since value unknown */
        NUM_RESULT_SETS = -1,    /* Constant since value unknown */
        REMARKS = convert(varchar(254),null),    /* Remarks are NULL */
        PROCEDURE_TYPE = @proc_type
    from
        sysobjects o,syscomments c
    where
        o.name like @sp_name
        and c.colid = 1
        and user_name(o.uid) like @sp_owner
        and o.type = 'P'        /* Object type of Procedure */
        and c.id = o.id
        and permissions (o.id)&32 <> 0
    order by 1, 2, 3
go

grant execute on sp_stored_procedures to public
go

dump tran master with no_log
go


print 'creating sp_table_privileges'
go

/*    Procedure for pre 6.50 server */
CREATE PROCEDURE sp_table_privileges (
            @table_name         varchar(96),        /* 3*32 */
            @table_owner        varchar(96) = null,
            @table_qualifier    varchar(32) = null)
as

    if @table_qualifier is not null
    begin
        if db_name() <> @table_qualifier
        begin    /* If qualifier doesn't match current database */
            raiserror 20001 'Table qualifier must be name of current database'
            return
        end
    end
    if (@@trancount <> 0)
    begin    /* If inside a transaction */
        raiserror 20003 'The procedure ''sp_table_privileges'' cannot be executed from within a transaction.'
        return
    end
    if @table_name is null
        select @table_name = '%'
    if @table_owner is null /* If no owner supplied, force wildcard */
        select @table_owner = '%'

    create table #table_priv1(
        id                        int NOT NULL,
        grantor                 smallint NOT NULL,
        grantee                 smallint NOT NULL,
        select_privilege        bit,
        insert_privilege        bit,
        update_privilege        bit,
        delete_privilege        bit,
        references_privilege    bit,
        select_privilege_grant    bit,
        insert_privilege_grant    bit,
        update_privilege_grant    bit,
        delete_privilege_grant    bit,
        references_privilege_grant    bit,
        uid                     smallint NOT NULL,
        gid                     smallint NOT NULL)

    insert into #table_priv1
        select distinct
            o.id,
            o.uid,
            u.uid,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            0,
            u.uid,
            u.gid
        from sysusers u, sysobjects o, sysprotects p
        where
            o.name like @table_name
            and user_name(o.uid) like @table_owner
            and u.uid <> u.gid
            and u.uid *= p.uid and o.id *= p.id
            and p.protecttype in (204, 205)
            and type in ('S ','U ','V ')    /* only valid for system tables,
                                            ** user tables, and views. */

    /*
    ** now add/update row for table owner
    */
    if exists (
        select *
            from #table_priv1
            where grantor = grantee)
    begin
        update #table_priv1
        set
            select_privilege_grant = 1,
            update_privilege_grant = 1,
            insert_privilege_grant = 1,
            delete_privilege_grant = 1,
            references_privilege_grant = 1,
            grantor = (select uid from sysusers where suid = 1)
        where grantor = grantee
    end
    else
    begin
        insert into #table_priv1
            select
                o.id,
                u1.uid,
                o.uid,
                0,
                0,
                0,
                0,
                0,
                1,
                1,
                1,
                1,
                1,
                o.uid,
                u.gid
            from sysobjects o, sysusers u, sysusers u1
            where o.name like @table_name
            and user_name(o.uid) like @table_owner
            and u.uid = o.uid
            and type in ('S ','U ','V ')    /* only valid for system tables,
                                           ** user tables, and views. */
            and u1.suid = 1        /* grantor is dbo of database */

    end

    update #table_priv1
    set select_privilege = 1
        from sysprotects p
    where
        #table_priv1.id = p.id
        and (#table_priv1.uid = p.uid
            or #table_priv1.gid = p.uid
            or p.uid = 0)
        and protecttype = 205
        and action = 193
        and not exists (
            select * from sysprotects
            where
                #table_priv1.id = sysprotects.id
                and (#table_priv1.uid = uid
                    or #table_priv1.gid = uid
                    or uid = 0)
                and protecttype = 206
                and action = 193)

    update #table_priv1
    set insert_privilege = 1
        from sysprotects p
    where
        #table_priv1.id = p.id
        and (#table_priv1.uid = p.uid
            or #table_priv1.gid = p.uid
            or p.uid = 0)
        and protecttype = 205
        and action = 195
        and not exists (
            select * from sysprotects
            where
                #table_priv1.id = sysprotects.id
                and (#table_priv1.uid = uid
                    or #table_priv1.gid = uid
                    or uid = 0)
                and protecttype = 206
                and action = 195)

    update #table_priv1
    set delete_privilege = 1
        from sysprotects p
    where
        exists (
            select * from sysprotects
            where
                #table_priv1.id = sysprotects.id
                and (#table_priv1.uid = uid
                    or #table_priv1.gid = uid
                    or uid = 0)
                and protecttype = 205
                and action = 196)
        and not exists (select * from sysprotects
            where
                #table_priv1.id = sysprotects.id
                and (#table_priv1.uid = uid
                    or #table_priv1.gid = uid
                    or uid = 0)
                and protecttype = 206
                and action = 196)

    update #table_priv1
    set update_privilege = 1
        from sysprotects p
    where
        #table_priv1.id = p.id
        and (#table_priv1.uid = p.uid
            or #table_priv1.gid = p.uid
            or p.uid = 0)
        and protecttype = 205
        and action = 197
        and not exists (
            select * from sysprotects
            where
                #table_priv1.id = sysprotects.id
                and (#table_priv1.uid = uid
                    or #table_priv1.gid = uid
                    or uid = 0)
                and protecttype = 206
                and action = 197)

    update #table_priv1
    set references_privilege = 1
        from sysprotects p
    where
        #table_priv1.id = p.id
        and (#table_priv1.uid = p.uid
            or #table_priv1.gid = p.uid
            or p.uid = 0)
        and protecttype = 205
        and action = 26
        and not exists (
            select * from sysprotects
            where
                #table_priv1.id = sysprotects.id
                and (#table_priv1.uid = uid
                    or #table_priv1.gid = uid
                    or uid = 0)
                and protecttype = 206
                and action = 26)

    create table #table_priv2(
        id                int NOT NULL,
        grantor         smallint NOT NULL,
        grantee         smallint NOT NULL,
        PRIVILEGE        varchar(32) NOT NULL,
        IS_GRANTABLE    varchar(3) NULL)

    insert into #table_priv2
        select
            id,
            grantor,
            grantee,
            'SELECT',
            'NO'
        from #table_priv1
        where select_privilege = 1 and select_privilege_grant = 0

    insert into #table_priv2
        select
            id,
            grantor,
            grantee,
            'INSERT',
            'NO'
        from #table_priv1
        where insert_privilege = 1 and insert_privilege_grant = 0

    insert into #table_priv2
        select
            id,
            grantor,
            grantee,
            'DELETE',
            'NO'
        from #table_priv1
        where delete_privilege = 1 and delete_privilege_grant = 0

    insert into #table_priv2
        select
            id,
            grantor,
            grantee,
            'UPDATE',
            'NO'
        from #table_priv1
        where update_privilege = 1 and update_privilege_grant = 0

    insert into #table_priv2
        select
            id,
            grantor,
            grantee,
            'REFERENCES',
            'NO'
        from #table_priv1
        where references_privilege = 1 and references_privilege_grant = 0

    insert into #table_priv2
        select
            id,
            grantor,
            grantee,
            'SELECT',
            'YES'
        from #table_priv1
        where select_privilege_grant = 1

    insert into #table_priv2
        select
            id,
            grantor,
            grantee,
            'INSERT',
            'YES'
        from #table_priv1
        where insert_privilege_grant = 1

    insert into #table_priv2
        select
            id,
            grantor,
            grantee,
            'DELETE',
            'YES'
        from #table_priv1
        where delete_privilege_grant = 1

    insert into #table_priv2
        select
            id,
            grantor,
            grantee,
            'UPDATE',
            'YES'
        from #table_priv1
        where update_privilege_grant = 1

    insert into #table_priv2
        select
            id,
            grantor,
            grantee,
            'REFERENCES',
            'YES'
        from #table_priv1
        where references_privilege_grant = 1


    select
        convert(varchar(32),db_name()) TABLE_QUALIFIER,
        convert(varchar(32),user_name(o.uid)) TABLE_OWNER,
        convert(varchar(32),o.name) TABLE_NAME,
        convert(varchar(32),user_name(grantor)) GRANTOR,
        convert(varchar(32),user_name(grantee)) GRANTEE,
        PRIVILEGE,
        IS_GRANTABLE
    from #table_priv2 t, sysobjects o where o.id = t.id
    order by 2,3,6,5
go

if (charindex('6.50', @@version) = 0 and
    charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 6.50 SQL Server.'
    print 'Ignore the following errors.'
end
else
    drop proc sp_table_privileges
go


/*    Procedure for 6.50 server */
CREATE PROCEDURE sp_table_privileges (
            @table_name         varchar(96),
            @table_owner        varchar(96) = null,
            @table_qualifier    varchar(32) = null)
as

    if @table_qualifier is not null
    begin
        if db_name() <> @table_qualifier
        begin    /* If qualifier doesn't match current database */
            raiserror (15250, -1,-1)
            return
        end
    end
    if @table_name is null
        select @table_name = '%'
    if @table_owner is null /* If no owner supplied, force wildcard */
        select @table_owner = '%'

    select
        convert(varchar(32),db_name()) TABLE_QUALIFIER,
        convert(varchar(32),user_name(o.uid)) TABLE_OWNER,
        convert(varchar(32),object_name(o.id)) TABLE_NAME,
        convert(varchar(32),user_name(p.grantor)) GRANTOR,
        convert(varchar(32),user_name(u.uid)) GRANTEE,
        convert(varchar(32),case p.action
             when 193 then 'SELECT'
             when 195 then 'INSERT'
             when 196 then 'DELETE'
             when 197 then 'UPDATE'
             else 'REFERENCES'
        end) PRIVILEGE,
        convert(varchar(3),case when p.protecttype = 205 then 'NO'
            else 'YES'
        end) IS_GRANTABLE
    from sysprotects p, sysobjects o, sysusers u
    where
        p.id = o.id
        and o.type in ('U','V','S')
        and object_name(o.id) like @table_name
        and user_name(o.uid) like @table_owner
            /* expand groups */
        and ((p.uid = u.uid and u.uid <> u.gid) or
             (p.uid = u.gid and u.uid <> u.gid))
        and p.protecttype <> 206    /* only grant rows */
        and p.action in (26,193,195,196,197)
        and o.uid <> u.uid            /* no rows for owner */
        and not exists (            /* exclude revoke'd privileges */
            select *
            from sysprotects p1
            where
                p1.protecttype = 206
                and p1.action = p.action
                and p1.id = p.id
                and p1.uid = u.uid)
    union all
    select    /*    Add rows for table owner */
        convert(varchar(32),db_name()) TABLE_QUALIFIER,
        convert(varchar(32),user_name(o.uid)) TABLE_OWNER,
        convert(varchar(32),object_name(o.id)) TABLE_NAME,
        convert(varchar(32),user_name(u.uid)) GRANTOR,
        convert(varchar(32),user_name(o.uid)) GRANTEE,
        convert(varchar(32),case v.number
            when 193 then 'SELECT'
            when 195 then 'INSERT'
            when 196 then 'DELETE'
            when 197 then 'UPDATE'
            else 'REFERENCES'
        end) PRIVILEGE,
        convert(varchar(3),'YES') IS_GRANTABLE
    from sysobjects o, master.dbo.spt_values v, sysusers u
    where
        object_name(o.id) like @table_name
        and o.type in ('U','V','S')
        and user_name(o.uid) like @table_owner
        and u.suid = 1        /* grantor is dbo of database */
        and v.type = 'P'    /* cross product to get all exposed privileges */
        and v.number in (26,193,195,196,197)
        and not exists (    /* exclude revoke'd privileges */
            select *
            from sysprotects p1
            where
                p1.protecttype = 206
                and p1.action = v.number
                and p1.id = o.id
                and p1.uid = o.uid)
    order by 2,3,6,5
go


if (charindex('7.00', @@version) > 0)
    drop proc sp_table_privileges
else
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
go

/*    Procedure for 7.00 server */
CREATE PROCEDURE sp_table_privileges (
            @table_name         nvarchar(384),
            @table_owner        nvarchar(384) = null,
            @table_qualifier    sysname = null)
as

    if @table_qualifier is not null
    begin
        if db_name() <> @table_qualifier
        begin    /* If qualifier doesn't match current database */
            raiserror (15250, -1,-1)
            return
        end
    end
    if @table_name is null
        select @table_name = '%'
    if @table_owner is null /* If no owner supplied, force wildcard */
        select @table_owner = '%'

    select
        convert(sysname,db_name()) TABLE_QUALIFIER,
        convert(sysname,user_name(o.uid)) TABLE_OWNER,
        convert(sysname,object_name(o.id)) TABLE_NAME,
        convert(sysname,user_name(p.grantor)) GRANTOR,
        convert(sysname,user_name(u.uid)) GRANTEE,
        convert(varchar(32),case p.action
             when 193 then 'SELECT'
             when 195 then 'INSERT'
             when 196 then 'DELETE'
             when 197 then 'UPDATE'
             else 'REFERENCES'
        end) PRIVILEGE,
        convert(varchar(3),case when p.protecttype = 205 then 'NO'
            else 'YES'
        end) IS_GRANTABLE
    from sysprotects p, sysobjects o, sysusers u, sysmembers m
    where
        p.id = o.id
        and o.type in ('U','V','S')
        and object_name(o.id) like @table_name
        and user_name(o.uid) like @table_owner
            /* expand groups - AKUNDONE: only 1 level of grp unrolling. */
        and (u.uid > 0 and u.uid < 16384)
        and ((p.uid = u.uid) or
             (p.uid = m.groupuid and u.uid = m.memberuid))
        and p.protecttype <> 206    /* only grant rows */
        and p.action in (26,193,195,196,197)
        and o.uid <> u.uid            /* no rows for owner */
        and not exists (            /* exclude revoke'd privileges */
            select *
            from sysprotects p1
            where
                p1.protecttype = 206
                and p1.action = p.action
                and p1.id = p.id
                and p1.uid = u.uid)
    union all
    select    /*    Add rows for table owner */
        convert(sysname,db_name()) TABLE_QUALIFIER,
        convert(sysname,user_name(o.uid)) TABLE_OWNER,
        convert(sysname,object_name(o.id)) TABLE_NAME,
        convert(sysname,user_name(u.uid)) GRANTOR,
        convert(sysname,user_name(o.uid)) GRANTEE,
        convert(varchar(32),case v.number
            when 193 then 'SELECT'
            when 195 then 'INSERT'
            when 196 then 'DELETE'
            when 197 then 'UPDATE'
            else 'REFERENCES'
        end) PRIVILEGE,
        convert(varchar(3),'YES') IS_GRANTABLE
    from sysobjects o, master.dbo.spt_values v, sysusers u
    where
        object_name(o.id) like @table_name
        and o.type in ('U','V','S')
        and user_name(o.uid) like @table_owner
        and u.uid = 1        /* grantor is 'dbo' of database */
        and v.type = 'P'    /* cross product to get all exposed privileges */
        and v.number in (26,193,195,196,197)
        and not exists (    /* exclude revoke'd privileges */
            select *
            from sysprotects p1
            where
                p1.protecttype = 206
                and p1.action = v.number
                and p1.id = o.id
                and p1.uid = o.uid)
    order by 2,3,6,5
go

grant execute on sp_table_privileges to public
go

dump tran master with no_log
go

print 'creating sp_tables'
go

/*    Procedure for 6.50 and earlier servers */
create procedure sp_tables(
               @table_name        varchar(96)    = null,
               @table_owner     varchar(96)    = null,
               @table_qualifier varchar(32)    = null,
               @table_type        varchar(100) = null)
as
    declare @type1 varchar(3)
    declare @tableindex int


    /* Special feature #1:    enumerate databases when owner and name
         are blank but qualifier is explicitly '%'.  */
    if @table_qualifier = '%' and
        @table_owner = '' and
        @table_name = ''
    begin    /* If enumerating databases */
        select
            TABLE_QUALIFIER = convert(varchar(32),d.name),
            TABLE_OWNER = convert(varchar(32),null),
            TABLE_NAME = convert(varchar(32),null),
            TABLE_TYPE = convert(varchar(32),null),
            REMARKS = convert(varchar(254),null)    /* Remarks are NULL */
        from master.dbo.sysdatabases d
        where d.name <> 'model'    /* eliminate MODEL database */
        order by 1
    end

    /* Special feature #2:    enumerate owners when qualifier and name
         are blank but owner is explicitly '%'.  */
    else if @table_qualifier = '' and
        @table_owner = '%' and
        @table_name = ''
    begin    /* If enumerating owners */
        select distinct
            TABLE_QUALIFIER = convert(varchar(32),null),
            TABLE_OWNER = convert(varchar(32),user_name(uid)),
            TABLE_NAME = convert(varchar(32),null),
            TABLE_TYPE = convert(varchar(32),null),
            REMARKS = convert(varchar(254),null)    /* Remarks are NULL */
        from sysobjects
        order by 2
    end

    /* Special feature #3:    enumerate table types when qualifier, owner and
         name are blank but table type is explicitly '%'.    */
    else if @table_qualifier = '' and
        @table_owner = '' and
        @table_name = '' and
        @table_type = '%'
    begin    /* If enumerating table types */
        select
            TABLE_QUALIFIER = convert(varchar(32),null),
            TABLE_OWNER = convert(varchar(32),null),
            TABLE_NAME = convert(varchar(32),null),
            TABLE_TYPE = convert(varchar(32),rtrim(substring('SYSTEM TABLETABLE       VIEW',(colid-1)*12+1,12))),
            REMARKS = convert(varchar(254),null)    /* Remarks are NULL */
        from sysobjects o, syscolumns c
        where o.id=c.id and o.name='sysusers' and colid<=3
    end

    else
    begin /* end of special features - do normal processing */
        if @table_qualifier is not null
        begin
            if db_name() <> @table_qualifier
            begin
                if @table_qualifier = ''
                begin  /* If empty qualifier supplied */
                    /* Force an empty result set */
                    select @table_name = ''
                    select @table_owner = ''
                end
                else
                begin    /* If qualifier doesn't match current database */
                    raiserror 20001 'Table qualifier must be name of current database'
                    return
                end
            end
        end
        if @table_type is null
        begin    /* Select all ODBC supported table types */
            select @type1 = 'SUV'
        end
        else
        begin
            /*    TableType is case sensitive if CS server */
            select @type1 = null
            if (charindex('''SYSTEM TABLE''',@table_type) <> 0)
                select @type1 = @type1 + 'S'    /* Add System Tables */
            if (charindex('''TABLE''',@table_type) <> 0)
                select @type1 = @type1 + 'U'    /* Add User Tables */
            if (charindex('''VIEW''',@table_type) <> 0)
                select @type1 = @type1 + 'V'    /* Add Views */
        end
        if @table_name is null
        begin    /*    If table name not supplied, match all */
            select @table_name = '%'
        end
        else
        begin
            if (@table_owner is null) and (charindex('%', @table_name) = 0)
            begin    /* If owner not specified and table is specified */
                if exists (select * from sysobjects
                    where uid = user_id()
                    and name = @table_name
                    and (type = 'U' or type = 'V' or type = 'S'))
                begin    /* Override supplied owner w/owner of table */
                    select @table_owner = user_name()
                end
            end
        end
        if @table_owner is null /* If no owner supplied, force wildcard */
            select @table_owner = '%'
        select
            TABLE_QUALIFIER = convert(varchar(32),db_name()),
            TABLE_OWNER = convert(varchar(32),user_name(o.uid)),
            TABLE_NAME = convert(varchar(32),o.name),    /* make nullable */
            TABLE_TYPE = convert(varchar(32),rtrim(
                substring('SYSTEM TABLE            TABLE       VIEW       ',
                    (ascii(o.type)-83)*12+1,12))),    /* 'S'=0,'U'=2,'V'=3 */
            REMARKS = convert(varchar(254),null)    /* Remarks are NULL */
        from sysusers u, sysobjects o
        where
            o.name like @table_name
            and user_name(o.uid) like @table_owner
            and charindex(substring(o.type,1,1),@type1) <> 0 /* Only desired types */
            and u.uid = user_id() /* constrain sysusers uid for use in subquery */
            and (
                suser_id() = 1     /* User is the System Administrator */
                or o.uid = user_id()     /* User created the object */
                /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
                or ((select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
                    from sysprotects p
                    /* outer join to correlate with all rows in sysobjects */
                    where p.id =* o.id
                        /* get rows for public,current user,user's group */
                        and (p.uid = 0 or p.uid = user_id() or p.uid =* u.gid)
                        /* check for SELECT,EXECUTE privilege */
                        and (action in (193,224)))&1     /* more magic...normalize GRANT */
                    ) = 1    /* final magic...compare Grants      */
            )
        order by 4, 1, 2, 3
    end
go

if (charindex('7.00', @@version) > 0)
    drop procedure sp_tables
else
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
go

/*    Procedure for 7.00 server */
create procedure sp_tables(
               @table_name        nvarchar(384)    = null,
               @table_owner     nvarchar(384)    = null,
               @table_qualifier sysname    = null,
               @table_type        varchar(100) = null)
as
    declare @type1 varchar(3)
    declare @tableindex int


    /* Special feature #1:    enumerate databases when owner and name
         are blank but qualifier is explicitly '%'.  */
    if @table_qualifier = '%' and
        @table_owner = '' and
        @table_name = ''
    begin    /* If enumerating databases */
        select
            TABLE_QUALIFIER = convert(sysname,d.name),
            TABLE_OWNER = convert(sysname,null),
            TABLE_NAME = convert(sysname,null),
            TABLE_TYPE = convert(sysname,null),
            REMARKS = convert(varchar(254),null)    /* Remarks are NULL */
        from master.dbo.sysdatabases d
        where d.name <> 'model'    /* eliminate MODEL database */
        order by 1
    end

    /* Special feature #2:    enumerate owners when qualifier and name
         are blank but owner is explicitly '%'.  */
    else if @table_qualifier = '' and
        @table_owner = '%' and
        @table_name = ''
    begin    /* If enumerating owners */
        select distinct
            TABLE_QUALIFIER = convert(sysname,null),
            TABLE_OWNER = convert(sysname,user_name(uid)),
            TABLE_NAME = convert(sysname,null),
            TABLE_TYPE = convert(sysname,null),
            REMARKS = convert(varchar(254),null)    /* Remarks are NULL */
        from sysobjects
        order by 2
    end

    /* Special feature #3:    enumerate table types when qualifier, owner and
         name are blank but table type is explicitly '%'.    */
    else if @table_qualifier = '' and
        @table_owner = '' and
        @table_name = '' and
        @table_type = '%'
    begin    /* If enumerating table types */
        select
            TABLE_QUALIFIER = convert(sysname,null),
            TABLE_OWNER = convert(sysname,null),
            TABLE_NAME = convert(sysname,null),
            TABLE_TYPE = convert(sysname,rtrim(substring('SYSTEM TABLETABLE       VIEW',(colid-1)*12+1,12))),
            REMARKS = convert(varchar(254),null)    /* Remarks are NULL */
        from sysobjects o, syscolumns c
        where o.id=c.id and o.name='sysusers' and colid<=3
    end

    else
    begin /* end of special features - do normal processing */
        if @table_qualifier is not null
        begin
            if db_name() <> @table_qualifier
            begin
                if @table_qualifier = ''
                begin  /* If empty qualifier supplied */
                    /* Force an empty result set */
                    select @table_name = ''
                    select @table_owner = ''
                end
                else
                begin    /* If qualifier doesn't match current database */
                    raiserror (15250, -1,-1)
                    return
                end
            end
        end
        if @table_type is null
        begin    /* Select all ODBC supported table types */
            select @type1 = 'SUV'
        end
        else
        begin
            /*    TableType is case sensitive if CS server */
            select @type1 = ''
            if (charindex('''SYSTEM TABLE''',@table_type) <> 0)
                select @type1 = @type1 + 'S'    /* Add System Tables */
            if (charindex('''TABLE''',@table_type) <> 0)
                select @type1 = @type1 + 'U'    /* Add User Tables */
            if (charindex('''VIEW''',@table_type) <> 0)
                select @type1 = @type1 + 'V'    /* Add Views */
        end
        if @table_name is null
        begin    /*    If table name not supplied, match all */
            select @table_name = '%'
        end
        else
        begin
            if (@table_owner is null) and (charindex('%', @table_name) = 0)
            begin    /* If owner not specified and table is specified */
                if exists (select * from sysobjects
                    where uid = user_id()
                    and name = @table_name
                    and (type = 'U' or type = 'V' or type = 'S'))
                begin    /* Override supplied owner w/owner of table */
                    select @table_owner = user_name()
                end
            end
        end
        if @table_owner is null /* If no owner supplied, force wildcard */
            select @table_owner = '%'
        select
            TABLE_QUALIFIER = convert(sysname,db_name()),
            TABLE_OWNER = convert(sysname,user_name(o.uid)),
            TABLE_NAME = convert(sysname,o.name),    /* make nullable */
            TABLE_TYPE = convert(sysname,rtrim(
                substring('SYSTEM TABLE            TABLE       VIEW       ',
                    (ascii(o.type)-83)*12+1,12))),    /* 'S'=0,'U'=2,'V'=3 */
            REMARKS = convert(varchar(254),null)    /* Remarks are NULL */
        from sysobjects o
        where
            o.name like @table_name
            and user_name(o.uid) like @table_owner
            and (o.type in ('U','S') or
             (o.type = 'V' and ObjectProperty (o.id, 'IsMSShipped') = 0))
            and charindex(substring(o.type,1,1),@type1) <> 0 /* Only desired types */
            and permissions (o.id)&4096 <> 0
        order by 4, 1, 2, 3
    end
go


grant execute on sp_tables to public
go

dump tran master with no_log
go

if (charindex('6.50', @@version) = 0 and
    charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 6.50 SQL Server.'
    print 'Ignore the following errors.'
end

print 'creating sp_ddopen'
go

/*    Procedure for pre-7.00 server */
create procedure sp_ddopen(
               @handle            int output,
               @procname        sysname,
               @scrollopt        int output,
               @ccopt            int output,
               @rows            int output,
               @p1                varchar(255) = null,
               @p2                varchar(255) = null,
               @p3                varchar(255) = null,
               @p4                varchar(255) = null,
               @p5                varchar(255) = null,
               @p6                varchar(255) = null,
               @p7                int = null,
               @ODBCVer         int = 2)
as
    declare @ret int

    if @procname = 'sp_column_privileges'
    begin
        create table #spcolpriv (
            TABLE_QUALIFIER varchar(32) null,
            TABLE_OWNER varchar(32) null,
            TABLE_NAME varchar(32)    not null,
            COLUMN_NAME varchar(32) not null,
            GRANTOR varchar(32) null,
            GRANTEE varchar(32) not null,
            PRIVILEGE varchar(32) not null,
            IS_GRANTABLE varchar(3) null
            )
        insert into #spcolpriv exec sp_column_privileges @p1,@p2,@p3,@p4
        exec @ret = sp_cursoropen @handle output,
            'select * from #spcolpriv',
            @scrollopt output, @ccopt output, @rows output
        drop table #spcolpriv
    end
    else if @procname = 'sp_columns'
    begin
        create table #spcolumns (
            TABLE_QUALIFIER varchar(32) null,
            TABLE_OWNER varchar(32) null,
            TABLE_NAME varchar(32)    not null,
            COLUMN_NAME varchar(32) not null,
            DATA_TYPE smallint not null,
            TYPE_NAME varchar(32) not null,
            "PRECISION" int null,
            LENGTH int null,
            SCALE smallint null,
            RADIX smallint null,
            NULLABLE smallint not null,
            REMARKS varchar(254) null,
            COLUMN_DEF varchar(255) null,
            SQL_DATA_TYPE smallint not null,
            SQL_DATETIME_SUB smallint null,
            CHAR_OCTET_LENGTH int null,
            ORDINAL_POSITION int not null,
            IS_NULLABLE varchar(254) null,
            SS_DATA_TYPE tinyint null
            )
        insert into #spcolumns exec sp_columns @p1,@p2,@p3,@p4,@ODBCVer
        exec @ret = sp_cursoropen @handle output,
            'select * from #spcolumns',
            @scrollopt output, @ccopt output, @rows output
        drop table #spcolumns
    end
    else if @procname = 'sp_datatype_info'
    begin
        create table #spdatatypeinfo (
            TYPE_NAME            varchar(32)  not null,
            DATA_TYPE            smallint not null,
            "PRECISION"            int null,
            LITERAL_PREFIX        varchar(32)    null,
            LITERAL_SUFFIX        varchar(32)    null,
            CREATE_PARAMS        varchar(32)    null,
            NULLABLE            smallint   not null,
            CASE_SENSITIVE        smallint   not null,
            SEARCHABLE            smallint   not null,
            UNSIGNED_ATTRIBUTE    smallint   null,
            MONEY    smallint    not null,
            AUTO_INCREMENT        smallint    null,
            LOCAL_TYPE_NAME     varchar(32) null,
            MINIMUM_SCALE        smallint     null,
            MAXIMUM_SCALE        smallint   null,
            SQL_DATA_TYPE        smallint      not null,
            SQL_DATETIME_SUB    smallint   null,
            NUM_PREC_RADIX        int     null,
            INTERVAL_PRECISION    smallint    NULL,
            USERTYPE            smallint not null)
        insert into #spdatatypeinfo exec sp_datatype_info @p7,@ODBCVer
        exec @ret = sp_cursoropen @handle output,
            'select * from #spdatatypeinfo',
            @scrollopt output, @ccopt output, @rows output
        drop table #spdatatypeinfo
    end
    else if @procname = 'sp_fkeys'
    begin
        create table #spfkeys (
            PKTABLE_QUALIFIER varchar(32)     null,
            PKTABLE_OWNER varchar(32)    null,
            PKTABLE_NAME varchar(32)  not null,
            PKCOLUMN_NAME varchar(32)    not null,
            FKTABLE_QUALIFIER varchar(32)    null,
            FKTABLE_OWNER varchar(32)    null,
            FKTABLE_NAME varchar(32)  not null,
            FKCOLUMN_NAME varchar(32)    not null,
            KEY_SEQ smallint not null,
            UPDATE_RULE smallint null,
            DELETE_RULE smallint null,
            FK_NAME varchar(32) null,
            PK_NAME varchar(32) null,
            DEFERRABILITY smallint null
            )
        insert into #spfkeys exec sp_fkeys @p1,@p2,@p3,@p4,@p5,@p6
        exec @ret = sp_cursoropen @handle output,
            'select * from #spfkeys',
            @scrollopt output, @ccopt output, @rows output
        drop table #spfkeys
    end
    else if @procname = 'sp_pkeys'
    begin
        create table #sppkeys (
            TABLE_QUALIFIER varchar(32)   null,
            TABLE_OWNER varchar(32)   null,
            TABLE_NAME varchar(32)    not null,
            COLUMN_NAME varchar(32)  not null,
            KEY_SEQ smallint not null,
            PK_NAME varchar(32) null
            )
        insert into #sppkeys exec sp_pkeys @p1,@p2,@p3
        exec @ret = sp_cursoropen @handle output,
            'select * from #sppkeys',
            @scrollopt output, @ccopt output, @rows output
        drop table #sppkeys
    end
    else if @procname = 'sp_special_columns'
    begin
        create table #spspeccol (
            SCOPE smallint null,
            COLUMN_NAME varchar(32) not null,
            DATA_TYPE smallint not null,
            TYPE_NAME varchar(32) not null,
            "PRECISION" int null,
            LENGTH int null,
            SCALE smallint null,
            PSEUDO_COLUMN smallint null
            )
        insert into #spspeccol exec sp_special_columns @p1,@p2,@p3,@p4,@p5,@p6,@ODBCVer
        exec @ret = sp_cursoropen @handle output,
            'select * from #spspeccol',
            @scrollopt output, @ccopt output, @rows output
        drop table #spspeccol
    end
    else if @procname = 'sp_sproc_columns'
    begin
        create table #spproccol (
            PROCEDURE_QUALIFIER varchar(32)  null,
            PROCEDURE_OWNER varchar(32)  null,
            PROCEDURE_NAME varchar(32)    not null,
            COLUMN_NAME varchar(32) not null,
            COLUMN_TYPE smallint not null,
            DATA_TYPE smallint not null,
            TYPE_NAME varchar(32) not null,
            "PRECISION" int null,
            LENGTH int null,
            SCALE smallint null,
            RADIX smallint null,
            NULLABLE smallint not null,
            REMARKS varchar(254) null,
            COLUMN_DEF varchar(255) null,
            SQL_DATA_TYPE smallint not null,
            SQL_DATETIME_SUB smallint null,
            CHAR_OCTET_LENGTH int null,
            ORDINAL_POSITION int not null,
            IS_NULLABLE varchar(254) null,
            SS_DATA_TYPE tinyint null
            )
        insert into #spproccol exec sp_sproc_columns @p1,@p2,@p3,@p4,@ODBCVer
        exec @ret = sp_cursoropen @handle output,
            'select * from #spproccol',
            @scrollopt output, @ccopt output, @rows output
        drop table #spproccol
    end
    else if @procname = 'sp_statistics'
    begin
        create table #spstatistics (
            TABLE_QUALIFIER varchar(32)   null,
            TABLE_OWNER varchar(32)   null,
            TABLE_NAME varchar(32)    not null,
            NON_UNIQUE smallint null,
            INDEX_QUALIFIER varchar(32) null,
            INDEX_NAME varchar(32)    null,
            TYPE smallint not null,
            SEQ_IN_INDEX smallint null,
            COLUMN_NAME varchar(32) null,
            COLLATION char(1) null,
            CARDINALITY int null,
            PAGES int null,
            FILTER_CONDITION varchar(128) null
            )
        insert into #spstatistics exec sp_statistics @p1,@p2,@p3,@p4,@p5,@p6
        exec @ret = sp_cursoropen @handle output,
            'select * from #spstatistics',
            @scrollopt output, @ccopt output, @rows output
        drop table #spstatistics
    end
    else if @procname = 'sp_stored_procedures'
    begin
        create table #spprocedures (
            PROCEDURE_QUALIFIER varchar(32)  null,
            PROCEDURE_OWNER varchar(32)  null,
            PROCEDURE_NAME varchar(32)    not null,
            NUM_INPUT_PARAMS int null,
            NUM_OUTPUT_PARAMS int null,
            NUM_RESULT_SETS int null,
            REMARKS varchar(254) null,
            PROCEDURE_TYPE smallint null
            )
        insert into #spprocedures exec sp_stored_procedures @p1,@p2,@p3
        exec @ret = sp_cursoropen @handle output,
            'select * from #spprocedures',
            @scrollopt output, @ccopt output, @rows output
        drop table #spprocedures
    end
    else if @procname = 'sp_table_privileges'
    begin
        create table #sptabpriv (
            TABLE_QUALIFIER varchar(32) null,
            TABLE_OWNER varchar(32) null,
            TABLE_NAME varchar(32)    not null,
            GRANTOR varchar(32) null,
            GRANTEE varchar(32) not null,
            PRIVILEGE varchar(32) not null,
            IS_GRANTABLE varchar(3) null
            )
        insert into #sptabpriv exec sp_table_privileges @p1,@p2,@p3
        exec @ret = sp_cursoropen @handle output,
            'select * from #sptabpriv',
            @scrollopt output, @ccopt output, @rows output
        drop table #sptabpriv
    end
    else if @procname = 'sp_tables'
    begin
        create table #sptables (
            TABLE_QUALIFIER varchar(32) null,
            TABLE_OWNER varchar(32) null,
            TABLE_NAME varchar(32)    null,
            TABLE_TYPE     varchar(32) null,
            REMARKS varchar(254) null)
        insert into #sptables exec sp_tables @p1,@p2,@p3,@p4
        exec @ret = sp_cursoropen @handle output,
            'select * from #sptables',
            @scrollopt output, @ccopt output, @rows output
        drop table #sptables
    end
    select @ret = isnull(@ret,0)
    return isnull(@ret,0)
go

if (charindex('7.00', @@version) > 0)
    drop procedure sp_ddopen
else
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
go

/*    Procedure for 7.00 server */
create procedure sp_ddopen(
               @handle            int output,
               @procname        sysname,
               @scrollopt        int output,
               @ccopt            int output,
               @rows            int output,
               @p1                nvarchar(774) = null,
               @p2                nvarchar(774) = null,
               @p3                nvarchar(774) = null,
               @p4                nvarchar(774) = null,
               @p5                nvarchar(774) = null,
               @p6                nvarchar(774) = null,
               @p7                int = null,
               @ODBCVer         int = 2)
as
    declare @ret int

    if @procname = 'sp_column_privileges'
    begin
        create table #spcolpriv (
            TABLE_QUALIFIER sysname null,
            TABLE_OWNER sysname null,
            TABLE_NAME sysname not null,
            COLUMN_NAME sysname not null,
            GRANTOR sysname null,
            GRANTEE sysname not null,
            PRIVILEGE varchar(32) not null,
            IS_GRANTABLE varchar(3) null
            )
        insert into #spcolpriv exec sp_column_privileges @p1,@p2,@p3,@p4
        exec @ret = sp_cursoropen @handle output,
            'select * from #spcolpriv',
            @scrollopt output, @ccopt output, @rows output
        drop table #spcolpriv
    end
    else if @procname = 'sp_columns'
    begin
        create table #spcolumns (
            TABLE_QUALIFIER sysname null,
            TABLE_OWNER sysname null,
            TABLE_NAME sysname not null,
            COLUMN_NAME sysname not null,
            DATA_TYPE smallint not null,
            TYPE_NAME sysname not null,
            "PRECISION" int null,
            LENGTH int null,
            SCALE smallint null,
            RADIX smallint null,
            NULLABLE smallint not null,
            REMARKS varchar(254) null,
            COLUMN_DEF nvarchar(3000) null,
            SQL_DATA_TYPE smallint not null,
            SQL_DATETIME_SUB smallint null,
            CHAR_OCTET_LENGTH int null,
            ORDINAL_POSITION int not null,
            IS_NULLABLE varchar(254) null,
            SS_DATA_TYPE tinyint null
            )
        insert into #spcolumns exec sp_columns @p1,@p2,@p3,@p4,@ODBCVer
        exec @ret = sp_cursoropen @handle output,
            'select * from #spcolumns',
            @scrollopt output, @ccopt output, @rows output
        drop table #spcolumns
    end
    else if @procname = 'sp_datatype_info'
    begin
        create table #spdatatypeinfo (
            TYPE_NAME            sysname  not null,
            DATA_TYPE            smallint not null,
            "PRECISION"            int null,
            LITERAL_PREFIX        varchar(32)    null,
            LITERAL_SUFFIX        varchar(32)    null,
            CREATE_PARAMS        varchar(32)    null,
            NULLABLE            smallint   not null,
            CASE_SENSITIVE        smallint   not null,
            SEARCHABLE            smallint   not null,
            UNSIGNED_ATTRIBUTE    smallint   null,
            MONEY    smallint    not null,
            AUTO_INCREMENT        smallint    null,
            LOCAL_TYPE_NAME     sysname null,
            MINIMUM_SCALE        smallint     null,
            MAXIMUM_SCALE        smallint   null,
            SQL_DATA_TYPE        smallint      not null,
            SQL_DATETIME_SUB    smallint   null,
            NUM_PREC_RADIX        int     null,
            INTERVAL_PRECISION    smallint    NULL,
            USERTYPE            smallint not null)
        insert into #spdatatypeinfo exec sp_datatype_info @p7,@ODBCVer
        exec @ret = sp_cursoropen @handle output,
            'select * from #spdatatypeinfo',
            @scrollopt output, @ccopt output, @rows output
        drop table #spdatatypeinfo
    end
    else if @procname = 'sp_fkeys'
    begin
        create table #spfkeys (
            PKTABLE_QUALIFIER sysname     null,
            PKTABLE_OWNER sysname    null,
            PKTABLE_NAME sysname  not null,
            PKCOLUMN_NAME sysname  not null,
            FKTABLE_QUALIFIER sysname    null,
            FKTABLE_OWNER sysname    null,
            FKTABLE_NAME sysname  not null,
            FKCOLUMN_NAME sysname  not null,
            KEY_SEQ smallint not null,
            UPDATE_RULE smallint null,
            DELETE_RULE smallint null,
            FK_NAME sysname null,
            PK_NAME sysname null,
            DEFERRABILITY smallint null
            )
        insert into #spfkeys exec sp_fkeys @p1,@p2,@p3,@p4,@p5,@p6
        exec @ret = sp_cursoropen @handle output,
            'select * from #spfkeys',
            @scrollopt output, @ccopt output, @rows output
        drop table #spfkeys
    end
    else if @procname = 'sp_pkeys'
    begin
        create table #sppkeys (
            TABLE_QUALIFIER sysname   null,
            TABLE_OWNER sysname   null,
            TABLE_NAME sysname    not null,
            COLUMN_NAME sysname  not null,
            KEY_SEQ smallint not null,
            PK_NAME sysname null
            )
        insert into #sppkeys exec sp_pkeys @p1,@p2,@p3
        exec @ret = sp_cursoropen @handle output,
            'select * from #sppkeys',
            @scrollopt output, @ccopt output, @rows output
        drop table #sppkeys
    end
    else if @procname = 'sp_special_columns'
    begin
        create table #spspeccol (
            SCOPE smallint null,
            COLUMN_NAME sysname not null,
            DATA_TYPE smallint not null,
            TYPE_NAME sysname not null,
            "PRECISION" int null,
            LENGTH int null,
            SCALE smallint null,
            PSEUDO_COLUMN smallint null
            )
        insert into #spspeccol exec sp_special_columns @p1,@p2,@p3,@p4,@p5,@p6,@ODBCVer
        exec @ret = sp_cursoropen @handle output,
            'select * from #spspeccol',
            @scrollopt output, @ccopt output, @rows output
        drop table #spspeccol
    end
    else if @procname = 'sp_sproc_columns'
    begin
        create table #spproccol (
            PROCEDURE_QUALIFIER sysname  null,
            PROCEDURE_OWNER sysname  null,
            PROCEDURE_NAME sysname not null,
            COLUMN_NAME sysname not null,
            COLUMN_TYPE smallint not null,
            DATA_TYPE smallint not null,
            TYPE_NAME sysname not null,
            "PRECISION" int null,
            LENGTH int null,
            SCALE smallint null,
            RADIX smallint null,
            NULLABLE smallint not null,
            REMARKS varchar(254) null,
            COLUMN_DEF nvarchar(3000) null,
            SQL_DATA_TYPE smallint not null,
            SQL_DATETIME_SUB smallint null,
            CHAR_OCTET_LENGTH int null,
            ORDINAL_POSITION int not null,
            IS_NULLABLE varchar(254) null,
            SS_DATA_TYPE tinyint null
            )
        insert into #spproccol exec sp_sproc_columns @p1,@p2,@p3,@p4,@ODBCVer
        exec @ret = sp_cursoropen @handle output,
            'select * from #spproccol',
            @scrollopt output, @ccopt output, @rows output
        drop table #spproccol
    end
    else if @procname = 'sp_statistics'
    begin
        create table #spstatistics (
            TABLE_QUALIFIER sysname   null,
            TABLE_OWNER sysname   null,
            TABLE_NAME sysname    not null,
            NON_UNIQUE smallint null,
            INDEX_QUALIFIER sysname null,
            INDEX_NAME sysname null,
            TYPE smallint not null,
            SEQ_IN_INDEX smallint null,
            COLUMN_NAME sysname null,
            COLLATION char(1) null,
            CARDINALITY int null,
            PAGES int null,
            FILTER_CONDITION varchar(128) null
            )
        insert into #spstatistics exec sp_statistics @p1,@p2,@p3,@p4,@p5,@p6
        exec @ret = sp_cursoropen @handle output,
            'select * from #spstatistics',
            @scrollopt output, @ccopt output, @rows output
        drop table #spstatistics
    end
    else if @procname = 'sp_stored_procedures'
    begin
        create table #spprocedures (
            PROCEDURE_QUALIFIER sysname  null,
            PROCEDURE_OWNER sysname  null,
            PROCEDURE_NAME sysname not null,
            NUM_INPUT_PARAMS int null,
            NUM_OUTPUT_PARAMS int null,
            NUM_RESULT_SETS int null,
            REMARKS varchar(254) null,
            PROCEDURE_TYPE smallint null
            )
        insert into #spprocedures exec sp_stored_procedures @p1,@p2,@p3
        exec @ret = sp_cursoropen @handle output,
            'select * from #spprocedures',
            @scrollopt output, @ccopt output, @rows output
        drop table #spprocedures
    end
    else if @procname = 'sp_table_privileges'
    begin
        create table #sptabpriv (
            TABLE_QUALIFIER sysname null,
            TABLE_OWNER sysname null,
            TABLE_NAME sysname not null,
            GRANTOR sysname null,
            GRANTEE sysname not null,
            PRIVILEGE varchar(32) not null,
            IS_GRANTABLE varchar(3) null
            )
        insert into #sptabpriv exec sp_table_privileges @p1,@p2,@p3
        exec @ret = sp_cursoropen @handle output,
            'select * from #sptabpriv',
            @scrollopt output, @ccopt output, @rows output
        drop table #sptabpriv
    end
    else if @procname = 'sp_tables'
    begin
        create table #sptables (
            TABLE_QUALIFIER sysname null,
            TABLE_OWNER sysname null,
            TABLE_NAME sysname null,
            TABLE_TYPE    sysname null,
            REMARKS varchar(254) null)
        insert into #sptables exec sp_tables @p1,@p2,@p3,@p4
        exec @ret = sp_cursoropen @handle output,
            'select * from #sptables',
            @scrollopt output, @ccopt output, @rows output
        drop table #sptables
    end
    select @ret = isnull(@ret,0)
    return isnull(@ret,0)
go

grant execute on sp_ddopen to public
go

dump tran master with no_log
go

print ''
print 'creating spt_provider_types'
go
if (charindex('7.00', @@version) = 0)
begin /* Pre 7.00 Server */
create table spt_provider_types
    (
    ss_dtype        tinyint     not null,
    fixlen            int         null,        /* datatype len for variable, else null */
    type_name        sysname        not null,
    oledb_data_type        smallint    not null,
    best_match        bit        not null,
    is_nullable        tinyint        null,
    case_sensitive        bit        not null,
    fixed_prec_scale    bit        not null,
    is_long            bit        not null,
    auto_unique_value    tinyint        not null,
    data_precision        int         null,
    numeric_scale        smallint    null,        /* min scale if 6.0 */
    column_size        int         null,
    literal_prefix        varchar(32)    null,
    literal_suffix        varchar(32)     null,
    searchable        int        not null,
    unsigned_attribute    tinyint        null,
    local_type_name     sysname        null
    )
print ''
print ''
print 'Warning:'
print 'you are installing the stored procedures '
print 'on a pre 7.0 SQL Server.'
print 'Ignore the following errors.'
end
go
if (charindex('7.00', @@version) > 0)
begin /* 7.00 server*/
create table spt_provider_types
    (
    ss_dtype        tinyint     not null,
    fixlen            int         null,        /* datatype len for variable, else null */
    type_name        sysname        not null,
    oledb_data_type        smallint    not null,
    best_match        bit        not null,
    is_nullable        bit        null,
    case_sensitive        bit        not null,
    fixed_prec_scale    bit        not null,
    is_long            bit        not null,
    auto_unique_value    tinyint        not null,
    data_precision        int         null,
    numeric_scale        smallint    null,        /* min scale if 6.0 */
    column_size        int         null,
    literal_prefix        nvarchar(32)    null,
    literal_suffix        nvarchar(32)     null,
    searchable        int        not null,
    unsigned_attribute    tinyint        null,
    local_type_name     sysname        null
    )
end
go

grant select on spt_provider_types to public
go

/*
** Insert the spt_provider_types rows for DBTYTPE_STR data types
*/
begin tran

/* Get case sensitivity */
declare @case_sensitive bit
select @case_sensitive = case when 'a' <> 'A' then 1 else 0 end
/* Local Char */
insert into spt_provider_types values
    (
    47 /*SQLCHARACTER*/,        /* ss_dtype */
    0,                /* fixlen */
    'char',                /* type_name */
    129 /*DBTYPE_STR*/,        /* oledb_data_type */
    0,                /* best_match */
    null,                /* is_nullable */
    @case_sensitive,        /* case_sensitive */
    0,                /* fixed_prec_scale */
    0,                /* is_long */
    0,                /* auto_unique_value */
    null,                /* data_precision */
    null,                /* numeric_scale */
    null,                /* column_size */
    '''',                /* literal_prefix */
    '''',                /* literal_suffix */
    4 /*DB_SEARCHABLE*/,        /* searchable */
    null,                /* unsigned_attribute */
    'char'                /* local_type_name */
    )

/* Local Varchar */
insert into spt_provider_types values
    (
    39 /*SQLVARCHAR*/,        /* ss_dtype */
    null,                /* fixlen */
    'varchar',            /* type_name */
    129 /*DBTYPE_STR*/,        /* oledb_data_type */
    1,                /* best_match */
    null,                /* is_nullable */
    @case_sensitive,        /* case_sensitive */
    0,                /* fixed_prec_scale */
    0,                /* is_long */
    0,                /* auto_unique_value */
    null,                /* data_precision */
    null,                /* numeric_scale */
    null,                /* column_size */
    '''',                /* literal_prefix */
    '''',                /* literal_suffix */
    4 /*DB_SEARCHABLE*/,        /* searchable */
    null,                /* unsigned_attribute */
    'varchar'            /* local_type_name */
    )

/* Local Text */
insert into spt_provider_types values
    (
    35  /*SQLTEXT*/,        /* ss_dtype */
    null,                /* fixlen */
    'text',                /* type_name */
    129 /*DBTYPE_STR*/,        /* oledb_data_type */
    0,                /* best_match */
    null,                /* is_nullable */
    @case_sensitive,        /* case_sensitive */
    0,                /* fixed_prec_scale */
    1,                /* is_long */
    0,                /* auto_unique_value */
    null,                /* data_precision */
    null,                /* numeric_scale */
    2147483647,            /* column_size */
    '''',                /* literal_prefix */
    '''',                /* literal_suffix */
    2 /*DB_LIKE_ONLY*/,        /* searchable */
    null,                /* unsigned_attribute */
    'text'                /* local_type_name */
    )
commit tran
go

/*
** Insert the spt_provider_types rows for DBTYTPE_BYTES data types
*/
begin tran
/* Local Binary */
insert into spt_provider_types values
    (
    45 /*SQLBINARY*/,        /* ss_dtype */
    0,                /* fixlen */
    'binary',            /* type_name */
    128 /*DBTYPE_BYTES*/,        /* oledb_data_type */
    0,                /* best_match */
    null,                /* is_nullable */
    0,                /* case_sensitive */
    0,                /* fixed_prec_scale */
    0,                /* is_long */
    0,                /* auto_unique_value */
    null,                /* data_precision */
    null,                /* numeric_scale */
    null,                /* column_size */
    '0x',                /* literal_prefix */
    null,                /* literal_suffix */
    3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
    null,                /* unsigned_attribute */
    'binary'            /* local_type_name */
    )

/* Local Varbinary */
insert into spt_provider_types values
    (
    37 /*SQLVARBINARY*/,        /* ss_dtype */
    null,                /* fixlen */
    'varbinary',            /* type_name */
    128 /*DBTYPE_BYTES*/,        /* oledb_data_type */
    1,                /* best_match */
    null,                /* is_nullable */
    0,                /* case_sensitive */
    0,                /* fixed_prec_scale */
    0,                /* is_long */
    0,                /* auto_unique_value */
    null,                /* data_precision */
    null,                /* numeric_scale */
    null,                /* column_size */
    '0x',                /* literal_prefix */
    null,                /* literal_suffix */
    3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
    null,                /* unsigned_attribute */
    'varbinary'            /* local_type_name */
    )

/* Local Image */
insert into spt_provider_types values
    (
    34 /*SQLIMAGE*/,        /* ss_dtype */
    null,                /* fixlen */
    'image',            /* type_name */
    128 /*DBTYPE_BYTES*/,        /* oledb_data_type */
    0,                /* best_match */
    null,                /* is_nullable */
    0,                /* case_sensitive */
    0,                /* fixed_prec_scale */
    1,                /* is_long */
    0,                /* auto_unique_value */
    null,                /* data_precision */
    null,                /* numeric_scale */
    2147483647,            /* column_size */
    '0x',                /* literal_prefix */
    null,                /* literal_suffix */
    1 /*DB_UNSEARCHABLE*/,        /* searchable */
    null,                /* unsigned_attribute */
    'image'                /* local_type_name */
    )

commit tran
go

/*
** Insert the spt_provider_types rows for DBTYPE_DBTIMESTAMP data types
*/
begin tran

/* Local Datetime */
insert into spt_provider_types values
    (
    61 /*SQLDATETIME*/,        /* ss_dtype */
    8,                /* fixlen */
    'datetime',            /* type_name */
    135 /*DBTYPE_DBTIMESTAMP*/,    /* oledb_data_type */
    1,                /* best_match */
    null,                /* is_nullable */
    0,                /* case_sensitive */
    0,                /* fixed_prec_scale */
    0,                /* is_long */
    0,                /* auto_unique_value */
    23,                /* data_precision */
    null,                /* numeric_scale */
    null,                /* column_size */
    '''',                /* literal_prefix */
    '''',                /* literal_suffix */
    4 /*DB_SEARCHABLE*/,        /* searchable */
    null,                /* unsigned_attribute */
    'datetime'            /* local_type_name */
    )

/* Local Smalldatetime */
insert into spt_provider_types values
    (
    58 /*SQLDATETIM4*/,        /* ss_dtype */
    4,                /* fixlen */
    'smalldatetime',        /* type_name */
    135 /*DBTYPE_DBTIMESTAMP*/,    /* oledb_data_type */
    0,                /* best_match */
    null,                /* is_nullable */
    0,                /* case_sensitive */
    0,                /* fixed_prec_scale */
    0,                /* is_long */
    0,                /* auto_unique_value */
    16,                /* data_precision */
    null,                /* numeric_scale */
    null,                /* column_size */
    '''',                /* literal_prefix */
    '''',                /* literal_suffix */
    4 /*DB_SEARCHABLE*/,        /* searchable */
    null,                /* unsigned_attribute */
    'smalldatetime'            /* local_type_name */
    )

if (charindex('7.00', @@version) = 0)
    begin    /*    Add nullable type for non-Sphinx server */

    /* Local Datetimn */
    insert into spt_provider_types values
        (
        111 /*SQLDATETIMN*/,        /* ss_dtype */
        4,                /* fixlen */
        'smalldatetime',        /* type_name */
        135 /*DBTYPE_DBTIMESTAMP*/,    /* oledb_data_type */
        0,                /* best_match */
        null,                /* is_nullable */
        0,                /* case_sensitive */
        0,                /* fixed_prec_scale */
        0,                /* is_long */
        0,                /* auto_unique_value */
        16,                /* data_precision */
        null,                /* numeric_scale */
        null,                /* column_size */
        '''',                /* literal_prefix */
        '''',                /* literal_suffix */
        4 /*DB_SEARCHABLE*/,        /* searchable */
        null,                /* unsigned_attribute */
        'smalldatetime'            /* local_type_name */
        )
    insert into spt_provider_types values
        (
        111 /*SQLDATETIMN*/,        /* ss_dtype */
        8,                /* fixlen */
        'datetime',            /* type_name */
        135 /*DBTYPE_DBTIMESTAMP*/,    /* oledb_data_type */
        0,                /* best_match */
        null,                /* is_nullable */
        0,                /* case_sensitive */
        0,                /* fixed_prec_scale */
        0,                /* is_long */
        0,                /* auto_unique_value */
        23,                /* data_precision */
        null,                /* numeric_scale */
        null,                /* column_size */
        '''',                /* literal_prefix */
        '''',                /* literal_suffix */
        4 /*DB_SEARCHABLE*/,        /* searchable */
        null,                /* unsigned_attribute */
        'datetime'            /* local_type_name */
        )
    end

commit tran
go

/*
** Insert the spt_provider_types rows for DBTYPE_CY data types
*/
begin tran

/* Local Smallmoney */
insert into spt_provider_types values
    (
    122 /*SQLMONEY4*/,        /* ss_dtype */
    4,                /* fixlen */
    'smallmoney',            /* type_name */
    6 /*DBTYPE_CY*/,        /* oledb_data_type */
    0,                /* best_match */
    null,                /* is_nullable */
    0,                /* case_sensitive */
    1,                /* fixed_prec_scale */
    0,                /* is_long */
    0,                /* auto_unique_value */
    10,                /* data_precision */
    null,                /* numeric_scale */
    null,                /* column_size */
    '$',                /* literal_prefix */
    null,                /* literal_suffix */
    3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
    0,                /* unsigned_attribute */
    'smallmoney'            /* local_type_name */
    )

/* Local Money */
insert into spt_provider_types values
    (
    60 /*SQLMONEY*/,        /* ss_dtype */
    8,                /* fixlen */
    'money',            /* type_name */
    6 /*DBTYPE_CY*/,        /* oledb_data_type */
    1,                /* best_match */
    null,                /* is_nullable */
    0,                /* case_sensitive */
    1,                /* fixed_prec_scale */
    0,                /* is_long */
    0,                /* auto_unique_value */
    19,                /* data_precision */
    null,                /* numeric_scale */
    null,                /* column_size */
    '$',                /* literal_prefix */
    null,                /* literal_suffix */
    3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
    0,                /* unsigned_attribute */
    'money'                /* local_type_name */
    )

if (charindex('7.00', @@version) = 0)
    begin    /*    Add nullable type for non-Sphinx server */

    /* Local Moneyn */
    insert into spt_provider_types values
        (
        110 /*SQLMONEYN*/,    /* ss_dtype */
        4,            /* fixlen */
        'smallmoney',        /* type_name */
        6 /*DBTYPE_CY*/,    /* oledb_data_type */
        0,            /* best_match */
        null,            /* is_nullable */
        0,            /* case_sensitive */
        1,            /* fixed_prec_scale */
        0,            /* is_long */
        0,            /* auto_unique_value */
        10,            /* data_precision */
        null,            /* numeric_scale */
        null,            /* column_size */
        '$',            /* literal_prefix */
        null,            /* literal_suffix */
        3 /*DB_ALL_EXCEPT_LIKE*/, /* searchable */
        0,            /* unsigned_attribute */
        'smallmoney'        /* local_type_name */
        )
    insert into spt_provider_types values
        (
        110 /*SQLMONEYN*/,    /* ss_dtype */
        8,            /* fixlen */
        'money',        /* type_name */
        6 /*DBTYPE_CY*/,    /* oledb_data_type */
        0,            /* best_match */
        null,            /* is_nullable */
        0,            /* case_sensitive */
        1,            /* fixed_prec_scale */
        0,            /* is_long */
        0,            /* auto_unique_value */
        19,            /* data_precision */
        null,            /* numeric_scale */
        null,            /* column_size */
        '$',            /* literal_prefix */
        null,            /* literal_suffix */
        3 /*DB_ALL_EXCEPT_LIKE*/, /* searchable */
        null,            /* unsigned_attribute */
        'money'            /* local_type_name */
        )
    end

commit tran
go

/*
** Insert the spt_provider_types rows for the numeric data types
*/
begin tran

/* Local Float */
insert into spt_provider_types values
    (
    62 /*SQLFLT8*/,            /* ss_dtype */
    8,                /* fixlen */
    'float',            /* type_name */
    5 /*DBTYPE_R8*/,        /* oledb_data_type */
    1,                /* best_match */
    null,                /* is_nullable */
    0,                /* case_sensitive */
    0,                /* fixed_prec_scale */
    0,                /* is_long */
    0,                /* auto_unique_value */
    15,                /* data_precision */
    null,                /* numeric_scale */
    null,                /* column_size */
    null,                /* literal_prefix */
    null,                /* literal_suffix */
    3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
    0,                /* unsigned_attribute */
    'float'                /* local_type_name */
    )

/* Local Real */
insert into spt_provider_types values
    (
    59 /*SQLFLT4*/,            /* ss_dtype */
    4,                /* fixlen */
    'real',                /* type_name */
    4 /*DBTYPE_R4*/,        /* oledb_data_type */
    1,                /* best_match */
    null,                /* is_nullable */
    0,                /* case_sensitive */
    0,                /* fixed_prec_scale */
    0,                /* is_long */
    0,                /* auto_unique_value */
    7,                /* data_precision */
    null,                /* numeric_scale */
    null,                /* column_size */
    null,                /* literal_prefix */
    null,                /* literal_suffix */
    3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
    0,                /* unsigned_attribute */
    'real'                /* local_type_name */
    )

/* Local Int */
insert into spt_provider_types values
    (
    56 /*SQLINT4*/,            /* ss_dtype */
    4,                /* fixlen */
    'int',                /* type_name */
    3 /*DBTYPE_I4*/,        /* oledb_data_type */
    1,                /* best_match */
    null,                /* is_nullable */
    0,                /* case_sensitive */
    1,                /* fixed_prec_scale */
    0,                /* is_long */
    1,                /* auto_unique_value */
    10,                /* data_precision */
    null,                /* numeric_scale */
    null,                /* column_size */
    null,                /* literal_prefix */
    null,                /* literal_suffix */
    3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
    0,                /* unsigned_attribute */
    'int'                /* local_type_name */
    )

/* Local Smallint */
insert into spt_provider_types values
    (
    52 /*SQLINT2*/,            /* ss_dtype */
    2,                /* fixlen */
    'smallint',            /* type_name */
    2 /*DBTYPE_I2*/,        /* oledb_data_type */
    1,                /* best_match */
    null,                /* is_nullable */
    0,                /* case_sensitive */
    1,                /* fixed_prec_scale */
    0,                /* is_long */
    1,                /* auto_unique_value */
    5,                /* data_precision */
    null,                /* numeric_scale */
    null,                /* column_size */
    null,                /* literal_prefix */
    null,                /* literal_suffix */
    3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
    0,                /* unsigned_attribute */
    'smallint'            /* local_type_name */
    )

/* Local Tinyint */
insert into spt_provider_types values
    (
    48 /*SQLINT1*/,            /* ss_dtype */
    1,                /* fixlen */
    'tinyint',            /* type_name */
    17 /*DBTYPE_UI1*/,        /* oledb_data_type */
    1,                /* best_match */
    null,                /* is_nullable */
    0,                /* case_sensitive */
    1,                /* fixed_prec_scale */
    0,                /* is_long */
    1,                /* auto_unique_value */
    3,                /* data_precision */
    null,                /* numeric_scale */
    null,                /* column_size */
    null,                /* literal_prefix */
    null,                /* literal_suffix */
    3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
    1,                /* unsigned_attribute */
    'tinyint'            /* local_type_name */
    )
commit tran
go
begin tran
if (charindex('6.00', @@version) > 0 or
    charindex('6.50', @@version) > 0 or
    charindex('7.00', @@version) > 0)
    begin    /*    Add 6.0 data types */

    /* Local Decimal */
    insert into spt_provider_types values
        (
        55 /*SQLDECIMAL*/,        /* ss_dtype */
        0,                /* fixlen */
        'decimal',            /* type_name */
        131 /*DBTYPE_NUMERIC*/,        /* oledb_data_type */
        0,                /* best_match */
        null,                /* is_nullable */
        0,                /* case_sensitive */
        1,                /* fixed_prec_scale */
        0,                /* is_long */
        1,                /* auto_unique_value */
        28,                /* data_precision */
        null,                /* numeric_scale */
        null,                /* column_size */
        null,                /* literal_prefix */
        null,                /* literal_suffix */
        3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
        0,                /* unsigned_attribute */
        'decimal'            /* local_type_name */
        )

    /* Local Numeric */
    insert into spt_provider_types values
        (
        63 /*SQLNUMERIC*/,        /* ss_dtype */
        0,                /* fixlen */
        'numeric',            /* type_name */
        131 /*DBTYPE_NUMERIC*/,        /* oledb_data_type */
        1,                /* best_match */
        null,                /* is_nullable */
        0,                /* case_sensitive */
        1,                /* fixed_prec_scale */
        0,                /* is_long */
        1,                /* auto_unique_value */
        28,                /* data_precision */
        null,                /* numeric_scale */
        null,                /* column_size */
        null,                /* literal_prefix */
        null,                /* literal_suffix */
        3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
        0,                /* unsigned_attribute */
        'numeric'            /* local_type_name */
        )
    end
commit tran
go
begin tran
if (charindex('7.00', @@version) = 0)
    begin    /*    Add nullable type for non-Sphinx server */

    /* Local Floatn */
    insert into spt_provider_types values
        (
        109 /*SQLFLTN*/,        /* ss_dtype */
        8,                /* fixlen */
        'float',            /* type_name */
        5 /*DBTYPE_R8*/,        /* oledb_data_type */
        0,                /* best_match */
        null,                /* is_nullable */
        0,                /* case_sensitive */
        0,                /* fixed_prec_scale */
        0,                /* is_long */
        0,                /* auto_unique_value */
        15,                /* data_precision */
        null,                /* numeric_scale */
        null,                /* column_size */
        null,                /* literal_prefix */
        null,                /* literal_suffix */
        3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
        null,                /* unsigned_attribute */
        'float'                /* local_type_name */
        )
    insert into spt_provider_types values
        (
        109 /*SQLFLT4*/,        /* ss_dtype */
        4,                /* fixlen */
        'real',                /* type_name */
        4 /*DBTYPE_R4*/,        /* oledb_data_type */
        0,                /* best_match */
        null,                /* is_nullable */
        0,                /* case_sensitive */
        0,                /* fixed_prec_scale */
        0,                /* is_long */
        0,                /* auto_unique_value */
        7,                /* data_precision */
        null,                /* numeric_scale */
        null,                /* column_size */
        null,                /* literal_prefix */
        null,                /* literal_suffix */
        3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
        null,                /* unsigned_attribute */
        'real'                /* local_type_name */
        )

    /* Local Intn */
    insert into spt_provider_types values
        (
        38 /*SQLINTN*/,            /* ss_dtype */
        4,                /* fixlen */
        'int',                /* type_name */
        3 /*DBTYPE_I4*/,        /* oledb_data_type */
        1,                /* best_match */
        null,                /* is_nullable */
        0,                /* case_sensitive */
        1,                /* fixed_prec_scale */
        0,                /* is_long */
        1,                /* auto_unique_value */
        10,                /* data_precision */
        null,                /* numeric_scale */
        null,                /* column_size */
        null,                /* literal_prefix */
        null,                /* literal_suffix */
        3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
        0,                /* unsigned_attribute */
        'int'                /* local_type_name */
        )
    insert into spt_provider_types values
        (
        38 /*SQLINTN*/,            /* ss_dtype */
        2,                /* fixlen */
        'smallint',            /* type_name */
        2 /*DBTYPE_I2*/,        /* oledb_data_type */
        0,                /* best_match */
        null,                /* is_nullable */
        0,                /* case_sensitive */
        1,                /* fixed_prec_scale */
        0,                /* is_long */
        1,                /* auto_unique_value */
        5,                /* data_precision */
        null,                /* numeric_scale */
        null,                /* column_size */
        null,                /* literal_prefix */
        null,                /* literal_suffix */
        3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
        0,                /* unsigned_attribute */
        'smallint'            /* local_type_name */
        )
    insert into spt_provider_types values
        (
        38 /*SQLINTN*/,            /* ss_dtype */
        1,                /* fixlen */
        'tinyint',            /* type_name */
        17 /*DBTYPE_UI1*/,        /* oledb_data_type */
        0,                /* best_match */
        null,                /* is_nullable */
        0,                /* case_sensitive */
        1,                /* fixed_prec_scale */
        0,                /* is_long */
        1,                /* auto_unique_value */
        3,                /* data_precision */
        null,                /* numeric_scale */
        null,                /* column_size */
        null,                /* literal_prefix */
        null,                /* literal_suffix */
        3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
        1,                /* unsigned_attribute */
        'tinyint'            /* local_type_name */
        )

    if (charindex('6.00', @@version) > 0 or    charindex('6.50', @@version) > 0)
        begin    /*    Add 6.0 data types */

        /* Local Decimaln */
        insert into spt_provider_types values
            (
            106 /*SQLDECIMALN*/,        /* ss_dtype */
            0,                /* fixlen */
            'decimal',            /* type_name */
            131 /*DBTYPE_NUMERIC*/,        /* oledb_data_type */
            0,                /* best_match */
            null,                /* is_nullable */
            0,                /* case_sensitive */
            1,                /* fixed_prec_scale */
            0,                /* is_long */
            1,                /* auto_unique_value */
            28,                /* data_precision */
            null,                /* numeric_scale */
            null,                /* column_size */
            null,                /* literal_prefix */
            null,                /* literal_suffix */
            3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
            0,                /* unsigned_attribute */
            'decimal'            /* local_type_name */
            )

        /* Local Numericn */
        insert into spt_provider_types values
            (
            108 /*SQLNUMERICN*/,        /* ss_dtype */
            0,                /* fixlen */
            'numeric',            /* type_name */
            131 /*DBTYPE_NUMERIC*/,        /* oledb_data_type */
            0,                /* best_match */
            null,                /* is_nullable */
            0,                /* case_sensitive */
            1,                /* fixed_prec_scale */
            0,                /* is_long */
            1,                /* auto_unique_value */
            28,                /* data_precision */
            null,                /* numeric_scale */
            null,                /* column_size */
            null,                /* literal_prefix */
            null,                /* literal_suffix */
            3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
            0,                /* unsigned_attribute */
            'numeric'            /* local_type_name */
            )
        end
    end
commit tran
go

/*
**    Remaining data types
*/
if (charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
go
begin tran

if (charindex('7.00', @@version) > 0)
    begin
    /* Local Bit */
    insert into spt_provider_types values
        (
        50 /*SQLBIT*/,            /* ss_dtype */
        0,                /* fixlen */
        'bit',                /* type_name */
        11 /*DBTYPE_BOOL*/,        /* oledb_data_type */
        1,                /* best_match */
        null,                /* is_nullable */
        0,                /* case_sensitive */
        0,                /* fixed_prec_scale */
        0,                /* is_long */
        0,                /* auto_unique_value */
        1,                /* data_precision */
        null,                /* numeric_scale */
        null,                /* column_size */
        null,                /* literal_prefix */
        null,                /* literal_suffix */
        3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
        null,                /* unsigned_attribute */
        'bit'                /* local_type_name */
        )

    /* Local Timestamp */
    insert into spt_provider_types values
        (
        0,                /* ss_dtype */
        8,                /* fixlen */
        'timestamp',            /* type_name */
        128 /*DBTYPE_BYTES*/,        /* oledb_data_type */
        0,                /* best_match */
        null,                /* is_nullable */
        0,                /* case_sensitive */
        0,                /* fixed_prec_scale */
        0,                /* is_long */
        0,                /* auto_unique_value */
        null,                /* data_precision */
        null,                /* numeric_scale */
        null,                /* column_size */
        '0x',                /* literal_prefix */
        null,                /* literal_suffix */
        3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
        null,                /* unsigned_attribute */
        'timestamp'            /* local_type_name */
        )
    /* Local GUID */
    insert into spt_provider_types values
        (
        0,                /* ss_dtype */
        16,                /* fixlen */
        'uniqueidentifier',        /* type_name */
        72 /*DBTYPE_GUID*/,        /* oledb_data_type */
        1,                /* best_match */
        null,                /* is_nullable */
        0,                /* case_sensitive */
        0,                /* fixed_prec_scale */
        0,                /* is_long */
        0,                /* auto_unique_value */
        null,                /* data_precision */
        null,                /* numeric_scale */
        null,                /* column_size */
        '''',                /* literal_prefix */
        '''',                /* literal_suffix */
        3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
        null,                /* unsigned_attribute */
        'uniqueidentifier'        /* local_type_name */
        )

    /* Get case sensitivity */
    declare @case_sensitive bit
    select @case_sensitive = case when 'a' <> 'A' then 1 else 0 end

    /* Local NChar */
    insert into spt_provider_types values
        (
        0,                /* ss_dtype */
        0,                /* fixlen */
        'nchar',            /* type_name */
        130 /*DBTYPE_WSTR*/,        /* oledb_data_type */
        0,                /* best_match */
        null,                /* is_nullable */
        @case_sensitive,        /* case_sensitive */
        0,                /* fixed_prec_scale */
        0,                /* is_long */
        0,                /* auto_unique_value */
        null,                /* data_precision */
        null,                /* numeric_scale */
        null,                /* column_size */
        '''',                /* literal_prefix */
        '''',                /* literal_suffix */
        4 /*DB_SEARCHABLE*/,        /* searchable */
        null,                /* unsigned_attribute */
        'nchar'                /* local_type_name */
        )

    /* Local NVarChar */
    insert into spt_provider_types values
        (
        0,                /* ss_dtype */
        null,                /* fixlen */
        'nvarchar',            /* type_name */
        130 /*DBTYPE_WSTR*/,        /* oledb_data_type */
        1,                /* best_match */
        null,                /* is_nullable */
        @case_sensitive,        /* case_sensitive */
        0,                /* fixed_prec_scale */
        0,                /* is_long */
        0,                /* auto_unique_value */
        null,                /* data_precision */
        null,                /* numeric_scale */
        null,                /* column_size */
        '''',                /* literal_prefix */
        '''',                /* literal_suffix */
        4 /*DB_SEARCHABLE*/,        /* searchable */
        null,                /* unsigned_attribute */
        'nvarchar'            /* local_type_name */
        )

    /* Local NText */
    insert into spt_provider_types values
        (
        0,                /* ss_dtype */
        null,                /* fixlen */
        'ntext',            /* type_name */
        130 /*DBTYPE_WSTR*/,        /* oledb_data_type */
        0,                /* best_match */
        null,                /* is_nullable */
        @case_sensitive,        /* case_sensitive */
        0,                /* fixed_prec_scale */
        1,                /* is_long */
        0,                /* auto_unique_value */
        null,                /* data_precision */
        null,                /* numeric_scale */
        1073741823,            /* column_size */
        '''',                /* literal_prefix */
        '''',                /* literal_suffix */
        2 /*DB_LIKE_ONLY*/,        /* searchable */
        null,                /* unsigned_attribute */
        'ntext'                /* local_type_name */
        )

    /* data types changed in Sphinx: DO AFTER ALL TYPES INSERTED! */
    update spt_provider_types set ss_dtype = (select xtype from systypes    where type_name like name+'%')

    end
commit tran
go
begin tran
if (charindex('7.00', @@version) = 0)
    begin
    /* Local Bit */
    insert into spt_provider_types values
        (
        50 /*SQLBIT*/,            /* ss_dtype */
        0,                /* fixlen */
        'bit',                /* type_name */
        11 /*DBTYPE_BOOL*/,        /* oledb_data_type */
        1,                /* best_match */
        0,                /* is_nullable */
        0,                /* case_sensitive */
        0,                /* fixed_prec_scale */
        0,                /* is_long */
        0,                /* auto_unique_value */
        1,                /* data_precision */
        null,                /* numeric_scale */
        null,                /* column_size */
        null,                /* literal_prefix */
        null,                /* literal_suffix */
        3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
        null,                /* unsigned_attribute */
        'bit'                /* local_type_name */
        )

    /* Local Timestamp */
    insert into spt_provider_types values
        (
        45 /*SQLBINARY*/,        /* ss_dtype */
        8,                /* fixlen */
        'timestamp',            /* type_name */
        128 /*DBTYPE_BYTES*/,        /* oledb_data_type */
        0,                /* best_match */
        null,                /* is_nullable */
        0,                /* case_sensitive */
        0,                /* fixed_prec_scale */
        0,                /* is_long */
        0,                /* auto_unique_value */
        null,                /* data_precision */
        null,                /* numeric_scale */
        null,                /* column_size */
        '0x',                /* literal_prefix */
        null,                /* literal_suffix */
        3 /*DB_ALL_EXCEPT_LIKE*/,    /* searchable */
        null,                /* unsigned_attribute */
        'timestamp'            /* local_type_name */
        )
end

commit tran
go

create unique clustered index datatypeinfoclust on spt_provider_types(ss_dtype,fixlen)
go

dump tran master with no_log
go

print ''
print 'creating sp_catalogs_rowset'
go

create procedure sp_catalogs_rowset
    (
    @catalog_name        varchar(255)
    )
as
    select
        CATALOG_NAME    = name,
        DESCRIPTION    = convert(varchar(1),null)
    from     master.dbo.sysdatabases
    where    name = @catalog_name
go
create procedure sp_catalogs_rowset;2
    (
    @dummy        int /* remove when Hydra bug 17032 is fixed */
    )
as
    select
        CATALOG_NAME    = name,
        DESCRIPTION    = convert(varchar(1),null)
    from     master.dbo.sysdatabases
    order by 1
go

if (charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
else
    drop proc sp_catalogs_rowset
go

/*    Procedure for 7.0 server */
create procedure sp_catalogs_rowset
    (
    @catalog_name        sysname
    )
as
    select
        CATALOG_NAME    = name,
        DESCRIPTION    = convert(nvarchar(1),null)
    from     master.dbo.sysdatabases
    where    name = @catalog_name
go
create procedure sp_catalogs_rowset;2
    (
    @dummy        int /* remove when Hydra bug 17032 is fixed */
    )
as
    select
        CATALOG_NAME    = name,
        DESCRIPTION    = convert(nvarchar(1),null)
    from     master.dbo.sysdatabases
    order by 1
go
create procedure sp_catalogs_rowset;5
    (
    @server_name    sysname,
    @catalog_name    sysname = NULL
    )
as
    select    CATALOG_NAME,
        DESCRIPTION
    from master.dbo.SYSREMOTE_CATALOGS < @server_name, @catalog_name >
    order by 1
go

grant execute on sp_catalogs_rowset to public
go

dump tran master with no_log
go


print ''
print 'creating sp_column_privileges_rowset'
go

/*    Procedure for 6.0 and 6.5 server */
CREATE PROCEDURE sp_column_privileges_rowset
    (
    @table_name     varchar(255) = null,
    @table_schema    varchar(255) = null,
    @column_name    varchar(255) = null,
    @grantor    varchar(255) = null,
    @grantee    varchar(255) = null
    )
as
IF @table_name is not null
    BEGIN
    select
        GRANTOR        = user_name(p.grantor),
        GRANTEE        = user_name(u.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(binary(16),null),
        COLUMN_PROPID    = convert(int,null),
        PRIVILEGE_TYPE    = convert(varchar(30),
                    case p.action
                    when 193 then 'SELECT'
                    when 195 then 'INSERT'
                    when 197 then 'UPDATE'
                    else 'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,case when p.protecttype = 205 then 0 else 1 end)
    from
        sysprotects p, sysobjects o, sysusers u, master.dbo.spt_values v, syscolumns c
    where
        o.name = @table_name
    and     o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    c.id = o.id
    and     (@column_name is null or @column_name = c.name)
    and     c.id = p.id
    and    (@grantor is null or @grantor = user_name(p.grantor))
    and     case
            when substring(p.columns, 1, 1) & 1 is null then 255    /* all columns have permission */
            when substring(p.columns, 1, 1) & 1 = 0 then convert(tinyint, substring(p.columns, v.low, 1))
            else (~convert(tinyint, coalesce(substring(p.columns, v.low, 1),0)))
            end & v.high <> 0            /* permission applies to this column */
    and     v.number <= (select count(*) from syscolumns where id = o.id)    /* ranges from 1 to # of columns in table */
    and     v.type = 'P'
    and     v.number = c.colid
    and    (@grantee is null or @grantee = user_name(u.uid))
            /* expand groups */
    and     ((p.uid = u.uid and u.uid <> u.gid) or (p.uid = u.gid and u.uid <> u.gid))
    and     p.protecttype <> 206    /* only grant rows */
    and     p.action in (26,193,195,197)
    and     o.uid <> u.uid            /* no rows for owner */
    and     not exists (            /* exclude revoke'd privileges */
            select *
            from sysprotects p1
            where
                p1.protecttype = 206
            and     p1.action = p.action
            and     p1.id = p.id
            and     p1.uid = u.uid
            and     case
                when substring(p1.columns, 1, 1) & 1 is null then 255    /* all columns have permission */
                when substring(p1.columns, 1, 1) & 1 = 0 then convert(tinyint, substring(p1.columns, v.low, 1))
                                else (~convert(tinyint,coalesce(substring(p.columns, v.low, 1),0)))
                end & v.high <> 0)            /* permission applies to this column */
    union all
    select    /*    Add rows for table owner */
        GRANTOR        = user_name(u.uid),
        GRANTEE        = user_name(o.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(binary(16),null),
        COLUMN_PROPID    = convert(int,null),
        PRIVILEGE_TYPE    = convert(varchar(30),
                    case v.number
                    when 193 then 'SELECT'
                    when 195 then 'INSERT'
                    when 197 then 'UPDATE'
                    else 'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,1)
    from
        sysobjects o, master.dbo.spt_values v, sysusers u, syscolumns c
    where
        o.name = @table_name
    and     o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(o.uid))
    and    c.id = o.id
    and     (@column_name is null or @column_name = c.name)
    and     u.suid = 1        /* grantor is dbo of database */
    and    (@grantor is null or @grantor = user_name(u.uid))
    and     v.type = 'P'        /* cross product to get all exposed privileges */
    and     v.number in (26,193,195,197)
    and     not exists (        /* exclude revoke'd privileges */
            select *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = v.number
            and     p1.id = o.id
            and     p1.uid = o.uid)
    order by 4, 5, 6, 9, 1, 2
    END
ELSE
    BEGIN
    select
        GRANTOR        = user_name(p.grantor),
        GRANTEE        = user_name(u.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(binary(16),null),
        COLUMN_PROPID    = convert(int,null),
        PRIVILEGE_TYPE    = convert(varchar(30),
                    case p.action
                    when 193 then 'SELECT'
                    when 195 then 'INSERT'
                    when 197 then 'UPDATE'
                    else 'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,case when p.protecttype = 205 then 0 else 1 end)
    from
        sysprotects p, sysobjects o, sysusers u, master.dbo.spt_values v, syscolumns c
    where
        o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    c.id = o.id
    and     (@column_name is null or @column_name = c.name)
    and     c.id = p.id
    and    (@grantor is null or @grantor = user_name(p.grantor))
    and     case
            when substring(p.columns, 1, 1) & 1 is null then 255    /* all columns have permission */
            when substring(p.columns, 1, 1) & 1 = 0 then convert(tinyint, substring(p.columns, v.low, 1))
            else (~convert(tinyint, coalesce(substring(p.columns, v.low, 1),0)))
            end & v.high <> 0            /* permission applies to this column */
    and     v.number <= (select count(*) from syscolumns where id = o.id)    /* ranges from 1 to # of columns in table */
    and     v.type = 'P'
    and     v.number = c.colid
    and    (@grantee is null or @grantee = user_name(u.uid))
            /* expand groups */
    and     ((p.uid = u.uid and u.uid <> u.gid) or (p.uid = u.gid and u.uid <> u.gid))
    and     p.protecttype <> 206    /* only grant rows */
    and     p.action in (26,193,195,197)
    and     o.uid <> u.uid            /* no rows for owner */
    and     not exists (            /* exclude revoke'd privileges */
            select *
            from sysprotects p1
            where
                p1.protecttype = 206
            and     p1.action = p.action
            and     p1.id = p.id
            and     p1.uid = u.uid
            and     case
                when substring(p1.columns, 1, 1) & 1 is null then 255    /* all columns have permission */
                when substring(p1.columns, 1, 1) & 1 = 0 then convert(tinyint, substring(p1.columns, v.low, 1))
                                else (~convert(tinyint,coalesce(substring(p.columns, v.low, 1),0)))
                end & v.high <> 0)            /* permission applies to this column */
    union all
    select    /*    Add rows for table owner */
        GRANTOR        = user_name(u.uid),
        GRANTEE        = user_name(o.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(binary(16),null),
        COLUMN_PROPID    = convert(int,null),
        PRIVILEGE_TYPE    = convert(varchar(30),
                    case v.number
                    when 193 then 'SELECT'
                    when 195 then 'INSERT'
                    when 197 then 'UPDATE'
                    else 'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,1)
    from
        sysobjects o, master.dbo.spt_values v, sysusers u, syscolumns c
    where
         o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(o.uid))
    and    c.id = o.id
    and     (@column_name is null or @column_name = c.name)
    and     u.suid = 1        /* grantor is dbo of database */
    and    (@grantor is null or @grantor = user_name(u.uid))
    and     v.type = 'P'        /* cross product to get all exposed privileges */
    and     v.number in (26,193,195,197)
    and     not exists (        /* exclude revoke'd privileges */
            select *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = v.number
            and     p1.id = o.id
            and     p1.uid = o.uid)
    order by 4, 5, 6, 9, 1, 2
    END
go
CREATE PROCEDURE sp_column_privileges_rowset;2
    (
       @handle        int output,
       @scrollopt    int output,
    @ccopt        int output,
    @rows        int output,
    @table_name     varchar(255) = null,
    @table_schema    varchar(255) = null,
    @column_name    varchar(255) = null,
    @grantor    varchar(255) = null,
    @grantee    varchar(255) = null
    )
as

declare @ret int

create table #spcprivsrowset1
    (
    GRANTOR        sysname not null,
    GRANTEE        sysname not null,
    TABLE_CATALOG    sysname not null,
    TABLE_SCHEMA    sysname not null,
    TABLE_NAME    sysname not null,
    COLUMN_NAME    sysname not null,
    COLUMN_GUID    binary(16) null,
    COLUMN_PROPID    int null,
    PRIVILEGE_TYPE    sysname not null,
    IS_GRANTABLE    bit not null
    )

IF @table_name is not null
    BEGIN
    insert into #spcprivsrowset1
    select
        GRANTOR        = user_name(p.grantor),
        GRANTEE        = user_name(u.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(binary(16),null),
        COLUMN_PROPID    = convert(int,null),
        PRIVILEGE_TYPE    = convert(varchar(30),
                    case p.action
                    when 193 then 'SELECT'
                    when 195 then 'INSERT'
                    when 197 then 'UPDATE'
                    else 'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,case when p.protecttype = 205 then 0 else 1 end)
    from
        sysprotects p, sysobjects o, sysusers u, master.dbo.spt_values v, syscolumns c
    where
        o.name = @table_name
    and     o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    c.id = o.id
    and     (@column_name is null or @column_name = c.name)
    and     c.id = p.id
    and    (@grantor is null or @grantor = user_name(p.grantor))
    and     case
            when substring(p.columns, 1, 1) & 1 is null then 255    /* all columns have permission */
            when substring(p.columns, 1, 1) & 1 = 0 then convert(tinyint, substring(p.columns, v.low, 1))
            else (~convert(tinyint, coalesce(substring(p.columns, v.low, 1),0)))
            end & v.high <> 0            /* permission applies to this column */
    and     v.number <= (select count(*) from syscolumns where id = o.id)    /* ranges from 1 to # of columns in table */
    and     v.type = 'P'
    and     v.number = c.colid
    and    (@grantee is null or @grantee = user_name(u.uid))
            /* expand groups */
    and     ((p.uid = u.uid and u.uid <> u.gid) or (p.uid = u.gid and u.uid <> u.gid))
    and     p.protecttype <> 206    /* only grant rows */
    and     p.action in (26,193,195,197)
    and     o.uid <> u.uid            /* no rows for owner */
    and     not exists (            /* exclude revoke'd privileges */
            select *
            from sysprotects p1
            where
                p1.protecttype = 206
            and     p1.action = p.action
            and     p1.id = p.id
            and     p1.uid = u.uid
            and     case
                when substring(p1.columns, 1, 1) & 1 is null then 255    /* all columns have permission */
                when substring(p1.columns, 1, 1) & 1 = 0 then convert(tinyint, substring(p1.columns, v.low, 1))
                                else (~convert(tinyint,coalesce(substring(p.columns, v.low, 1),0)))
                end & v.high <> 0)            /* permission applies to this column */
    union all
    select    /*    Add rows for table owner */
        GRANTOR        = user_name(u.uid),
        GRANTEE        = user_name(o.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(binary(16),null),
        COLUMN_PROPID    = convert(int,null),
        PRIVILEGE_TYPE    = convert(varchar(30),
                    case v.number
                    when 193 then 'SELECT'
                    when 195 then 'INSERT'
                    when 197 then 'UPDATE'
                    else 'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,1)
    from
        sysobjects o, master.dbo.spt_values v, sysusers u, syscolumns c
    where
        o.name = @table_name
    and     o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(o.uid))
    and    c.id = o.id
    and     (@column_name is null or @column_name = c.name)
    and     u.suid = 1        /* grantor is dbo of database */
    and    (@grantor is null or @grantor = user_name(u.uid))
    and     v.type = 'P'        /* cross product to get all exposed privileges */
    and     v.number in (26,193,195,197)
    and     not exists (        /* exclude revoke'd privileges */
            select *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = v.number
            and     p1.id = o.id
            and     p1.uid = o.uid)
    order by 4, 5, 6, 9, 1, 2
    END
ELSE
    BEGIN
    insert into #spcprivsrowset1
    select
        GRANTOR        = user_name(p.grantor),
        GRANTEE        = user_name(u.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(binary(16),null),
        COLUMN_PROPID    = convert(int,null),
        PRIVILEGE_TYPE    = convert(varchar(30),
                    case p.action
                    when 193 then 'SELECT'
                    when 195 then 'INSERT'
                    when 197 then 'UPDATE'
                    else 'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,case when p.protecttype = 205 then 0 else 1 end)
    from
        sysprotects p, sysobjects o, sysusers u, master.dbo.spt_values v, syscolumns c
    where
        o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    c.id = o.id
    and     (@column_name is null or @column_name = c.name)
    and     c.id = p.id
    and    (@grantor is null or @grantor = user_name(p.grantor))
    and     case
            when substring(p.columns, 1, 1) & 1 is null then 255    /* all columns have permission */
            when substring(p.columns, 1, 1) & 1 = 0 then convert(tinyint, substring(p.columns, v.low, 1))
            else (~convert(tinyint, coalesce(substring(p.columns, v.low, 1),0)))
            end & v.high <> 0            /* permission applies to this column */
    and     v.number <= (select count(*) from syscolumns where id = o.id)    /* ranges from 1 to # of columns in table */
    and     v.type = 'P'
    and     v.number = c.colid
    and    (@grantee is null or @grantee = user_name(u.uid))
            /* expand groups */
    and     ((p.uid = u.uid and u.uid <> u.gid) or (p.uid = u.gid and u.uid <> u.gid))
    and     p.protecttype <> 206    /* only grant rows */
    and     p.action in (26,193,195,197)
    and     o.uid <> u.uid            /* no rows for owner */
    and     not exists (            /* exclude revoke'd privileges */
            select *
            from sysprotects p1
            where
                p1.protecttype = 206
            and     p1.action = p.action
            and     p1.id = p.id
            and     p1.uid = u.uid
            and     case
                when substring(p1.columns, 1, 1) & 1 is null then 255    /* all columns have permission */
                when substring(p1.columns, 1, 1) & 1 = 0 then convert(tinyint, substring(p1.columns, v.low, 1))
                                else (~convert(tinyint,coalesce(substring(p.columns, v.low, 1),0)))
                end & v.high <> 0)            /* permission applies to this column */
    union all
    select    /*    Add rows for table owner */
        GRANTOR        = user_name(u.uid),
        GRANTEE        = user_name(o.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(binary(16),null),
        COLUMN_PROPID    = convert(int,null),
        PRIVILEGE_TYPE    = convert(varchar(30),
                    case v.number
                    when 193 then 'SELECT'
                    when 195 then 'INSERT'
                    when 197 then 'UPDATE'
                    else 'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,1)
    from
        sysobjects o, master.dbo.spt_values v, sysusers u, syscolumns c
    where
         o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(o.uid))
    and    c.id = o.id
    and     (@column_name is null or @column_name = c.name)
    and     u.suid = 1        /* grantor is dbo of database */
    and    (@grantor is null or @grantor = user_name(u.uid))
    and     v.type = 'P'        /* cross product to get all exposed privileges */
    and     v.number in (26,193,195,197)
    and     not exists (        /* exclude revoke'd privileges */
            select *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = v.number
            and     p1.id = o.id
            and     p1.uid = o.uid)
    order by 4, 5, 6, 9, 1, 2
    END

exec @ret = sp_cursoropen @handle output, 'select * from #spcprivsrowset1',
    @scrollopt output, @ccopt output, @rows output

drop table #spcprivsrowset1

return isnull(@ret,0)
go


if (charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
else
    drop proc sp_column_privileges_rowset
go


/*    Procedure for 7.0 server */
CREATE PROCEDURE sp_column_privileges_rowset
    (
    @table_name         sysname,
    @table_schema        sysname = null,
    @column_name        sysname = null,
    @grantor        sysname = null,
    @grantee        sysname = null
    )
as
    select
        GRANTOR        = user_name(p.grantor),
        GRANTEE        = user_name(u.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(uniqueidentifier,null),
        COLUMN_PROPID    = convert(int,null),
        PRIVILEGE_TYPE    = convert(nvarchar(30),
                    case p.action
                    when 193 then N'SELECT'
                    when 195 then N'INSERT'
                    when 197 then N'UPDATE'
                    else N'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,case when p.protecttype = 205 then 0 else 1 end)
    from
        sysprotects p, sysobjects o, sysusers u, master.dbo.spt_values v, syscolumns c, sysmembers m
    where
        o.name = @table_name
    and     o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    c.id = o.id
    and     (@column_name is null or @column_name = c.name)
    and     c.id = p.id
    and    (@grantor is null or @grantor = user_name(p.grantor))
    and     case
            when substring(p.columns, 1, 1) & 1 is null then 255    /* all columns have permission */
            when substring(p.columns, 1, 1) & 1 = 0 then convert(tinyint, substring(p.columns, v.low, 1))
            else (~convert(tinyint, coalesce(substring(p.columns, v.low, 1),0)))
            end & v.high <> 0            /* permission applies to this column */
    and     v.number <= (select count(*) from syscolumns where id = o.id)    /* ranges from 1 to # of columns in table */
    and     v.type = 'P'
    and     v.number = c.colid
    and    (@grantee is null or @grantee = user_name(u.uid))
        /* expand groups - AKUNDONE: only 1 level of group unrolling here. Need more?? */
    and     (u.uid > 0 and u.uid < 16384)
    and     ((p.uid = u.uid) or  (p.uid = m.groupuid and u.uid = m.memberuid))
    and     p.protecttype <> 206    /* only grant rows */
    and     p.action in (26,193,195,197)
    and     o.uid <> u.uid            /* no rows for owner */
    and     not exists (            /* exclude revoke'd privileges */
            select *
            from sysprotects p1
            where
                p1.protecttype = 206
            and     p1.action = p.action
            and     p1.id = p.id
            and     p1.uid = u.uid
            and     case
                when substring(p1.columns, 1, 1) & 1 is null then 255    /* all columns have permission */
                when substring(p1.columns, 1, 1) & 1 = 0 then convert(tinyint, substring(p1.columns, v.low, 1))
                                else (~convert(tinyint,coalesce(substring(p.columns, v.low, 1),0)))
                end & v.high <> 0)            /* permission applies to this column */
    union all
    select    /*    Add rows for table owner */
        GRANTOR        = user_name(u.uid),
        GRANTEE        = user_name(o.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(uniqueidentifier,null),
        COLUMN_PROPID    = convert(int,null),
        PRIVILEGE_TYPE    = convert(nvarchar(30),
                    case v.number
                    when 193 then N'SELECT'
                    when 195 then N'INSERT'
                    when 197 then N'UPDATE'
                    else N'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,1)
    from
        sysobjects o, master.dbo.spt_values v, sysusers u, syscolumns c
    where
        o.name = @table_name
    and     o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(o.uid))
    and    c.id = o.id
    and     (@column_name is null or @column_name = c.name)
    and     u.suid = 1        /* grantor is dbo of database */
    and    (@grantor is null or @grantor = user_name(u.uid))
    and     v.type = 'P'        /* cross product to get all exposed privileges */
    and     v.number in (26,193,195,197)
    and     not exists (        /* exclude revoke'd privileges */
            select *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = v.number
            and     p1.id = o.id
            and     p1.uid = o.uid)
    order by 4, 5, 6, 9, 1, 2
go
CREATE PROCEDURE sp_column_privileges_rowset;2
    (
    @table_schema        sysname = null,
    @column_name        sysname = null,
    @grantor        sysname = null,
    @grantee        sysname = null
    )
as
    select
        GRANTOR        = user_name(p.grantor),
        GRANTEE        = user_name(u.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(uniqueidentifier,null),
        COLUMN_PROPID    = convert(int,null),
        PRIVILEGE_TYPE    = convert(nvarchar(30),
                    case p.action
                    when 193 then N'SELECT'
                    when 195 then N'INSERT'
                    when 197 then N'UPDATE'
                    else N'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,case when p.protecttype = 205 then 0 else 1 end)
    from
        sysprotects p, sysobjects o, sysusers u, master.dbo.spt_values v, syscolumns c, sysmembers m
    where
        o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    c.id = o.id
    and     (@column_name is null or @column_name = c.name)
    and     c.id = p.id
    and    (@grantor is null or @grantor = user_name(p.grantor))
    and     case
            when substring(p.columns, 1, 1) & 1 is null then 255    /* all columns have permission */
            when substring(p.columns, 1, 1) & 1 = 0 then convert(tinyint, substring(p.columns, v.low, 1))
            else (~convert(tinyint, coalesce(substring(p.columns, v.low, 1),0)))
            end & v.high <> 0            /* permission applies to this column */
    and     v.number <= (select count(*) from syscolumns where id = o.id)    /* ranges from 1 to # of columns in table */
    and     v.type = 'P'
    and     v.number = c.colid
    and    (@grantee is null or @grantee = user_name(u.uid))
        /* expand groups - AKUNDONE: only 1 level of group unrolling here. Need more?? */
    and     (u.uid > 0 and u.uid < 16384)
    and     ((p.uid = u.uid) or  (p.uid = m.groupuid and u.uid = m.memberuid))
    and     p.protecttype <> 206    /* only grant rows */
    and     p.action in (26,193,195,197)
    and     o.uid <> u.uid            /* no rows for owner */
    and     not exists (            /* exclude revoke'd privileges */
            select *
            from sysprotects p1
            where
                p1.protecttype = 206
            and     p1.action = p.action
            and     p1.id = p.id
            and     p1.uid = u.uid
            and     case
                when substring(p1.columns, 1, 1) & 1 is null then 255    /* all columns have permission */
                when substring(p1.columns, 1, 1) & 1 = 0 then convert(tinyint, substring(p1.columns, v.low, 1))
                                else (~convert(tinyint,coalesce(substring(p.columns, v.low, 1),0)))
                end & v.high <> 0)            /* permission applies to this column */
    union all
    select    /*    Add rows for table owner */
        GRANTOR        = user_name(u.uid),
        GRANTEE        = user_name(o.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(uniqueidentifier,null),
        COLUMN_PROPID    = convert(int,null),
        PRIVILEGE_TYPE    = convert(nvarchar(30),
                    case v.number
                    when 193 then N'SELECT'
                    when 195 then N'INSERT'
                    when 197 then N'UPDATE'
                    else N'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,1)
    from
        sysobjects o, master.dbo.spt_values v, sysusers u, syscolumns c
    where
        o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(o.uid))
    and    c.id = o.id
    and     (@column_name is null or @column_name = c.name)
    and     u.suid = 1        /* grantor is dbo of database */
    and    (@grantor is null or @grantor = user_name(u.uid))
    and     v.type = 'P'        /* cross product to get all exposed privileges */
    and     v.number in (26,193,195,197)
    and     not exists (        /* exclude revoke'd privileges */
            select *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = v.number
            and     p1.id = o.id
            and     p1.uid = o.uid)
    order by 4, 5, 6, 9, 1, 2
go
CREATE PROCEDURE sp_column_privileges_rowset;3
    (
    @table_name         sysname = null,
    @table_schema        sysname = null,
    @column_name        sysname = null,
    @grantor        sysname = null,
    @grantee        sysname = null
    )
as
IF @table_name is not null
    BEGIN
    select
        GRANTOR        = user_name(p.grantor),
        GRANTEE        = user_name(u.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(uniqueidentifier,null),
        COLUMN_PROPID    = convert(int,null),
        PRIVILEGE_TYPE    = convert(nvarchar(30),
                    case p.action
                    when 193 then N'SELECT'
                    when 195 then N'INSERT'
                    when 197 then N'UPDATE'
                    else N'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,case when p.protecttype = 205 then 0 else 1 end)
    from
        sysprotects p, sysobjects o, sysusers u, master.dbo.spt_values v, syscolumns c, sysmembers m
    where
        o.name = @table_name
    and     o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    c.id = o.id
    and     (@column_name is null or @column_name = c.name)
    and     c.id = p.id
    and    (@grantor is null or @grantor = user_name(p.grantor))
    and     case
            when substring(p.columns, 1, 1) & 1 is null then 255    /* all columns have permission */
            when substring(p.columns, 1, 1) & 1 = 0 then convert(tinyint, substring(p.columns, v.low, 1))
            else (~convert(tinyint, coalesce(substring(p.columns, v.low, 1),0)))
            end & v.high <> 0            /* permission applies to this column */
    and     v.number <= (select count(*) from syscolumns where id = o.id)    /* ranges from 1 to # of columns in table */
    and     v.type = 'P'
    and     v.number = c.colid
    and    (@grantee is null or @grantee = user_name(u.uid))
        /* expand groups - AKUNDONE: only 1 level of group unrolling here. Need more?? */
    and     (u.uid > 0 and u.uid < 16384)
    and     ((p.uid = u.uid) or  (p.uid = m.groupuid and u.uid = m.memberuid))
    and     p.protecttype <> 206    /* only grant rows */
    and     p.action in (26,193,195,197)
    and     o.uid <> u.uid            /* no rows for owner */
    and     not exists (            /* exclude revoke'd privileges */
            select *
            from sysprotects p1
            where
                p1.protecttype = 206
            and     p1.action = p.action
            and     p1.id = p.id
            and     p1.uid = u.uid
            and     case
                when substring(p1.columns, 1, 1) & 1 is null then 255    /* all columns have permission */
                when substring(p1.columns, 1, 1) & 1 = 0 then convert(tinyint, substring(p1.columns, v.low, 1))
                                else (~convert(tinyint,coalesce(substring(p.columns, v.low, 1),0)))
                end & v.high <> 0)            /* permission applies to this column */
    union all
    select    /*    Add rows for table owner */
        GRANTOR        = user_name(u.uid),
        GRANTEE        = user_name(o.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(uniqueidentifier,null),
        COLUMN_PROPID    = convert(int,null),
        PRIVILEGE_TYPE    = convert(nvarchar(30),
                    case v.number
                    when 193 then N'SELECT'
                    when 195 then N'INSERT'
                    when 197 then N'UPDATE'
                    else N'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,1)
    from
        sysobjects o, master.dbo.spt_values v, sysusers u, syscolumns c
    where
        o.name = @table_name
    and     o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(o.uid))
    and    c.id = o.id
    and     (@column_name is null or @column_name = c.name)
    and     u.suid = 1        /* grantor is dbo of database */
    and    (@grantor is null or @grantor = user_name(u.uid))
    and     v.type = 'P'        /* cross product to get all exposed privileges */
    and     v.number in (26,193,195,197)
    and     not exists (        /* exclude revoke'd privileges */
            select *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = v.number
            and     p1.id = o.id
            and     p1.uid = o.uid)
    END
ELSE
    BEGIN
    select
        GRANTOR        = user_name(p.grantor),
        GRANTEE        = user_name(u.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(uniqueidentifier,null),
        COLUMN_PROPID    = convert(int,null),
        PRIVILEGE_TYPE    = convert(nvarchar(30),
                    case p.action
                    when 193 then N'SELECT'
                    when 195 then N'INSERT'
                    when 197 then N'UPDATE'
                    else N'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,case when p.protecttype = 205 then 0 else 1 end)
    from
        sysprotects p, sysobjects o, sysusers u, master.dbo.spt_values v, syscolumns c, sysmembers m
    where
        o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    c.id = o.id
    and     (@column_name is null or @column_name = c.name)
    and     c.id = p.id
    and    (@grantor is null or @grantor = user_name(p.grantor))
    and     case
            when substring(p.columns, 1, 1) & 1 is null then 255    /* all columns have permission */
            when substring(p.columns, 1, 1) & 1 = 0 then convert(tinyint, substring(p.columns, v.low, 1))
            else (~convert(tinyint, coalesce(substring(p.columns, v.low, 1),0)))
            end & v.high <> 0            /* permission applies to this column */
    and     v.number <= (select count(*) from syscolumns where id = o.id)    /* ranges from 1 to # of columns in table */
    and     v.type = 'P'
    and     v.number = c.colid
    and    (@grantee is null or @grantee = user_name(u.uid))
        /* expand groups - AKUNDONE: only 1 level of group unrolling here. Need more?? */
    and     (u.uid > 0 and u.uid < 16384)
    and     ((p.uid = u.uid) or  (p.uid = m.groupuid and u.uid = m.memberuid))
    and     p.protecttype <> 206    /* only grant rows */
    and     p.action in (26,193,195,197)
    and     o.uid <> u.uid            /* no rows for owner */
    and     not exists (            /* exclude revoke'd privileges */
            select *
            from sysprotects p1
            where
                p1.protecttype = 206
            and     p1.action = p.action
            and     p1.id = p.id
            and     p1.uid = u.uid
            and     case
                when substring(p1.columns, 1, 1) & 1 is null then 255    /* all columns have permission */
                when substring(p1.columns, 1, 1) & 1 = 0 then convert(tinyint, substring(p1.columns, v.low, 1))
                                else (~convert(tinyint,coalesce(substring(p.columns, v.low, 1),0)))
                end & v.high <> 0)            /* permission applies to this column */
    union all
    select    /*    Add rows for table owner */
        GRANTOR        = user_name(u.uid),
        GRANTEE        = user_name(o.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(uniqueidentifier,null),
        COLUMN_PROPID    = convert(int,null),
        PRIVILEGE_TYPE    = convert(nvarchar(30),
                    case v.number
                    when 193 then N'SELECT'
                    when 195 then N'INSERT'
                    when 197 then N'UPDATE'
                    else N'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,1)
    from
        sysobjects o, master.dbo.spt_values v, sysusers u, syscolumns c
    where
         o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(o.uid))
    and    c.id = o.id
    and     (@column_name is null or @column_name = c.name)
    and     u.suid = 1        /* grantor is dbo of database */
    and    (@grantor is null or @grantor = user_name(u.uid))
    and     v.type = 'P'        /* cross product to get all exposed privileges */
    and     v.number in (26,193,195,197)
    and     not exists (        /* exclude revoke'd privileges */
            select *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = v.number
            and     p1.id = o.id
            and     p1.uid = o.uid)
    END
go

create procedure sp_column_privileges_rowset;4
    (
       @handle        int output,
       @scrollopt    int output,
    @ccopt        int output,
    @rows        int output,
    @cmd        nvarchar(1200)
    )
as
    declare @ret int
    declare @database_name sysname
    declare @SQL nvarchar(1500)

    create table #spcprivsrowset
        (
        GRANTOR        sysname not null,
        GRANTEE        sysname not null,
        TABLE_CATALOG    sysname not null,
        TABLE_SCHEMA    sysname not null,
        TABLE_NAME    sysname not null,
        COLUMN_NAME    sysname not null,
        COLUMN_GUID    uniqueidentifier null,
        COLUMN_PROPID    int null,
        PRIVILEGE_TYPE    nvarchar(30) not null,
        IS_GRANTABLE    bit not null
        )

    declare sysdatabases_cursor insensitive cursor for
        select name from master.dbo.sysdatabases

    set nocount on
    open sysdatabases_cursor
      fetch next from sysdatabases_cursor into @database_name
    while @@fetch_status = 0
        begin
        select @SQL = N'use '+quotename(@database_name)+N' insert into #spcprivsrowset '+@cmd
        exec(@SQL)
        fetch next from sysdatabases_cursor into @database_name
        end
      close sysdatabases_cursor
    deallocate sysdatabases_cursor

    if @scrollopt is null
        begin
        select * from #spcprivsrowset order by 3,4,5,6,9,1,2
        end
    else
        begin
        exec @ret = sp_cursoropen @handle output,
            'select * from #spcprivsrowset order by 3,4,5,6,9,1,2',
                @scrollopt output, @ccopt output, @rows output
        end
    drop table #spcprivsrowset
    return isnull(@ret,0)
go
create procedure sp_column_privileges_rowset;5
    (
    @table_server        sysname,
    @table_catalog        sysname = null,
    @table_name        sysname = null,
    @table_schema        sysname = null,
    @column_name        sysname = null,
    @grantor        sysname = null,
    @grantee        sysname = null
    )
as
    select
        GRANTOR,
        GRANTEE,
        TABLE_CATALOG,
        TABLE_SCHEMA,
        TABLE_NAME,
        COLUMN_NAME,
        COLUMN_GUID,
        COLUMN_PROPID,
        PRIVILEGE_TYPE,
        IS_GRANTABLE
        from master.dbo.SYSREMOTE_COLUMN_PRIVILEGES <
                @table_server,
                @table_catalog,
                @table_schema,
                @table_name,
                @column_name,
                @grantor,
                @grantee>
    order by 3, 4, 5, 6, 9, 1, 2
go

grant execute on sp_column_privileges_rowset to public
go

dump tran master with no_log
go


print ''
print 'creating sp_columns_rowset'
go

/*    Procedure for 6.0 and 6.50 server */
create procedure sp_columns_rowset
    (
       @table_name    varchar(255),
    @table_schema     varchar(255) = null,
    @column_name    varchar(255) = null
    )
as
    select
        TABLE_CATALOG        = db_name(),
        TABLE_SCHEMA        = user_name(o.uid),
        TABLE_NAME        = o.name,
        COLUMN_NAME        = c.name,
        COLUMN_GUID        = convert(binary(16),null),
        COLUMN_PROPID        = convert(int,null),
        ORDINAL_POSITION    = convert(int,c.colid),
        COLUMN_HASDEFAULT    = convert(bit, case when m.text is null then 0 else 1 end),
        COLUMN_DEFAULT        = substring(m.text,2,datalength(m.text)-2),
        COLUMN_FLAGS        = convert(int,
                        case when d.is_long = 1
                        then 0x82 /*DBCOLUMNFLAGS_ISLONG|DBCOLUMNFLAGS_MAYDEFER*/
                        else 0
                        end
                    |    case when d.fixlen is not null
                        then 0x10 /*DBCOLUMNFLAGS_ISFIXEDLENGTH*/
                        else 0
                        end
                    |    case when c.status&8 = 8
                        then 0x20 /*DBCOLUMNFLAGS_ISNULLABLE*/
                        else 0
                        end
                    |    case
                        when d.type_name = 'timestamp'
                            then 0x200 /*DBCOLUMNFLAGS_ISROWVER*/
                        when (c.status&128) != 128
                            then 0x8 /*DBCOLUMNFLAGS_WRITEUNKNOWN*/
                        else 0
                        end),
        IS_NULLABLE        = convert(bit,c.status&8),
        DATA_TYPE        = d.oledb_data_type,
        TYPE_GUID        = convert(binary(16),null),
        CHARACTER_MAXIMUM_LENGTH= convert(int,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                        then coalesce(d.column_size,c.length)
                        else null
                        end),
        CHARACTER_OCTET_LENGTH    = convert(int,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                        then coalesce(d.column_size,c.length)
                        else null
                        end),
        NUMERIC_PRECISION    = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.prec else null end),
        NUMERIC_SCALE        = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.scale else null end),
        DATETIME_PRECISION    = convert(int,
                        case when d.oledb_data_type = 135 /*DBTYPE_DBTIMESTAMP*/ then 3 else null end),
        CHARACTER_SET_CATALOG    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then 'master'
                        else null
                        end),
        CHARACTER_SET_SCHEMA    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then 'dbo'
                        else null
                        end),
        CHARACTER_SET_NAME    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then a_cha.name
                        else null
                        end),
        COLLATION_CATALOG    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then 'master'
                        else null
                        end),
        COLLATION_SCHEMA    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then 'dbo'
                        else null
                        end),
        COLLATION_NAME        = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then b_cha.name
                        else null
                        end),
        DOMAIN_CATALOG        = case when t.usertype < 256 then null else db_name() end,
        DOMAIN_SCHEMA        = case when t.usertype < 256 then null else user_name(o.uid) end,
        DOMAIN_NAME        = case when t.usertype < 256 then null else t.name end,
        DESCRIPTION        = convert(varchar(1),null)

    from
        syscolumns c,
        syscomments m,
        sysobjects o,
        master.dbo.spt_provider_types d,
        systypes t,
        sysusers u,
        master.dbo.sysconfigures    cfg,
        master.dbo.syscharsets        a_cha, /* charset/1001, not sortorder. */
        master.dbo.syscharsets        b_cha  /* sortorder/2001, not charset. */
    where
        o.name = @table_name
    and     o.type in ('U','V','S')
    and     u.uid = user_id() /* constrain sysusers uid for use in subquery */
    and     (
        suser_id() = 1     /* User is the System Administrator */
        or o.uid = user_id()     /* User created the object */
        /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
        or (    (select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
            from sysprotects p
            where p.id = o.id
            /* get rows for public,current user,user's group */
            and (p.uid = 0 or p.uid = user_id() or p.uid = u.gid)
            /* check for SELECT,EXECUTE privilege */
            and (action in (193,224)))&1     /* more magic...normalize GRANT */
            ) = 1    /* final magic...compare Grants      */
           )
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@column_name is null or @column_name = c.name)
    and     o.id = c.id
    and     t.type = d.ss_dtype
    and    (t.usertype != 80 or d.type_name='timestamp')
    and     c.length = case when d.fixlen > 0 then d.fixlen else c.length end
    and     c.usertype = t.usertype
    and    c.cdefault *= m.id
    and    m.colid = 1
    and    cfg.comment = 'default sortorder ID'
    and    a_cha.type = 1001 /* type is charset */
    and    b_cha.type = 2001 /* type is sortorder */
    and    a_cha.id = b_cha.csid
    and     b_cha.id = cfg.value
    order by 2, 3, 7
go
create procedure sp_columns_rowset;2
    (
    @table_schema     varchar(255) = null,
    @column_name    varchar(255) = null
    )
as
    select
        TABLE_CATALOG        = db_name(),
        TABLE_SCHEMA        = user_name(o.uid),
        TABLE_NAME        = o.name,
        COLUMN_NAME        = c.name,
        COLUMN_GUID        = convert(binary(16),null),
        COLUMN_PROPID        = convert(int,null),
        ORDINAL_POSITION    = convert(int,c.colid),
        COLUMN_HASDEFAULT    = convert(bit, case when m.text is null then 0 else 1 end),
        COLUMN_DEFAULT        = substring(m.text,2,datalength(m.text)-2),
        COLUMN_FLAGS        = convert(int,
                        case when d.is_long = 1
                        then 0x82 /*DBCOLUMNFLAGS_ISLONG|DBCOLUMNFLAGS_MAYDEFER*/
                        else 0
                        end
                    |    case when d.fixlen is not null
                        then 0x10 /*DBCOLUMNFLAGS_ISFIXEDLENGTH*/
                        else 0
                        end
                    |    case when c.status&8 = 8
                        then 0x20 /*DBCOLUMNFLAGS_ISNULLABLE*/
                        else 0
                        end
                    |    case
                        when d.type_name = 'timestamp'
                            then 0x200 /*DBCOLUMNFLAGS_ISROWVER*/
                        when (c.status&128) != 128
                            then 0x8 /*DBCOLUMNFLAGS_WRITEUNKNOWN*/
                        else 0
                        end),
        IS_NULLABLE        = convert(bit,c.status&8),
        DATA_TYPE        = d.oledb_data_type,
        TYPE_GUID        = convert(binary(16),null),
        CHARACTER_MAXIMUM_LENGTH= convert(int,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                        then coalesce(d.column_size,c.length)
                        else null
                        end),
        CHARACTER_OCTET_LENGTH    = convert(int,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                        then coalesce(d.column_size,c.length)
                        else null
                        end),
        NUMERIC_PRECISION    = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.prec else null end),
        NUMERIC_SCALE        = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.scale else null end),
        DATETIME_PRECISION    = convert(int,
                        case when d.oledb_data_type = 135 /*DBTYPE_DBTIMESTAMP*/ then 3 else null end),
        CHARACTER_SET_CATALOG    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then 'master'
                        else null
                        end),
        CHARACTER_SET_SCHEMA    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then 'dbo'
                        else null
                        end),
        CHARACTER_SET_NAME    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then a_cha.name
                        else null
                        end),
        COLLATION_CATALOG    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then 'master'
                        else null
                        end),
        COLLATION_SCHEMA    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then 'dbo'
                        else null
                        end),
        COLLATION_NAME        = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then b_cha.name
                        else null
                        end),
        DOMAIN_CATALOG        = case when t.usertype < 256 then null else db_name() end,
        DOMAIN_SCHEMA        = case when t.usertype < 256 then null else user_name(o.uid) end,
        DOMAIN_NAME        = case when t.usertype < 256 then null else t.name end,
        DESCRIPTION        = convert(varchar(1),null)

    from
        syscolumns c,
        syscomments m,
        sysobjects o,
        master.dbo.spt_provider_types d,
        systypes t,
        sysusers u,
        master.dbo.sysconfigures    cfg,
        master.dbo.syscharsets        a_cha, /* charset/1001, not sortorder. */
        master.dbo.syscharsets        b_cha /* sortorder/2001, not charset. */
    where
         o.type in ('U','V','S')
    and     u.uid = user_id() /* constrain sysusers uid for use in subquery */
    and     (
        suser_id() = 1     /* User is the System Administrator */
        or o.uid = user_id()     /* User created the object */
        /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
        or (    (select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
            from sysprotects p
            where p.id = o.id
            /* get rows for public,current user,user's group */
            and (p.uid = 0 or p.uid = user_id() or p.uid = u.gid)
            /* check for SELECT,EXECUTE privilege */
            and (action in (193,224)))&1     /* more magic...normalize GRANT */
            ) = 1    /* final magic...compare Grants      */
           )
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@column_name is null or @column_name = c.name)
    and     o.id = c.id
    and     t.type = d.ss_dtype
    and    (t.usertype != 80 or d.type_name='timestamp')
    and     c.length = case when d.fixlen > 0 then d.fixlen else c.length end
    and     c.usertype = t.usertype
    and    c.cdefault *= m.id
    and     m.colid = 1
    and    cfg.comment = 'default sortorder ID'
    and    a_cha.type = 1001 /* type is charset */
    and    b_cha.type = 2001 /* type is sortorder */
    and    a_cha.id = b_cha.csid
    and     b_cha.id = cfg.value
    order by 2, 3, 7
go

if (charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
else
    drop proc sp_columns_rowset
go

/*    Procedure for 7.0 server */
create procedure sp_columns_rowset
    (
       @table_name    sysname,
    @table_schema     sysname = NULL,
    @column_name    sysname = NULL
    )
as
    select
        TABLE_CATALOG        = db_name(),
        TABLE_SCHEMA        = user_name(o.uid),
        TABLE_NAME        = o.name,
        COLUMN_NAME        = c.name,
        COLUMN_GUID        = convert(uniqueidentifier,null),
        COLUMN_PROPID        = convert(int,null),
        ORDINAL_POSITION    = convert(int,c.colid),
        COLUMN_HASDEFAULT    = convert(bit, case when m.text is null then 0 else 1 end),
        COLUMN_DEFAULT        = convert(nvarchar(2000),
                        substring(m.text,2,datalength(m.text)/2-2)),
        COLUMN_FLAGS        = convert(int,
                        case when d.is_long = 1
                        then 0x82 /*DBCOLUMNFLAGS_ISLONG|DBCOLUMNFLAGS_MAYDEFER*/
                        else 0
                        end
                    |    case when d.fixlen is not null
                        then 0x10 /*DBCOLUMNFLAGS_ISFIXEDLENGTH*/
                        else 0
                        end
                    |    case when ColumnProperty(c.id,c.name,'AllowsNull') = 1
                        then 0x20 /*DBCOLUMNFLAGS_ISNULLABLE*/
                        else 0
                        end
                    |    case
                        when d.type_name = 'timestamp'
                            then 0x200 /*DBCOLUMNFLAGS_ISROWVER*/
                        when (c.status&128) != 128  and permissions(o.id,c.name)&2 = 2
                            then 0x4 /*DBCOLUMNFLAGS_WRITE*/
                        else 0
                        end),
        IS_NULLABLE        = convert(bit,ColumnProperty(c.id,c.name,'AllowsNull')),
        DATA_TYPE        = d.oledb_data_type,
        TYPE_GUID        = convert(uniqueidentifier,null),
        CHARACTER_MAXIMUM_LENGTH= convert(int,
                        case
                        when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                        then coalesce(d.column_size,c.length)
                        when d.oledb_data_type = 130 /*DBTYPE_WSTR*/
                        then coalesce(d.column_size,c.length/2)
                        else null
                        end),
        CHARACTER_OCTET_LENGTH    = convert(int,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                            or d.oledb_data_type = 130 /*DBTYPE_WSTR*/
                        then coalesce(d.column_size,c.length)
                        else null
                        end),
        NUMERIC_PRECISION    = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.xprec else null end),
        NUMERIC_SCALE        = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.scale else null end),
        DATETIME_PRECISION    = convert(int,
                        case when d.oledb_data_type = 135 /*DBTYPE_DBTIMESTAMP*/ then 3 else null end),
        CHARACTER_SET_CATALOG    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then N'master'
                        else null
                        end),
        CHARACTER_SET_SCHEMA    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then N'dbo'
                        else null
                        end),
        CHARACTER_SET_NAME    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then a_cha.name
                        else null
                        end),
        COLLATION_CATALOG    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then N'master'
                        else null
                        end),
        COLLATION_SCHEMA    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then N'dbo'
                        else null
                        end),
        COLLATION_NAME        = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then b_cha.name
                        else null
                        end),
        DOMAIN_CATALOG        = case when t.usertype < 256 then null else db_name() end,
        DOMAIN_SCHEMA        = case when t.usertype < 256 then null else user_name(o.uid) end,
        DOMAIN_NAME        = case when t.usertype < 256 then null else t.name end,
        DESCRIPTION        = convert(nvarchar(1),null)

    from
        syscolumns c left join syscomments m on c.cdefault = m.id and m.colid = 1,
        sysobjects o,
        master.dbo.spt_provider_types d,
        systypes t,
        master.dbo.sysconfigures    cfg,
        master.dbo.syscharsets        a_cha, /* charset/1001, not sortorder. */
        master.dbo.syscharsets        b_cha /* sortorder/2001, not charset. */
    where
        permissions(o.id, c.name) <> 0
    and    o.name = @table_name
    and     o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@column_name is null or @column_name = c.name)
    and     o.id = c.id
    and     t.xtype = d.ss_dtype
    and     c.length = case when d.fixlen > 0 then d.fixlen else c.length end
    and     c.xusertype = t.xusertype
    and    cfg.comment = 'default sortorder ID'
    and    a_cha.type = 1001 /* type is charset */
    and    b_cha.type = 2001 /* type is sortorder */
    and    a_cha.id = b_cha.csid
    and     b_cha.id = cfg.value
    order by 2, 3, 7
go
create procedure sp_columns_rowset;2
    (
    @table_schema     sysname = NULL,
    @column_name    sysname = NULL
    )
as
    select
        TABLE_CATALOG        = db_name(),
        TABLE_SCHEMA        = user_name(o.uid),
        TABLE_NAME        = o.name,
        COLUMN_NAME        = c.name,
        COLUMN_GUID        = convert(uniqueidentifier,null),
        COLUMN_PROPID        = convert(int,null),
        ORDINAL_POSITION    = convert(int,c.colid),
        COLUMN_HASDEFAULT    = convert(bit, case when m.text is null then 0 else 1 end),
        COLUMN_DEFAULT        = convert(nvarchar(2000),
                        substring(m.text,2,datalength(m.text)/2-2)),
        COLUMN_FLAGS        = convert(int,
                        case when d.is_long = 1
                        then 0x82 /*DBCOLUMNFLAGS_ISLONG|DBCOLUMNFLAGS_MAYDEFER*/
                        else 0
                        end
                    |    case when d.fixlen is not null
                        then 0x10 /*DBCOLUMNFLAGS_ISFIXEDLENGTH*/
                        else 0
                        end
                    |    case when ColumnProperty(c.id,c.name,'AllowsNull') = 1
                        then 0x20 /*DBCOLUMNFLAGS_ISNULLABLE*/
                        else 0
                        end
                    |    case
                        when d.type_name = 'timestamp'
                            then 0x200 /*DBCOLUMNFLAGS_ISROWVER*/
                        when (c.status&128) != 128 and permissions(o.id,c.name)&2 = 2
                            then 0x4 /*DBCOLUMNFLAGS_WRITE*/
                        else 0
                        end),
        IS_NULLABLE        = convert(bit,ColumnProperty(c.id,c.name,'AllowsNull')),
        DATA_TYPE        = d.oledb_data_type,
        TYPE_GUID        = convert(uniqueidentifier,null),
        CHARACTER_MAXIMUM_LENGTH= convert(int,
                        case
                        when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                        then coalesce(d.column_size,c.length)
                        when d.oledb_data_type = 130 /*DBTYPE_WSTR*/
                        then coalesce(d.column_size,c.length/2)
                        else null
                        end),
        CHARACTER_OCTET_LENGTH    = convert(int,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                            or d.oledb_data_type = 130 /*DBTYPE_WSTR*/
                        then coalesce(d.column_size,c.length)
                        else null
                        end),
        NUMERIC_PRECISION    = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.xprec else null end),
        NUMERIC_SCALE        = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.scale else null end),
        DATETIME_PRECISION    = convert(int,
                        case when d.oledb_data_type = 135 /*DBTYPE_DBTIMESTAMP*/ then 3 else null end),
        CHARACTER_SET_CATALOG    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then N'master'
                        else null
                        end),
        CHARACTER_SET_SCHEMA    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then N'dbo'
                        else null
                        end),
        CHARACTER_SET_NAME    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then a_cha.name
                        else null
                        end),
        COLLATION_CATALOG    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then N'master'
                        else null
                        end),
        COLLATION_SCHEMA    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then N'dbo'
                        else null
                        end),
        COLLATION_NAME        = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then b_cha.name
                        else null
                        end),
        DOMAIN_CATALOG        = case when t.usertype < 256 then null else db_name() end,
        DOMAIN_SCHEMA        = case when t.usertype < 256 then null else user_name(o.uid) end,
        DOMAIN_NAME        = case when t.usertype < 256 then null else t.name end,
        DESCRIPTION        = convert(nvarchar(1),null)

    from
        syscolumns c left join syscomments m on c.cdefault = m.id and m.colid = 1,
        sysobjects o,
        master.dbo.spt_provider_types d,
        systypes t,
        master.dbo.sysconfigures    cfg,
        master.dbo.syscharsets        a_cha, /* charset/1001, not sortorder.*/
        master.dbo.syscharsets        b_cha /* sortorder/2001, not charset.*/
    where
        permissions(o.id, c.name) <> 0
    and     o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@column_name is null or @column_name = c.name)
    and     o.id = c.id
    and     t.xtype = d.ss_dtype
    and     c.length = case when d.fixlen > 0 then d.fixlen else c.length end
    and     c.xusertype = t.xusertype
    and    cfg.comment = 'default sortorder ID'
    and a_cha.type = 1001 /* type is charset */
    and b_cha.type = 2001 /* type is sortorder */
    and    a_cha.id = b_cha.csid
    and     b_cha.id = cfg.value
    order by 2, 3, 7
go
create procedure sp_columns_rowset;3
    (
       @table_name    sysname = NULL,
    @table_schema     sysname = NULL,
    @column_name    sysname = NULL
    )
as
IF @table_name is not null
    BEGIN
    select
        TABLE_CATALOG        = db_name(),
        TABLE_SCHEMA        = user_name(o.uid),
        TABLE_NAME        = o.name,
        COLUMN_NAME        = c.name,
        COLUMN_GUID        = convert(uniqueidentifier,null),
        COLUMN_PROPID        = convert(int,null),
        ORDINAL_POSITION    = convert(int,c.colid),
        COLUMN_HASDEFAULT    = convert(bit, case when m.text is null then 0 else 1 end),
        COLUMN_DEFAULT        = convert(nvarchar(2000),
                        substring(m.text,2,datalength(m.text)/2-2)),
        COLUMN_FLAGS        = convert(int,
                        case when d.is_long = 1
                        then 0x82 /*DBCOLUMNFLAGS_ISLONG|DBCOLUMNFLAGS_MAYDEFER*/
                        else 0
                        end
                    |    case when d.fixlen is not null
                        then 0x10 /*DBCOLUMNFLAGS_ISFIXEDLENGTH*/
                        else 0
                        end
                    |    case when ColumnProperty(c.id,c.name,'AllowsNull') = 1
                        then 0x20 /*DBCOLUMNFLAGS_ISNULLABLE*/
                        else 0
                        end
                    |    case
                        when d.type_name = 'timestamp'
                            then 0x200 /*DBCOLUMNFLAGS_ISROWVER*/
                        when (c.status&128) != 128 and permissions(o.id,c.name)&2 = 2
                            then 0x4 /*DBCOLUMNFLAGS_WRITE*/
                        else 0
                        end),
        IS_NULLABLE        = convert(bit,ColumnProperty(c.id,c.name,'AllowsNull')),
        DATA_TYPE        = d.oledb_data_type,
        TYPE_GUID        = convert(uniqueidentifier,null),
        CHARACTER_MAXIMUM_LENGTH= convert(int,
                        case
                        when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                        then coalesce(d.column_size,c.length)
                        when d.oledb_data_type = 130 /*DBTYPE_WSTR*/
                        then coalesce(d.column_size,c.length/2)
                        else null
                        end),
        CHARACTER_OCTET_LENGTH    = convert(int,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                            or d.oledb_data_type = 130 /*DBTYPE_WSTR*/
                        then coalesce(d.column_size,c.length)
                        else null
                        end),
        NUMERIC_PRECISION    = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.xprec else null end),
        NUMERIC_SCALE        = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.scale else null end),
        DATETIME_PRECISION    = convert(int,
                        case when d.oledb_data_type = 135 /*DBTYPE_DBTIMESTAMP*/ then 3 else null end),
        CHARACTER_SET_CATALOG    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then N'master'
                        else null
                        end),
        CHARACTER_SET_SCHEMA    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then N'dbo'
                        else null
                        end),
        CHARACTER_SET_NAME    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then a_cha.name
                        else null
                        end),
        COLLATION_CATALOG    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then N'master'
                        else null
                        end),
        COLLATION_SCHEMA    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then N'dbo'
                        else null
                        end),
        COLLATION_NAME        = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then b_cha.name
                        else null
                        end),
        DOMAIN_CATALOG        = case when t.usertype < 256 then null else db_name() end,
        DOMAIN_SCHEMA        = case when t.usertype < 256 then null else user_name(o.uid) end,
        DOMAIN_NAME        = case when t.usertype < 256 then null else t.name end,
        DESCRIPTION        = convert(nvarchar(1),null)

    from
        syscolumns c left join syscomments m on c.cdefault = m.id and m.colid = 1,
        sysobjects o,
        master.dbo.spt_provider_types d,
        systypes t,
        master.dbo.sysconfigures    cfg,
        master.dbo.syscharsets        a_cha, /*charset/1001, not sortorder.*/
        master.dbo.syscharsets        b_cha /*sortorder/2001, not charset.*/
    where
        permissions(o.id, c.name) <> 0
    and    o.name = @table_name
    and     o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@column_name is null or @column_name = c.name)
    and     o.id = c.id
    and     t.xtype = d.ss_dtype
    and     c.length = case when d.fixlen > 0 then d.fixlen else c.length end
    and     c.xusertype = t.xusertype
    and    cfg.comment = 'default sortorder ID'
    and    a_cha.type = 1001 /* type is charset */
    and    b_cha.type = 2001 /* type is sortorder */
    and    a_cha.id = b_cha.csid
    and     b_cha.id = cfg.value
    END
ELSE
    BEGIN
    select
        TABLE_CATALOG        = db_name(),
        TABLE_SCHEMA        = user_name(o.uid),
        TABLE_NAME        = o.name,
        COLUMN_NAME        = c.name,
        COLUMN_GUID        = convert(uniqueidentifier,null),
        COLUMN_PROPID        = convert(int,null),
        ORDINAL_POSITION    = convert(int,c.colid),
        COLUMN_HASDEFAULT    = convert(bit, case when m.text is null then 0 else 1 end),
        COLUMN_DEFAULT        = convert(nvarchar(2000),
                        substring(m.text,2,datalength(m.text)/2-2)),
        COLUMN_FLAGS        = convert(int,
                        case when d.is_long = 1
                        then 0x82 /*DBCOLUMNFLAGS_ISLONG|DBCOLUMNFLAGS_MAYDEFER*/
                        else 0
                        end
                    |    case when d.fixlen is not null
                        then 0x10 /*DBCOLUMNFLAGS_ISFIXEDLENGTH*/
                        else 0
                        end
                    |    case when ColumnProperty(c.id,c.name,'AllowsNull') = 1
                        then 0x20 /*DBCOLUMNFLAGS_ISNULLABLE*/
                        else 0
                        end
                    |    case
                        when d.type_name = 'timestamp'
                            then 0x200 /*DBCOLUMNFLAGS_ISROWVER*/
                        when (c.status&128) != 128 and permissions(o.id,c.name)&2 = 2
                            then 0x4 /*DBCOLUMNFLAGS_WRITE*/
                        else 0
                        end),
        IS_NULLABLE        = convert(bit,ColumnProperty(c.id,c.name,'AllowsNull')),
        DATA_TYPE        = d.oledb_data_type,
        TYPE_GUID        = convert(uniqueidentifier,null),
        CHARACTER_MAXIMUM_LENGTH= convert(int,
                        case
                        when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                        then coalesce(d.column_size,c.length)
                        when d.oledb_data_type = 130 /*DBTYPE_WSTR*/
                        then coalesce(d.column_size,c.length/2)
                        else null
                        end),
        CHARACTER_OCTET_LENGTH    = convert(int,
                        case
                        when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                            or d.oledb_data_type = 130 /*DBTYPE_WSTR*/
                        then coalesce(d.column_size,c.length)
                        else null
                        end),
        NUMERIC_PRECISION    = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.xprec else null end),
        NUMERIC_SCALE        = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.scale else null end),
        DATETIME_PRECISION    = convert(int,
                        case when d.oledb_data_type = 135 /*DBTYPE_DBTIMESTAMP*/ then 3 else null end),
        CHARACTER_SET_CATALOG    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then N'master'
                        else null
                        end),
        CHARACTER_SET_SCHEMA    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then N'dbo'
                        else null
                        end),
        CHARACTER_SET_NAME    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then a_cha.name
                        else null
                        end),
        COLLATION_CATALOG    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then N'master'
                        else null
                        end),
        COLLATION_SCHEMA    = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then N'dbo'
                        else null
                        end),
        COLLATION_NAME        = convert(sysname,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                        then b_cha.name
                        else null
                        end),
        DOMAIN_CATALOG        = case when t.usertype < 256 then null else db_name() end,
        DOMAIN_SCHEMA        = case when t.usertype < 256 then null else user_name(o.uid) end,
        DOMAIN_NAME        = case when t.usertype < 256 then null else t.name end,
        DESCRIPTION        = convert(nvarchar(1),null)

    from
        syscolumns c left join syscomments m on c.cdefault = m.id and m.colid = 1,
        sysobjects o,
        master.dbo.spt_provider_types d,
        systypes t,
        master.dbo.sysconfigures    cfg,
        master.dbo.syscharsets        a_cha, /*charset/1001, not sortorder.*/
        master.dbo.syscharsets        b_cha /*sortorder/2001, not charset.*/
    where
        permissions(o.id, c.name) <> 0
    and     o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@column_name is null or @column_name = c.name)
    and     o.id = c.id
    and     t.xtype = d.ss_dtype
    and     c.length = case when d.fixlen > 0 then d.fixlen else c.length end
    and     c.xusertype = t.xusertype
    and    cfg.comment = 'default sortorder ID'
    and a_cha.type = 1001 /* type is charset */
    and b_cha.type = 2001 /* type is sortorder */
    and    a_cha.id = b_cha.csid
    and     b_cha.id = cfg.value
END
go
create procedure sp_columns_rowset;4
    (

       @handle        int output,
       @scrollopt    int output,
    @ccopt        int output,
    @rows        int output,
    @cmd        nvarchar(1200)
    )
as
    declare @ret int
    declare @database_name sysname
    declare @SQL nvarchar(1500)

    create table #spcolumnsrowset
        (
        TABLE_CATALOG        sysname not null,
        TABLE_SCHEMA        sysname not null,
        TABLE_NAME        sysname not null,
        COLUMN_NAME        sysname not null,
        COLUMN_GUID        uniqueidentifier null,
        COLUMN_PROPID        int null,
        ORDINAL_POSITION    int not null,
        COLUMN_HASDEFAULT    bit not null,
        COLUMN_DEFAULT        nvarchar(2000) null,
        COLUMN_FLAGS        int not null,
        IS_NULLABLE        bit not null,
        DATA_TYPE        smallint not null,
        TYPE_GUID        uniqueidentifier null,
        CHARACTER_MAXIMUM_LENGTH int null,
        CHARACTER_OCTET_LENGTH    int null,
        NUMERIC_PRECISION    smallint null,
        NUMERIC_SCALE        smallint null,
        DATETIME_PRECISION    int null,
        CHARACTER_SET_CATALOG    sysname null,
        CHARACTER_SET_SCHEMA    sysname null,
        CHARACTER_SET_NAME    sysname null,
        COLLATION_CATALOG    sysname null,
        COLLATION_SCHEMA    sysname null,
        COLLATION_NAME        sysname null,
        DOMAIN_CATALOG        sysname null,
        DOMAIN_SCHEMA        sysname null,
        DOMAIN_NAME        sysname null,
        DESCRIPTION        nvarchar(1) null
        )

    declare sysdatabases_cursor insensitive cursor for
        select name from master.dbo.sysdatabases

    set nocount on
    open sysdatabases_cursor
      fetch next from sysdatabases_cursor into @database_name
    while @@fetch_status = 0
        begin
        select @SQL = N'use '+quotename(@database_name)+N' insert into #spcolumnsrowset '+@cmd
        exec(@SQL)
        fetch next from sysdatabases_cursor into @database_name
        end
      close sysdatabases_cursor
    deallocate sysdatabases_cursor

    if @scrollopt is null
        begin
        select * from #spcolumnsrowset order by 1,2,3,7
        end
    else
        begin
        exec @ret = sp_cursoropen @handle output,
            'select * from #spcolumnsrowset order by 1,2,3,7',
                @scrollopt output, @ccopt output, @rows output
        end
    drop table #spcolumnsrowset
    return coalesce(@ret,0)
go
create procedure sp_columns_rowset;5
    (
    @table_server        sysname,
    @table_catalog        sysname = null,
    @table_name        sysname = null,
    @table_schema        sysname = null,
    @column_name        sysname = null
    )
as
    select
        TABLE_CATALOG,
        TABLE_SCHEMA,
        TABLE_NAME,
        COLUMN_NAME,
        COLUMN_GUID,
        COLUMN_PROPID,
        ORDINAL_POSITION,
        COLUMN_HASDEFAULT,
        COLUMN_DEFAULT,
        COLUMN_FLAGS,
        IS_NULLABLE,
        DATA_TYPE,
        TYPE_GUID,
        CHARACTER_MAXIMUM_LENGTH,
        CHARACTER_OCTET_LENGTH,
        NUMERIC_PRECISION,
        NUMERIC_SCALE,
        DATETIME_PRECISION,
        CHARACTER_SET_CATALOG,
        CHARACTER_SET_SCHEMA,
        CHARACTER_SET_NAME,
        COLLATION_CATALOG,
        COLLATION_SCHEMA,
        COLLATION_NAME,
        DOMAIN_CATALOG,
        DOMAIN_SCHEMA,
        DOMAIN_NAME,
        DESCRIPTION
    from master.dbo.SYSREMOTE_COLUMNS <
                @table_server,
                @table_catalog,
                @table_schema,
                @table_name,
                @column_name >
    order by 1, 2, 3, 7
go

grant execute on sp_columns_rowset to public
go

dump tran master with no_log
go


print ''
print 'creating sp_foreign_keys_rowset'
go

/*    Procedure for 6.0 and 6.5 server */
CREATE PROCEDURE sp_foreign_keys_rowset
    (
     @pk_table_name        varchar(255) = null,
    @pk_table_schema    varchar(255) = null,
    @pk_table_catalog    varchar(255) = null,
    @fk_table_name        varchar(255) = null,
    @fk_table_schema    varchar(255) = null,
    @fk_table_catalog    varchar(255) = null
    )
as
IF @pk_table_name is not null
    BEGIN
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,1),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    o1.id = c1.id
    and    c1.colid = r.rkey1
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey1
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,2),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    o1.id = c1.id
    and    c1.colid = r.rkey2
    and    r.keycnt >= 2
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey2
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,3),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    o1.id = c1.id
    and    c1.colid = r.rkey3
    and    r.keycnt >= 3
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey3
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,4),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 4
    and    o1.id = c1.id
    and    c1.colid = r.rkey4
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey4
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,5),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 5
    and    o1.id = c1.id
    and    c1.colid = r.rkey5
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey5
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,6),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 6
    and    o1.id = c1.id
    and    c1.colid = r.rkey6
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey6
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,7),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 7
    and    o1.id = c1.id
    and    c1.colid = r.rkey7
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey7
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,8),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 8
    and    o1.id = c1.id
    and    c1.colid = r.rkey8
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey8
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,9),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 9
    and    o1.id = c1.id
    and    c1.colid = r.rkey9
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey9
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,10),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 10
    and    o1.id = c1.id
    and    c1.colid = r.rkey10
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey10
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,11),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 11
    and    o1.id = c1.id
    and    c1.colid = r.rkey11
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey11
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,12),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 12
    and    o1.id = c1.id
    and    c1.colid = r.rkey12
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey12
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,13),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 13
    and    o1.id = c1.id
    and    c1.colid = r.rkey13
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey13
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,14),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 14
    and    o1.id = c1.id
    and    c1.colid = r.rkey14
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey14
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,15),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 15
    and    o1.id = c1.id
    and    c1.colid = r.rkey15
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey15
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,16),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 16
    and    o1.id = c1.id
    and    c1.colid = r.rkey16
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey16
    order by 8,9,2,3,13
    END
ELSE IF @fk_table_name is not null
    BEGIN
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,1),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    o2.id = c2.id
    and    c2.colid = r.fkey1
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey1
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,2),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 2
    and    o2.id = c2.id
    and    c2.colid = r.fkey2
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey2
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,3),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 3
    and    o2.id = c2.id
    and    c2.colid = r.fkey3
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey3
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,4),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 4
    and    o2.id = c2.id
    and    c2.colid = r.fkey4
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey4
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,5),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 5
    and    o2.id = c2.id
    and    c2.colid = r.fkey5
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey5
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,6),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 6
    and    o2.id = c2.id
    and    c2.colid = r.fkey6
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey6
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,7),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 7
    and    o2.id = c2.id
    and    c2.colid = r.fkey7
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey7
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,8),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 8
    and    o2.id = c2.id
    and    c2.colid = r.fkey8
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey8
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,9),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 9
    and    o2.id = c2.id
    and    c2.colid = r.fkey9
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey9
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,10),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 10
    and    o2.id = c2.id
    and    c2.colid = r.fkey10
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey10
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,11),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 11
    and    o2.id = c2.id
    and    c2.colid = r.fkey11
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey11
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,12),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 12
    and    o2.id = c2.id
    and    c2.colid = r.fkey12
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey12
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,13),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 13
    and    o2.id = c2.id
    and    c2.colid = r.fkey13
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey13
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,14),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 14
    and    o2.id = c2.id
    and    c2.colid = r.fkey14
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey14
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,15),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 15
    and    o2.id = c2.id
    and    c2.colid = r.fkey15
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey15
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,16),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 16
    and    o2.id = c2.id
    and    c2.colid = r.fkey16
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey16
    order by 8,9,2,3,13
    END
ELSE
    BEGIN
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,1),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    o1.id = c1.id
    and    c1.colid = r.rkey1
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey1
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,2),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 2
    and    o1.id = c1.id
    and    c1.colid = r.rkey2
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey2
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,3),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 3
    and    o1.id = c1.id
    and    c1.colid = r.rkey3
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey3
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,4),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 4
    and    o1.id = c1.id
    and    c1.colid = r.rkey4
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey4
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,5),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 5
    and    o1.id = c1.id
    and    c1.colid = r.rkey5
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey5
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,6),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 6
    and    o1.id = c1.id
    and    c1.colid = r.rkey6
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey6
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,7),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 7
    and    o1.id = c1.id
    and    c1.colid = r.rkey7
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey7
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,8),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 8
    and    o1.id = c1.id
    and    c1.colid = r.rkey8
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey8
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,9),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 9
    and    o1.id = c1.id
    and    c1.colid = r.rkey9
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey9
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,10),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 10
    and    o1.id = c1.id
    and    c1.colid = r.rkey10
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey10
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,11),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 11
    and    o1.id = c1.id
    and    c1.colid = r.rkey11
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey11
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,12),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 12
    and    o1.id = c1.id
    and    c1.colid = r.rkey12
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey12
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,13),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 13
    and    o1.id = c1.id
    and    c1.colid = r.rkey13
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey13
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,14),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 14
    and    o1.id = c1.id
    and    c1.colid = r.rkey14
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey14
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,15),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 15
    and    o1.id = c1.id
    and    c1.colid = r.rkey15
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey15
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA     = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,16),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    o1.id = c1.id
    and    r.keycnt >= 16
    and    c1.colid = r.rkey16
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey16
    order by 8,9,2,3,13
    END
go
dump tran master with no_log
go
CREATE PROCEDURE sp_foreign_keys_rowset;2
    (
       @handle            int output,
       @scrollopt        int output,
    @ccopt            int output,
    @rows            int output,
     @pk_table_name        varchar(255) = null,
    @pk_table_schema    varchar(255) = null,
    @pk_table_catalog    varchar(255) = null,
    @fk_table_name        varchar(255) = null,
    @fk_table_schema    varchar(255) = null,
    @fk_table_catalog    varchar(255) = null
    )
as
    declare @ret int

    create table #spfkeysrowset1
        (
        PK_TABLE_CATALOG    sysname not null,
        PK_TABLE_SCHEMA        sysname not null,
        PK_TABLE_NAME         sysname not null,
        PK_COLUMN_NAME         sysname not null,
        PK_COLUMN_GUID        binary(16) null,
        PK_COLUMN_PROPID    int null,
        FK_TABLE_CATALOG    sysname not null,
        FK_TABLE_SCHEMA        sysname not null,
        FK_TABLE_NAME         sysname not null,
        FK_COLUMN_NAME         sysname not null,
        FK_COLUMN_GUID        binary(16) null,
        FK_COLUMN_PROPID    int null,
        ORDINAL            int not null,
        UPDATE_RULE        sysname not null,
        DELETE_RULE         sysname not null
        )

IF @pk_table_name is not null
    BEGIN
    insert into #spfkeysrowset1
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,1),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    o1.id = c1.id
    and    c1.colid = r.rkey1
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey1
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,2),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    o1.id = c1.id
    and    c1.colid = r.rkey2
    and    r.keycnt >= 2
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey2
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,3),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    o1.id = c1.id
    and    c1.colid = r.rkey3
    and    r.keycnt >= 3
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey3
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,4),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 4
    and    o1.id = c1.id
    and    c1.colid = r.rkey4
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey4
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,5),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 5
    and    o1.id = c1.id
    and    c1.colid = r.rkey5
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey5
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,6),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 6
    and    o1.id = c1.id
    and    c1.colid = r.rkey6
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey6
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,7),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 7
    and    o1.id = c1.id
    and    c1.colid = r.rkey7
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey7
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,8),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 8
    and    o1.id = c1.id
    and    c1.colid = r.rkey8
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey8
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,9),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 9
    and    o1.id = c1.id
    and    c1.colid = r.rkey9
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey9
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,10),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 10
    and    o1.id = c1.id
    and    c1.colid = r.rkey10
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey10
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,11),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 11
    and    o1.id = c1.id
    and    c1.colid = r.rkey11
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey11
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,12),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 12
    and    o1.id = c1.id
    and    c1.colid = r.rkey12
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey12
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,13),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 13
    and    o1.id = c1.id
    and    c1.colid = r.rkey13
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey13
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,14),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 14
    and    o1.id = c1.id
    and    c1.colid = r.rkey14
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey14
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,15),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 15
    and    o1.id = c1.id
    and    c1.colid = r.rkey15
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey15
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,16),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 16
    and    o1.id = c1.id
    and    c1.colid = r.rkey16
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey16
    order by 8,9,2,3,13
    END
ELSE IF @fk_table_name is not null
    BEGIN
    insert into #spfkeysrowset1
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,1),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    o2.id = c2.id
    and    c2.colid = r.fkey1
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey1
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,2),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 2
    and    o2.id = c2.id
    and    c2.colid = r.fkey2
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey2
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA     = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,3),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 3
    and    o2.id = c2.id
    and    c2.colid = r.fkey3
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey3
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,4),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 4
    and    o2.id = c2.id
    and    c2.colid = r.fkey4
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey4
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,5),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 5
    and    o2.id = c2.id
    and    c2.colid = r.fkey5
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey5
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,6),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 6
    and    o2.id = c2.id
    and    c2.colid = r.fkey6
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey6
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,7),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 7
    and    o2.id = c2.id
    and    c2.colid = r.fkey7
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey7
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,8),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 8
    and    o2.id = c2.id
    and    c2.colid = r.fkey8
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey8
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,9),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 9
    and    o2.id = c2.id
    and    c2.colid = r.fkey9
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey9
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,10),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 10
    and    o2.id = c2.id
    and    c2.colid = r.fkey10
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey10
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,11),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 11
    and    o2.id = c2.id
    and    c2.colid = r.fkey11
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey11
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,12),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 12
    and    o2.id = c2.id
    and    c2.colid = r.fkey12
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey12
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,13),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 13
    and    o2.id = c2.id
    and    c2.colid = r.fkey13
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey13
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA     = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,14),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 14
    and    o2.id = c2.id
    and    c2.colid = r.fkey14
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey14
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,15),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 15
    and    o2.id = c2.id
    and    c2.colid = r.fkey15
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey15
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,16),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 16
    and    o2.id = c2.id
    and    c2.colid = r.fkey16
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey16
    order by 8,9,2,3,13
    END
ELSE
    BEGIN
    insert into #spfkeysrowset1
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,1),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    o1.id = c1.id
    and    c1.colid = r.rkey1
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey1
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,2),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 2
    and    o1.id = c1.id
    and    c1.colid = r.rkey2
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey2
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,3),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 3
    and    o1.id = c1.id
    and    c1.colid = r.rkey3
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey3
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,4),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 4
    and    o1.id = c1.id
    and    c1.colid = r.rkey4
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey4
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,5),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 5
    and    o1.id = c1.id
    and    c1.colid = r.rkey5
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey5
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,6),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 6
    and    o1.id = c1.id
    and    c1.colid = r.rkey6
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey6
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,7),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 7
    and    o1.id = c1.id
    and    c1.colid = r.rkey7
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey7
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,8),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 8
    and    o1.id = c1.id
    and    c1.colid = r.rkey8
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey8
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,9),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 9
    and    o1.id = c1.id
    and    c1.colid = r.rkey9
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey9
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,10),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 10
    and    o1.id = c1.id
    and    c1.colid = r.rkey10
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey10
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,11),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 11
    and    o1.id = c1.id
    and    c1.colid = r.rkey11
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey11
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,12),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 12
    and    o1.id = c1.id
    and    c1.colid = r.rkey12
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey12
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,13),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 13
    and    o1.id = c1.id
    and    c1.colid = r.rkey13
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey13
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,14),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 14
    and    o1.id = c1.id
    and    c1.colid = r.rkey14
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey14
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,15),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 15
    and    o1.id = c1.id
    and    c1.colid = r.rkey15
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey15
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(binary(16),null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(binary(16),null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,16),
        UPDATE_RULE        = 'NO ACTION',
        DELETE_RULE         = 'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    o1.id = c1.id
    and    r.keycnt >= 16
    and    c1.colid = r.rkey16
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey16
    order by 8,9,2,3,13
    END

    exec @ret = sp_cursoropen @handle output, 'select * from #spfkeysrowset1',
        @scrollopt output, @ccopt output, @rows output

    drop table #spfkeysrowset1
       return isnull(@ret,0)
go
dump tran master with no_log
go


if (charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
else
    drop proc sp_foreign_keys_rowset
go


/*    Procedure for 7.0 server */
CREATE PROCEDURE sp_foreign_keys_rowset
    (
    @pk_table_name        sysname,
    @pk_table_schema    sysname = null,
    @fk_table_name        sysname = null,
    @fk_table_schema    sysname = null,
    @fk_table_catalog    sysname = null
    )
as
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,1),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    o1.id = c1.id
    and    c1.colid = r.rkey1
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey1
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,2),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    o1.id = c1.id
    and    c1.colid = r.rkey2
    and    r.keycnt >= 2
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey2
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA     = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,3),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    o1.id = c1.id
    and    c1.colid = r.rkey3
    and    r.keycnt >= 3
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey3
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,4),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 4
    and    o1.id = c1.id
    and    c1.colid = r.rkey4
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey4
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,5),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 5
    and    o1.id = c1.id
    and    c1.colid = r.rkey5
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey5
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,6),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 6
    and    o1.id = c1.id
    and    c1.colid = r.rkey6
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey6
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,7),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 7
    and    o1.id = c1.id
    and    c1.colid = r.rkey7
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey7
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,8),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 8
    and    o1.id = c1.id
    and    c1.colid = r.rkey8
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey8
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA     = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,9),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 9
    and    o1.id = c1.id
    and    c1.colid = r.rkey9
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey9
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA     = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,10),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 10
    and    o1.id = c1.id
    and    c1.colid = r.rkey10
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey10
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,11),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 11
    and    o1.id = c1.id
    and    c1.colid = r.rkey11
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey11
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,12),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 12
    and    o1.id = c1.id
    and    c1.colid = r.rkey12
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey12
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA     = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,13),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 13
    and    o1.id = c1.id
    and    c1.colid = r.rkey13
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey13
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA     = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,14),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 14
    and    o1.id = c1.id
    and    c1.colid = r.rkey14
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey14
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA     = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,15),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 15
    and    o1.id = c1.id
    and    c1.colid = r.rkey15
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey15
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA     = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,16),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 16
    and    o1.id = c1.id
    and    c1.colid = r.rkey16
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey16
    order by 8,9,2,3,13
go
CREATE PROCEDURE sp_foreign_keys_rowset;2
    (
    @fk_table_name        sysname,
    @fk_table_schema    sysname = null,
    @pk_table_name        sysname = null,
    @pk_table_schema    sysname = null,
    @pk_table_catalog    sysname = null
    )
as
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,1),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    o2.id = c2.id
    and    c2.colid = r.fkey1
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey1
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA     = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,2),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 2
    and    o2.id = c2.id
    and    c2.colid = r.fkey2
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey2
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA     = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,3),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 3
    and    o2.id = c2.id
    and    c2.colid = r.fkey3
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey3
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,4),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 4
    and    o2.id = c2.id
    and    c2.colid = r.fkey4
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey4
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA     = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,5),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 5
    and    o2.id = c2.id
    and    c2.colid = r.fkey5
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey5
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA     = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,6),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 6
    and    o2.id = c2.id
    and    c2.colid = r.fkey6
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey6
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA     = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,7),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 7
    and    o2.id = c2.id
    and    c2.colid = r.fkey7
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey7
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,8),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 8
    and    o2.id = c2.id
    and    c2.colid = r.fkey8
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey8
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,9),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 9
    and    o2.id = c2.id
    and    c2.colid = r.fkey9
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey9
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,10),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 10
    and    o2.id = c2.id
    and    c2.colid = r.fkey10
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey10
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA     = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,11),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 11
    and    o2.id = c2.id
    and    c2.colid = r.fkey11
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey11
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,12),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 12
    and    o2.id = c2.id
    and    c2.colid = r.fkey12
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey12
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,13),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 13
    and    o2.id = c2.id
    and    c2.colid = r.fkey13
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey13
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,14),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 14
    and    o2.id = c2.id
    and    c2.colid = r.fkey14
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey14
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,15),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 15
    and    o2.id = c2.id
    and    c2.colid = r.fkey15
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey15
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,16),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and    o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 16
    and    o2.id = c2.id
    and    c2.colid = r.fkey16
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey16
    order by 8,9,2,3,13
go
CREATE PROCEDURE sp_foreign_keys_rowset;3
    (
    @pk_table_schema    sysname = null,
    @pk_table_catalog    sysname = null,
    @fk_table_schema    sysname = null,
    @fk_table_catalog    sysname = null
    )
as
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,1),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    o1.id = c1.id
    and    c1.colid = r.rkey1
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey1
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,2),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 2
    and    o1.id = c1.id
    and    c1.colid = r.rkey2
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey2
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,3),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 3
    and    o1.id = c1.id
    and    c1.colid = r.rkey3
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey3
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,4),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 4
    and    o1.id = c1.id
    and    c1.colid = r.rkey4
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey4
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,5),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 5
    and    o1.id = c1.id
    and    c1.colid = r.rkey5
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey5
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,6),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 6
    and    o1.id = c1.id
    and    c1.colid = r.rkey6
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey6
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,7),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 7
    and    o1.id = c1.id
    and    c1.colid = r.rkey7
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey7
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,8),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 8
    and    o1.id = c1.id
    and    c1.colid = r.rkey8
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey8
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,9),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 9
    and    o1.id = c1.id
    and    c1.colid = r.rkey9
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey9
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,10),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 10
    and    o1.id = c1.id
    and    c1.colid = r.rkey10
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey10
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,11),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 11
    and    o1.id = c1.id
    and    c1.colid = r.rkey11
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey11
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,12),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 12
    and    o1.id = c1.id
    and    c1.colid = r.rkey12
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey12
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,13),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 13
    and    o1.id = c1.id
    and    c1.colid = r.rkey13
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey13
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,14),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 14
    and    o1.id = c1.id
    and    c1.colid = r.rkey14
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey14
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,15),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 15
    and    o1.id = c1.id
    and    c1.colid = r.rkey15
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey15
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,16),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_catalog is null or @pk_table_catalog = db_name())
    and     (@fk_table_catalog is null or @fk_table_catalog = db_name())
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    o1.id = c1.id
    and    r.keycnt >= 16
    and    c1.colid = r.rkey16
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey16
    order by 8,9,2,3,13
go
CREATE PROCEDURE sp_foreign_keys_rowset;4
    (
    @pk_table_name        sysname = null,
    @pk_table_schema    sysname = null,
    @fk_table_name        sysname = null,
    @fk_table_schema    sysname = null
    )
as
IF @pk_table_name is not null
    BEGIN
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,1),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    o1.id = c1.id
    and    c1.colid = r.rkey1
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey1
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,2),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    o1.id = c1.id
    and    c1.colid = r.rkey2
    and    r.keycnt >= 2
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey2
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,3),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    o1.id = c1.id
    and    c1.colid = r.rkey3
    and    r.keycnt >= 3
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey3
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,4),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 4
    and    o1.id = c1.id
    and    c1.colid = r.rkey4
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey4
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,5),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 5
    and    o1.id = c1.id
    and    c1.colid = r.rkey5
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey5
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,6),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 6
    and    o1.id = c1.id
    and    c1.colid = r.rkey6
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey6
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,7),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 7
    and    o1.id = c1.id
    and    c1.colid = r.rkey7
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey7
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,8),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 8
    and    o1.id = c1.id
    and    c1.colid = r.rkey8
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey8
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA     = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,9),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 9
    and    o1.id = c1.id
    and    c1.colid = r.rkey9
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey9
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,10),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 10
    and    o1.id = c1.id
    and    c1.colid = r.rkey10
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey10
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,11),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 11
    and    o1.id = c1.id
    and    c1.colid = r.rkey11
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey11
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,12),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 12
    and    o1.id = c1.id
    and    c1.colid = r.rkey12
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey12
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,13),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 13
    and    o1.id = c1.id
    and    c1.colid = r.rkey13
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey13
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,14),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 14
    and    o1.id = c1.id
    and    c1.colid = r.rkey14
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey14
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,15),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 15
    and    o1.id = c1.id
    and    c1.colid = r.rkey15
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey15
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,16),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o1.name = @pk_table_name
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 16
    and    o1.id = c1.id
    and    c1.colid = r.rkey16
    and     r.fkeyid = o2.id
    and    (@fk_table_name is null or @fk_table_name = o2.name)
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey16
    END
ELSE IF @fk_table_name is not null
    BEGIN
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,1),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    o2.id = c2.id
    and    c2.colid = r.fkey1
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey1
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,2),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 2
    and    o2.id = c2.id
    and    c2.colid = r.fkey2
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey2
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,3),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 3
    and    o2.id = c2.id
    and    c2.colid = r.fkey3
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey3
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,4),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 4
    and    o2.id = c2.id
    and    c2.colid = r.fkey4
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey4
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,5),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 5
    and    o2.id = c2.id
    and    c2.colid = r.fkey5
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey5
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,6),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 6
    and    o2.id = c2.id
    and    c2.colid = r.fkey6
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey6
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,7),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 7
    and    o2.id = c2.id
    and    c2.colid = r.fkey7
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey7
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,8),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 8
    and    o2.id = c2.id
    and    c2.colid = r.fkey8
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey8
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,9),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 9
    and    o2.id = c2.id
    and    c2.colid = r.fkey9
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey9
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,10),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 10
    and    o2.id = c2.id
    and    c2.colid = r.fkey10
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey10
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,11),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 11
    and    o2.id = c2.id
    and    c2.colid = r.fkey11
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey11
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,12),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 12
    and    o2.id = c2.id
    and    c2.colid = r.fkey12
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey12
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,13),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 13
    and    o2.id = c2.id
    and    c2.colid = r.fkey13
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey13
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,14),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 14
    and    o2.id = c2.id
    and    c2.colid = r.fkey14
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey14
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,15),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 15
    and    o2.id = c2.id
    and    c2.colid = r.fkey15
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey15
    union    all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,16),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        o2.name = @fk_table_name
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = r.fkeyid
    and    r.keycnt >= 16
    and    o2.id = c2.id
    and    c2.colid = r.fkey16
    and     r.rkeyid = o1.id
    and    (@pk_table_name is null or @pk_table_name = o1.name)
    and    (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = c1.id
    and    c1.colid = r.rkey16
    END
ELSE
    BEGIN
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,1),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    o1.id = c1.id
    and    c1.colid = r.rkey1
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey1
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,2),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 2
    and    o1.id = c1.id
    and    c1.colid = r.rkey2
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey2
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA     = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,3),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 3
    and    o1.id = c1.id
    and    c1.colid = r.rkey3
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey3
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,4),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 4
    and    o1.id = c1.id
    and    c1.colid = r.rkey4
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey4
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,5),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 5
    and    o1.id = c1.id
    and    c1.colid = r.rkey5
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey5
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,6),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 6
    and    o1.id = c1.id
    and    c1.colid = r.rkey6
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey6
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,7),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 7
    and    o1.id = c1.id
    and    c1.colid = r.rkey7
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey7
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,8),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 8
    and    o1.id = c1.id
    and    c1.colid = r.rkey8
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey8
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,9),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 9
    and    o1.id = c1.id
    and    c1.colid = r.rkey9
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey9
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,10),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 10
    and    o1.id = c1.id
    and    c1.colid = r.rkey10
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey10
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,11),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 11
    and    o1.id = c1.id
    and    c1.colid = r.rkey11
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey11
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,12),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 12
    and    o1.id = c1.id
    and    c1.colid = r.rkey12
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey12
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,13),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 13
    and    o1.id = c1.id
    and    c1.colid = r.rkey13
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey13
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,14),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 14
    and    o1.id = c1.id
    and    c1.colid = r.rkey14
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey14
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,15),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    r.keycnt >= 15
    and    o1.id = c1.id
    and    c1.colid = r.rkey15
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey15
    union all
    select
        PK_TABLE_CATALOG    = db_name(r.rkeydbid),
        PK_TABLE_SCHEMA        = user_name(o1.uid),
        PK_TABLE_NAME         = o1.name,
        PK_COLUMN_NAME         = c1.name,
        PK_COLUMN_GUID        = convert(uniqueidentifier,null),
        PK_COLUMN_PROPID    = convert(int,null),
        FK_TABLE_CATALOG    = db_name(r.fkeydbid),
        FK_TABLE_SCHEMA        = user_name(o2.uid),
        FK_TABLE_NAME         = o2.name,
        FK_COLUMN_NAME         = c2.name,
        FK_COLUMN_GUID        = convert(uniqueidentifier,null),
        FK_COLUMN_PROPID    = convert(int,null),
        ORDINAL            = convert(int,16),
        UPDATE_RULE        = N'NO ACTION',
        DELETE_RULE         = N'NO ACTION'
    from
        sysobjects o1, sysobjects o2,
        syscolumns c1, syscolumns c2,
        sysreferences r
    where
        (@pk_table_schema is null or @pk_table_schema = user_name(o1.uid))
    and    o1.id = r.rkeyid
    and    o1.id = c1.id
    and    r.keycnt >= 16
    and    c1.colid = r.rkey16
    and     r.fkeyid = o2.id
    and    (@fk_table_schema is null or @fk_table_schema = user_name(o2.uid))
    and    o2.id = c2.id
    and    c2.colid = r.fkey16
    END
go


create procedure sp_foreign_keys_rowset;5
    (
       @handle        int output,
       @scrollopt    int output,
    @ccopt        int output,
    @rows        int output,
    @cmd        nvarchar(1200)
    )
as
    declare @ret int
    declare @database_name sysname
    declare @SQL nvarchar(1500)

    create table #spfkeysrowset
        (
        PK_TABLE_CATALOG    sysname not null,
        PK_TABLE_SCHEMA        sysname not null,
        PK_TABLE_NAME         sysname not null,
        PK_COLUMN_NAME         sysname not null,
        PK_COLUMN_GUID        uniqueidentifier null,
        PK_COLUMN_PROPID    int null,
        FK_TABLE_CATALOG    sysname not null,
        FK_TABLE_SCHEMA     sysname not null,
        FK_TABLE_NAME         sysname not null,
        FK_COLUMN_NAME         sysname not null,
        FK_COLUMN_GUID        uniqueidentifier null,
        FK_COLUMN_PROPID    int null,
        ORDINAL            int not null,
        UPDATE_RULE        nvarchar(30) not null,
        DELETE_RULE         nvarchar(30) not null
        )

    declare sysdatabases_cursor insensitive cursor for
        select name from master.dbo.sysdatabases

    set nocount on
    open sysdatabases_cursor
      fetch next from sysdatabases_cursor into @database_name
    while @@fetch_status = 0
        begin
        select @SQL = N'use '+quotename(@database_name)+N' insert into #spfkeysrowset '+@cmd
        exec(@SQL)
        fetch next from sysdatabases_cursor into @database_name
        end
      close sysdatabases_cursor
    deallocate sysdatabases_cursor

    if @scrollopt is null
        begin
        select * from #spfkeysrowset order by 7,8,9,1,2,3,13
        end
    else
        begin
        exec @ret = sp_cursoropen @handle output,
            'select * from #spfkeysrowset order by 7,8,9,1,2,3,13',
                @scrollopt output, @ccopt output, @rows output
        end
    drop table #spfkeysrowset
    return isnull(@ret,0)
go
create procedure sp_foreign_keys_rowset;6
    (
    @server_name        sysname,
    @pk_catalog_name    sysname = null,
    @fk_catalog_name    sysname = null,
    @pk_table_name        sysname = null,
    @pk_table_schema    sysname = null,
    @fk_table_name        sysname = null,
    @fk_table_schema    sysname = null
    )
as
    select
        PK_TABLE_CATALOG,
        PK_TABLE_SCHEMA,
        PK_TABLE_NAME,
        PK_COLUMN_NAME,
        PK_COLUMN_GUID,
        PK_COLUMN_PROPID,
        FK_TABLE_CATALOG,
        FK_TABLE_SCHEMA,
        FK_TABLE_NAME,
        FK_COLUMN_NAME,
        FK_COLUMN_GUID,
        FK_COLUMN_PROPID,
        ORDINAL,
        UPDATE_RULE,
        DELETE_RULE
    from master.dbo.SYSREMOTE_FOREIGN_KEYS <
                @server_name,
                @pk_catalog_name,
                @pk_table_schema,
                @pk_table_name,
                @fk_catalog_name,
                @fk_table_schema,
                @fk_table_name >
    order by 7,8,9,1,2,3,13
go

grant execute on sp_foreign_keys_rowset to public
go

dump tran master with no_log
go

print ''
print 'creating sp_indexes_rowset'
go

/*    6.0 and 6.5 version */
create procedure sp_indexes_rowset
    (
    @table_name    varchar(255),
    @index_name    varchar(255) = null,
    @table_schema    varchar(255) = null
    )
as
    select    TABLE_CATALOG        = db_name(),
        TABLE_SCHEMA        = user_name(o.uid),
        TABLE_NAME        = o.name,
        INDEX_CATALOG        = db_name(),
        INDEX_SCHEMA        = user_name(o.uid),
        INDEX_NAME        = x.name,
        PRIMARY_KEY        = convert(bit,(x.status & 0x800)/0x800),
        "UNIQUE"        = convert(bit,(x.status & 2)/2),
        "CLUSTERED"        = convert(bit,(x.status & 16)/16),
        "TYPE"            = convert(smallint, 1 /*DBPROPVAL_IT_BTREE*/),
        FILL_FACTOR        = convert(int, x.OrigFillFactor),
        INITIAL_SIZE        = convert(int,null),
        NULLS            = convert(int,null),
        SORT_BOOKMARKS        = convert(bit,0),
        AUTO_UPDATE        = convert(bit,1),
        NULL_COLLATION        = convert(int,4 /*DBPROPVAL_NC_LOW*/),
        ORDINAL_POSITION    = convert(int,c.colid),
        COLUMN_NAME        = index_col(user_name(o.uid)+'.'+o.name, x.indid, c.colid),
        COLUMN_GUID        = convert(binary(16),null),
        COLUMN_PROPID        = convert(int,null),
        COLLATION        = convert(smallint, 1 /*DB_COLLATION_ASC*/),
        CARDINALITY        = case when (x.status & 2) = 2 then x.rows else null end,
        PAGES            = convert(int, x.dpages),
        FILTER_CONDITION    = convert(varchar(1),null)

    from    sysobjects o, sysindexes x, syscolumns c, sysusers u
    where    o.type in ('U')
    and     o.name = @table_name
    and     (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@index_name is null or @index_name = x.name)
    and     x.id = o.id
    and     x.id = c.id
    and      c.colid < x.keycnt+(x.status&16)/16
    and     u.uid = user_id() /* constrain sysusers uid for use in subquery */
    and     (
        suser_id() = 1     /* User is the System Administrator */
        or o.uid = user_id()     /* User created the object */
        /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
        or (    (select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
            from sysprotects p
            where p.id = o.id
            /* get rows for public,current user,user's group */
            and (p.uid = 0 or p.uid = user_id() or p.uid = u.gid)
            /* check for SELECT,EXECUTE privilege */
            and (action in (193,224)))&1     /* more magic...normalize GRANT */
            ) = 1    /* final magic...compare Grants      */
           )
    order by 8 desc, 4, 5, 6, 17
go
create procedure sp_indexes_rowset;2
    (
    @index_name    varchar(255) = null,
    @table_schema    varchar(255) = null
    )
as
    select    TABLE_CATALOG        = db_name(),
        TABLE_SCHEMA        = user_name(o.uid),
        TABLE_NAME        = o.name,
        INDEX_CATALOG        = db_name(),
        INDEX_SCHEMA        = user_name(o.uid),
        INDEX_NAME        = x.name,
        PRIMARY_KEY        = convert(bit,(x.status & 0x800)/0x800),
        "UNIQUE"        = convert(bit,(x.status & 2)/2),
        "CLUSTERED"        = convert(bit,(x.status & 16)/16),
        "TYPE"            = convert(smallint, 1 /*DBPROPVAL_IT_BTREE*/),
        FILL_FACTOR        = convert(int, x.OrigFillFactor),
        INITIAL_SIZE        = convert(int,null),
        NULLS            = convert(int,null),
        SORT_BOOKMARKS        = convert(bit,0),
        AUTO_UPDATE        = convert(bit,1),
        NULL_COLLATION        = convert(int,4 /*DBPROPVAL_NC_LOW*/),
        ORDINAL_POSITION    = convert(int,c.colid),
        COLUMN_NAME        = index_col(user_name(o.uid)+'.'+o.name, x.indid, c.colid),
        COLUMN_GUID        = convert(binary(16),null),
        COLUMN_PROPID        = convert(int,null),
        COLLATION        = convert(smallint, 1 /*DB_COLLATION_ASC*/),
        CARDINALITY        = case when (x.status & 2) = 2 then x.rows else null end,
        PAGES            = convert(int, x.dpages),
        FILTER_CONDITION    = convert(varchar(1),null)

    from    sysobjects o, sysindexes x, syscolumns c, sysusers u
    where    o.type in ('U')
    and     (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@index_name is null or @index_name = x.name)
    and     x.id = o.id
    and     x.id = c.id
    and      c.colid < x.keycnt+(x.status&16)/16
    and     u.uid = user_id() /* constrain sysusers uid for use in subquery */
    and     (
        suser_id() = 1     /* User is the System Administrator */
        or o.uid = user_id()     /* User created the object */
        /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
        or (    (select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
            from sysprotects p
            where p.id = o.id
            /* get rows for public,current user,user's group */
            and (p.uid = 0 or p.uid = user_id() or p.uid = u.gid)
            /* check for SELECT,EXECUTE privilege */
            and (action in (193,224)))&1     /* more magic...normalize GRANT */
            ) = 1    /* final magic...compare Grants      */
           )
    order by 8 desc, 4, 5, 6, 17
go


if (charindex('7.00', @@version) > 0)
    drop procedure sp_indexes_rowset
else
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
go

/*     7.0 version */
create procedure sp_indexes_rowset
    (
    @table_name    sysname,
    @index_name    sysname = null,
    @table_schema    sysname = null
    )
as
    select    TABLE_CATALOG        = db_name(),
        TABLE_SCHEMA        = user_name(o.uid),
        TABLE_NAME        = o.name,
        INDEX_CATALOG        = db_name(),
        INDEX_SCHEMA        = user_name(o.uid),
        INDEX_NAME        = x.name,
        PRIMARY_KEY        = convert(bit,(x.status & 0x800)/0x800),
        "UNIQUE"        = convert(bit,(x.status & 2)/2),
        "CLUSTERED"        = convert(bit,(x.status & 16)/16),
        "TYPE"            = convert(smallint, 1 /*DBPROPVAL_IT_BTREE*/),
        FILL_FACTOR        = convert(int, x.OrigFillFactor),
        INITIAL_SIZE        = convert(int,null),
        NULLS            = convert(int,null),
        SORT_BOOKMARKS        = convert(bit,0),
        AUTO_UPDATE        = convert(bit,1),
        NULL_COLLATION        = convert(int,4 /*DBPROPVAL_NC_LOW*/),
        ORDINAL_POSITION    = convert(int,c.colid),
        COLUMN_NAME        = index_col(user_name(o.uid)+'.'+o.name, x.indid, c.colid),
        COLUMN_GUID        = convert(uniqueidentifier,null),
        COLUMN_PROPID        = convert(int,null),
        COLLATION        = convert(smallint, 1 /*DB_COLLATION_ASC*/),
        CARDINALITY        = case when (x.status & 2) = 2 then x.rows else null end,
        PAGES            = convert(int, x.dpages),
        FILTER_CONDITION    = convert(nvarchar(1),null)

    from    sysobjects o, sysindexes x, syscolumns c
    where    o.type in ('U')
    and     o.name = @table_name
    and     (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@index_name is null or @index_name = x.name)
    and     x.id = o.id
    and     x.id = c.id
    and      c.colid < x.keycnt+(x.status&16)/16
    and    index_col(user_name(o.uid)+'.'+o.name, x.indid, c.colid) is not null
    and     permissions(o.id) <> 0
    order by 8 desc, 4, 5, 6, 17
go
create procedure sp_indexes_rowset;2
    (
    @index_name    sysname = null,
    @table_schema    sysname = null
    )
as
    select    TABLE_CATALOG        = db_name(),
        TABLE_SCHEMA        = user_name(o.uid),
        TABLE_NAME        = o.name,
        INDEX_CATALOG        = db_name(),
        INDEX_SCHEMA        = user_name(o.uid),
        INDEX_NAME        = x.name,
        PRIMARY_KEY        = convert(bit,(x.status & 0x800)/0x800),
        "UNIQUE"        = convert(bit,(x.status & 2)/2),
        "CLUSTERED"        = convert(bit,(x.status & 16)/16),
        "TYPE"            = convert(smallint, 1 /*DBPROPVAL_IT_BTREE*/),
        FILL_FACTOR        = convert(int, x.OrigFillFactor),
        INITIAL_SIZE        = convert(int,null),
        NULLS            = convert(int,null),
        SORT_BOOKMARKS        = convert(bit,0),
        AUTO_UPDATE        = convert(bit,1),
        NULL_COLLATION        = convert(int,4 /*DBPROPVAL_NC_LOW*/),
        ORDINAL_POSITION    = convert(int,c.colid),
        COLUMN_NAME        = index_col(user_name(o.uid)+'.'+o.name, x.indid, c.colid),
        COLUMN_GUID        = convert(uniqueidentifier,null),
        COLUMN_PROPID        = convert(int,null),
        COLLATION        = convert(smallint, 1 /*DB_COLLATION_ASC*/),
        CARDINALITY        = case when (x.status & 2) = 2 then x.rows else null end,
        PAGES            = convert(int, x.dpages),
        FILTER_CONDITION    = convert(nvarchar(1),null)

    from    sysobjects o, sysindexes x, syscolumns c
    where    o.type in ('U')
    and     (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@index_name is null or @index_name = x.name)
    and     x.id = o.id
    and     x.id = c.id
    and      c.colid < x.keycnt+(x.status&16)/16
    and    index_col(user_name(o.uid)+'.'+o.name, x.indid, c.colid) is not null
    and     permissions(o.id) <> 0
    order by 8 desc, 4, 5, 6, 17
go
create procedure sp_indexes_rowset;3
    (
    @table_name    sysname = null,
    @index_name    sysname = null,
    @table_schema    sysname = null
    )
as
IF @table_name is not null
    BEGIN
    select    TABLE_CATALOG        = db_name(),
        TABLE_SCHEMA        = user_name(o.uid),
        TABLE_NAME        = o.name,
        INDEX_CATALOG        = db_name(),
        INDEX_SCHEMA        = user_name(o.uid),
        INDEX_NAME        = x.name,
        PRIMARY_KEY        = convert(bit,(x.status & 0x800)/0x800),
        "UNIQUE"        = convert(bit,(x.status & 2)/2),
        "CLUSTERED"        = convert(bit,(x.status & 16)/16),
        "TYPE"            = convert(smallint, 1 /*DBPROPVAL_IT_BTREE*/),
        FILL_FACTOR        = convert(int, x.OrigFillFactor),
        INITIAL_SIZE        = convert(int,null),
        NULLS            = convert(int,null),
        SORT_BOOKMARKS        = convert(bit,0),
        AUTO_UPDATE        = convert(bit,1),
        NULL_COLLATION        = convert(int,4 /*DBPROPVAL_NC_LOW*/),
        ORDINAL_POSITION    = convert(int,c.colid),
        COLUMN_NAME        = index_col(user_name(o.uid)+'.'+o.name, x.indid, c.colid),
        COLUMN_GUID        = convert(uniqueidentifier,null),
        COLUMN_PROPID        = convert(int,null),
        COLLATION        = convert(smallint, 1 /*DB_COLLATION_ASC*/),
        CARDINALITY        = case when (x.status & 2) = 2 then x.rows else null end,
        PAGES            = convert(int, x.dpages),
        FILTER_CONDITION    = convert(nvarchar(1),null)

    from    sysobjects o, sysindexes x, syscolumns c
    where    o.type in ('U')
    and     o.name = @table_name
    and     (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@index_name is null or @index_name = x.name)
    and     x.id = o.id
    and     x.id = c.id
    and      c.colid < x.keycnt+(x.status&16)/16
    and    index_col(user_name(o.uid)+'.'+o.name, x.indid, c.colid) is not null
    and     permissions(o.id) <> 0
    END
ELSE
    BEGIN
    select    TABLE_CATALOG        = db_name(),
        TABLE_SCHEMA        = user_name(o.uid),
        TABLE_NAME        = o.name,
        INDEX_CATALOG        = db_name(),
        INDEX_SCHEMA        = user_name(o.uid),
        INDEX_NAME        = x.name,
        PRIMARY_KEY        = convert(bit,(x.status & 0x800)/0x800),
        "UNIQUE"        = convert(bit,(x.status & 2)/2),
        "CLUSTERED"        = convert(bit,(x.status & 16)/16),
        "TYPE"            = convert(smallint, 1 /*DBPROPVAL_IT_BTREE*/),
        FILL_FACTOR        = convert(int, x.OrigFillFactor),
        INITIAL_SIZE        = convert(int,null),
        NULLS            = convert(int,null),
        SORT_BOOKMARKS        = convert(bit,0),
        AUTO_UPDATE        = convert(bit,1),
        NULL_COLLATION        = convert(int,4 /*DBPROPVAL_NC_LOW*/),
        ORDINAL_POSITION    = convert(int,c.colid),
        COLUMN_NAME        = index_col(user_name(o.uid)+'.'+o.name, x.indid, c.colid),
        COLUMN_GUID        = convert(uniqueidentifier,null),
        COLUMN_PROPID        = convert(int,null),
        COLLATION        = convert(smallint, 1 /*DB_COLLATION_ASC*/),
        CARDINALITY        = case when (x.status & 2) = 2 then x.rows else null end,
        PAGES            = convert(int, x.dpages),
        FILTER_CONDITION    = convert(nvarchar(1),null)

    from    sysobjects o, sysindexes x, syscolumns c
    where    o.type in ('U')
    and     (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@index_name is null or @index_name = x.name)
    and     x.id = o.id
    and     x.id = c.id
    and      c.colid < x.keycnt+(x.status&16)/16
    and    index_col(user_name(o.uid)+'.'+o.name, x.indid, c.colid) is not null
    and     permissions(o.id) <> 0
    END
go

create procedure sp_indexes_rowset;4
    (

       @handle        int output,
       @scrollopt    int output,
    @ccopt        int output,
    @rows        int output,
    @cmd        nvarchar(1200)
    )
as
    declare @ret int
    declare @database_name sysname
    declare @SQL nvarchar(1500)

    create table #sppindxrowset
        (
        TABLE_CATALOG        sysname not null,
        TABLE_SCHEMA        sysname not null,
        TABLE_NAME        sysname not null,
        INDEX_CATALOG        sysname not null,
        INDEX_SCHEMA        sysname not null,
        INDEX_NAME        sysname not null,
        PRIMARY_KEY        bit not null,
        "UNIQUE"        bit not null,
        "CLUSTERED"        bit not null,
        "TYPE"            smallint not null,
        FILL_FACTOR        int not null,
        INITIAL_SIZE        int null,
        NULLS            int null,
        SORT_BOOKMARKS        bit not null,
        AUTO_UPDATE        bit not null,
        NULL_COLLATION        int not null,
        ORDINAL_POSITION    int not null,
        COLUMN_NAME        sysname not null,
        COLUMN_GUID        uniqueidentifier null,
        COLUMN_PROPID        int null,
        COLLATION        smallint not null,
        CARDINALITY        int null,
        PAGES            int not null,
        FILTER_CONDITION    nvarchar(1) null
        )

    declare sysdatabases_cursor insensitive cursor for
        select name from master.dbo.sysdatabases

    set nocount on
    open sysdatabases_cursor
      fetch next from sysdatabases_cursor into @database_name
    while @@fetch_status = 0
        begin
        select @SQL = N'use '+quotename(@database_name)+N' insert into #sppindxrowset '+@cmd
        exec(@SQL)
        fetch next from sysdatabases_cursor into @database_name
        end
      close sysdatabases_cursor
    deallocate sysdatabases_cursor

    if @scrollopt is null
        begin
        select * from #sppindxrowset order by 8 desc, 4, 5, 6, 17
        end
    else
        begin
        exec @ret = sp_cursoropen @handle output,
            'select * from #sppindxrowset order by 8 desc, 4, 5, 6, 17',
                @scrollopt output, @ccopt output, @rows output
        end
    drop table #sppindxrowset
    return isnull(@ret,0)
go
create procedure sp_indexes_rowset;5
    (
    @table_server        sysname,
    @table_catalog        sysname = null,
    @table_name        sysname = null,
    @index_name        sysname = null,
    @table_schema        sysname = null
    )
as
    select
        TABLE_CATALOG,
        TABLE_SCHEMA,
        TABLE_NAME,
        INDEX_CATALOG,
        INDEX_SCHEMA,
        INDEX_NAME,
        PRIMARY_KEY,
        "UNIQUE",
        "CLUSTERED",
        "TYPE",
        FILL_FACTOR,
        INITIAL_SIZE,
        NULLS,
        SORT_BOOKMARKS,
        AUTO_UPDATE,
        NULL_COLLATION,
        ORDINAL_POSITION,
        COLUMN_NAME,
        COLUMN_GUID,
        COLUMN_PROPID,
        COLLATION,
        CARDINALITY,
        PAGES,
        FILTER_CONDITION
    from master.dbo.SYSREMOTE_INDEXES <
                @table_server,
                @table_catalog,
                @table_schema,
                        @index_name,
                NULL,            /* TYPE (index type) */
                @table_name >
    order by 8 desc, 4, 5, 6, 17
go

grant execute on sp_indexes_rowset to public
go

dump tran master with no_log
go

print ''
print 'creating sp_primary_keys_rowset'
go

/*    Procedure for 6.0 and 6.5 servers */
create procedure sp_primary_keys_rowset
    (
       @table_name        varchar(255),
    @table_schema         varchar(244) = null
    )
as
    select    TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(binary(16),null),
        COLUMN_PROPID    = convert(int,null),
        ORDINAL        = convert(int,c1.colid)
    from    sysindexes i, syscolumns c, sysobjects o, syscolumns c1, sysusers u
    where    o.type in ('U')
    and     o.name = @table_name
    and     (@table_schema is null or @table_schema = user_name(o.uid))
    and     o.id = c.id
    and     o.id = i.id
    and     (i.status & 0x800) = 0x800
    and     c.name = index_col(user_name(o.uid)+'.'+o.name, i.indid, c1.colid)
    and     c1.id = c.id
    and     c1.colid <= i.keycnt    /* create rows from 1 to keycnt */
    and     u.uid = user_id() /* constrain sysusers uid for use in subquery */
    and     (
        suser_id() = 1     /* User is the System Administrator */
        or o.uid = user_id()     /* User created the object */
        /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
        or (    (select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
            from sysprotects p
            where p.id = o.id
            /* get rows for public,current user,user's group */
            and (p.uid = 0 or p.uid = user_id() or p.uid = u.gid)
            /* check for SELECT,EXECUTE privilege */
            and (action in (193,224)))&1     /* more magic...normalize GRANT */
            ) = 1    /* final magic...compare Grants      */
           )
    order by 2, 3
go
create procedure sp_primary_keys_rowset;2
    (
     @table_schema         varchar(244) = null
    )
as
    select    TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(binary(16),null),
        COLUMN_PROPID    = convert(int,null),
        ORDINAL        = convert(int,c1.colid)
    from    sysindexes i, syscolumns c, sysobjects o, syscolumns c1, sysusers u
    where    o.type in ('U')
    and     (@table_schema is null or @table_schema = user_name(o.uid))
    and     o.id = c.id
    and     o.id = i.id
    and     (i.status & 0x800) = 0x800
    and     c.name = index_col(user_name(o.uid)+'.'+o.name, i.indid, c1.colid)
    and     c1.id = c.id
    and     c1.colid <= i.keycnt    /* create rows from 1 to keycnt */
    and     u.uid = user_id() /* constrain sysusers uid for use in subquery */
    and     (
        suser_id() = 1     /* User is the System Administrator */
        or o.uid = user_id()     /* User created the object */
        /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
        or (    (select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
            from sysprotects p
            where p.id = o.id
            /* get rows for public,current user,user's group */
            and (p.uid = 0 or p.uid = user_id() or p.uid = u.gid)
            /* check for SELECT,EXECUTE privilege */
            and (action in (193,224)))&1     /* more magic...normalize GRANT */
            ) = 1    /* final magic...compare Grants      */
           )
    order by 2, 3
go

if (charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
else
    drop proc sp_primary_keys_rowset
go

/*    Procedure for 7.0 servers */
create procedure sp_primary_keys_rowset
    (
       @table_name        sysname,
    @table_schema         sysname = null
    )
as
    select    TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(uniqueidentifier,null),
        COLUMN_PROPID    = convert(int,null),
        ORDINAL        = convert(int,c1.colid)
    from    sysindexes i, syscolumns c, sysobjects o, syscolumns c1
    where    o.type in ('U')
    and     o.name = @table_name
    and     (@table_schema is null or @table_schema = user_name(o.uid))
    and     o.id = c.id
    and     o.id = i.id
    and     (i.status & 0x800) = 0x800
    and     c.name = index_col (user_name(o.uid)+'.'+o.name, i.indid, c1.colid)
    and     c1.id = c.id
    and     c1.colid <= i.keycnt    /* create rows from 1 to keycnt */
    and    permissions(o.id) <> 0
    order by 2, 3
go
create procedure sp_primary_keys_rowset;2
    (
     @table_schema     sysname = null
    )
as
    select    TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(uniqueidentifier,null),
        COLUMN_PROPID    = convert(int,null),
        ORDINAL        = convert(int,c1.colid)
    from    sysindexes i, syscolumns c, sysobjects o, syscolumns c1
    where    o.type in ('U')
    and     (@table_schema is null or @table_schema = user_name(o.uid))
    and     o.id = c.id
    and     o.id = i.id
    and     (i.status & 0x800) = 0x800
    and     c.name = index_col (user_name(o.uid)+'.'+o.name, i.indid, c1.colid)
    and     c1.id = c.id
    and     c1.colid <= i.keycnt    /* create rows from 1 to keycnt */
    and    permissions(o.id) <> 0
    order by 2, 3
go
create procedure sp_primary_keys_rowset;3
    (
       @table_name        sysname = null,
    @table_schema         sysname = null
    )
as
IF @table_name is not NULL
    BEGIN
    select    TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(uniqueidentifier,null),
        COLUMN_PROPID    = convert(int,null),
        ORDINAL        = convert(int,c1.colid)
    from    sysindexes i, syscolumns c, sysobjects o, syscolumns c1
    where    o.type in ('U')
    and     o.name = @table_name
    and     (@table_schema is null or @table_schema = user_name(o.uid))
    and     o.id = c.id
    and     o.id = i.id
    and     (i.status & 0x800) = 0x800
    and     c.name = index_col (user_name(o.uid)+'.'+o.name, i.indid, c1.colid)
    and     c1.id = c.id
    and     c1.colid <= i.keycnt    /* create rows from 1 to keycnt */
    and    permissions(o.id) <> 0
    END
ELSE
    BEGIN
    select    TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        COLUMN_NAME    = c.name,
        COLUMN_GUID    = convert(uniqueidentifier,null),
        COLUMN_PROPID    = convert(int,null),
        ORDINAL        = convert(int,c1.colid)
    from    sysindexes i, syscolumns c, sysobjects o, syscolumns c1
    where    o.type in ('U')
    and     (@table_schema is null or @table_schema = user_name(o.uid))
    and     o.id = c.id
    and     o.id = i.id
    and     (i.status & 0x800) = 0x800
    and     c.name = index_col (user_name(o.uid)+'.'+o.name, i.indid, c1.colid)
    and     c1.id = c.id
    and     c1.colid <= i.keycnt    /* create rows from 1 to keycnt */
    and    permissions(o.id) <> 0
    END
go


create procedure sp_primary_keys_rowset;4
    (

       @handle        int output,
       @scrollopt    int output,
    @ccopt        int output,
    @rows        int output,
    @cmd        nvarchar(1200)
    )
as
    declare @ret int
    declare @database_name sysname
    declare @SQL nvarchar(1500)

    create table #sppkeysrowset
        (
        TABLE_CATALOG        sysname not null,
        TABLE_SCHEMA        sysname not null,
        TABLE_NAME        sysname not null,
        COLUMN_NAME        sysname not null,
        COLUMN_GUID        uniqueidentifier null,
        COLUMN_PROPID        int null,
        ORDINAL            int null
        )

    declare sysdatabases_cursor insensitive cursor for
        select name from master.dbo.sysdatabases

    set nocount on
    open sysdatabases_cursor
      fetch next from sysdatabases_cursor into @database_name
    while @@fetch_status = 0
        begin
        select @SQL = N'use '+quotename(@database_name)+N' insert into #sppkeysrowset '+@cmd
        exec(@SQL)
        fetch next from sysdatabases_cursor into @database_name
        end
      close sysdatabases_cursor
    deallocate sysdatabases_cursor

    if @scrollopt is null
        begin
        select * from #sppkeysrowset order by 1,2,3
        end
    else
        begin
        exec @ret = sp_cursoropen @handle output,
            'select * from #sppkeysrowset order by 1,2,3',
                @scrollopt output, @ccopt output, @rows output
        end
    drop table #sppkeysrowset
    return isnull(@ret,0)
go
create procedure sp_primary_keys_rowset;5
    (
    @table_server        sysname,
    @table_catalog        sysname = null,
    @table_name        sysname = null,
    @table_schema        sysname = null
    )
as
    select
        TABLE_CATALOG,
        TABLE_SCHEMA,
        TABLE_NAME,
        COLUMN_NAME,
        COLUMN_GUID,
        COLUMN_PROPID,
        ORDINAL
    from master.dbo.SYSREMOTE_PRIMARY_KEYS <
                @table_server,
                @table_catalog,
                @table_schema,
                @table_name >
    order by 1,2,3
go

grant execute on sp_primary_keys_rowset to public
go

dump tran master with no_log
go

print ''
print 'creating sp_provider_types_rowset'
go

/*    Procedure for 6.0 and 6.50 servers */
create proc sp_provider_types_rowset
    (
    @data_type     smallint = null,
    @best_match    tinyint  = null
    )
as
    select
        TYPE_NAME         = case    when t.usertype = 80 then t.name
                        else d.type_name
                        end,
        DATA_TYPE         = d.oledb_data_type,
        COLUMN_SIZE        = coalesce(d.column_size,d.data_precision,t.prec),
        LITERAL_PREFIX         = d.literal_prefix,
        LITERAL_SUFFIX         = d.literal_suffix,
        CREATE_PARAMS         = convert(varchar(32),e.CREATE_PARAMS),
        IS_NULLABLE        = t.allownulls,
        CASE_SENSITIVE        = d.case_sensitive,
        SEARCHABLE         = d.searchable,
        UNSIGNED_ATTRIBUTE    = d.unsigned_attribute,
        FIXED_PREC_SCALE    = d.fixed_prec_scale,
        AUTO_UNIQUE_VALUE    = d.auto_unique_value,
        LOCAL_TYPE_NAME        = case    when t.usertype = 80 then t.name
                        else d.local_type_name
                        end,
        MINIMUM_SCALE        = convert(smallint,
                        case
                        when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then 0
                        else null
                        end),
        MAXIMUM_SCALE        = convert(smallint,
                        case
                        when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/
                        then d.data_precision
                        else null
                        end),
        GUID            = convert(binary(16),null),
        TYPELIB            = convert(varchar(1),null),
        VERSION            = convert(varchar(1),null),
        IS_LONG            = d.is_long,
        BEST_MATCH        = case when t.usertype = 80
                        then convert(bit,0)
                        else d.best_match
                        end
    from     master.dbo.spt_provider_types d, master.dbo.spt_datatype_info_ext e, systypes t
    where    d.ss_dtype = t.type
    and    t.usertype <= 100
    and    t.usertype <> 18 /* sysname */
    and    (case when t.usertype = 80 /* TIMESTAMP */ then 1 else 0 end
            = case when d.type_name = 'timestamp' then 1 else 0 end)
    and     t.usertype *= e.user_type
    and     e.AUTO_INCREMENT = 0
    and     t.type not in (111,109,38,110,55,63)    /* get rid of nullable types */
    and    (@data_type is null or d.oledb_data_type = @data_type)
    and    (@best_match is null or d.best_match = @best_match)
    order by 2
go

if (charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
else
    drop proc sp_provider_types_rowset
go

/*    Procedure for 7.0 server */
create proc sp_provider_types_rowset
    (
    @data_type     smallint = null,
    @best_match    tinyint  = null
    )
as
    select
        TYPE_NAME         = case    when t.usertype = 80 then t.name
                        else d.type_name
                        end,
        DATA_TYPE         = d.oledb_data_type,
        COLUMN_SIZE        = coalesce(d.column_size,d.data_precision,t.prec),
        LITERAL_PREFIX         = d.literal_prefix,
        LITERAL_SUFFIX         = d.literal_suffix,
        CREATE_PARAMS         = convert(nvarchar(32),e.CREATE_PARAMS),
        IS_NULLABLE        = t.allownulls,
        CASE_SENSITIVE        = d.case_sensitive,
        SEARCHABLE         = d.searchable,
        UNSIGNED_ATTRIBUTE    = d.unsigned_attribute,
        FIXED_PREC_SCALE    = d.fixed_prec_scale,
        AUTO_UNIQUE_VALUE    = d.auto_unique_value,
        LOCAL_TYPE_NAME        = case    when t.usertype = 80 then t.name
                        else d.local_type_name
                        end,
        MINIMUM_SCALE        = convert(smallint,
                        case
                        when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then 0
                        else null
                        end),
        MAXIMUM_SCALE        = convert(smallint,
                        case
                        when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/
                        then d.data_precision
                        else null
                        end),
        GUID            = convert(uniqueidentifier,null),
        TYPELIB            = convert(nvarchar(1),null),
        VERSION            = convert(nvarchar(1),null),
        IS_LONG            = d.is_long,
        BEST_MATCH        = case    when t.usertype = 80
                        then convert(bit,0)
                        else d.best_match
                        end
    from master.dbo.spt_provider_types d
        INNER JOIN model.dbo.systypes t on d.ss_dtype = t.xtype
        LEFT OUTER JOIN master.dbo.spt_datatype_info_ext e on
            t.xusertype = e.user_type
            and e.AUTO_INCREMENT = 0
    where    (@data_type is null or d.oledb_data_type = @data_type)
    and    (@best_match is null or d.best_match = @best_match)
    and    t.usertype <= 255
    and    t.usertype <> 18 /* sysname */
    order by 2
go

grant execute on sp_provider_types_rowset to public
go

dump tran master with no_log
go

print ''
print 'creating sp_procedure_params_rowset'
go

/*    Procedure for 6.0 and 6.50 servers */
create procedure sp_procedure_params_rowset
    (
       @procedure_name        varchar(255) = null,
    @group_number        int = null,
    @procedure_schema     varchar(255) = null,
    @parameter_name        varchar(255) = null
    )
as
IF @procedure_name is not null
    BEGIN
    select
        PROCEDURE_CATALOG     = db_name(),
        PROCEDURE_SCHEMA     = user_name(),
        PROCEDURE_NAME         = convert(varchar(35),o.name +';'+ ltrim(str(c.number,5))),
        PARAMETER_NAME         = c.name,
        ORDINAL_POSITION     = convert(smallint,c.colid),
        PARAMETER_TYPE         = convert(smallint, 1+((c.status/64)&1)),
        PARAMETER_HASDEFAULT    = convert(tinyint, null),
        PARAMETER_DEFAULT    = convert(varchar(255),null),
        IS_NULLABLE        = convert(bit,c.status&8),
        DATA_TYPE        = d.oledb_data_type,
        CHARACTER_MAXIMUM_LENGTH= convert(int,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                        then coalesce(d.column_size,c.length)
                        else null
                        end),
        CHARACTER_OCTET_LENGTH    = convert(int,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                        then coalesce(d.column_size,c.length)
                        else null
                        end),
        NUMERIC_PRECISION    = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.prec else null end),
        NUMERIC_SCALE        = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.scale else null end),
        DESCRIPTION        = convert(varchar(1),null)

    from
        syscolumns c,
        sysobjects o,
        master.dbo.spt_provider_types d,
        systypes t,
        sysusers u
    where
        o.name = @procedure_name
    and    o.type = 'P'                            /* Just Procedures */
    and    (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and    o.id = c.id
    and    c.number = @group_number
    and    c.type = d.ss_dtype
    and    c.length = case when d.fixlen > 0 then d.fixlen else c.length end
    and    c.usertype = t.usertype
    and    (@parameter_name is null or @parameter_name = c.name)
    and     u.uid = user_id()    /* constrain sysusers uid for use in subquery */
    and     (    suser_id() = 1     /* User is the System Administrator */
        or     o.uid = user_id()    /* User created the object */
            /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
        or     ((select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
             from sysprotects p
             where p.id = o.id
                 /*  get rows for public,current user,user's group */
                 and (p.uid = 0 or p.uid = user_id() or p.uid = u.gid)
                 /* check for SELECT,EXECUTE privilege */
             and (action in (193,224)))&1    /* more magic...normalize GRANT */
            ) = 1     /* final magic...compare Grants    */
        )
    UNION ALL
    SELECT           /* return value row*/
        PROCEDURE_CATALOG     = db_name(),
        PROCEDURE_SCHEMA     = user_name(),
        PROCEDURE_NAME         = convert(varchar(35),o.name +';'+ ltrim(str(c.number,5))),
        PARAMETER_NAME         = convert(sysname,'RETURN_VALUE'),
        ORDINAL_POSITION     = convert(smallint,0),
        PARAMETER_TYPE         = convert(smallint, 4 /*DBPARAMTYPE_RETURNVALUE*/),
        PARAMETER_HASDEFAULT    = convert(tinyint,null),
        PARAMETER_DEFAULT    = convert(varchar(255),null),
        IS_NULLABLE        = convert(bit,0),
        DATA_TYPE        = convert(smallint, 3 /*DBTYPE_I4*/),
        CHARACTER_MAXIMUM_LENGTH= convert(int,null),
        CHARACTER_OCTET_LENGTH    = convert(int,null),
        NUMERIC_PRECISION    = convert(smallint,null),
        NUMERIC_SCALE        = convert(smallint,null),
        DESCRIPTION        = convert(varchar(1),null)
    from
        syscomments c,
        sysobjects o,
        sysusers u
    where
        o.name = @procedure_name
    and    o.type = 'P'                        /* Just Procedures */
    and     (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and    (@parameter_name is null or @parameter_name = 'RETURN_VALUE')
    and    c.id = o.id
    and     c.colid = 1
    and     u.uid = user_id()    /* constrain sysusers uid for use in subquery */
    and     (    suser_id() = 1     /* User is the System Administrator */
        or     o.uid = user_id()    /* User created the object */
            /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
        or     ((select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
             from sysprotects p
             where p.id = o.id
                 /*  get rows for public,current user,user's group */
                 and (p.uid = 0 or p.uid = user_id() or p.uid = u.gid)
                 /* check for SELECT,EXECUTE privilege */
             and (action in (193,224)))&1    /* more magic...normalize GRANT */
            ) = 1     /* final magic...compare Grants    */
        )
    order by 2, 3, 5
    END
ELSE
    BEGIN
    select
        PROCEDURE_CATALOG     = db_name(),
        PROCEDURE_SCHEMA     = user_name(),
        PROCEDURE_NAME         = convert(varchar(35),o.name +';'+ ltrim(str(c.number,5))),
        PARAMETER_NAME         = c.name,
        ORDINAL_POSITION     = convert(smallint,c.colid),
        PARAMETER_TYPE         = convert(smallint, 1+((c.status/64)&1)),
        PARAMETER_HASDEFAULT    = convert(tinyint,null),
        PARAMETER_DEFAULT    = convert(varchar(255),null),
        IS_NULLABLE        = convert(bit,c.status&8),
        DATA_TYPE        = d.oledb_data_type,
        CHARACTER_MAXIMUM_LENGTH= convert(int,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                        then coalesce(d.column_size,c.length)
                        else null
                        end),
        CHARACTER_OCTET_LENGTH    = convert(int,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                        then coalesce(d.column_size,c.length)
                        else null
                        end),
        NUMERIC_PRECISION    = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.prec else null end),
        NUMERIC_SCALE        = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.scale else null end),
        DESCRIPTION        = convert(varchar(1),null)

    from
        syscolumns c,
        sysobjects o,
        master.dbo.spt_provider_types d,
        systypes t,
        sysusers u
    where
        o.type = 'P'                            /* Just Procedures */
    and    (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and    o.id = c.id
    and    c.type = d.ss_dtype
    and    c.length = case when d.fixlen > 0 then d.fixlen else c.length end
    and    c.usertype = t.usertype
    and    (@parameter_name is null or @parameter_name = c.name)
    and     u.uid = user_id()    /* constrain sysusers uid for use in subquery */
    and     (    suser_id() = 1     /* User is the System Administrator */
        or     o.uid = user_id()    /* User created the object */
            /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
        or     ((select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
             from sysprotects p
             where p.id = o.id
                 /*  get rows for public,current user,user's group */
                 and (p.uid = 0 or p.uid = user_id() or p.uid = u.gid)
                 /* check for SELECT,EXECUTE privilege */
             and (action in (193,224)))&1    /* more magic...normalize GRANT */
            ) = 1     /* final magic...compare Grants    */
        )
    UNION ALL
    SELECT           /* return value row*/
        PROCEDURE_CATALOG     = db_name(),
        PROCEDURE_SCHEMA     = user_name(),
        PROCEDURE_NAME         = convert(varchar(35),o.name +';'+ ltrim(str(c.number,5))),
        PARAMETER_NAME         = convert(sysname,'RETURN_VALUE'),
        ORDINAL_POSITION     = convert(smallint,0),
        PARAMETER_TYPE         = convert(smallint, 4 /*DBPARAMTYPE_RETURNVALUE*/),
        PARAMETER_HASDEFAULT    = convert(tinyint,null),
        PARAMETER_DEFAULT    = convert(varchar(255),null),
        IS_NULLABLE        = convert(bit,0),
        DATA_TYPE        = convert(smallint, 3 /*DBTYPE_I4*/),
        CHARACTER_MAXIMUM_LENGTH= convert(int,null),
        CHARACTER_OCTET_LENGTH    = convert(int,null),
        NUMERIC_PRECISION    = convert(smallint,null),
        NUMERIC_SCALE        = convert(smallint,null),
        DESCRIPTION        = convert(varchar(1),null)
    from
        syscomments c,
        sysobjects o,
        sysusers u
    where
        o.type = 'P'                        /* Just Procedures */
    and     (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and    (@parameter_name is null or @parameter_name = 'RETURN_VALUE')
    and    c.id = o.id
    and     c.colid = 1
    and     u.uid = user_id()    /* constrain sysusers uid for use in subquery */
    and     (    suser_id() = 1     /* User is the System Administrator */
        or     o.uid = user_id()    /* User created the object */
            /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
        or     ((select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
             from sysprotects p
             where p.id = o.id
                 /*  get rows for public,current user,user's group */
                 and (p.uid = 0 or p.uid = user_id() or p.uid = u.gid)
                 /* check for SELECT,EXECUTE privilege */
             and (action in (193,224)))&1    /* more magic...normalize GRANT */
            ) = 1     /* final magic...compare Grants    */
        )
    order by 2, 3, 5
    END
go
create procedure sp_procedure_params_rowset;2
    (
      @handle            int output,
       @scrollopt        int output,
    @ccopt            int output,
    @rows            int output,
       @procedure_name        varchar(255) = null,
    @group_number        int = null,
    @procedure_schema     varchar(255) = null,
    @parameter_name        varchar(255) = null
    )
as
    declare @ret int


    create table #spprocparamrowset1
        (
        PROCEDURE_CATALOG     sysname not null,
        PROCEDURE_SCHEMA     sysname not null,
        PROCEDURE_NAME         varchar(35) not null,
        PARAMETER_NAME         sysname not null,
        ORDINAL_POSITION     smallint not null,
        PARAMETER_TYPE         smallint null,
        PARAMETER_HASDEFAULT    tinyint null,
        PARAMETER_DEFAULT    varchar(255) null,
        IS_NULLABLE        bit not null,
        DATA_TYPE        smallint null,
        CHARACTER_MAXIMUM_LENGTH int null,
        CHARACTER_OCTET_LENGTH    int null,
        NUMERIC_PRECISION    smallint null,
        NUMERIC_SCALE        smallint null,
        DESCRIPTION        varchar(1) null
        )

IF @procedure_name is not null
    BEGIN
    insert into #spprocparamrowset1
    select
        PROCEDURE_CATALOG     = db_name(),
        PROCEDURE_SCHEMA     = user_name(),
        PROCEDURE_NAME         = convert(varchar(35),o.name +';'+ ltrim(str(c.number,5))),
        PARAMETER_NAME         = c.name,
        ORDINAL_POSITION     = convert(smallint,c.colid),
        PARAMETER_TYPE         = convert(smallint, 1+((c.status/64)&1)),
        PARAMETER_HASDEFAULT    = convert(tinyint, null),
        PARAMETER_DEFAULT    = convert(varchar(255),null),
        IS_NULLABLE        = convert(bit,c.status&8),
        DATA_TYPE        = d.oledb_data_type,
        CHARACTER_MAXIMUM_LENGTH= convert(int,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                        then coalesce(d.column_size,c.length)
                        else null
                        end),
        CHARACTER_OCTET_LENGTH    = convert(int,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                        then coalesce(d.column_size,c.length)
                        else null
                        end),
        NUMERIC_PRECISION    = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.prec else null end),
        NUMERIC_SCALE        = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.scale else null end),
        DESCRIPTION        = convert(varchar(1),null)

    from
        syscolumns c,
        sysobjects o,
        master.dbo.spt_provider_types d,
        systypes t,
        sysusers u
    where
        o.name = @procedure_name
    and    o.type = 'P'                            /* Just Procedures */
    and    (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and    o.id = c.id
    and    c.number = @group_number
    and    c.type = d.ss_dtype
    and    c.length = case when d.fixlen > 0 then d.fixlen else c.length end
    and    c.usertype = t.usertype
    and    (@parameter_name is null or @parameter_name = c.name)
    and     u.uid = user_id()    /* constrain sysusers uid for use in subquery */
    and     (    suser_id() = 1     /* User is the System Administrator */
        or     o.uid = user_id()    /* User created the object */
            /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
        or     ((select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
             from sysprotects p
             where p.id = o.id
                 /*  get rows for public,current user,user's group */
                 and (p.uid = 0 or p.uid = user_id() or p.uid = u.gid)
                 /* check for SELECT,EXECUTE privilege */
             and (action in (193,224)))&1    /* more magic...normalize GRANT */
            ) = 1     /* final magic...compare Grants    */
        )
    UNION ALL
    SELECT           /* return value row*/
        PROCEDURE_CATALOG     = db_name(),
        PROCEDURE_SCHEMA     = user_name(),
        PROCEDURE_NAME         = convert(varchar(35),o.name +';'+ ltrim(str(c.number,5))),
        PARAMETER_NAME         = convert(sysname,'RETURN_VALUE'),
        ORDINAL_POSITION     = convert(smallint,0),
        PARAMETER_TYPE         = convert(smallint, 4 /*DBPARAMTYPE_RETURNVALUE*/),
        PARAMETER_HASDEFAULT    = convert(tinyint,null),
        PARAMETER_DEFAULT    = convert(varchar(255),null),
        IS_NULLABLE        = convert(bit,0),
        DATA_TYPE        = convert(smallint, 3 /*DBTYPE_I4*/),
        CHARACTER_MAXIMUM_LENGTH= convert(int,null),
        CHARACTER_OCTET_LENGTH    = convert(int,null),
        NUMERIC_PRECISION    = convert(smallint,null),
        NUMERIC_SCALE        = convert(smallint,null),
        DESCRIPTION        = convert(varchar(1),null)
    from
        syscomments c,
        sysobjects o,
        sysusers u
    where
        o.name = @procedure_name
    and    o.type = 'P'                        /* Just Procedures */
    and     (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and    (@parameter_name is null or @parameter_name = 'RETURN_VALUE')
    and    c.id = o.id
    and     c.colid = 1
    and     u.uid = user_id()    /* constrain sysusers uid for use in subquery */
    and     (    suser_id() = 1     /* User is the System Administrator */
        or     o.uid = user_id()    /* User created the object */
            /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
        or     ((select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
             from sysprotects p
             where p.id = o.id
                 /*  get rows for public,current user,user's group */
                 and (p.uid = 0 or p.uid = user_id() or p.uid = u.gid)
                 /* check for SELECT,EXECUTE privilege */
             and (action in (193,224)))&1    /* more magic...normalize GRANT */
            ) = 1     /* final magic...compare Grants    */
        )
    order by 2, 3, 5
    END
ELSE
    BEGIN
    insert into #spprocparamrowset1
    select
        PROCEDURE_CATALOG     = db_name(),
        PROCEDURE_SCHEMA     = user_name(),
        PROCEDURE_NAME         = convert(varchar(35),o.name +';'+ ltrim(str(c.number,5))),
        PARAMETER_NAME         = c.name,
        ORDINAL_POSITION     = convert(smallint,c.colid),
        PARAMETER_TYPE         = convert(smallint, 1+((c.status/64)&1)),
        PARAMETER_HASDEFAULT    = convert(tinyint,null),
        PARAMETER_DEFAULT    = convert(varchar(255),null),
        IS_NULLABLE        = convert(bit,c.status&8),
        DATA_TYPE        = d.oledb_data_type,
        CHARACTER_MAXIMUM_LENGTH= convert(int,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                        then coalesce(d.column_size,c.length)
                        else null
                        end),
        CHARACTER_OCTET_LENGTH    = convert(int,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                        then coalesce(d.column_size,c.length)
                        else null
                        end),
        NUMERIC_PRECISION    = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.prec else null end),
        NUMERIC_SCALE        = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.scale else null end),
        DESCRIPTION        = convert(varchar(1),null)

    from
        syscolumns c,
        sysobjects o,
        master.dbo.spt_provider_types d,
        systypes t,
        sysusers u
    where
        o.type = 'P'                            /* Just Procedures */
    and    (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and    o.id = c.id
    and    c.type = d.ss_dtype
    and    c.length = case when d.fixlen > 0 then d.fixlen else c.length end
    and    c.usertype = t.usertype
    and    (@parameter_name is null or @parameter_name = c.name)
    and     u.uid = user_id()    /* constrain sysusers uid for use in subquery */
    and     (    suser_id() = 1     /* User is the System Administrator */
        or     o.uid = user_id()    /* User created the object */
            /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
        or     ((select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
             from sysprotects p
             where p.id = o.id
                 /*  get rows for public,current user,user's group */
                 and (p.uid = 0 or p.uid = user_id() or p.uid = u.gid)
                 /* check for SELECT,EXECUTE privilege */
             and (action in (193,224)))&1    /* more magic...normalize GRANT */
            ) = 1     /* final magic...compare Grants    */
        )
    UNION ALL
    SELECT           /* return value row*/
        PROCEDURE_CATALOG     = db_name(),
        PROCEDURE_SCHEMA     = user_name(),
        PROCEDURE_NAME         = convert(varchar(35),o.name +';'+ ltrim(str(c.number,5))),
        PARAMETER_NAME         = convert(sysname,'RETURN_VALUE'),
        ORDINAL_POSITION     = convert(smallint,0),
        PARAMETER_TYPE         = convert(smallint, 4 /*DBPARAMTYPE_RETURNVALUE*/),
        PARAMETER_HASDEFAULT    = convert(tinyint,null),
        PARAMETER_DEFAULT    = convert(varchar(255),null),
        IS_NULLABLE        = convert(bit,0),
        DATA_TYPE        = convert(smallint, 3 /*DBTYPE_I4*/),
        CHARACTER_MAXIMUM_LENGTH= convert(int,null),
        CHARACTER_OCTET_LENGTH    = convert(int,null),
        NUMERIC_PRECISION    = convert(smallint,null),
        NUMERIC_SCALE        = convert(smallint,null),
        DESCRIPTION        = convert(varchar(1),null)
    from
        syscomments c,
        sysobjects o,
        sysusers u
    where
        o.type = 'P'                        /* Just Procedures */
    and     (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and    (@parameter_name is null or @parameter_name = 'RETURN_VALUE')
    and    c.id = o.id
    and     c.colid = 1
    and     u.uid = user_id()    /* constrain sysusers uid for use in subquery */
    and     (    suser_id() = 1     /* User is the System Administrator */
        or     o.uid = user_id()    /* User created the object */
            /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
        or     ((select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
             from sysprotects p
             where p.id = o.id
                 /*  get rows for public,current user,user's group */
                 and (p.uid = 0 or p.uid = user_id() or p.uid = u.gid)
                 /* check for SELECT,EXECUTE privilege */
             and (action in (193,224)))&1    /* more magic...normalize GRANT */
            ) = 1     /* final magic...compare Grants    */
        )
    order by 2, 3, 5
    END

    exec @ret = sp_cursoropen @handle output, 'select * from #spprocparamrowset1',
        @scrollopt output, @ccopt output, @rows output

    drop table #spprocparamrowset1
       return isnull(@ret,0)
go



if (charindex('7.00', @@version) > 0)
    drop procedure sp_procedure_params_rowset
else
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
go

/*    Procedure for 7.0 servers */
create procedure sp_procedure_params_rowset
    (
       @procedure_name        sysname,
    @group_number        int = 1,
    @procedure_schema     sysname = null,
    @parameter_name        sysname = null
    )
as
    select
        PROCEDURE_CATALOG     = db_name(),
        PROCEDURE_SCHEMA     = user_name(),
        PROCEDURE_NAME         = convert(nvarchar(134),o.name +';'+ ltrim(str(c.number,5))),
        PARAMETER_NAME         = c.name,
        ORDINAL_POSITION     = convert(smallint,c.colid),
        PARAMETER_TYPE         = convert(smallint, 1+c.isoutparam),
        PARAMETER_HASDEFAULT    = convert(tinyint, null),
        PARAMETER_DEFAULT    = convert(nvarchar(255),null),
        IS_NULLABLE        = convert(bit,ColumnProperty(c.id,c.name,'AllowsNull')),
        DATA_TYPE        = d.oledb_data_type,
        CHARACTER_MAXIMUM_LENGTH= convert(int,
                        case
                        when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                        then coalesce(d.column_size,c.length)
                        when d.oledb_data_type = 130 /*DBTYPE_WSTR*/
                        then coalesce(d.column_size,c.length/2)
                        else null
                        end),
        CHARACTER_OCTET_LENGTH    = convert(int,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                            or d.oledb_data_type = 130 /*DBTYPE_WSTR*/
                        then coalesce(d.column_size,c.length)
                        else null
                        end),
        NUMERIC_PRECISION    = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.prec else null end),
        NUMERIC_SCALE        = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.scale else null end),
        DESCRIPTION        = convert(nvarchar(1),null)

    from
        sysobjects o,
        syscolumns c,
        master.dbo.spt_provider_types d,
        systypes t
    where
        o.name = @procedure_name
    and    o.type = 'P'                            /* Just Procedures */
    and    (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and    o.id = c.id
    and    c.number = @group_number
    and    c.xtype = d.ss_dtype
    and    c.length = case when d.fixlen > 0 then d.fixlen else c.length end
    and    c.xusertype = t.xusertype
    and    (@parameter_name is null or @parameter_name = c.name)
    and     permissions(o.id) <> 0
    UNION ALL
    SELECT           /* return value row*/
        PROCEDURE_CATALOG     = db_name(),
        PROCEDURE_SCHEMA     = user_name(),
        PROCEDURE_NAME         = convert(nvarchar(134),o.name +';'+ ltrim(str(c.number,5))),
        PARAMETER_NAME         = convert(sysname,'RETURN_VALUE'),
        ORDINAL_POSITION     = convert(smallint,0),
        PARAMETER_TYPE         = convert(smallint, 4 /*DBPARAMTYPE_RETURNVALUE*/),
        PARAMETER_HASDEFAULT    = convert(tinyint, null),
        PARAMETER_DEFAULT    = convert(nvarchar(255),null),
        IS_NULLABLE        = convert(bit,0),
        DATA_TYPE        = convert(smallint, 3 /*DBTYPE_I4*/),
        CHARACTER_MAXIMUM_LENGTH= convert(int,null),
        CHARACTER_OCTET_LENGTH    = convert(int,null),
        NUMERIC_PRECISION    = convert(smallint,null),
        NUMERIC_SCALE        = convert(smallint,null),
        DESCRIPTION        = convert(nvarchar(1),null)
    from
        sysobjects o,
        syscomments c
    where
        o.name = @procedure_name
    and    o.id = c.id
    and    c.colid = 1
    and    o.type = 'P'                        /* Just Procedures */
    and     (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and    (@parameter_name is null or @parameter_name = 'RETURN_VALUE')
    and    permissions(o.id) <> 1
    order by 2, 3, 5
go
create procedure sp_procedure_params_rowset;2
    (
    @procedure_schema     sysname = null,
    @parameter_name        sysname = null
    )
as
    select
        PROCEDURE_CATALOG     = db_name(),
        PROCEDURE_SCHEMA     = user_name(),
        PROCEDURE_NAME         = convert(nvarchar(134),o.name +';'+ ltrim(str(c.number,5))),
        PARAMETER_NAME         = c.name,
        ORDINAL_POSITION     = convert(smallint,c.colid),
        PARAMETER_TYPE         = convert(smallint, 1+c.isoutparam),
        PARAMETER_HASDEFAULT    = convert(tinyint, null),
        PARAMETER_DEFAULT    = convert(nvarchar(255),null),
        IS_NULLABLE        = convert(bit,ColumnProperty(c.id,c.name,'AllowsNull')),
        DATA_TYPE        = d.oledb_data_type,
        CHARACTER_MAXIMUM_LENGTH= convert(int,
                        case
                        when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                        then coalesce(d.column_size,c.length)
                        when d.oledb_data_type = 130 /*DBTYPE_WSTR*/
                        then coalesce(d.column_size,c.length/2)
                        else null
                        end),
        CHARACTER_OCTET_LENGTH    = convert(int,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                            or d.oledb_data_type = 130 /*DBTYPE_WSTR*/
                        then coalesce(d.column_size,c.length)
                        else null
                        end),
        NUMERIC_PRECISION    = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.prec else null end),
        NUMERIC_SCALE        = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.scale else null end),
        DESCRIPTION        = convert(nvarchar(1),null)

    from
        sysobjects o,
        syscolumns c,
        master.dbo.spt_provider_types d,
        systypes t
    where
        o.type = 'P'                            /* Just Procedures */
    and    (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and    o.id = c.id
    and    c.xtype = d.ss_dtype
    and    c.length = case when d.fixlen > 0 then d.fixlen else c.length end
    and    c.xusertype = t.xusertype
    and    (@parameter_name is null or @parameter_name = c.name)
    and     permissions(o.id) <> 0
    UNION ALL
    SELECT           /* return value row*/
        PROCEDURE_CATALOG     = db_name(),
        PROCEDURE_SCHEMA     = user_name(),
        PROCEDURE_NAME         = convert(nvarchar(134),o.name +';'+ ltrim(str(c.number,5))),
        PARAMETER_NAME         = convert(sysname,'RETURN_VALUE'),
        ORDINAL_POSITION     = convert(smallint,0),
        PARAMETER_TYPE         = convert(smallint, 4 /*DBPARAMTYPE_RETURNVALUE*/),
        PARAMETER_HASDEFAULT    = convert(tinyint, null),
        PARAMETER_DEFAULT    = convert(nvarchar(255),null),
        IS_NULLABLE        = convert(bit,0),
        DATA_TYPE        = convert(smallint, 3 /*DBTYPE_I4*/),
        CHARACTER_MAXIMUM_LENGTH= convert(int,null),
        CHARACTER_OCTET_LENGTH    = convert(int,null),
        NUMERIC_PRECISION    = convert(smallint,null),
        NUMERIC_SCALE        = convert(smallint,null),
        DESCRIPTION        = convert(nvarchar(1),null)
    from
        sysobjects o,
        syscomments c
    where
        o.type = 'P'        /* Just Procedures */
    and    o.id = c.id
    and    c.colid = 1
    and     (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and    (@parameter_name is null or @parameter_name = 'RETURN_VALUE')
    and    permissions(o.id) <> 1
    order by 2, 3, 5
go
create procedure sp_procedure_params_rowset;3
    (
       @procedure_name        sysname = null,
    @group_number        int = null,
    @procedure_schema     sysname = null,
    @parameter_name        sysname = null
    )
as
IF @procedure_name is not null
    BEGIN
    select
        PROCEDURE_CATALOG     = db_name(),
        PROCEDURE_SCHEMA     = user_name(),
        PROCEDURE_NAME         = convert(nvarchar(134),o.name +';'+ ltrim(str(c.number,5))),
        PARAMETER_NAME         = c.name,
        ORDINAL_POSITION     = convert(smallint,c.colid),
        PARAMETER_TYPE         = convert(smallint, 1+c.isoutparam),
        PARAMETER_HASDEFAULT    = convert(tinyint, null),
        PARAMETER_DEFAULT    = convert(nvarchar(255),null),
        IS_NULLABLE        = convert(bit,ColumnProperty(c.id,c.name,'AllowsNull')),
        DATA_TYPE        = d.oledb_data_type,
        CHARACTER_MAXIMUM_LENGTH= convert(int,
                        case
                        when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                        then coalesce(d.column_size,c.length)
                        when d.oledb_data_type = 130 /*DBTYPE_WSTR*/
                        then coalesce(d.column_size,c.length/2)
                        else null
                        end),
        CHARACTER_OCTET_LENGTH    = convert(int,
                        case when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                            or d.oledb_data_type = 130 /*DBTYPE_WSTR*/
                        then coalesce(d.column_size,c.length*2)
                        else null
                        end),
        NUMERIC_PRECISION    = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.prec else null end),
        NUMERIC_SCALE        = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.scale else null end),
        DESCRIPTION        = convert(nvarchar(1),null)

    from
        sysobjects o,
        syscolumns c,
        master.dbo.spt_provider_types d,
        systypes t
    where
        o.name = @procedure_name
    and    o.type = 'P'                            /* Just Procedures */
    and    (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and    o.id = c.id
    and    c.number = @group_number
    and    c.xtype = d.ss_dtype
    and    c.length = case when d.fixlen > 0 then d.fixlen else c.length end
    and    c.xusertype = t.xusertype
    and    (@parameter_name is null or @parameter_name = c.name)
    and     permissions(o.id) <> 0
    UNION ALL
    SELECT           /* return value row*/
        PROCEDURE_CATALOG     = db_name(),
        PROCEDURE_SCHEMA     = user_name(),
        PROCEDURE_NAME         = convert(nvarchar(134),o.name +';'+ ltrim(str(c.number,5))),
        PARAMETER_NAME         = convert(sysname,'RETURN_VALUE'),
        ORDINAL_POSITION     = convert(smallint,0),
        PARAMETER_TYPE         = convert(smallint,4 /*DBPARAMTYPE_RETURNVALUE*/),
        PARAMETER_HASDEFAULT    = convert(tinyint, null),
        PARAMETER_DEFAULT    = convert(nvarchar(255),null),
        IS_NULLABLE        = convert(bit,0),
        DATA_TYPE        = convert(smallint,3 /*DBTYPE_I4*/),
        CHARACTER_MAXIMUM_LENGTH= convert(int,null),
        CHARACTER_OCTET_LENGTH    = convert(int,null),
        NUMERIC_PRECISION    = convert(smallint,null),
        NUMERIC_SCALE        = convert(smallint,null),
        DESCRIPTION        = convert(nvarchar(1),null)
    from
        sysobjects o,
        syscomments c
    where
        o.name = @procedure_name
    and    o.type = 'P'        /* Just Procedures */
    and    o.id = c.id
    and    c.colid = 1
    and     (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and    (@parameter_name is null or @parameter_name = 'RETURN_VALUE')
    and    permissions(o.id) <> 1
    END
ELSE
    BEGIN
    select
        PROCEDURE_CATALOG     = db_name(),
        PROCEDURE_SCHEMA     = user_name(),
        PROCEDURE_NAME         = convert(nvarchar(134),o.name +';'+ ltrim(str(c.number,5))),
        PARAMETER_NAME         = c.name,
        ORDINAL_POSITION     = convert(smallint,c.colid),
        PARAMETER_TYPE         = convert(smallint, 1+c.isoutparam),
        PARAMETER_HASDEFAULT    = convert(tinyint, null),
        PARAMETER_DEFAULT    = convert(nvarchar(255),null),
        IS_NULLABLE        = convert(bit,ColumnProperty(c.id,c.name,'AllowsNull')),
        DATA_TYPE        = d.oledb_data_type,
        CHARACTER_MAXIMUM_LENGTH= convert(int,
                        case
                        when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                        then coalesce(d.column_size,c.length)
                        when d.oledb_data_type = 130 /*DBTYPE_WSTR*/
                        then coalesce(d.column_size,c.length/2)
                        else null
                        end),
        CHARACTER_OCTET_LENGTH    = convert(int,
                        case
                        when d.oledb_data_type = 129 /*DBTYPE_STR*/
                            or d.oledb_data_type = 128 /*DBTYPE_BYTES*/
                            or d.oledb_data_type = 130 /*DBTYPE_WSTR*/
                        then coalesce(d.column_size,c.length)
                        else null
                        end),
        NUMERIC_PRECISION    = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.prec else null end),
        NUMERIC_SCALE        = convert(smallint,
                        case when d.oledb_data_type = 131 /*DBTYPE_NUMERIC*/ then c.scale else null end),
        DESCRIPTION        = convert(nvarchar(1),null)

    from
        sysobjects o,
        syscolumns c,
        master.dbo.spt_provider_types d,
        systypes t
    where
        o.type = 'P'        /* Just Procedures */
    and    (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and    o.id = c.id
    and    c.xtype = d.ss_dtype
    and    c.length = case when d.fixlen > 0 then d.fixlen else c.length end
    and    c.xusertype = t.xusertype
    and    (@parameter_name is null or @parameter_name = c.name)
    and     permissions(o.id) <> 0
    UNION ALL
    SELECT           /* return value row*/
        PROCEDURE_CATALOG     = db_name(),
        PROCEDURE_SCHEMA     = user_name(),
        PROCEDURE_NAME         = convert(nvarchar(134),o.name +';'+ ltrim(str(c.number,5))),
        PARAMETER_NAME         = convert(sysname,'RETURN_VALUE'),
        ORDINAL_POSITION     = convert(smallint,0),
        PARAMETER_TYPE         = convert(smallint, 4 /*DBPARAMTYPE_RETURNVALUE*/),
        PARAMETER_HASDEFAULT    = convert(tinyint, null),
        PARAMETER_DEFAULT    = convert(nvarchar(255),null),
        IS_NULLABLE        = convert(bit,0),
        DATA_TYPE        = convert(smallint, 3 /*DBTYPE_I4*/),
        CHARACTER_MAXIMUM_LENGTH= convert(int,null),
        CHARACTER_OCTET_LENGTH    = convert(int,null),
        NUMERIC_PRECISION    = convert(smallint,null),
        NUMERIC_SCALE        = convert(smallint,null),
        DESCRIPTION        = convert(nvarchar(1),null)
    from
        sysobjects o,
        syscomments c
    where
        o.type = 'P'        /* Just Procedures */
    and    o.id = c.id
    and    c.colid = 1
    and     (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and    (@parameter_name is null or @parameter_name = 'RETURN_VALUE')
    and    permissions(o.id) <> 1
    END
go


create procedure sp_procedure_params_rowset;4
    (
       @handle        int output,
       @scrollopt    int output,
    @ccopt        int output,
    @rows        int output,
    @cmd        nvarchar(1200)
    )
as
    declare @ret int
    declare @database_name sysname
    declare @SQL nvarchar(1500)

    create table #spsprocparamrowset
        (
        PROCEDURE_CATALOG     sysname not null,
        PROCEDURE_SCHEMA     sysname not null,
        PROCEDURE_NAME         nvarchar(134) not null,
        PARAMETER_NAME         sysname not null,
        ORDINAL_POSITION     smallint not null,
        PARAMETER_TYPE         smallint null,
        PARAMETER_HASDEFAULT    tinyint null,
        PARAMETER_DEFAULT    nvarchar(255) null,
        IS_NULLABLE        bit not null,
        DATA_TYPE        smallint null,
        CHARACTER_MAXIMUM_LENGTH int null,
        CHARACTER_OCTET_LENGTH    int null,
        NUMERIC_PRECISION    smallint null,
        NUMERIC_SCALE        smallint null,
        DESCRIPTION        nvarchar(1) null
        )

    declare sysdatabases_cursor insensitive cursor for
        select name from master.dbo.sysdatabases

    set nocount on
    open sysdatabases_cursor
      fetch next from sysdatabases_cursor into @database_name
    while @@fetch_status = 0
        begin
        select @SQL = N'use '+quotename(@database_name)+N' insert into #spsprocparamrowset '+@cmd
        exec(@SQL)
        fetch next from sysdatabases_cursor into @database_name
        end
      close sysdatabases_cursor
    deallocate sysdatabases_cursor

    if @scrollopt is null
        begin
        select * from #spsprocparamrowset order by 1,2,3
        end
    else
        begin
        exec @ret = sp_cursoropen @handle output,
            'select * from #spsprocparamrowset order by 1,2,3,5',
                @scrollopt output, @ccopt output, @rows output
        end
    drop table #spsprocparamrowset
    return isnull(@ret,0)
go


grant execute on sp_procedure_params_rowset to public
go

dump tran master with no_log
go

print ''
print 'creating sp_procedures_rowset'
go


/* pre 7.00 version */
create procedure sp_procedures_rowset
    (
    @procedure_name        varchar(255),
    @group_number        int = 1,
    @procedure_schema    varchar(255) = null
    )
as
    select
        PROCEDURE_CATALOG    = db_name(),
        PROCEDURE_SCHEMA    = user_name(o.uid),
        PROCEDURE_NAME        = convert(varchar(35),o.name +';'+ ltrim(str(p.number,5))),
        PROCEDURE_TYPE        = convert(smallint, 3 /*DB_PT_FUNCTION*/),
        PROCEDURE_DEFINITION    = convert(varchar(1),null),
        DESCRIPTION        = convert(varchar(1),null)
    from
        sysobjects o,
        syscomments p,
        sysusers u
    where
            o.name = @procedure_name
        and     (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and     o.type = 'P'        /* Object type of Procedure */
    and     p.colid = 1
    and     p.id = o.id
    and    p.number = @group_number
    and     u.uid = user_id()    /* constrain sysusers uid for use in subquery */
    and     (    suser_id() = 1     /* User is the System Administrator */
        or     o.uid = user_id()    /* User created the object */
            /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
        or     ((select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
             from sysprotects p
             where p.id = o.id
                 /*  get rows for public,current user,user's group */
                 and (p.uid = 0 or p.uid = user_id() or p.uid = u.gid)
                 /* check for SELECT,EXECUTE privilege */
             and (action in (193,224)))&1    /* more magic...normalize GRANT */
            ) = 1     /* final magic...compare Grants    */
        )
    order by 2, 3
go
create procedure sp_procedures_rowset;2
    (
    @procedure_schema    varchar(255) = null
    )
as
    select
        PROCEDURE_CATALOG    = db_name(),
        PROCEDURE_SCHEMA    = user_name(o.uid),
        PROCEDURE_NAME        = convert(varchar(35),o.name +';'+ ltrim(str(p.number,5))),
        PROCEDURE_TYPE        = convert(smallint, 3 /*DB_PT_FUNCTION*/),
        PROCEDURE_DEFINITION    = convert(varchar(1),null),
        DESCRIPTION        = convert(varchar(1),null)
    from
        sysobjects o,
        syscomments p,
        sysusers u
    where
            (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and     o.type = 'P'        /* Object type of Procedure */
    and     p.colid = 1
    and     p.id = o.id
    and     u.uid = user_id()    /* constrain sysusers uid for use in subquery */
    and     (    suser_id() = 1     /* User is the System Administrator */
        or     o.uid = user_id()    /* User created the object */
            /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
        or     ((select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
             from sysprotects p
             where p.id = o.id
                 /*  get rows for public,current user,user's group */
                 and (p.uid = 0 or p.uid = user_id() or p.uid = u.gid)
                 /* check for SELECT,EXECUTE privilege */
             and (action in (193,224)))&1    /* more magic...normalize GRANT */
            ) = 1     /* final magic...compare Grants    */
        )
    order by 2, 3
go

if (charindex('7.00', @@version) > 0)
    drop procedure sp_procedures_rowset
else
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
go

/* 7.00 version */
create procedure sp_procedures_rowset
    (
    @procedure_name        sysname,
    @group_number        int = 1,
    @procedure_schema    sysname = null
    )
as
    select
        PROCEDURE_CATALOG    = db_name(),
        PROCEDURE_SCHEMA    = user_name(o.uid),
        PROCEDURE_NAME        = convert(nvarchar(134),o.name +';'+ ltrim(str(p.number,5))),
        PROCEDURE_TYPE        = convert(smallint, 3 /*DB_PT_FUNCTION*/),
        PROCEDURE_DEFINITION    = convert(nvarchar(1),null),
        DESCRIPTION        = convert(nvarchar(1),null)
    from
        sysobjects o,
        syscomments p
    where
        permissions(o.id) <> 0
    and    o.name = @procedure_name
    and     (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and     o.type = 'P'        /* Object type of Procedure */
    and     p.colid = 1
    and     p.id = o.id
    and    p.number = @group_number
    order by 2, 3
go
create procedure sp_procedures_rowset;2
    (
    @procedure_schema    sysname = null
    )
as
    select
        PROCEDURE_CATALOG    = db_name(),
        PROCEDURE_SCHEMA    = user_name(o.uid),
        PROCEDURE_NAME        = convert(nvarchar(134),o.name +';'+ ltrim(str(p.number,5))),
        PROCEDURE_TYPE        = convert(smallint, 3 /*DB_PT_FUNCTION*/),
        PROCEDURE_DEFINITION    = convert(nvarchar(1),null),
        DESCRIPTION        = convert(nvarchar(1),null)
    from     sysobjects o, syscomments p
    where
        permissions(o.id) <> 0
    and        (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and     o.type = 'P'        /* Object type of Procedure */
    and p.colid = 1
    and p.id = o.id
    order by 2, 3
go
create procedure sp_procedures_rowset;3
    (
    @procedure_name        sysname = null,
    @group_number        int = null,
    @procedure_schema    sysname = null
    )
as
IF @procedure_name is not null
    BEGIN
    select
        PROCEDURE_CATALOG    = db_name(),
        PROCEDURE_SCHEMA    = user_name(o.uid),
        PROCEDURE_NAME        = convert(nvarchar(134),o.name +';'+ ltrim(str(p.number,5))),
        PROCEDURE_TYPE        = convert(smallint, 3 /*DB_PT_FUNCTION*/),
        PROCEDURE_DEFINITION    = convert(nvarchar(1),null),
        DESCRIPTION        = convert(nvarchar(1),null)
    from
        sysobjects o,
        syscomments p
    where
        permissions(o.id) <> 0
    and    o.name = @procedure_name
     and     (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and     o.type = 'P'        /* Object type of Procedure */
    and     p.colid = 1
    and     p.id = o.id
    and    p.number = @group_number
    END
ELSE
    BEGIN
    select
        PROCEDURE_CATALOG    = db_name(),
        PROCEDURE_SCHEMA    = user_name(o.uid),
        PROCEDURE_NAME        = convert(nvarchar(134),o.name +';'+ ltrim(str(p.number,5))),
        PROCEDURE_TYPE        = convert(smallint, 3 /*DB_PT_FUNCTION*/),
        PROCEDURE_DEFINITION    = convert(nvarchar(1),null),
        DESCRIPTION        = convert(nvarchar(1),null)
    from
        sysobjects o,
        syscomments p
    where
        permissions(o.id) <> 0
    and     (@procedure_schema is null or @procedure_schema = user_name(o.uid))
    and    o.type = 'P'        /* Object type of Procedure */
    and     p.colid = 1
        and     p.id = o.id
    END
go

create procedure sp_procedures_rowset;4
    (

       @handle        int output,
       @scrollopt    int output,
    @ccopt        int output,
    @rows        int output,
    @cmd        nvarchar(1200)
    )
as
    declare @ret int
    declare @database_name sysname
    declare @SQL nvarchar(1500)

    create table #spsprocrowset
        (
        PROCEDURE_CATALOG        sysname not null,
        PROCEDURE_SCHEMA        sysname not null,
        PROCEDURE_NAME            nvarchar(134) not null,
        PROCEDURE_TYPE            smallint not null,
        PROCEDURE_DEFINITION        nvarchar(1) null,
        DESCRIPTION            nvarchar(1) null
        )

    declare sysdatabases_cursor insensitive cursor for
        select name from master.dbo.sysdatabases

    set nocount on
    open sysdatabases_cursor
      fetch next from sysdatabases_cursor into @database_name
    while @@fetch_status = 0
        begin
        select @SQL = N'use '+quotename(@database_name)+N' insert into #spsprocrowset '+@cmd
        exec(@SQL)
        fetch next from sysdatabases_cursor into @database_name
        end
      close sysdatabases_cursor
    deallocate sysdatabases_cursor

    if @scrollopt is null
        begin
        select * from #spsprocrowset order by 1,2,3
        end
    else
        begin
        exec @ret = sp_cursoropen @handle output,
            'select * from #spsprocrowset order by 1,2,3',
                @scrollopt output, @ccopt output, @rows output
        end
    drop table #spsprocrowset
    return isnull(@ret,0)
go

grant execute on sp_procedures_rowset to public
go

dump tran master with no_log
go

print ''
print 'creating sp_schemata_rowset'
go

/*    6.0 and 6.5 version */
create procedure sp_schemata_rowset
    (
    @schema_name    varchar(90) = null,
    @schema_owner    varchar(90) = null
    )
as
    select    distinct
        CATALOG_NAME            = db_name(),
        SCHEMA_NAME            = user_name(o.uid),
        SCHEMA_OWNER            = user_name(o.uid),
        DEFAULT_CHARACTER_SET_CATALOG    = convert(sysname,'master'),
        DEFAULT_CHARACTER_SET_SCHEMA    = convert(sysname,'dbo'),
        DEFAULT_CHARACTER_SET_NAME    = convert(sysname,a_cha.name)
    from
        sysobjects o,
        master.dbo.sysconfigures    cfg,
        master.dbo.syscharsets        a_cha, /* charset/1001, not sortorder */
        master.dbo.syscharsets        b_cha  /* sortorder/2001, not charset */
    where
        (@schema_name is null or @schema_name = user_name(o.uid))
    and     (@schema_owner is null or @schema_owner = user_name(o.uid))
    and    a_cha.type = 1001 /* type is charset */
    and     b_cha.type = 2001 /* type is sortorder */
    and     a_cha.id = b_cha.csid
    and     b_cha.id = cfg.value
    order by 2
go

if (charindex('7.00', @@version) > 0)
    drop procedure sp_schemata_rowset
else
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
go

/* 7.00 version */
create procedure sp_schemata_rowset
    (
    @schema_name    sysname = null,
    @schema_owner    sysname = null
    )
as
    select    distinct
        CATALOG_NAME            = db_name(),
        SCHEMA_NAME            = user_name(o.uid),
        SCHEMA_OWNER            = user_name(o.uid),
        DEFAULT_CHARACTER_SET_CATALOG    = convert(sysname,N'master'),
        DEFAULT_CHARACTER_SET_SCHEMA    = convert(sysname,N'dbo'),
        DEFAULT_CHARACTER_SET_NAME    = convert(sysname,a_cha.name)
    from
        sysobjects o,
        master.dbo.sysconfigures    cfg,
        master.dbo.syscharsets        a_cha, /* charset/1001, not sortorder */
        master.dbo.syscharsets        b_cha  /* sortorder/2001, not charset */
    where
        (@schema_name is null or @schema_name = user_name(o.uid))
    and     (@schema_owner is null or @schema_owner = user_name(o.uid))
    and    a_cha.type = 1001 /* type is charset */
    and     b_cha.type = 2001 /* type is sortorder */
    and     a_cha.id = b_cha.csid
    and     b_cha.id = cfg.value
    order by 2
go
create procedure sp_schemata_rowset;2
    (

       @handle        int output,
       @scrollopt    int output,
    @ccopt        int output,
    @rows        int output,
    @cmd        nvarchar(1200)
    )
as
    declare @ret int
    declare @database_name sysname
    declare @SQL nvarchar(1500)

    create table #spschematarowset
        (
        CATALOG_NAME            sysname not null,
        SCHEMA_NAME            sysname not null,
        SCHEMA_OWNER            sysname not null,
        DEFAULT_CHARACTER_SET_CATALOG    sysname null,
        DEFAULT_CHARACTER_SET_SCHEMA    sysname null,
        DEFAULT_CHARACTER_SET_NAME    sysname null
        )

    declare sysdatabases_cursor insensitive cursor for
        select name from master.dbo.sysdatabases

    set nocount on
    open sysdatabases_cursor
      fetch next from sysdatabases_cursor into @database_name
    while @@fetch_status = 0
        begin
        select @SQL = N'use '+quotename(@database_name)+N' insert into #spschematarowset '+@cmd
        exec(@SQL)
        fetch next from sysdatabases_cursor into @database_name
        end
      close sysdatabases_cursor
    deallocate sysdatabases_cursor

    if @scrollopt is null
        begin
        select * from #spschematarowset order by 1,2,3
        end
    else
        begin
        exec @ret = sp_cursoropen @handle output,
            'select * from #spschematarowset order by 1,2,3',
                @scrollopt output, @ccopt output, @rows output
        end
    drop table #spschematarowset
    return isnull(@ret,0)
go
grant execute on sp_schemata_rowset to public
go

dump tran master with no_log
go

print ''
print 'creating sp_statistics_rowset'
go


/*    6.0 and 6.5 version */
create procedure sp_statistics_rowset
    (
    @table_name    varchar(255),
    @table_schema    varchar(255) = null
    )
as
    select    db_name()                as TABLE_CATALOG,
        user_name(o.uid)            as TABLE_SCHEMA,
        o.name                    as TABLE_NAME,
        x.rows                    as CARDINALITY
    from    sysobjects o, sysindexes x, sysusers u
    where    o.type in ('U')
    and     o.name = @table_name
    and     (@table_schema is null or @table_schema = user_name(o.uid))
    and     x.id = o.id
    and     x.indid in (0,1)    /*If there are no indexes then table stats are in a row with indid =0 */
    and     u.uid = user_id() /* constrain sysusers uid for use in subquery */
    and     (
        suser_id() = 1     /* User is the System Administrator */
        or o.uid = user_id()     /* User created the object */
        /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
        or (    (select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
            from sysprotects p
            where p.id = o.id
            /* get rows for public,current user,user's group */
            and (p.uid = 0 or p.uid = user_id() or p.uid = u.gid)
            /* check for SELECT,EXECUTE privilege */
            and (action in (193,224)))&1     /* more magic...normalize GRANT */
            ) = 1    /* final magic...compare Grants      */
           )
    order by 2, 3
go
create procedure sp_statistics_rowset;2
    (
    @table_schema    varchar(255) = null
    )
as
    select    db_name()                as TABLE_CATALOG,
        user_name(o.uid)            as TABLE_SCHEMA,
        o.name                    as TABLE_NAME,
        x.rows                    as CARDINALITY
    from    sysobjects o, sysindexes x, sysusers u
    where    o.type in ('U')
    and     (@table_schema is null or @table_schema = user_name(o.uid))
    and     x.id = o.id
    and     u.uid = user_id() /* constrain sysusers uid for use in subquery */
    and     (
        suser_id() = 1     /* User is the System Administrator */
        or o.uid = user_id()     /* User created the object */
        /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
        or (    (select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
            from sysprotects p
            where p.id = o.id
            /* get rows for public,current user,user's group */
            and (p.uid = 0 or p.uid = user_id() or p.uid = u.gid)
            /* check for SELECT,EXECUTE privilege */
            and (action in (193,224)))&1     /* more magic...normalize GRANT */
            ) = 1    /* final magic...compare Grants      */
           )
    order by 2, 3
go

if (charindex('7.00', @@version) > 0)
    drop procedure sp_statistics_rowset
else
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
go

/*     7.0 version */
create procedure sp_statistics_rowset
    (
    @table_name    sysname,
    @table_schema    sysname = null
    )
as
    select    db_name()                as TABLE_CATALOG,
        user_name(o.uid)            as TABLE_SCHEMA,
        o.name                    as TABLE_NAME,
        x.rows                    as CARDINALITY
    from    sysobjects o, sysindexes x
    where    o.type in ('U')
    and     o.name = @table_name
    and     (@table_schema is null or @table_schema = user_name(o.uid))
    and     x.id = o.id
    and     x.indid in (0,1)    /*If there are no indexes then table stats are in a row with indid =0 */
    and     permissions(o.id) <> 0
    order by 2, 3
go
create procedure sp_statistics_rowset;2
    (
    @table_schema    sysname = null
    )
as
    select    db_name()                as TABLE_CATALOG,
        user_name(o.uid)            as TABLE_SCHEMA,
        o.name                    as TABLE_NAME,
        x.rows                    as CARDINALITY
    from    sysobjects o, sysindexes x
    where    o.type in ('U')
    and     (@table_schema is null or @table_schema = user_name(o.uid))
    and     x.id = o.id
    and     x.indid in (0,1)    /*If there are no indexes then table stats are in a row with indid =0 */
    and     permissions(o.id) <> 0
    order by 2, 3
go
create procedure sp_statistics_rowset;3
    (
    @table_name    sysname = null,
    @table_schema    sysname = null
    )
as
IF @table_name is not null
    BEGIN
    select    db_name()                as TABLE_CATALOG,
        user_name(o.uid)            as TABLE_SCHEMA,
        o.name                    as TABLE_NAME,
        x.rows                    as CARDINALITY
    from    sysobjects o, sysindexes x
    where    o.type in ('U')
    and     o.name = @table_name
    and     (@table_schema is null or @table_schema = user_name(o.uid))
    and     x.id = o.id
    and     x.indid in (0,1)    /*If there are no indexes then table stats are in a row with indid =0 */
    and     permissions(o.id) <> 0
    END
ELSE
    BEGIN
    select    db_name()                as TABLE_CATALOG,
        user_name(o.uid)            as TABLE_SCHEMA,
        o.name                    as TABLE_NAME,
        x.rows                    as CARDINALITY
    from    sysobjects o, sysindexes x
    where    o.type in ('U')
    and     (@table_schema is null or @table_schema = user_name(o.uid))
    and     x.id = o.id
    and     x.indid in (0,1)    /*If there are no indexes then table stats are in a row with indid =0 */
    and     permissions(o.id) <> 0
    END
go

create procedure sp_statistics_rowset;4
    (

       @handle        int output,
       @scrollopt    int output,
    @ccopt        int output,
    @rows        int output,
    @cmd        nvarchar(1200)
    )
as
    declare @ret int
    declare @database_name sysname
    declare @SQL nvarchar(1500)

    create table #spstatisticsrowset
        (
        TABLE_CATALOG            sysname not null,
        TABLE_SCHEMA            sysname not null,
        TABLE_NAME            sysname not null,
        CARDINALITY            int not null
        )

    declare sysdatabases_cursor insensitive cursor for
        select name from master.dbo.sysdatabases

    set nocount on
    open sysdatabases_cursor
      fetch next from sysdatabases_cursor into @database_name
    while @@fetch_status = 0
        begin
        select @SQL = N'use '+quotename(@database_name)+N' insert into #spstatisticsrowset '+@cmd
        exec(@SQL)
        fetch next from sysdatabases_cursor into @database_name
        end
      close sysdatabases_cursor
    deallocate sysdatabases_cursor

    if @scrollopt is null
        begin
        select * from #spstatisticsrowset order by 1,2,3
        end
    else
        begin
        exec @ret = sp_cursoropen @handle output,
            'select * from #spstatisticsrowset order by 1,2,3',
                @scrollopt output, @ccopt output, @rows output
        end
    drop table #spstatisticsrowset
    return isnull(@ret,0)
go

grant execute on sp_statistics_rowset to public
go

dump tran master with no_log
go

print ''
print 'creating sp_tables_rowset'
go


/*    Procedure for 6.50 and earlier servers */
create procedure sp_tables_rowset
    (
    @table_name    varchar(255),
    @table_schema    varchar(255) = null,
    @table_type    varchar(255) = null
    )
as
    select    TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        TABLE_TYPE    = convert(varchar(30),
                    case o.type
                    when 'U' then 'TABLE'
                    when 'V' then 'VIEW'
                    when 'S' then 'SYSTEM TABLE'
                    end),
        TABLE_GUID    = convert(binary(16), null),
        DESCRIPTION    = convert(varchar(1), null)
    from    sysusers u, sysobjects o
    where    o.type in ('U','V','S')
    and     o.name = @table_name
    and     (    @table_schema is null
        or    @table_schema = user_name(o.uid)
        )
    and     (
            @table_type is null
        or    @table_type = case o.type
                    when 'U' then 'TABLE'
                    when 'V' then 'VIEW'
                    when 'S' then 'SYSTEM TABLE'
                    end
        )
    and     u.uid = user_id() /* constrain sysusers uid for use in subquery */
    and     (
        suser_id() = 1     /* User is the System Administrator */
        or o.uid = user_id()     /* User created the object */
        /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
        or (    (select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
            from sysprotects p
            /* join to correlate with all rows in sysobjects */
            where p.id = o.id
            /* get rows for public,current user,user's group */
            and (p.uid = 0 or p.uid = user_id() or p.uid = u.gid)
            /* check for SELECT,EXECUTE privilege */
            and (action in (193,224)))&1     /* more magic...normalize GRANT */
            ) = 1    /* final magic...compare Grants      */
        )
    order by 4, 2, 3
go
create procedure sp_tables_rowset;2
    (
    @table_schema    varchar(255) = null,
    @table_type    varchar(255) = null
    )
as
    select    TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        TABLE_TYPE    = convert(varchar(30),
                    case o.type
                    when 'U' then 'TABLE'
                    when 'V' then 'VIEW'
                    when 'S' then 'SYSTEM TABLE'
                    end),
        TABLE_GUID    = convert(binary(16), null),
        DESCRIPTION    = convert(varchar(1), null)
    from    sysusers u, sysobjects o
    where    o.type in ('U','V','S')
    and     (    @table_schema is null
        or    @table_schema = user_name(o.uid)
        )
    and     (
            @table_type is null
        or    @table_type = case o.type
                    when 'U' then 'TABLE'
                    when 'V' then 'VIEW'
                    when 'S' then 'SYSTEM TABLE'
                    end
        )
    and     u.uid = user_id() /* constrain sysusers uid for use in subquery */
    and     (
        suser_id() = 1     /* User is the System Administrator */
        or o.uid = user_id()     /* User created the object */
        /* here's the magic... select the highest precedence of permissions in the order (user,group,public)  */
        or (    (select max(((sign(uid)*abs(uid-16383))*2)+(protecttype&1))
            from sysprotects p
            /* join to correlate with all rows in sysobjects */
            where p.id = o.id
            /* get rows for public,current user,user's group */
            and (p.uid = 0 or p.uid = user_id() or p.uid = u.gid)
            /* check for SELECT,EXECUTE privilege */
            and (action in (193,224)))&1     /* more magic...normalize GRANT */
            ) = 1    /* final magic...compare Grants      */
        )
    order by 4, 2, 3
go
go

if (charindex('7.00', @@version) > 0)
    drop procedure sp_tables_rowset
else
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
go

/*    Procedure for 7.00 server */
create procedure sp_tables_rowset
    (
    @table_name    sysname,
    @table_schema    sysname = null,
    @table_type    nvarchar(255) = null
    )
as
    select    TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        TABLE_TYPE    = convert(nvarchar(30),
                    case o.type
                    when 'U' then N'TABLE'
                    when 'V' then N'VIEW'
                    when 'S' then N'SYSTEM TABLE'
                    end),
        TABLE_GUID    = convert(uniqueidentifier, null),
        DESCRIPTION    = convert(nvarchar(1), null)
    from    sysobjects o
    where    o.name = @table_name
    and     o.type in ('U','V','S')
    and    permissions(o.id) <> 0
    and     (    @table_schema is null
        or    @table_schema = user_name(o.uid)
        )
    and     (
            @table_type is null
        or    @table_type = case o.type
                    when 'U' then N'TABLE'
                    when 'V' then N'VIEW'
                    when 'S' then N'SYSTEM TABLE'
                    end
        )
    order by 4, 2, 3
go
create procedure sp_tables_rowset;2
    (
    @table_schema    sysname = null,
    @table_type    nvarchar(255) = null
    )
as
    select    TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        TABLE_TYPE    = convert(nvarchar(30),
                    case o.type
                    when 'U' then N'TABLE'
                    when 'V' then N'VIEW'
                    when 'S' then N'SYSTEM TABLE'
                    end),
        TABLE_GUID    = convert(uniqueidentifier, null),
        DESCRIPTION    = convert(nvarchar(1), null)
    from    sysobjects o
    where    o.type in ('U','V','S')
    and    permissions(o.id) <> 0
    and     (    @table_schema is null
        or    @table_schema = user_name(o.uid)
        )
    and     (
            @table_type is null
        or    @table_type = case o.type
                    when 'U' then N'TABLE'
                    when 'V' then N'VIEW'
                    when 'S' then N'SYSTEM TABLE'
                    end
        )
    order by 4, 2, 3
go
create procedure sp_tables_rowset;3
    (
    @table_name    sysname = null,
    @table_schema    sysname = null,
    @table_type    nvarchar(255) = null
    )
as
IF @table_name is not null
    BEGIN
    select    TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        TABLE_TYPE    = convert(nvarchar(30),
                    case o.type
                    when 'U' then N'TABLE'
                    when 'V' then N'VIEW'
                    when 'S' then N'SYSTEM TABLE'
                    end),
        TABLE_GUID    = convert(uniqueidentifier, null),
        DESCRIPTION    = convert(nvarchar(1), null)
    from    sysobjects o
    where    o.name = @table_name
    and     o.type in ('U','V','S')
    and    permissions(o.id) <> 0
    and     (    @table_schema is null
        or    @table_schema = user_name(o.uid)
        )
    and     (
            @table_type is null
        or    @table_type = case o.type
                    when 'U' then N'TABLE'
                    when 'V' then N'VIEW'
                    when 'S' then N'SYSTEM TABLE'
                    end
        )
    END
ELSE
    BEGIN
    select    TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        TABLE_TYPE    = convert(nvarchar(30),
                    case o.type
                    when 'U' then N'TABLE'
                    when 'V' then N'VIEW'
                    when 'S' then N'SYSTEM TABLE'
                    end),
        TABLE_GUID    = convert(uniqueidentifier, null),
        DESCRIPTION    = convert(nvarchar(1), null)
    from    sysobjects o
    where    o.type in ('U','V','S')
    and    permissions(o.id) <> 0
    and     (    @table_schema is null
        or    @table_schema = user_name(o.uid)
        )
    and     (
            @table_type is null
        or    @table_type = case o.type
                    when 'U' then N'TABLE'
                    when 'V' then N'VIEW'
                    when 'S' then N'SYSTEM TABLE'
                    end
        )
    END
go


create procedure sp_tables_rowset;4
    (

       @handle        int output,
       @scrollopt    int output,
    @ccopt        int output,
    @rows        int output,
    @cmd        nvarchar(1200)
    )
as
    declare @ret int
    declare @database_name sysname
    declare @SQL nvarchar(1500)

    create table #sptablesrowset
        (
        TABLE_CATALOG        sysname not null,
        TABLE_SCHEMA        sysname not null,
        TABLE_NAME        sysname not null,
        TABLE_TYPE        sysname not null,
        TABLE_GUID        uniqueidentifier null,
        DESCRIPTION        nvarchar(1) null
        )

    declare sysdatabases_cursor insensitive cursor for
        select name from master.dbo.sysdatabases

    set nocount on
    open sysdatabases_cursor
      fetch next from sysdatabases_cursor into @database_name
    while @@fetch_status = 0
        begin
        select @SQL = N'use '+quotename(@database_name)+N' insert into #sptablesrowset '+@cmd
        exec(@SQL)
        fetch next from sysdatabases_cursor into @database_name
        end
      close sysdatabases_cursor
    deallocate sysdatabases_cursor

    if @scrollopt is null
        begin
        select * from #sptablesrowset order by 4,1,2,3
        end
    else
        begin
        exec @ret = sp_cursoropen @handle output,
            'select * from #sptablesrowset order by 4,1,2,3',
                @scrollopt output, @ccopt output, @rows output
        end
    drop table #sptablesrowset
    return isnull(@ret,0)
go
create procedure sp_tables_rowset;5
    (
    @table_server        sysname,
    @table_catalog        sysname = null,
    @table_name        sysname = null,
    @table_schema        sysname = null,
    @table_type        sysname = null
    )
as
    select
        TABLE_CATALOG,
        TABLE_SCHEMA,
        TABLE_NAME,
        TABLE_TYPE,
        TABLE_GUID,
        DESCRIPTION
    from master.dbo.SYSREMOTE_TABLES <
                @table_server,
                @table_catalog,
                @table_schema,
                @table_name,
                @table_type >
    order by 4,1,2,3
go

grant execute on sp_tables_rowset to public
go

dump tran master with no_log
go



print ''
print 'creating sp_table_privileges_rowset'
go

/*    Procedure for 6.0 and 6.5 server */
CREATE PROCEDURE sp_table_privileges_rowset
    (
    @table_name    varchar(255) = null,
    @table_schema    varchar(255) = null,
    @grantor    varchar(255) = null,
    @grantee    varchar(255) = null
    )
as
IF @table_name is not null
    BEGIN
    select
        GRANTOR        = user_name(p.grantor),
        GRANTEE        = user_name(u.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        PRIVILEGE_TYPE    = convert(varchar(30),
                    case p.action
                    when 193 then 'SELECT'
                    when 195 then 'INSERT'
                    when 196 then 'DELETE'
                    when 197 then 'UPDATE'
                    else 'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,case when p.protecttype = 205 then 0 else 1 end)
    from
        sysprotects p, sysobjects o, sysusers u
    where
        o.name = @table_name
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(u.uid))
    and     o.type in ('U','V','S')
    and    p.id = o.id
    and     (@grantor is null or @grantor = user_name(p.grantor))
            /* expand groups */
    and     ((p.uid = u.uid and u.uid <> u.gid) or (p.uid = u.gid and u.uid <> u.gid))
    and     p.protecttype <> 206    /* only grant rows */
    and     p.action in (26,193,195,196,197)
    and     o.uid <> u.uid            /* no rows for owner */
    and     not exists (            /* exclude revoke'd privileges */
            select     *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = p.action
            and     p1.id = p.id
            and     p1.uid = u.uid)
    union all
    select    /*    Add rows for table owner */
        GRANTOR        = user_name(u.uid),
        GRANTEE        = user_name(o.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        PRIVILEGE_TYPE    = convert(varchar(30),
                    case v.number
                    when 193 then 'SELECT'
                    when 195 then 'INSERT'
                    when 196 then 'DELETE'
                    when 197 then 'UPDATE'
                    else 'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,1)
    from
        sysobjects o, master.dbo.spt_values v, sysusers u
    where
        o.name = @table_name
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(u.uid))
    and     o.type in ('U','V','S')
    and     u.suid = 1        /* grantor is dbo of database */
    and    (@grantor is null or @grantor = user_name(u.uid))
    and     v.type = 'P'    /* cross product to get all exposed privileges */
    and     v.number in (26,193,195,196,197)
    and     not exists (    /* exclude revoke'd privileges */
            select     *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = v.number
            and     p1.id = o.id
            and     p1.uid = o.uid)
    order by 4,5,6,1,2
    END
ELSE
    BEGIN
    select
        GRANTOR        = user_name(p.grantor),
        GRANTEE        = user_name(u.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        PRIVILEGE_TYPE    = convert(varchar(30),
                    case p.action
                    when 193 then 'SELECT'
                    when 195 then 'INSERT'
                    when 196 then 'DELETE'
                    when 197 then 'UPDATE'
                    else 'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,case when p.protecttype = 205 then 0 else 1 end)
    from
        sysprotects p, sysobjects o, sysusers u
    where
        o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(u.uid))
    and    p.id = o.id
    and     (@grantor is null or @grantor = user_name(p.grantor))
            /* expand groups */
    and     ((p.uid = u.uid and u.uid <> u.gid) or (p.uid = u.gid and u.uid <> u.gid))
    and     p.protecttype <> 206    /* only grant rows */
    and     p.action in (26,193,195,196,197)
    and     o.uid <> u.uid            /* no rows for owner */
    and     not exists (            /* exclude revoke'd privileges */
            select     *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = p.action
            and     p1.id = p.id
            and     p1.uid = u.uid)
    union all
    select    /*    Add rows for table owner */
        GRANTOR        = user_name(u.uid),
        GRANTEE        = user_name(o.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        PRIVILEGE_TYPE    = convert(varchar(30),
                    case v.number
                    when 193 then 'SELECT'
                    when 195 then 'INSERT'
                    when 196 then 'DELETE'
                    when 197 then 'UPDATE'
                    else 'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,1)
    from
        sysobjects o, master.dbo.spt_values v, sysusers u
    where
        o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(u.uid))
    and     u.suid = 1        /* grantor is dbo of database */
    and    (@grantor is null or @grantor = user_name(u.uid))
    and     v.type = 'P'    /* cross product to get all exposed privileges */
    and     v.number in (26,193,195,196,197)
    and     not exists (    /* exclude revoke'd privileges */
            select     *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = v.number
            and     p1.id = o.id
            and     p1.uid = o.uid)
    order by 4,5,6,1,2
    END
go
CREATE PROCEDURE sp_table_privileges_rowset;2
    (
       @handle        int output,
       @scrollopt    int output,
    @ccopt        int output,
    @rows        int output,
    @table_name     varchar(255) = null,
    @table_schema    varchar(255) = null,
    @grantor    varchar(255) = null,
    @grantee    varchar(255) = null
    )
as
declare @ret int
create table #sptprivsrowset1
    (
    GRANTOR        sysname not null,
    GRANTEE        sysname not null,
    TABLE_CATALOG    sysname not null,
    TABLE_SCHEMA    sysname not null,
    TABLE_NAME    sysname not null,
    PRIVILEGE_TYPE    sysname not null,
    IS_GRANTABLE    bit not null
    )

IF @table_name is not null
    BEGIN
    insert into #sptprivsrowset1
    select
        GRANTOR        = user_name(p.grantor),
        GRANTEE        = user_name(u.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        PRIVILEGE_TYPE    = convert(varchar(30),
                    case p.action
                    when 193 then 'SELECT'
                    when 195 then 'INSERT'
                    when 196 then 'DELETE'
                    when 197 then 'UPDATE'
                    else 'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,case when p.protecttype = 205 then 0 else 1 end)
    from
        sysprotects p, sysobjects o, sysusers u
    where
        o.name = @table_name
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(u.uid))
    and     o.type in ('U','V','S')
    and    p.id = o.id
    and     (@grantor is null or @grantor = user_name(p.grantor))
            /* expand groups */
    and     ((p.uid = u.uid and u.uid <> u.gid) or (p.uid = u.gid and u.uid <> u.gid))
    and     p.protecttype <> 206    /* only grant rows */
    and     p.action in (26,193,195,196,197)
    and     o.uid <> u.uid            /* no rows for owner */
    and     not exists (            /* exclude revoke'd privileges */
            select     *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = p.action
            and     p1.id = p.id
            and     p1.uid = u.uid)
    union all
    select    /*    Add rows for table owner */
        GRANTOR        = user_name(u.uid),
        GRANTEE        = user_name(o.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        PRIVILEGE_TYPE    = convert(varchar(30),
                    case v.number
                    when 193 then 'SELECT'
                    when 195 then 'INSERT'
                    when 196 then 'DELETE'
                    when 197 then 'UPDATE'
                    else 'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,1)
    from
        sysobjects o, master.dbo.spt_values v, sysusers u
    where
        o.name = @table_name
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(u.uid))
    and     o.type in ('U','V','S')
    and     u.suid = 1        /* grantor is dbo of database */
    and    (@grantor is null or @grantor = user_name(u.uid))
    and     v.type = 'P'    /* cross product to get all exposed privileges */
    and     v.number in (26,193,195,196,197)
    and     not exists (    /* exclude revoke'd privileges */
            select     *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = v.number
            and     p1.id = o.id
            and     p1.uid = o.uid)
    order by 4,5,6,1,2
    END
ELSE
    BEGIN
    insert into #sptprivsrowset1
    select
        GRANTOR        = user_name(p.grantor),
        GRANTEE        = user_name(u.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        PRIVILEGE_TYPE    = convert(varchar(30),
                    case p.action
                    when 193 then 'SELECT'
                    when 195 then 'INSERT'
                    when 196 then 'DELETE'
                    when 197 then 'UPDATE'
                    else 'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,case when p.protecttype = 205 then 0 else 1 end)
    from
        sysprotects p, sysobjects o, sysusers u
    where
        o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(u.uid))
    and    p.id = o.id
    and     (@grantor is null or @grantor = user_name(p.grantor))
            /* expand groups */
    and     ((p.uid = u.uid and u.uid <> u.gid) or (p.uid = u.gid and u.uid <> u.gid))
    and     p.protecttype <> 206    /* only grant rows */
    and     p.action in (26,193,195,196,197)
    and     o.uid <> u.uid            /* no rows for owner */
    and     not exists (            /* exclude revoke'd privileges */
            select     *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = p.action
            and     p1.id = p.id
            and     p1.uid = u.uid)
    union all
    select    /*    Add rows for table owner */
        GRANTOR        = user_name(u.uid),
        GRANTEE        = user_name(o.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        PRIVILEGE_TYPE    = convert(varchar(30),
                    case v.number
                    when 193 then 'SELECT'
                    when 195 then 'INSERT'
                    when 196 then 'DELETE'
                    when 197 then 'UPDATE'
                    else 'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,1)
    from
        sysobjects o, master.dbo.spt_values v, sysusers u
    where
        o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(u.uid))
    and     u.suid = 1        /* grantor is dbo of database */
    and    (@grantor is null or @grantor = user_name(u.uid))
    and     v.type = 'P'    /* cross product to get all exposed privileges */
    and     v.number in (26,193,195,196,197)
    and     not exists (    /* exclude revoke'd privileges */
            select     *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = v.number
            and     p1.id = o.id
            and     p1.uid = o.uid)
    order by 4,5,6,1,2
    END

exec @ret = sp_cursoropen @handle output, 'select * from #sptprivsrowset1',
    @scrollopt output, @ccopt output, @rows output

drop table #sptprivsrowset1
return isnull(@ret,0)
go


if (charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
else
    drop proc sp_table_privileges_rowset
go


/*    Procedure for 7.0 server */
CREATE PROCEDURE sp_table_privileges_rowset
    (
    @table_name         sysname,
    @table_schema        sysname = null,
    @grantor        sysname = null,
    @grantee        sysname = null
    )
as
    select
        GRANTOR        = user_name(p.grantor),
        GRANTEE        = user_name(u.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        PRIVILEGE_TYPE    = convert(nvarchar(30),
                    case p.action
                    when 193 then N'SELECT'
                    when 195 then N'INSERT'
                    when 196 then N'DELETE'
                    when 197 then N'UPDATE'
                    else N'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,case when p.protecttype = 205 then 0 else 1 end)
    from
        sysprotects p, sysobjects o, sysusers u, sysmembers m
    where
        o.name = @table_name
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(u.uid))
    and     o.type in ('U','V','S')
    and    p.id = o.id
    and     (@grantor is null or @grantor = user_name(p.grantor))
        /* expand groups - AKUNDONE: only 1 level of grp unrolling. */
    and     (u.uid > 0 and u.uid < 16384)
    and     ((p.uid = u.uid) or (p.uid = m.groupuid and u.uid = m.memberuid))
    and     p.protecttype <> 206    /* only grant rows */
    and     p.action in (26,193,195,196,197)
    and     o.uid <> u.uid            /* no rows for owner */
    and     not exists (            /* exclude revoke'd privileges */
            select     *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = p.action
            and     p1.id = p.id
            and     p1.uid = u.uid)
    union all
    select    /*    Add rows for table owner */
        GRANTOR        = user_name(u.uid),
        GRANTEE        = user_name(o.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        PRIVILEGE_TYPE    = convert(nvarchar(30),
                    case v.number
                    when 193 then N'SELECT'
                    when 195 then N'INSERT'
                    when 196 then N'DELETE'
                    when 197 then N'UPDATE'
                    else N'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,1)
    from
        sysobjects o, master.dbo.spt_values v, sysusers u
    where
        o.name = @table_name
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(u.uid))
    and     o.type in ('U','V','S')
    and     u.suid = 1        /* grantor is dbo of database */
    and    (@grantor is null or @grantor = user_name(u.uid))
    and     v.type = 'P'    /* cross product to get all exposed privileges */
    and     v.number in (26,193,195,196,197)
    and     not exists (    /* exclude revoke'd privileges */
            select     *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = v.number
            and     p1.id = o.id
            and     p1.uid = o.uid)
    order by 4,5,6,1,2
go
CREATE PROCEDURE sp_table_privileges_rowset;2
    (
    @table_schema        sysname = null,
    @grantor        sysname = null,
    @grantee        sysname = null
    )
as
    select
        GRANTOR        = user_name(p.grantor),
        GRANTEE        = user_name(u.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        PRIVILEGE_TYPE    = convert(nvarchar(30),
                    case p.action
                    when 193 then N'SELECT'
                    when 195 then N'INSERT'
                    when 196 then N'DELETE'
                    when 197 then N'UPDATE'
                    else N'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,case when p.protecttype = 205 then 0 else 1 end)
    from
        sysprotects p, sysobjects o, sysusers u, sysmembers m
    where
        o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(u.uid))
    and    p.id = o.id
    and     (@grantor is null or @grantor = user_name(p.grantor))
        /* expand groups - AKUNDONE: only 1 level of grp unrolling. */
    and     (u.uid > 0 and u.uid < 16384)
    and     ((p.uid = u.uid) or (p.uid = m.groupuid and u.uid = m.memberuid))
    and     p.protecttype <> 206    /* only grant rows */
    and     p.action in (26,193,195,196,197)
    and     o.uid <> u.uid            /* no rows for owner */
    and     not exists (            /* exclude revoke'd privileges */
            select     *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = p.action
            and     p1.id = p.id
            and     p1.uid = u.uid)
    union all
    select    /*    Add rows for table owner */
        GRANTOR        = user_name(u.uid),
        GRANTEE        = user_name(o.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        PRIVILEGE_TYPE    = convert(nvarchar(30),
                    case v.number
                    when 193 then N'SELECT'
                    when 195 then N'INSERT'
                    when 196 then N'DELETE'
                    when 197 then N'UPDATE'
                    else N'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,1)
    from
        sysobjects o, master.dbo.spt_values v, sysusers u
    where
        o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(u.uid))
    and     u.suid = 1        /* grantor is dbo of database */
    and    (@grantor is null or @grantor = user_name(u.uid))
    and     v.type = 'P'    /* cross product to get all exposed privileges */
    and     v.number in (26,193,195,196,197)
    and     not exists (    /* exclude revoke'd privileges */
            select     *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = v.number
            and     p1.id = o.id
            and     p1.uid = o.uid)
    order by 4,5,6,1,2
go
CREATE PROCEDURE sp_table_privileges_rowset;3
    (
    @table_name         sysname = null,
    @table_schema        sysname = null,
    @grantor        sysname = null,
    @grantee        sysname = null
    )
as
IF @table_name is not null
    BEGIN
    select
        GRANTOR        = user_name(p.grantor),
        GRANTEE        = user_name(u.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        PRIVILEGE_TYPE    = convert(nvarchar(30),
                    case p.action
                    when 193 then N'SELECT'
                    when 195 then N'INSERT'
                    when 196 then N'DELETE'
                    when 197 then N'UPDATE'
                    else N'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,case when p.protecttype = 205 then 0 else 1 end)
    from
        sysprotects p, sysobjects o, sysusers u, sysmembers m
    where
        o.name = @table_name
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(u.uid))
    and     o.type in ('U','V','S')
    and    p.id = o.id
    and     (@grantor is null or @grantor = user_name(p.grantor))
        /* expand groups - AKUNDONE: only 1 level of grp unrolling. */
    and     (u.uid > 0 and u.uid < 16384)
    and     ((p.uid = u.uid) or (p.uid = m.groupuid and u.uid = m.memberuid))
    and     p.protecttype <> 206    /* only grant rows */
    and     p.action in (26,193,195,196,197)
    and     o.uid <> u.uid            /* no rows for owner */
    and     not exists (            /* exclude revoke'd privileges */
            select     *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = p.action
            and     p1.id = p.id
            and     p1.uid = u.uid)
    union all
    select    /*    Add rows for table owner */
        GRANTOR        = user_name(u.uid),
        GRANTEE        = user_name(o.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        PRIVILEGE_TYPE    = convert(nvarchar(30),
                    case v.number
                    when 193 then N'SELECT'
                    when 195 then N'INSERT'
                    when 196 then N'DELETE'
                    when 197 then N'UPDATE'
                    else 'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,1)
    from
        sysobjects o, master.dbo.spt_values v, sysusers u
    where
        o.name = @table_name
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(u.uid))
    and     o.type in ('U','V','S')
    and     u.suid = 1        /* grantor is dbo of database */
    and    (@grantor is null or @grantor = user_name(u.uid))
    and     v.type = 'P'    /* cross product to get all exposed privileges */
    and     v.number in (26,193,195,196,197)
    and     not exists (    /* exclude revoke'd privileges */
            select     *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = v.number
            and     p1.id = o.id
            and     p1.uid = o.uid)
    END
ELSE
    BEGIN
    select
        GRANTOR        = user_name(p.grantor),
        GRANTEE        = user_name(u.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        PRIVILEGE_TYPE    = convert(nvarchar(30),
                    case p.action
                    when 193 then N'SELECT'
                    when 195 then N'INSERT'
                    when 196 then N'DELETE'
                    when 197 then N'UPDATE'
                    else N'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,case when p.protecttype = 205 then 0 else 1 end)
    from
        sysprotects p, sysobjects o, sysusers u, sysmembers m
    where
        o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(u.uid))
    and    p.id = o.id
    and     (@grantor is null or @grantor = user_name(p.grantor))
        /* expand groups - AKUNDONE: only 1 level of grp unrolling. */
    and     (u.uid > 0 and u.uid < 16384)
    and     ((p.uid = u.uid) or (p.uid = m.groupuid and u.uid = m.memberuid))
    and     p.protecttype <> 206    /* only grant rows */
    and     p.action in (26,193,195,196,197)
    and     o.uid <> u.uid            /* no rows for owner */
    and     not exists (            /* exclude revoke'd privileges */
            select     *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = p.action
            and     p1.id = p.id
            and     p1.uid = u.uid)
    union all
    select    /*    Add rows for table owner */
        GRANTOR        = user_name(u.uid),
        GRANTEE        = user_name(o.uid),
        TABLE_CATALOG    = db_name(),
        TABLE_SCHEMA    = user_name(o.uid),
        TABLE_NAME    = o.name,
        PRIVILEGE_TYPE    = convert(nvarchar(30),
                    case v.number
                    when 193 then N'SELECT'
                    when 195 then N'INSERT'
                    when 196 then N'DELETE'
                    when 197 then N'UPDATE'
                    else N'REFERENCES'
                    end),
        IS_GRANTABLE    = convert(bit,1)
    from
        sysobjects o, master.dbo.spt_values v, sysusers u
    where
        o.type in ('U','V','S')
    and    (@table_schema is null or @table_schema = user_name(o.uid))
    and    (@grantee is null or @grantee = user_name(u.uid))
    and     u.suid = 1        /* grantor is dbo of database */
    and    (@grantor is null or @grantor = user_name(u.uid))
    and     v.type = 'P'    /* cross product to get all exposed privileges */
    and     v.number in (26,193,195,196,197)
    and     not exists (    /* exclude revoke'd privileges */
            select     *
            from     sysprotects p1
            where    p1.protecttype = 206
            and     p1.action = v.number
            and     p1.id = o.id
            and     p1.uid = o.uid)
    END
go


create procedure sp_table_privileges_rowset;4
    (
       @handle        int output,
       @scrollopt    int output,
    @ccopt        int output,
    @rows        int output,
    @cmd        nvarchar(1200)
    )
as
    declare @ret int
    declare @database_name sysname
    declare @SQL nvarchar(1500)

    create table #sptprivsrowset
        (
        GRANTOR        sysname not null,
        GRANTEE        sysname not null,
        TABLE_CATALOG    sysname not null,
        TABLE_SCHEMA    sysname not null,
        TABLE_NAME    sysname not null,
        PRIVILEGE_TYPE    sysname not null,
        IS_GRANTABLE    bit not null
        )

    declare sysdatabases_cursor insensitive cursor for
        select name from master.dbo.sysdatabases

    set nocount on
    open sysdatabases_cursor
      fetch next from sysdatabases_cursor into @database_name
    while @@fetch_status = 0
        begin
        select @SQL = N'use '+quotename(@database_name)+N' insert into #sptprivsrowset '+@cmd
        exec(@SQL)
        fetch next from sysdatabases_cursor into @database_name
        end
      close sysdatabases_cursor
    deallocate sysdatabases_cursor

    if @scrollopt is null
        begin
        select * from #sptprivsrowset order by 3,4,5,6,1,2
        end
    else
        begin
        exec @ret = sp_cursoropen @handle output,
            'select * from #sptprivsrowset order by 3,4,5,6,1,2',
                @scrollopt output, @ccopt output, @rows output
        end
    drop table #sptprivsrowset
    return isnull(@ret,0)
go
create procedure sp_table_privileges_rowset;5
    (
    @table_server        sysname,
    @table_catalog        sysname = null,
    @table_name        sysname = null,
    @table_schema        sysname = null,
    @grantor        sysname = null,
    @grantee        sysname = null
    )
as
    select
        GRANTOR,
        GRANTEE,
        TABLE_CATALOG,
        TABLE_SCHEMA,
        TABLE_NAME,
        PRIVILEGE_TYPE,
        IS_GRANTABLE
    from master.dbo.SYSREMOTE_TABLE_PRIVILEGES <
                @table_server,
                @table_catalog,
                @table_schema,
                @table_name,
                @grantor,
                @grantee >
    order by 3,4,5,6,1,2
go

grant execute on sp_table_privileges_rowset to public
go

print ''
print 'creating sp_linkedservers_rowset'
go
if (charindex('7.00', @@version) = 0)
begin
    print ''
    print ''
    print 'Warning:'
    print 'you are installing the stored procedures '
    print 'on a pre 7.0 SQL Server.'
    print 'Ignore the following errors.'
end
go
/*    Procedure for 7.0 server */
create proc sp_linkedservers_rowset
    (
    @srvname     sysname
    )
as
    select
        SVR_NAME         = srvname,
        SVR_PRODUCT        = srvproduct,
        SVR_PROVIDERNAME    = providername,
        SVR_DATASOURCE        = datasource,
        SVR_PROVIDERSTRING    = providerstring,
        SVR_LOCATION        = location
    from master.dbo.sysservers
    where srvname = @srvname
    order by 1
go
create proc sp_linkedservers_rowset;2
as
    select
        SVR_NAME         = srvname,
        SVR_PRODUCT        = srvproduct,
        SVR_PROVIDERNAME    = providername,
        SVR_DATASOURCE        = datasource,
        SVR_PROVIDERSTRING    = providerstring,
        SVR_LOCATION        = location
    from master.dbo.sysservers
    order by 1
go

grant execute on sp_linkedservers_rowset to public
go

dump tran master with no_log
print ''
go

/*-----------------------------------------------------------------------------*/
/*-------------- CATALOG STORED PROCEDURES FOR OLEDB SOURCES ------------------*/
/*-----------------------------------------------------------------------------*/

if object_id('sp_linkedservers', 'P') is not null
    drop proc sp_linkedservers
go
raiserror(15339,-1,-1,'sp_linkedservers')
go
create proc sp_linkedservers as
    select
        SRV_NAME = srvname,
        SRV_PROVIDERNAME = providername,
        SRV_PRODUCT = srvproduct,
        SRV_DATASOURCE = datasource,
        SRV_PROVIDERSTRING = providerstring,
        SRV_LOCATION = location
    from master.dbo.sysservers
go
grant execute on sp_linkedservers to public
go


if object_id('sp_catalogs', 'P') is not null
    drop proc sp_catalogs
go
raiserror(15339,-1,-1,'sp_catalogs')
go
create procedure sp_catalogs(
    @server_name        sysname)
as
    select
        CATALOG_NAME,
        convert (nvarchar(255),DESCRIPTION)
    from master.dbo.SYSREMOTE_CATALOGS < @server_name >
    order by CATALOG_NAME
go
grant execute on sp_catalogs to public
go


if object_id('sp_tables_ex', 'P') is not null
    drop proc sp_tables_ex
go
raiserror(15339,-1,-1,'sp_tables_ex')
go
create procedure sp_tables_ex(
    @table_server        sysname,
    @table_name            sysname = null,
    @table_schema        sysname = null,
    @table_catalog        sysname = null,
    @table_type            sysname = null)
as
    select
        TABLE_CAT = TABLE_CATALOG,
        TABLE_SCHEM = TABLE_SCHEMA,
        TABLE_NAME = TABLE_NAME,
        TABLE_TYPE = TABLE_TYPE,
        REMARKS = convert(nvarchar(255),DESCRIPTION)
    from master.dbo.SYSREMOTE_TABLES <
                @table_server,
                @table_catalog,
                @table_schema,
                @table_name,
                @table_type >
    order by TABLE_TYPE, TABLE_CAT, TABLE_SCHEM, TABLE_NAME
go
grant execute on sp_tables_ex to public
go


if object_id('sp_columns_ex', 'P') is not null
    drop proc sp_columns_ex
go
raiserror(15339,-1,-1,'sp_columns_ex')
go
create procedure sp_columns_ex(
    @table_server        sysname,
    @table_name            sysname = null,
    @table_schema        sysname = null,
    @table_catalog        sysname = null,
    @column_name        sysname = null)
as
    select
        TABLE_CAT = c.TABLE_CATALOG,
        TABLE_SCHEM = c.TABLE_SCHEMA,
        TABLE_NAME = c.TABLE_NAME,
        COLUMN_NAME = c.COLUMN_NAME,
        DATA_TYPE = c.DATA_TYPE,
        TYPE_NAME = p.TYPE_NAME,
        COLUMN_SIZE = c.NUMERIC_PRECISION,
        BUFFER_LENGTH = c.CHARACTER_OCTET_LENGTH,
        DECIMAL_DIGITS = c.NUMERIC_SCALE,
        NUM_PREC_RADIX = convert(smallint, 10),
        NULLABLE = convert(smallint, c.IS_NULLABLE),
        REMARKS = convert(nvarchar(255),c.DESCRIPTION),
        COLUMN_DEF = c.COLUMN_DEFAULT,
        SQL_DATA_TYPE = c.DATA_TYPE,
        SQL_DATETIME_SUB = convert(smallint, c.DATETIME_PRECISION),
        CHAR_OCTET_LENGTH = c.CHARACTER_OCTET_LENGTH,
        ORDINAL_POSITION = c.ORDINAL_POSITION,
        IS_NULLABLE = c.IS_NULLABLE,
        SS_DATA_TYPE = convert(tinyint, 0)    /* UNDONE: NEED MAPPING FROM OLEDB->TDS*/
    from master.dbo.SYSREMOTE_COLUMNS <
                @table_server,
                @table_catalog,
                @table_schema,
                @table_name,
                @column_name > c
        LEFT OUTER JOIN
         master.dbo.SYSREMOTE_PROVIDER_TYPES <
                @table_server > p
                /* LUXOR/KAGERA dont support restricting DATA_TYPE or BEST_MATCH */
        ON c.DATA_TYPE = p.DATA_TYPE AND p.BEST_MATCH = 1
    order by TABLE_CAT, TABLE_SCHEM, TABLE_NAME, ORDINAL_POSITION
go
grant execute on sp_columns_ex to public
go


if object_id('sp_table_privileges_ex', 'P') is not null
    drop proc sp_table_privileges_ex
go
raiserror(15339,-1,-1,'sp_table_privileges_ex')
go
create procedure sp_table_privileges_ex(
    @table_server        sysname,
    @table_name            sysname = null,
    @table_schema        sysname = null,
    @table_catalog        sysname = null)
as
    select
        TABLE_CAT = TABLE_CATALOG,
        TABLE_SCHEM = TABLE_SCHEMA,
        TABLE_NAME = TABLE_NAME,
        GRANTOR = GRANTOR,
        GRANTEE = GRANTEE,
        PRIVILEGE = PRIVILEGE_TYPE,
        IS_GRANTABLE = IS_GRANTABLE
    from master.dbo.SYSREMOTE_TABLE_PRIVILEGES <
                @table_server,
                @table_catalog,
                @table_schema,
                @table_name >
    order by TABLE_CAT, TABLE_SCHEM, TABLE_NAME, PRIVILEGE
go
grant execute on sp_table_privileges_ex to public
go


if object_id('sp_column_privileges_ex', 'P') is not null
    drop proc sp_column_privileges_ex
go
raiserror(15339,-1,-1,'sp_column_privileges_ex')
go
create procedure sp_column_privileges_ex(
    @table_server        sysname,
    @table_name            sysname = null,
    @table_schema        sysname = null,
    @table_catalog        sysname = null,
    @column_name        sysname = null)
as
    select
        TABLE_CAT = TABLE_CATALOG,
        TABLE_SCHEM = TABLE_SCHEMA,
        TABLE_NAME = TABLE_NAME,
        COLUMN_NAME = COLUMN_NAME,
        GRANTOR = GRANTOR,
        GRANTEE = GRANTEE,
        PRIVILEGE = PRIVILEGE_TYPE,
        IS_GRANTABLE = IS_GRANTABLE
    from master.dbo.SYSREMOTE_COLUMN_PRIVILEGES <
                @table_server,
                @table_catalog,
                @table_schema,
                @table_name,
                @column_name >
    order by TABLE_CAT, TABLE_SCHEM, TABLE_NAME, COLUMN_NAME, PRIVILEGE
go
grant execute on sp_column_privileges_ex to public
go


if object_id('sp_indexes', 'P') is not null
    drop proc sp_indexes
go
raiserror(15339,-1,-1,'sp_indexes')
go
create procedure sp_indexes(
    @table_server        sysname,
    @table_name            sysname = null,
    @table_schema        sysname = null,
    @table_catalog        sysname = null,
    @index_name            sysname = null,
    @is_unique          bit = null)
as
    select
        TABLE_CAT = TABLE_CATALOG,
        TABLE_SCHEM = TABLE_SCHEMA,
        TABLE_NAME = TABLE_NAME,
        NON_UNIQUE = convert(smallint, 1 - [UNIQUE]),
        INDEX_NAME = INDEX_NAME,
        INDEX_QUALIFIER = INDEX_SCHEMA,
        TYPE = TYPE,
        ORDINAL_POSITION = ORDINAL_POSITION,
        COLUMN_NAME = COLUMN_NAME,
        ASC_OR_DESC = [COLLATION],
        CARDINALITY = CARDINALITY,
        PAGES = PAGES,
        FILTER_CONDITION = FILTER_CONDITION
    from master.dbo.SYSREMOTE_INDEXES <
                @table_server,
                @table_catalog,
                @table_schema,
                @index_name,
                NULL,            /* TYPE (index type) */
                @table_name >
    where @is_unique is null or @is_unique = [UNIQUE]
    order by NON_UNIQUE, TYPE, INDEX_QUALIFIER, INDEX_NAME, ORDINAL_POSITION
go
grant execute on sp_indexes to public
go


if object_id('sp_foreignkeys', 'P') is not null
    drop proc sp_foreignkeys
go
raiserror(15339,-1,-1,'sp_foreignkeys')
go
create procedure sp_foreignkeys(
    @table_server        sysname,
    @pktab_name         sysname = null,
    @pktab_schema       sysname = null,
    @pktab_catalog      sysname = null,
    @fktab_name         sysname = null,
    @fktab_schema       sysname = null,
    @fktab_catalog      sysname = null)
as
    select
        PKTABLE_CAT = PK_TABLE_CATALOG,
        PKTABLE_SCHEM = PK_TABLE_SCHEMA,
        PKTABLE_NAME = PK_TABLE_NAME,
        PKCOLUMN_NAME = PK_COLUMN_NAME,
        FKTABLE_CAT = FK_TABLE_CATALOG,
        FKTABLE_SCHEM = FK_TABLE_SCHEMA,
        FKTABLE_NAME = FK_TABLE_NAME,
        FKCOLUMN_NAME = FK_COLUMN_NAME,
        KEY_SEQ = ORDINAL,
        UPDATE_RULE = UPDATE_RULE,
        DELETE_RULE = DELETE_RULE,
        FK_NAME = convert(sysname, NULL),
        PK_NAME = convert(sysname, NULL)
    from master.dbo.SYSREMOTE_FOREIGN_KEYS <
                @table_server,
                @pktab_catalog,
                @pktab_schema,
                @pktab_name,
                @fktab_catalog,
                @fktab_schema,
                @fktab_name >
    order by FKTABLE_CAT, FKTABLE_SCHEM, FKTABLE_NAME, KEY_SEQ
go
grant execute on sp_foreignkeys to public
go


if object_id('sp_primarykeys', 'P') is not null
    drop proc sp_primarykeys
go
raiserror(15339,-1,-1,'sp_primarykeys')
go
create procedure sp_primarykeys(
    @table_server        sysname,
    @table_name         sysname = null,
    @table_schema       sysname = null,
    @table_catalog      sysname = null)
as
    select
        TABLE_CAT = TABLE_CATALOG,
        TABLE_SCHEM = TABLE_SCHEMA,
        TABLE_NAME = TABLE_NAME,
        COLUMN_NAME = COLUMN_NAME,
        KEY_SEQ = ORDINAL,
        PK_NAME = convert(sysname, NULL)
    from master.dbo.SYSREMOTE_PRIMARY_KEYS <
                @table_server,
                @table_catalog,
                @table_schema,
                @table_name >
    order by TABLE_CAT, TABLE_SCHEM, TABLE_NAME, KEY_SEQ
go
grant execute on sp_primarykeys to public
go

/*---------------------------- END OLEDB CATALOG PROCS ------------------------*/


dump tran master with no_log
go




if (exists (select * from sysobjects
        where name = 'sp_configure' and type = 'P '))
    begin
        exec sp_configure 'allow updates',0
        reconfigure with override
    end
go

exec sp_MS_upd_sysobj_category 2 /* set category | 2 based on crdate. */

go

if exists (select * from sysobjects where name = 'sp_check_objects'
            and type = 'P ')
    begin
        /* Only supported on 6.0 servers */
        print ''
        print 'Checking objects created by instcat.sql.'

        exec sp_check_objects 'catalog'
    end
go

print ''
print 'instcat.sql completed successfully.'
go

set quoted_identifier off
go

dump tran master with no_log
go
checkpoint
go
/**/