欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

常用SQL Server进行性能优化语句

程序员文章站 2022-04-16 09:25:10
1、锁监控 查看锁住的表: select request_session_id spid,OBJECT_NAME(resource_associated_entity_id) tableName from sys.dm_tran_locks where resource_type='OBJECT' ......

1、锁监控

查看锁住的表:

select   request_session_id   spid,object_name(resource_associated_entity_id) tablename  
from   sys.dm_tran_locks where resource_type='object'

查看哪个会话引起阻塞并且它们在运行什么:

select  dtl.[request_session_id] as [session_id] ,
        db_name(dtl.[resource_database_id]) as [database] ,
        dtl.resource_type ,
        case when dtl.resource_type in ( 'database', 'file', 'metadata' )
             then dtl.resource_type
             when dtl.resource_type = 'object'
             then object_name(dtl.resource_associated_entity_id,
                              dtl.[resource_database_id])
             when dtl.resource_type in ( 'key', 'page', 'rid' )
             then ( select  object_name([object_id])
                    from    sys.partitions
                    where   sys.partitions.hobt_id = dtl.resource_associated_entity_id
                  )
             else 'unidentified'
        end as [parent object] ,
        dtl.request_mode as [lock type] ,
        dtl.request_status as [request status] ,
        der.[blocking_session_id] ,
        des.[login_name] ,
        case dtl.request_lifetime
          when 0 then dest_r.text
          else dest_c.text
        end as [statement]
from    sys.dm_tran_locks dtl
        left join sys.[dm_exec_requests] der on dtl.[request_session_id] = der.[session_id]
        inner join sys.dm_exec_sessions des on dtl.request_session_id = des.[session_id]
        inner join sys.dm_exec_connections dec on dtl.[request_session_id] = dec.[most_recent_session_id]
        outer apply sys.dm_exec_sql_text(dec.[most_recent_sql_handle]) as dest_c
        outer apply sys.dm_exec_sql_text(der.sql_handle) as dest_r
where   dtl.[resource_database_id] = db_id()
        and dtl.[resource_type] not in ( 'database', 'metadata' )
order by dtl.[request_session_id];

查看因为单条update语句锁住的用户表:

select  [resource_type] ,
        db_name([resource_database_id]) as [database name] ,
        case when dtl.resource_type in ( 'database', 'file', 'metadata' )
             then dtl.resource_type
             when dtl.resource_type = 'object'
             then object_name(dtl.resource_associated_entity_id,
                              dtl.[resource_database_id])
             when dtl.resource_type in ( 'key', 'page', 'rid' )
             then ( select  object_name([object_id])
                    from    sys.partitions
                    where   sys.partitions.hobt_id = dtl.resource_associated_entity_id
                  )
             else 'unidentified'
        end as requested_object_name ,
        [request_mode] ,
        [resource_description]
from    sys.dm_tran_locks dtl
where   dtl.[resource_type] <> 'database';

单库中的锁定和阻塞:

select  dtl.[resource_type] as [resource type] ,
        case when dtl.[resource_type] in ( 'database', 'file', 'metadata' )
             then dtl.[resource_type]
             when dtl.[resource_type] = 'object'
             then object_name(dtl.resource_associated_entity_id)
             when dtl.[resource_type] in ( 'key', 'page', 'rid' )
             then ( select  object_name([object_id])
                    from    sys.partitions
                    where   sys.partitions.[hobt_id] = dtl.[resource_associated_entity_id]
                  )
             else 'unidentified'
        end as [parent object] ,
        dtl.[request_mode] as [lock type] ,
        dtl.[request_status] as [request status] ,
        dowt.[wait_duration_ms] as [wait duration ms] ,
        dowt.[wait_type] as [wait type] ,
        dowt.[session_id] as [blocked session id] ,
        des_blocked.[login_name] as [blocked_user] ,
        substring(dest_blocked.text, der.statement_start_offset / 2,
                  ( case when der.statement_end_offset = -1
                         then datalength(dest_blocked.text)
                         else der.statement_end_offset
                    end - der.statement_start_offset ) / 2) as [blocked_command] ,
        dowt.[blocking_session_id] as [blocking session id] ,
        des_blocking.[login_name] as [blocking user] ,
        dest_blocking.[text] as [blocking command] ,
        dowt.resource_description as [blocking resource detail]
from    sys.dm_tran_locks dtl
        inner join sys.dm_os_waiting_tasks dowt on dtl.lock_owner_address = dowt.resource_address
        inner join sys.[dm_exec_requests] der on dowt.[session_id] = der.[session_id]
        inner join sys.dm_exec_sessions des_blocked on dowt.[session_id] = des_blocked.[session_id]
        inner join sys.dm_exec_sessions des_blocking on dowt.[blocking_session_id] = des_blocking.[session_id]
        inner join sys.dm_exec_connections dec on dtl.[request_session_id] = dec.[most_recent_session_id]
        cross apply sys.dm_exec_sql_text(dec.[most_recent_sql_handle]) as dest_blocking
        cross apply sys.dm_exec_sql_text(der.sql_handle) as dest_blocked
where   dtl.[resource_database_id] = db_id()

识别在行级的锁定和阻塞:

select  '[' + db_name(ddios.[database_id]) + '].[' + su.[name] + '].['
        + o.[name] + ']' as [statement] ,
        i.[name] as 'index_name' ,
        ddios.[partition_number] ,
        ddios.[row_lock_count] ,
        ddios.[row_lock_wait_count] ,
        cast (100.0 * ddios.[row_lock_wait_count] / ( ddios.[row_lock_count] ) as decimal(5,
                                                              2)) as [%_times_blocked] ,
        ddios.[row_lock_wait_in_ms] ,
        cast (1.0 * ddios.[row_lock_wait_in_ms] / ddios.[row_lock_wait_count] as decimal(15,
                                                              2)) as [avg_row_lock_wait_in_ms]
from    sys.dm_db_index_operational_stats(db_id(), null, null, null) ddios
        inner join sys.indexes i on ddios.[object_id] = i.[object_id]
                                    and i.[index_id] = ddios.[index_id]
        inner join sys.objects o on ddios.[object_id] = o.[object_id]
        inner join sys.sysusers su on o.[schema_id] = su.[uid]
where   ddios.row_lock_wait_count > 0
        and objectproperty(ddios.[object_id], 'isusertable') = 1
        and i.[index_id] > 0
order by ddios.[row_lock_wait_count] desc ,
        su.[name] ,
        o.[name] ,
        i.[name]

识别闩锁等待:

select  '[' + db_name() + '].[' + object_schema_name(ddios.[object_id])
        + '].[' + object_name(ddios.[object_id]) + ']' as [object_name] ,
        i.[name] as index_name ,
        ddios.page_io_latch_wait_count ,
        ddios.page_io_latch_wait_in_ms ,
        ( ddios.page_io_latch_wait_in_ms / ddios.page_io_latch_wait_count ) as avg_page_io_latch_wait_in_ms
from    sys.dm_db_index_operational_stats(db_id(), null, null, null) ddios
        inner join sys.indexes i on ddios.[object_id] = i.[object_id]
                                    and i.index_id = ddios.index_id
where   ddios.page_io_latch_wait_count > 0
        and objectproperty(i.object_id, 'isusertable') = 1
order by ddios.page_io_latch_wait_count desc ,
        avg_page_io_latch_wait_in_ms desc

识别锁升级:

select  object_name(ddios.[object_id], ddios.database_id) as [object_name] ,
        i.name as index_name ,
        ddios.index_id ,
        ddios.partition_number ,
        ddios.index_lock_promotion_attempt_count ,
        ddios.index_lock_promotion_count ,
        ( ddios.index_lock_promotion_attempt_count
          / ddios.index_lock_promotion_count ) as percent_success
from    sys.dm_db_index_operational_stats(db_id(), null, null, null) ddios
        inner join sys.indexes i on ddios.object_id = i.object_id
                                    and ddios.index_id = i.index_id
where   ddios.index_lock_promotion_count > 0
order by index_lock_promotion_count desc;

与锁争用有关的索引:

select  object_name(ddios.object_id, ddios.database_id) as object_name ,
        i.name as index_name ,
        ddios.index_id ,
        ddios.partition_number ,
        ddios.page_lock_wait_count ,
        ddios.page_lock_wait_in_ms ,
        case when ddmid.database_id is null then 'n'
             else 'y'
        end as missing_index_identified
from    sys.dm_db_index_operational_stats(db_id(), null, null, null) ddios
        inner join sys.indexes i on ddios.object_id = i.object_id
                                    and ddios.index_id = i.index_id
        left outer join ( select distinct
                                    database_id ,
                                    object_id
                          from      sys.dm_db_missing_index_details
                        ) as ddmid on ddmid.database_id = ddios.database_id
                                      and ddmid.object_id = ddios.object_id
where   ddios.page_lock_wait_in_ms > 0
order by ddios.page_lock_wait_count desc;

 

2、索引监控

未被使用的索引:

select  object_name(i.[object_id]) as [table name] ,
        i.name
from    sys.indexes as i
        inner join sys.objects as o on i.[object_id] = o.[object_id]
where   i.index_id not in ( select  ddius.index_id
                            from    sys.dm_db_index_usage_stats as ddius
                            where   ddius.[object_id] = i.[object_id]
                                    and i.index_id = ddius.index_id
                                    and database_id = db_id() )
        and o.[type] = 'u'
order by object_name(i.[object_id]) asc;

需要维护但是未被用过的索引:

select  '[' + db_name() + '].[' + su.[name] + '].[' + o.[name] + ']' as [statement] ,
        i.[name] as [index_name] ,
        ddius.[user_seeks] + ddius.[user_scans] + ddius.[user_lookups] as [user_reads] ,
        ddius.[user_updates] as [user_writes] ,
        sum(sp.rows) as [total_rows]
from    sys.dm_db_index_usage_stats ddius
        inner join sys.indexes i on ddius.[object_id] = i.[object_id]
                                    and i.[index_id] = ddius.[index_id]
        inner join sys.partitions sp on ddius.[object_id] = sp.[object_id]
                                        and sp.[index_id] = ddius.[index_id]
        inner join sys.objects o on ddius.[object_id] = o.[object_id]
        inner join sys.sysusers su on o.[schema_id] = su.[uid]
where   ddius.[database_id] = db_id() -- current database only
        and objectproperty(ddius.[object_id], 'isusertable') = 1
        and ddius.[index_id] > 0
group by su.[name] ,
        o.[name] ,
        i.[name] ,
        ddius.[user_seeks] + ddius.[user_scans] + ddius.[user_lookups] ,
        ddius.[user_updates]
having  ddius.[user_seeks] + ddius.[user_scans] + ddius.[user_lookups] = 0
order by ddius.[user_updates] desc ,
        su.[name] ,
        o.[name] ,
        i.[name]

可能不高效的非聚集索引 (writes > reads):

select  object_name(ddius.[object_id]) as [table name] ,
        i.name as [index name] ,
        i.index_id ,
        user_updates as [total writes] ,
        user_seeks + user_scans + user_lookups as [total reads] ,
        user_updates - ( user_seeks + user_scans + user_lookups ) as [difference]
from    sys.dm_db_index_usage_stats as ddius with ( nolock )
        inner join sys.indexes as i with ( nolock ) on ddius.[object_id] = i.[object_id]
                                                       and i.index_id = ddius.index_id
where   objectproperty(ddius.[object_id], 'isusertable') = 1
        and ddius.database_id = db_id()
        and user_updates > ( user_seeks + user_scans + user_lookups )
        and i.index_id > 1
order by [difference] desc ,
        [total writes] desc ,
        [total reads] asc;

没有用于用户查询的索引:

select  '[' + db_name() + '].[' + su.[name] + '].[' + o.[name] + ']' as [statement] ,
        i.[name] as [index_name] ,
        ddius.[user_seeks] + ddius.[user_scans] + ddius.[user_lookups] as [user_reads] ,
        ddius.[user_updates] as [user_writes] ,
        ddios.[leaf_insert_count] ,
        ddios.[leaf_delete_count] ,
        ddios.[leaf_update_count] ,
        ddios.[nonleaf_insert_count] ,
        ddios.[nonleaf_delete_count] ,
        ddios.[nonleaf_update_count]
from    sys.dm_db_index_usage_stats ddius
        inner join sys.indexes i on ddius.[object_id] = i.[object_id]
                                    and i.[index_id] = ddius.[index_id]
        inner join sys.partitions sp on ddius.[object_id] = sp.[object_id]
                                        and sp.[index_id] = ddius.[index_id]
        inner join sys.objects o on ddius.[object_id] = o.[object_id]
        inner join sys.sysusers su on o.[schema_id] = su.[uid]
        inner join sys.[dm_db_index_operational_stats](db_id(), null, null,
                                                       null) as ddios on ddius.[index_id] = ddios.[index_id]
                                                              and ddius.[object_id] = ddios.[object_id]
                                                              and sp.[partition_number] = ddios.[partition_number]
                                                              and ddius.[database_id] = ddios.[database_id]
where   objectproperty(ddius.[object_id], 'isusertable') = 1
        and ddius.[index_id] > 0
        and ddius.[user_seeks] + ddius.[user_scans] + ddius.[user_lookups] = 0
order by ddius.[user_updates] desc ,
        su.[name] ,
        o.[name] ,
        i.[name]

查找丢失索引:

select  user_seeks * avg_total_user_cost * ( avg_user_impact * 0.01 ) as [index_advantage] ,
        dbmigs.last_user_seek ,
        dbmid.[statement] as [database.schema.table] ,
        dbmid.equality_columns ,
        dbmid.inequality_columns ,
        dbmid.included_columns ,
        dbmigs.unique_compiles ,
        dbmigs.user_seeks ,
        dbmigs.avg_total_user_cost ,
        dbmigs.avg_user_impact
from    sys.dm_db_missing_index_group_stats as dbmigs with ( nolock )
        inner join sys.dm_db_missing_index_groups as dbmig with ( nolock ) on dbmigs.group_handle = dbmig.index_group_handle
        inner join sys.dm_db_missing_index_details as dbmid with ( nolock ) on dbmig.index_handle = dbmid.index_handle
where   dbmid.[database_id] = db_id()
order by index_advantage desc;

索引上的碎片超过15%并且索引体积较大(超过500页)的索引:

select  '[' + db_name() + '].[' + object_schema_name(ddips.[object_id],
                                                     db_id()) + '].['
        + object_name(ddips.[object_id], db_id()) + ']' as [statement] ,
        i.[name] as [index_name] ,
        ddips.[index_type_desc] ,
        ddips.[partition_number] ,
        ddips.[alloc_unit_type_desc] ,
        ddips.[index_depth] ,
        ddips.[index_level] ,
        cast(ddips.[avg_fragmentation_in_percent] as smallint) as [avg_frag_%] ,
        cast(ddips.[avg_fragment_size_in_pages] as smallint) as [avg_frag_size_in_pages] ,
        ddips.[fragment_count] ,
        ddips.[page_count]
from    sys.dm_db_index_physical_stats(db_id(), null, null, null, 'limited') ddips
        inner join sys.[indexes] i on ddips.[object_id] = i.[object_id]
                                      and ddips.[index_id] = i.[index_id]
where   ddips.[avg_fragmentation_in_percent] > 15
        and ddips.[page_count] > 500
order by ddips.[avg_fragmentation_in_percent] ,
        object_name(ddips.[object_id], db_id()) ,
        i.[name]

缺失索引:

select migs.group_handle, mid.* 
from sys.dm_db_missing_index_group_stats as migs 
inner join sys.dm_db_missing_index_groups as mig 
on (migs.group_handle = mig.index_group_handle) 
inner join sys.dm_db_missing_index_details as mid 
on (mig.index_handle = mid.index_handle) 
where migs.group_handle = 2

无用索引:

set transaction isolation level read uncommitted 
select 
db_name() as datbasename 
, schema_name(o.schema_id) as schemaname 
, object_name(i.object_id) as tablename 
, i.name as indexname 
into #tempneverusedindexes 
from sys.indexes i inner join sys.objects o on i.object_id = o.object_id 
where 1=2 
exec sp_msforeachdb 'use [?]; insert into #tempneverusedindexes 
select 
db_name() as datbasename 
, schema_name(o.schema_id) as schemaname 
, object_name(i.object_id) as tablename 
, i.name as indexname 
from sys.indexes i inner join sys.objects o on i.object_id = o.object_id 
left outer join sys.dm_db_index_usage_stats s on s.object_id = i.object_id 
and i.index_id = s.index_id 
and database_id = db_id() 
where objectproperty(o.object_id,''ismsshipped'') = 0 
and i.name is not null 
and s.object_id is null' 
select * from #tempneverusedindexes 
order by datbasename, schemaname, tablename, indexname 
drop table #tempneverusedindexes

经常被大量更新,但是却基本不适用的索引:

set transaction isolation level read uncommitted 
select 
db_name() as databasename 
, schema_name(o.schema_id) as schemaname 
, object_name(s.[object_id]) as tablename 
, i.name as indexname 
, s.user_updates 
, s.system_seeks + s.system_scans + s.system_lookups 
as [system usage] 
into #tempunusedindexes 
from sys.dm_db_index_usage_stats s 
inner join sys.indexes i on s.[object_id] = i.[object_id] 
and s.index_id = i.index_id 
inner join sys.objects o on i.object_id = o.object_id 
where 1=2 
exec sp_msforeachdb 'use [?]; insert into #tempunusedindexes 
select top 20 
db_name() as databasename 
, schema_name(o.schema_id) as schemaname 
, object_name(s.[object_id]) as tablename 
, i.name as indexname 
, s.user_updates 
, s.system_seeks + s.system_scans + s.system_lookups 
as [system usage] 
from sys.dm_db_index_usage_stats s 
inner join sys.indexes i on s.[object_id] = i.[object_id] 
and s.index_id = i.index_id 
inner join sys.objects o on i.object_id = o.object_id 
where s.database_id = db_id() 
and objectproperty(s.[object_id], ''ismsshipped'') = 0 
and s.user_seeks = 0 
and s.user_scans = 0 
and s.user_lookups = 0 
and i.name is not null 
order by s.user_updates desc' 
select top 20 * from #tempunusedindexes order by [user_updates] desc 
drop table #tempunusedindexes

 

3、数据库环境监控

查询当前数据库的配置信息:

select configuration_id configurationid,
name name,
description description,
cast(value as int) value,
cast(minimum as int) minimum,
cast(maximum as int) maximum,
cast(value_in_use as int) valueinuse,
is_dynamic isdynamic,
is_advanced isadvanced
from sys.configurations
order by is_advanced, name

检查sql server 当前已创建的线程数:

select count(*) from sys.dm_os_workers

查询当前连接到数据库的用户信息:

select s.login_name loginname,
s.host_name hostname,
s.transaction_isolation_level transactionisolationlevel,
max(c.connect_time) lastconnecttime,
count(*) connectioncount,
sum(cast(c.num_reads as bigint)) totalreads,
sum(cast(c.num_writes as bigint)) totalwrites
from sys.dm_exec_connections c
join sys.dm_exec_sessions s
on c.most_recent_session_id = s.session_id
group by s.login_name, s.host_name, s.transaction_isolation_level

查询cpu和内存利用率:

select dateadd(s, (timestamp - (osi.cpu_ticks / convert(float, (osi.cpu_ticks / osi.ms_ticks)))) / 1000, getdate()) as eventtime,
record.value('(./record/schedulermonitorevent/systemhealth/systemidle)[1]', 'int') as systemidle,
record.value('(./record/schedulermonitorevent/systemhealth/processutilization)[1]', 'int') as processutilization,
record.value('(./record/schedulermonitorevent/systemhealth/memoryutilization)[1]', 'int') as memoryutilization
from (select timestamp,
convert(xml, record) as record
from sys.dm_os_ring_buffers
where ring_buffer_type = n'ring_buffer_scheduler_monitor'
and record like '%<systemhealth>%') x
cross join sys.dm_os_sys_info osi
order by timestamp

查看每个数据库缓存大小:

select  count(*) * 8 / 1024 as 'cached size (mb)' ,
        case database_id
          when 32767 then 'resourcedb'
          else db_name(database_id)
        end as 'database'
from    sys.dm_os_buffer_descriptors
group by db_name(database_id) ,
        database_id
order by 'cached size (mb)' desc

统计io活动信息:

set statistics io on
select top 10* from table
set statistics io off

清除缓存sql语句:

checkpoint;
go
dbcc  freeproccache      ---清空执行计划缓存
dbcc dropcleanbuffers;   --清空数据缓存
go

查看当前进程的信息:

dbcc inputbuffer(51)

查看当前数据是否启用了快照隔离:

dbcc useroptions;

查看摸个数据库数据表中的数据页类型:

--in_row_data: 分别为存储行内数据的
    --lob_data: 存储lob对象,lob对象用于存储存在数据库的二进制文件
              --当这个类型的列出现时,原有的列会存储一个24字节的指针,而将具体的二进制数据存在lob页中
    --row_overflow_data:存储溢出数据的,使用varchar,nvarchar等数据类型时,当行的大小不超过8060字节时,全部存在行内in-row data
                    --当varchar中存储的数据过多使得整行超过8060字节时,会将额外的部分存于row-overflow data页中,
                    --如果update这列使得行大小减少到小于8060字节,则这行又会全部回到in-row data页
                    --text,ntext和image类型来说,每一列只要不为null,即使占用很小的数据,也需要额外分配一个lob页
dbcc ind ( lawyer, [dbo.tb_contract], -1)

 

4、sql执行次数和性能监控

查询cpu最高的10条sql:

select top 10 text as 'sql statement'
    ,last_execution_time as 'last execution time'
    ,(total_logical_reads + total_physical_reads + total_logical_writes) / execution_count as [average io]
    ,(total_worker_time / execution_count) / 1000000.0 as [average cpu time (sec)]
    ,(total_elapsed_time / execution_count) / 1000000.0 as [average elapsed time (sec)]
    ,execution_count as "execution count",qs.total_physical_reads,qs.total_logical_writes
    ,qp.query_plan as "query plan"
from sys.dm_exec_query_stats qs
cross apply sys.dm_exec_sql_text(qs.plan_handle) st
cross apply sys.dm_exec_query_plan(qs.plan_handle) qp
order by total_elapsed_time / execution_count desc

找出执行频繁的语句的sql语句:

with aa as (
select  
--执行次数 
qs.execution_count, 
--查询语句 
substring(st.text,(qs.statement_start_offset/2)+1, 
((case qs.statement_end_offset when -1 then datalength(st.text) 
else qs.statement_end_offset end - qs.statement_start_offset)/2) + 1 
) as statement_text, 
--执行文本 
st.text, 
--执行计划 
qs.last_elapsed_time,
qs.min_elapsed_time,
qs.max_elapsed_time,
qs.total_worker_time, 
qs.last_worker_time, 
qs.max_worker_time, 
qs.min_worker_time 
from 
sys.dm_exec_query_stats qs 
--关键字 
cross apply 
sys.dm_exec_sql_text(qs.sql_handle) st 
where 
qs.last_execution_time > '2016-02-14 00:00:00' and  execution_count > 500

-- and st.text like '%%' 
--order by 
--qs.execution_count desc

)
select text,max(execution_count) execution_count --,last_elapsed_time,min_elapsed_time,max_elapsed_time 
from aa
where [text] not  like '%sp_msupd_%' and  [text] not like '%sp_msins_%' and  [text] not like '%sp_msdel_%' 
group by text
order by 2  desc

查找逻辑读取最高的查询(存储过程):

select top ( 25 )
        p.name as [sp name] ,
        deps.total_logical_reads as [totallogicalreads] ,
        deps.total_logical_reads / deps.execution_count as [avglogicalreads] ,
        deps.execution_count ,
        isnull(deps.execution_count / datediff(second, deps.cached_time,
                                               getdate()), 0) as [calls/second] ,
        deps.total_elapsed_time ,
        deps.total_elapsed_time / deps.execution_count as [avg_elapsed_time] ,
        deps.cached_time
from    sys.procedures as p
        inner join sys.dm_exec_procedure_stats as deps on p.[object_id] = deps.[object_id]
where   deps.database_id = db_id()
order by deps.total_logical_reads desc;

查看某个sql的执行计划:

set statistics profile on 
select * from demo
set statistics profile off

查询某个sql的执行时间:

set statistics time on 
select * from demo
set statistics time off

查询某个sql的io信息:

