PC World 1998 December/PCWorld_1998-12_cd.iso/software/sybase/ASA/asa60.exe/data1.cab/scripts_files/sybprc50.sql

Text File | 1998-07-27 | 78KB | 2,652 lines

--  ************************************************************************
--  *       Copyright (C) 1998 by Sybase Inc.  All rights                   *
--  *       reserved. No part of this software may be reproduced            *
--  *       in any form or by any means - graphic, electronic or            *
--  *       mechanical, including photocopying, recording, taping           *
--  *       or information storage and retrieval systems - except           *
--  *       with the written permission of Sybase Inc.                      *
--  *************************************************************************
--
--  WARNING: This is a program generated file. Do not edit.
--

CREATE procedure dbo.sp_tsql_feature_not_supported()
    begin
    declare    feature_not_supported exception for sqlstate '0AW02';
    signal feature_not_supported;
    end
go
CREATE procedure dbo.sp_checkperms( in required_auth char(10) )
    begin
    declare        has_perm char(1);
    declare    permission_denied exception for sqlstate '42501';

    select (select if required_auth = 'DBA' then dbaauth
                      else resourceauth endif
                    from SYS.SYSUSERPERMS
                    where user_name=user) into has_perm;
    if has_perm <> 'Y' then
        signal permission_denied
    end if
    end
