Procedimiento Shink Log sql 2000

CREATE PROCEDURE sp_TruncateLogs
as
Declare @nameLog as varchar(100),
@dataBase as varchar(100)
--SQL 2005

set @database = db_name()

-- ver lo que ocupa
--DBCC SQLPERF(LOGSPACE)

-- truncar log
dump tran @dataBase with no_log

-- achicar archivo fisico poner nombre del archivo fisico del log
select @nameLog = name from sysfiles where name like '%log%'
Set @nameLog = LTRIM(RTRIM(@nameLog))