set statistics io on 
select * from demo
set statistics io off

 

5、开源监控脚本,监控数据库锁定情况

use master
go

if not exists (select * from information_schema.routines where routine_name = 'sp_whoisactive')
    exec ('create proc dbo.sp_whoisactive as select ''stub version, to be replaced''')
go

/*********************************************************************************************
who is active? v11.17 (2016-10-18)
(c) 2007-2016, adam machanic

feedback: mailto:amachanic@gmail.com
updates: http://whoisactive.com

license: 
    who is active? is free to download and use for personal, educational, and internal 
    corporate purposes, provided that this header is preserved. redistribution or sale 
    of who is active?, in whole or in part, is prohibited without the author's express 
    written consent.
*********************************************************************************************/
alter proc dbo.sp_whoisactive
(
--~
    --filters--both inclusive and exclusive
    --set either filter to '' to disable
    --valid filter types are: session, program, database, login, and host
    --session is a session id, and either 0 or '' can be used to indicate "all" sessions
    --all other filter types support % or _ as wildcards
    @filter sysname = '',
    @filter_type varchar(10) = 'session',
    @not_filter sysname = '',
    @not_filter_type varchar(10) = 'session',

    --retrieve data about the calling session?
    @show_own_spid bit = 0,

    --retrieve data about system sessions?
    @show_system_spids bit = 0,

    --controls how sleeping spids are handled, based on the idea of levels of interest
    --0 does not pull any sleeping spids
    --1 pulls only those sleeping spids that also have an open transaction
    --2 pulls all sleeping spids
    @show_sleeping_spids tinyint = 1,

    --if 1, gets the full stored procedure or running batch, when available
    --if 0, gets only the actual statement that is currently running in the batch or procedure
    @get_full_inner_text bit = 0,

    --get associated query plans for running tasks, if available
    --if @get_plans = 1, gets the plan based on the request's statement offset
    --if @get_plans = 2, gets the entire plan based on the request's plan_handle
    @get_plans tinyint = 0,

    --get the associated outer ad hoc query or stored procedure call, if available
    @get_outer_command bit = 0,

    --enables pulling transaction log write info and transaction duration
    @get_transaction_info bit = 0,

    --get information on active tasks, based on three interest levels
    --level 0 does not pull any task-related information
    --level 1 is a lightweight mode that pulls the top non-cxpacket wait, giving preference to blockers
    --level 2 pulls all available task-based metrics, including: 
    --number of active tasks, current wait stats, physical i/o, context switches, and blocker information
    @get_task_info tinyint = 1,

    --gets associated locks for each request, aggregated in an xml format
    @get_locks bit = 0,

    --get average time for past runs of an active query
    --(based on the combination of plan handle, sql handle, and offset)
    @get_avg_time bit = 0,

    --get additional non-performance-related information about the session or request
    --text_size, language, date_format, date_first, quoted_identifier, arithabort, ansi_null_dflt_on, 
    --ansi_defaults, ansi_warnings, ansi_padding, ansi_nulls, concat_null_yields_null, 
    --transaction_isolation_level, lock_timeout, deadlock_priority, row_count, command_type
    --
    --if a sql agent job is running, an subnode called agent_info will be populated with some or all of
    --the following: job_id, job_name, step_id, step_name, msdb_query_error (in the event of an error)
    --
    --if @get_task_info is set to 2 and a lock wait is detected, a subnode called block_info will be
    --populated with some or all of the following: lock_type, database_name, object_id, file_id, hobt_id, 
    --applock_hash, metadata_resource, metadata_class_id, object_name, schema_name
    @get_additional_info bit = 0,

    --walk the blocking chain and count the number of 
    --total spids blocked all the way down by a given session
    --also enables task_info level 1, if @get_task_info is set to 0
    @find_block_leaders bit = 0,

    --pull deltas on various metrics
    --interval in seconds to wait before doing the second data pull
    @delta_interval tinyint = 0,

    --list of desired output columns, in desired order
    --note that the final output will be the intersection of all enabled features and all 
    --columns in the list. therefore, only columns associated with enabled features will 
    --actually appear in the output. likewise, removing columns from this list may effectively
    --disable features, even if they are turned on
    --
    --each element in this list must be one of the valid output column names. names must be
    --delimited by square brackets. white space, formatting, and additional characters are
    --allowed, as long as the list contains exact matches of delimited valid column names.
    @output_column_list varchar(8000) = '[dd%][session_id][sql_text][sql_command][login_name][wait_info][tasks][tran_log%][cpu%][temp%][block%][reads%][writes%][context%][physical%][query_plan][locks][%]',

    --column(s) by which to sort output, optionally with sort directions. 
        --valid column choices:
        --session_id, physical_io, reads, physical_reads, writes, tempdb_allocations,
        --tempdb_current, cpu, context_switches, used_memory, physical_io_delta, 
        --reads_delta, physical_reads_delta, writes_delta, tempdb_allocations_delta, 
        --tempdb_current_delta, cpu_delta, context_switches_delta, used_memory_delta, 
        --tasks, tran_start_time, open_tran_count, blocking_session_id, blocked_session_count,
        --percent_complete, host_name, login_name, database_name, start_time, login_time
        --
        --note that column names in the list must be bracket-delimited. commas and/or white
        --space are not required. 
    @sort_order varchar(500) = '[start_time] asc',

    --formats some of the output columns in a more "human readable" form
    --0 disables outfput format
    --1 formats the output for variable-width fonts
    --2 formats the output for fixed-width fonts
    @format_output tinyint = 1,

    --if set to a non-blank value, the script will attempt to insert into the specified 
    --destination table. please note that the script will not verify that the table exists, 
    --or that it has the correct schema, before doing the insert.
    --table can be specified in one, two, or three-part format
    @destination_table varchar(4000) = '',

    --if set to 1, no data collection will happen and no result set will be returned; instead,
    --a create table statement will be returned via the @schema parameter, which will match 
    --the schema of the result set that would be returned by using the same collection of the
    --rest of the parameters. the create table statement will have a placeholder token of 
    --<table_name> in place of an actual table name.
    @return_schema bit = 0,
    @schema varchar(max) = null output,

    --help! what do i do?
    @help bit = 0
--~
)
/*
output columns
--------------
formatted/non:    [session_id] [smallint] not null
    session id (a.k.a. spid)

formatted:        [dd hh:mm:ss.mss] [varchar](15) null
non-formatted:    <not returned>
    for an active request, time the query has been running
    for a sleeping session, time since the last batch completed

formatted:        [dd hh:mm:ss.mss (avg)] [varchar](15) null
non-formatted:    [avg_elapsed_time] [int] null
    (requires @get_avg_time option)
    how much time has the active portion of the query taken in the past, on average?

formatted:        [physical_io] [varchar](30) null
non-formatted:    [physical_io] [bigint] null
    shows the number of physical i/os, for active requests

formatted:        [reads] [varchar](30) null
non-formatted:    [reads] [bigint] null
    for an active request, number of reads done for the current query
    for a sleeping session, total number of reads done over the lifetime of the session

formatted:        [physical_reads] [varchar](30) null
non-formatted:    [physical_reads] [bigint] null
    for an active request, number of physical reads done for the current query
    for a sleeping session, total number of physical reads done over the lifetime of the session

formatted:        [writes] [varchar](30) null
non-formatted:    [writes] [bigint] null
    for an active request, number of writes done for the current query
    for a sleeping session, total number of writes done over the lifetime of the session

formatted:        [tempdb_allocations] [varchar](30) null
non-formatted:    [tempdb_allocations] [bigint] null
    for an active request, number of tempdb writes done for the current query
    for a sleeping session, total number of tempdb writes done over the lifetime of the session

formatted:        [tempdb_current] [varchar](30) null
non-formatted:    [tempdb_current] [bigint] null
    for an active request, number of tempdb pages currently allocated for the query
    for a sleeping session, number of tempdb pages currently allocated for the session

formatted:        [cpu] [varchar](30) null
non-formatted:    [cpu] [int] null
    for an active request, total cpu time consumed by the current query
    for a sleeping session, total cpu time consumed over the lifetime of the session

formatted:        [context_switches] [varchar](30) null
non-formatted:    [context_switches] [bigint] null
    shows the number of context switches, for active requests

formatted:        [used_memory] [varchar](30) not null
non-formatted:    [used_memory] [bigint] not null
    for an active request, total memory consumption for the current query
    for a sleeping session, total current memory consumption

formatted:        [physical_io_delta] [varchar](30) null
non-formatted:    [physical_io_delta] [bigint] null
    (requires @delta_interval option)
    difference between the number of physical i/os reported on the first and second collections. 
    if the request started after the first collection, the value will be null

formatted:        [reads_delta] [varchar](30) null
non-formatted:    [reads_delta] [bigint] null
    (requires @delta_interval option)
    difference between the number of reads reported on the first and second collections. 
    if the request started after the first collection, the value will be null

formatted:        [physical_reads_delta] [varchar](30) null
non-formatted:    [physical_reads_delta] [bigint] null
    (requires @delta_interval option)
    difference between the number of physical reads reported on the first and second collections. 
    if the request started after the first collection, the value will be null

formatted:        [writes_delta] [varchar](30) null
non-formatted:    [writes_delta] [bigint] null
    (requires @delta_interval option)
    difference between the number of writes reported on the first and second collections. 
    if the request started after the first collection, the value will be null

formatted:        [tempdb_allocations_delta] [varchar](30) null
non-formatted:    [tempdb_allocations_delta] [bigint] null
    (requires @delta_interval option)
    difference between the number of tempdb writes reported on the first and second collections. 
    if the request started after the first collection, the value will be null

formatted:        [tempdb_current_delta] [varchar](30) null
non-formatted:    [tempdb_current_delta] [bigint] null
    (requires @delta_interval option)
    difference between the number of allocated tempdb pages reported on the first and second 
    collections. if the request started after the first collection, the value will be null

formatted:        [cpu_delta] [varchar](30) null
non-formatted:    [cpu_delta] [int] null
    (requires @delta_interval option)
    difference between the cpu time reported on the first and second collections. 
    if the request started after the first collection, the value will be null

formatted:        [context_switches_delta] [varchar](30) null
non-formatted:    [context_switches_delta] [bigint] null
    (requires @delta_interval option)
    difference between the context switches count reported on the first and second collections
    if the request started after the first collection, the value will be null

formatted:        [used_memory_delta] [varchar](30) null
non-formatted:    [used_memory_delta] [bigint] null
    difference between the memory usage reported on the first and second collections
    if the request started after the first collection, the value will be null

formatted:        [tasks] [varchar](30) null
non-formatted:    [tasks] [smallint] null
    number of worker tasks currently allocated, for active requests

formatted/non:    [status] [varchar](30) not null
    activity status for the session (running, sleeping, etc)

formatted/non:    [wait_info] [nvarchar](4000) null
    aggregates wait information, in the following format:
        (ax: bms/cms/dms)e
    a is the number of waiting tasks currently waiting on resource type e. b/c/d are wait
    times, in milliseconds. if only one thread is waiting, its wait time will be shown as b.
    if two tasks are waiting, each of their wait times will be shown (b/c). if three or more 
    tasks are waiting, the minimum, average, and maximum wait times will be shown (b/c/d).
    if wait type e is a page latch wait and the page is of a "special" type (e.g. pfs, gam, sgam), 
    the page type will be identified.
    if wait type e is cxpacket, the nodeid from the query plan will be identified

formatted/non:    [locks] [xml] null
    (requires @get_locks option)
    aggregates lock information, in xml format.
    the lock xml includes the lock mode, locked object, and aggregates the number of requests. 
    attempts are made to identify locked objects by name

formatted/non:    [tran_start_time] [datetime] null
    (requires @get_transaction_info option)
    date and time that the first transaction opened by a session caused a transaction log 
    write to occur.

formatted/non:    [tran_log_writes] [nvarchar](4000) null
    (requires @get_transaction_info option)
    aggregates transaction log write information, in the following format:
    a:wb (c kb)
    a is a database that has been touched by an active transaction
    b is the number of log writes that have been made in the database as a result of the transaction
    c is the number of log kilobytes consumed by the log records

formatted:        [open_tran_count] [varchar](30) null
non-formatted:    [open_tran_count] [smallint] null
    shows the number of open transactions the session has open

formatted:        [sql_command] [xml] null
non-formatted:    [sql_command] [nvarchar](max) null
    (requires @get_outer_command option)
    shows the "outer" sql command, i.e. the text of the batch or rpc sent to the server, 
    if available

formatted:        [sql_text] [xml] null
non-formatted:    [sql_text] [nvarchar](max) null
    shows the sql text for active requests or the last statement executed
    for sleeping sessions, if available in either case.
    if @get_full_inner_text option is set, shows the full text of the batch.
    otherwise, shows only the active statement within the batch.
    if the query text is locked, a special timeout message will be sent, in the following format:
        <timeout_exceeded />
    if an error occurs, an error message will be sent, in the following format:
        <error message="message" />

formatted/non:    [query_plan] [xml] null
    (requires @get_plans option)
    shows the query plan for the request, if available.
    if the plan is locked, a special timeout message will be sent, in the following format:
        <timeout_exceeded />
    if an error occurs, an error message will be sent, in the following format:
        <error message="message" />

formatted/non:    [blocking_session_id] [smallint] null
    when applicable, shows the blocking spid

formatted:        [blocked_session_count] [varchar](30) null
non-formatted:    [blocked_session_count] [smallint] null
    (requires @find_block_leaders option)
    the total number of spids blocked by this session,
    all the way down the blocking chain.

formatted:        [percent_complete] [varchar](30) null
non-formatted:    [percent_complete] [real] null
    when applicable, shows the percent complete (e.g. for backups, restores, and some rollbacks)

formatted/non:    [host_name] [sysname] not null
    shows the host name for the connection

formatted/non:    [login_name] [sysname] not null
    shows the login name for the connection

formatted/non:    [database_name] [sysname] null
    shows the connected database

formatted/non:    [program_name] [sysname] null
    shows the reported program/application name

formatted/non:    [additional_info] [xml] null
    (requires @get_additional_info option)
    returns additional non-performance-related session/request information
    if the script finds a sql agent job running, the name of the job and job step will be reported
    if @get_task_info = 2 and the script finds a lock wait, the locked object will be reported

formatted/non:    [start_time] [datetime] not null
    for active requests, shows the time the request started
    for sleeping sessions, shows the time the last batch completed

formatted/non:    [login_time] [datetime] not null
    shows the time that the session connected

formatted/non:    [request_id] [int] null
    for active requests, shows the request_id
    should be 0 unless mars is being used

formatted/non:    [collection_time] [datetime] not null
    time that this script's final select ran
*/
as
begin;
    set nocount on; 
    set transaction isolation level read uncommitted;
    set quoted_identifier on;
    set ansi_padding on;
    set concat_null_yields_null on;
    set ansi_warnings on;
    set numeric_roundabort off;
    set arithabort on;

    if
        @filter is null
        or @filter_type is null
        or @not_filter is null
        or @not_filter_type is null
        or @show_own_spid is null
        or @show_system_spids is null
        or @show_sleeping_spids is null
        or @get_full_inner_text is null
        or @get_plans is null
        or @get_outer_command is null
        or @get_transaction_info is null
        or @get_task_info is null
        or @get_locks is null
        or @get_avg_time is null
        or @get_additional_info is null
        or @find_block_leaders is null
        or @delta_interval is null
        or @format_output is null
        or @output_column_list is null
        or @sort_order is null
        or @return_schema is null
        or @destination_table is null
        or @help is null
    begin;
        raiserror('input parameters cannot be null', 16, 1);
        return;
    end;
    
    if @filter_type not in ('session', 'program', 'database', 'login', 'host')
    begin;
        raiserror('valid filter types are: session, program, database, login, host', 16, 1);
        return;
    end;
    
    if @filter_type = 'session' and @filter like '%[^0123456789]%'
    begin;
        raiserror('session filters must be valid integers', 16, 1);
        return;
    end;
    
    if @not_filter_type not in ('session', 'program', 'database', 'login', 'host')
    begin;
        raiserror('valid filter types are: session, program, database, login, host', 16, 1);
        return;
    end;
    
    if @not_filter_type = 'session' and @not_filter like '%[^0123456789]%'
    begin;
        raiserror('session filters must be valid integers', 16, 1);
        return;
    end;
    
    if @show_sleeping_spids not in (0, 1, 2)
    begin;
        raiserror('valid values for @show_sleeping_spids are: 0, 1, or 2', 16, 1);
        return;
    end;
    
    if @get_plans not in (0, 1, 2)
    begin;
        raiserror('valid values for @get_plans are: 0, 1, or 2', 16, 1);
        return;
    end;

    if @get_task_info not in (0, 1, 2)
    begin;
        raiserror('valid values for @get_task_info are: 0, 1, or 2', 16, 1);
        return;
    end;

    if @format_output not in (0, 1, 2)
    begin;
        raiserror('valid values for @format_output are: 0, 1, or 2', 16, 1);
        return;
    end;
    
    if @help = 1
    begin;
        declare 
            @header varchar(max),
            @params varchar(max),
            @outputs varchar(max);

        select 
            @header =
                replace
                (
                    replace
                    (
                        convert
                        (
                            varchar(max),
                            substring
                            (
                                t.text, 
                                charindex('/' + replicate('*', 93), t.text) + 94,
                                charindex(replicate('*', 93) + '/', t.text) - (charindex('/' + replicate('*', 93), t.text) + 94)
                            )
                        ),
                        char(13)+char(10),
                        char(13)
                    ),
                    '    ',
                    ''
                ),
            @params =
                char(13) +
                    replace
                    (
                        replace
                        (
                            convert
                            (
                                varchar(max),
                                substring
                                (
                                    t.text, 
                                    charindex('--~', t.text) + 5, 
                                    charindex('--~', t.text, charindex('--~', t.text) + 5) - (charindex('--~', t.text) + 5)
                                )
                            ),
                            char(13)+char(10),
                            char(13)
                        ),
                        '    ',
                        ''
                    ),
                @outputs = 
                    char(13) +
                        replace
                        (
                            replace
                            (
                                replace
                                (
                                    convert
                                    (
                                        varchar(max),
                                        substring
                                        (
                                            t.text, 
                                            charindex('output columns'+char(13)+char(10)+'--------------', t.text) + 32,
                                            charindex('*/', t.text, charindex('output columns'+char(13)+char(10)+'--------------', t.text) + 32) - (charindex('output columns'+char(13)+char(10)+'--------------', t.text) + 32)
                                        )
                                    ),
                                    char(9),
                                    char(255)
                                ),
                                char(13)+char(10),
                                char(13)
                            ),
                            '    ',
                            ''
                        ) +
                        char(13)
        from sys.dm_exec_requests as r
        cross apply sys.dm_exec_sql_text(r.sql_handle) as t
        where
            r.session_id = @@spid;

        with
        a0 as
        (select 1 as n union all select 1),
        a1 as
        (select 1 as n from a0 as a, a0 as b),
        a2 as
        (select 1 as n from a1 as a, a1 as b),
        a3 as
        (select 1 as n from a2 as a, a2 as b),
        a4 as
        (select 1 as n from a3 as a, a3 as b),
        numbers as
        (
            select top(len(@header) - 1)
                row_number() over
                (
                    order by (select null)
                ) as number
            from a4
            order by
                number
        )
        select
            rtrim(ltrim(
                substring
                (
                    @header,
                    number + 1,
                    charindex(char(13), @header, number + 1) - number - 1
                )
            )) as [------header---------------------------------------------------------------------------------------------------------------]
        from numbers
        where
            substring(@header, number, 1) = char(13);

        with
        a0 as
        (select 1 as n union all select 1),
        a1 as
        (select 1 as n from a0 as a, a0 as b),
        a2 as
        (select 1 as n from a1 as a, a1 as b),
        a3 as
        (select 1 as n from a2 as a, a2 as b),
        a4 as
        (select 1 as n from a3 as a, a3 as b),
        numbers as
        (
            select top(len(@params) - 1)
                row_number() over
                (
                    order by (select null)
                ) as number
            from a4
            order by
                number
        ),
        tokens as
        (
            select 
                rtrim(ltrim(
                    substring
                    (
                        @params,
                        number + 1,
                        charindex(char(13), @params, number + 1) - number - 1
                    )
                )) as token,
                number,
                case
                    when substring(@params, number + 1, 1) = char(13) then number
                    else coalesce(nullif(charindex(',' + char(13) + char(13), @params, number), 0), len(@params)) 
                end as param_group,
                row_number() over
                (
                    partition by
                        charindex(',' + char(13) + char(13), @params, number),
                        substring(@params, number+1, 1)
                    order by 
                        number
                ) as group_order
            from numbers
            where
                substring(@params, number, 1) = char(13)
        ),
        parsed_tokens as
        (
            select
                min
                (
                    case
                        when token like '@%' then token
                        else null
                    end
                ) as parameter,
                min
                (
                    case
                        when token like '--%' then right(token, len(token) - 2)
                        else null
                    end
                ) as description,
                param_group,
                group_order
            from tokens
            where
                not 
                (
                    token = '' 
                    and group_order > 1
                )
            group by
                param_group,
                group_order
        )
        select
            case
                when description is null and parameter is null then '-------------------------------------------------------------------------'
                when param_group = max(param_group) over() then parameter
                else coalesce(left(parameter, len(parameter) - 1), '')
            end as [------parameter----------------------------------------------------------],
            case
                when description is null and parameter is null then '----------------------------------------------------------------------------------------------------------------------'
                else coalesce(description, '')
            end as [------description-----------------------------------------------------------------------------------------------------]
        from parsed_tokens
        order by
            param_group, 
            group_order;
        
        with
        a0 as
        (select 1 as n union all select 1),
        a1 as
        (select 1 as n from a0 as a, a0 as b),
        a2 as
        (select 1 as n from a1 as a, a1 as b),
        a3 as
        (select 1 as n from a2 as a, a2 as b),
        a4 as
        (select 1 as n from a3 as a, a3 as b),
        numbers as
        (
            select top(len(@outputs) - 1)
                row_number() over
                (
                    order by (select null)
                ) as number
            from a4
            order by
                number
        ),
        tokens as
        (
            select 
                rtrim(ltrim(
                    substring
                    (
                        @outputs,
                        number + 1,
                        case
                            when 
                                coalesce(nullif(charindex(char(13) + 'formatted', @outputs, number + 1), 0), len(@outputs)) < 
                                coalesce(nullif(charindex(char(13) + char(255) collate latin1_general_bin2, @outputs, number + 1), 0), len(@outputs))
                                then coalesce(nullif(charindex(char(13) + 'formatted', @outputs, number + 1), 0), len(@outputs)) - number - 1
                            else
                                coalesce(nullif(charindex(char(13) + char(255) collate latin1_general_bin2, @outputs, number + 1), 0), len(@outputs)) - number - 1
                        end
                    )
                )) as token,
                number,
                coalesce(nullif(charindex(char(13) + 'formatted', @outputs, number + 1), 0), len(@outputs)) as output_group,
                row_number() over
                (
                    partition by 
                        coalesce(nullif(charindex(char(13) + 'formatted', @outputs, number + 1), 0), len(@outputs))
                    order by
                        number
                ) as output_group_order
            from numbers
            where
                substring(@outputs, number, 10) = char(13) + 'formatted'
                or substring(@outputs, number, 2) = char(13) + char(255) collate latin1_general_bin2
        ),
        output_tokens as
        (
            select 
                *,
                case output_group_order
                    when 2 then max(case output_group_order when 1 then token else null end) over (partition by output_group)
                    else ''
                end collate latin1_general_bin2 as column_info
            from tokens
        )
        select
            case output_group_order
                when 1 then '-----------------------------------'
                when 2 then 
                    case
                        when charindex('formatted/non:', column_info) = 1 then
                            substring(column_info, charindex(char(255) collate latin1_general_bin2, column_info)+1, charindex(']', column_info, charindex(char(255) collate latin1_general_bin2, column_info)+2) - charindex(char(255) collate latin1_general_bin2, column_info))
                        else
                            substring(column_info, charindex(char(255) collate latin1_general_bin2, column_info)+2, charindex(']', column_info, charindex(char(255) collate latin1_general_bin2, column_info)+2) - charindex(char(255) collate latin1_general_bin2, column_info)-1)
                    end
                else ''
            end as formatted_column_name,
            case output_group_order
                when 1 then '-----------------------------------'
                when 2 then 
                    case
                        when charindex('formatted/non:', column_info) = 1 then
                            substring(column_info, charindex(']', column_info)+2, len(column_info))
                        else
                            substring(column_info, charindex(']', column_info)+2, charindex('non-formatted:', column_info, charindex(']', column_info)+2) - charindex(']', column_info)-3)
                    end
                else ''
            end as formatted_column_type,
            case output_group_order
                when 1 then '---------------------------------------'
                when 2 then 
                    case
                        when charindex('formatted/non:', column_info) = 1 then ''
                        else
                            case
                                when substring(column_info, charindex(char(255) collate latin1_general_bin2, column_info, charindex('non-formatted:', column_info))+1, 1) = '<' then
                                    substring(column_info, charindex(char(255) collate latin1_general_bin2, column_info, charindex('non-formatted:', column_info))+1, charindex('>', column_info, charindex(char(255) collate latin1_general_bin2, column_info, charindex('non-formatted:', column_info))+1) - charindex(char(255) collate latin1_general_bin2, column_info, charindex('non-formatted:', column_info)))
                                else
                                    substring(column_info, charindex(char(255) collate latin1_general_bin2, column_info, charindex('non-formatted:', column_info))+1, charindex(']', column_info, charindex(char(255) collate latin1_general_bin2, column_info, charindex('non-formatted:', column_info))+1) - charindex(char(255) collate latin1_general_bin2, column_info, charindex('non-formatted:', column_info)))
                            end
                    end
                else ''
            end as unformatted_column_name,
            case output_group_order
                when 1 then '---------------------------------------'
                when 2 then 
                    case
                        when charindex('formatted/non:', column_info) = 1 then ''
                        else
                            case
                                when substring(column_info, charindex(char(255) collate latin1_general_bin2, column_info, charindex('non-formatted:', column_info))+1, 1) = '<' then ''
                                else
                                    substring(column_info, charindex(']', column_info, charindex('non-formatted:', column_info))+2, charindex('non-formatted:', column_info, charindex(']', column_info)+2) - charindex(']', column_info)-3)
                            end
                    end
                else ''
            end as unformatted_column_type,
            case output_group_order
                when 1 then '----------------------------------------------------------------------------------------------------------------------'
                else replace(token, char(255) collate latin1_general_bin2, '')
            end as [------description-----------------------------------------------------------------------------------------------------]
        from output_tokens
        where
            not 
            (
                output_group_order = 1 
                and output_group = len(@outputs)
            )
        order by
            output_group,
            case output_group_order
                when 1 then 99
                else output_group_order
            end;

        return;
    end;

    with
    a0 as
    (select 1 as n union all select 1),
    a1 as
    (select 1 as n from a0 as a, a0 as b),
    a2 as
    (select 1 as n from a1 as a, a1 as b),
    a3 as
    (select 1 as n from a2 as a, a2 as b),
    a4 as
    (select 1 as n from a3 as a, a3 as b),
    numbers as
    (
        select top(len(@output_column_list))
            row_number() over
            (
                order by (select null)
            ) as number
        from a4
        order by
            number
    ),
    tokens as
    (
        select 
            '|[' +
                substring
                (
                    @output_column_list,
                    number + 1,
                    charindex(']', @output_column_list, number) - number - 1
                ) + '|]' as token,
            number
        from numbers
        where
            substring(@output_column_list, number, 1) = '['
    ),
    ordered_columns as
    (
        select
            x.column_name,
            row_number() over
            (
                partition by
                    x.column_name
                order by
                    tokens.number,
                    x.default_order
            ) as r,
            row_number() over
            (
                order by
                    tokens.number,
                    x.default_order
            ) as s
        from tokens
        join
        (
            select '[session_id]' as column_name, 1 as default_order
            union all
            select '[dd hh:mm:ss.mss]', 2
            where
                @format_output in (1, 2)
            union all
            select '[dd hh:mm:ss.mss (avg)]', 3
            where
                @format_output in (1, 2)
                and @get_avg_time = 1
            union all
            select '[avg_elapsed_time]', 4
            where
                @format_output = 0
                and @get_avg_time = 1
            union all
            select '[physical_io]', 5
            where
                @get_task_info = 2
            union all
            select '[reads]', 6
            union all
            select '[physical_reads]', 7
            union all
            select '[writes]', 8
            union all
            select '[tempdb_allocations]', 9
            union all
            select '[tempdb_current]', 10
            union all
            select '[cpu]', 11
            union all
            select '[context_switches]', 12
            where
                @get_task_info = 2
            union all
            select '[used_memory]', 13
            union all
            select '[physical_io_delta]', 14
            where
                @delta_interval > 0    
                and @get_task_info = 2
            union all
            select '[reads_delta]', 15
            where
                @delta_interval > 0
            union all
            select '[physical_reads_delta]', 16
            where
                @delta_interval > 0
            union all
            select '[writes_delta]', 17
            where
                @delta_interval > 0
            union all
            select '[tempdb_allocations_delta]', 18
            where
                @delta_interval > 0
            union all
            select '[tempdb_current_delta]', 19
            where
                @delta_interval > 0
            union all
            select '[cpu_delta]', 20
            where
                @delta_interval > 0
            union all
            select '[context_switches_delta]', 21
            where
                @delta_interval > 0
                and @get_task_info = 2
            union all
            select '[used_memory_delta]', 22
            where
                @delta_interval > 0
            union all
            select '[tasks]', 23
            where
                @get_task_info = 2
            union all
            select '[status]', 24
            union all
            select '[wait_info]', 25
            where
                @get_task_info > 0
                or @find_block_leaders = 1
            union all
            select '[locks]', 26
            where
                @get_locks = 1
            union all
            select '[tran_start_time]', 27
            where
                @get_transaction_info = 1
            union all
            select '[tran_log_writes]', 28
            where
                @get_transaction_info = 1
            union all
            select '[open_tran_count]', 29
            union all
            select '[sql_command]', 30
            where
                @get_outer_command = 1
            union all
            select '[sql_text]', 31
            union all
            select '[query_plan]', 32
            where
                @get_plans >= 1
            union all
            select '[blocking_session_id]', 33
            where
                @get_task_info > 0
                or @find_block_leaders = 1
            union all
            select '[blocked_session_count]', 34
            where
                @find_block_leaders = 1
            union all
            select '[percent_complete]', 35
            union all
            select '[host_name]', 36
            union all
            select '[login_name]', 37
            union all
            select '[database_name]', 38
            union all
            select '[program_name]', 39
            union all
            select '[additional_info]', 40
            where
                @get_additional_info = 1
            union all
            select '[start_time]', 41
            union all
            select '[login_time]', 42
            union all
            select '[request_id]', 43
            union all
            select '[collection_time]', 44
        ) as x on 
            x.column_name like token escape '|'
    )
    select
        @output_column_list =
            stuff
            (
                (
                    select
                        ',' + column_name as [text()]
                    from ordered_columns
                    where
                        r = 1
                    order by
                        s
                    for xml
                        path('')
                ),
                1,
                1,
                ''
            );
    
    if coalesce(rtrim(@output_column_list), '') = ''
    begin;
        raiserror('no valid column matches found in @output_column_list or no columns remain due to selected options.', 16, 1);
        return;
    end;
    
    if @destination_table <> ''
    begin;
        set @destination_table = 
            --database
            coalesce(quotename(parsename(@destination_table, 3)) + '.', '') +
            --schema
            coalesce(quotename(parsename(@destination_table, 2)) + '.', '') +
            --table
            coalesce(quotename(parsename(@destination_table, 1)), '');
            
        if coalesce(rtrim(@destination_table), '') = ''
        begin;
            raiserror('destination table not properly formatted.', 16, 1);
            return;
        end;
    end;

    with
    a0 as
    (select 1 as n union all select 1),
    a1 as
    (select 1 as n from a0 as a, a0 as b),
    a2 as
    (select 1 as n from a1 as a, a1 as b),
    a3 as
    (select 1 as n from a2 as a, a2 as b),
    a4 as
    (select 1 as n from a3 as a, a3 as b),
    numbers as
    (
        select top(len(@sort_order))
            row_number() over
            (
                order by (select null)
            ) as number
        from a4
        order by
            number
    ),
    tokens as
    (
        select 
            '|[' +
                substring
                (
                    @sort_order,
                    number + 1,
                    charindex(']', @sort_order, number) - number - 1
                ) + '|]' as token,
            substring
            (
                @sort_order,
                charindex(']', @sort_order, number) + 1,
                coalesce(nullif(charindex('[', @sort_order, charindex(']', @sort_order, number)), 0), len(@sort_order)) - charindex(']', @sort_order, number)
            ) as next_chunk,
            number
        from numbers
        where
            substring(@sort_order, number, 1) = '['
    ),
    ordered_columns as
    (
        select
            x.column_name +
                case
                    when tokens.next_chunk like '%asc%' then ' asc'
                    when tokens.next_chunk like '%desc%' then ' desc'
                    else ''
                end as column_name,
            row_number() over
            (
                partition by
                    x.column_name
                order by
                    tokens.number
            ) as r,
            tokens.number
        from tokens
        join
        (
            select '[session_id]' as column_name
            union all
            select '[physical_io]'
            union all
            select '[reads]'
            union all
            select '[physical_reads]'
            union all
            select '[writes]'
            union all
            select '[tempdb_allocations]'
            union all
            select '[tempdb_current]'
            union all
            select '[cpu]'
            union all
            select '[context_switches]'
            union all
            select '[used_memory]'
            union all
            select '[physical_io_delta]'
            union all
            select '[reads_delta]'
            union all
            select '[physical_reads_delta]'
            union all
            select '[writes_delta]'
            union all
            select '[tempdb_allocations_delta]'
            union all
            select '[tempdb_current_delta]'
            union all
            select '[cpu_delta]'
            union all
            select '[context_switches_delta]'
            union all
            select '[used_memory_delta]'
            union all
            select '[tasks]'
            union all
            select '[tran_start_time]'
            union all
            select '[open_tran_count]'
            union all
            select '[blocking_session_id]'
            union all
            select '[blocked_session_count]'
            union all
            select '[percent_complete]'
            union all
            select '[host_name]'
            union all
            select '[login_name]'
            union all
            select '[database_name]'
            union all
            select '[start_time]'
            union all
            select '[login_time]'
        ) as x on 
            x.column_name like token escape '|'
    )
    select
        @sort_order = coalesce(z.sort_order, '')
    from
    (
        select
            stuff
            (
                (
                    select
                        ',' + column_name as [text()]
                    from ordered_columns
                    where
                        r = 1
                    order by
                        number
                    for xml
                        path('')
                ),
                1,
                1,
                ''
            ) as sort_order
    ) as z;

    create table #sessions
    (
        recursion smallint not null,
        session_id smallint not null,
        request_id int not null,
        session_number int not null,
        elapsed_time int not null,
        avg_elapsed_time int null,
        physical_io bigint null,
        reads bigint null,
        physical_reads bigint null,
        writes bigint null,
        tempdb_allocations bigint null,
        tempdb_current bigint null,
        cpu int null,
        thread_cpu_snapshot bigint null,
        context_switches bigint null,
        used_memory bigint not null, 
        tasks smallint null,
        status varchar(30) not null,
        wait_info nvarchar(4000) null,
        locks xml null,
        transaction_id bigint null,
        tran_start_time datetime null,
        tran_log_writes nvarchar(4000) null,
        open_tran_count smallint null,
        sql_command xml null,
        sql_handle varbinary(64) null,
        statement_start_offset int null,
        statement_end_offset int null,
        sql_text xml null,
        plan_handle varbinary(64) null,
        query_plan xml null,
        blocking_session_id smallint null,
        blocked_session_count smallint null,
        percent_complete real null,
        host_name sysname null,
        login_name sysname not null,
        database_name sysname null,
        program_name sysname null,
        additional_info xml null,
        start_time datetime not null,
        login_time datetime null,
        last_request_start_time datetime null,
        primary key clustered (session_id, request_id, recursion) with (ignore_dup_key = on),
        unique nonclustered (transaction_id, session_id, request_id, recursion) with (ignore_dup_key = on)
    );

    if @return_schema = 0
    begin;
        --disable unnecessary autostats on the table
        create statistics s_session_id on #sessions (session_id)
        with sample 0 rows, norecompute;
        create statistics s_request_id on #sessions (request_id)
        with sample 0 rows, norecompute;
        create statistics s_transaction_id on #sessions (transaction_id)
        with sample 0 rows, norecompute;
        create statistics s_session_number on #sessions (session_number)
        with sample 0 rows, norecompute;
        create statistics s_status on #sessions (status)
        with sample 0 rows, norecompute;
        create statistics s_start_time on #sessions (start_time)
        with sample 0 rows, norecompute;
        create statistics s_last_request_start_time on #sessions (last_request_start_time)
        with sample 0 rows, norecompute;
        create statistics s_recursion on #sessions (recursion)
        with sample 0 rows, norecompute;

        declare @recursion smallint;
        set @recursion = 
            case @delta_interval
                when 0 then 1
                else -1
            end;

        declare @first_collection_ms_ticks bigint;
        declare @last_collection_start datetime;

        --used for the delta pull
        redo:;
        
        if 
            @get_locks = 1 
            and @recursion = 1
            and @output_column_list like '%|[locks|]%' escape '|'
        begin;
            select
                y.resource_type,
                y.database_name,
                y.object_id,
                y.file_id,
                y.page_type,
                y.hobt_id,
                y.allocation_unit_id,
                y.index_id,
                y.schema_id,
                y.principal_id,
                y.request_mode,
                y.request_status,
                y.session_id,
                y.resource_description,
                y.request_count,
                s.request_id,
                s.start_time,
                convert(sysname, null) as object_name,
                convert(sysname, null) as index_name,
                convert(sysname, null) as schema_name,
                convert(sysname, null) as principal_name,
                convert(nvarchar(2048), null) as query_error
            into #locks
            from
            (
                select
                    sp.spid as session_id,
                    case sp.status
                        when 'sleeping' then convert(int, 0)
                        else sp.request_id
                    end as request_id,
                    case sp.status
                        when 'sleeping' then sp.last_batch
                        else coalesce(req.start_time, sp.last_batch)
                    end as start_time,
                    sp.dbid
                from sys.sysprocesses as sp
                outer apply
                (
                    select top(1)
                        case
                            when 
                            (
                                sp.hostprocess > ''
                                or r.total_elapsed_time < 0
                            ) then
                                r.start_time
                            else
                                dateadd
                                (
                                    ms, 
                                    1000 * (datepart(ms, dateadd(second, -(r.total_elapsed_time / 1000), getdate())) / 500) - datepart(ms, dateadd(second, -(r.total_elapsed_time / 1000), getdate())), 
                                    dateadd(second, -(r.total_elapsed_time / 1000), getdate())
                                )
                        end as start_time
                    from sys.dm_exec_requests as r
                    where
                        r.session_id = sp.spid
                        and r.request_id = sp.request_id
                ) as req
                where
                    --process inclusive filter
                    1 =
                        case
                            when @filter <> '' then
                                case @filter_type
                                    when 'session' then
                                        case
                                            when
                                                convert(smallint, @filter) = 0
                                                or sp.spid = convert(smallint, @filter)
                                                    then 1
                                            else 0
                                        end
                                    when 'program' then
                                        case
                                            when sp.program_name like @filter then 1
                                            else 0
                                        end
                                    when 'login' then
                                        case
                                            when sp.loginame like @filter then 1
                                            else 0
                                        end
                                    when 'host' then
                                        case
                                            when sp.hostname like @filter then 1
                                            else 0
                                        end
                                    when 'database' then
                                        case
                                            when db_name(sp.dbid) like @filter then 1
                                            else 0
                                        end
                                    else 0
                                end
                            else 1
                        end
                    --process exclusive filter
                    and 0 =
                        case
                            when @not_filter <> '' then
                                case @not_filter_type
                                    when 'session' then
                                        case
                                            when sp.spid = convert(smallint, @not_filter) then 1
                                            else 0
                                        end
                                    when 'program' then
                                        case
                                            when sp.program_name like @not_filter then 1
                                            else 0
                                        end
                                    when 'login' then
                                        case
                                            when sp.loginame like @not_filter then 1
                                            else 0
                                        end
                                    when 'host' then
                                        case
                                            when sp.hostname like @not_filter then 1
                                            else 0
                                        end
                                    when 'database' then
                                        case
                                            when db_name(sp.dbid) like @not_filter then 1
                                            else 0
                                        end
                                    else 0
                                end
                            else 0
                        end
                    and 
                    (
                        @show_own_spid = 1
                        or sp.spid <> @@spid
                    )
                    and 
                    (
                        @show_system_spids = 1
                        or sp.hostprocess > ''
                    )
                    and sp.ecid = 0
            ) as s
            inner hash join
            (
                select
                    x.resource_type,
                    x.database_name,
                    x.object_id,
                    x.file_id,
                    case
                        when x.page_no = 1 or x.page_no % 8088 = 0 then 'pfs'
                        when x.page_no = 2 or x.page_no % 511232 = 0 then 'gam'
                        when x.page_no = 3 or (x.page_no - 1) % 511232 = 0 then 'sgam'
                        when x.page_no = 6 or (x.page_no - 6) % 511232 = 0 then 'dcm'
                        when x.page_no = 7 or (x.page_no - 7) % 511232 = 0 then 'bcm'
                        when x.page_no is not null then '*'
                        else null
                    end as page_type,
                    x.hobt_id,
                    x.allocation_unit_id,
                    x.index_id,
                    x.schema_id,
                    x.principal_id,
                    x.request_mode,
                    x.request_status,
                    x.session_id,
                    x.request_id,
                    case
                        when coalesce(x.object_id, x.file_id, x.hobt_id, x.allocation_unit_id, x.index_id, x.schema_id, x.principal_id) is null then nullif(resource_description, '')
                        else null
                    end as resource_description,
                    count(*) as request_count
                from
                (
                    select
                        tl.resource_type +
                            case
                                when tl.resource_subtype = '' then ''
                                else '.' + tl.resource_subtype
                            end as resource_type,
                        coalesce(db_name(tl.resource_database_id), n'(null)') as database_name,
                        convert
                        (
                            int,
                            case
                                when tl.resource_type = 'object' then tl.resource_associated_entity_id
                                when tl.resource_description like '%object_id = %' then
                                    (
                                        substring
                                        (
                                            tl.resource_description, 
                                            (charindex('object_id = ', tl.resource_description) + 12), 
                                            coalesce
                                            (
                                                nullif
                                                (
                                                    charindex(',', tl.resource_description, charindex('object_id = ', tl.resource_description) + 12),
                                                    0
                                                ), 
                                                datalength(tl.resource_description)+1
                                            ) - (charindex('object_id = ', tl.resource_description) + 12)
                                        )
                                    )
                                else null
                            end
                        ) as object_id,
                        convert
                        (
                            int,
                            case 
                                when tl.resource_type = 'file' then convert(int, tl.resource_description)
                                when tl.resource_type in ('page', 'extent', 'rid') then left(tl.resource_description, charindex(':', tl.resource_description)-1)
                                else null
                            end
                        ) as file_id,
                        convert
                        (
                            int,
                            case
                                when tl.resource_type in ('page', 'extent', 'rid') then 
                                    substring
                                    (
                                        tl.resource_description, 
                                        charindex(':', tl.resource_description) + 1, 
                                        coalesce
                                        (
                                            nullif
                                            (
                                                charindex(':', tl.resource_description, charindex(':', tl.resource_description) + 1), 
                                                0
                                            ), 
                                            datalength(tl.resource_description)+1
                                        ) - (charindex(':', tl.resource_description) + 1)
                                    )
                                else null
                            end
                        ) as page_no,
                        case
                            when tl.resource_type in ('page', 'key', 'rid', 'hobt') then tl.resource_associated_entity_id
                            else null
                        end as hobt_id,
                        case
                            when tl.resource_type = 'allocation_unit' then tl.resource_associated_entity_id
                            else null
                        end as allocation_unit_id,
                        convert
                        (
                            int,
                            case
                                when
                                    /*todo: deal with server principals*/ 
                                    tl.resource_subtype <> 'server_principal' 
                                    and tl.resource_description like '%index_id or stats_id = %' then
                                    (
                                        substring
                                        (
                                            tl.resource_description, 
                                            (charindex('index_id or stats_id = ', tl.resource_description) + 23), 
                                            coalesce
                                            (
                                                nullif
                                                (
                                                    charindex(',', tl.resource_description, charindex('index_id or stats_id = ', tl.resource_description) + 23), 
                                                    0
                                                ), 
                                                datalength(tl.resource_description)+1
                                            ) - (charindex('index_id or stats_id = ', tl.resource_description) + 23)
                                        )
                                    )
                                else null
                            end 
                        ) as index_id,
                        convert
                        (
                            int,
                            case
                                when tl.resource_description like '%schema_id = %' then
                                    (
                                        substring
                                        (
                                            tl.resource_description, 
                                            (charindex('schema_id = ', tl.resource_description) + 12), 
                                            coalesce
                                            (
                                                nullif
                                                (
                                                    charindex(',', tl.resource_description, charindex('schema_id = ', tl.resource_description) + 12), 
                                                    0
                                                ), 
                                                datalength(tl.resource_description)+1
                                            ) - (charindex('schema_id = ', tl.resource_description) + 12)
                                        )
                                    )
                                else null
                            end 
                        ) as schema_id,
                        convert
                        (
                            int,
                            case
                                when tl.resource_description like '%principal_id = %' then
                                    (
                                        substring
                                        (
                                            tl.resource_description, 
                                            (charindex('principal_id = ', tl.resource_description) + 15), 
                                            coalesce
                                            (
                                                nullif
                                                (
                                                    charindex(',', tl.resource_description, charindex('principal_id = ', tl.resource_description) + 15), 
                                                    0
                                                ), 
                                                datalength(tl.resource_description)+1
                                            ) - (charindex('principal_id = ', tl.resource_description) + 15)
                                        )
                                    )
                                else null
                            end
                        ) as principal_id,
                        tl.request_mode,
                        tl.request_status,
                        tl.request_session_id as session_id,
                        tl.request_request_id as request_id,

                        /*todo: applocks, other resource_descriptions*/
                        rtrim(tl.resource_description) as resource_description,
                        tl.resource_associated_entity_id
                        /*********************************************/
                    from 
                    (
                        select 
                            request_session_id,
                            convert(varchar(120), resource_type) collate latin1_general_bin2 as resource_type,
                            convert(varchar(120), resource_subtype) collate latin1_general_bin2 as resource_subtype,
                            resource_database_id,
                            convert(varchar(512), resource_description) collate latin1_general_bin2 as resource_description,
                            resource_associated_entity_id,
                            convert(varchar(120), request_mode) collate latin1_general_bin2 as request_mode,
                            convert(varchar(120), request_status) collate latin1_general_bin2 as request_status,
                            request_request_id
                        from sys.dm_tran_locks
                    ) as tl
                ) as x
                group by
                    x.resource_type,
                    x.database_name,
                    x.object_id,
                    x.file_id,
                    case
                        when x.page_no = 1 or x.page_no % 8088 = 0 then 'pfs'
                        when x.page_no = 2 or x.page_no % 511232 = 0 then 'gam'
                        when x.page_no = 3 or (x.page_no - 1) % 511232 = 0 then 'sgam'
                        when x.page_no = 6 or (x.page_no - 6) % 511232 = 0 then 'dcm'
                        when x.page_no = 7 or (x.page_no - 7) % 511232 = 0 then 'bcm'
                        when x.page_no is not null then '*'
                        else null
                    end,
                    x.hobt_id,
                    x.allocation_unit_id,
                    x.index_id,
                    x.schema_id,
                    x.principal_id,
                    x.request_mode,
                    x.request_status,
                    x.session_id,
                    x.request_id,
                    case
                        when coalesce(x.object_id, x.file_id, x.hobt_id, x.allocation_unit_id, x.index_id, x.schema_id, x.principal_id) is null then nullif(resource_description, '')
                        else null
                    end
            ) as y on
                y.session_id = s.session_id
                and y.request_id = s.request_id
            option (hash group);

            --disable unnecessary autostats on the table
            create statistics s_database_name on #locks (database_name)
            with sample 0 rows, norecompute;
            create statistics s_object_id on #locks (object_id)
            with sample 0 rows, norecompute;
            create statistics s_hobt_id on #locks (hobt_id)
            with sample 0 rows, norecompute;
            create statistics s_allocation_unit_id on #locks (allocation_unit_id)
            with sample 0 rows, norecompute;
            create statistics s_index_id on #locks (index_id)
            with sample 0 rows, norecompute;
            create statistics s_schema_id on #locks (schema_id)
            with sample 0 rows, norecompute;
            create statistics s_principal_id on #locks (principal_id)
            with sample 0 rows, norecompute;
            create statistics s_request_id on #locks (request_id)
            with sample 0 rows, norecompute;
            create statistics s_start_time on #locks (start_time)
            with sample 0 rows, norecompute;
            create statistics s_resource_type on #locks (resource_type)
            with sample 0 rows, norecompute;
            create statistics s_object_name on #locks (object_name)
            with sample 0 rows, norecompute;
            create statistics s_schema_name on #locks (schema_name)
            with sample 0 rows, norecompute;
            create statistics s_page_type on #locks (page_type)
            with sample 0 rows, norecompute;
            create statistics s_request_mode on #locks (request_mode)
            with sample 0 rows, norecompute;
            create statistics s_request_status on #locks (request_status)
            with sample 0 rows, norecompute;
            create statistics s_resource_description on #locks (resource_description)
            with sample 0 rows, norecompute;
            create statistics s_index_name on #locks (index_name)
            with sample 0 rows, norecompute;
            create statistics s_principal_name on #locks (principal_name)
            with sample 0 rows, norecompute;
        end;
        
        declare 
            @sql varchar(max), 
            @sql_n nvarchar(max);

        set @sql = 
            convert(varchar(max), '') +
            'declare @blocker bit;
            set @blocker = 0;
            declare @i int;
            set @i = 2147483647;

            declare @sessions table
            (
                session_id smallint not null,
                request_id int not null,
                login_time datetime,
                last_request_end_time datetime,
                status varchar(30),
                statement_start_offset int,
                statement_end_offset int,
                sql_handle binary(20),
                host_name nvarchar(128),
                login_name nvarchar(128),
                program_name nvarchar(128),
                database_id smallint,
                memory_usage int,
                open_tran_count smallint, 
                ' +
                case
                    when 
                    (
                        @get_task_info <> 0 
                        or @find_block_leaders = 1 
                    ) then
                        'wait_type nvarchar(32),
                        wait_resource nvarchar(256),
                        wait_time bigint, 
                        '
                    else 
                        ''
                end +
                'blocked smallint,
                is_user_process bit,
                cmd varchar(32),
                primary key clustered (session_id, request_id) with (ignore_dup_key = on)
            );

            declare @blockers table
            (
                session_id int not null primary key with (ignore_dup_key = on)
            );

            blockers:;

            insert @sessions
            (
                session_id,
                request_id,
                login_time,
                last_request_end_time,
                status,
                statement_start_offset,
                statement_end_offset,
                sql_handle,
                host_name,
                login_name,
                program_name,
                database_id,
                memory_usage,
                open_tran_count, 
                ' +
                case
                    when 
                    (
                        @get_task_info <> 0
                        or @find_block_leaders = 1 
                    ) then
                        'wait_type,
                        wait_resource,
                        wait_time, 
                        '
                    else
                        ''
                end +
                'blocked,
                is_user_process,
                cmd 
            )
            select top(@i)
                spy.session_id,
                spy.request_id,
                spy.login_time,
                spy.last_request_end_time,
                spy.status,
                spy.statement_start_offset,
                spy.statement_end_offset,
                spy.sql_handle,
                spy.host_name,
                spy.login_name,
                spy.program_name,
                spy.database_id,
                spy.memory_usage,
                spy.open_tran_count,
                ' +
                case
                    when 
                    (
                        @get_task_info <> 0  
                        or @find_block_leaders = 1 
                    ) then
                        'spy.wait_type,
                        case
                            when
                                spy.wait_type like n''page%latch_%''
                                or spy.wait_type = n''cxpacket''
                                or spy.wait_type like n''latch[_]%''
                                or spy.wait_type = n''oledb'' then
                                    spy.wait_resource
                            else
                                null
                        end as wait_resource,
                        spy.wait_time, 
                        '
                    else
                        ''
                end +
                'spy.blocked,
                spy.is_user_process,
                spy.cmd
            from
            (
                select top(@i)
                    spx.*, 
                    ' +
                    case
                        when 
                        (
                            @get_task_info <> 0 
                            or @find_block_leaders = 1 
                        ) then
                            'row_number() over
                            (
                                partition by
                                    spx.session_id,
                                    spx.request_id
                                order by
                                    case
                                        when spx.wait_type like n''lck[_]%'' then 
                                            1
                                        else
                                            99
                                    end,
                                    spx.wait_time desc,
                                    spx.blocked desc
                            ) as r 
                            '
                        else 
                            '1 as r 
                            '
                    end +
                'from
                (
                    select top(@i)
                        sp0.session_id,
                        sp0.request_id,
                        sp0.login_time,
                        sp0.last_request_end_time,
                        lower(sp0.status) as status,
                        case
                            when sp0.cmd = ''create index'' then
                                0
                            else
                                sp0.stmt_start
                        end as statement_start_offset,
                        case
                            when sp0.cmd = n''create index'' then
                                -1
                            else
                                coalesce(nullif(sp0.stmt_end, 0), -1)
                        end as statement_end_offset,
                        sp0.sql_handle,
                        sp0.host_name,
                        sp0.login_name,
                        sp0.program_name,
                        sp0.database_id,
                        sp0.memory_usage,
                        sp0.open_tran_count, 
                        ' +
                        case
                            when 
                            (
                                @get_task_info <> 0 
                                or @find_block_leaders = 1 
                            ) then
                                'case
                                    when sp0.wait_time > 0 and sp0.wait_type <> n''cxpacket'' then
                                        sp0.wait_type
                                    else
                                        null
                                end as wait_type,
                                case
                                    when sp0.wait_time > 0 and sp0.wait_type <> n''cxpacket'' then 
                                        sp0.wait_resource
                                    else
                                        null
                                end as wait_resource,
                                case
                                    when sp0.wait_type <> n''cxpacket'' then
                                        sp0.wait_time
                                    else
                                        0
                                end as wait_time, 
                                '
                            else
                                ''
                        end +
                        'sp0.blocked,
                        sp0.is_user_process,
                        sp0.cmd
                    from
                    (
                        select top(@i)
                            sp1.session_id,
                            sp1.request_id,
                            sp1.login_time,
                            sp1.last_request_end_time,
                            sp1.status,
                            sp1.cmd,
                            sp1.stmt_start,
                            sp1.stmt_end,
                            max(nullif(sp1.sql_handle, 0x00)) over (partition by sp1.session_id, sp1.request_id) as sql_handle,
                            sp1.host_name,
                            max(sp1.login_name) over (partition by sp1.session_id, sp1.request_id) as login_name,
                            sp1.program_name,
                            sp1.database_id,
                            max(sp1.memory_usage)  over (partition by sp1.session_id, sp1.request_id) as memory_usage,
                            max(sp1.open_tran_count)  over (partition by sp1.session_id, sp1.request_id) as open_tran_count,
                            sp1.wait_type,
                            sp1.wait_resource,
                            sp1.wait_time,
                            sp1.blocked,
                            sp1.hostprocess,
                            sp1.is_user_process
                        from
                        (
                            select top(@i)
                                sp2.spid as session_id,
                                case sp2.status
                                    when ''sleeping'' then
                                        convert(int, 0)
                                    else
                                        sp2.request_id
                                end as request_id,
                                max(sp2.login_time) as login_time,
                                max(sp2.last_batch) as last_request_end_time,
                                max(convert(varchar(30), rtrim(sp2.status)) collate latin1_general_bin2) as status,
                                max(convert(varchar(32), rtrim(sp2.cmd)) collate latin1_general_bin2) as cmd,
                                max(sp2.stmt_start) as stmt_start,
                                max(sp2.stmt_end) as stmt_end,
                                max(sp2.sql_handle) as sql_handle,
                                max(convert(sysname, rtrim(sp2.hostname)) collate sql_latin1_general_cp1_ci_as) as host_name,
                                max(convert(sysname, rtrim(sp2.loginame)) collate sql_latin1_general_cp1_ci_as) as login_name,
                                max
                                (
                                    case
                                        when blk.queue_id is not null then
                                            n''service broker
                                                database_id: '' + convert(nvarchar, blk.database_id) +
                                                n'' queue_id: '' + convert(nvarchar, blk.queue_id)
                                        else
                                            convert
                                            (
                                                sysname,
                                                rtrim(sp2.program_name)
                                            )
                                    end collate sql_latin1_general_cp1_ci_as
                                ) as program_name,
                                max(sp2.dbid) as database_id,
                                max(sp2.memusage) as memory_usage,
                                max(sp2.open_tran) as open_tran_count,
                                rtrim(sp2.lastwaittype) as wait_type,
                                rtrim(sp2.waitresource) as wait_resource,
                                max(sp2.waittime) as wait_time,
                                coalesce(nullif(sp2.blocked, sp2.spid), 0) as blocked,
                                max
                                (
                                    case
                                        when blk.session_id = sp2.spid then
                                            ''blocker''
                                        else
                                            rtrim(sp2.hostprocess)
                                    end
                                ) as hostprocess,
                                convert
                                (
                                    bit,
                                    max
                                    (
                                        case
                                            when sp2.hostprocess > '''' then
                                                1
                                            else
                                                0
                                        end
                                    )
                                ) as is_user_process
                            from
                            (
                                select top(@i)
                                    session_id,
                                    convert(int, null) as queue_id,
                                    convert(int, null) as database_id
                                from @blockers

                                union all

                                select top(@i)
                                    convert(smallint, 0),
                                    convert(int, null) as queue_id,
                                    convert(int, null) as database_id
                                where
                                    @blocker = 0

                                union all

                                select top(@i)
                                    convert(smallint, spid),
                                    queue_id,
                                    database_id
                                from sys.dm_broker_activated_tasks
                                where
                                    @blocker = 0
                            ) as blk
                            inner join sys.sysprocesses as sp2 on
                                sp2.spid = blk.session_id
                                or
                                (
                                    blk.session_id = 0
                                    and @blocker = 0
                                )
                            ' +
                            case 
                                when 
                                (
                                    @get_task_info = 0 
                                    and @find_block_leaders = 0
                                ) then
                                    'where
                                        sp2.ecid = 0 
                                    ' 
                                else
                                    ''
                            end +
                            'group by
                                sp2.spid,
                                case sp2.status
                                    when ''sleeping'' then
                                        convert(int, 0)
                                    else
                                        sp2.request_id
                                end,
                                rtrim(sp2.lastwaittype),
                                rtrim(sp2.waitresource),
                                coalesce(nullif(sp2.blocked, sp2.spid), 0)
                        ) as sp1
                    ) as sp0
                    where
                        @blocker = 1
                        or
                        (1=1 
                        ' +
                            --inclusive filter
                            case
                                when @filter <> '' then
                                    case @filter_type
                                        when 'session' then
                                            case
                                                when convert(smallint, @filter) <> 0 then
                                                    'and sp0.session_id = convert(smallint, @filter) 
                                                    '
                                                else
                                                    ''
                                            end
                                        when 'program' then
                                            'and sp0.program_name like @filter 
                                            '
                                        when 'login' then
                                            'and sp0.login_name like @filter 
                                            '
                                        when 'host' then
                                            'and sp0.host_name like @filter 
                                            '
                                        when 'database' then
                                            'and db_name(sp0.database_id) like @filter 
                                            '
                                        else
                                            ''
                                    end
                                else
                                    ''
                            end +
                            --exclusive filter
                            case
                                when @not_filter <> '' then
                                    case @not_filter_type
                                        when 'session' then
                                            case
                                                when convert(smallint, @not_filter) <> 0 then
                                                    'and sp0.session_id <> convert(smallint, @not_filter) 
                                                    '
                                                else
                                                    ''
                                            end
                                        when 'program' then
                                            'and sp0.program_name not like @not_filter 
                                            '
                                        when 'login' then
                                            'and sp0.login_name not like @not_filter 
                                            '
                                        when 'host' then
                                            'and sp0.host_name not like @not_filter 
                                            '
                                        when 'database' then
                                            'and db_name(sp0.database_id) not like @not_filter 
                                            '
                                        else
                                            ''
                                    end
                                else
                                    ''
                            end +
                            case @show_own_spid
                                when 1 then
                                    ''
                                else
                                    'and sp0.session_id <> @@spid 
                                    '
                            end +
                            case 
                                when @show_system_spids = 0 then
                                    'and sp0.hostprocess > '''' 
                                    ' 
                                else
                                    ''
                            end +
                            case @show_sleeping_spids
                                when 0 then
                                    'and sp0.status <> ''sleeping'' 
                                    '
                                when 1 then
                                    'and
                                    (
                                        sp0.status <> ''sleeping''
                                        or sp0.open_tran_count > 0
                                    )
                                    '
                                else
                                    ''
                            end +
                        ')
                ) as spx
            ) as spy
            where
                spy.r = 1; 
            ' + 
            case @recursion
                when 1 then 
                    'if @@rowcount > 0
                    begin;
                        insert @blockers
                        (
                            session_id
                        )
                        select top(@i)
                            blocked
                        from @sessions
                        where
                            nullif(blocked, 0) is not null

                        except

                        select top(@i)
                            session_id
                        from @sessions; 
                        ' +

                        case
                            when
                            (
                                @get_task_info > 0
                                or @find_block_leaders = 1
                            ) then
                                'if @@rowcount > 0
                                begin;
                                    set @blocker = 1;
                                    goto blockers;
                                end; 
                                '
                            else 
                                ''
                        end +
                    'end; 
                    '
                else 
                    ''
            end +
            'select top(@i)
                @recursion as recursion,
                x.session_id,
                x.request_id,
                dense_rank() over
                (
                    order by
                        x.session_id
                ) as session_number,
                ' +
                case
                    when @output_column_list like '%|[dd hh:mm:ss.mss|]%' escape '|' then 
                        'x.elapsed_time '
                    else 
                        '0 '
                end + 
                    'as elapsed_time, 
                    ' +
                case
                    when
                        (
                            @output_column_list like '%|[dd hh:mm:ss.mss (avg)|]%' escape '|' or 
                            @output_column_list like '%|[avg_elapsed_time|]%' escape '|'
                        )
                        and @recursion = 1
                            then 
                                'x.avg_elapsed_time / 1000 '
                    else 
                        'null '
                end + 
                    'as avg_elapsed_time, 
                    ' +
                case
                    when 
                        @output_column_list like '%|[physical_io|]%' escape '|'
                        or @output_column_list like '%|[physical_io_delta|]%' escape '|'
                            then 
                                'x.physical_io '
                    else 
                        'null '
                end + 
                    'as physical_io, 
                    ' +
                case
                    when 
                        @output_column_list like '%|[reads|]%' escape '|'
                        or @output_column_list like '%|[reads_delta|]%' escape '|'
                            then 
                                'x.reads '
                    else 
                        '0 '
                end + 
                    'as reads, 
                    ' +
                case
                    when 
                        @output_column_list like '%|[physical_reads|]%' escape '|'
                        or @output_column_list like '%|[physical_reads_delta|]%' escape '|'
                            then 
                                'x.physical_reads '
                    else 
                        '0 '
                end + 
                    'as physical_reads, 
                    ' +
                case
                    when 
                        @output_column_list like '%|[writes|]%' escape '|'
                        or @output_column_list like '%|[writes_delta|]%' escape '|'
                            then 
                                'x.writes '
                    else 
                        '0 '
                end + 
                    'as writes, 
                    ' +
                case
                    when 
                        @output_column_list like '%|[tempdb_allocations|]%' escape '|'
                        or @output_column_list like '%|[tempdb_allocations_delta|]%' escape '|'
                            then 
                                'x.tempdb_allocations '
                    else 
                        '0 '
                end + 
                    'as tempdb_allocations, 
                    ' +
                case
                    when 
                        @output_column_list like '%|[tempdb_current|]%' escape '|'
                        or @output_column_list like '%|[tempdb_current_delta|]%' escape '|'
                            then 
                                'x.tempdb_current '
                    else 
                        '0 '
                end + 
                    'as tempdb_current, 
                    ' +
                case
                    when 
                        @output_column_list like '%|[cpu|]%' escape '|'
                        or @output_column_list like '%|[cpu_delta|]%' escape '|'
                            then
                                'x.cpu '
                    else
                        '0 '
                end + 
                    'as cpu, 
                    ' +
                case
                    when 
                        @output_column_list like '%|[cpu_delta|]%' escape '|'
                        and @get_task_info = 2
                            then 
                                'x.thread_cpu_snapshot '
                    else 
                        '0 '
                end + 
                    'as thread_cpu_snapshot, 
                    ' +
                case
                    when 
                        @output_column_list like '%|[context_switches|]%' escape '|'
                        or @output_column_list like '%|[context_switches_delta|]%' escape '|'
                            then 
                                'x.context_switches '
                    else 
                        'null '
                end + 
                    'as context_switches, 
                    ' +
                case
                    when 
                        @output_column_list like '%|[used_memory|]%' escape '|'
                        or @output_column_list like '%|[used_memory_delta|]%' escape '|'
                            then 
                                'x.used_memory '
                    else 
                        '0 '
                end + 
                    'as used_memory, 
                    ' +
                case
                    when 
                        @output_column_list like '%|[tasks|]%' escape '|'
                        and @recursion = 1
                            then 
                                'x.tasks '
                    else 
                        'null '
                end + 
                    'as tasks, 
                    ' +
                case
                    when 
                        (
                            @output_column_list like '%|[status|]%' escape '|' 
                            or @output_column_list like '%|[sql_command|]%' escape '|'
                        )
                        and @recursion = 1
                            then 
                                'x.status '
                    else 
                        ''''' '
                end + 
                    'as status, 
                    ' +
                case
                    when 
                        @output_column_list like '%|[wait_info|]%' escape '|' 
                        and @recursion = 1
                            then 
                                case @get_task_info
                                    when 2 then
                                        'coalesce(x.task_wait_info, x.sys_wait_info) '
                                    else
                                        'x.sys_wait_info '
                                end
                    else 
                        'null '
                end + 
                    'as wait_info, 
                    ' +
                case
                    when 
                        (
                            @output_column_list like '%|[tran_start_time|]%' escape '|' 
                            or @output_column_list like '%|[tran_log_writes|]%' escape '|' 
                        )
                        and @recursion = 1
                            then 
                                'x.transaction_id '
                    else 
                        'null '
                end + 
                    'as transaction_id, 
                    ' +
                case
                    when 
                        @output_column_list like '%|[open_tran_count|]%' escape '|' 
                        and @recursion = 1
                            then 
                                'x.open_tran_count '
                    else 
                        'null '
                end + 
                    'as open_tran_count, 
                    ' +
                case
                    when 
                        @output_column_list like '%|[sql_text|]%' escape '|' 
                        and @recursion = 1
                            then 
                                'x.sql_handle '
                    else 
                        'null '
                end + 
                    'as sql_handle, 
                    ' +
                case
                    when 
                        (
                            @output_column_list like '%|[sql_text|]%' escape '|' 
                            or @output_column_list like '%|[query_plan|]%' escape '|' 
                        )
                        and @recursion = 1
                            then 
                                'x.statement_start_offset '
                    else 
                        'null '
                end + 
                    'as statement_start_offset, 
                    ' +
                case
                    when 
                        (
                            @output_column_list like '%|[sql_text|]%' escape '|' 
                            or @output_column_list like '%|[query_plan|]%' escape '|' 
                        )
                        and @recursion = 1
                            then 
                                'x.statement_end_offset '
                    else 
                        'null '
                end + 
                    'as statement_end_offset, 
                    ' +
                'null as sql_text, 
                    ' +
                case
                    when 
                        @output_column_list like '%|[query_plan|]%' escape '|' 
                        and @recursion = 1
                            then 
                                'x.plan_handle '
                    else 
                        'null '
                end + 
                    'as plan_handle, 
                    ' +
                case
                    when 
                        @output_column_list like '%|[blocking_session_id|]%' escape '|' 
                        and @recursion = 1
                            then 
                                'nullif(x.blocking_session_id, 0) '
                    else 
                        'null '
                end + 
                    'as blocking_session_id, 
                    ' +
                case
                    when 
                        @output_column_list like '%|[percent_complete|]%' escape '|'
                        and @recursion = 1
                            then 
                                'x.percent_complete '
                    else 
                        'null '
                end + 
                    'as percent_complete, 
                    ' +
                case
                    when 
                        @output_column_list like '%|[host_name|]%' escape '|' 
                        and @recursion = 1
                            then 
                                'x.host_name '
                    else 
                        ''''' '
                end + 
                    'as host_name, 
                    ' +
                case
                    when 
                        @output_column_list like '%|[login_name|]%' escape '|' 
                        and @recursion = 1
                            then 
                                'x.login_name '
                    else 
                        ''''' '
                end + 
                    'as login_name, 
                    ' +
                case
                    when 
                        @output_column_list like '%|[database_name|]%' escape '|' 
                        and @recursion = 1
                            then 
                                'db_name(x.database_id) '
                    else 
                        'null '
                end + 
                    'as database_name, 
                    ' +
                case
                    when 
                        @output_column_list like '%|[program_name|]%' escape '|' 
                        and @recursion = 1
                            then 
                                'x.program_name '
                    else 
                        ''''' '
                end + 
                    'as program_name, 
                    ' +
                case
                    when
                        @output_column_list like '%|[additional_info|]%' escape '|'
                        and @recursion = 1
                            then
                                '(
                                    select top(@i)
                                        x.text_size,
                                        x.language,
                                        x.date_format,
                                        x.date_first,
                                        case x.quoted_identifier
                                            when 0 then ''off''
                                            when 1 then ''on''
                                        end as quoted_identifier,
                                        case x.arithabort
                                            when 0 then ''off''
                                            when 1 then ''on''
                                        end as arithabort,
                                        case x.ansi_null_dflt_on
                                            when 0 then ''off''
                                            when 1 then ''on''
                                        end as ansi_null_dflt_on,
                                        case x.ansi_defaults
                                            when 0 then ''off''
                                            when 1 then ''on''
                                        end as ansi_defaults,
                                        case x.ansi_warnings
                                            when 0 then ''off''
                                            when 1 then ''on''
                                        end as ansi_warnings,
                                        case x.ansi_padding
                                            when 0 then ''off''
                                            when 1 then ''on''
                                        end as ansi_padding,
                                        case ansi_nulls
                                            when 0 then ''off''
                                            when 1 then ''on''
                                        end as ansi_nulls,
                                        case x.concat_null_yields_null
                                            when 0 then ''off''
                                            when 1 then ''on''
                                        end as concat_null_yields_null,
                                        case x.transaction_isolation_level
                                            when 0 then ''unspecified''
                                            when 1 then ''readuncomitted''
                                            when 2 then ''readcommitted''
                                            when 3 then ''repeatable''
                                            when 4 then ''serializable''
                                            when 5 then ''snapshot''
                                        end as transaction_isolation_level,
                                        x.lock_timeout,
                                        x.deadlock_priority,
                                        x.row_count,
                                        x.command_type, 
                                        master.dbo.fn_varbintohexstr(x.sql_handle) as sql_handle,
                                        master.dbo.fn_varbintohexstr(x.plan_handle) as plan_handle,
                                        ' +
                                        case
                                            when @output_column_list like '%|[program_name|]%' escape '|' then
                                                '(
                                                    select top(1)
                                                        convert(uniqueidentifier, convert(xml, '''').value(''xs:hexbinary( substring(sql:column("agent_info.job_id_string"), 0) )'', ''binary(16)'')) as job_id,
                                                        agent_info.step_id,
                                                        (
                                                            select top(1)
                                                                null
                                                            for xml
                                                                path(''job_name''),
                                                                type
                                                        ),
                                                        (
                                                            select top(1)
                                                                null
                                                            for xml
                                                                path(''step_name''),
                                                                type
                                                        )
                                                    from
                                                    (
                                                        select top(1)
                                                            substring(x.program_name, charindex(''0x'', x.program_name) + 2, 32) as job_id_string,
                                                            substring(x.program_name, charindex('': step '', x.program_name) + 7, charindex('')'', x.program_name, charindex('': step '', x.program_name)) - (charindex('': step '', x.program_name) + 7)) as step_id
                                                        where
                                                            x.program_name like n''sqlagent - tsql jobstep (job 0x%''
                                                    ) as agent_info
                                                    for xml
                                                        path(''agent_job_info''),
                                                        type
                                                ),
                                                '
                                            else ''
                                        end +
                                        case
                                            when @get_task_info = 2 then
                                                'convert(xml, x.block_info) as block_info, 
                                                '
                                            else
                                                ''
                                        end +
                                        'x.host_process_id 
                                    for xml
                                        path(''additional_info''),
                                        type
                                ) '
                    else
                        'null '
                end + 
                    'as additional_info, 
                x.start_time, 
                    ' +
                case
                    when
                        @output_column_list like '%|[login_time|]%' escape '|'
                        and @recursion = 1
                            then
                                'x.login_time '
                    else 
                        'null '
                end + 
                    'as login_time, 
                x.last_request_start_time
            from
            (
                select top(@i)
                    y.*,
                    case
                        when datediff(hour, y.start_time, getdate()) > 576 then
                            datediff(second, getdate(), y.start_time)
                        else datediff(ms, y.start_time, getdate())
                    end as elapsed_time,
                    coalesce(tempdb_info.tempdb_allocations, 0) as tempdb_allocations,
                    coalesce
                    (
                        case
                            when tempdb_info.tempdb_current < 0 then 0
                            else tempdb_info.tempdb_current
                        end,
                        0
                    ) as tempdb_current, 
                    ' +
                    case
                        when 
                            (
                                @get_task_info <> 0
                                or @find_block_leaders = 1
                            ) then
                                'n''('' + convert(nvarchar, y.wait_duration_ms) + n''ms)'' +
                                    y.wait_type +
                                        case
                                            when y.wait_type like n''page%latch_%'' then
                                                n'':'' +
                                                coalesce(db_name(convert(int, left(y.resource_description, charindex(n'':'', y.resource_description) - 1))), n''(null)'') +
                                                n'':'' +
                                                substring(y.resource_description, charindex(n'':'', y.resource_description) + 1, len(y.resource_description) - charindex(n'':'', reverse(y.resource_description)) - charindex(n'':'', y.resource_description)) +
                                                n''('' +
                                                    case
                                                        when
                                                            convert(int, right(y.resource_description, charindex(n'':'', reverse(y.resource_description)) - 1)) = 1 or
                                                            convert(int, right(y.resource_description, charindex(n'':'', reverse(y.resource_description)) - 1)) % 8088 = 0
                                                                then 
                                                                    n''pfs''
                                                        when
                                                            convert(int, right(y.resource_description, charindex(n'':'', reverse(y.resource_description)) - 1)) = 2 or
                                                            convert(int, right(y.resource_description, charindex(n'':'', reverse(y.resource_description)) - 1)) % 511232 = 0
                                                                then 
                                                                    n''gam''
                                                        when
                                                            convert(int, right(y.resource_description, charindex(n'':'', reverse(y.resource_description)) - 1)) = 3 or
                                                            (convert(int, right(y.resource_description, charindex(n'':'', reverse(y.resource_description)) - 1)) - 1) % 511232 = 0
                                                                then
                                                                    n''sgam''
                                                        when
                                                            convert(int, right(y.resource_description, charindex(n'':'', reverse(y.resource_description)) - 1)) = 6 or
                                                            (convert(int, right(y.resource_description, charindex(n'':'', reverse(y.resource_description)) - 1)) - 6) % 511232 = 0 
                                                                then 
                                                                    n''dcm''
                                                        when
                                                            convert(int, right(y.resource_description, charindex(n'':'', reverse(y.resource_description)) - 1)) = 7 or
                                                            (convert(int, right(y.resource_description, charindex(n'':'', reverse(y.resource_description)) - 1)) - 7) % 511232 = 0 
                                                                then 
                                                                    n''bcm''
                                                        else 
                                                            n''*''
                                                    end +
                                                n'')''
                                            when y.wait_type = n''cxpacket'' then
                                                n'':'' + substring(y.resource_description, charindex(n''nodeid'', y.resource_description) + 7, 4)
                                            when y.wait_type like n''latch[_]%'' then
                                                n'' ['' + left(y.resource_description, coalesce(nullif(charindex(n'' '', y.resource_description), 0), len(y.resource_description) + 1) - 1) + n'']''
                                            when
                                                y.wait_type = n''oledb''
                                                and y.resource_description like n''%(spid=%)'' then
                                                    n''['' + left(y.resource_description, charindex(n''(spid='', y.resource_description) - 2) +
                                                        n'':'' + substring(y.resource_description, charindex(n''(spid='', y.resource_description) + 6, charindex(n'')'', y.resource_description, (charindex(n''(spid='', y.resource_description) + 6)) - (charindex(n''(spid='', y.resource_description) + 6)) + '']''
                                            else
                                                n''''
                                        end collate latin1_general_bin2 as sys_wait_info, 
                                        '
                            else
                                ''
                        end +
                        case
                            when @get_task_info = 2 then
                                'tasks.physical_io,
                                tasks.context_switches,
                                tasks.tasks,
                                tasks.block_info,
                                tasks.wait_info as task_wait_info,
                                tasks.thread_cpu_snapshot,
                                '
                            else
                                '' 
                    end +
                    case 
                        when not (@get_avg_time = 1 and @recursion = 1) then
                            'convert(int, null) '
                        else 
                            'qs.total_elapsed_time / qs.execution_count '
                    end + 
                        'as avg_elapsed_time 
                from
                (
                    select top(@i)
                        sp.session_id,
                        sp.request_id,
                        coalesce(r.logical_reads, s.logical_reads) as reads,
                        coalesce(r.reads, s.reads) as physical_reads,
                        coalesce(r.writes, s.writes) as writes,
                        coalesce(r.cpu_time, s.cpu_time) as cpu,
                        sp.memory_usage + coalesce(r.granted_query_memory, 0) as used_memory,
                        lower(sp.status) as status,
                        coalesce(r.sql_handle, sp.sql_handle) as sql_handle,
                        coalesce(r.statement_start_offset, sp.statement_start_offset) as statement_start_offset,
                        coalesce(r.statement_end_offset, sp.statement_end_offset) as statement_end_offset,
                        ' +
                        case
                            when 
                            (
                                @get_task_info <> 0
                                or @find_block_leaders = 1 
                            ) then
                                'sp.wait_type collate latin1_general_bin2 as wait_type,
                                sp.wait_resource collate latin1_general_bin2 as resource_description,
                                sp.wait_time as wait_duration_ms, 
                                '
                            else
                                ''
                        end +
                        'nullif(sp.blocked, 0) as blocking_session_id,
                        r.plan_handle,
                        nullif(r.percent_complete, 0) as percent_complete,
                        sp.host_name,
                        sp.login_name,
                        sp.program_name,
                        s.host_process_id,
                        coalesce(r.text_size, s.text_size) as text_size,
                        coalesce(r.language, s.language) as language,
                        coalesce(r.date_format, s.date_format) as date_format,
                        coalesce(r.date_first, s.date_first) as date_first,
                        coalesce(r.quoted_identifier, s.quoted_identifier) as quoted_identifier,
                        coalesce(r.arithabort, s.arithabort) as arithabort,
                        coalesce(r.ansi_null_dflt_on, s.ansi_null_dflt_on) as ansi_null_dflt_on,
                        coalesce(r.ansi_defaults, s.ansi_defaults) as ansi_defaults,
                        coalesce(r.ansi_warnings, s.ansi_warnings) as ansi_warnings,
                        coalesce(r.ansi_padding, s.ansi_padding) as ansi_padding,
                        coalesce(r.ansi_nulls, s.ansi_nulls) as ansi_nulls,
                        coalesce(r.concat_null_yields_null, s.concat_null_yields_null) as concat_null_yields_null,
                        coalesce(r.transaction_isolation_level, s.transaction_isolation_level) as transaction_isolation_level,
                        coalesce(r.lock_timeout, s.lock_timeout) as lock_timeout,
                        coalesce(r.deadlock_priority, s.deadlock_priority) as deadlock_priority,
                        coalesce(r.row_count, s.row_count) as row_count,
                        coalesce(r.command, sp.cmd) as command_type,
                        coalesce
                        (
                            case
                                when
                                (
                                    s.is_user_process = 0
                                    and r.total_elapsed_time >= 0
                                ) then
                                    dateadd
                                    (
                                        ms,
                                        1000 * (datepart(ms, dateadd(second, -(r.total_elapsed_time / 1000), getdate())) / 500) - datepart(ms, dateadd(second, -(r.total_elapsed_time / 1000), getdate())),
                                        dateadd(second, -(r.total_elapsed_time / 1000), getdate())
                                    )
                            end,
                            nullif(coalesce(r.start_time, sp.last_request_end_time), convert(datetime, ''19000101'', 112)),
                            (
                                select top(1)
                                    dateadd(second, -(ms_ticks / 1000), getdate())
                                from sys.dm_os_sys_info
                            )
                        ) as start_time,
                        sp.login_time,
                        case
                            when s.is_user_process = 1 then
                                s.last_request_start_time
                            else
                                coalesce
                                (
                                    dateadd
                                    (
                                        ms,
                                        1000 * (datepart(ms, dateadd(second, -(r.total_elapsed_time / 1000), getdate())) / 500) - datepart(ms, dateadd(second, -(r.total_elapsed_time / 1000), getdate())),
                                        dateadd(second, -(r.total_elapsed_time / 1000), getdate())
                                    ),
                                    s.last_request_start_time
                                )
                        end as last_request_start_time,
                        r.transaction_id,
                        sp.database_id,
                        sp.open_tran_count
                    from @sessions as sp
                    left outer loop join sys.dm_exec_sessions as s on
                        s.session_id = sp.session_id
                        and s.login_time = sp.login_time
                    left outer loop join sys.dm_exec_requests as r on
                        sp.status <> ''sleeping''
                        and r.session_id = sp.session_id
                        and r.request_id = sp.request_id
                        and
                        (
                            (
                                s.is_user_process = 0
                                and sp.is_user_process = 0
                            )
                            or
                            (
                                r.start_time = s.last_request_start_time
                                and s.last_request_end_time <= sp.last_request_end_time
                            )
                        )
                ) as y
                ' + 
                case 
                    when @get_task_info = 2 then
                        convert(varchar(max), '') +
                        'left outer hash join
                        (
                            select top(@i)
                                task_nodes.task_node.value(''(session_id/text())[1]'', ''smallint'') as session_id,
                                task_nodes.task_node.value(''(request_id/text())[1]'', ''int'') as request_id,
                                task_nodes.task_node.value(''(physical_io/text())[1]'', ''bigint'') as physical_io,
                                task_nodes.task_node.value(''(context_switches/text())[1]'', ''bigint'') as context_switches,
                                task_nodes.task_node.value(''(tasks/text())[1]'', ''int'') as tasks,
                                task_nodes.task_node.value(''(block_info/text())[1]'', ''nvarchar(4000)'') as block_info,
                                task_nodes.task_node.value(''(waits/text())[1]'', ''nvarchar(4000)'') as wait_info,
                                task_nodes.task_node.value(''(thread_cpu_snapshot/text())[1]'', ''bigint'') as thread_cpu_snapshot
                            from
                            (
                                select top(@i)
                                    convert
                                    (
                                        xml,
                                        replace
                                        (
                                            convert(nvarchar(max), tasks_raw.task_xml_raw) collate latin1_general_bin2,
                                            n''</waits></tasks><tasks><waits>'',
                                            n'', ''
                                        )
                                    ) as task_xml
                                from
                                (
                                    select top(@i)
                                        case waits.r
                                            when 1 then
                                                waits.session_id
                                            else
                                                null
                                        end as [session_id],
                                        case waits.r
                                            when 1 then
                                                waits.request_id
                                            else
                                                null
                                        end as [request_id],                                            
                                        case waits.r
                                            when 1 then
                                                waits.physical_io
                                            else
                                                null
                                        end as [physical_io],
                                        case waits.r
                                            when 1 then
                                                waits.context_switches
                                            else
                                                null
                                        end as [context_switches],
                                        case waits.r
                                            when 1 then
                                                waits.thread_cpu_snapshot
                                            else
                                                null
                                        end as [thread_cpu_snapshot],
                                        case waits.r
                                            when 1 then
                                                waits.tasks
                                            else
                                                null
                                        end as [tasks],
                                        case waits.r
                                            when 1 then
                                                waits.block_info
                                            else
                                                null
                                        end as [block_info],
                                        replace
                                        (
                                            replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                            replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                            replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                                convert
                                                (
                                                    nvarchar(max),
                                                    n''('' +
                                                        convert(nvarchar, num_waits) + n''x: '' +
                                                        case num_waits
                                                            when 1 then
                                                                convert(nvarchar, min_wait_time) + n''ms''
                                                            when 2 then
                                                                case
                                                                    when min_wait_time <> max_wait_time then
                                                                        convert(nvarchar, min_wait_time) + n''/'' + convert(nvarchar, max_wait_time) + n''ms''
                                                                    else
                                                                        convert(nvarchar, max_wait_time) + n''ms''
                                                                end
                                                            else
                                                                case
                                                                    when min_wait_time <> max_wait_time then
                                                                        convert(nvarchar, min_wait_time) + n''/'' + convert(nvarchar, avg_wait_time) + n''/'' + convert(nvarchar, max_wait_time) + n''ms''
                                                                    else 
                                                                        convert(nvarchar, max_wait_time) + n''ms''
                                                                end
                                                        end +
                                                    n'')'' + wait_type collate latin1_general_bin2
                                                ),
                                                nchar(31),n''?''),nchar(30),n''?''),nchar(29),n''?''),nchar(28),n''?''),nchar(27),n''?''),nchar(26),n''?''),nchar(25),n''?''),nchar(24),n''?''),nchar(23),n''?''),nchar(22),n''?''),
                                                nchar(21),n''?''),nchar(20),n''?''),nchar(19),n''?''),nchar(18),n''?''),nchar(17),n''?''),nchar(16),n''?''),nchar(15),n''?''),nchar(14),n''?''),nchar(12),n''?''),
                                                nchar(11),n''?''),nchar(8),n''?''),nchar(7),n''?''),nchar(6),n''?''),nchar(5),n''?''),nchar(4),n''?''),nchar(3),n''?''),nchar(2),n''?''),nchar(1),n''?''),
                                            nchar(0),
                                            n''''
                                        ) as [waits]
                                    from
                                    (
                                        select top(@i)
                                            w1.*,
                                            row_number() over
                                            (
                                                partition by
                                                    w1.session_id,
                                                    w1.request_id
                                                order by
                                                    w1.block_info desc,
                                                    w1.num_waits desc,
                                                    w1.wait_type
                                            ) as r
                                        from
                                        (
                                            select top(@i)
                                                task_info.session_id,
                                                task_info.request_id,
                                                task_info.physical_io,
                                                task_info.context_switches,
                                                task_info.thread_cpu_snapshot,
                                                task_info.num_tasks as tasks,
                                                case
                                                    when task_info.runnable_time is not null then
                                                        ''runnable''
                                                    else
                                                        wt2.wait_type
                                                end as wait_type,
                                                nullif(count(coalesce(task_info.runnable_time, wt2.waiting_task_address)), 0) as num_waits,
                                                min(coalesce(task_info.runnable_time, wt2.wait_duration_ms)) as min_wait_time,
                                                avg(coalesce(task_info.runnable_time, wt2.wait_duration_ms)) as avg_wait_time,
                                                max(coalesce(task_info.runnable_time, wt2.wait_duration_ms)) as max_wait_time,
                                                max(wt2.block_info) as block_info
                                            from
                                            (
                                                select top(@i)
                                                    t.session_id,
                                                    t.request_id,
                                                    sum(convert(bigint, t.pending_io_count)) over (partition by t.session_id, t.request_id) as physical_io,
                                                    sum(convert(bigint, t.context_switches_count)) over (partition by t.session_id, t.request_id) as context_switches, 
                                                    ' +
                                                    case
                                                        when @output_column_list like '%|[cpu_delta|]%' escape '|'
                                                            then
                                                                'sum(tr.usermode_time + tr.kernel_time) over (partition by t.session_id, t.request_id) '
                                                        else
                                                            'convert(bigint, null) '
                                                    end + 
                                                        ' as thread_cpu_snapshot, 
                                                    count(*) over (partition by t.session_id, t.request_id) as num_tasks,
                                                    t.task_address,
                                                    t.task_state,
                                                    case
                                                        when
                                                            t.task_state = ''runnable''
                                                            and w.runnable_time > 0 then
                                                                w.runnable_time
                                                        else
                                                            null
                                                    end as runnable_time
                                                from sys.dm_os_tasks as t
                                                cross apply
                                                (
                                                    select top(1)
                                                        sp2.session_id
                                                    from @sessions as sp2
                                                    where
                                                        sp2.session_id = t.session_id
                                                        and sp2.request_id = t.request_id
                                                        and sp2.status <> ''sleeping''
                                                ) as sp20
                                                left outer hash join
                                                (
                                                    select top(@i)
                                                        (
                                                            select top(@i)
                                                                ms_ticks
                                                            from sys.dm_os_sys_info
                                                        ) -
                                                            w0.wait_resumed_ms_ticks as runnable_time,
                                                        w0.worker_address,
                                                        w0.thread_address,
                                                        w0.task_bound_ms_ticks
                                                    from sys.dm_os_workers as w0
                                                    where
                                                        w0.state = ''runnable''
                                                        or @first_collection_ms_ticks >= w0.task_bound_ms_ticks
                                                ) as w on
                                                    w.worker_address = t.worker_address 
                                                ' +
                                                case
                                                    when @output_column_list like '%|[cpu_delta|]%' escape '|'
                                                        then
                                                            'left outer hash join sys.dm_os_threads as tr on
                                                                tr.thread_address = w.thread_address
                                                                and @first_collection_ms_ticks >= w.task_bound_ms_ticks
                                                            '
                                                    else
                                                        ''
                                                end +
                                            ') as task_info
                                            left outer hash join
                                            (
                                                select top(@i)
                                                    wt1.wait_type,
                                                    wt1.waiting_task_address,
                                                    max(wt1.wait_duration_ms) as wait_duration_ms,
                                                    max(wt1.block_info) as block_info
                                                from
                                                (
                                                    select distinct top(@i)
                                                        wt.wait_type +
                                                            case
                                                                when wt.wait_type like n''page%latch_%'' then
                                                                    '':'' +
                                                                    coalesce(db_name(convert(int, left(wt.resource_description, charindex(n'':'', wt.resource_description) - 1))), n''(null)'') +
                                                                    n'':'' +
                                                                    substring(wt.resource_description, charindex(n'':'', wt.resource_description) + 1, len(wt.resource_description) - charindex(n'':'', reverse(wt.resource_description)) - charindex(n'':'', wt.resource_description)) +
                                                                    n''('' +
                                                                        case
                                                                            when
                                                                                convert(int, right(wt.resource_description, charindex(n'':'', reverse(wt.resource_description)) - 1)) = 1 or
                                                                                convert(int, right(wt.resource_description, charindex(n'':'', reverse(wt.resource_description)) - 1)) % 8088 = 0
                                                                                    then 
                                                                                        n''pfs''
                                                                            when
                                                                                convert(int, right(wt.resource_description, charindex(n'':'', reverse(wt.resource_description)) - 1)) = 2 or
                                                                                convert(int, right(wt.resource_description, charindex(n'':'', reverse(wt.resource_description)) - 1)) % 511232 = 0 
                                                                                    then 
                                                                                        n''gam''
                                                                            when
                                                                                convert(int, right(wt.resource_description, charindex(n'':'', reverse(wt.resource_description)) - 1)) = 3 or
                                                                                (convert(int, right(wt.resource_description, charindex(n'':'', reverse(wt.resource_description)) - 1)) - 1) % 511232 = 0 
                                                                                    then 
                                                                                        n''sgam''
                                                                            when
                                                                                convert(int, right(wt.resource_description, charindex(n'':'', reverse(wt.resource_description)) - 1)) = 6 or
                                                                                (convert(int, right(wt.resource_description, charindex(n'':'', reverse(wt.resource_description)) - 1)) - 6) % 511232 = 0 
                                                                                    then 
                                                                                        n''dcm''
                                                                            when
                                                                                convert(int, right(wt.resource_description, charindex(n'':'', reverse(wt.resource_description)) - 1)) = 7 or
                                                                                (convert(int, right(wt.resource_description, charindex(n'':'', reverse(wt.resource_description)) - 1)) - 7) % 511232 = 0
                                                                                    then 
                                                                                        n''bcm''
                                                                            else
                                                                                n''*''
                                                                        end +
                                                                    n'')''
                                                                when wt.wait_type = n''cxpacket'' then
                                                                    n'':'' + substring(wt.resource_description, charindex(n''nodeid'', wt.resource_description) + 7, 4)
                                                                when wt.wait_type like n''latch[_]%'' then
                                                                    n'' ['' + left(wt.resource_description, coalesce(nullif(charindex(n'' '', wt.resource_description), 0), len(wt.resource_description) + 1) - 1) + n'']''
                                                                else 
                                                                    n''''
                                                            end collate latin1_general_bin2 as wait_type,
                                                        case
                                                            when
                                                            (
                                                                wt.blocking_session_id is not null
                                                                and wt.wait_type like n''lck[_]%''
                                                            ) then
                                                                (
                                                                    select top(@i)
                                                                        x.lock_type,
                                                                        replace
                                                                        (
                                                                            replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                                                            replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                                                            replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                                                                db_name
                                                                                (
                                                                                    convert
                                                                                    (
                                                                                        int,
                                                                                        substring(wt.resource_description, nullif(charindex(n''dbid='', wt.resource_description), 0) + 5, coalesce(nullif(charindex(n'' '', wt.resource_description, charindex(n''dbid='', wt.resource_description) + 5), 0), len(wt.resource_description) + 1) - charindex(n''dbid='', wt.resource_description) - 5)
                                                                                    )
                                                                                ),
                                                                                nchar(31),n''?''),nchar(30),n''?''),nchar(29),n''?''),nchar(28),n''?''),nchar(27),n''?''),nchar(26),n''?''),nchar(25),n''?''),nchar(24),n''?''),nchar(23),n''?''),nchar(22),n''?''),
                                                                                nchar(21),n''?''),nchar(20),n''?''),nchar(19),n''?''),nchar(18),n''?''),nchar(17),n''?''),nchar(16),n''?''),nchar(15),n''?''),nchar(14),n''?''),nchar(12),n''?''),
                                                                                nchar(11),n''?''),nchar(8),n''?''),nchar(7),n''?''),nchar(6),n''?''),nchar(5),n''?''),nchar(4),n''?''),nchar(3),n''?''),nchar(2),n''?''),nchar(1),n''?''),
                                                                            nchar(0),
                                                                            n''''
                                                                        ) as database_name,
                                                                        case x.lock_type
                                                                            when n''objectlock'' then
                                                                                substring(wt.resource_description, nullif(charindex(n''objid='', wt.resource_description), 0) + 6, coalesce(nullif(charindex(n'' '', wt.resource_description, charindex(n''objid='', wt.resource_description) + 6), 0), len(wt.resource_description) + 1) - charindex(n''objid='', wt.resource_description) - 6)
                                                                            else
                                                                                null
                                                                        end as object_id,
                                                                        case x.lock_type
                                                                            when n''filelock'' then
                                                                                substring(wt.resource_description, nullif(charindex(n''fileid='', wt.resource_description), 0) + 7, coalesce(nullif(charindex(n'' '', wt.resource_description, charindex(n''fileid='', wt.resource_description) + 7), 0), len(wt.resource_description) + 1) - charindex(n''fileid='', wt.resource_description) - 7)
                                                                            else
                                                                                null
                                                                        end as file_id,
                                                                        case
                                                                            when x.lock_type in (n''pagelock'', n''extentlock'', n''ridlock'') then
                                                                                substring(wt.resource_description, nullif(charindex(n''associatedobjectid='', wt.resource_description), 0) + 19, coalesce(nullif(charindex(n'' '', wt.resource_description, charindex(n''associatedobjectid='', wt.resource_description) + 19), 0), len(wt.resource_description) + 1) - charindex(n''associatedobjectid='', wt.resource_description) - 19)
                                                                            when x.lock_type in (n''keylock'', n''hobtlock'', n''allocunitlock'') then
                                                                                substring(wt.resource_description, nullif(charindex(n''hobtid='', wt.resource_description), 0) + 7, coalesce(nullif(charindex(n'' '', wt.resource_description, charindex(n''hobtid='', wt.resource_description) + 7), 0), len(wt.resource_description) + 1) - charindex(n''hobtid='', wt.resource_description) - 7)
                                                                            else
                                                                                null
                                                                        end as hobt_id,
                                                                        case x.lock_type
                                                                            when n''applicationlock'' then
                                                                                substring(wt.resource_description, nullif(charindex(n''hash='', wt.resource_description), 0) + 5, coalesce(nullif(charindex(n'' '', wt.resource_description, charindex(n''hash='', wt.resource_description) + 5), 0), len(wt.resource_description) + 1) - charindex(n''hash='', wt.resource_description) - 5)
                                                                            else
                                                                                null
                                                                        end as applock_hash,
                                                                        case x.lock_type
                                                                            when n''metadatalock'' then
                                                                                substring(wt.resource_description, nullif(charindex(n''subresource='', wt.resource_description), 0) + 12, coalesce(nullif(charindex(n'' '', wt.resource_description, charindex(n''subresource='', wt.resource_description) + 12), 0), len(wt.resource_description) + 1) - charindex(n''subresource='', wt.resource_description) - 12)
                                                                            else
                                                                                null
                                                                        end as metadata_resource,
                                                                        case x.lock_type
                                                                            when n''metadatalock'' then
                                                                                substring(wt.resource_description, nullif(charindex(n''classid='', wt.resource_description), 0) + 8, coalesce(nullif(charindex(n'' dbid='', wt.resource_description) - charindex(n''classid='', wt.resource_description), 0), len(wt.resource_description) + 1) - 8)
                                                                            else
                                                                                null
                                                                        end as metadata_class_id
                                                                    from
                                                                    (
                                                                        select top(1)
                                                                            left(wt.resource_description, charindex(n'' '', wt.resource_description) - 1) collate latin1_general_bin2 as lock_type
                                                                    ) as x
                                                                    for xml
                                                                        path('''')
                                                                )
                                                            else null
                                                        end as block_info,
                                                        wt.wait_duration_ms,
                                                        wt.waiting_task_address
                                                    from
                                                    (
                                                        select top(@i)
                                                            wt0.wait_type collate latin1_general_bin2 as wait_type,
                                                            wt0.resource_description collate latin1_general_bin2 as resource_description,
                                                            wt0.wait_duration_ms,
                                                            wt0.waiting_task_address,
                                                            case
                                                                when wt0.blocking_session_id = p.blocked then
                                                                    wt0.blocking_session_id
                                                                else
                                                                    null
                                                            end as blocking_session_id
                                                        from sys.dm_os_waiting_tasks as wt0
                                                        cross apply
                                                        (
                                                            select top(1)
                                                                s0.blocked
                                                            from @sessions as s0
                                                            where
                                                                s0.session_id = wt0.session_id
                                                                and coalesce(s0.wait_type, n'''') <> n''oledb''
                                                                and wt0.wait_type <> n''oledb''
                                                        ) as p
                                                    ) as wt
                                                ) as wt1
                                                group by
                                                    wt1.wait_type,
                                                    wt1.waiting_task_address
                                            ) as wt2 on
                                                wt2.waiting_task_address = task_info.task_address
                                                and wt2.wait_duration_ms > 0
                                                and task_info.runnable_time is null
                                            group by
                                                task_info.session_id,
                                                task_info.request_id,
                                                task_info.physical_io,
                                                task_info.context_switches,
                                                task_info.thread_cpu_snapshot,
                                                task_info.num_tasks,
                                                case
                                                    when task_info.runnable_time is not null then
                                                        ''runnable''
                                                    else
                                                        wt2.wait_type
                                                end
                                        ) as w1
                                    ) as waits
                                    order by
                                        waits.session_id,
                                        waits.request_id,
                                        waits.r
                                    for xml
                                        path(n''tasks''),
                                        type
                                ) as tasks_raw (task_xml_raw)
                            ) as tasks_final
                            cross apply tasks_final.task_xml.nodes(n''/tasks'') as task_nodes (task_node)
                            where
                                task_nodes.task_node.exist(n''session_id'') = 1
                        ) as tasks on
                            tasks.session_id = y.session_id
                            and tasks.request_id = y.request_id 
                        '
                    else
                        ''
                end +
                'left outer hash join
                (
                    select top(@i)
                        t_info.session_id,
                        coalesce(t_info.request_id, -1) as request_id,
                        sum(t_info.tempdb_allocations) as tempdb_allocations,
                        sum(t_info.tempdb_current) as tempdb_current
                    from
                    (
                        select top(@i)
                            tsu.session_id,
                            tsu.request_id,
                            tsu.user_objects_alloc_page_count +
                                tsu.internal_objects_alloc_page_count as tempdb_allocations,
                            tsu.user_objects_alloc_page_count +
                                tsu.internal_objects_alloc_page_count -
                                tsu.user_objects_dealloc_page_count -
                                tsu.internal_objects_dealloc_page_count as tempdb_current
                        from sys.dm_db_task_space_usage as tsu
                        cross apply
                        (
                            select top(1)
                                s0.session_id
                            from @sessions as s0
                            where
                                s0.session_id = tsu.session_id
                        ) as p

                        union all

                        select top(@i)
                            ssu.session_id,
                            null as request_id,
                            ssu.user_objects_alloc_page_count +
                                ssu.internal_objects_alloc_page_count as tempdb_allocations,
                            ssu.user_objects_alloc_page_count +
                                ssu.internal_objects_alloc_page_count -
                                ssu.user_objects_dealloc_page_count -
                                ssu.internal_objects_dealloc_page_count as tempdb_current
                        from sys.dm_db_session_space_usage as ssu
                        cross apply
                        (
                            select top(1)
                                s0.session_id
                            from @sessions as s0
                            where
                                s0.session_id = ssu.session_id
                        ) as p
                    ) as t_info
                    group by
                        t_info.session_id,
                        coalesce(t_info.request_id, -1)
                ) as tempdb_info on
                    tempdb_info.session_id = y.session_id
                    and tempdb_info.request_id =
                        case
                            when y.status = n''sleeping'' then
                                -1
                            else
                                y.request_id
                        end
                ' +
                case 
                    when 
                        not 
                        (
                            @get_avg_time = 1 
                            and @recursion = 1
                        ) then 
                            ''
                    else
                        'left outer hash join
                        (
                            select top(@i)
                                *
                            from sys.dm_exec_query_stats
                        ) as qs on
                            qs.sql_handle = y.sql_handle
                            and qs.plan_handle = y.plan_handle
                            and qs.statement_start_offset = y.statement_start_offset
                            and qs.statement_end_offset = y.statement_end_offset
                        '
                end + 
            ') as x
            option (keepfixed plan, optimize for (@i = 1)); ';

        set @sql_n = convert(nvarchar(max), @sql);

        set @last_collection_start = getdate();

        if @recursion = -1
        begin;
            select
                @first_collection_ms_ticks = ms_ticks
            from sys.dm_os_sys_info;
        end;

        insert #sessions
        (
            recursion,
            session_id,
            request_id,
            session_number,
            elapsed_time,
            avg_elapsed_time,
            physical_io,
            reads,
            physical_reads,
            writes,
            tempdb_allocations,
            tempdb_current,
            cpu,
            thread_cpu_snapshot,
            context_switches,
            used_memory,
            tasks,
            status,
            wait_info,
            transaction_id,
            open_tran_count,
            sql_handle,
            statement_start_offset,
            statement_end_offset,        
            sql_text,
            plan_handle,
            blocking_session_id,
            percent_complete,
            host_name,
            login_name,
            database_name,
            program_name,
            additional_info,
            start_time,
            login_time,
            last_request_start_time
        )
        exec sp_executesql 
            @sql_n,
            n'@recursion smallint, @filter sysname, @not_filter sysname, @first_collection_ms_ticks bigint',
            @recursion, @filter, @not_filter, @first_collection_ms_ticks;

        --collect transaction information?
        if
            @recursion = 1
            and
            (
                @output_column_list like '%|[tran_start_time|]%' escape '|'
                or @output_column_list like '%|[tran_log_writes|]%' escape '|' 
            )
        begin;    
            declare @i int;
            set @i = 2147483647;

            update s
            set
                tran_start_time =
                    convert
                    (
                        datetime,
                        left
                        (
                            x.trans_info,
                            nullif(charindex(nchar(254) collate latin1_general_bin2, x.trans_info) - 1, -1)
                        ),
                        121
                    ),
                tran_log_writes =
                    right
                    (
                        x.trans_info,
                        len(x.trans_info) - charindex(nchar(254) collate latin1_general_bin2, x.trans_info)
                    )
            from
            (
                select top(@i)
                    trans_nodes.trans_node.value('(session_id/text())[1]', 'smallint') as session_id,
                    coalesce(trans_nodes.trans_node.value('(request_id/text())[1]', 'int'), 0) as request_id,
                    trans_nodes.trans_node.value('(trans_info/text())[1]', 'nvarchar(4000)') as trans_info                
                from
                (
                    select top(@i)
                        convert
                        (
                            xml,
                            replace
                            (
                                convert(nvarchar(max), trans_raw.trans_xml_raw) collate latin1_general_bin2, 
                                n'</trans_info></trans><trans><trans_info>', n''
                            )
                        )
                    from
                    (
                        select top(@i)
                            case u_trans.r
                                when 1 then u_trans.session_id
                                else null
                            end as [session_id],
                            case u_trans.r
                                when 1 then u_trans.request_id
                                else null
                            end as [request_id],
                            convert
                            (
                                nvarchar(max),
                                case
                                    when u_trans.database_id is not null then
                                        case u_trans.r
                                            when 1 then coalesce(convert(nvarchar, u_trans.transaction_start_time, 121) + nchar(254), n'')
                                            else n''
                                        end + 
                                            replace
                                            (
                                                replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                                replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                                replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                                    convert(varchar(128), coalesce(db_name(u_trans.database_id), n'(null)')),
                                                    nchar(31),n'?'),nchar(30),n'?'),nchar(29),n'?'),nchar(28),n'?'),nchar(27),n'?'),nchar(26),n'?'),nchar(25),n'?'),nchar(24),n'?'),nchar(23),n'?'),nchar(22),n'?'),
                                                    nchar(21),n'?'),nchar(20),n'?'),nchar(19),n'?'),nchar(18),n'?'),nchar(17),n'?'),nchar(16),n'?'),nchar(15),n'?'),nchar(14),n'?'),nchar(12),n'?'),
                                                    nchar(11),n'?'),nchar(8),n'?'),nchar(7),n'?'),nchar(6),n'?'),nchar(5),n'?'),nchar(4),n'?'),nchar(3),n'?'),nchar(2),n'?'),nchar(1),n'?'),
                                                nchar(0),
                                                n'?'
                                            ) +
                                            n': ' +
                                        convert(nvarchar, u_trans.log_record_count) + n' (' + convert(nvarchar, u_trans.log_kb_used) + n' kb)' +
                                        n','
                                    else
                                        n'n/a,'
                                end collate latin1_general_bin2
                            ) as [trans_info]
                        from
                        (
                            select top(@i)
                                trans.*,
                                row_number() over
                                (
                                    partition by
                                        trans.session_id,
                                        trans.request_id
                                    order by
                                        trans.transaction_start_time desc
                                ) as r
                            from
                            (
                                select top(@i)
                                    session_tran_map.session_id,
                                    session_tran_map.request_id,
                                    s_tran.database_id,
                                    coalesce(sum(s_tran.database_transaction_log_record_count), 0) as log_record_count,
                                    coalesce(sum(s_tran.database_transaction_log_bytes_used), 0) / 1024 as log_kb_used,
                                    min(s_tran.database_transaction_begin_time) as transaction_start_time
                                from
                                (
                                    select top(@i)
                                        *
                                    from sys.dm_tran_active_transactions
                                    where
                                        transaction_begin_time <= @last_collection_start
                                ) as a_tran
                                inner hash join
                                (
                                    select top(@i)
                                        *
                                    from sys.dm_tran_database_transactions
                                    where
                                        database_id < 32767
                                ) as s_tran on
                                    s_tran.transaction_id = a_tran.transaction_id
                                left outer hash join
                                (
                                    select top(@i)
                                        *
                                    from sys.dm_tran_session_transactions
                                ) as tst on
                                    s_tran.transaction_id = tst.transaction_id
                                cross apply
                                (
                                    select top(1)
                                        s3.session_id,
                                        s3.request_id
                                    from
                                    (
                                        select top(1)
                                            s1.session_id,
                                            s1.request_id
                                        from #sessions as s1
                                        where
                                            s1.transaction_id = s_tran.transaction_id
                                            and s1.recursion = 1
                                            
                                        union all
                                    
                                        select top(1)
                                            s2.session_id,
                                            s2.request_id
                                        from #sessions as s2
                                        where
                                            s2.session_id = tst.session_id
                                            and s2.recursion = 1
                                    ) as s3
                                    order by
                                        s3.request_id
                                ) as session_tran_map
                                group by
                                    session_tran_map.session_id,
                                    session_tran_map.request_id,
                                    s_tran.database_id
                            ) as trans
                        ) as u_trans
                        for xml
                            path('trans'),
                            type
                    ) as trans_raw (trans_xml_raw)
                ) as trans_final (trans_xml)
                cross apply trans_final.trans_xml.nodes('/trans') as trans_nodes (trans_node)
            ) as x
            inner hash join #sessions as s on
                s.session_id = x.session_id
                and s.request_id = x.request_id
            option (optimize for (@i = 1));
        end;

        --variables for text and plan collection
        declare    
            @session_id smallint,
            @request_id int,
            @sql_handle varbinary(64),
            @plan_handle varbinary(64),
            @statement_start_offset int,
            @statement_end_offset int,
            @start_time datetime,
            @database_name sysname;

        if 
            @recursion = 1
            and @output_column_list like '%|[sql_text|]%' escape '|'
        begin;
            declare sql_cursor
            cursor local fast_forward
            for 
                select 
                    session_id,
                    request_id,
                    sql_handle,
                    statement_start_offset,
                    statement_end_offset
                from #sessions
                where
                    recursion = 1
                    and sql_handle is not null
            option (keepfixed plan);

            open sql_cursor;

            fetch next from sql_cursor
            into 
                @session_id,
                @request_id,
                @sql_handle,
                @statement_start_offset,
                @statement_end_offset;

            --wait up to 5 ms for the sql text, then give up
            set lock_timeout 5;

            while @@fetch_status = 0
            begin;
                begin try;
                    update s
                    set
                        s.sql_text =
                        (
                            select
                                replace
                                (
                                    replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                    replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                    replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                        n'--' + nchar(13) + nchar(10) +
                                        case 
                                            when @get_full_inner_text = 1 then est.text
                                            when len(est.text) < (@statement_end_offset / 2) + 1 then est.text
                                            when substring(est.text, (@statement_start_offset/2), 2) like n'[a-za-z0-9][a-za-z0-9]' then est.text
                                            else
                                                case
                                                    when @statement_start_offset > 0 then
                                                        substring
                                                        (
                                                            est.text,
                                                            ((@statement_start_offset/2) + 1),
                                                            (
                                                                case
                                                                    when @statement_end_offset = -1 then 2147483647
                                                                    else ((@statement_end_offset - @statement_start_offset)/2) + 1
                                                                end
                                                            )
                                                        )
                                                    else rtrim(ltrim(est.text))
                                                end
                                        end +
                                        nchar(13) + nchar(10) + n'--' collate latin1_general_bin2,
                                        nchar(31),n'?'),nchar(30),n'?'),nchar(29),n'?'),nchar(28),n'?'),nchar(27),n'?'),nchar(26),n'?'),nchar(25),n'?'),nchar(24),n'?'),nchar(23),n'?'),nchar(22),n'?'),
                                        nchar(21),n'?'),nchar(20),n'?'),nchar(19),n'?'),nchar(18),n'?'),nchar(17),n'?'),nchar(16),n'?'),nchar(15),n'?'),nchar(14),n'?'),nchar(12),n'?'),
                                        nchar(11),n'?'),nchar(8),n'?'),nchar(7),n'?'),nchar(6),n'?'),nchar(5),n'?'),nchar(4),n'?'),nchar(3),n'?'),nchar(2),n'?'),nchar(1),n'?'),
                                    nchar(0),
                                    n''
                                ) as [processing-instruction(query)]
                            for xml
                                path(''),
                                type
                        ),
                        s.statement_start_offset = 
                            case 
                                when len(est.text) < (@statement_end_offset / 2) + 1 then 0
                                when substring(convert(varchar(max), est.text), (@statement_start_offset/2), 2) like '[a-za-z0-9][a-za-z0-9]' then 0
                                else @statement_start_offset
                            end,
                        s.statement_end_offset = 
                            case 
                                when len(est.text) < (@statement_end_offset / 2) + 1 then -1
                                when substring(convert(varchar(max), est.text), (@statement_start_offset/2), 2) like '[a-za-z0-9][a-za-z0-9]' then -1
                                else @statement_end_offset
                            end
                    from 
                        #sessions as s,
                        (
                            select top(1)
                                text
                            from
                            (
                                select 
                                    text, 
                                    0 as row_num
                                from sys.dm_exec_sql_text(@sql_handle)
                                
                                union all
                                
                                select 
                                    null,
                                    1 as row_num
                            ) as est0
                            order by
                                row_num
                        ) as est
                    where 
                        s.session_id = @session_id
                        and s.request_id = @request_id
                        and s.recursion = 1
                    option (keepfixed plan);
                end try
                begin catch;
                    update s
                    set
                        s.sql_text = 
                            case error_number() 
                                when 1222 then '<timeout_exceeded />'
                                else '<error message="' + error_message() + '" />'
                            end
                    from #sessions as s
                    where 
                        s.session_id = @session_id
                        and s.request_id = @request_id
                        and s.recursion = 1
                    option (keepfixed plan);
                end catch;

                fetch next from sql_cursor
                into
                    @session_id,
                    @request_id,
                    @sql_handle,
                    @statement_start_offset,
                    @statement_end_offset;
            end;

            --return this to the default
            set lock_timeout -1;

            close sql_cursor;
            deallocate sql_cursor;
        end;

        if 
            @get_outer_command = 1 
            and @recursion = 1
            and @output_column_list like '%|[sql_command|]%' escape '|'
        begin;
            declare @buffer_results table
            (
                eventtype varchar(30),
                parameters int,
                eventinfo nvarchar(4000),
                start_time datetime,
                session_number int identity(1,1) not null primary key
            );

            declare buffer_cursor
            cursor local fast_forward
            for 
                select 
                    session_id,
                    max(start_time) as start_time
                from #sessions
                where
                    recursion = 1
                group by
                    session_id
                order by
                    session_id
                option (keepfixed plan);

            open buffer_cursor;

            fetch next from buffer_cursor
            into 
                @session_id,
                @start_time;

            while @@fetch_status = 0
            begin;
                begin try;
                    --in sql server 2008, dbcc inputbuffer will throw 
                    --an exception if the session no longer exists
                    insert @buffer_results
                    (
                        eventtype,
                        parameters,
                        eventinfo
                    )
                    exec sp_executesql
                        n'dbcc inputbuffer(@session_id) with no_infomsgs;',
                        n'@session_id smallint',
                        @session_id;

                    update br
                    set
                        br.start_time = @start_time
                    from @buffer_results as br
                    where
                        br.session_number = 
                        (
                            select max(br2.session_number)
                            from @buffer_results br2
                        );
                end try
                begin catch
                end catch;

                fetch next from buffer_cursor
                into 
                    @session_id,
                    @start_time;
            end;

            update s
            set
                sql_command = 
                (
                    select 
                        replace
                        (
                            replace(replace(replace(replace(replace(replace(replace(replace(replace(
                            replace(replace(replace(replace(replace(replace(replace(replace(replace(
                            replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                convert
                                (
                                    nvarchar(max),
                                    n'--' + nchar(13) + nchar(10) + br.eventinfo + nchar(13) + nchar(10) + n'--' collate latin1_general_bin2
                                ),
                                nchar(31),n'?'),nchar(30),n'?'),nchar(29),n'?'),nchar(28),n'?'),nchar(27),n'?'),nchar(26),n'?'),nchar(25),n'?'),nchar(24),n'?'),nchar(23),n'?'),nchar(22),n'?'),
                                nchar(21),n'?'),nchar(20),n'?'),nchar(19),n'?'),nchar(18),n'?'),nchar(17),n'?'),nchar(16),n'?'),nchar(15),n'?'),nchar(14),n'?'),nchar(12),n'?'),
                                nchar(11),n'?'),nchar(8),n'?'),nchar(7),n'?'),nchar(6),n'?'),nchar(5),n'?'),nchar(4),n'?'),nchar(3),n'?'),nchar(2),n'?'),nchar(1),n'?'),
                            nchar(0),
                            n''
                        ) as [processing-instruction(query)]
                    from @buffer_results as br
                    where 
                        br.session_number = s.session_number
                        and br.start_time = s.start_time
                        and 
                        (
                            (
                                s.start_time = s.last_request_start_time
                                and exists
                                (
                                    select *
                                    from sys.dm_exec_requests r2
                                    where
                                        r2.session_id = s.session_id
                                        and r2.request_id = s.request_id
                                        and r2.start_time = s.start_time
                                )
                            )
                            or 
                            (
                                s.request_id = 0
                                and exists
                                (
                                    select *
                                    from sys.dm_exec_sessions s2
                                    where
                                        s2.session_id = s.session_id
                                        and s2.last_request_start_time = s.last_request_start_time
                                )
                            )
                        )
                    for xml
                        path(''),
                        type
                )
            from #sessions as s
            where
                recursion = 1
            option (keepfixed plan);

            close buffer_cursor;
            deallocate buffer_cursor;
        end;

        if 
            @get_plans >= 1 
            and @recursion = 1
            and @output_column_list like '%|[query_plan|]%' escape '|'
        begin;
            declare plan_cursor
            cursor local fast_forward
            for 
                select
                    session_id,
                    request_id,
                    plan_handle,
                    statement_start_offset,
                    statement_end_offset
                from #sessions
                where
                    recursion = 1
                    and plan_handle is not null
            option (keepfixed plan);

            open plan_cursor;

            fetch next from plan_cursor
            into 
                @session_id,
                @request_id,
                @plan_handle,
                @statement_start_offset,
                @statement_end_offset;

            --wait up to 5 ms for a query plan, then give up
            set lock_timeout 5;

            while @@fetch_status = 0
            begin;
                begin try;
                    update s
                    set
                        s.query_plan =
                        (
                            select
                                convert(xml, query_plan)
                            from sys.dm_exec_text_query_plan
                            (
                                @plan_handle, 
                                case @get_plans
                                    when 1 then
                                        @statement_start_offset
                                    else
                                        0
                                end, 
                                case @get_plans
                                    when 1 then
                                        @statement_end_offset
                                    else
                                        -1
                                end
                            )
                        )
                    from #sessions as s
                    where 
                        s.session_id = @session_id
                        and s.request_id = @request_id
                        and s.recursion = 1
                    option (keepfixed plan);
                end try
                begin catch;
                    if error_number() = 6335
                    begin;
                        update s
                        set
                            s.query_plan =
                            (
                                select
                                    n'--' + nchar(13) + nchar(10) + 
                                    n'-- could not render showplan due to xml data type limitations. ' + nchar(13) + nchar(10) + 
                                    n'-- to see the graphical plan save the xml below as a .sqlplan file and re-open in ssms.' + nchar(13) + nchar(10) +
                                    n'--' + nchar(13) + nchar(10) +
                                        replace(qp.query_plan, n'<relop', nchar(13)+nchar(10)+n'<relop') + 
                                        nchar(13) + nchar(10) + n'--' collate latin1_general_bin2 as [processing-instruction(query_plan)]
                                from sys.dm_exec_text_query_plan
                                (
                                    @plan_handle, 
                                    case @get_plans
                                        when 1 then
                                            @statement_start_offset
                                        else
                                            0
                                    end, 
                                    case @get_plans
                                        when 1 then
                                            @statement_end_offset
                                        else
                                            -1
                                    end
                                ) as qp
                                for xml
                                    path(''),
                                    type
                            )
                        from #sessions as s
                        where 
                            s.session_id = @session_id
                            and s.request_id = @request_id
                            and s.recursion = 1
                        option (keepfixed plan);
                    end;
                    else
                    begin;
                        update s
                        set
                            s.query_plan = 
                                case error_number() 
                                    when 1222 then '<timeout_exceeded />'
                                    else '<error message="' + error_message() + '" />'
                                end
                        from #sessions as s
                        where 
                            s.session_id = @session_id
                            and s.request_id = @request_id
                            and s.recursion = 1
                        option (keepfixed plan);
                    end;
                end catch;

                fetch next from plan_cursor
                into
                    @session_id,
                    @request_id,
                    @plan_handle,
                    @statement_start_offset,
                    @statement_end_offset;
            end;

            --return this to the default
            set lock_timeout -1;

            close plan_cursor;
            deallocate plan_cursor;
        end;

        if 
            @get_locks = 1 
            and @recursion = 1
            and @output_column_list like '%|[locks|]%' escape '|'
        begin;
            declare locks_cursor
            cursor local fast_forward
            for 
                select distinct
                    database_name
                from #locks
                where
                    exists
                    (
                        select *
                        from #sessions as s
                        where
                            s.session_id = #locks.session_id
                            and recursion = 1
                    )
                    and database_name <> '(null)'
                option (keepfixed plan);

            open locks_cursor;

            fetch next from locks_cursor
            into 
                @database_name;

            while @@fetch_status = 0
            begin;
                begin try;
                    set @sql_n = convert(nvarchar(max), '') +
                        'update l ' +
                        'set ' +
                            'object_name = ' +
                                'replace ' +
                                '( ' +
                                    'replace(replace(replace(replace(replace(replace(replace(replace(replace( ' +
                                    'replace(replace(replace(replace(replace(replace(replace(replace(replace( ' +
                                    'replace(replace(replace(replace(replace(replace(replace(replace(replace(replace( ' +
                                        'o.name collate latin1_general_bin2, ' +
                                        'nchar(31),n''?''),nchar(30),n''?''),nchar(29),n''?''),nchar(28),n''?''),nchar(27),n''?''),nchar(26),n''?''),nchar(25),n''?''),nchar(24),n''?''),nchar(23),n''?''),nchar(22),n''?''), ' +
                                        'nchar(21),n''?''),nchar(20),n''?''),nchar(19),n''?''),nchar(18),n''?''),nchar(17),n''?''),nchar(16),n''?''),nchar(15),n''?''),nchar(14),n''?''),nchar(12),n''?''), ' +
                                        'nchar(11),n''?''),nchar(8),n''?''),nchar(7),n''?''),nchar(6),n''?''),nchar(5),n''?''),nchar(4),n''?''),nchar(3),n''?''),nchar(2),n''?''),nchar(1),n''?''), ' +
                                    'nchar(0), ' +
                                    n''''' ' +
                                '), ' +
                            'index_name = ' +
                                'replace ' +
                                '( ' +
                                    'replace(replace(replace(replace(replace(replace(replace(replace(replace( ' +
                                    'replace(replace(replace(replace(replace(replace(replace(replace(replace( ' +
                                    'replace(replace(replace(replace(replace(replace(replace(replace(replace(replace( ' +
                                        'i.name collate latin1_general_bin2, ' +
                                        'nchar(31),n''?''),nchar(30),n''?''),nchar(29),n''?''),nchar(28),n''?''),nchar(27),n''?''),nchar(26),n''?''),nchar(25),n''?''),nchar(24),n''?''),nchar(23),n''?''),nchar(22),n''?''), ' +
                                        'nchar(21),n''?''),nchar(20),n''?''),nchar(19),n''?''),nchar(18),n''?''),nchar(17),n''?''),nchar(16),n''?''),nchar(15),n''?''),nchar(14),n''?''),nchar(12),n''?''), ' +
                                        'nchar(11),n''?''),nchar(8),n''?''),nchar(7),n''?''),nchar(6),n''?''),nchar(5),n''?''),nchar(4),n''?''),nchar(3),n''?''),nchar(2),n''?''),nchar(1),n''?''), ' +
                                    'nchar(0), ' +
                                    n''''' ' +
                                '), ' +
                            'schema_name = ' +
                                'replace ' +
                                '( ' +
                                    'replace(replace(replace(replace(replace(replace(replace(replace(replace( ' +
                                    'replace(replace(replace(replace(replace(replace(replace(replace(replace( ' +
                                    'replace(replace(replace(replace(replace(replace(replace(replace(replace(replace( ' +
                                        's.name collate latin1_general_bin2, ' +
                                        'nchar(31),n''?''),nchar(30),n''?''),nchar(29),n''?''),nchar(28),n''?''),nchar(27),n''?''),nchar(26),n''?''),nchar(25),n''?''),nchar(24),n''?''),nchar(23),n''?''),nchar(22),n''?''), ' +
                                        'nchar(21),n''?''),nchar(20),n''?''),nchar(19),n''?''),nchar(18),n''?''),nchar(17),n''?''),nchar(16),n''?''),nchar(15),n''?''),nchar(14),n''?''),nchar(12),n''?''), ' +
                                        'nchar(11),n''?''),nchar(8),n''?''),nchar(7),n''?''),nchar(6),n''?''),nchar(5),n''?''),nchar(4),n''?''),nchar(3),n''?''),nchar(2),n''?''),nchar(1),n''?''), ' +
                                    'nchar(0), ' +
                                    n''''' ' +
                                '), ' +
                            'principal_name = ' + 
                                'replace ' +
                                '( ' +
                                    'replace(replace(replace(replace(replace(replace(replace(replace(replace( ' +
                                    'replace(replace(replace(replace(replace(replace(replace(replace(replace( ' +
                                    'replace(replace(replace(replace(replace(replace(replace(replace(replace(replace( ' +
                                        'dp.name collate latin1_general_bin2, ' +
                                        'nchar(31),n''?''),nchar(30),n''?''),nchar(29),n''?''),nchar(28),n''?''),nchar(27),n''?''),nchar(26),n''?''),nchar(25),n''?''),nchar(24),n''?''),nchar(23),n''?''),nchar(22),n''?''), ' +
                                        'nchar(21),n''?''),nchar(20),n''?''),nchar(19),n''?''),nchar(18),n''?''),nchar(17),n''?''),nchar(16),n''?''),nchar(15),n''?''),nchar(14),n''?''),nchar(12),n''?''), ' +
                                        'nchar(11),n''?''),nchar(8),n''?''),nchar(7),n''?''),nchar(6),n''?''),nchar(5),n''?''),nchar(4),n''?''),nchar(3),n''?''),nchar(2),n''?''),nchar(1),n''?''), ' +
                                    'nchar(0), ' +
                                    n''''' ' +
                                ') ' +
                        'from #locks as l ' +
                        'left outer join ' + quotename(@database_name) + '.sys.allocation_units as au on ' +
                            'au.allocation_unit_id = l.allocation_unit_id ' +
                        'left outer join ' + quotename(@database_name) + '.sys.partitions as p on ' +
                            'p.hobt_id = ' +
                                'coalesce ' +
                                '( ' +
                                    'l.hobt_id, ' +
                                    'case ' +
                                        'when au.type in (1, 3) then au.container_id ' +
                                        'else null ' +
                                    'end ' +
                                ') ' +
                        'left outer join ' + quotename(@database_name) + '.sys.partitions as p1 on ' +
                            'l.hobt_id is null ' +
                            'and au.type = 2 ' +
                            'and p1.partition_id = au.container_id ' +
                        'left outer join ' + quotename(@database_name) + '.sys.objects as o on ' +
                            'o.object_id = coalesce(l.object_id, p.object_id, p1.object_id) ' +
                        'left outer join ' + quotename(@database_name) + '.sys.indexes as i on ' +
                            'i.object_id = coalesce(l.object_id, p.object_id, p1.object_id) ' +
                            'and i.index_id = coalesce(l.index_id, p.index_id, p1.index_id) ' +
                        'left outer join ' + quotename(@database_name) + '.sys.schemas as s on ' +
                            's.schema_id = coalesce(l.schema_id, o.schema_id) ' +
                        'left outer join ' + quotename(@database_name) + '.sys.database_principals as dp on ' +
                            'dp.principal_id = l.principal_id ' +
                        'where ' +
                            'l.database_name = @database_name ' +
                        'option (keepfixed plan); ';
                    
                    exec sp_executesql
                        @sql_n,
                        n'@database_name sysname',
                        @database_name;
                end try
                begin catch;
                    update #locks
                    set
                        query_error = 
                            replace
                            (
                                replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                    convert
                                    (
                                        nvarchar(max), 
                                        error_message() collate latin1_general_bin2
                                    ),
                                    nchar(31),n'?'),nchar(30),n'?'),nchar(29),n'?'),nchar(28),n'?'),nchar(27),n'?'),nchar(26),n'?'),nchar(25),n'?'),nchar(24),n'?'),nchar(23),n'?'),nchar(22),n'?'),
                                    nchar(21),n'?'),nchar(20),n'?'),nchar(19),n'?'),nchar(18),n'?'),nchar(17),n'?'),nchar(16),n'?'),nchar(15),n'?'),nchar(14),n'?'),nchar(12),n'?'),
                                    nchar(11),n'?'),nchar(8),n'?'),nchar(7),n'?'),nchar(6),n'?'),nchar(5),n'?'),nchar(4),n'?'),nchar(3),n'?'),nchar(2),n'?'),nchar(1),n'?'),
                                nchar(0),
                                n''
                            )
                    where 
                        database_name = @database_name
                    option (keepfixed plan);
                end catch;

                fetch next from locks_cursor
                into
                    @database_name;
            end;

            close locks_cursor;
            deallocate locks_cursor;

            create clustered index ix_srd on #locks (session_id, request_id, database_name);

            update s
            set 
                s.locks =
                (
                    select 
                        replace
                        (
                            replace(replace(replace(replace(replace(replace(replace(replace(replace(
                            replace(replace(replace(replace(replace(replace(replace(replace(replace(
                            replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                convert
                                (
                                    nvarchar(max), 
                                    l1.database_name collate latin1_general_bin2
                                ),
                                nchar(31),n'?'),nchar(30),n'?'),nchar(29),n'?'),nchar(28),n'?'),nchar(27),n'?'),nchar(26),n'?'),nchar(25),n'?'),nchar(24),n'?'),nchar(23),n'?'),nchar(22),n'?'),
                                nchar(21),n'?'),nchar(20),n'?'),nchar(19),n'?'),nchar(18),n'?'),nchar(17),n'?'),nchar(16),n'?'),nchar(15),n'?'),nchar(14),n'?'),nchar(12),n'?'),
                                nchar(11),n'?'),nchar(8),n'?'),nchar(7),n'?'),nchar(6),n'?'),nchar(5),n'?'),nchar(4),n'?'),nchar(3),n'?'),nchar(2),n'?'),nchar(1),n'?'),
                            nchar(0),
                            n''
                        ) as [database/@name],
                        min(l1.query_error) as [database/@query_error],
                        (
                            select 
                                l2.request_mode as [lock/@request_mode],
                                l2.request_status as [lock/@request_status],
                                count(*) as [lock/@request_count]
                            from #locks as l2
                            where 
                                l1.session_id = l2.session_id
                                and l1.request_id = l2.request_id
                                and l2.database_name = l1.database_name
                                and l2.resource_type = 'database'
                            group by
                                l2.request_mode,
                                l2.request_status
                            for xml
                                path(''),
                                type
                        ) as [database/locks],
                        (
                            select
                                coalesce(l3.object_name, '(null)') as [object/@name],
                                l3.schema_name as [object/@schema_name],
                                (
                                    select
                                        l4.resource_type as [lock/@resource_type],
                                        l4.page_type as [lock/@page_type],
                                        l4.index_name as [lock/@index_name],
                                        case 
                                            when l4.object_name is null then l4.schema_name
                                            else null
                                        end as [lock/@schema_name],
                                        l4.principal_name as [lock/@principal_name],
                                        l4.resource_description as [lock/@resource_description],
                                        l4.request_mode as [lock/@request_mode],
                                        l4.request_status as [lock/@request_status],
                                        sum(l4.request_count) as [lock/@request_count]
                                    from #locks as l4
                                    where 
                                        l4.session_id = l3.session_id
                                        and l4.request_id = l3.request_id
                                        and l3.database_name = l4.database_name
                                        and coalesce(l3.object_name, '(null)') = coalesce(l4.object_name, '(null)')
                                        and coalesce(l3.schema_name, '') = coalesce(l4.schema_name, '')
                                        and l4.resource_type <> 'database'
                                    group by
                                        l4.resource_type,
                                        l4.page_type,
                                        l4.index_name,
                                        case 
                                            when l4.object_name is null then l4.schema_name
                                            else null
                                        end,
                                        l4.principal_name,
                                        l4.resource_description,
                                        l4.request_mode,
                                        l4.request_status
                                    for xml
                                        path(''),
                                        type
                                ) as [object/locks]
                            from #locks as l3
                            where 
                                l3.session_id = l1.session_id
                                and l3.request_id = l1.request_id
                                and l3.database_name = l1.database_name
                                and l3.resource_type <> 'database'
                            group by 
                                l3.session_id,
                                l3.request_id,
                                l3.database_name,
                                coalesce(l3.object_name, '(null)'),
                                l3.schema_name
                            for xml
                                path(''),
                                type
                        ) as [database/objects]
                    from #locks as l1
                    where
                        l1.session_id = s.session_id
                        and l1.request_id = s.request_id
                        and l1.start_time in (s.start_time, s.last_request_start_time)
                        and s.recursion = 1
                    group by 
                        l1.session_id,
                        l1.request_id,
                        l1.database_name
                    for xml
                        path(''),
                        type
                )
            from #sessions s
            option (keepfixed plan);
        end;

        if 
            @find_block_leaders = 1
            and @recursion = 1
            and @output_column_list like '%|[blocked_session_count|]%' escape '|'
        begin;
            with
            blockers as
            (
                select
                    session_id,
                    session_id as top_level_session_id,
                    convert(varchar(8000), '.' + convert(varchar(8000), session_id) + '.') as the_path
                from #sessions
                where
                    recursion = 1

                union all

                select
                    s.session_id,
                    b.top_level_session_id,
                    convert(varchar(8000), b.the_path + convert(varchar(8000), s.session_id) + '.') as the_path
                from blockers as b
                join #sessions as s on
                    s.blocking_session_id = b.session_id
                    and s.recursion = 1
                    and b.the_path not like '%.' + convert(varchar(8000), s.session_id) + '.%' collate latin1_general_bin2
            )
            update s
            set
                s.blocked_session_count = x.blocked_session_count
            from #sessions as s
            join
            (
                select
                    b.top_level_session_id as session_id,
                    count(*) - 1 as blocked_session_count
                from blockers as b
                group by
                    b.top_level_session_id
            ) x on
                s.session_id = x.session_id
            where
                s.recursion = 1;
        end;

        if
            @get_task_info = 2
            and @output_column_list like '%|[additional_info|]%' escape '|'
            and @recursion = 1
        begin;
            create table #blocked_requests
            (
                session_id smallint not null,
                request_id int not null,
                database_name sysname not null,
                object_id int,
                hobt_id bigint,
                schema_id int,
                schema_name sysname null,
                object_name sysname null,
                query_error nvarchar(2048),
                primary key (database_name, session_id, request_id)
            );

            create statistics s_database_name on #blocked_requests (database_name)
            with sample 0 rows, norecompute;
            create statistics s_schema_name on #blocked_requests (schema_name)
            with sample 0 rows, norecompute;
            create statistics s_object_name on #blocked_requests (object_name)
            with sample 0 rows, norecompute;
            create statistics s_query_error on #blocked_requests (query_error)
            with sample 0 rows, norecompute;
        
            insert #blocked_requests
            (
                session_id,
                request_id,
                database_name,
                object_id,
                hobt_id,
                schema_id
            )
            select
                session_id,
                request_id,
                database_name,
                object_id,
                hobt_id,
                convert(int, substring(schema_node, charindex(' = ', schema_node) + 3, len(schema_node))) as schema_id
            from
            (
                select
                    session_id,
                    request_id,
                    agent_nodes.agent_node.value('(database_name/text())[1]', 'sysname') as database_name,
                    agent_nodes.agent_node.value('(object_id/text())[1]', 'int') as object_id,
                    agent_nodes.agent_node.value('(hobt_id/text())[1]', 'bigint') as hobt_id,
                    agent_nodes.agent_node.value('(metadata_resource/text()[.="schema"]/../../metadata_class_id/text())[1]', 'varchar(100)') as schema_node
                from #sessions as s
                cross apply s.additional_info.nodes('//block_info') as agent_nodes (agent_node)
                where
                    s.recursion = 1
            ) as t
            where
                t.database_name is not null
                and
                (
                    t.object_id is not null
                    or t.hobt_id is not null
                    or t.schema_node is not null
                );
            
            declare blocks_cursor
            cursor local fast_forward
            for
                select distinct
                    database_name
                from #blocked_requests;
                
            open blocks_cursor;
            
            fetch next from blocks_cursor
            into 
                @database_name;
            
            while @@fetch_status = 0
            begin;
                begin try;
                    set @sql_n = 
                        convert(nvarchar(max), '') +
                        'update b ' +
                        'set ' +
                            'b.schema_name = ' +
                                'replace ' +
                                '( ' +
                                    'replace(replace(replace(replace(replace(replace(replace(replace(replace( ' +
                                    'replace(replace(replace(replace(replace(replace(replace(replace(replace( ' +
                                    'replace(replace(replace(replace(replace(replace(replace(replace(replace(replace( ' +
                                        's.name collate latin1_general_bin2, ' +
                                        'nchar(31),n''?''),nchar(30),n''?''),nchar(29),n''?''),nchar(28),n''?''),nchar(27),n''?''),nchar(26),n''?''),nchar(25),n''?''),nchar(24),n''?''),nchar(23),n''?''),nchar(22),n''?''), ' +
                                        'nchar(21),n''?''),nchar(20),n''?''),nchar(19),n''?''),nchar(18),n''?''),nchar(17),n''?''),nchar(16),n''?''),nchar(15),n''?''),nchar(14),n''?''),nchar(12),n''?''), ' +
                                        'nchar(11),n''?''),nchar(8),n''?''),nchar(7),n''?''),nchar(6),n''?''),nchar(5),n''?''),nchar(4),n''?''),nchar(3),n''?''),nchar(2),n''?''),nchar(1),n''?''), ' +
                                    'nchar(0), ' +
                                    n''''' ' +
                                '), ' +
                            'b.object_name = ' +
                                'replace ' +
                                '( ' +
                                    'replace(replace(replace(replace(replace(replace(replace(replace(replace( ' +
                                    'replace(replace(replace(replace(replace(replace(replace(replace(replace( ' +
                                    'replace(replace(replace(replace(replace(replace(replace(replace(replace(replace( ' +
                                        'o.name collate latin1_general_bin2, ' +
                                        'nchar(31),n''?''),nchar(30),n''?''),nchar(29),n''?''),nchar(28),n''?''),nchar(27),n''?''),nchar(26),n''?''),nchar(25),n''?''),nchar(24),n''?''),nchar(23),n''?''),nchar(22),n''?''), ' +
                                        'nchar(21),n''?''),nchar(20),n''?''),nchar(19),n''?''),nchar(18),n''?''),nchar(17),n''?''),nchar(16),n''?''),nchar(15),n''?''),nchar(14),n''?''),nchar(12),n''?''), ' +
                                        'nchar(11),n''?''),nchar(8),n''?''),nchar(7),n''?''),nchar(6),n''?''),nchar(5),n''?''),nchar(4),n''?''),nchar(3),n''?''),nchar(2),n''?''),nchar(1),n''?''), ' +
                                    'nchar(0), ' +
                                    n''''' ' +
                                ') ' +
                        'from #blocked_requests as b ' +
                        'left outer join ' + quotename(@database_name) + '.sys.partitions as p on ' +
                            'p.hobt_id = b.hobt_id ' +
                        'left outer join ' + quotename(@database_name) + '.sys.objects as o on ' +
                            'o.object_id = coalesce(p.object_id, b.object_id) ' +
                        'left outer join ' + quotename(@database_name) + '.sys.schemas as s on ' +
                            's.schema_id = coalesce(o.schema_id, b.schema_id) ' +
                        'where ' +
                            'b.database_name = @database_name; ';
                    
                    exec sp_executesql
                        @sql_n,
                        n'@database_name sysname',
                        @database_name;
                end try
                begin catch;
                    update #blocked_requests
                    set
                        query_error = 
                            replace
                            (
                                replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                    convert
                                    (
                                        nvarchar(max), 
                                        error_message() collate latin1_general_bin2
                                    ),
                                    nchar(31),n'?'),nchar(30),n'?'),nchar(29),n'?'),nchar(28),n'?'),nchar(27),n'?'),nchar(26),n'?'),nchar(25),n'?'),nchar(24),n'?'),nchar(23),n'?'),nchar(22),n'?'),
                                    nchar(21),n'?'),nchar(20),n'?'),nchar(19),n'?'),nchar(18),n'?'),nchar(17),n'?'),nchar(16),n'?'),nchar(15),n'?'),nchar(14),n'?'),nchar(12),n'?'),
                                    nchar(11),n'?'),nchar(8),n'?'),nchar(7),n'?'),nchar(6),n'?'),nchar(5),n'?'),nchar(4),n'?'),nchar(3),n'?'),nchar(2),n'?'),nchar(1),n'?'),
                                nchar(0),
                                n''
                            )
                    where
                        database_name = @database_name;
                end catch;

                fetch next from blocks_cursor
                into
                    @database_name;
            end;
            
            close blocks_cursor;
            deallocate blocks_cursor;
            
            update s
            set
                additional_info.modify
                ('
                    insert <schema_name>{sql:column("b.schema_name")}</schema_name>
                    as last
                    into (/additional_info/block_info)[1]
                ')
            from #sessions as s
            inner join #blocked_requests as b on
                b.session_id = s.session_id
                and b.request_id = s.request_id
                and s.recursion = 1
            where
                b.schema_name is not null;

            update s
            set
                additional_info.modify
                ('
                    insert <object_name>{sql:column("b.object_name")}</object_name>
                    as last
                    into (/additional_info/block_info)[1]
                ')
            from #sessions as s
            inner join #blocked_requests as b on
                b.session_id = s.session_id
                and b.request_id = s.request_id
                and s.recursion = 1
            where
                b.object_name is not null;

            update s
            set
                additional_info.modify
                ('
                    insert <query_error>{sql:column("b.query_error")}</query_error>
                    as last
                    into (/additional_info/block_info)[1]
                ')
            from #sessions as s
            inner join #blocked_requests as b on
                b.session_id = s.session_id
                and b.request_id = s.request_id
                and s.recursion = 1
            where
                b.query_error is not null;
        end;

        if
            @output_column_list like '%|[program_name|]%' escape '|'
            and @output_column_list like '%|[additional_info|]%' escape '|'
            and @recursion = 1
        begin;
            declare @job_id uniqueidentifier;
            declare @step_id int;

            declare agent_cursor
            cursor local fast_forward
            for 
                select
                    s.session_id,
                    agent_nodes.agent_node.value('(job_id/text())[1]', 'uniqueidentifier') as job_id,
                    agent_nodes.agent_node.value('(step_id/text())[1]', 'int') as step_id
                from #sessions as s
                cross apply s.additional_info.nodes('//agent_job_info') as agent_nodes (agent_node)
                where
                    s.recursion = 1
            option (keepfixed plan);
            
            open agent_cursor;

            fetch next from agent_cursor
            into 
                @session_id,
                @job_id,
                @step_id;

            while @@fetch_status = 0
            begin;
                begin try;
                    declare @job_name sysname;
                    set @job_name = null;
                    declare @step_name sysname;
                    set @step_name = null;
                    
                    select
                        @job_name = 
                            replace
                            (
                                replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                    j.name,
                                    nchar(31),n'?'),nchar(30),n'?'),nchar(29),n'?'),nchar(28),n'?'),nchar(27),n'?'),nchar(26),n'?'),nchar(25),n'?'),nchar(24),n'?'),nchar(23),n'?'),nchar(22),n'?'),
                                    nchar(21),n'?'),nchar(20),n'?'),nchar(19),n'?'),nchar(18),n'?'),nchar(17),n'?'),nchar(16),n'?'),nchar(15),n'?'),nchar(14),n'?'),nchar(12),n'?'),
                                    nchar(11),n'?'),nchar(8),n'?'),nchar(7),n'?'),nchar(6),n'?'),nchar(5),n'?'),nchar(4),n'?'),nchar(3),n'?'),nchar(2),n'?'),nchar(1),n'?'),
                                nchar(0),
                                n'?'
                            ),
                        @step_name = 
                            replace
                            (
                                replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(
                                    s.step_name,
                                    nchar(31),n'?'),nchar(30),n'?'),nchar(29),n'?'),nchar(28),n'?'),nchar(27),n'?'),nchar(26),n'?'),nchar(25),n'?'),nchar(24),n'?'),nchar(23),n'?'),nchar(22),n'?'),
                                    nchar(21),n'?'),nchar(20),n'?'),nchar(19),n'?'),nchar(18),n'?'),nchar(17),n'?'),nchar(16),n'?'),nchar(15),n'?'),nchar(14),n'?'),nchar(12),n'?'),
                                    nchar(11),n'?'),nchar(8),n'?'),nchar(7),n'?'),nchar(6),n'?'),nchar(5),n'?'),nchar(4),n'?'),nchar(3),n'?'),nchar(2),n'?'),nchar(1),n'?'),
                                nchar(0),
                                n'?'
                            )
                    from msdb.dbo.sysjobs as j
                    inner join msdb..sysjobsteps as s on
                        j.job_id = s.job_id
                    where
                        j.job_id = @job_id
                        and s.step_id = @step_id;

                    if @job_name is not null
                    begin;
                        update s
                        set
                            additional_info.modify
                            ('
                                insert text{sql:variable("@job_name")}
                                into (/additional_info/agent_job_info/job_name)[1]
                            ')
                        from #sessions as s
                        where 
                            s.session_id = @session_id
                        option (keepfixed plan);
                        
                        update s
                        set
                            additional_info.modify
                            ('
                                insert text{sql:variable("@step_name")}
                                into (/additional_info/agent_job_info/step_name)[1]
                            ')
                        from #sessions as s
                        where 
                            s.session_id = @session_id
                        option (keepfixed plan);
                    end;
                end try
                begin catch;
                    declare @msdb_error_message nvarchar(256);
                    set @msdb_error_message = error_message();
                
                    update s
                    set
                        additional_info.modify
                        ('
                            insert <msdb_query_error>{sql:variable("@msdb_error_message")}</msdb_query_error>
                            as last
                            into (/additional_info/agent_job_info)[1]
                        ')
                    from #sessions as s
                    where 
                        s.session_id = @session_id
                        and s.recursion = 1
                    option (keepfixed plan);
                end catch;

                fetch next from agent_cursor
                into 
                    @session_id,
                    @job_id,
                    @step_id;
            end;

            close agent_cursor;
            deallocate agent_cursor;
        end; 
        
        if 
            @delta_interval > 0 
            and @recursion <> 1
        begin;
            set @recursion = 1;

            declare @delay_time char(12);
            set @delay_time = convert(varchar, dateadd(second, @delta_interval, 0), 114);
            waitfor delay @delay_time;

            goto redo;
        end;
    end;

    set @sql = 
        --outer column list
        convert
        (
            varchar(max),
            case
                when 
                    @destination_table <> '' 
                    and @return_schema = 0 
                        then 'insert ' + @destination_table + ' '
                else ''
            end +
            'select ' +
                @output_column_list + ' ' +
            case @return_schema
                when 1 then 'into #session_schema '
                else ''
            end
        --end outer column list
        ) + 
        --inner column list
        convert
        (
            varchar(max),
            'from ' +
            '( ' +
                'select ' +
                    'session_id, ' +
                    --[dd hh:mm:ss.mss]
                    case
                        when @format_output in (1, 2) then
                            'case ' +
                                'when elapsed_time < 0 then ' +
                                    'right ' +
                                    '( ' +
                                        'replicate(''0'', max_elapsed_length) + convert(varchar, (-1 * elapsed_time) / 86400), ' +
                                        'max_elapsed_length ' +
                                    ') + ' +
                                        'right ' +
                                        '( ' +
                                            'convert(varchar, dateadd(second, (-1 * elapsed_time), 0), 120), ' +
                                            '9 ' +
                                        ') + ' +
                                        '''.000'' ' +
                                'else ' +
                                    'right ' +
                                    '( ' +
                                        'replicate(''0'', max_elapsed_length) + convert(varchar, elapsed_time / 86400000), ' +
                                        'max_elapsed_length ' +
                                    ') + ' +
                                        'right ' +
                                        '( ' +
                                            'convert(varchar, dateadd(second, elapsed_time / 1000, 0), 120), ' +
                                            '9 ' +
                                        ') + ' +
                                        '''.'' + ' + 
                                        'right(''000'' + convert(varchar, elapsed_time % 1000), 3) ' +
                            'end as [dd hh:mm:ss.mss], '
                        else
                            ''
                    end +
                    --[dd hh:mm:ss.mss (avg)] / avg_elapsed_time
                    case 
                        when  @format_output in (1, 2) then 
                            'right ' +
                            '( ' +
                                '''00'' + convert(varchar, avg_elapsed_time / 86400000), ' +
                                '2 ' +
                            ') + ' +
                                'right ' +
                                '( ' +
                                    'convert(varchar, dateadd(second, avg_elapsed_time / 1000, 0), 120), ' +
                                    '9 ' +
                                ') + ' +
                                '''.'' + ' +
                                'right(''000'' + convert(varchar, avg_elapsed_time % 1000), 3) as [dd hh:mm:ss.mss (avg)], '
                        else
                            'avg_elapsed_time, '
                    end +
                    --physical_io
                    case @format_output
                        when 1 then 'convert(varchar, space(max(len(convert(varchar, physical_io))) over() - len(convert(varchar, physical_io))) + left(convert(char(22), convert(money, physical_io), 1), 19)) as '
                        when 2 then 'convert(varchar, left(convert(char(22), convert(money, physical_io), 1), 19)) as '
                        else ''
                    end + 'physical_io, ' +
                    --reads
                    case @format_output
                        when 1 then 'convert(varchar, space(max(len(convert(varchar, reads))) over() - len(convert(varchar, reads))) + left(convert(char(22), convert(money, reads), 1), 19)) as '
                        when 2 then 'convert(varchar, left(convert(char(22), convert(money, reads), 1), 19)) as '
                        else ''
                    end + 'reads, ' +
                    --physical_reads
                    case @format_output
                        when 1 then 'convert(varchar, space(max(len(convert(varchar, physical_reads))) over() - len(convert(varchar, physical_reads))) + left(convert(char(22), convert(money, physical_reads), 1), 19)) as '
                        when 2 then 'convert(varchar, left(convert(char(22), convert(money, physical_reads), 1), 19)) as '
                        else ''
                    end + 'physical_reads, ' +
                    --writes
                    case @format_output
                        when 1 then 'convert(varchar, space(max(len(convert(varchar, writes))) over() - len(convert(varchar, writes))) + left(convert(char(22), convert(money, writes), 1), 19)) as '
                        when 2 then 'convert(varchar, left(convert(char(22), convert(money, writes), 1), 19)) as '
                        else ''
                    end + 'writes, ' +
                    --tempdb_allocations
                    case @format_output
                        when 1 then 'convert(varchar, space(max(len(convert(varchar, tempdb_allocations))) over() - len(convert(varchar, tempdb_allocations))) + left(convert(char(22), convert(money, tempdb_allocations), 1), 19)) as '
                        when 2 then 'convert(varchar, left(convert(char(22), convert(money, tempdb_allocations), 1), 19)) as '
                        else ''
                    end + 'tempdb_allocations, ' +
                    --tempdb_current
                    case @format_output
                        when 1 then 'convert(varchar, space(max(len(convert(varchar, tempdb_current))) over() - len(convert(varchar, tempdb_current))) + left(convert(char(22), convert(money, tempdb_current), 1), 19)) as '
                        when 2 then 'convert(varchar, left(convert(char(22), convert(money, tempdb_current), 1), 19)) as '
                        else ''
                    end + 'tempdb_current, ' +
                    --cpu
                    case @format_output
                        when 1 then 'convert(varchar, space(max(len(convert(varchar, cpu))) over() - len(convert(varchar, cpu))) + left(convert(char(22), convert(money, cpu), 1), 19)) as '
                        when 2 then 'convert(varchar, left(convert(char(22), convert(money, cpu), 1), 19)) as '
                        else ''
                    end + 'cpu, ' +
                    --context_switches
                    case @format_output
                        when 1 then 'convert(varchar, space(max(len(convert(varchar, context_switches))) over() - len(convert(varchar, context_switches))) + left(convert(char(22), convert(money, context_switches), 1), 19)) as '
                        when 2 then 'convert(varchar, left(convert(char(22), convert(money, context_switches), 1), 19)) as '
                        else ''
                    end + 'context_switches, ' +
                    --used_memory
                    case @format_output
                        when 1 then 'convert(varchar, space(max(len(convert(varchar, used_memory))) over() - len(convert(varchar, used_memory))) + left(convert(char(22), convert(money, used_memory), 1), 19)) as '
                        when 2 then 'convert(varchar, left(convert(char(22), convert(money, used_memory), 1), 19)) as '
                        else ''
                    end + 'used_memory, ' +
                    case
                        when @output_column_list like '%|_delta|]%' escape '|' then
                            --physical_io_delta            
                            'case ' +
                                'when ' +
                                    'first_request_start_time = last_request_start_time ' + 
                                    'and num_events = 2 ' +
                                    'and physical_io_delta >= 0 ' +
                                        'then ' +
                                        case @format_output
                                            when 1 then 'convert(varchar, space(max(len(convert(varchar, physical_io_delta))) over() - len(convert(varchar, physical_io_delta))) + left(convert(char(22), convert(money, physical_io_delta), 1), 19)) ' 
                                            when 2 then 'convert(varchar, left(convert(char(22), convert(money, physical_io_delta), 1), 19)) '
                                            else 'physical_io_delta '
                                        end +
                                'else null ' +
                            'end as physical_io_delta, ' +
                            --reads_delta
                            'case ' +
                                'when ' +
                                    'first_request_start_time = last_request_start_time ' + 
                                    'and num_events = 2 ' +
                                    'and reads_delta >= 0 ' +
                                        'then ' +
                                        case @format_output
                                            when 1 then 'convert(varchar, space(max(len(convert(varchar, reads_delta))) over() - len(convert(varchar, reads_delta))) + left(convert(char(22), convert(money, reads_delta), 1), 19)) '
                                            when 2 then 'convert(varchar, left(convert(char(22), convert(money, reads_delta), 1), 19)) '
                                            else 'reads_delta '
                                        end +
                                'else null ' +
                            'end as reads_delta, ' +
                            --physical_reads_delta
                            'case ' +
                                'when ' +
                                    'first_request_start_time = last_request_start_time ' + 
                                    'and num_events = 2 ' +
                                    'and physical_reads_delta >= 0 ' +
                                        'then ' +
                                        case @format_output
                                            when 1 then 'convert(varchar, space(max(len(convert(varchar, physical_reads_delta))) over() - len(convert(varchar, physical_reads_delta))) + left(convert(char(22), convert(money, physical_reads_delta), 1), 19)) '
                                            when 2 then 'convert(varchar, left(convert(char(22), convert(money, physical_reads_delta), 1), 19)) '
                                            else 'physical_reads_delta '
                                        end + 
                                'else null ' +
                            'end as physical_reads_delta, ' +
                            --writes_delta
                            'case ' +
                                'when ' +
                                    'first_request_start_time = last_request_start_time ' + 
                                    'and num_events = 2 ' +
                                    'and writes_delta >= 0 ' +
                                        'then ' +
                                        case @format_output
                                            when 1 then 'convert(varchar, space(max(len(convert(varchar, writes_delta))) over() - len(convert(varchar, writes_delta))) + left(convert(char(22), convert(money, writes_delta), 1), 19)) '
                                            when 2 then 'convert(varchar, left(convert(char(22), convert(money, writes_delta), 1), 19)) '
                                            else 'writes_delta '
                                        end + 
                                'else null ' +
                            'end as writes_delta, ' +
                            --tempdb_allocations_delta
                            'case ' +
                                'when ' +
                                    'first_request_start_time = last_request_start_time ' + 
                                    'and num_events = 2 ' +
                                    'and tempdb_allocations_delta >= 0 ' +
                                        'then ' +
                                        case @format_output
                                            when 1 then 'convert(varchar, space(max(len(convert(varchar, tempdb_allocations_delta))) over() - len(convert(varchar, tempdb_allocations_delta))) + left(convert(char(22), convert(money, tempdb_allocations_delta), 1), 19)) '
                                            when 2 then 'convert(varchar, left(convert(char(22), convert(money, tempdb_allocations_delta), 1), 19)) '
                                            else 'tempdb_allocations_delta '
                                        end + 
                                'else null ' +
                            'end as tempdb_allocations_delta, ' +
                            --tempdb_current_delta
                            --this is the only one that can (legitimately) go negative 
                            'case ' +
                                'when ' +
                                    'first_request_start_time = last_request_start_time ' + 
                                    'and num_events = 2 ' +
                                        'then ' +
                                        case @format_output
                                            when 1 then 'convert(varchar, space(max(len(convert(varchar, tempdb_current_delta))) over() - len(convert(varchar, tempdb_current_delta))) + left(convert(char(22), convert(money, tempdb_current_delta), 1), 19)) '
                                            when 2 then 'convert(varchar, left(convert(char(22), convert(money, tempdb_current_delta), 1), 19)) '
                                            else 'tempdb_current_delta '
                                        end + 
                                'else null ' +
                            'end as tempdb_current_delta, ' +
                            --cpu_delta
                            'case ' +
                                'when ' +
                                    'first_request_start_time = last_request_start_time ' + 
                                    'and num_events = 2 ' +
                                        'then ' +
                                            'case ' +
                                                'when ' +
                                                    'thread_cpu_delta > cpu_delta ' +
                                                    'and thread_cpu_delta > 0 ' +
                                                        'then ' +
                                                            case @format_output
                                                                when 1 then 'convert(varchar, space(max(len(convert(varchar, thread_cpu_delta + cpu_delta))) over() - len(convert(varchar, thread_cpu_delta))) + left(convert(char(22), convert(money, thread_cpu_delta), 1), 19)) '
                                                                when 2 then 'convert(varchar, left(convert(char(22), convert(money, thread_cpu_delta), 1), 19)) '
                                                                else 'thread_cpu_delta '
                                                            end + 
                                                'when cpu_delta >= 0 then ' +
                                                    case @format_output
                                                        when 1 then 'convert(varchar, space(max(len(convert(varchar, thread_cpu_delta + cpu_delta))) over() - len(convert(varchar, cpu_delta))) + left(convert(char(22), convert(money, cpu_delta), 1), 19)) '
                                                        when 2 then 'convert(varchar, left(convert(char(22), convert(money, cpu_delta), 1), 19)) '
                                                        else 'cpu_delta '
                                                    end + 
                                                'else null ' +
                                            'end ' +
                                'else ' +
                                    'null ' +
                            'end as cpu_delta, ' +
                            --context_switches_delta
                            'case ' +
                                'when ' +
                                    'first_request_start_time = last_request_start_time ' + 
                                    'and num_events = 2 ' +
                                    'and context_switches_delta >= 0 ' +
                                        'then ' +
                                        case @format_output
                                            when 1 then 'convert(varchar, space(max(len(convert(varchar, context_switches_delta))) over() - len(convert(varchar, context_switches_delta))) + left(convert(char(22), convert(money, context_switches_delta), 1), 19)) '
                                            when 2 then 'convert(varchar, left(convert(char(22), convert(money, context_switches_delta), 1), 19)) '
                                            else 'context_switches_delta '
                                        end + 
                                'else null ' +
                            'end as context_switches_delta, ' +
                            --used_memory_delta
                            'case ' +
                                'when ' +
                                    'first_request_start_time = last_request_start_time ' + 
                                    'and num_events = 2 ' +
                                    'and used_memory_delta >= 0 ' +
                                        'then ' +
                                        case @format_output
                                            when 1 then 'convert(varchar, space(max(len(convert(varchar, used_memory_delta))) over() - len(convert(varchar, used_memory_delta))) + left(convert(char(22), convert(money, used_memory_delta), 1), 19)) '
                                            when 2 then 'convert(varchar, left(convert(char(22), convert(money, used_memory_delta), 1), 19)) '
                                            else 'used_memory_delta '
                                        end + 
                                'else null ' +
                            'end as used_memory_delta, '
                        else ''
                    end +
                    --tasks
                    case @format_output
                        when 1 then 'convert(varchar, space(max(len(convert(varchar, tasks))) over() - len(convert(varchar, tasks))) + left(convert(char(22), convert(money, tasks), 1), 19)) as '
                        when 2 then 'convert(varchar, left(convert(char(22), convert(money, tasks), 1), 19)) '
                        else ''
                    end + 'tasks, ' +
                    'status, ' +
                    'wait_info, ' +
                    'locks, ' +
                    'tran_start_time, ' +
                    'left(tran_log_writes, len(tran_log_writes) - 1) as tran_log_writes, ' +
                    --open_tran_count
                    case @format_output
                        when 1 then 'convert(varchar, space(max(len(convert(varchar, open_tran_count))) over() - len(convert(varchar, open_tran_count))) + left(convert(char(22), convert(money, open_tran_count), 1), 19)) as '
                        when 2 then 'convert(varchar, left(convert(char(22), convert(money, open_tran_count), 1), 19)) as '
                        else ''
                    end + 'open_tran_count, ' +
                    --sql_command
                    case @format_output 
                        when 0 then 'replace(replace(convert(nvarchar(max), sql_command), ''<?query --''+char(13)+char(10), ''''), char(13)+char(10)+''--?>'', '''') as '
                        else ''
                    end + 'sql_command, ' +
                    --sql_text
                    case @format_output 
                        when 0 then 'replace(replace(convert(nvarchar(max), sql_text), ''<?query --''+char(13)+char(10), ''''), char(13)+char(10)+''--?>'', '''') as '
                        else ''
                    end + 'sql_text, ' +
                    'query_plan, ' +
                    'blocking_session_id, ' +
                    --blocked_session_count
                    case @format_output
                        when 1 then 'convert(varchar, space(max(len(convert(varchar, blocked_session_count))) over() - len(convert(varchar, blocked_session_count))) + left(convert(char(22), convert(money, blocked_session_count), 1), 19)) as '
                        when 2 then 'convert(varchar, left(convert(char(22), convert(money, blocked_session_count), 1), 19)) as '
                        else ''
                    end + 'blocked_session_count, ' +
                    --percent_complete
                    case @format_output
                        when 1 then 'convert(varchar, space(max(len(convert(varchar, convert(money, percent_complete), 2))) over() - len(convert(varchar, convert(money, percent_complete), 2))) + convert(char(22), convert(money, percent_complete), 2)) as '
                        when 2 then 'convert(varchar, convert(char(22), convert(money, blocked_session_count), 1)) as '
                        else ''
                    end + 'percent_complete, ' +
                    'host_name, ' +
                    'login_name, ' +
                    'database_name, ' +
                    'program_name, ' +
                    'additional_info, ' +
                    'start_time, ' +
                    'login_time, ' +
                    'case ' +
                        'when status = n''sleeping'' then null ' +
                        'else request_id ' +
                    'end as request_id, ' +
                    'getdate() as collection_time '
        --end inner column list
        ) +
        --derived table and insert specification
        convert
        (
            varchar(max),
                'from ' +
                '( ' +
                    'select top(2147483647) ' +
                        '*, ' +
                        'case ' +
                            'max ' +
                            '( ' +
                                'len ' +
                                '( ' +
                                    'convert ' +
                                    '( ' +
                                        'varchar, ' +
                                        'case ' +
                                            'when elapsed_time < 0 then ' +
                                                '(-1 * elapsed_time) / 86400 ' +
                                            'else ' +
                                                'elapsed_time / 86400000 ' +
                                        'end ' +
                                    ') ' +
                                ') ' +
                            ') over () ' +
                                'when 1 then 2 ' +
                                'else ' +
                                    'max ' +
                                    '( ' +
                                        'len ' +
                                        '( ' +
                                            'convert ' +
                                            '( ' +
                                                'varchar, ' +
                                                'case ' +
                                                    'when elapsed_time < 0 then ' +
                                                        '(-1 * elapsed_time) / 86400 ' +
                                                    'else ' +
                                                        'elapsed_time / 86400000 ' +
                                                'end ' +
                                            ') ' +
                                        ') ' +
                                    ') over () ' +
                        'end as max_elapsed_length, ' +
                        case
                            when @output_column_list like '%|_delta|]%' escape '|' then
                                'max(physical_io * recursion) over (partition by session_id, request_id) + ' +
                                    'min(physical_io * recursion) over (partition by session_id, request_id) as physical_io_delta, ' +
                                'max(reads * recursion) over (partition by session_id, request_id) + ' +
                                    'min(reads * recursion) over (partition by session_id, request_id) as reads_delta, ' +
                                'max(physical_reads * recursion) over (partition by session_id, request_id) + ' +
                                    'min(physical_reads * recursion) over (partition by session_id, request_id) as physical_reads_delta, ' +
                                'max(writes * recursion) over (partition by session_id, request_id) + ' +
                                    'min(writes * recursion) over (partition by session_id, request_id) as writes_delta, ' +
                                'max(tempdb_allocations * recursion) over (partition by session_id, request_id) + ' +
                                    'min(tempdb_allocations * recursion) over (partition by session_id, request_id) as tempdb_allocations_delta, ' +
                                'max(tempdb_current * recursion) over (partition by session_id, request_id) + ' +
                                    'min(tempdb_current * recursion) over (partition by session_id, request_id) as tempdb_current_delta, ' +
                                'max(cpu * recursion) over (partition by session_id, request_id) + ' +
                                    'min(cpu * recursion) over (partition by session_id, request_id) as cpu_delta, ' +
                                'max(thread_cpu_snapshot * recursion) over (partition by session_id, request_id) + ' +
                                    'min(thread_cpu_snapshot * recursion) over (partition by session_id, request_id) as thread_cpu_delta, ' +
                                'max(context_switches * recursion) over (partition by session_id, request_id) + ' +
                                    'min(context_switches * recursion) over (partition by session_id, request_id) as context_switches_delta, ' +
                                'max(used_memory * recursion) over (partition by session_id, request_id) + ' +
                                    'min(used_memory * recursion) over (partition by session_id, request_id) as used_memory_delta, ' +
                                'min(last_request_start_time) over (partition by session_id, request_id) as first_request_start_time, '
                            else ''
                        end +
                        'count(*) over (partition by session_id, request_id) as num_events ' +
                    'from #sessions as s1 ' +
                    case 
                        when @sort_order = '' then ''
                        else
                            'order by ' +
                                @sort_order
                    end +
                ') as s ' +
                'where ' +
                    's.recursion = 1 ' +
            ') x ' +
            'option (keepfixed plan); ' +
            '' +
            case @return_schema
                when 1 then
                    'set @schema = ' +
                        '''create table <table_name> ( '' + ' +
                            'stuff ' +
                            '( ' +
                                '( ' +
                                    'select ' +
                                        ''','' + ' +
                                        'quotename(column_name) + '' '' + ' +
                                        'data_type + ' + 
                                        'case ' +
                                            'when data_type like ''%char'' then ''('' + coalesce(nullif(convert(varchar, character_maximum_length), ''-1''), ''max'') + '') '' ' +
                                            'else '' '' ' +
                                        'end + ' +
                                        'case is_nullable ' +
                                            'when ''no'' then ''not '' ' +
                                            'else '''' ' +
                                        'end + ''null'' as [text()] ' +
                                    'from tempdb.information_schema.columns ' +
                                    'where ' +
                                        'table_name = (select name from tempdb.sys.objects where object_id = object_id(''tempdb..#session_schema'')) ' +
                                        'order by ' +
                                            'ordinal_position ' +
                                    'for xml ' +
                                        'path('''') ' +
                                '), + ' +
                                '1, ' +
                                '1, ' +
                                ''''' ' +
                            ') + ' +
                        ''')''; ' 
                else ''
            end
        --end derived table and insert specification
        );

    set @sql_n = convert(nvarchar(max), @sql);

    exec sp_executesql
        @sql_n,
        n'@schema varchar(max) output',
        @schema output;
end;
go