create procedure sys.sp_MSissnapshotagentrunning
(
    @publication sysname
)
with execute as 'dbo'
as
begin
    declare @retcode int

    exec @retcode = sys.sp_getapplock
        @Resource = @publication,
        @LockMode = 'Exclusive',
        @LockOwner = 'Session',
        @LockTimeout = 0,
        @DbPrincipal = 'db_owner'

    if @retcode >= 0
    begin
        exec @retcode = sys.sp_releaseapplock
            @Resource = @publication,
            @LockOwner = 'Session',
            @DbPrincipal = 'db_owner'

        set @retcode = 0
    end
    else
    begin
        set @retcode = 1
    end
    return @retcode
end