t/data/sybase/create.sql

   1 /* Script generated by dbschema.pl(2.4.2) on Mon Aug 18 14:15:25 2003.  */
   2 /* Script extracted on a solaris system. */
   3
   4 use master
   5 go
   6
   7 /* Groups... */
   8
   9 /* No groups found. */
  10
  11
  12 /* Users... */
  13
  14 exec sp_adduser 'guest', 'guest'
  15 exec sp_adduser 'probe', 'probe'
  16 go
  17
  18 /* Aliases... */
  19
  20 /* No aliases found. */
  21
  22 /* Add user-defined data types: */
  23
  24 /* No user defined types found. */
  25
  26
  27 /* Rules... */
  28
  29 /* No rules found. */
  30
  31 /* Defaults... */
  32
  33 /* No defaults found. */
  34 /* Bind rules & defaults to user data types... */
  35
  36 /* No defaults to bind. */
  37
  38 /* No rules to bind. */
  39
  40
  41 /* Start of description of table dbo.jdbc_function_escapes */
  42
  43 setuser 'dbo'
  44 go
  45
  46 CREATE TABLE dbo.jdbc_function_escapes (
  47         escape_name varchar(40) NOT NULL,
  48         map_string  varchar(40) NOT NULL
  49 )
  50 go
  51
  52
  53 /* Add permissions for table... */
  54 IF OBJECT_ID('dbo.jdbc_function_escapes') IS NOT NULL
  55 BEGIN
  56     GRANT SELECT ON dbo.jdbc_function_escapes TO public
  57 END
  58 go
  59
  60 /* Bind rules & defaults to columns... */
  61 /* End of description of table dbo.jdbc_function_escapes */
  62
  63
  64 /* Start of description of table dbo.spt_jdbc_conversion */
  65
  66 setuser 'dbo'
  67 go
  68
  69 CREATE TABLE dbo.spt_jdbc_conversion (
  70         datatype   int      NOT NULL,
  71         conversion char(20) NOT NULL
  72 )
  73 go
  74
  75
  76 /* Add permissions for table... */
  77 IF OBJECT_ID('dbo.spt_jdbc_conversion') IS NOT NULL
  78 BEGIN
  79     GRANT SELECT ON dbo.spt_jdbc_conversion TO public
  80 END
  81 go
  82
  83 /* Bind rules & defaults to columns... */
  84 /* End of description of table dbo.spt_jdbc_conversion */
  85
  86
  87 /* Start of description of table dbo.spt_jdbc_table_types */
  88
  89 setuser 'dbo'
  90 go
  91
  92 CREATE TABLE dbo.spt_jdbc_table_types (
  93         TABLE_TYPE char(15) NOT NULL
  94 )
  95 go
  96
  97
  98 /* Add permissions for table... */
  99 IF OBJECT_ID('dbo.spt_jdbc_table_types') IS NOT NULL
 100 BEGIN
 101     GRANT SELECT ON dbo.spt_jdbc_table_types TO public
 102 END
 103 go
 104
 105 /* Bind rules & defaults to columns... */
 106 /* End of description of table dbo.spt_jdbc_table_types */
 107
 108
 109 /* Start of description of table dbo.spt_jtext */
 110
 111 setuser 'dbo'
 112 go
 113
 114 CREATE TABLE dbo.spt_jtext (
 115         mdinfo varchar(30) NOT NULL,
 116         value  text        NOT NULL,
 117     UNIQUE (mdinfo)
 118 )
 119 go
 120
 121
 122 /* Add permissions for table... */
 123 IF OBJECT_ID('dbo.spt_jtext') IS NOT NULL
 124 BEGIN
 125     GRANT SELECT ON dbo.spt_jtext TO public
 126 END
 127 go
 128
 129 /* Bind rules & defaults to columns... */
 130 /* End of description of table dbo.spt_jtext */
 131
 132
 133 /* Start of description of table dbo.spt_limit_types */
 134
 135 setuser 'dbo'
 136 go
 137
 138 CREATE TABLE dbo.spt_limit_types (
 139         name        char(30) NOT NULL,
 140         id          smallint NOT NULL,
 141         enforced    tinyint  NOT NULL,
 142         object_type smallint NOT NULL,
 143         scope       smallint NOT NULL,
 144         units       char(60) NOT NULL
 145 )
 146 go
 147
 148
 149 /* Add permissions for table... */
 150 IF OBJECT_ID('dbo.spt_limit_types') IS NOT NULL
 151 BEGIN
 152     GRANT SELECT ON dbo.spt_limit_types TO public
 153 END
 154 go
 155
 156 /* Bind rules & defaults to columns... */
 157 /* End of description of table dbo.spt_limit_types */
 158
 159
 160 /* Start of description of table dbo.spt_mda */
 161
 162 setuser 'dbo'
 163 go
 164
 165 CREATE TABLE dbo.spt_mda (
 166         mdinfo       varchar(30)  NOT NULL,
 167         querytype    tinyint      NOT NULL,
 168         query        varchar(255)     NULL,
 169         mdaver_start tinyint      NOT NULL,
 170         mdaver_end   tinyint      NOT NULL,
 171         srvver_start int          NOT NULL,
 172         srvver_end   int          NOT NULL
 173 )
 174 go
 175
 176
 177 IF OBJECT_ID('dbo.spt_mda') IS NOT NULL
 178 BEGIN
 179     CREATE UNIQUE NONCLUSTERED INDEX spt_mda_ind
 180     ON spt_mda (mdinfo, mdaver_end, srvver_end)
 181 END
 182 go
 183
 184
 185 /* Add permissions for table... */
 186 IF OBJECT_ID('dbo.spt_mda') IS NOT NULL
 187 BEGIN
 188     GRANT SELECT ON dbo.spt_mda TO public
 189 END
 190 go
 191
 192 /* Bind rules & defaults to columns... */
 193 /* End of description of table dbo.spt_mda */
 194
 195
 196 /* Start of description of table dbo.spt_monitor */
 197
 198 setuser 'dbo'
 199 go
 200
 201 CREATE TABLE dbo.spt_monitor (
 202         lastrun       datetime NOT NULL,
 203         cpu_busy      int      NOT NULL,
 204         io_busy       int      NOT NULL,
 205         idle          int      NOT NULL,
 206         pack_received int      NOT NULL,
 207         pack_sent     int      NOT NULL,
 208         connections   int      NOT NULL,
 209         pack_errors   int      NOT NULL,
 210         total_read    int      NOT NULL,
 211         total_write   int      NOT NULL,
 212         total_errors  int      NOT NULL
 213 )
 214 ON system
 215 go
 216
 217
 218 /* Add permissions for table... */
 219 IF OBJECT_ID('dbo.spt_monitor') IS NOT NULL
 220 BEGIN
 221     GRANT SELECT ON dbo.spt_monitor TO public
 222 END
 223 go
 224
 225 /* Bind rules & defaults to columns... */
 226 /* End of description of table dbo.spt_monitor */
 227
 228
 229 /* Start of description of table dbo.spt_values */
 230
 231 setuser 'dbo'
 232 go
 233
 234 CREATE TABLE dbo.spt_values (
 235         name   varchar(28)     NULL,
 236         number int         NOT NULL,
 237         type   char(2)     NOT NULL,
 238         low    int             NULL,
 239         high   int             NULL,
 240         msgnum int             NULL
 241 )
 242 ON system
 243 go
 244
 245
 246 IF OBJECT_ID('dbo.spt_values') IS NOT NULL
 247 BEGIN
 248     CREATE CLUSTERED INDEX spt_valuesclust
 249     ON spt_values (number, type)
 250 END
 251 go
 252
 253
 254 /* Add permissions for table... */
 255 IF OBJECT_ID('dbo.spt_values') IS NOT NULL
 256 BEGIN
 257     GRANT SELECT ON dbo.spt_values TO public
 258 END
 259 go
 260
 261 /* Bind rules & defaults to columns... */
 262 /* End of description of table dbo.spt_values */
 263
 264
 265 /* Start of description of table dbo.syblicenseslog */
 266
 267 setuser 'dbo'
 268 go
 269
 270 CREATE TABLE dbo.syblicenseslog (
 271         status      smallint NOT NULL,
 272         logdate     datetime NOT NULL,
 273         maxlicenses int      NOT NULL
 274 )
 275 go
 276
 277
 278 /* Add permissions for table... */
 279 /* Bind rules & defaults to columns... */
 280 /* End of description of table dbo.syblicenseslog */
 281
 282
 283 /* Now create the key definitions ...*/
 284
 285
 286 setuser 'dbo'
 287 go
 288
 289 /* Views... */
 290
 291 /* No views found. */
 292
 293 /* Procedures... */
 294
 295 /* Procedure sp_configure, owner dbo */
 296
 297 setuser 'dbo'
 298 go
 299
 300 /* Sccsid = "%Z% generic/sproc/%M% %I% %G%" */
 301 /*      4.8     1.1     06/14/90        sproc/src/configure */
 302
 303 /*
 304 ** Messages for "sp_configure"          17410
 305 **      Must use "langid" when referencing spt_values
 306 **
 307 ** 17260, "Can't run %1! from within a transaction."
 308 ** 17410, "Configuration option doesn't exist."
 309 ** 17411, "Configuration option is not unique."
 310 ** 17413, "The value of the 'number of devices' must be greater than the highest VDEVNO, '%1!', defined in sysdevices."
 311 ** 17414, "You can't set the default language to a language ID that is not defined in Syslanguages."
 312 ** 17415, "Configuration option value is not legal."
 313 ** 17418, "'%1!' is an invalid file command. The valid commands are 'verify', 'read', 'write', and 'restore'."
 314 ** 17419, "Configuration option changed. The SQL Server need not be rebooted since the option is dynamic.
 315 ** 18123, "Configuration option changed. The SQL Server must be rebooted before the change in effect since the option is static."
 316 ** 18124, "No matching configuration options.  Here is a listing of groups:"
 317 ** 18125, "Must provide the parameter 'filename'."
 318 ** 18133, "The character set, '%1!', is invalid since it is not defined in Syscharsets."
 319 ** 18134, "The sortorder, '%1!', is invalid since it is not defined in Syscharsets."
 320 ** 18549, "Invalid third argument supplied: '%1!'. Valid choices are
 321 **         'with truncate' or 'default'."
 322 */
 323 create procedure sp_configure
 324 @configname varchar(80) = NULL,         /* configure option name */
 325 @configvalue int = NULL,                /* configure value */
 326 @configvalue2 varchar(255) = NULL,      /* config file command/charset info */
 327 @configvalue3 varchar(255) = NULL       /* physical name of file */
 328 as
 329
 330 declare @confignum int                  /* number of option to be configured */
 331 declare @configcount int                /* number of options like @configname */
 332 declare @whichone       int             /* using english or default lang ? */
 333 declare @cmd            smallint        /* configuration file command */
 334 declare @status int                     /* return status for misc calls */
 335 declare @children int                   /* number of children in a group */
 336 declare @parent int                     /* config number of parent group */
 337 declare @msg varchar(255)               /* temp buffer for messages */
 338 declare @sysconfig smallint             /* contents of sysconfigures.config */
 339 declare @sysname varchar(255)           /* contents of sysconfigures.comment */
 340 declare @sysparent smallint             /* contents of sysconfigures.parent */
 341 declare @sysstatus smallint             /* contents of sysconfigures.status */
 342 declare @value int                      /* default charset/sort order id */
 343 declare @user_displaylevel int          /* user display level */
 344 declare @maxvdevno int                  /* highest number of vdevno */
 345 declare @sortorder_id int               /* current sortorder id */
 346 declare @charset_id int                 /* current charset id */
 347 declare @use_wildcard tinyint           /* use wildcard to search option name or not */
 348 declare @match_count int                /* number of option found by name match */
 349 declare @cache_part_temp      int         /* cache partition number        */
 350 declare @partition_number     int         /* cache partition number        */
 351 declare @cmpstate       int             /* Local NODE state in companionship */
 352 declare @nocase         tinyint         /* case-sensitive sort order flag */
 353
 354 select @whichone = 0
 355 select @status = 0
 356 select @cmd = 1
 357 select @value = NULL
 358 select @user_displaylevel = NULL
 359 select @sortorder_id =
 360         value from master.dbo.syscurconfigs where config = 123
 361 select @charset_id =
 362         value from master.dbo.syscurconfigs where config = 131
 363
 364 select @use_wildcard = 1
 365
 366 /*
 367 ** Check if the default sort order is case-insensitive.
 368 */
 369 if ("A" = "a")
 370         select @nocase = 1
 371 else
 372         select @nocase = 0
 373
 374 /*
 375 **  Disallow running sp_configure within a transaction since it might make
 376 **  recovery impossible.
 377 */
 378 if @@trancount > 0
 379 begin
 380         /*
 381         ** 17260, "Can't run %1! from within a transaction."
 382         */
 383                 raiserror 17260, "sp_configure"
 384         return (1)
 385 end
 386 else
 387 begin
 388         set chained off
 389 end
 390
 391 set transaction isolation level 1
 392 set nocount on
 393
 394 /*
 395 **      If the "default sortorder" is case insensitive dictionary sort order,
 396 ** the procedure will just print out all the options and their values
 397 ** without grouping if no option name is given.
 398 */
 399 if (@nocase = 1 and @configname is NULL)
 400         begin
 401                select "Parameter Name" = convert(char(30), name),
 402                         "Default" = convert(char(11), space(11-char_length(
 403                                     convert(varchar(11), defvalue)))+
 404                                     convert(varchar(11), defvalue)),
 405                         "Memory Used" = convert(char(11), space(11-char_length(
 406                                         convert(varchar(11), b.comment)))+
 407                                         convert(varchar(11), b.comment)),
 408                         "Config Value" =convert(char(11), space(11-char_length(
 409                           isnull(a.value2, convert(char(32), a.value)))) +
 410                           isnull(a.value2, convert(char(32), a.value))),
 411                         "Run Value" = convert(char(11), space(11-char_length(
 412                           isnull(b.value2, convert(char(32), b.value)))) +
 413                           isnull(b.value2, convert(char(32), b.value)))
 414                 from master.dbo.sysconfigures a,
 415                         master.dbo.syscurconfigs b
 416                 where
 417                         a.config *= b.config
 418                         and parent != 19
 419                         and a.config != 19
 420                 order by name
 421
 422                 return (0)
 423 end
 424
 425 /* Validate the configname if it not NULL */
 426 if @configname is not NULL
 427 begin
 428         select @configcount = count(*)
 429                 from master.dbo.sysconfigures
 430                         where name like "%" + @configname + "%"
 431                         and parent != 19
 432
 433         /*
 434         **      If configure option is not unique and case-insensitive
 435         ** dictionary sort order is used, check if unique option found
 436         ** by exact name match, if so, then disable wildcard match
 437         ** for searching option name.
 438         */
 439         if (@configcount > 1 and @nocase = 1)
 440         begin
 441                 /* check if unique option found by exact name match */
 442                 select @match_count = count(*)
 443                         from master.dbo.sysconfigures
 444                                 where name = @configname
 445                                         and parent != 19
 446                 if @match_count =1
 447                 begin
 448                         select @use_wildcard = 0  /* don't use wildcard */
 449                         select @configcount = @match_count
 450                 end
 451         end
 452
 453         /*
 454         ** If more than one option like @configname,
 455         ** show the duplicates and return.
 456         */
 457         if @configcount > 1
 458         begin
 459                 /*
 460                 ** 17411, "Configuration option is not unique."
 461                 */
 462                 raiserror 17411
 463                 print ""
 464
 465                 select "Parameter Name" = convert(char(30), name),
 466                         "Default" = convert(char(11), space(11-char_length(
 467                                     convert(varchar(11), defvalue)))+
 468                                     convert(varchar(11), defvalue)),
 469                         "Memory Used" = convert(char(11), space(11-char_length(
 470                                         convert(varchar(11), b.comment)))+
 471                                         convert(varchar(11), b.comment)),
 472                         "Config Value" =convert(char(11), space(11-char_length(
 473                           isnull(a.value2, convert(char(32), a.value)))) +
 474                           isnull(a.value2, convert(char(32), a.value))),
 475                         "Run Value" = convert(char(11), space(11-char_length(
 476                           isnull(b.value2, convert(char(32), b.value)))) +
 477                           isnull(b.value2, convert(char(32), b.value)))
 478                 from master.dbo.sysconfigures a,
 479                         master.dbo.syscurconfigs b
 480                 where
 481                         a.config *= b.config
 482                         and name like "%" + @configname + "%"
 483                         and parent != 19
 484                         and a.config != 19
 485                 order by name
 486
 487                 return (1)
 488         end
 489
 490         /*
 491         ** if it is a valid option and the @configvalue is not NULL,
 492         ** set the option
 493         */
 494         if (@configcount != 0) and (@configvalue is not NULL)
 495         begin
 496                 /* set @confignum */
 497                 select  @confignum = config,
 498                         @sysstatus = status
 499                         from master.dbo.sysconfigures
 500                                 where name like "%" + @configname + "%"
 501                                 and parent != 19
 502                                 and config != 19
 503
 504                 /*
 505                 ** If @configvalue2 is "default",
 506                 ** setting the value to default
 507                 */
 508                 if (@configvalue2 = "default")
 509                         select @value = 1
 510                 else
 511                         select @value = 0
 512
 513                 /*
 514                 **  If the option name is "configuration file"
 515                 */
 516                 if @confignum = 114
 517                 begin
 518                         /*
 519                         ** if the file command is one of the valid
 520                         ** commands.
 521                         */
 522                         if ((@configvalue2 = "read") or
 523                                 (@configvalue2 = "write") or
 524                                 (@configvalue2 = "restore") or
 525                                 (@configvalue2 = "verify"))
 526                         begin
 527                                 /*
 528                                 ** if filename is NULL
 529                                 */
 530                                 if (@configvalue3 is NULL)
 531                                 begin
 532                                         /* 18125, "Must provide the parameter 'filename'." */
 533                                         raiserror 18125
 534                                 return(1)
 535                                 end
 536                                 /*
 537                                 ** Must have sa_role to run these
 538                                 ** commands
 539                                 */
 540                                 if (proc_role("sa_role") < 1)
 541                                 begin
 542                                         return(1)
 543                                 end
 544                                 else
 545                                 begin
 546                                         if (@configvalue2 = "verify")
 547                                                 select @cmd = 2
 548                                         else
 549                                         if (@configvalue2 = "read")
 550                                                 select @cmd = 3
 551                                         else
 552                                         if (@configvalue2 = "write")
 553                                                 select @cmd = 4
 554                                         else
 555                                         if (@configvalue2 = "restore")
 556                                                 select @cmd = 5
 557                                 end
 558                         end
 559                         else
 560                         begin
 561                                 /*
 562                                 ** print the message to show the valid
 563                                 ** file command
 564                                 */
 565                                 raiserror 17418, @configvalue2
 566                                 return(1)
 567                         end
 568
 569                         select @status = config_admin(@cmd,0,0,0,NULL,
 570                                                 @configvalue3)
 571
 572                         if (@status = 1)
 573                         begin
 574                                 return(0)
 575                         end
 576                         else
 577                         begin
 578                                 return (1)
 579                         end
 580                 end
 581
 582                 if @confignum = 123
 583                 begin
 584                         /* get current default charset id */
 585                         select @value = value from
 586                                 master.dbo.sysconfigures
 587                                 where config = 131
 588
 589                         if @configvalue2 is not NULL
 590                         begin
 591                                 /* validate the charset id */
 592                                 if not exists (select *
 593                                         from master..syscharsets
 594                                         where name = @configvalue2
 595                                         and type between 1000 and 1999)
 596
 597                                 begin
 598                                         /* 18133, "The character set, '%1!', is invalid since it
 599                                         ** is not defined in Syscharsets."
 600                                         */
 601                                         raiserror 18133, @configvalue2
 602                                         return (1)
 603                                 end
 604
 605                                 /* get default charset id from name */
 606                                 select @value = id
 607                                         from master..syscharsets
 608                                         where name = @configvalue2
 609                                         and type between 1000 and 1999
 610                         end
 611                 end
 612
 613                 if @confignum = 131
 614                 begin
 615                         /* get current default sortord id */
 616                         select @value = value from
 617                                 master.dbo.sysconfigures
 618                                 where config = 123
 619
 620                         if @configvalue2 is not NULL
 621                         begin
 622                                 /* validate the sortord id */
 623                                 if not exists (select *
 624                                         from master..syscharsets
 625                                         where name = @configvalue2
 626                                         and type between 2000 and 2999)
 627                                 begin
 628                                         /* 18134, "The sortorder, '%1!', is invalid since it
 629                                         ** is not defined in Syscharsets."
 630                                         */
 631                                         raiserror 18134, @configvalue2
 632                                         return (1)
 633                                 end
 634
 635                                 /* get default sortorder id from name */
 636                                 select @value = id
 637                                         from master..syscharsets
 638                                         where name = @configvalue2
 639                                         and type between 2000 and 2999
 640                         end
 641                 end
 642
 643                 /*
 644                 ** If an attempt to enable a disk mirroring is made, and
 645                 ** if this happens to be a server with HA services turned
 646                 ** on, we disallow. Currently we do not support ASE HA
 647                 ** services along with sybase mirroring.
 648                 */
 649                 if (@confignum = 140 and @configvalue = 0)
 650                 begin
 651                         select @cmpstate = @@cmpstate
 652                         if @cmpstate >= 0
 653                         begin
 654                                 /* 18816 Mirroring not allowed in ASE HA */
 655                                 raiserror 18816
 656                                 return(1)
 657                         end
 658                 end
 659
 660                 /*
 661                 ** If an attempt to disable disk mirroring is being made,
 662                 ** ensure that there are no devices that are currently
 663                 ** being mirrored.
 664                 */
 665
 666                 if (@confignum = 140 and @configvalue = 1)
 667                 begin
 668                         if (select count(*) from master.dbo.sysdevices
 669                                 where status & 512 = 512) > 0
 670                         begin
 671
 672                           /* 18750, Unable to disable disk mirroring
 673                           ** because some devices are currently
 674                           ** mirrored. Use 'disk unmirror' to
 675                           ** unmirror these devices and then
 676                           ** re-run this sp_configure command.
 677                           */
 678
 679                           raiserror 18570
 680                           return (1)
 681                         end
 682                 end
 683
 684                 /*
 685                 **  If this is the number of devices configuration
 686                 **  parameter, we want to make sure that it's not being
 687                 **  set to lower than the
 688                 **  number of devices in sysdevices.
 689                 */
 690                 if @confignum = 116
 691                 begin
 692                         /*
 693                         ** Get the default value if trying to set the
 694                         ** value to the default value
 695                         */
 696                         if (@value = 1)
 697                         begin
 698                                 select @configvalue = convert(int, defvalue)
 699                                         from master.dbo.syscurconfigs
 700                                         where config = 116
 701                         end
 702
 703                         /*
 704                         **  Get the max vdevno.
 705                         */
 706                         select @maxvdevno = max(
 707                                 convert(tinyint,
 708                                         substring(convert(binary(4), d.low),
 709                                         v.low, 1)))
 710                                 from master.dbo.sysdevices d,
 711                                 master.dbo.spt_values v
 712
 713                         if (@configvalue <= @maxvdevno)
 714                         begin
 715                                 /* 17413, "The value of the 'number of devices' must be
 716                                 ** greater than the highest VDEVNO, '%1!', defined
 717                                 ** in sysdevices."
 718                                 */
 719                                 raiserror 17413, @maxvdevno
 720                                 return (1)
 721                         end
 722                 end
 723
 724
 725                 /*
 726                 **  If this is the number of default language, we want
 727                 **  to make sure that the new value is a valid language
 728                 **  id in Syslanguages.
 729                 */
 730                 if @confignum = 124
 731                 begin
 732                         if not exists (select *
 733                                 from master.dbo.syslanguages
 734                                         where langid = @configvalue)
 735                         begin
 736                                 /* 0 is default language, us_english */
 737                                 if @configvalue != 0
 738                                 begin
 739                                         /* 17414, "You can't set the default language to a
 740                                         ** language ID that is not defined in Syslanguages."
 741                                         */
 742                                         raiserror 17414
 743                                         return (1)
 744                                 end
 745                         end
 746                 end
 747
 748                 /*
 749                 **  If this is the number of current audit table  we want
 750                 **  to make sure that if "with truncate" opiton is not
 751                 **  provided new table is empty other wise fail.
 752                 */
 753                 if @confignum = 260
 754                 begin
 755                         if @configvalue2 is not NULL
 756                         begin
 757                                 if (@configvalue2 not in ("with truncate",
 758                                                                 "default"))
 759                                 begin
 760                                         /*
 761                                         ** 18549, "Invalid third argument
 762                                         **         supplied: '%1!'. Valid
 763                                         **         choices are 'with truncate'
 764                                         **         or 'default'."
 765                                         */
 766                                         raiserror 18549, @configvalue2
 767                                         return(1)
 768                                 end
 769                         end
 770                         else
 771                         begin
 772                                 select @value = 2
 773                         end
 774                 end
 775
 776                 if @confignum = 337
 777                 begin
 778                         if @configvalue is not NULL
 779                         begin
 780                                 if (@configvalue2 = "default")
 781                                 begin
 782                                         select @partition_number = 1
 783                                 end
 784                                 else
 785                                 begin
 786                                         select @partition_number =
 787                                                 @configvalue
 788                                 end
 789
 790                                 if (@partition_number <= 0) OR
 791                                         (@partition_number > 64)
 792                                 begin
 793                                         raiserror 18611
 794                                         return(1)
 795                                 end
 796
 797                                 select @cache_part_temp = 2
 798                                 while @cache_part_temp < @partition_number
 799                                         select @cache_part_temp =
 800                                                 @cache_part_temp * 2
 801                                 if @partition_number != 1 AND
 802                                         @cache_part_temp != @partition_number
 803                                 begin
 804                                         raiserror 18611
 805                                         return(1)
 806                                 end
 807                         end
 808                 end
 809
 810                 /* call config_admin() to set the new value */
 811                 select @status = config_admin(@cmd, @confignum,
 812                                 @configvalue, @value, NULL, @configvalue2)
 813
 814                 /* if successful */
 815                 if (@status = 1)
 816                 begin
 817                         /* Display the new value */
 818                         select "Parameter Name" = convert(char(30), name),
 819                           "Default" = convert(char(11), space(11-char_length(
 820                                 convert(varchar(11), defvalue))) +
 821                                 convert(varchar(11), defvalue)),
 822                           "Memory Used" = convert(char(11),space(11-char_length(
 823                                 convert(varchar(11), c.comment))) +
 824                                 convert(varchar(11), c.comment)),
 825                           "Config Value" = convert(char(11),
 826                                 space(11-char_length(
 827                                 isnull(b.value2, convert(char(32), b.value)))) +
 828                                 isnull(b.value2, convert(char(32), b.value))),
 829                           "Run Value"  = convert(char(11), space(11-char_length(
 830                                 isnull(c.value2, convert(char(32), c.value)))) +
 831                                 isnull(c.value2, convert(char(32), c.value)))
 832                         from master.dbo.sysconfigures b,
 833                                 master.dbo.syscurconfigs c
 834                         where
 835                                 b.config = @confignum and
 836                                 b.config *= c.config
 837
 838                         /*
 839                         ** print reboot message if this option is not
 840                         ** dynamic.
 841                         */
 842                         select @sysstatus = @sysstatus & 8
 843                         if @sysstatus = 8
 844                         begin
 845                                 exec sp_getmessage 17419, @msg output
 846                                 print @msg
 847                         end
 848                         else
 849                         begin
 850                                 exec sp_getmessage 18123, @msg output
 851                                 print @msg
 852                         end
 853
 854                         return(0)
 855                 end
 856                 else
 857                         return(1)
 858         end
 859 end
 860
 861 /*
 862 ** @configcount=0 implies @configname is not valid
 863 ** @configname=NULL implies displaying all the parameters except for
 864 ** the parameters with the config number equal to 19 or the parent equal
 865 ** to 19 since those parameters are displayed by sp_cacheconfig.
 866 */
 867 if (@configcount =0)
 868 begin
 869         /* 18124, "No matching configuration options.
 870         ** Here is a listing of groups:"
 871         */
 872         raiserror 18124
 873         select convert(char(50), name)
 874                 from master.dbo.sysconfigures
 875                 where config < 100
 876                 and parent != 19
 877                 and config != 19
 878                 order by name
 879         return(1)
 880 end
 881 else if (@configname is NULL)
 882         select @configname = "Config"
 883
 884 /*
 885 ** retrieve the display level from sysattributes
 886 */
 887 select @user_displaylevel = int_value from master.dbo.sysattributes where
 888         class = 4 AND
 889         attribute = 0 AND
 890         object_type = 'L' AND
 891         object = suser_id()
 892
 893 /*
 894 ** set the default display level to 10 if it is not defined in sysattributes
 895 */
 896 if (@user_displaylevel = NULL)
 897         select @user_displaylevel = 10
 898
 899 /*
 900 **      If @use_wildcard = 0 and the default sortorder is case-insensitive
 901 ** dictionary sort order, use exact match: name = @configname to get row,
 902 ** otherwise use wildcard match: name like "%" + @configname + "%".
 903 */
 904
 905 if (@use_wildcard = 0 and @nocase = 1)
 906 begin
 907         select  @confignum = config,
 908                 @parent = config,
 909                 @sysname = name,
 910                 @sysstatus = status
 911         from master.dbo.sysconfigures
 912                 where name = @configname
 913                 and config != 19
 914 end
 915 else
 916 begin
 917         select  @confignum = config,
 918                 @parent = config,
 919                 @sysname = name,
 920                 @sysstatus = status
 921         from master.dbo.sysconfigures
 922                 where name like "%" + @configname + "%"
 923                 and config != 19
 924 end
 925
 926 select  @children = count(*)
 927         from master.dbo.sysconfigures
 928         where parent =  @confignum
 929
 930 if @children = 0
 931 begin
 932         /* @@nestlevel is problem area if a sproc calls sp_configure */
 933         /* could pass in another param when recursing */
 934         if @@nestlevel > 1
 935         begin
 936                 /* reached a leaf, notify parent */
 937                 return(1)
 938         end
 939         else
 940         begin
 941                 /* display the information of the config parameter */
 942                 select "Parameter Name" = convert(char(30), name),
 943                         "Default" = convert(char(11), space(11-char_length(
 944                           convert(varchar(11), defvalue))) +
 945                           convert(varchar(11), defvalue)),
 946                         "Memory Used" = convert(char(11), space(11-char_length(
 947                           convert(varchar(11), c.comment))) +
 948                           convert(varchar(11), c.comment)),
 949                         "Config Value" = convert(char(11), space(11-char_length(
 950                           isnull(b.value2, convert(char(32), b.value)))) +
 951                           isnull(b.value2, convert(char(32), b.value))),
 952                         "Run Value"  = convert(char(11), space(11-char_length(
 953                           isnull(c.value2, convert(char(32), c.value)))) +
 954                           isnull(c.value2, convert(char(32), c.value)))
 955                 from master.dbo.sysconfigures b,
 956                         master.dbo.syscurconfigs c
 957                 where
 958                         b.config *= c.config
 959                         and name like "%" + @configname + "%"
 960                         and b.config != 19
 961                         and parent != 19
 962
 963         end
 964 end
 965 else
 966 begin
 967         select @msg = "Group: " + @sysname
 968         print ""
 969         print @msg
 970         print ""
 971
 972         /* this poor guy has kids, so recurse to leaves */
 973         declare config_curs cursor for
 974                 select config, name, parent
 975                 from master.dbo.sysconfigures
 976                 where parent = @parent
 977                 order by name
 978
 979         open config_curs
 980
 981         fetch config_curs into @sysconfig, @sysname, @sysparent
 982
 983         while (@@sqlstatus = 0)
 984         begin
 985
 986                 execute @status = sp_configure @sysname
 987
 988
 989                 if (@status = 1)
 990                 begin
 991                         /*
 992                         ** this guy has leaves as kids,
 993                         ** so print out the leaves with
 994                         ** display level <= @user_displaylevel
 995                         ** Note: If a config parameter has more than one
 996                         ** parent, the extra parents are stored in
 997                         ** 'sysattribures'.
 998                         */
 999                         create table #configure_temp (config int)
