Find and fix suspected indexes in a database

When a database is loaded into a server it is sometimes needed to run dbcc fixindex. An error message like this is reported in the errorlog:

WARNING: ***************************
While loading database 'test', ASE has
  detected that the following indexes may be invalid,
  since they ...
    (a) were created under a different sort order
  ID and/or character set ID than the one(s)
currently running on this ASE
  (sortord ID = 50 and charset ID = 1), and...
    (b) have CHAR or VARCHAR columns in their keys.
  The suspected indexes are:
  systypes.csystypes (objid = 4, indid = 3, soid = 50, csid = 190)
  sysreferences.csysreferences (objid = 16, indid = 4, soid = 50, csid = 190)
  sysattributes.csysattributes (objid = 21, indid = 3, soid = 50, csid = 190)
  sysxtypes.ncsysxtypes (objid = 25, indid = 3, soid = 50, csid = 190)
  sysjars.ncsysjars (objid = 26, indid = 3, soid = 50, csid = 190)
  customer.pk_customer (objid = 158620577, indid = 1, soid = 50, csid = 190)
  address.adres_zip (objid = 290097043, indid = 2, soid = 50, csid = 190)

The following stored procedure find the suspected indexes and tries to repair them.

create proc sp_dbcc_reindex
as

declare @id int
declare myCursor cursor for
  select so.id
    from  sysobjects so
    where exists(
      select 1
        from sysindexes si
        where so.id = si.id
        and si.status & 32768 = 32768)
  for read only

open myCursor

if @@error != 0
  return  1

fetch myCursor into @id

while @@sqlstatus = 0
begin
  dbcc reindex(@id)

  fetch myCursor into @id
end

close myCursor
deallocate cursor myCursor

return  0