go
CREATE procedure dbo.sp_addalias(
           in @login_name    char(128),
           in @name_in_db    char(128)
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_addauditrecord(
           in @text        char(128)   default 'message text',
           in @db_name    char(128)   default 'db_name',
           in @obj_name    char(128)   default 'object_name',
           in @owner_name    char(128)   default 'owner_name',
           in @dbid        int        default NULL,
           in @objid    int        default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_addgroup(
           in @grpname    char(128)
           )
    begin
    call dbo.sp_checkperms( 'DBA' );
    execute immediate with quotes
        'grant connect, group to "' || @grpname || '"'
    end
go
CREATE procedure dbo.sp_addlanguage(
           in @language    char(30),
           in @alias    char(30),
           in @months    varchar(251),
           in @shortmons    varchar(119),
           in @days     varchar(216),
           in @datefmt    char(3),
           in @datefirst    smallint
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_addlogin(
           in @login_name    char(128),
           in @passwd    char(128),
           in @defaultdb    char(128)   default NULL,
           in @deflanguage    char(30)    default NULL,
           in @fullname    char(128)   default NULL
           )
    begin
    call dbo.sp_checkperms( 'DBA' );
    execute immediate with quotes
        'grant connect to "' || @login_name ||
            '" identified by "' || @passwd || '"'
    end
go
CREATE procedure dbo.sp_addmessage(
           in @message_num    int,
           in @message_text varchar(255),
           in @language    int        default NULL
           )
    begin
    call dbo.sp_checkperms( 'RESOURCE' );
    execute immediate with quotes
        'create message ' || @message_num
         || ' as ''' || @message_text || ''' user "' || user || '"'
    end
go
CREATE procedure dbo.sp_addremotelogin(
           in @remoteserver char(30),
           in @login_name    char(128),
           in @remotename    char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_addsegment(
           in @segname    char(128),
           in @dbname    char(128),
           in @device_name    char(128)
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_addserver(
           in @server    char(128),
           in @local_null    char(5)        default NULL,
           in @network_name char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_addthreshold(
           in @database    char(128),
           in @segment    char(128),
           in @free_pages    int,
           in @procedure    char(128)
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_addtype(
           in @typename    char(30),
           in @phystype    char(30),
           in @ident_null    char(20)    default 'not specified'
           )
    begin
    declare dflt char(30);
    declare nullable char(8);

    call dbo.sp_checkperms( 'RESOURCE' );
    set dflt = '';
    set nullable = '';
    if @ident_null is null then
      set @ident_null = 'null'
    end if;
    if @ident_null <> 'not specified' then
      if lcase(@ident_null) = 'identity' then
        set dflt = 'default autoincrement';
        set nullable = 'not null';
      else
        if lcase(@ident_null) = 'nonull' then
          set nullable = 'not null';
        else
          set nullable = @ident_null;
        end if;
      end if;
    end if;
    execute immediate with quotes
        'create domain ' || @typename || ' '
         || @phystype || ' ' || nullable || ' ' || dflt;
    end
go
CREATE procedure dbo.sp_adddumpdevice(
           in @tape_disk    char(4),
           in @device_name    char(128),
           in @phys_name    char(128),
           in @size    int        default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_adduser(
           in @login_name    char(128),
           in @name_in_db    char(128)   default NULL,
           in @grpname    char(128)   default NULL
           )
    begin
    call dbo.sp_checkperms( 'DBA' );
    if not exists (select * from SYS.SYSUSERPERMS
       where user_name = @login_name) then
        execute immediate with quotes
        'grant connect to "' || @login_name || '"';
    end if;
    if @grpname is not null then
      execute immediate with quotes
          'grant membership in group "' || @grpname
              || '" to "' || @login_name || '"';
    end if
    end
go
CREATE procedure dbo.sp_auditdatabase(
           in @dbname    char(128)   default NULL,
           in @audittype    char(4)        default NULL,
           in @event_types    char(10)    default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_auditlogin(
           in @login_name    char(128)   default NULL,
           in @table_view    char(5)        default NULL,
           in @audittype    char(4)        default NULL,
           in @cmdtext    char(7)        default NULL,
           in @on_off    char(3)        default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_auditobject(
           in @objname    char(128),
           in @dbname    char(128),
           in @audittype    char(4)        default NULL,
           in @event_types    char(10)    default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_auditoption(
           in @auditopt    char(30),
           in @optval    char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_auditsproc(
           in @sp_name    char(128)   default NULL,
           in @dbname    char(128)   default NULL,
           in @audittype    char(4)        default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_bindefault(
           in @defaultname    char(128),
           in @objectname    char(128),
           in @futureonly    char(10)    default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_bindmsg(
           in @constraint_name char(128),
           in @message_num    int
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_bindrule(
           in @rulename    char(128),
           in @objectname    char(128),
           in @futureonly    char(10)    default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_changedbowner(
           in @login_name    char(128),
           in @true_kw    char(4)        default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_changegroup(
           in @grpname    char(128),
           in @name_in_db    char(128)
           )
    begin
    call dbo.sp_checkperms( 'DBA' );
    execute immediate with quotes
        'grant membership in group "' || @grpname ||
            '" to "' || @name_in_db || '"'
    end
go
CREATE procedure dbo.sp_checknames()
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_checkreswords(
           in @user_name    char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_clearstats(
           in @user_name    char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_commonkey(
           in @tabaname    char(128),
           in @tabbname    char(128),
           in @col1a    char(128),
           in @col1b    char(128),
           in @col2a    char(128)   default NULL,
           in @col2b    char(128)   default NULL,
           in @col3a    char(128)   default NULL,
           in @col3b    char(128)   default NULL,
           in @col4a    char(128)   default NULL,
           in @col4b    char(128)   default NULL,
           in @col5a    char(128)   default NULL,
           in @col5b    char(128)   default NULL,
           in @col6a    char(128)   default NULL,
           in @col6b    char(128)   default NULL,
           in @col7a    char(128)   default NULL,
           in @col7b    char(128)   default NULL,
           in @col8a    char(128)   default NULL,
           in @col8b    char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_configure(
           in @config_name    char(128)   default NULL,
           in @config_value char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_cursorinfo(
           in @cursor_level int        default NULL,
           in @cursor_name    char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_dboption(
           in @dbname    char(128)   default NULL,
           in @optname    char(128)   default NULL,
           in @true_false    char(5)        default NULL
           )
    begin
    declare setting char(3);

    if @dbname is null or @optname is null or @true_false is null then
      call sp_tsql_feature_not_supported()
    else
      if lcase(@true_false) = 'true' then
        set setting = 'on'
      else
        set setting = 'off'
      end if;
      if 'allow nulls by default' like (lcase(@optname) || '%') then
        execute immediate with quotes
            'set option ' || user || '.Allow_nulls_by_default = '''
                || setting || ''''
      else
        call sp_tsql_feature_not_supported()
      end if;
    end if
    end
go
CREATE procedure dbo.sp_dbremap(
           in @database_name char(128)
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_depends(
           in @objname    char(128)
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_diskdefault(
           in @logical_name    char(128),
           in @dflt_on_off    char(10)
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_displaylogin(
           in @login_name    char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_dropalias(
           in @login_name    char(128)
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_dropdevice(
           in @device_name    char(128)
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_dropgroup(
           in @grpname    char(128)
           )
    begin
    call dbo.sp_checkperms( 'DBA' );
    execute immediate with quotes
        'revoke group from "' || @grpname || '"'
    end
go
CREATE procedure dbo.sp_dropkey(
           in @keytype    char(7),
           in @tabaname    char(128),
           in @tabbname    char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_droplanguage(
           in @language    char(30),
           in @dropmessages char(12)    default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_droplogin(
           in @login_name    char(128)
           )
    begin
    call dbo.sp_checkperms( 'DBA' );
    execute immediate with quotes
        'revoke connect from "' || @login_name || '"'
    end
go
CREATE procedure dbo.sp_dropmessage(
           in @message_number   int,
           in @language    char(30)    default NULL
           )
    begin
    call dbo.sp_checkperms( 'RESOURCE' );
    execute immediate with quotes
        'drop message ' || @message_number
    end
go
CREATE procedure dbo.sp_dropremotelogin(
           in @remoteserver char(128),
           in @login_name    char(128)   default NULL,
           in @remotename    char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_dropsegment(
           in @segname    char(128),
           in @dbname    char(128),
           in @device_name    char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_dropserver(
           in @server    char(128),
           in @droplogins    char(10)    default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_dropthreshold(
           in @database    char(128),
           in @segment_name char(128),
           in @free_pages    int
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_droptype(
           in @typename    char(30)
           )
    begin
    call dbo.sp_checkperms( 'RESOURCE' );
    execute immediate with quotes
        'drop domain "' || @typename || '"'
    end
go
CREATE procedure dbo.sp_dropuser(
           in @name_in_db    char(128)
           )
    begin
    call dbo.sp_checkperms( 'DBA' );
    execute immediate with quotes
        'revoke connect from "' || @name_in_db || '"'
    end
go
CREATE procedure dbo.sp_estspace(
           in @table_name    char(128),
           in @no_of_rows    int,
           in @fill_factor    int        default NULL,
           in @cols_to_max    int        default NULL,
           in @textbin_len    int        default NULL,
           in @iosec    int        default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_extendsegment(
           in @segname    char(128),
           in @dbname    char(128),
           in @device_name    char(128)
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_foreignkey(
           in @tabname    char(128),
           in @pktabname    char(128),
           in @col1        char(128),
           in @col2        char(128)   default NULL,
           in @col3        char(128)   default NULL,
           in @col4        char(128)   default NULL,
           in @col5        char(128)   default NULL,
           in @col6        char(128)   default NULL,
           in @col7        char(128)   default NULL,
           in @col8        char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_getmessage(
           in @message_num    int,
           out @msg_var    varchar(255),
           in @language    char(30)    default NULL
           )
    on exception resume
    begin
    set @msg_var = (select description from SYS.SYSUSERMESSAGES
                    where error = @message_num);
    end
go
CREATE procedure dbo.sp_help(
           in @objname    char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_helpconstraint(
           in @tabname    char(128),
           in @detail    char(6)        default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_helpdb(
           in @dbname    char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_helpdevice(
           in @device_name    char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_helpgroup(
           in @grpname    char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_helpindex(
           in @tabname    char(128)
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_helpjoins(
           in @lefttab    char(128),
           in @righttab     char(128)
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_helpkey(
           in @objname     char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_helplanguage(
           in @language     char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_helplog()
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_helpremotelogin(
           in @remoteserver char(128)   default NULL,
           in @remotename     char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_helpprotect(
           in @name        char(128)   default NULL,
           in @name_in_db    char(128)   default NULL,
           in @grant_kw    char(5)        default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_helpsegment(
           in @segname     char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_helpserver(
           in @server     char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_helpsort()
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_helptext(
           in @objname     char(128)   default NULL
           )
        result ( "text" char(80) )
    begin
    declare txt         long varchar;
    declare currline    char(80);
    declare i           smallint;
    declare len         integer;
    declare posn        integer;
    declare objid        integer;
    declare local temporary table
        tmp__sp_helptext (
        ln          smallint not null primary key,
        "text"      char(80) null
        ) in SYSTEM on commit preserve rows;
    set objid = object_id( @objname );
    if objid is null then
        return
    end if;
    if objid >= 100000 and objid < 200000 then
        select view_def into txt
        from SYS.SYSTABLE
        where table_id = objid - 100000
    else
        if objid >= 200000 and objid < 300000 then
        select proc_defn into txt
        from SYS.SYSPROCEDURE
        where proc_id = objid - 200000
        else
        select trigger_defn into txt
        from SYS.SYSTRIGGER
        where trigger_id = objid - 300000
        end if
    end if;
    set i = 1;
    set len = length(txt);
    while( len > 0 ) loop
        set posn = locate(txt,'\n');
        if( posn > 80 or posn = 0 ) then
        set posn = 80;
        set currline = substr(txt,1,posn)
        else
        set currline = substr(txt,1,posn-1)
        end if;
        insert into tmp__sp_helptext values(i,currline);
        set txt = substr(txt,posn+1);
        set len = len - posn;
        set i = i + 1
    end loop;
    select "text" from tmp__sp_helptext order by ln;
    end
go
CREATE procedure dbo.sp_helpthreshold(
           in @segment_name char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_helpuser(
           in @name_in_db     char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_indsuspect(
           in @table_name     char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_lock(
           in @spid1    int        default NULL,
           in @spid2    int        default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_locklogin(
           in @login_name    char(128)   default NULL,
           in @lock_unlock     char(6)     default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_logdevice(
           in @dbname    char(128),
           in @device_name    char(128)
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_modifylogin(
           in @login_name    char(128),
           in @optname    char(30),
           in @value     char(128)
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_modifythreshold(
           in @database    char(128),
           in @segment    char(128),
           in @free_pages    int,
           in @new_procedure char(128)  default NULL,
           in @new_free_pages int        default NULL,
           in @new_segment    char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_monitor()
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_password(
           in @caller_pswd    char(128),
           in @new_pswd    char(128),
           in @login_name    char(128)   default NULL
           )
    begin
    if @login_name is not null then
      call dbo.sp_checkperms( 'DBA' )
    else
      set @login_name = user
    end if;
    execute immediate with quotes
        'grant connect to "' || @login_name ||
        '" identified by "' || @new_pswd || '"';
    end
go
CREATE procedure dbo.sp_placeobject(
           in @segname    char(128),
           in @objname     char(128)
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_primarykey(
           in @tabname    char(128),
           in @col1        char(128),
           in @col2        char(128)   default NULL,
           in @col3        char(128)   default NULL,
           in @col4        char(128)   default NULL,
           in @col5        char(128)   default NULL,
           in @col6        char(128)   default NULL,
           in @col7        char(128)   default NULL,
           in @col8     char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_procxmode(
           in @proc_name    char(128)   default NULL,
           in @trans_mode    char(9)     default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_recompile(
           in @tabname     char(128)
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_remap(
           in @object_name    char(128)
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_remoteoption(
           in @remoteserver char(128)   default NULL,
           in @login_name    char(128)   default NULL,
           in @remote_name    char(128)   default NULL,
           in @opt_name    char(128)   default NULL,
           in @true_false     char(5)     default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_rename(
           in @objname    char(128),
           in @newname     char(128)
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_renamedb(
           in @dbname    char(128),
           in @newname     char(128)
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_reportstats(
           in @user_name     char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_role(
           in @grant_revoke char(6),
           in @role_type    char(9),
           in @login_name     char(128)
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_serveroption(
           in @server    char(128)   default NULL,
           in @optname    char(128)   default NULL,
           in @true_false    char(5)        default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_setlangalias(
           in @language    char(30),
           in @alias     char(30)
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_spaceused(
           in @table_name     char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_syntax(
           in @cmd_or_frag    char(128)   default NULL,
           in @module_name    char(128)   default NULL,
           in @language     char(30)    default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_unbindefault(
           in @objname    char(128),
           in @futureonly    char(10)    default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_unbindmsg(
           in @constraint_name char(128)
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_unbindrule(
           in @objname    char(128),
           in @futureonly     char(10)    default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_volchanged(
           in @session_id    int,
           in @device_name    char(128),
           in @action    char(7),
           in @filename    char(128)   default NULL,
           in @volume_name    char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_who(
           in @login_name    char(128)   default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_column_privileges(
           in @table_name        char(128),
           in @table_owner        char(128)   default NULL,
           in @table_qualifier  char(128)    default NULL,
           in @column_name        char(128)   default NULL
           )
      result (
           table_qualifier     varchar(128),
           table_owner         varchar(128),
           table_name          varchar(128),
           column_name         varchar(128),
           grantor             varchar(128),
           grantee             varchar(128),
           privilege           varchar(128),
           is_grantable        varchar(3) )
    begin
    declare local temporary table t_colpriv(
           table_owner         varchar(128),
           table_name          varchar(128),
           column_name         varchar(128),
           grantor             varchar(128),
           grantee             varchar(128),
           privilege           varchar(128),
           is_grantable        varchar(3) )
           in SYSTEM;

    call sp_tsql_feature_not_supported()
    end
go

CREATE procedure dbo.sp_columns(in @table_name char(128) default '%',
                    in @table_owner char(128) default '%',
                                    in @table_qualifier char(128) default '%',
                                    in @column_name char(128) default '%')
    result (
        table_qualifier    varchar(32),
        table_owner        varchar(32),
        table_name        varchar(32),
        column_name        varchar(32),
        data_type        smallint,
        type_name        varchar(32),
        "precision"        integer,
        length        integer,
        scale        smallint,
        radix        smallint,
        nullable        smallint,
        remarks        varchar(254),
        ss_data_type    smallint,
        colid         smallint     )
    begin
      select cast(current database as varchar(32)),
         cast(u.user_name as varchar(32)),
         cast(table_name as varchar(32)),
         cast(column_name as varchar(32)),
         cast(d.type_id as smallint),
         cast(ifnull(c.user_type, sst.ss_type_name,

                          (select type_name from SYS.SYSUSERTYPE
                           where  type_id=c.user_type)) as  varchar(32)),
         cast(isnull(d."precision",width) as integer),
         cast(width as integer ),
         cast(scale as smallint),

         cast((if d.domain_id NOT IN ( 6,7,9,8,10,11,12,13,14 ) then
                       10
                  else
                       null
                  endif) as smallint),
         cast((if nulls='Y' then 1 else 0 endif) as smallint),
         cast(null as varchar(254)),
         cast(sst.ss_domain_id as smallint),
         cast(column_id as  smallint     )
    from SYS.SYSCOLUMN as c,
             SYS.SYSTABLE as t,
             SYS.SYSDOMAIN as d,
             SYS.SYSTYPEMAP as map,
             SYS.SYSSQLSERVERTYPE as sst,
         SYS.SYSUSERPERMS as u
    where
               c.table_id=t.table_id
       and t.table_name like @table_name
       and t.creator=u.user_id
       and u.user_name like @table_owner
       and c.domain_id=d.domain_id
       and map.sa_domain_id=c.domain_id
       and(map.sa_user_type=c.user_type or
              (select count(*) from SYS.SYSTYPEMAP where sa_user_type=c.user_type)=0 AND (map.sa_user_type is null))



       and sst.ss_user_type=map.ss_user_type
       and (nullable is null or nullable='N')
       and c.column_name like @column_name
    end
go
CREATE procedure dbo.sp_databases()
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_datatype_info(
           in @data_type        char(30)    default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_fkeys(
           in @pktable_name     char(128)  default NULL,
           in @pktable_owner    char(128)    default NULL,
           in @pktable_qualifier char(128)    default NULL,
           in @fktable_name     char(128)    default NULL,
           in @fktable_owner    char(128)    default NULL,
           in @fktable_qualifier char(128)    default NULL
           )
    result (
        pktable_qualifier        char(128),
        pktable_owner        char(128),
        pktable_name        char(128),
        pkcolumn_name        char(128),
        fktable_qualifier        char(128),
        fktable_owner        char(128),
        fktable_name        char(128),
        fkcolumn_name        char(128),
        key_seq             smallint     ,
        update_rule            smallint,
        delete_rule            smallint
    )
    begin
    if @pktable_name is null and @fktable_name is null then
        return
    end if;
    if @pktable_name is null then
        set @pktable_name = '%'
    end if;
    if @pktable_owner is null then
        set @pktable_owner = '%'
    end if;
    if @fktable_name is null then
        set @fktable_name = '%'
    end if;
    if @fktable_owner is null then
        set @fktable_owner = '%'
    end if;
    select
        current database,
        po.user_name,
        pt.table_name,
        ptc.column_name,
        current database,
        fo.user_name,
        ft.table_name,
        ftc.column_name,
        fkc.primary_column_id,
        0,
        0
    from SYS.SYSFOREIGNKEY fk, SYS.SYSFKCOL fkc,
        SYS.SYSTABLE pt, SYS.SYSCOLUMN ptc, SYS.SYSUSERPERMS po,
        SYS.SYSTABLE ft, SYS.SYSCOLUMN ftc, SYS.SYSUSERPERMS fo,
    where fk.primary_table_id   = pt.table_id
    and   pt.table_id        = ptc.table_id
    and   ptc.column_id        = fkc.primary_column_id
    and   pt.creator        = po.user_id
    and   fk.foreign_table_id   = ft.table_id
    and   ft.table_id        = ftc.table_id
    and   ftc.column_id        = fkc.foreign_column_id
    and   ft.creator        = fo.user_id
    and   fk.foreign_table_id   = fkc.foreign_table_id
    and   fk.foreign_key_id        = fkc.foreign_key_id
    and   ft.table_name        like @fktable_name
    and   fo.user_name        like @fktable_owner
    and   pt.table_name        like @pktable_name
    and   po.user_name        like @pktable_owner
    order by ft.table_name,fo.user_name,fkc.primary_column_id
    end
go
CREATE procedure dbo.sp_pkeys(
           in @table_name        char(128),
           in @table_owner        char(128)   default NULL,
           in @table_qualifier  char(128)    default NULL
           )
    result (
        table_qualifier        char(128),
        table_owner            char(128),
        table_name            char(128),
        column_name            char(128),
        key_seq             smallint      )
    begin
    if @table_owner is null then
        set @table_owner = '%'
    end if;
    select
        current database,
        user_name,
        table_name,
        column_name,
        column_id
    from SYS.SYSTABLE t, SYS.SYSCOLUMN c, SYS.SYSUSERPERM u
    where t.table_id = c.table_id
    and   t.creator = u.user_id
    and   table_name like @table_name
    and   user_name like @table_owner
    and   pkey = 'Y'
    order by table_name,user_name,column_id
    end
go
create procedure dbo.sp_serverinfo
    @request    varchar(30) = NULL
    as
    declare @db_collation_name    char(30)

    select @db_collation_name = (select default_collation from SYS.SYSINFO)
    if (@db_collation_name is null)
        begin
        select @db_collation_name = 'internal'
    end

    -- If the collation information does not exist, use the default
    if not exists ( select * from SYS.SYSCOLLATIONMAPPINGS
                    where collation_label = @db_collation_name )
    begin
        select @db_collation_name = 'internal'
    end
    if (@request = 'server_soname')
    if( (select case_sensitivity from SYS.SYSINFO) = 'N' )
        -- Case insensitive sort order
        select so_caseless_label from SYS.SYSCOLLATIONMAPPINGS
            where collation_label = @db_collation_name
    else
            -- Case sensitive sort order
        select so_case_label from SYS.SYSCOLLATIONMAPPINGS
            where collation_label = @db_collation_name
    else if (@request = 'server_csname')
    select cs_label from SYS.SYSCOLLATIONMAPPINGS
        where collation_label = @db_collation_name
go
CREATE procedure dbo.sp_server_info(
           in @attribute_id        int        default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_special_columns(
           in @table_name        char(128),
           in @table_owner        char(128)   default NULL,
           in @table_qualifier  char(128)    default NULL,
           in @col_type        char(1)     default 'R'
           )
        result (
        scope            int ,
        column_name        char(128),
        data_type        smallint,
        type_name        char(128),
        "precision"        int,
        length            int,
        scale            smallint
        )
    begin
    declare @indid            int;
    declare @full_table_name    long varchar;
    declare objid            int;
    declare indexid            int;
    if @table_owner is null then
        set @full_table_name = @table_name
    else
        set @full_table_name = @table_owner || '.' || @table_name
    end if;
    set objid = object_id(@full_table_name);
    if objid is null then
        return
    end if;
    if @col_type = 'V' then
        select
        0,
        column_name,
        d.type_id,
        d.domain_name,
        isnull(d."precision",width),
        width,
        scale
        from SYS.SYSCOLUMN c, SYS.SYSDOMAIN d
        where table_id = objid - 100000
          and c.domain_id = d.domain_id
          and ("default" = 'autoincrement' or "default" = 'timestamp');
        return
    end if;

    if exists (select * from SYS.SYSCOLUMN
           where table_id = objid - 100000 and pkey = 'Y') then
        select
        0,
        column_name,
        d.type_id,
        d.domain_name,
        isnull(d."precision",width),
        width,
        scale
        from SYS.SYSCOLUMN c, SYS.SYSDOMAIN d
        where table_id = objid - 100000
          and c.domain_id = d.domain_id
          and pkey = 'Y'
        order by column_id;
        return
    end if;

    set indexid = (select min(index_id) from SYS.SYSINDEX
               where table_id = objid - 100000 and "unique" = 'U');
    if indexid is not null then
        select
        0,
        column_name,
        d.type_id,
        d.domain_name,
        isnull(d."precision",width),
        width,
        scale
        from SYS.SYSCOLUMN c, SYS.SYSDOMAIN d, SYS.SYSINDEX ix, SYS.SYSIXCOL ic
        where c.table_id = objid - 100000
          and c.domain_id = d.domain_id
          and ix.table_id = c.table_id
          and ix.index_id = indexid
          and ic.table_id = ix.table_id
          and ic.index_id = ix.index_id
        order by ic.sequence;
        return
    end if;
    end
go
CREATE procedure dbo.sp_sproc_columns(
           in @sp_name        char(128),
           in @sp_owner        char(128)    default NULL,
           in @sp_qualifier        char(128)    default NULL,
           in @column_name        char(128)    default NULL
           )
        result (
        procedure_qualifier char(128),
        procedure_owner        char(128),
        procedure_name        char(128),
        column_name        char(128),
        column_type        smallint,
        data_type        smallint,
        type_name        char(128),
        "precision"        int,
        length            int,
        scale            smallint,
        radix            smallint,
        nullable        smallint,
        remarks            varchar(254),
        ss_data_type        smallint,
        colid             smallint
        )
    begin
    declare @full_sp_name        long varchar;
    declare objid            int;
    if @sp_owner is null then
        set @full_sp_name = @sp_name
    else
        set @full_sp_name = @sp_owner || '.' || @sp_name
    end if;
    if @column_name is null then
        set @column_name = '%'
    end if;
    set objid = object_id( @full_sp_name );
    select
        current database,
        user_name,
        proc_name,
        parm_name,
        0,
        d.type_id,
        domain_name,
        d."precision",
        width,
        scale,
        if  locate(d.domain_name,'char') = 0
        and locate(d.domain_name,'binary') = 0
        and locate(d.domain_name,'time') = 0
        and locate(d.domain_name,'date') = 0
           then 10 else NULL endif,
        if "default" is not null then 1 else 0 endif,
        null,
        pp.domain_id,
        parm_id
    from SYS.SYSPROCEDURE p, SYS.SYSPROCPARM pp, SYS.SYSDOMAIN d,
         SYS.SYSUSERPERM u
    where p.proc_id = objid - 200000
    and   p.proc_id = pp.proc_id
    and   pp.domain_id = d.domain_id
    and   p.creator = u.user_id
    and   pp.parm_type = 0
    and   parm_name like @column_name
    end
go
CREATE procedure dbo.sp_statistics(
        in @table_name        char(128)    default '%',
        in @table_owner        char(128)    default '%',
        in @table_qualifier char(128)    default '%',
        in @index_name        char(128)    default '%',
        in @is_unique        char(1)    default 'N')
        result (
        table_qualifier        varchar(32),
        table_owner        varchar(32),
        table_name        varchar(32),
        non_unique        smallint,
        index_qualifier        varchar(32),
        index_name        varchar(32),
        "type"            smallint,
        seq_in_index        smallint,
        collation        char(1),
        cardinality        integer,
        pages            integer)
    begin
      declare @full_table_name long varchar;
      if @table_owner='%' then
    set @full_table_name=@table_name
      else
    set @full_table_name=@table_owner||'.'||@table_name
      end if;

      select convert(varchar(32),db_name(*)) as table_qualifier,
         convert(varchar(32),user_name(tab.creator)) as table_owner,
         convert(varchar(32),tab.table_name) as table_name,
         convert(smallint,null) as non_unique,
         convert(varchar(32),null) as index_qualifier,
         convert(varchar(32),null) as index_name,
         convert(smallint,0) as "type",
         convert(smallint,0) as seq_in_index,
         convert(char(1),null) as collation,
         convert(integer,tab."count") as cardinality,
         convert(integer,tab."count") as pages
      from SYS.SYSTABLE as tab
      where tab.table_id=(object_id(@full_table_name)-100000)

      union all


      select convert(varchar(32),db_name(*)) as table_qualifier,
         convert(varchar(32),user_name(tab.creator)) as table_owner,
         convert(varchar(32),tab.table_name) as table_name,
         convert(smallint,if "unique"='Y' then 0 else 1 endif) as non_unique,
         convert(varchar(32),tab.table_name) as index_qualifier,
         convert(varchar(32),ind.index_name) as index_name,
         convert(smallint,3) as "type",
         convert( smallint     ,ixcol.column_id) as seq_in_index,
         convert(char(1),ixcol."order") as collation,
         convert(integer,tab."count") as cardinality,
         convert(integer,tab."count") as pages
      from SYS.SYSTABLE as tab,sysindex as ind,sysixcol as ixcol
      where tab.table_id=(object_id(@full_table_name)-100000)
             and ind.table_id=tab.table_id
        and ixcol.index_id=ind.index_id
        and ixcol.table_id=ind.table_id
        and ind."unique"<>'U'
        and ind.index_name like @index_name
        and(@is_unique='Y' or ind."unique"='N')

      order by 4 asc,7 asc,6 asc,8 asc
    end
go
CREATE procedure dbo.sp_stored_procedures(
           in @sp_name        char(128)    default NULL,
           in @sp_owner        char(128)    default NULL,
           in @sp_qualifier        char(128)    default NULL
           )
    result (
        procedure_qualifier char(128),
        procedure_owner        char(128),
        procedure_name        char(128),
        num_input_params    int,
        num_output_params   int,
        num_result_sets        int,
        remarks            varchar(254) )
    begin
    if @sp_name is null then
        set @sp_name = '%'
    else
        if (@sp_owner is null) and (charindex('%', @sp_name) = 0) then
        if exists (select * from SYS.SYSPROCEDURE, SYS.SYSUSERPERMS
                where creator = user_id
                and   user_name = user
                and   proc_name = @sp_name ) then
            set @sp_owner = user
        end if
        end if
    end if;
    if @sp_owner is null then
        set @sp_owner = '%'
    end if;
    select
        current database,
        user_name,
        proc_name,
        (select count(*) from SYS.SYSPROCPARM
         where parm_mode_in = 'Y'
         and   parm_type = 0
         and   proc_id = p.proc_id),
        (select count(*) from SYS.SYSPROCPARM
         where parm_mode_out = 'Y'
         and   parm_type = 0
         and   proc_id = p.proc_id),
        if exists (select * from SYS.SYSPROCPARM
               where parm_type = 1
               and   proc_id = p.proc_id) then 1 else 0 endif,
        null
    from SYS.SYSPROCEDURE p, SYS.SYSUSERPERM u
    where proc_name like @sp_name
    and   user_name like @sp_owner
    and   p.creator = u.user_id
    end
go
CREATE procedure dbo.sp_table_privileges(
           in @table_name        char(128),
           in @table_owner        char(128)   default NULL,
           in @table_qualifier  char(128)    default NULL
           )
    begin
    call sp_tsql_feature_not_supported()
    end
go
CREATE procedure dbo.sp_tables(
        in @table_name        char(128)    default '%',
        in @table_owner        char(128)    default '%',
        in @table_qualifier char(128)    default '%',
        in @table_type        char(128)    default '%')
        result (
        table_qualifier        varchar(30),
        table_owner        varchar(30),
        table_name        varchar(30),
        table_type        varchar(30),
        remarks            varchar(254))
    begin
      select cast(current database as varchar(30)),
         cast(creator as varchar(30)),
         cast(tname as varchar(30)),
         cast((if tabletype='VIEW' then
                       'VIEW'
               else
                    if creator='SYS' and tabletype='TABLE' then
                             'SYSTEM TABLE'
                        else
                             'TABLE'
                        endif
                endif) as varchar(30)),
         cast(null as varchar(254))
      from SYS.SYSCATALOG
      where (creator like @table_owner)
    and (tname like @table_name)
    and(   @table_type='%'
        or(locate(@table_type,'''TABLE''')<>0
        and tabletype<>'VIEW' and creator<>'SYS')
    or(locate(@table_type,'''VIEW''')<>0
       and tabletype='VIEW')
    or(locate(@table_type,'''SYSTEM TABLE''')<>0
       and tabletype<>'VIEW' and creator='SYS'))
    and(current database like @table_qualifier)
    end
go
CREATE procedure dbo.sp_tsql_environment()
    begin
    if db_property( 'IQStore' ) = 'OFF' then
        -- ASA datastore
        SET TEMPORARY OPTION TSQL_VARIABLES='ON';
        SET TEMPORARY OPTION ANSI_BLANKS='ON';
        SET TEMPORARY OPTION TSQL_HEX_CONSTANT='ON';
        SET TEMPORARY OPTION CHAINED='OFF';
        SET TEMPORARY OPTION QUOTED_IDENTIFIER='OFF';
        SET TEMPORARY OPTION ALLOW_NULLS_BY_DEFAULT='OFF';
        SET TEMPORARY OPTION AUTOMATIC_TIMESTAMP='ON';
        SET TEMPORARY OPTION ANSINULL='OFF';
        SET TEMPORARY OPTION CONTINUE_AFTER_RAISERROR='ON';
        SET TEMPORARY OPTION FLOAT_AS_DOUBLE='ON';
        SET TEMPORARY OPTION ISOLATION_LEVEL='1';
        SET TEMPORARY OPTION DATE_FORMAT='YYYY-MM-DD';
        SET TEMPORARY OPTION TIMESTAMP_FORMAT='YYYY-MM-DD HH:NN:SS.SSS';
        SET TEMPORARY OPTION TIME_FORMAT='HH:NN:SS.SSS';
        SET TEMPORARY OPTION DATE_ORDER='MDY';
        SET TEMPORARY OPTION ESCAPE_CHARACTER='OFF';
    end if;
    end
go
CREATE procedure dbo.sp_login_environment()
    begin
    if connection_property( 'CommProtocol' ) = 'TDS' then
        call dbo.sp_tsql_environment();
    end if;
    end
go
CREATE function dbo.col_length(
           in @object_name     char(128),
           in @column_name     char(128)
           )
    returns integer
    on exception resume
    begin
    declare sz integer;
    declare objid integer;

    set objid = object_id( @object_name );
    select width into sz
    from SYS.SYSCOLUMN
    where table_id = objid - 100000
    and column_name = @column_name;

    return( sz );
    end
go
CREATE function dbo.col_name(
           in @object_id integer,
           in @column_id integer,
           in @database_id integer default NULL
           )
    returns char(128)
    on exception resume
    begin
    declare cname char(128);

    select "name" into cname
    from dbo.syscolumns
    where id = @object_id
    and colid = @column_id;

    if SQLCODE <> 0 then
        return( NULL )
    end if;
    return( cname );
    end
go
CREATE function dbo.index_col(
           in @object_name char(128),
           in @index_id integer,
           in @key_# integer,
           in @user_id integer default NULL
           )
    returns char(128)
    on exception resume
    begin
    declare cname char(128);
    declare objid integer;
    declare indid integer;

    set objid = object_id( @object_name );
    if objid is null then return( NULL ) end if;

    select column_name into cname
    from SYS.SYSCOLUMN, SYS.SYSIXCOL
    where SYSIXCOL.table_id = objid - 100000
    and index_id = @index_id
    and sequence = @key_#
    and SYSIXCOL.table_id=SYSCOLUMN.table_id
    and SYSIXCOL.column_id=SYSCOLUMN.column_id;

    return( cname );
    end
go
CREATE function dbo.object_id(
           in @object_name char(128)
           )
    returns integer
    on exception resume
    begin
    declare obj_owner    char(128);
    declare obj_name    char(128);
    declare id        integer;
    declare posn    integer;

    set posn = locate(@object_name,'.');
    if( posn <> 0 ) then
        set obj_owner = substr(@object_name,1,posn-1);
        set obj_name = substr(@object_name,posn+1);
        select o.id into id
        from dbo.sysobjects o, SYS.SYSUSERPERMS p
        where  o."name"=obj_name
        and    o.uid=p.user_id
        and    p.user_name=obj_owner;
    else
        select o.id into id
        from dbo.sysobjects o
        where "name"=@object_name;
    end if;

    return( id );
    end
go
CREATE function dbo.object_name(
           in @object_id integer,
           in @database_id integer default NULL
           )
    returns char(128 )
    on exception resume
    begin
    declare obj_name char(128);

    select "name" into obj_name
    from dbo.sysobjects
    where id = @object_id;

    return( obj_name );
    end
go
CREATE function dbo.proc_role(
           in @role_type char(10)
           )
    returns integer
    on exception resume
    begin
    return( 0 );
    end
go
CREATE function dbo.show_role()
    returns char(128)
    on exception resume
    begin
    return( NULL );
    end
go
CREATE function dbo.xp_startmail(
        in mail_user   char(254)   default null,
        in mail_password char(254) default null )
    returns int
    external name '[e-mail];Windows3x:[e-mail]'
go

CREATE function dbo.xp_stopmail()
    returns int
    external name '[e-mail];Windows3x:[e-mail]'
go
CREATE function dbo.xp_sendmail(
        in recipient           char(254),
        in subject             char(254)   default null,
        in cc_recipient        char(254)   default null,
        in bcc_recipient       char(254)   default null,
        in query               char(254)   default null,
        in "message"         char(254)   default null,
        in attachname          char(254)   default null,
        in attach_result       int         default 0,
        in echo_error          int         default 1,
        in include_file        char(254)   default null,
        in no_column_header    int         default 0,
        in no_output           int         default 0,
        in width               int         default 80,
        in separator           char(1)     default '\t',
        in dbuser              char(254)   default 'guest',
        in dbname              char(254)   default 'master',
        in type                char(254)   default null,
        in include_query       int         default 0 )
    returns int
    external name '[e-mail];Windows3x:[e-mail]'
go
CREATE function dbo.xp_cmdshell(
        in command        char(254) default null,
        in redir_output    char(254) default 'no_output' )
    returns int
    external name '[e-mail];Netware:xp_cmdshell;Windows3x:[e-mail]'
go
CREATE procedure dbo.xp_sprintf(
        out    output_buffer    char(254),
        in    format        char(254),
        in    parm1        char(254) default null,
        in    parm2        char(254) default null,
        in    parm3        char(254) default null,
        in    parm4        char(254) default null,
        in    parm5        char(254) default null,
        in    parm6        char(254) default null,
        in    parm7        char(254) default null,
        in    parm8        char(254) default null,
        in    parm9        char(254) default null,
        in    parm10        char(254) default null,
        in    parm11        char(254) default null,
        in    parm12        char(254) default null,
        in    parm13        char(254) default null,
        in    parm14        char(254) default null,
        in    parm15        char(254) default null,
        in    parm16        char(254) default null,
        in    parm17        char(254) default null,
        in    parm18        char(254) default null,
        in    parm19        char(254) default null,
        in    parm20        char(254) default null,
        in    parm21        char(254) default null,
        in    parm22        char(254) default null,
        in    parm23        char(254) default null,
        in    parm24        char(254) default null,
        in    parm25        char(254) default null,
        in    parm26        char(254) default null,
        in    parm27        char(254) default null,
        in    parm28        char(254) default null,
        in    parm29        char(254) default null,
        in    parm30        char(254) default null,
        in    parm31        char(254) default null,
        in    parm32        char(254) default null,
        in    parm33        char(254) default null,
        in    parm34        char(254) default null,
        in    parm35        char(254) default null,
        in    parm36        char(254) default null,
        in    parm37        char(254) default null,
        in    parm38        char(254) default null,
        in    parm39        char(254) default null,
        in    parm40        char(254) default null,
        in    parm41        char(254) default null,
        in    parm42        char(254) default null,
        in    parm43        char(254) default null,
        in    parm44        char(254) default null,
        in    parm45        char(254) default null,
        in    parm46        char(254) default null,
        in    parm47        char(254) default null,
        in    parm48        char(254) default null,
        in    parm49        char(254) default null,
        in    parm50        char(254) default null )
        external name 'OS2:xp_sprintf[varargs]@dbextf6.dll;Windows95:xp_sprintf[varargs]@dbextf6.dll;WindowsNT:xp_sprintf[varargs]@dbextf6.dll;Netware:xp_sprintf[varargs];Windows3x:xp_sprintf[varargs]@dbextf6w.dll'
go
CREATE procedure dbo.xp_scanf(
        in    input_buffer    char(254),
        in    format        char(254),
        out    parm1        char(254) default null,
        out    parm2        char(254) default null,
        out    parm3        char(254) default null,
        out    parm4        char(254) default null,
        out    parm5        char(254) default null,
        out    parm6        char(254) default null,
        out    parm7        char(254) default null,
        out    parm8        char(254) default null,
        out    parm9        char(254) default null,
        out    parm10        char(254) default null,
        out    parm11        char(254) default null,
        out    parm12        char(254) default null,
        out    parm13        char(254) default null,
        out    parm14        char(254) default null,
        out    parm15        char(254) default null,
        out    parm16        char(254) default null,
        out    parm17        char(254) default null,
        out    parm18        char(254) default null,
        out    parm19        char(254) default null,
        out    parm20        char(254) default null,
        out    parm21        char(254) default null,
        out    parm22        char(254) default null,
        out    parm23        char(254) default null,
        out    parm24        char(254) default null,
        out    parm25        char(254) default null,
        out    parm26        char(254) default null,
        out    parm27        char(254) default null,
        out    parm28        char(254) default null,
        out    parm29        char(254) default null,
        out    parm30        char(254) default null,
        out    parm31        char(254) default null,
        out    parm32        char(254) default null,
        out    parm33        char(254) default null,
        out    parm34        char(254) default null,
        out    parm35        char(254) default null,
        out    parm36        char(254) default null,
        out    parm37        char(254) default null,
        out    parm38        char(254) default null,
        out    parm39        char(254) default null,
        out    parm40        char(254) default null,
        out    parm41        char(254) default null,
        out    parm42        char(254) default null,
        out    parm43        char(254) default null,
        out    parm44        char(254) default null,
        out    parm45        char(254) default null,
        out    parm46        char(254) default null,
        out    parm47        char(254) default null,
        out    parm48        char(254) default null,
        out    parm49        char(254) default null,
        out    parm50        char(254) default null )
        external name 'OS2:xp_scanf[varargs]@dbextf6.dll;Windows95:xp_scanf[varargs]@dbextf6.dll;WindowsNT:xp_scanf[varargs]@dbextf6.dll;Netware:xp_scanf[varargs];Windows3x:xp_scanf[varargs]@dbextf6w.dll'
go
CREATE function dbo.xp_msver(
        in the_option        char(254) default 'ProductName' )
    returns char( 254 )
    begin
        declare r char( 254 );
        declare s char( 254 );

        case the_option
        when 'ProductName' then
        select property( 'ProductName' ) into r from dummy;
        when 'ProductVersion' then
        select property( 'ProductVersion' ) into r from dummy;
        when 'CompanyName' then
        select property( 'CompanyName' ) into r from dummy;
        when 'LegalCopyright' then
        select property( 'LegalCopyright' ) into r from dummy;
        when 'LegalTrademarks' then
        select property( 'LegalTrademarks' ) into r from dummy;
        when 'FileDescription' then
            select property( 'ProductName' ) into r from dummy;
        select property( 'Platform' ) into s from dummy;
               set r = r || ' ' || s
        else
            set r = '<unknown>'
        end case ;

        return( r );
    end

go
CREATE procedure dbo.sa_db_info( IN dbidparm int default NULL )
    result (
        Number             int,
        Alias              varchar(255),
        File               varchar(255),
    ConnCount          int,
        PageSize           int,
        LogName            varchar(255)
    )
begin
    declare dbid           int;
    declare local temporary table t_db_info(
        Number             int        null,
        Alias              varchar(255) null,
        File               varchar(255) null,
    ConnCount       int        null,
        PageSize           int        null,
        LogName            varchar(255) null
    ) in SYSTEM on commit preserve rows;
    if( dbidparm is not NULL ) then
        set dbid = dbidparm;
    else
    set dbid = next_database( NULL );
    end if;
    lbl:
    loop
    if dbid is NULL then
        leave lbl;
    end if;
    insert into t_db_info values (
        dbid,
        db_property( 'Alias', dbid ),
        db_property( 'File', dbid ),
        db_property( 'ConnCount', dbid ),
        db_property( 'PageSize', dbid ),
        db_property( 'LogName', dbid ),
    );
    if( dbidparm is not NULL ) then
        leave lbl;
    else
        set dbid = next_database( dbid );
        end if;
    end loop lbl;
    select * from t_db_info;
end
go
CREATE procedure dbo.sa_conn_info( IN connidparm int default NULL )
    result (
        Number             int,
        Name               varchar(255),
        Userid             varchar(255),
    DBNumber       int,
        LastReqTime        varchar(255),
        ProcessTime        varchar(255),
        Port               int,
        ReqType            varchar(255),
        CommLink           varchar(255),
        NodeAddr           varchar(255),
    LastIdle       int,
    CurrTaskSw       int,
    BlockedOn       int,
    UncmtOps       int
        )
begin
    declare connid         int;
    declare local temporary table t_conn_info(
        Number             int        null,
        Name               varchar(255) null,
        Userid             varchar(255) null,
    DBNumber       int        null,
        LastReqTime        varchar(255) null,
        ProcessTime        varchar(255) null,
        Port               int        null,
        ReqType            varchar(255) null,
        CommLink           varchar(255) null,
        NodeAddr           varchar(255) null,
    LastIdle       int        null,
    CurrTaskSw       int        null,
    BlockedOn       int        null,
    UncmtOps       int         null
    ) in SYSTEM on commit preserve rows;
    if( connidparm is not NULL ) then
        set connid = connidparm;
    else
    set connid = next_connection( connid, NULL );
    end if;
    lbl:
    loop
        if connid is NULL then
            leave lbl
        end if;
        insert into t_conn_info values (
            connid,
            connection_property( 'Name', connid ),
            connection_property( 'Userid', connid ),
            connection_property( 'DBNumber', connid ),
            connection_property( 'LastReqTime', connid ),
            connection_property( 'ProcessTime', connid ),
            connection_property( 'Port', connid ),
            connection_property( 'ReqType', connid ),
            connection_property( 'CommLink', connid ),
            connection_property( 'NodeAddress', connid ),
            connection_property( 'LastIdle', connid ),
            connection_property( 'CurrTaskSw', connid ),
            connection_property( 'BlockedOn', connid ),
            connection_property( 'UncmtOps', connid )
        );
    if( connidparm is not NULL ) then
        leave lbl;
    else
        set connid = next_connection( connid, NULL );
    end if;
    end loop lbl;
    select * from t_conn_info;
end
go
CREATE procedure dbo.sa_eng_properties()
    result (
    PropNum            int,
    PropName       varchar(255),
        PropDescription    varchar(255),
        Value              varchar(255)
    )
begin
    declare i           int;
    declare local temporary table t_eng_properties(
    PropNum            int        null,
    PropName       varchar(255) null,
        PropDescription    varchar(255) null,
        Value              varchar(255) null
    ) in SYSTEM on commit preserve rows;
    set i = 0;
    proploop:
    loop
    if( property( i ) is not NULL ) then
        insert into t_eng_properties values (
        i,
        property_name( i ),
        property_description( i ),
        property( i )
        );
    else
        if( i >   200   ) then
        leave proploop;
        end if;
    end if;
    set i = i + 1;
    end loop proploop;
    select * from t_eng_properties;
end
go
CREATE procedure dbo.sa_db_properties( IN dbidparm int default NULL )
    result (
        Number             int,
    PropNum            int,
    PropName       varchar(255),
        PropDescription    varchar(255),
        Value              varchar(255)
    )
begin
    declare dbid           int;
    declare i           int;
    declare local temporary table t_db_properties(
        Number             int        null,
    PropNum            int        null,
    PropName       varchar(255) null,
        PropDescription    varchar(255) null,
        Value              varchar(255) null
    ) in SYSTEM on commit preserve rows;
    if( dbidparm is not NULL ) then
        set dbid = dbidparm;
    else
    set dbid = next_database( NULL );
    end if;
    dbloop:
    loop
        if dbid is NULL then
            leave dbloop;
        end if;
    set i = 0;
    proploop:
    loop
        if( db_property( i, dbid ) is not NULL ) then
        insert into t_db_properties values (
            dbid,
            i,
            property_name( i ),
            property_description( i ),
            db_property( i, dbid )
        );
        else
            if( i >   200   ) then
            leave proploop;
        end if;
        end if;
        set i = i + 1;
    end loop proploop;
    if( dbidparm is not NULL ) then
        leave dbloop;
    else
        set dbid = next_database( dbid );
    end if;
    end loop dbloop;
    select * from t_db_properties;
end
go
CREATE procedure dbo.sa_conn_properties( IN connidparm int default NULL )
    result (
        Number             int,
    PropNum            int,
    PropName       varchar(255),
        PropDescription    varchar(255),
        Value              varchar(255)
    )
begin
    declare connid         int;
    declare i           int;
    declare local temporary table t_conn_properties(
        Number             int        null,
    PropNum            int        null,
    PropName       varchar(255) null,
        PropDescription    varchar(255) null,
        Value              varchar(255) null
    ) in SYSTEM on commit preserve rows;
    if( connidparm is not NULL ) then
        set connid = connidparm;
    else
    set connid = next_connection( NULL );
    end if;
    connloop:
    loop
        if connid is NULL then
            leave connloop;
        end if;
    set i = 0;
    proploop:
    loop
        if( connection_property( i, connid ) is not NULL ) then
        insert into t_conn_properties values (
            connid,
            i,
            property_name( i ),
            property_description( i ),
            connection_property( i, connid )
        );
        else
            if( i >   200   ) then
            leave proploop;
        end if;
        end if;
        set i = i + 1;
    end loop proploop;
    if( connidparm is not NULL ) then
        leave connloop;
    else
        set connid = next_connection( connid );
    end if;
    end loop connloop;
    select * from t_conn_properties;
end
go
create procedure dbo.sa_validate(
    in tbl_name char(128) default NULL,
    in owner_name char(128) default NULL )
result( Messages char(128) )
on exception resume
begin
    declare tname char(128);
    declare uname char(128);
    declare qualified_name char(250);
    declare counter int;
    declare errcode int;
    declare tables cursor for
    select rtrim(table_name), rtrim(user_name)
    from SYS.SYSTABLE t, SYS.SYSUSERPERM u
    where table_type='BASE'
    and t.creator = u.user_id
    order by t.creator, table_name;
    declare first_owner cursor for
    select user_name
    from SYS.SYSTABLE t, SYS.SYSUSERPERM u
    where table_name=tbl_name
    and t.creator = u.user_id;
    declare local temporary table result_msgs(
    rownum integer,
    msg char(250) ) in SYSTEM;




    set counter = 0;

    if tbl_name is null then
    open tables;
    tabs: loop
        fetch tables into tname, uname;
        if SQLCODE <> 0 then leave tabs end if;

        set qualified_name = '"' || uname || '"."' || tname || '"';
        execute immediate with quotes 'validate table ' || qualified_name;
        set errcode = SQLCODE;
        if errcode <> 0 then
        set counter = counter + 1;
        insert into result_msgs values ( counter,
            'Error ' || errcode || ' detected in table ' || qualified_name );
        end if;
    end loop;
    close tables;
    else
    set tname = rtrim(tbl_name);
    if owner_name is null then
        set uname = '';
        open first_owner;
        fetch first_owner into uname;
        if SQLCODE = 0 then
        set uname = '"' || rtrim(uname) || '".';
        end if;
        close first_owner;
    else
        set uname = '"' || rtrim(owner_name) || '".';
    end if;
    set qualified_name = uname || '"' || tname || '"';
    execute immediate with quotes 'validate table ' || qualified_name;
    set errcode = SQLCODE;
    if errcode <> 0 then
        set counter = counter + 1;
        if errcode = -141 then
        insert into result_msgs values ( counter,
            'Table ' || qualified_name || ' not found' );
        else
        insert into result_msgs values ( counter,
            'Error ' || errcode || ' detected in table ' || qualified_name );
        end if;
    end if;
    end if;

    if counter = 0 then
    insert into result_msgs values ( 1, 'No errors detected' );
    end if;

    select msg from result_msgs order by rownum;
end
go
create procedure dbo.sa_internal_table_page_usage()
    internal name 'table_page_usage'
go
create procedure dbo.sa_table_page_usage()
result(
    TableId    integer,
    TablePages    integer,
    PctUsedT    integer,
    IndexPages    integer,
    PctUsedI    integer,
    PctOfFile    integer,
    TableName    char(128))
begin
    declare local temporary table PageUse(
    TableId        integer null,
    TablePages    integer null,
    PctUsedT    integer null,
    IndexPages    integer null,
    PctUsedI    integer null,
    PctOfFile    integer null,
    TableName    char(128) null ) in SYSTEM;

    call dbo.sa_internal_table_page_usage();

    select * from PageUse order by TableID;
end
go
create procedure SYS.sa_setremoteuser(
    p_user_id         smallint ,
    p_log_sent        numeric(20,0),
    p_confirm_sent    numeric(20,0),
    p_send_count    integer,
    p_resend_count    integer,
    p_log_received    numeric(20,0),
    p_confirm_received    numeric(20,0),
    p_receive_count    integer,
    p_rereceive_count    integer )
begin
    update SYS.SYSREMOTEUSER
       set  log_sent        = p_log_sent,
        confirm_sent    = p_confirm_sent,
        send_count        = p_send_count,
        resend_count    = p_resend_count,
        log_received    = p_log_received,
        confirm_received= p_confirm_received,
        receive_count   = p_receive_count,
        rereceive_count = p_rereceive_count
    where user_id = p_user_id;
    commit;
end
go
create procedure SYS.sa_setsubscription(
    p_publication_id     smallint ,
    p_user_id         smallint ,
    p_subscribe_by    char(128),
    p_created        numeric(20,0),
    p_started        numeric(20,0) )
begin
    update SYS.SYSSUBSCRIPTION
       set  created = p_created,
        started = p_started
    where publication_id = p_publication_id
      and user_id = p_user_id
      and subscribe_by = p_subscribe_by;
    commit;
end
go
create procedure dbo.java_debug_connect(
    in user_to_debug char(128) )
    internal name 'java_debug_connect'
go
create procedure dbo.java_debug_disconnect()
    internal name 'java_debug_disconnect'
go
create procedure dbo.java_debug_get_existing_vms(
    out buffer long binary )
    internal name 'java_debug_get_existing_vms'
go
create procedure dbo.java_debug_free_existing_vms()
    internal name 'java_debug_free_existing_vms'
go
create procedure dbo.java_debug_wait_for_debuggable_vm(
    out buffer long binary )
    internal name 'java_debug_wait_for_debuggable_vm'
go
create procedure dbo.java_debug_get_vm_name(
    in vm_handle long binary,
    out vm_name char(128) )
    internal name 'java_debug_get_vm_name'
go
create procedure dbo.java_debug_release_vm(
    in vm_handle long binary )
    internal name 'java_debug_release_vm'
go
create procedure dbo.java_debug_attach_to_vm(
    in vm_name char(128),
    out debugger long binary )
    internal name 'java_debug_attach_to_vm'
go
create procedure dbo.java_debug_detach_from_vm(
    in debugger long binary )
    internal name 'java_debug_detach_from_vm'
go
create procedure dbo.java_debug_request(
    in debugger long binary,
    in request long binary,
    out out_request long binary )
    internal name 'java_debug_request'
go
create procedure dbo.sa_flush_cache()
    internal name 'sa_flush_cache'
go
create procedure dbo.sa_server_option(
    in opt char(128),
    in val char(128) )
    internal name 'sa_server_option'
go
create procedure dbo.sa_exec_script(
    in filename char(128) )
    internal name 'sa_exec_script'
go
create procedure dbo.sa_jdk_version()
    result( "classes_version" char(10) )
    begin
        select "classes_version" from SYS.SYSINFO;
    end
go
GRANT EXECUTE On dbo.sp_tsql_feature_not_supported    TO PUBLIC
go
GRANT EXECUTE On dbo.sp_checkperms             TO PUBLIC
go
GRANT EXECUTE On dbo.sp_addalias             TO PUBLIC
go
GRANT EXECUTE On dbo.sp_addauditrecord             TO PUBLIC
go
GRANT EXECUTE On dbo.sp_addgroup             TO PUBLIC
go
GRANT EXECUTE On dbo.sp_addlanguage             TO PUBLIC
go
GRANT EXECUTE On dbo.sp_addlogin             TO PUBLIC
go
GRANT EXECUTE On dbo.sp_addmessage             TO PUBLIC
go
GRANT EXECUTE On dbo.sp_addremotelogin             TO PUBLIC
go
GRANT EXECUTE On dbo.sp_addsegment             TO PUBLIC
go
GRANT EXECUTE On dbo.sp_addserver             TO PUBLIC
go
GRANT EXECUTE On dbo.sp_addthreshold             TO PUBLIC
go
GRANT EXECUTE On dbo.sp_addtype             TO PUBLIC
go
GRANT EXECUTE On dbo.sp_adddumpdevice             TO PUBLIC
go
GRANT EXECUTE On dbo.sp_adduser             TO PUBLIC
go
GRANT EXECUTE On dbo.sp_auditdatabase             TO PUBLIC
go
GRANT EXECUTE On dbo.sp_auditlogin             TO PUBLIC
go
GRANT EXECUTE On dbo.sp_auditobject            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_auditoption            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_auditsproc            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_bindefault            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_bindmsg                TO PUBLIC
go
GRANT EXECUTE On dbo.sp_bindrule            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_changedbowner            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_changegroup            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_checknames            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_checkreswords            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_clearstats            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_commonkey            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_configure            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_cursorinfo            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_dboption            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_dbremap                TO PUBLIC
go
GRANT EXECUTE On dbo.sp_depends                TO PUBLIC
go
GRANT EXECUTE On dbo.sp_diskdefault            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_displaylogin            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_dropalias            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_dropdevice            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_dropgroup            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_dropkey                TO PUBLIC
go
GRANT EXECUTE On dbo.sp_droplanguage            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_droplogin            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_dropmessage            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_dropremotelogin            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_dropsegment            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_dropserver            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_dropthreshold            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_droptype            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_dropuser            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_estspace            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_extendsegment            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_foreignkey            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_getmessage            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_help                TO PUBLIC
go
GRANT EXECUTE On dbo.sp_helpconstraint            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_helpdb                TO PUBLIC
go
GRANT EXECUTE On dbo.sp_helpdevice            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_helpgroup            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_helpindex            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_helpjoins            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_helpkey                TO PUBLIC
go
GRANT EXECUTE On dbo.sp_helplanguage            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_helplog                TO PUBLIC
go
GRANT EXECUTE On dbo.sp_helpremotelogin            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_helpprotect            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_helpsegment            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_helpserver            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_helpsort            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_helptext            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_helpthreshold            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_helpuser            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_indsuspect            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_lock                TO PUBLIC
go
GRANT EXECUTE On dbo.sp_locklogin            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_logdevice            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_modifylogin            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_modifythreshold            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_monitor                TO PUBLIC
go
GRANT EXECUTE On dbo.sp_password            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_placeobject            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_primarykey            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_procxmode            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_recompile            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_remap                TO PUBLIC
go
GRANT EXECUTE On dbo.sp_remoteoption            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_rename                TO PUBLIC
go
GRANT EXECUTE On dbo.sp_renamedb            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_reportstats            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_role                TO PUBLIC
go
GRANT EXECUTE On dbo.sp_serveroption            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_setlangalias            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_spaceused            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_syntax                TO PUBLIC
go
GRANT EXECUTE On dbo.sp_unbindefault            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_unbindmsg            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_unbindrule            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_volchanged            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_who                TO PUBLIC
go
GRANT EXECUTE On dbo.sp_column_privileges        TO PUBLIC
go
GRANT EXECUTE On dbo.sp_columns                TO PUBLIC
go
GRANT EXECUTE On dbo.sp_databases            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_datatype_info            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_fkeys                TO PUBLIC
go
GRANT EXECUTE On dbo.sp_pkeys                TO PUBLIC
go
GRANT EXECUTE On dbo.sp_serverinfo            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_server_info            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_special_columns            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_sproc_columns            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_statistics            TO PUBLIC
go
GRANT EXECUTE On dbo.sp_stored_procedures        TO PUBLIC
go
GRANT EXECUTE On dbo.sp_table_privileges        TO PUBLIC
go
GRANT EXECUTE On dbo.sp_tables                TO PUBLIC
go
GRANT EXECUTE On dbo.sp_tsql_environment        TO PUBLIC
go
GRANT EXECUTE On dbo.sp_login_environment        TO PUBLIC
go
GRANT EXECUTE On dbo.xp_sprintf                TO PUBLIC
go
GRANT EXECUTE On dbo.xp_scanf                TO PUBLIC
go
GRANT EXECUTE On dbo.sa_db_info                TO PUBLIC
go
GRANT EXECUTE On dbo.sa_conn_info            TO PUBLIC
go
GRANT EXECUTE On dbo.sa_eng_properties            TO PUBLIC
go
GRANT EXECUTE On dbo.sa_db_properties            TO PUBLIC
go
GRANT EXECUTE On dbo.sa_conn_properties            TO PUBLIC
go
grant EXECUTE on dbo.sa_validate            to DBA
go
grant EXECUTE on dbo.sa_table_page_usage        to DBA
go
grant EXECUTE on dbo.java_debug_connect            to PUBLIC
go
grant EXECUTE on dbo.java_debug_disconnect        to PUBLIC
go
grant EXECUTE on dbo.java_debug_get_existing_vms    to PUBLIC
go
grant EXECUTE on dbo.java_debug_free_existing_vms    to PUBLIC
go
grant EXECUTE on dbo.java_debug_wait_for_debuggable_vm    to PUBLIC
go
grant EXECUTE on dbo.java_debug_get_vm_name        to PUBLIC
go
grant EXECUTE on dbo.java_debug_release_vm        to PUBLIC
go
grant EXECUTE on dbo.java_debug_attach_to_vm        to PUBLIC
go
grant EXECUTE on dbo.java_debug_detach_from_vm        to PUBLIC
go
grant EXECUTE on dbo.java_debug_request            to PUBLIC
go
grant EXECUTE on dbo.sa_flush_cache            to DBA
go
grant EXECUTE on dbo.sa_server_option            to DBA
go
grant EXECUTE on dbo.sa_jdk_version            to DBA
go
create procedure rs_systabgroup.rs_get_lastcommit
    as select origin, origin_qid, secondary_qid
    from rs_systabgroup.rs_lastcommit
go
create procedure rs_systabgroup.rs_update_lastcommit
    @origin         int,
    @origin_qid     binary(36),
    @secondary_qid  binary(36),
    @origin_time    datetime
as
    update rs_systabgroup.rs_lastcommit
        set origin_qid = @origin_qid,
        secondary_qid = @secondary_qid,
        origin_time = @origin_time,
        commit_time = getdate()
    where origin = @origin
    if (@@rowcount = 0)
    begin
        insert rs_systabgroup.rs_lastcommit (origin, origin_qid, secondary_qid,
            origin_time, commit_time)
        values (@origin, @origin_qid, @secondary_qid,
            @origin_time, getdate())
    end
go
create procedure rs_systabgroup.rs_marker
    (@rs_api varchar(255))
begin
    set @rs_api = @rs_api
end
go
alter procedure rs_systabgroup.rs_marker replicate on
go

create procedure rs_systabgroup.rs_initialize_threads @rs_id int
as
    delete from rs_systabgroup.rs_threads where id = @rs_id
    insert into rs_systabgroup.rs_threads values ( @rs_id, 0 )
go
create procedure rs_systabgroup.rs_update_threads @rs_id int, @rs_seq int
as
    update rs_systabgroup.rs_threads set seq = @rs_seq where id = @rs_id
go