dbo.QBM_PQBMDBQueuePondDelete

1create   procedure QBM_PQBMDBQueuePondDelete ( @RowLimit int = 2000  , @MaxLimit int = 80000  ) as begin declare @einRuck int  declare @LaufDelete
2 int declare @AnzahlLoesch int declare @AnzahlLoeschGesamt int = 0 declare @Start datetime declare @ende datetime declare @diff int declare @ExpectedRuntime
3 float = 1000.0  declare @PondGroup varchar(38) = null declare @DebugSwitch int = 0 SET XACT_ABORT OFF BEGIN TRY set lock_timeout 50 if dbo.QBM_FGITableCountAll
4('QBMDBQueuePond') > 0 begin goto normal end BEGIN TRY truncate table QBMDBQueuePond select @LaufDelete = 1 END TRY BEGIN CATCH  select @LaufDelete = 0
5 END CATCH if @LaufDelete = 1 begin goto endLabel end normal: if @DebugSwitch > 0 begin print dbo.QBM_FCVDatetimeToString(GETUTCDATE()) + ' Pondgroup suchen'
6 end select top 1 @PondGroup = p.PondGroup from QBMDBQueuePond p where  GenProcID = 'DELETE' if @PondGroup is null  begin goto endlabel end if @DebugSwitch
7 > 0 begin print dbo.QBM_FCVDatetimeToString(GETUTCDATE()) + ' Pondgroup gefunden ' + @PondGroup end select @LaufDelete = 1 select @einRuck = @RowLimit
8 while @LaufDelete > 0 and @AnzahlLoeschGesamt < @MaxLimit begin select @Start = getutcdate()  BEGIN TRY delete top (@einRuck) from QBMDBQueuePond where
9 PondGroup = @PondGroup   select @AnzahlLoesch = @@rowcount select @LaufDelete = @AnzahlLoesch  END TRY BEGIN CATCH  select @AnzahlLoesch = 0 exec QBM_PWaitForSeconds
10 0.05 end CATCH select @AnzahlLoeschGesamt += @AnzahlLoesch select @ende = getutcdate() select @diff = DATEDIFF(ms, @start, @ende) if @DebugSwitch > 0 
11begin print 'Laufzeit 1 Portion ms ' + str(@diff) end select @einRuck = case when @diff = 0 then @RowLimit when @AnzahlLoesch = 0 then @RowLimit when @diff
12 > @ExpectedRuntime then @RowLimit else convert(int, @ExpectedRuntime * convert(float, @einRuck) / convert(float, @diff)) end  end  END TRY BEGIN CATCH
13 exec QBM_PSessionErrorAdd default declare @Rethrow varchar(1000) = dbo.QBM_FGISessionErrorRethrow() RAISERROR (@Rethrow, 18, 1) WITH NOWAIT END CATCH 
14endLabel: return (@AnzahlLoeschGesamt) end 
15