1000
1001                         insert into #configure_temp
1002                                 select a.config
1003                                         from master.dbo.sysconfigures a,
1004                                         master.dbo.syscurconfigs b
1005                                         where
1006                                            display_level <= @user_displaylevel
1007                                            and parent = @parent
1008                                            and a.config != 19
1009                                            and a.config = b.config
1010                                     union
1011                                     select config
1012                                         from master.dbo.syscurconfigs,
1013                                         master.dbo.sysattributes
1014                                         where
1015                                            display_level <= @user_displaylevel
1016                                            and class = 4
1017                                            and attribute = 1
1018                                            and object_type = 'CP'
1019                                            and int_value = @parent
1020                                            and object = config
1021                                            and config != 19
1022
1023                         if exists (select * from #configure_temp)
1024                         begin
1025                          select "Parameter Name" = convert(char(30), name),
1026                          "Default" = convert(char(11), space(11-char_length(
1027                                 convert(varchar(11), defvalue))) +
1028                                 convert(varchar(11), defvalue)),
1029                          "Memory Used" = convert(char(11), space(11-char_length(
1030                                 convert(varchar(11), c.comment))) +
1031                                 convert(varchar(11), c.comment)),
1032                          "Config Value" = convert(char(11),space(11-char_length(
1033                                 isnull(b.value2, convert(char(32), b.value)))) +
1034                                 isnull(b.value2, convert(char(32), b.value))),
1035                          "Run Value"  = convert(char(11), space(11-char_length(
1036                                 isnull(c.value2, convert(char(32), c.value)))) +
1037                                 isnull(c.value2, convert(char(32), c.value)))
1038                          from master.dbo.sysconfigures b,
1039                                 master.dbo.syscurconfigs c
1040                          where b.config in
1041                                 (select config from #configure_temp)
1042                                 and b.config = c.config
1043                          order by name
1044                         end
1045
1046                         drop table #configure_temp
1047
1048                         close config_curs
1049                         deallocate cursor config_curs
1050
1051                         return(0)
1052                 end
1053                 else
1054                 begin
1055                         /*
1056                         ** this lucky guy has grandkids, so, continue
1057                         */
1058                         fetch config_curs into
1059                                 @sysconfig, @sysname, @sysparent
1060
1061                 end
1062         end
1063
1064         close config_curs
1065         deallocate cursor config_curs
1066
1067         return(0)
1068 end
1069 go
1070
1071 IF OBJECT_ID('dbo.sp_configure') IS NOT NULL
1072 BEGIN
1073     GRANT EXECUTE ON dbo.sp_configure TO public
1074 END
1075 go
1076 /* Procedure sp_dboption, owner dbo */
1077
1078 setuser 'dbo'
1079 go
1080
1081 /* Sccsid = "%Z% generic/sproc/%M% %I% %G%" */
1082 /*      4.8     1.1     06/14/90        sproc/src/a_values */
1083
1084 /*
1085 ** Messages for "sp_dboption"           17420
1086 **      Use "langid" when looking at spt_values ???
1087 **
1088 ** 17260, "Can't run %1! from within a transaction."
1089 ** 17420, "Settable database options."
1090 ** 17421, "No such database -- run sp_helpdb to list databases."
1091 ** 17422, "The 'master' database's options can not be changed."
1092 ** 17423, "Usage: sp_dboption [dbname, optname, {true | false}]"
1093 ** 17424, "Database option doesn't exist or can't be set by user."
1094 ** 17425, "Run sp_dboption with no parameters to see options."
1095 ** 17426, "Database option is not unique."
1096 ** 17428, "You must be in the 'master' database in order to change
1097 **      database options."
1098 ** 17429, "The database is currently in use -- 'read only' option
1099 **      disallowed."
1100 ** 17430, "Run the CHECKPOINT command in the database that was changed."
1101 ** 17431, "true"
1102 ** 17432, "false"
1103 ** 17433, "Database option '%1!' turned ON for database '%2!'."
1104 ** 17434, "Database option '%1!' turned OFF for database '%2!'."
1105 ** 17289, "Set your curwrite to the hurdle of current database."
1106 ** 17436, "The 'single user' option is not valid for the 'tempdb'
1107 **      database."
1108 ** 17439, "You cannot turn on ''%1!' for '%2!' because it is an HA server
1109 **      that has been configured with the proxy_db option."
1110 */
1111
1112 create procedure sp_dboption
1113 @dbname varchar(30) = NULL,             /* database name to change */
1114 @optname varchar(20) = NULL,            /* option name to turn on/off */
1115 @optvalue varchar(10) = NULL            /* true or false */
1116 as
1117
1118 declare @dbid int                       /* dbid of the database */
1119 declare @dbuid int                      /* id of the owner of the database */
1120 declare @statvalue smallint,            /* number of option */
1121         @stattype char(2),              /* status field flag */
1122         @statopt smallint,              /* option mask, part 1 */
1123         @stat2opt smallint              /* option mask, part 2 */
1124 declare @optcount int                   /* number of options like @optname */
1125 declare @success_msg varchar(255)       /* success status message */
1126 declare @msg varchar(250)
1127 declare @sptlang        int
1128 declare @true           varchar(10)
1129 declare @false          varchar(10)
1130 declare @whichone       int             /* which language? */
1131 declare @name           varchar(30)
1132 declare @optmsgnum      int             /* identify one msgnum to compare */
1133 declare @msgcnt         int             /* count distinct dups */
1134
1135
1136
1137 if @@trancount = 0
1138 begin
1139         set chained off
1140 end
1141
1142 set transaction isolation level 1
1143
1144 select @sptlang = @@langid,  @whichone = 0
1145
1146 if @@langid != 0
1147 begin
1148         if not exists (
1149                 select * from master.dbo.sysmessages where error
1150                 between 17050 and 17069
1151                 and langid = @@langid)
1152         select @sptlang = 0
1153 end
1154
1155
1156 /*
1157 **  If no @dbname given, just list the possible dboptions.
1158 **  Only certain status bits may be set or cleared.
1159 **         settable                         not settable
1160 **      ------------------------------  --------------------------
1161 **      allow select into/bulkcopy (4)  don't recover (32)
1162 **      read only (1024)                not recovered (256)
1163 **      dbo use only (2048)             dbname has changed (16384)
1164 **      single user (4096)
1165 **      truncate log on checkpoint (8)
1166 **      no checkpoint on recovery (16)
1167 **      allow null (8192)
1168 **      ddl in tran (512)
1169 **      ALL SETTABLE OPTIONS (15900)
1170 **      abort xact on log full (1, type='D2')
1171 **      no space accounting (2, type='D2')
1172 **      auto identity(4, type='D2')
1173 **      identity in nonunique index(8, type='D2')
1174 **      auto identity unique index(64, type='D2')
1175 */
1176
1177 /*
1178 ** Look for the "settable options" mask in spt_values
1179 */
1180 select @statopt = number
1181 from master.dbo.spt_values
1182 where type = "D"
1183   and name = "ALL SETTABLE OPTIONS"
1184
1185 select @stat2opt = number
1186 from master.dbo.spt_values
1187 where type = "D2"
1188   and name = "ALL SETTABLE OPTIONS"
1189
1190 /*
1191 ** If we can't find the option masks, guess at them
1192 */
1193 if @statopt is null
1194         select @statopt  = 4 | 8 | 16 | 512 | 1024 | 2048 | 4096 | 8192
1195 if @stat2opt is null
1196         select @stat2opt = 1 | 2 | 4 | 8 | 64
1197
1198 if @dbname is null
1199 begin
1200         /*
1201         ** 17420, "Settable database options."
1202         */
1203         exec sp_getmessage 17420, @msg output
1204         print @msg
1205
1206         if @sptlang = 0
1207             select database_options = name
1208                 from master.dbo.spt_values
1209                 where ((type = "D"
1210                         and number & @statopt = number
1211                         and number & @statopt != @statopt)
1212                     or (type = "D2"
1213                         and number & @stat2opt = number
1214                         and number & @stat2opt != @stat2opt))
1215                 order by name
1216         else
1217             select database_options = name, convert(char(22), description)
1218                 from master.dbo.spt_values, master.dbo.sysmessages
1219                 where ((type = "D"
1220                         and number & @statopt = number
1221                         and number & @statopt != @statopt)
1222                     or (type = "D2"
1223                         and number & @stat2opt = number
1224                         and number & @stat2opt != @stat2opt))
1225                   and msgnum = error
1226                   and langid = @sptlang
1227                 order by name
1228         return (0)
1229 end
1230
1231 /*
1232 **  Verify the database name and get the @dbid and @dbuid
1233 */
1234 select @dbid = dbid, @dbuid = suid
1235         from master.dbo.sysdatabases
1236                 where name = @dbname
1237
1238 /*
1239 **  If @dbname not found, say so and list the databases.
1240 */
1241 if @dbid is NULL
1242 begin
1243         /*
1244         ** 17421, "No such database -- run sp_helpdb to list databases."
1245         */
1246         raiserror 17421
1247         return (1)
1248 end
1249
1250 /*
1251 **  Only the Database Owner (DBO) or
1252 **  Accounts with SA role can execute it.
1253 **  Call proc_role() with the required SA role.
1254 */
1255 if ((suser_id() != @dbuid) and (proc_role("sa_role") < 1))
1256         return(1)
1257
1258 /*
1259 **  You can not change any of the options in master.  If the user tries to
1260 **  do so tell them they can't.
1261 */
1262 if @dbid = 1
1263 begin
1264         /*
1265         ** 17422, "The 'master' database's options can not be changed."
1266         */
1267         raiserror 17422
1268         return (1)
1269 end
1270
1271 /*
1272 **  Check remaining parameters.
1273 */
1274 /* 17431, "true" */
1275 exec sp_getmessage 17431, @true out
1276 /* 17432, "false" */
1277 exec sp_getmessage 17432, @false out
1278 if @optname is NULL or lower(@optvalue) not in
1279         ("true", "false", @true, @false) or @optvalue is null
1280 begin
1281         /*
1282         ** 17423, "Usage: sp_dboption [dbname, optname, {true | false}]"
1283         */
1284         raiserror 17423
1285         return (1)
1286 end
1287
1288 /*
1289 **  Use @optname and try to find the right option.
1290 **  If there isn't just one, print appropriate diagnostics and return.
1291 */
1292 select @optcount = count(*)
1293            from master.dbo.spt_values
1294                 where name like "%" + @optname + "%"
1295                   and ((type = "D"
1296                         and number & @statopt = number)
1297                     or (type = "D2"
1298                         and number & @stat2opt = number))
1299 /*
1300 **  If more than one option like @optname, make sure they are not the same
1301 **  option ("trunc" and "trunc.", for example)
1302 */
1303 if @optcount > 1
1304 begin
1305         select  @optmsgnum = msgnum
1306            from master.dbo.spt_values
1307                 where name like "%" + @optname + "%"
1308                   and ((type = "D"
1309                         and number & @statopt = number)
1310                     or (type = "D2"
1311                         and number & @stat2opt = number))
1312
1313         select @msgcnt = count(msgnum)
1314            from master.dbo.spt_values
1315                 where name like "%" + @optname + "%"
1316                   and ((type = "D"
1317                         and number & @statopt = number)
1318                     or (type = "D2"
1319                         and number & @stat2opt = number))
1320                   and msgnum != @optmsgnum
1321
1322         /*
1323         ** msgcnt of 0 indicates we really have just 1 unique dboption,
1324         ** probably due to alternate spelling.
1325         */
1326         if (@msgcnt = 0)
1327                 select @optcount = 1
1328 end
1329 /*
1330 ** If no option, and alternate language is set, use other language
1331 */
1332 if @optcount = 0 and @sptlang != 0
1333 begin
1334     select @optcount = count(*)
1335            from master.dbo.spt_values, master.dbo.sysmessages
1336                 where description like "%" + @optname + "%"
1337                   and ((type = "D"
1338                         and number & @statopt = number)
1339                     or (type = "D2"
1340                         and number & @stat2opt = number))
1341                   and msgnum = error
1342                   and langid = @sptlang
1343     select @whichone = 1
1344     /*
1345     **  If more than one option like @optname, make sure they are not the same
1346     **  option ("trunc" and "trunc.", for example)
1347     */
1348     if @optcount > 1
1349     begin
1350         select  @optmsgnum = msgnum
1351            from master.dbo.spt_values, master.dbo.sysmessages
1352                 where description like "%" + @optname + "%"
1353                   and ((type = "D"
1354                         and number & @statopt = number)
1355                     or (type = "D2"
1356                         and number & @stat2opt = number))
1357                   and msgnum = error
1358                   and langid = @sptlang
1359
1360         select @msgcnt = count(msgnum)
1361            from master.dbo.spt_values, master.dbo.sysmessages
1362                 where description like "%" + @optname + "%"
1363                   and ((type = "D"
1364                         and number & @statopt = number)
1365                     or (type = "D2"
1366                         and number & @stat2opt = number))
1367                   and msgnum = error
1368                   and langid = @sptlang
1369                   and msgnum != @optmsgnum
1370
1371         /*
1372         ** msgcnt of 0 indicates we really have just 1 unique dboption,
1373         ** probably due to alternate spelling.
1374         */
1375         if (@msgcnt = 0)
1376                 select @optcount = 1
1377     end
1378 end
1379
1380 /*
1381 **  If no option, show the user what the options are.
1382 */
1383 if @optcount = 0
1384 begin
1385         /*
1386         ** 17424, "Database option doesn't exist or can't be set by user."
1387         */
1388         raiserror 17424
1389
1390         /*
1391         ** 17425, "Run sp_dboption with no parameters to see options."
1392         */
1393         exec sp_getmessage 17425, @msg output
1394         print @msg
1395         return (1)
1396 end
1397
1398 /*
1399 **  If more than one option like @optname, show the duplicates and return.
1400 */
1401 if @optcount > 1
1402 begin
1403         /*
1404         ** 17426, "Database option is not unique."
1405         */
1406         raiserror 17426
1407
1408         if @sptlang = 0
1409             select duplicate_options = name
1410                 from master.dbo.spt_values
1411                         where name like "%" + @optname + "%"
1412                           and ((type = "D"
1413                                 and number & @statopt = number)
1414                             or (type = "D2"
1415                                 and number & @stat2opt = number))
1416         else
1417             select duplicate_options = name, convert(char(22), description)
1418                 from master.dbo.spt_values, master.dbo.sysmessages
1419                         where (name like "%" + @optname + "%"
1420                                 or description like "%" + @optname + "%")
1421                           and ((type = "D"
1422                                 and number & @statopt = number)
1423                             or (type = "D2"
1424                                 and number & @stat2opt = number))
1425                           and msgnum = error
1426                           and langid = @sptlang
1427
1428         return (1)
1429 end
1430
1431
1432 if db_name() != "master"
1433 begin
1434         /*
1435         ** 17428, "You must be in the 'master' database in order to change database options."
1436         */
1437         raiserror 17428
1438         return (1)
1439 end
1440
1441 /*
1442 ** User cannot set "tempdb" database in single user mode.
1443 */
1444 select @statvalue = number
1445    from master.dbo.spt_values
1446         where name like "%" + @optname + "%"
1447           and ((type = "D"
1448                 and number & @statopt = number)
1449             or (type = "D2"
1450                 and number & @stat2opt = number))
1451
1452 if (@dbid = 2) and (@statvalue = 4096)
1453 begin
1454         /*
1455         ** 17436, "The 'single user' option is not valid for the 'tempdb'
1456         **         database."
1457         */
1458         raiserror 17436
1459         return (1)
1460 end
1461
1462 /*
1463 **  If we're in a transaction, disallow this since it might make recovery
1464 **  impossible.
1465 */
1466 if @@trancount > 0
1467 begin
1468         /*
1469         ** 17260, "Can't run %1! from within a transaction."
1470         */
1471         raiserror 17260, "sp_dboption"
1472         return (1)
1473 end
1474 else
1475 begin
1476         set chained off
1477 end
1478
1479 set transaction isolation level 1
1480
1481 /*
1482 **  Get the number which is the bit value to set
1483 */
1484 if @whichone = 0
1485     select @statvalue = number, @stattype = type, @success_msg = name
1486            from master.dbo.spt_values
1487                 where name like "%" + @optname + "%"
1488                   and ((type = "D"
1489                         and number & @statopt = number)
1490                     or (type = "D2"
1491                         and number & @stat2opt = number))
1492 else
1493     select @statvalue = number, @stattype = type, @success_msg = name
1494            from master.dbo.spt_values, master.dbo.sysmessages
1495                 where description like "%" + @optname + "%"
1496                         and ((type = "D"
1497                               and number & @statopt = number)
1498                           or (type = "D2"
1499                               and number & @stat2opt = number))
1500                         and msgnum = error
1501                         and langid = @sptlang
1502
1503 /*
1504 ** We do not allow 'sybsecurity' to be set to 'single user' since,
1505 ** if auditing is enabled and we try to set 'sybsecurity' database to
1506 ** 'single user' then, the audit process is killed because audit process
1507 ** tries to do 'usedb' and it fails (look at utils/auditing.c).
1508 */
1509 if (@dbname = "sybsecurity") and (@statvalue = 4096)
1510 begin
1511         /*
1512         ** 17435, "The 'single user' option is not valid for the
1513         ** 'sybsecurity' database.
1514         */
1515         raiserror 17435
1516         return (1)
1517 end
1518
1519
1520 /*
1521 **  Now update sysdatabases.
1522
1523 */
1524 if lower(@optvalue) in ("true", @true)
1525 begin
1526         /*
1527         **  If this the option to make the database read only,
1528         **  we need to do some checking first.
1529         **  Unless it's the master db, no one can be using it.
1530         **  If it's the master db, only the SA may be using it.
1531         */
1532         if (@statvalue = 1024) and (select count(*)
1533                                         from master.dbo.sysprocesses
1534                                                 where dbid = @dbid) > 0
1535         begin
1536                 /*
1537                 ** 17429, "The database is currently in use -- 'read only' option disallowed."
1538                 */
1539                 raiserror 17429
1540                 return (1)
1541         end
1542
1543         /*
1544         ** If this is the option to set 'abort tran on log full' to
1545         ** true for sybsecurit database, then don't allow.
1546         */
1547         if (db_name(@dbid) = "sybsecurity"
1548                 and @stattype = "D2" and @statvalue = 1)
1549         begin
1550                 /*
1551                 ** AUDIT_CHANGE: New error message needs to be reserved and
1552                 ** the print statement needs to be removed.
1553                 */
1554                 print "You cannot set 'abort tran on log full' to true for sybsecurity database."
1555                 return (1)
1556         end
1557
1558         /*
1559         ** Disallow DDL IN TRAN
1560         **      if proxydb option is set (@@crthaproxy = 1)
1561         **      if this server is a HA server (@@cmpstate >= 0)
1562         */
1563         if ((@statvalue = 512) and (@@crthaproxy = 1) and (@@cmpstate >= 0))
1564         begin
1565                 /*
1566                 ** Cannot set DDL_IN_TRAN option for HA servers
1567                 ** configured with proxy_db option.
1568                 */
1569                 select @name = db_name(@dbid)
1570                 exec sp_getmessage 17439, @msg output
1571                 print @msg, @success_msg, @name
1572                 return (1)
1573         end
1574
1575         if (@stattype = "D")
1576                 update master.dbo.sysdatabases
1577                         set status = status | @statvalue
1578                                 where dbid = @dbid
1579         else
1580                 update master.dbo.sysdatabases
1581                         set status2 = status2 | @statvalue
1582                                 where dbid = @dbid
1583         /*
1584         ** 17433, "Database option %1! turned ON for database %2!."
1585         */
1586         exec sp_getmessage 17433, @msg output
1587         select @name = db_name(@dbid)
1588         print @msg, @success_msg, @name
1589 end
1590
1591 /*
1592 **  We want to turn it off.
1593 */
1594 else
1595 begin
1596
1597         if (@stattype = "D")
1598                 update master.dbo.sysdatabases
1599                         set status = status & ~@statvalue
1600                                 where dbid = @dbid
1601         else
1602                 update master.dbo.sysdatabases
1603                         set status2 = status2 & ~@statvalue
1604                                 where dbid = @dbid
1605         /*
1606         ** 17434, "Database option %1! turned OFF for database %2!."
1607         */
1608         exec sp_getmessage 17434, @msg output
1609         select @name = db_name(@dbid)
1610         print @msg, @success_msg, @name
1611 end
1612
1613 /*
1614 **  Advise the user to run the CHECKPOINT command in the database that
1615 **  was changed.
1616 */
1617 /*
1618 ** 17430, "Run the CHECKPOINT command in the database that was changed."
1619 */
1620 exec sp_getmessage 17430, @msg output
1621 print @msg
1622
1623 return (0)
1624
1625 go
1626
1627 IF OBJECT_ID('dbo.sp_dboption') IS NOT NULL
1628 BEGIN
1629     GRANT EXECUTE ON dbo.sp_dboption TO public
1630 END
1631 go
1632 /* Procedure sp_dbupgrade, owner dbo */
1633
1634 setuser 'dbo'
1635 go
1636
1637 /* Sccsid = "%Z% generic/sproc/%M% %I% %G%" */
1638
1639
1640 create procedure sp_dbupgrade
1641 as
1642
1643 if @@trancount = 0
1644 begin
1645         set chained off
1646 end
1647
1648 set transaction isolation level 1
1649
1650 /*
1651 **      Do the sysindexes column names update which is part of the 38 upgrade.
1652 **      The sysgams updates have already been taken care of by pg_gamalloc.
1653 */
1654 print "Upgrading Sysindexes columns in the database"
1655 if not exists (select name from syscolumns where id = 2 and name = 'doampg')
1656 begin
1657         update syscolumns
1658         set name = 'doampg'
1659         where id = 2 and name = 'dpages'
1660         update syscolumns
1661         set name = 'ioampg'
1662         where id = 2 and name = 'reserved'
1663         update syscolumns
1664         set name = 'spare1'
1665         where id = 2 and name = 'used'
1666         update syscolumns
1667         set name = 'spare2'
1668         where id = 2 and name = 'rows'
1669 end
1670
1671 /*      The following updates are part of the 42 upgrade. */
1672
1673 /*
1674 **      Tweak the Syscolumns entries for the Sysindexes table so that
1675 **      "soid" and "csid" replace half of "usagecnt".
1676 */
1677 if not exists (select * from syscolumns where id = 2  and  name = 'soid')
1678 begin
1679         begin transaction
1680         update syscolumns
1681                 set type = 52, length = 2, usertype = 6, offset = 42
1682                 where id = 2  and  colid = 13
1683         insert into syscolumns
1684                 (id, number, colid, status, type, length, offset,
1685                  usertype, cdefault, domain, name, printfmt)
1686                 values (2, 0, 23, 0, 48, 1, 40, 5, 0, 0, 'soid', '')
1687         insert into syscolumns
1688                 (id, number, colid, status, type, length, offset,
1689                  usertype, cdefault, domain, name, printfmt)
1690                 values (2, 0, 24, 0, 48, 1, 41, 5, 0, 0, 'csid', '')
1691         commit transaction
1692 end
1693
1694 print "Adding new datatypes to the database."
1695 if exists (select * from systypes where name = 'text')
1696  begin
1697         delete systypes where name = 'text'
1698  end
1699 insert systypes (uid, usertype, variable, allownulls, type, length,
1700                         tdefault, domain, name, printfmt)
1701         values (1, 19, 0, 1, 35, 16, 0, 0, 'text', null)
1702 if exists (select * from systypes where name = 'image')
1703  begin
1704         delete systypes where name = 'image'
1705  end
1706 insert systypes (uid, usertype, variable, allownulls, type, length,
1707                         tdefault, domain, name, printfmt)
1708         values (1, 20, 0, 1, 34, 16, 0, 0, 'image', null)
1709 if exists (select * from systypes where name = 'timestamp')
1710  begin
1711         delete systypes where name = 'timestamp'
1712  end
1713 insert systypes (uid, usertype, variable, allownulls, type, length,
1714                         tdefault, domain, name, printfmt)
1715         values (1, 80, 0, 1, 37, 8, 0, 0, 'timestamp', null)
1716 if exists (select * from systypes where name = 'smallmoney')
1717  begin
1718         delete systypes where name = 'smallmoney'
1719  end
1720 insert systypes (uid, usertype, variable, allownulls, type, length,
1721                         tdefault, domain, name, printfmt)
1722         values (1, 21, 0, 1, 122, 4, 0, 0, 'smallmoney', null)
1723 if exists (select * from systypes where name = 'smalldatetime')
1724  begin
1725         delete systypes where name = 'smalldatetime'
1726  end
1727 insert systypes (uid, usertype, variable, allownulls, type, length,
1728                         tdefault, domain, name, printfmt)
1729         values (1, 22, 0, 1, 58, 4, 0, 0, 'smalldatetime', null)
1730 if exists (select * from systypes where name = 'real')
1731  begin
1732         delete systypes where name = 'real'
1733  end
1734 insert systypes (uid, usertype, variable, allownulls, type, length,
1735                         tdefault, domain, name, printfmt)
1736         values (1, 23, 0, 1, 59, 4, 0, 0, 'real', null)
1737
1738 /* 4.9 user types for national character */
1739 if exists (select * from systypes where name = 'nchar')
1740  begin
1741         delete systypes where name = 'nchar'
1742  end
1743 insert systypes (uid, usertype, variable, allownulls, type, length,
1744                         tdefault, domain, name, printfmt )
1745         values (1, 24, 0, 1, 47, 255, 0, 0, 'nchar', null)
1746
1747 if exists (select * from systypes where name = 'nvarchar')
1748  begin
1749         delete systypes where name = 'nvarchar'
1750  end
1751 insert systypes (uid, usertype, variable, allownulls, type, length,
1752                         tdefault, domain, name, printfmt)
1753         values (1, 25, 1, 1, 39, 255, 0, 0, 'nvarchar', null)
1754
1755 if exists (select * from systypes where name = 'NULL')
1756  begin
1757         delete systypes where name = 'NULL'
1758  end
1759 insert systypes (uid, usertype, variable, allownulls, type, length,
1760                         tdefault, domain, name, printfmt)
1761         values (1, 0, 0, 1, 0, 0, 0, 0, 'NULL', null)
1762
1763 /* 4.9 system table creation */
1764 print "Creating system catalog: sysusermessages and its indexes."
1765 if not exists (select * from sysobjects where name='sysusermessages')
1766     begin
1767         execute sp_configure 'allow updates', 1
1768         reconfigure with override
1769
1770         dbcc traceon(3701)
1771         begin
1772             create table sysusermessages(error int,uid smallint,
1773                 description varchar(255), langid smallint null) lock allpages
1774             create clustered index csysusermessages
1775                 on sysusermessages (error)
1776             create unique nonclustered index ncsysusermessages
1777                 on sysusermessages (error, langid)
1778         end
1779         dbcc traceoff(3701)
1780
1781         execute sp_configure 'allow updates', 0
1782         reconfigure with override
1783     end
1784
1785 print "Shutting down SQL Server"
1786 shutdown
1787
1788 return (0)
1789
1790 go
1791
1792 /* Procedure sp_getmessage, owner dbo */
1793
1794 setuser 'dbo'
1795 go
1796
1797
1798 /* generic/sproc/getmessage     14.2    4/25/91 */
1799
1800 /* Messages from sysmessages
1801 ** 17200, "Message number must be greater than or equal to 17000."
1802 ** 17201, "'%1!' is not an official language name from Syslanguages."
1803 ** 17202, "Message number %1! does not exist in the %2! language."
1804 */
1805
1806 create procedure sp_getmessage
1807 @message_num int,
1808 @result varchar(255) output,
1809 @language varchar(30) = NULL
1810 as
1811
1812         declare @lang_id smallint
1813         declare @msg varchar(255)
1814         declare @returncode smallint
1815
1816         if @@trancount = 0
1817         begin
1818                 set chained off
1819         end
1820
1821         set transaction isolation level 1
1822
1823         /*
1824         ** Use default language if none specified,
1825         ** and initialize result
1826         */
1827         select @lang_id = @@langid, @result = NULL
1828
1829         /* Only retrieve external errors */
1830         if @message_num < 17000
1831         BEGIN
1832                 /* 17200   "Message number must be greater than or equal to 17000." */
1833                  select @msg = description from master.dbo.sysmessages
1834                                     where error = 17200
1835                  print @msg
1836                  return (1)
1837         END
1838
1839         /*
1840         ** Check that language is valid.
1841         */
1842         if @language is not NULL
1843         BEGIN
1844             execute @returncode = sp_validlang @language
1845             if @returncode != 0
1846             begin
1847                     /* Us_english is always valid */
1848                     if @language != "us_english"
1849                     BEGIN
1850                             /*
1851                             ** 17201, "'%1!' is not an official language
1852                             **  name from Syslanguages."
1853                             */
1854                             select @msg = description from master.dbo.sysmessages
1855                                                 where error = 17201
1856                                                 and langid = @@langid
1857
1858                             /* Get english if the current language is missing */
1859                             if @msg is null
1860                                 select @msg = description from master.dbo.sysmessages
1861                                                 where error = 17201
1862                                                 and langid is NULL
1863
1864                             print @msg, @language
1865                             return @returncode
1866                     END
1867
1868                     /* set to us_english */
1869                     select @lang_id = NULL
1870             end
1871
1872             else
1873             select @lang_id = langid from master.dbo.syslanguages
1874                         where @language = name
1875
1876         END
1877
1878         /* The langid is assigned 0 since it gets its value from @@langid. */
1879         /* For us_english, we have to insert it as NULL and not 0, this is */
1880         /* to maintain compatibility with the current conventions          */
1881         if @lang_id = 0
1882         begin
1883                 select @lang_id = NULL
1884         end
1885
1886         /* Get message from the proper place */
1887         /* System messages */
1888         if @message_num < 20000
1889         BEGIN
1890                 select @result = description from master.dbo.sysmessages
1891                            where  langid = @lang_id
1892                              and   error = @message_num
1893
1894                 /* Get english if the current language is missing */
1895                 if @result is null
1896                         select @result = description from master.dbo.sysmessages
1897                                         where error = @message_num
1898                                         and (langid is NULL or langid =0)
1899         END
1900         else
1901         /* User messages */
1902         BEGIN
1903                 /* There is no proper alternate language for user messages */
1904                 select @result = description from sysusermessages
1905                            where  langid = @lang_id
1906                              and   error = @message_num
1907
1908                 /* this is in here for compatibility with older revs which */
1909                 /* by mistake used to add langid as 0 in sysusermessages   */
1910                 if @result is null and @lang_id is NULL
1911                         select @result = description from sysusermessages
1912                                         where (langid = 0 or langid is NULL)
1913                                         and error = @message_num
1914
1915         END
1916
1917         /* Warn the user if the message can't be found */
1918         if @result is null
1919         begin
1920                 /* 17202, "Message number %1! does not exist in the %2! language." */
1921                 select @msg = description from master.dbo.sysmessages
1922                         where error = 17202
1923                         and langid = @@langid
1924
1925                 if @language is null
1926                         select @language = @@language
1927
1928                 if @msg is null
1929                         select @msg = "Message number %1! does not exist in the %2! language."
1930
1931                 print @msg, @message_num, @language
1932
1933                 return (1)
1934         end
1935
1936 return (0)
1937
1938 go
1939
1940 IF OBJECT_ID('dbo.sp_getmessage') IS NOT NULL
1941 BEGIN
1942     GRANT EXECUTE ON dbo.sp_getmessage TO public
1943 END
1944 go
1945 /* Procedure sp_loaddbupgrade, owner dbo */
1946
1947 setuser 'dbo'
1948 go
1949
1950 /* Sccsid = "%Z% generic/sproc/src/%M% %I% %G%" */
1951
1952 create procedure sp_loaddbupgrade
1953 @databasename varchar(30),
1954 @devname varchar(30)
1955 as
1956
1957
1958 if @@trancount = 0
1959 begin
1960         set chained off
1961 end
1962
1963 set transaction isolation level 1
1964
1965 dbcc traceon(3402)
1966
1967 /* The recovery which is part of load database will perform the upgrade */
1968 load database @databasename from @devname
1969
1970 dbcc traceoff(3402)
1971
1972 return (0)
1973
1974 go
1975
1976 /* Procedure sp_procxmode, owner dbo */
1977
1978 setuser 'dbo'
1979 go
1980
1981 /* Sccsid = "%Z% generic/sproc/src/%M% %I% %G%" */
1982
1983 /*
1984 ** 17756, "The execution of the stored procedure '%1!' in database
1985 **         '%2!' was aborted because there was an error in writing the
1986 **         replication log record."
1987 */
1988
1989 create procedure sp_procxmode
1990 @procname varchar(255) = null,
1991 @tranmode varchar(30) = null
1992 as
1993
1994 declare @uid smallint
1995 declare @oid int
1996 declare @msg varchar(250)       /* message text */
1997 declare @dbname varchar(30)
1998
1999 if @@trancount = 0
2000 begin
2001         set chained off
2002 end
2003
2004 set transaction isolation level 1
2005
2006 /* If either parameter is null we will be joining with a temporary table
2007 ** to convert transaction mode numbers (0, 1, 2) to strings ("Unchained",
2008 ** "Chained", "Any Mode").
2009 */
2010 if ((@procname is null) or (@tranmode is null))
2011 begin
2012         create table #tranmode (intval integer, charval varchar(15))
2013         insert into #tranmode values(0, "Unchained")
2014         insert into #tranmode values(1, "Chained")
2015         insert into #tranmode values(2, "Any Mode")
2016 end
2017
2018 /* If the first parameter is null, we're to report the transaction-modes
2019 ** of every stored procedure in the current database.
2020 */
2021 if (@procname is null)
2022 begin
2023         select "procedure name" = o.name, "user name" = user_name(o.uid),
2024                 "transaction mode" = t.charval
2025         from sysobjects o, #tranmode t
2026         where ((o.type = "P") or (o.type = "XP")) and (t.intval = ((o.sysstat2 / 16) & 3))
2027         order by o.name
2028
2029         return(0)
2030 end
2031
2032 /* If only the second parameter is null, we're to report the
2033 ** transaction-mode of the specified stored procedure.
2034 */
2035 if ((@procname is not  null) and (@tranmode is null))
2036 begin
2037         if (not exists (select name from sysobjects
2038                                     where ((type = "P") or (type = "XP")) and
2039                                           (name = @procname)))
2040         begin
2041                 /*
2042                 ** Force an error message, since we haven't
2043                 ** installed sp_getmessage yet.
2044                 */
2045                 dbcc update_tmode(@procname, "Chained")
2046                 return (1)
2047         end
2048         select "procedure name" = o.name, "user name" = user_name(o.uid),
2049                 "transaction mode" = t.charval
2050         from sysobjects o, #tranmode t
2051         where ((o.type = "P") or (o.type = "XP")) and (@procname = o.name) and
2052                 (t.intval = ((o.sysstat2 / 16) & 3))
2053
2054         return(0)
2055 end
2056
2057 /* If neither parameter is null, we're to set the transaction-mode
2058 ** of the specified procedure to the specified value.
2059 */
2060 if ((@procname is not  null) and (@tranmode is not  null))
2061 begin
2062         /* Start the transaction to log the execution of this procedure.
2063         **
2064         ** IMPORTANT: The name "rs_logexec is significant and is used by
2065         **            Replication Server
2066         */
2067         begin transaction rs_logexec
2068
2069         /*
2070         ** Update transaction-mode in both sysobjects and DES.
2071         */
2072         dbcc update_tmode(@procname, @tranmode)
2073
2074         /* If dbcc update_tmode returned an error, return
2075         ** an error now.
2076         */
2077         if (@@error != 0)
2078         begin
2079                 rollback transaction rs_logexec
2080                 return(1)
2081         end
2082
2083         /*
2084         ** Write the log record to replicate this invocation
2085         ** of the stored procedure.
2086         */
2087         if (logexec() != 1)
2088         begin
2089                 /*
2090                 ** 17756, "The execution of the stored procedure '%1!'
2091                 **         in database '%2!' was aborted because there
2092                 **         was an error in writing the replication log
2093                 **         record."
2094                 */
2095                 select @dbname = db_name()
2096                 raiserror 17756, "sp_procxmode", @dbname
2097
2098                 rollback transaction rs_logexec
2099                 return(1)
2100         end
2101
2102         commit transaction
2103
2104 end
2105
2106 go
2107
2108 IF OBJECT_ID('dbo.sp_procxmode') IS NOT NULL
2109 BEGIN
2110     GRANT EXECUTE ON dbo.sp_procxmode TO public
2111 END
2112 go
2113 /* Procedure sp_prtsybsysmsgs, owner dbo */
2114
2115 setuser 'dbo'
2116 go
2117
2118 /* Sccsid = "%Z% generic/sproc/%M% %I% %G%" */
2119
2120 /*
2121 ** This procedure is needed to extract messages for the batch that creates
2122 ** the sybsystemprocs database. When return parameters are used in an execute
2123 ** statement that is a part of a SQL batch, the return values are printed
2124 ** with a heading before subsequent statements in the batch are executed.
2125 ** These headings could be confusing to a user that is looking at the results
2126 ** of the batch. Hence we print the message in a stored procedure
2127 */
2128
2129 create procedure sp_prtsybsysmsgs
2130 @i int, @size int = NULL, @size2 int = NULL
2131 as
2132
2133 declare @msg varchar(250)
2134
2135 exec sp_getmessage @i, @msg out
2136 print @msg, @size, @size2
2137
2138 go
2139
2140 /* Procedure sp_validlang, owner dbo */
2141
2142 setuser 'dbo'
2143 go
2144
2145 /* Sccsid = "%Z% generic/sproc/src/%M% %I% %G%" */
2146 /*      4.8     1.1     06/14/90        sproc/src/serveroption */
2147 create procedure sp_validlang
2148 @name   varchar(30)
2149 as
2150
2151
2152 if @@trancount = 0
2153 begin
2154         set chained off
2155 end
2156
2157 set transaction isolation level 1
2158
2159 /* Check to see if this language is in Syslanguages. */
2160 if exists (select *
2161                 from master.dbo.syslanguages
2162                 where name = @name)
2163 begin
2164         return 0
2165 end
2166 return 1
2167
2168 go
2169
2170 IF OBJECT_ID('dbo.sp_validlang') IS NOT NULL
2171 BEGIN
2172     GRANT EXECUTE ON dbo.sp_validlang TO public
2173 END
2174 go
2175
2176 /* Triggers... */
2177
2178 /* No triggers found. */