dbo.QBM_PCustomSQLPropagate_Cont

1    create   procedure QBM_PCustomSQLPropagate_Cont (@UID_QBMCustomSQL varchar(38), @Objectname nvarchar(255) = N'')  as begin declare @ObjectName_intern
2 nvarchar(255) declare @Content nvarchar(max) declare @ErrorMessage nvarchar(4000) declare @ErrorSeverity int  declare @DebugSwitch int = 0 declare @ErrorBuffer
3 QBM_YSessionError SET XACT_ABORT OFF BEGIN TRY if @DebugSwitch > 0 begin print @UID_QBMCustomSQL + '#' + @Objectname end select @ErrorSeverity = 0 select
4 @ObjectName_intern = @ObjectName if isnull(@ObjectName, N'') = N'' begin select @ObjectName_intern = N'<unknown name>' end     SELECT top 1 @content =
5 Scriptcode FROM QBMCustomSQL where UID_QBMCustomSQL = @UID_QBMCustomSQL if @DebugSwitch > 0 begin print isnull(@content, '<no content>') end  begin try
6      if exists (select top 1 1 from sys.procedures p where p.name = 'QBM_PExecuteSQLWithRetry_LLP' ) begin  exec QBM_PExecuteSQLWithRetry_LLP @SQLStatement
7 = @content , @LockTimeout_ms = 10000  , @MaxWaitTimeForLock_s = 60  , @ProcIDForJournal = default , @HandleErrorSilent = 0 , @DeadlockPriority = 8  end
8 else begin exec sp_executesql @content end     end try begin catch select @ErrorSeverity = 18 select @ErrorMessage =concat( N'Could not propagate CustomSQL : '
9 , @Objectname , nchar(13) , nchar(10) , isnull(ERROR_MESSAGE() , '<no message>') )  end catch END TRY BEGIN CATCH select @ErrorSeverity = 18 select @ErrorMessage
10 = isnull(ERROR_MESSAGE() , '<no message>') select @ErrorMessage = concat('#LDS#Error adding {0}.|' , @ObjectName_intern , N'|' , nchar(13) , nchar(10)
11 , @ErrorMessage )   delete @ErrorBuffer insert into @ErrorBuffer (ErrorMessage, ErrorSeverity, ErrorState, ErrorNumber , ProcedureName, ProcedureLine,
12 MessageDate , GenProcID, RepeatCounter, IsReThrow, SourceCode) select @ErrorMessage, @ErrorSeverity, ERROR_STATE(), ERROR_NUMBER() , ERROR_PROCEDURE()
13, ERROR_LINE(), GETUTCDATE() , null, 0, 0, null exec QBM_PSessionErrorAdd @ErrorBuffer RAISERROR (@ErrorMessage, @ErrorSeverity, 1) WITH NOWAIT END CATCH
14 if @ErrorSeverity > 12 or (XACT_STATE()) = -1 begin delete @ErrorBuffer insert into @ErrorBuffer (ErrorMessage, ErrorSeverity, ErrorState, ErrorNumber
15 , ProcedureName, ProcedureLine, MessageDate , GenProcID, RepeatCounter, IsReThrow, SourceCode) select @ErrorMessage, @ErrorSeverity, 1, 50000 , object_name
16(@@PROCID), 187, GETUTCDATE() , null, 0, 0, null exec QBM_PSessionErrorAdd @ErrorBuffer RAISERROR (@ErrorMessage, @ErrorSeverity, 1) WITH NOWAIT end end
17 
18