sp_dba_vdevno.sql

April 12, 2004



>>Script Language and Platform: Sybase Transact SQL
This stored procedure displays used vdevno & shows the first free vdevno.

Author: jflebon


use sybsystemprocs
go

if exists (select name from sybsystemprocs..sysobjects 
  where name="sp_dba_vdevno" and type="P")
   begin
        drop procedure sp_dba_vdevno
   end
go

create procedure sp_dba_vdevno
as
/*

 *@(#) Author   : JF LEBON
 *@(#) Version  : 1.1
 *@(#) Date     : 31/05/2003
 *@(#) Syntax   : exec sp_dba_vdevno
 *@(#) Comments : Display used vdevno & show first free vdevno
 *@(#) Changes  :

 */

set nocount on

-- Few variables...
declare @msg varchar(255), @firstfreevdevno int

-- Nobody but SA !
if suser_id() !=1
begin
        select @msg = "WARNING : You must be SA to execute this procedure."
        print @msg
        return (1)
end

-- Never use it inside a transaction !
if @@trancount > 0
begin
        print "WARNING : You CANNOT use this procedure inside a transaction."
        return (1)
end

-- Enjoy your flight !
select 'vdevno' = low/power(2,24), 'device_name' = name, status
from master..sysdevices where cntrltype = 0 order by 'vdevno'
print ''

select @firstfreevdevno = max(low/power(2,24)) +1
from master..sysdevices where cntrltype = 0

select  'DEVICES' = '======>', 'Config Value' = a.value, 'Run Value' = b.value,
'First Free vdevno' = @firstfreevdevno
from master..sysconfigures a,  master..syscurconfigs b
where a.config = b.config and a.name = "number of devices"
go


Disclaimer: We hope that the information on these script pages is valuable to you. Your use of the information contained in these pages, however, is at your sole risk. All information on these pages is provided "as -is", without any warranty, whether express or implied, of its accuracy, completeness, or fitness for a particular purpose... Disclaimer Continued


Back to Database Journal Home








The Network for Technology Professionals

Search:

About Internet.com

Legal Notices, Licensing, Permissions, Privacy Policy.
Advertise | Newsletters | E-mail Offers