Друзья! помогите ускорить работу процедуры если это возможно. Если нет сообщите.
В Transact-SQL пока не силен, а работу требуют!

CREATE PROCEDURE zsp_TEST AS
insert into ZTest
select a.id,a.name,a.crdate,b.name,c.name,b.length,b.xprec,b.xscale,b.typestat,
b.isnullable,b.cdefault,b.status,'новая таблица'
from sysobjects a, syscolumns b, systypes c
where
a.id=b.id and
b.xtype=c.xtype and
a.name not in(select name from ZTest)and

a.type='U' and
a.name <> 'dtproperties' and
a.name<>'ZTest'

insert into ZTest
select a.id,a.name,a.crdate,b.name,c.name,b.length,b.xprec,b.xscale,b.typestat,
b.isnullable,b.cdefault,b.status,'данные изменены'

from sysobjects a, syscolumns b, systypes c, ZTest d
where
a.id=b.id and
b.xtype=c.xtype and
a.name=d.name and
b.name=d.column_name and
a.type='U' and
a.name <> 'dtproperties' and
a.name<> 'ZTest' and

(c.name<>d.type_dan or
b.length<>d.length or
b.xprec<>d.prec or
b.xscale<>d.scale or
b.typestat<>d.typestat or
b.isnullable<>d.nullable or
b.cdefault<>d.default_value or
b.status<>d.status)
order by d.name

insert into ZTest
select distinct
a.id,a.name,a.crdate,b.name,c.name,b.length,b.xprec,b.xscale,b.typestat,b.isnullable,
b.cdefault,b.status,'новый столбец'

from sysobjects a, syscolumns b, systypes c, ZTest d
where
a.id=b.id and
b.xtype=c.xtype and

RTRIM(a.name)+RTRIM(b.name) not in
(select RTRIM(name)+RTRIM(column_name) from ZTest) and
a.type='U' and
a.name <> 'dtproperties' and
a.name<>'ZTest'

update ZTest
set change='столбец удален'
where
RTRIM(ZTest.name)+RTRIM(ZTest.column_name) not in
(select RTRIM(sysobjects.name)+RTRIM(syscolumns.name)
from sysobjects,syscolumns) and

(ZTest.change='новая таблица'or
ZTest.change='данные изменены' or
ZTest.change='новый столбец')