dbo.QBM_ZObjectKeyRepair

1  create   procedure QBM_ZObjectKeyRepair ( @SlotNumberDummy int , @TablePattern varchar(38) , @Dummy2 varchar(38) , @DummyGenProcID varchar(38)
2 ) as begin declare @TableName nvarchar(64) declare @muster nvarchar(max) declare @Ruf nvarchar(max) declare @SQLcmd nvarchar(max) declare @DebugSwitch
3 int = 0 declare @ElementBuffer QBM_YCursorBuffer declare @ElementCount int declare @ElementIndex int BEGIN TRY select @muster = 'update %tabelle% 
4	set XObjectKey = %ruf% #xwerte#
5 from %tabelle% z with (readpast)
6 where z.XObjectKey  <>  %ruf% collate  SQL_Latin1_General_CP1_CS_AS'
7   insert into @ElementBuffer (Ident1) select t.TableName  from dialogcolumn c with (readpast) join dialogtable t with (readpast) on c.UID_DialogTable 
8= t.UID_DialogTable and t.tabletype in ('T', 'V')  join information_schema.tables it with (readpast) on t.TableName = it.table_name where c.isPKMember 
9= 1 and exists (select top 1 1 from dialogcolumn cc with (readpast) where cc.columnname = 'XObjectKey' and cc.UID_DialogTable = c.UID_DialogTable ) and
10 not exists (select top 1 1 from dialogtable tt with (readpast) where tt.UID_DialogTableBase = c.UID_DialogTable ) and t.TableName like @TablePattern and
11 t.TableName not in (select TableName from QBM_VHeavyLoadTables  ) and t.TableName not like '%[_]mem' group by t.TableName  having count(*) <= 2 order 
12by 1 select @ElementCount = @@ROWCOUNT select @ElementIndex = 1 while @ElementIndex <= @ElementCount begin select top 1 @TableName = bu.Ident1 from @ElementBuffer
13 bu where bu.ElementIndex = @ElementIndex select @ruf = dbo.QBM_FSQObjectKeyRepair_fn2 (@TableName, 'z' ) select @SQLcmd = replace(@muster, N'%ruf%', @ruf
14) select @SQLcmd = replace(@SQLcmd, N'%tabelle%', @TableName ) select @SQLcmd = replace(@sqlcmd, '#xwerte#', case dbo.QBM_FGIColumnExistsInSchema(@TableName
15, 'XDateUpdated') when 1 then ', XDateUpdated = getutcdate(), XUserUpdated =  ''' + object_name(@@procid) + '''' else '' end ) if @DebugSwitch > 0 begin
16 print @SQLcmd end exec QBM_PExecuteSQLWithRetry_LLP @SQLStatement = @SQLcmd , @LockTimeout_ms = 3000 , @MaxWaitTimeForLock_s = 15.0 , @ProcIDForJournal
17 = @@procid , @HandleErrorSilent = 0  select @ElementIndex += 1 end  END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default RAISERROR ('', 18, 1) WITH NOWAIT
18 END CATCH end 
19