dbo.QBM_PTableMove

1  create   procedure QBM_PTableMove (@TablePattern varchar(64) = '%' ) as begin declare @TableName varchar(30) declare @Message nvarchar(1000) declare
2 @DebugSwitch int = 0 declare @DebugLevel varchar(1) = 'W'   if dbo.QBM_FGISingleUserRunning() = 1  begin select @Message = 'single user mode is set by another user'
3 raiserror (@message, 18, 1) with nowait end if exists (select top 1 1  from sys.sysprocesses p where p.dbid = DB_ID() and p.spid <> @@SPID and p.program_name
4 like concat( 'OneIM_DatabaseAgent' ,'%'  ) ) begin select @Message = 'There are other processes active, use "exec QBM_PWatchDogPrepare 1" to deactivate them'
5 raiserror (@message, 18, 1) with nowait end if @@TRANCOUNT > 0 begin select @Message = 'procedure must not be used within transaction(s)' raiserror (@message
6, 18, 1) with nowait end  exec QBM_PSingleUserRequest select @TableName = '#' while @TableName > ' ' begin select @TableName = null select top 1 @TableName
7 = t.TableName from DialogTable t where t.TableType in ('B', 'T') and dbo.QBM_FGIDiskStoreExisting(t.TableName) <> dbo.QBM_FGIDiskStoreTarget(t.TableName
8) and t.TableName like @TablePattern  and t.TableName not in ( select TableName from QBM_VStartupTables union select 'QBMDiskStoreLogical' union select
9 'QBMDiskStorePhysical' ) and exists ( Select top 1 1 from QBM_VTablesReloadAble v where v.TableName = t.TableName ) if @TableName is null begin continue
10 end select @Message = 'Table to move ' + @TableName + ' from ' + dbo.QBM_FGIDiskStoreExisting(@TableName) + ' to ' + dbo.QBM_FGIDiskStoreTarget(@TableName
11) if @DebugSwitch > 0 begin print @message end select @Message = REPLACE(@Message, ' to move ', ' moved ') exec QBM_PJournal @Message, @@procid, 'I', @DebugLevel
12 exec QBM_PTableReload @TableName, 0, @Genprocid = null , @DiskStoreMove = 1 end  endLabel: exec QBM_PSingleUserRelease return end 
13