dbo.QBM_PDialogProcessGetShrinkDef

1  create   procedure QBM_PDialogProcessGetShrinkDef (@AreaToCheck nvarchar(256)  , @ReadyForDeleteOrExport int output , @LimitDate datetime output
2  ) as begin declare @AnzahlTage int  declare @ExportPolicy int SET XACT_ABORT OFF BEGIN TRY select @ReadyForDeleteOrExport = 0 select @LimitDate = '2200-01-01'
3 select @ExportPolicy = case dbo.QBM_FGIConfigparmValue('Common\ProcessState\ExportPolicy') when '' then 0 when 'NONE' then 1 when 'HDB' then 2 when 'FILE'
4 then 2 else 0 end  if dbo.QBM_FCVStringToInt(dbo.QBM_FGIConfigparmValue('Common\ProcessState\'+ @AreaToCheck + '\IsToExport'), 0) = 1 begin select @ReadyForDeleteOrExport
5 = @ExportPolicy end else begin if @ExportPolicy > 0 begin select @ReadyForDeleteOrExport = 1 end else begin select @ReadyForDeleteOrExport = 0 end end
6 if @ReadyForDeleteOrExport = 0  begin goto ende end select top 1 @AnzahlTage = dbo.QBM_FCVStringToInt(dbo.QBM_FGIConfigparmValue( 'Common\ProcessState\'
7+ @AreaToCheck + '\LifeTime'), 0)  if @AnzahlTage < 1 begin select @AnzahlTage = 1 end select @AnzahlTage = @AnzahlTage * (-1) select @LimitDate = dateadd
8(dd, @AnzahlTage, GetUTCDate())  ende: END TRY BEGIN CATCH exec QBM_PSessionErrorAdd default declare @Rethrow varchar(1000) = dbo.QBM_FGISessionErrorRethrow
9() RAISERROR (@Rethrow, 18, 1) WITH NOWAIT END CATCH end 
10