home *** CD-ROM | disk | FTP | other *** search
/ 95.86.62.111 / 95.86.62.111.tar / 95.86.62.111 / sql2000 / INSTALL / instdist.sql < prev    next >
Text File  |  2000-07-25  |  757KB  |  21,309 lines
  1. /*
  2. ** InstDist.SQL   
  3. **
  4. **
  5. ** Copyright Microsoft, Inc. 1998-2000
  6. ** All Rights Reserved.
  7. */
  8.  
  9.  
  10. if (    (db_id()     = 1)  -- 'master' db
  11.     OR
  12.         is_srvrolemember('sysadmin') <> 1  -- SA
  13.    )
  14.     begin
  15.     raiserror('Error, the ''master'' database cannot be the distribution database.  This ISQL run will terminate now.'
  16.                  ,11,127)  -- State=127 should halt ISQL.EXE
  17.     end
  18.  
  19. if (    (db_id()     = 1)  -- 'master' db
  20.     OR
  21.         is_srvrolemember('sysadmin') <> 1 -- SA
  22.    )
  23.     begin
  24.     raiserror('Minor error, because previous attempt to gently terminate ISQL failed.  Harshly killing spid.'
  25.                  ,22,127) with log   -- SeverityLevel>=19 kills spid.
  26.     end
  27. select 'At top, db_name()=',db_name()
  28.  
  29. go
  30.  
  31.  
  32. declare @dbname sysname
  33. select  @dbname = db_name()
  34. execute('dump transaction ' +@dbname+ ' with no_log')
  35. go
  36. checkpoint
  37.  
  38. go
  39. EXEC dbo.sp_configure 'allow updates', 1
  40. GO
  41. reconfigure with override
  42. GO
  43.  
  44. set ANSI_NULLS off
  45. go
  46.  
  47. --
  48. -- Check and make sure the database has the correct compatibility level
  49. --
  50. declare @dbname sysname
  51.         ,@cmptlevelmaster tinyint
  52.         ,@cmptlevel tinyint
  53.         
  54. select  @dbname = db_name()
  55. select     @cmptlevelmaster = cmptlevel from master.dbo.sysdatabases where name = 'master'
  56. select     @cmptlevel = cmptlevel from master.dbo.sysdatabases where name = @dbname
  57. if (@cmptlevel != @cmptlevelmaster)
  58. begin
  59.     raiserror('Warning: Distribution database ''%s'' has compatibility level of %d. Changing it to %d.'
  60.         ,10, 1, @dbname, @cmptlevel, @cmptlevelmaster)
  61.     exec dbo.sp_dbcmptlevel @dbname, @cmptlevelmaster
  62. end
  63. go
  64.  
  65. /****************************************************************************/
  66. PRINT ''
  67. PRINT 'Creating distribution tables'
  68. PRINT ''
  69. /****************************************************************************/
  70. EXEC dbo.sp_MScreate_dist_tables
  71. go
  72.  
  73. declare @dbname sysname
  74. select  @dbname = db_name()
  75. execute('dump transaction ' +@dbname+ ' with no_log')
  76. go
  77.  
  78. exec dbo.sp_MS_upd_sysobj_category 1  --Capture now_datetime for use below.
  79.  
  80. /****************************************************************************/
  81. PRINT ''
  82. PRINT 'Dropping all distribution stored procedures'
  83. PRINT ''
  84. /****************************************************************************/
  85. IF EXISTS (SELECT * FROM sysobjects WHERE
  86.    name = 'sp_MSadd_repl_command' and type = 'P')
  87.       DROP PROCEDURE sp_MSadd_repl_command
  88.  
  89. IF EXISTS (SELECT * FROM sysobjects WHERE
  90.    name = 'sp_MScheckretention' and type = 'P')
  91.       DROP PROCEDURE sp_MScheckretention
  92.  
  93. IF EXISTS (SELECT * FROM sysobjects WHERE
  94.    name = 'sp_MScheck_Jet_Subscriber' and type = 'P')
  95.       DROP PROCEDURE sp_MScheck_Jet_Subscriber
  96.  
  97. IF EXISTS (SELECT * FROM sysobjects WHERE
  98.    name = 'sp_MSadd_repl_commands27' and type = 'P')
  99.       DROP PROCEDURE sp_MSadd_repl_commands27
  100.  
  101. IF EXISTS (SELECT * FROM sysobjects WHERE
  102.    name = 'sp_MSadd_repl_commands27hp' and type = 'P')
  103.       DROP PROCEDURE sp_MSadd_repl_commands27hp
  104.  
  105. IF EXISTS (SELECT * FROM sysobjects WHERE
  106.    name = 'sp_MSadd_repl_commands27hp6x' and type = 'P')
  107.       DROP PROCEDURE sp_MSadd_repl_commands27hp6x
  108.  
  109. IF EXISTS (SELECT * FROM sysobjects WHERE
  110.    name = 'sp_MSrefresh_anonymous' and type = 'P')
  111.       DROP PROCEDURE sp_MSrefresh_anonymous
  112.       
  113. IF EXISTS (SELECT * FROM sysobjects WHERE
  114.    name = 'sp_MSadd_subscription' and type = 'P')
  115.       DROP PROCEDURE sp_MSadd_subscription
  116.  
  117. IF EXISTS (SELECT * FROM sysobjects WHERE                    
  118.    name = 'sp_MSdrop_subscription' and type = 'P')
  119.       DROP PROCEDURE sp_MSdrop_subscription
  120.  
  121. if exists (select * from sysobjects where 
  122.     type = 'P' and name = 'sp_MSfetchAdjustidentityrange')
  123.     drop procedure sp_MSfetchAdjustidentityrange
  124.  
  125. IF EXISTS (SELECT * FROM sysobjects WHERE   
  126.     name = 'sp_MSupdate_subscription' and type = 'P')
  127.        DROP PROCEDURE sp_MSupdate_subscription
  128.  
  129. IF EXISTS (SELECT * FROM sysobjects WHERE
  130.     name = 'sp_MSget_repl_commands' and type = 'P')
  131.        DROP PROCEDURE sp_MSget_repl_commands
  132.  
  133. IF EXISTS (SELECT * FROM sysobjects WHERE
  134.     name = 'sp_MSget_repl_cmds_anonymous' and type = 'P')
  135.        DROP PROCEDURE sp_MSget_repl_cmds_anonymous
  136.  
  137. IF EXISTS (select * from sysobjects where
  138.    name = 'sp_MSdrop_agent_entry' and type = 'P')
  139.       DROP PROCEDURE sp_MSdrop_agent_entry
  140.       
  141. IF EXISTS (SELECT * FROM sysobjects WHERE
  142.     name = 'sp_MSadd_anonymous_agent' and type = 'P')
  143.        DROP PROCEDURE sp_MSadd_anonymous_agent
  144.  
  145. -- SyncTran
  146.  
  147.  
  148. IF EXISTS (SELECT * FROM sysobjects WHERE
  149.     name = 'sp_MSget_undelivered_commands' and type = 'P')
  150.        DROP PROCEDURE sp_MSget_undelivered_commands
  151.  
  152. IF EXISTS (SELECT * FROM sysobjects WHERE
  153.     name = 'sp_MSget_anonymous_cmds' and type = 'P')
  154.        DROP PROCEDURE sp_MSget_anonymous_cmds
  155.  
  156. IF EXISTS (SELECT * FROM sysobjects WHERE
  157.     name = 'sp_MSget_loopback_cmds' and type = 'P')
  158.        DROP PROCEDURE sp_MSget_loopback_cmds
  159.  
  160. IF EXISTS (SELECT * FROM sysobjects WHERE
  161.     name = 'sp_MSanonymous_status' and type = 'P')
  162.        DROP PROCEDURE sp_MSanonymous_status
  163.  
  164. IF EXISTS (SELECT * FROM sysobjects WHERE
  165.     name = 'sp_MSsubscription_status' and type = 'P')
  166.        DROP PROCEDURE sp_MSsubscription_status
  167. GO    
  168.  
  169. declare @dbname sysname
  170. select  @dbname = db_name()
  171. execute('dump transaction ' +@dbname+ ' with no_log')
  172.  
  173. go
  174.  
  175. IF EXISTS (SELECT * FROM sysobjects WHERE
  176.    name = 'sp_MSget_last_transaction' and type = 'P')
  177.       DROP PROCEDURE sp_MSget_last_transaction
  178.     
  179.  
  180. IF EXISTS (SELECT * FROM sysobjects WHERE
  181.    name = 'sp_MSadd_subscriber_info' and type = 'P')
  182.       DROP PROCEDURE sp_MSadd_subscriber_info
  183.  
  184. IF EXISTS (SELECT * FROM sysobjects WHERE
  185.    name = 'sp_MSadd_subscriber_schedule' and type = 'P')
  186.       DROP PROCEDURE sp_MSadd_subscriber_schedule
  187.  
  188. IF EXISTS (SELECT * FROM sysobjects WHERE
  189.    name = 'sp_MSupdate_subscriber_info' and type = 'P')
  190.       DROP PROCEDURE sp_MSupdate_subscriber_info
  191.  
  192. IF EXISTS (SELECT * FROM sysobjects WHERE
  193.    name = 'sp_MSupdate_subscriber_schedule' and type = 'P')
  194.       DROP PROCEDURE sp_MSupdate_subscriber_schedule
  195.  
  196. IF EXISTS (SELECT * FROM sysobjects WHERE
  197.    name = 'sp_MSdrop_subscriber_info' and type = 'P')
  198.       DROP PROCEDURE sp_MSdrop_subscriber_info
  199.  
  200. IF EXISTS (SELECT * FROM sysobjects WHERE
  201.    name = 'sp_MShelp_subscriber_info' and type = 'P')
  202.       DROP PROCEDURE sp_MShelp_subscriber_info
  203.  
  204. IF EXISTS (select * from sysobjects where
  205.    name = 'sp_MSdistribution_counters' and type = 'P')
  206.       DROP PROCEDURE sp_MSdistribution_counters
  207.  
  208. IF EXISTS (select * from sysobjects where
  209.    name = 'sp_MSremove_published_jobs' and type = 'P')
  210.       DROP PROCEDURE sp_MSremove_published_jobs
  211.  
  212. IF EXISTS (select * from sysobjects where
  213.    name = 'sp_MSset_snapshot_xact_seqno' and type = 'P')
  214.       DROP PROCEDURE sp_MSset_snapshot_xact_seqno
  215.  
  216. IF EXISTS (select * from sysobjects where
  217.    name = 'sp_MSadd_snapshot_history' and type = 'P')
  218.       DROP PROCEDURE sp_MSadd_snapshot_history
  219.  
  220. IF EXISTS (select * from sysobjects where
  221.    name = 'sp_MSadd_logreader_history' and type = 'P')
  222.       DROP PROCEDURE sp_MSadd_logreader_history
  223.  
  224. IF EXISTS (select * from sysobjects where
  225.    name = 'sp_MSadd_distribution_history' and type = 'P')
  226.       DROP PROCEDURE sp_MSadd_distribution_history
  227.  
  228. IF EXISTS (select * from sysobjects where
  229.    name = 'sp_MSdistribution_cleanup' and type = 'P')
  230.       DROP PROCEDURE sp_MSdistribution_cleanup
  231.  
  232. IF EXISTS (select * from sysobjects where
  233.    name = 'sp_MSsubscription_cleanup' and type = 'P')
  234.       DROP PROCEDURE sp_MSsubscription_cleanup
  235.  
  236. IF EXISTS (select * from sysobjects where
  237.    name = 'sp_MSdistribution_delete' and type = 'P')
  238.       DROP PROCEDURE sp_MSdistribution_delete
  239.  
  240. IF EXISTS (select * from sysobjects where
  241.    name = 'sp_MSmaximum_cleanup_seqno' and type = 'P')
  242.       DROP PROCEDURE sp_MSmaximum_cleanup_seqno
  243.  
  244. IF EXISTS (select * from sysobjects where
  245.    name = 'sp_MSreplremoveuncdir' and type = 'P')
  246.       DROP PROCEDURE sp_MSreplremoveuncdir
  247.  
  248. IF EXISTS (select * from sysobjects where
  249.    name = 'sp_MSdrop_snapshot_dirs' and type = 'P')
  250.       DROP PROCEDURE sp_MSdrop_snapshot_dirs
  251.  
  252. IF EXISTS (select * from sysobjects where
  253.    name = 'sp_MSfast_delete_trans' and type = 'P')
  254.       DROP PROCEDURE sp_MSfast_delete_trans
  255.  
  256. IF EXISTS (select * from sysobjects where
  257.    name = 'sp_MSdelete_dodelete' and type = 'P')
  258.       DROP PROCEDURE sp_MSdelete_dodelete
  259.  
  260. IF EXISTS (select * from sysobjects where
  261.    name = 'sp_MSdelete_publisherdb_trans' and type = 'P')
  262.       DROP PROCEDURE sp_MSdelete_publisherdb_trans
  263.  
  264. IF EXISTS (select * from sysobjects where
  265.    name = 'sp_MShistory_cleanup' and type = 'P')
  266.       DROP PROCEDURE sp_MShistory_cleanup
  267.  
  268. IF EXISTS (select * from sysobjects where
  269.    name = 'sp_MSget_repl_version' and type = 'P')
  270.       DROP PROCEDURE sp_MSget_repl_version
  271.  
  272. IF EXISTS (select * from sysobjects where
  273.    name = 'sp_MSenum_subscriptions' and type = 'P')
  274.       DROP PROCEDURE sp_MSenum_subscriptions
  275.  
  276. IF EXISTS (select * from sysobjects where
  277.    name = 'sp_MSIfExistsSubscription' and type = 'P')
  278.       DROP PROCEDURE sp_MSIfExistsSubscription
  279.  
  280. IF EXISTS (select * from sysobjects where
  281.    name = 'sp_MSenum_snapshot' and type = 'P')
  282.       DROP PROCEDURE sp_MSenum_snapshot
  283.       
  284. IF EXISTS (select * from sysobjects where
  285.    name = 'sp_MSadd_merge_anonymous_agent' and type = 'P')
  286.       DROP PROCEDURE sp_MSadd_merge_anonymous_agent
  287.     
  288. IF EXISTS (select * from sysobjects where
  289.    name = 'sp_MSenum_snapshot_s' and type = 'P')
  290.       DROP PROCEDURE sp_MSenum_snapshot_s
  291.  
  292. IF EXISTS (select * from sysobjects where
  293.    name = 'sp_MSenum_snapshot_sd' and type = 'P')
  294.       DROP PROCEDURE sp_MSenum_snapshot_sd
  295.  
  296. IF EXISTS (select * from sysobjects where
  297.    name = 'sp_MSenum_logreader' and type = 'P')
  298.       DROP PROCEDURE sp_MSenum_logreader
  299.  
  300. IF EXISTS (select * from sysobjects where
  301.    name = 'sp_MSenum_logreader_s' and type = 'P')
  302.       DROP PROCEDURE sp_MSenum_logreader_s
  303.  
  304. IF EXISTS (select * from sysobjects where
  305.    name = 'sp_MSenum_logreader_sd' and type = 'P')
  306.       DROP PROCEDURE sp_MSenum_logreader_sd
  307.  
  308. IF EXISTS (select * from sysobjects where
  309.    name = 'sp_MSenum_qreader' and type = 'P')
  310.       DROP PROCEDURE sp_MSenum_qreader
  311.  
  312. IF EXISTS (select * from sysobjects where
  313.    name = 'sp_MSenum_qreader_s' and type = 'P')
  314.       DROP PROCEDURE sp_MSenum_qreader_s
  315.  
  316. IF EXISTS (select * from sysobjects where
  317.    name = 'sp_MSenum_qreader_sd' and type = 'P')
  318.       DROP PROCEDURE sp_MSenum_qreader_sd
  319.  
  320. IF EXISTS (select * from sysobjects where
  321.    name = 'sp_MSenum_distribution' and type = 'P')
  322.       DROP PROCEDURE sp_MSenum_distribution
  323.  
  324. IF EXISTS (select * from sysobjects where
  325.    name = 'sp_MSenum_distribution_s' and type = 'P')
  326.       DROP PROCEDURE sp_MSenum_distribution_s
  327.  
  328. IF EXISTS (SELECT * FROM sysobjects WHERE
  329.    name = 'sp_MShelp_subscription_status' and type = 'P')
  330.       DROP PROCEDURE sp_MShelp_subscription_status
  331.  
  332. IF EXISTS (SELECT * FROM sysobjects WHERE
  333.    name = 'sp_MScleanup_agent_entry' and type = 'P')
  334.       DROP PROCEDURE sp_MScleanup_agent_entry
  335.  
  336. IF EXISTS (select * from sysobjects where
  337.    name = 'sp_MSenum_distribution_sd' and type = 'P')
  338.       DROP PROCEDURE sp_MSenum_distribution_sd
  339.  
  340. IF EXISTS (select * from sysobjects where
  341.    name = 'sp_MSenum_merge' and type = 'P')
  342.       DROP PROCEDURE sp_MSenum_merge
  343.  
  344. IF EXISTS (select * from sysobjects where
  345.    name = 'sp_MSenum_merge_s' and type = 'P')
  346.       DROP PROCEDURE sp_MSenum_merge_s
  347.  
  348. IF EXISTS (select * from sysobjects where
  349.    name = 'sp_MSenum_merge_sd' and type = 'P')
  350.       DROP PROCEDURE sp_MSenum_merge_sd
  351.  
  352. IF EXISTS (select * from sysobjects where
  353.    name = 'sp_MSgetagentoffloadinfo' and type = 'P')
  354.       DROP PROCEDURE sp_MSgetagentoffloadinfo
  355.  
  356. IF EXISTS (select * from sysobjects where
  357.    name = 'sp_MSenableagentoffload' and type = 'P')
  358.       DROP PROCEDURE sp_MSenableagentoffload
  359.  
  360. IF EXISTS (select * from sysobjects where
  361.    name = 'sp_MSdisableagentoffload' and type = 'P')
  362.       DROP PROCEDURE sp_MSdisableagentoffload 
  363.  
  364. IF EXISTS (select * from sysobjects where
  365.    name = 'sp_MSadd_repl_error' and type = 'P')
  366.       DROP PROCEDURE sp_MSadd_repl_error
  367.  
  368. IF EXISTS (select * from sysobjects where
  369.    name = 'sp_MSadd_repl_alert' and type = 'P')
  370.       DROP PROCEDURE sp_MSadd_repl_alert
  371.  
  372. IF EXISTS (select * from sysobjects where
  373.    name = 'sp_MSadd_replmergealert' and type = 'P')
  374.       DROP PROCEDURE sp_MSadd_replmergealert
  375.  
  376. IF EXISTS (select * from sysobjects where
  377.    name = 'sp_MSget_new_errorid' and type = 'P')
  378.       DROP PROCEDURE sp_MSget_new_errorid
  379.  
  380. IF EXISTS (select * from sysobjects where
  381.    name = 'sp_MSget_repl_error' and type = 'P')
  382.       DROP PROCEDURE sp_MSget_repl_error
  383.  
  384. IF EXISTS (select * from sysobjects where
  385.    name = 'sp_MSadd_merge_history' and type = 'P')
  386.       DROP PROCEDURE sp_MSadd_merge_history
  387.  
  388. IF EXISTS (select * from sysobjects where
  389.    name = 'sp_MSdist_activate_auto_sub' and type = 'P')
  390.       DROP PROCEDURE sp_MSdist_activate_auto_sub
  391.  
  392. IF EXISTS (select * from sysobjects where
  393.    name = 'sp_MSlock_auto_sub' and type = 'P')
  394.       DROP PROCEDURE sp_MSlock_auto_sub
  395.  
  396. IF EXISTS (select * from sysobjects where
  397.    name = 'sp_MSget_new_xact_seqno' and type = 'P')
  398.       DROP PROCEDURE sp_MSget_new_xact_seqno
  399.  
  400. IF EXISTS (select * from sysobjects where
  401.    name = 'sp_MSvalidate_distpublisher' and type = 'P')
  402.       DROP PROCEDURE sp_MSvalidate_distpublisher
  403.  
  404. IF EXISTS (select * from sysobjects where
  405.    name = 'sp_MSadd_publication' and type = 'P')
  406.       DROP PROCEDURE sp_MSadd_publication
  407.  
  408. IF EXISTS (select * from sysobjects where
  409.    name = 'sp_MSchange_publication' and type = 'P')
  410.       DROP PROCEDURE sp_MSchange_publication
  411.  
  412. IF EXISTS (select * from sysobjects where
  413.    name = 'sp_MSadd_article' and type = 'P')
  414.       DROP PROCEDURE sp_MSadd_article
  415.  
  416. IF EXISTS (select * from sysobjects where
  417.    name = 'sp_MSchange_article' and type = 'P')
  418.       DROP PROCEDURE sp_MSchange_article
  419.  
  420. IF EXISTS (select * from sysobjects where
  421.    name = 'sp_MSdrop_publication' and type = 'P')
  422.       DROP PROCEDURE sp_MSdrop_publication
  423.  
  424. IF EXISTS (select * from sysobjects where
  425.    name = 'sp_MSdrop_article' and type = 'P')
  426.       DROP PROCEDURE sp_MSdrop_article
  427.  
  428. IF EXISTS (select * from sysobjects where
  429.    name = 'sp_MShelp_publication' and type = 'P')
  430.       DROP PROCEDURE sp_MShelp_publication
  431.  
  432. IF EXISTS (select * from sysobjects where
  433.    name = 'sp_MShelp_article' and type = 'P')
  434.       DROP PROCEDURE sp_MShelp_article
  435.  
  436. IF EXISTS (select * from sysobjects where
  437.    name = 'sp_MShelp_subscription' and type = 'P')
  438.       DROP PROCEDURE sp_MShelp_subscription
  439.  
  440. IF EXISTS (select * from sysobjects where
  441.    name = 'sp_MSadd_subscription_3rd' and type = 'P')
  442.       DROP PROCEDURE sp_MSadd_subscription_3rd
  443.  
  444. IF EXISTS (select * from sysobjects where
  445.    name = 'sp_MSdrop_subscription_3rd' and type = 'P')
  446.       DROP PROCEDURE sp_MSdrop_subscription_3rd
  447.  
  448. IF EXISTS (select * from sysobjects where
  449.    name = 'sp_MSactivate_subscriptions' and type = 'P')
  450.       DROP PROCEDURE sp_MSactivate_subscriptions
  451.  
  452. IF EXISTS (select * from sysobjects where
  453.    name = 'sp_MSrepl_raiserror' and type = 'P')
  454.       DROP PROCEDURE sp_MSrepl_raiserror
  455.  
  456. IF EXISTS (select * from sysobjects where
  457.    name = 'sp_MSadd_merge_subscription' and type = 'P')
  458.       DROP PROCEDURE sp_MSadd_merge_subscription
  459.  
  460. IF EXISTS (select * from sysobjects where
  461.    name = 'sp_MSdrop_merge_subscription' and type = 'P')
  462.       DROP PROCEDURE sp_MSdrop_merge_subscription
  463.  
  464. IF EXISTS (select * from sysobjects where
  465.    name = 'sp_MSenum_merge_subscriptions' and type = 'P')
  466.       DROP PROCEDURE sp_MSenum_merge_subscriptions
  467.  
  468. IF EXISTS (select * from sysobjects where
  469.    name = 'sp_MSadd_snapshot_agent' and type = 'P')
  470.       DROP PROCEDURE sp_MSadd_snapshot_agent
  471.  
  472. IF EXISTS (select * from sysobjects where
  473.    name = 'sp_MSdrop_snapshot_agent' and type = 'P')
  474.       DROP PROCEDURE sp_MSdrop_snapshot_agent
  475.  
  476. IF EXISTS (select * from sysobjects where
  477.    name = 'sp_MSadd_logreader_agent' and type = 'P')
  478.       DROP PROCEDURE sp_MSadd_logreader_agent
  479.  
  480. IF EXISTS (select * from sysobjects where
  481.    name = 'sp_MSdrop_logreader_agent' and type = 'P')
  482.       DROP PROCEDURE sp_MSdrop_logreader_agent
  483.  
  484. IF EXISTS (select * from sysobjects where
  485.    name = 'sp_MSadd_distribution_agent' and type = 'P')
  486.       DROP PROCEDURE sp_MSadd_distribution_agent
  487.  
  488. IF EXISTS (select * from sysobjects where
  489.    name = 'sp_MSdrop_distribution_agent' and type = 'P')
  490.       DROP PROCEDURE sp_MSdrop_distribution_agent
  491.  
  492. IF EXISTS (select * from sysobjects where
  493.    name = 'sp_MSdrop_distribution_agentid' and type = 'P')
  494.       DROP PROCEDURE sp_MSdrop_distribution_agentid
  495.  
  496. IF EXISTS (select * from sysobjects where
  497.    name = 'sp_MSdrop_merge_agentid' and type = 'P')
  498.       DROP PROCEDURE sp_MSdrop_merge_agentid
  499.  
  500. IF EXISTS (select * from sysobjects where
  501.    name = 'sp_MSadd_merge_agent' and type = 'P')
  502.       DROP PROCEDURE sp_MSadd_merge_agent
  503.  
  504. IF EXISTS (select * from sysobjects where
  505.    name = 'sp_MSdrop_merge_agent' and type = 'P')
  506.       DROP PROCEDURE sp_MSdrop_merge_agent
  507.  
  508. IF EXISTS (select * from sysobjects where
  509.    name = 'sp_MSadd_qreader_agent' and type = 'P')
  510.       DROP PROCEDURE sp_MSadd_qreader_agent
  511.  
  512. IF EXISTS (select * from sysobjects where
  513.    name = 'sp_MSadd_qreader_history' and type = 'P')
  514.       DROP PROCEDURE sp_MSadd_qreader_history
  515.  
  516. IF EXISTS (select * from sysobjects where
  517.    name = 'sp_MSdrop_qreader_agent' and type = 'P')
  518.       DROP PROCEDURE sp_MSdrop_qreader_agent
  519.  
  520. IF EXISTS (select * from sysobjects where
  521.    name = 'sp_MSdrop_qreader_history' and type = 'P')
  522.       DROP PROCEDURE sp_MSdrop_qreader_history
  523.  
  524. IF EXISTS (select name from sysobjects where 
  525.    name = 'sp_update_agent_profile' and type = 'P')
  526.     DROP PROCEDURE sp_update_agent_profile
  527.  
  528. IF EXISTS (select name from sysobjects where 
  529.    name = 'sp_MSprofile_in_use' and type = 'P')
  530.     DROP PROCEDURE sp_MSprofile_in_use
  531.  
  532. IF EXISTS (select * from sysobjects where
  533.    name = 'sp_MSreset_subscription' and type = 'P')
  534.       DROP PROCEDURE sp_MSreset_subscription
  535.  
  536. IF EXISTS (select * from sysobjects where
  537.    name = 'sp_MSget_subscription_guid' and type = 'P')
  538.       DROP PROCEDURE sp_MSget_subscription_guid
  539.  
  540. IF EXISTS (select * from sysobjects where
  541.    name = 'sp_MSreset_subscription_seqno' and type = 'P')
  542.       DROP PROCEDURE sp_MSreset_subscription_seqno
  543.  
  544. IF EXISTS (select * from sysobjects where
  545.    name = 'sp_MShelp_profile' and type = 'P')
  546.       DROP PROCEDURE sp_MShelp_profile
  547.  
  548. IF EXISTS (select * from sysobjects where
  549.    name = 'sp_MShelp_snapshot_agentid' and type = 'P')
  550.       DROP PROCEDURE sp_MShelp_snapshot_agentid
  551.  
  552. IF EXISTS (select * from sysobjects where
  553.    name = 'sp_MShelp_logreader_agentid' and type = 'P')
  554.       DROP PROCEDURE sp_MShelp_logreader_agentid
  555.  
  556. IF EXISTS (select * from sysobjects where
  557.    name = 'sp_MShelp_merge_agentid' and type = 'P')
  558.       DROP PROCEDURE sp_MShelp_merge_agentid
  559.  
  560. IF EXISTS (select * from sysobjects where
  561.    name = 'sp_MSenum_replication_status' and type = 'P')
  562.       DROP PROCEDURE sp_MSenum_replication_status
  563.  
  564. IF EXISTS (select * from sysobjects where
  565.    name = 'sp_MSagent_stethoscope' and type = 'P')
  566.       DROP PROCEDURE sp_MSagent_stethoscope
  567.  
  568. IF EXISTS (select * from sysobjects where
  569.    name = 'sp_MSlock_distribution_agent' and type = 'P')
  570.       DROP PROCEDURE sp_MSlock_distribution_agent
  571.  
  572. IF EXISTS (select * from sysobjects where
  573.    name = 'sp_MSdetect_nonlogged_shutdown' and type = 'P')
  574.       DROP PROCEDURE sp_MSdetect_nonlogged_shutdown
  575.  
  576. IF EXISTS (select * from sysobjects where
  577.    name = 'sp_MSdistpublisher_cleanup' and type = 'P')
  578.       DROP PROCEDURE sp_MSdistpublisher_cleanup
  579.  
  580. IF EXISTS (select * from sysobjects where
  581.    name = 'sp_MSpublication_access' and type = 'P')
  582.       DROP PROCEDURE sp_MSpublication_access
  583.  
  584. IF EXISTS (select * from sysobjects where
  585.    name = 'sp_MScheck_pull_access' and type = 'P')
  586.       DROP PROCEDURE sp_MScheck_pull_access
  587.  
  588. GO
  589. IF EXISTS (select * from sysobjects where
  590.    name = 'sp_MSdrop_6x_publication' and type = 'P')
  591.       DROP PROCEDURE sp_MSdrop_6x_publication
  592.  
  593. IF EXISTS (select * from sysobjects where
  594.    name = 'sp_MShelp_distribution_agentid' and type = 'P')
  595.       DROP PROCEDURE sp_MShelp_distribution_agentid
  596. GO
  597.  
  598. IF EXISTS (select * from sysobjects where
  599.    name = 'sp_MScheck_tran_retention' and type = 'P')
  600.       DROP PROCEDURE sp_MScheck_tran_retention
  601. GO
  602.  
  603. IF EXISTS (select * from sysobjects where
  604.    name = 'sp_MSreinit_subscription' and type = 'P')
  605.       DROP PROCEDURE sp_MSreinit_subscription
  606. go
  607.  
  608. IF EXISTS (select * from sysobjects where
  609.    name = 'sp_MSmarkreinit' and type = 'P')
  610.       DROP PROCEDURE sp_MSmarkreinit
  611. go
  612.  
  613. IF EXISTS (select * from sysobjects where
  614.    name = 'sp_browsereplcmds' and type = 'P')
  615.       DROP PROCEDURE sp_browsereplcmds
  616. go
  617.  
  618. IF EXISTS (select * from sysobjects where
  619.    name = 'sp_dumpparamcmd' and type = 'P')
  620.       DROP PROCEDURE sp_dumpparamcmd
  621. go
  622.  
  623. IF EXISTS (select * from sysobjects where
  624.    name = 'sp_MSbrowsesnapshotfolder' and type = 'P')
  625.       DROP PROCEDURE sp_MSbrowsesnapshotfolder
  626. go
  627.  
  628. IF EXISTS (select * from sysobjects where
  629.    name = 'sp_MSquery_syncstates' and type = 'P')
  630.       DROP PROCEDURE sp_MSquery_syncstates
  631. go
  632.  
  633. IF EXISTS (select * from sysobjects where
  634.    name = 'sp_MSset_syncstate' and type = 'P')
  635.       DROP PROCEDURE sp_MSset_syncstate
  636.  
  637. IF EXISTS (select * from sysobjects where
  638.    name = 'sp_MSdist_adjust_identity' and type = 'P')
  639.       DROP PROCEDURE sp_MSdist_adjust_identity
  640.  
  641. IF EXISTS (select * from sysobjects where
  642.    name = 'sp_MSchange_subscription_dts_info' and type = 'P')
  643.       DROP PROCEDURE sp_MSchange_subscription_dts_info
  644.  
  645. IF EXISTS (select * from sysobjects where
  646.    name = 'sp_MSget_subscription_dts_info' and type = 'P')
  647.       DROP PROCEDURE sp_MSget_subscription_dts_info
  648. go
  649.  
  650. IF EXISTS (select * from sysobjects where
  651.    name = 'sp_MSenumdistributionagentproperties' and type = 'P')
  652.       DROP PROCEDURE sp_MSenumdistributionagentproperties
  653.  
  654. IF EXISTS (select * from sysobjects where
  655.    name = 'sp_MSenum_merge_agent_properties' and type = 'P')
  656.       DROP PROCEDURE sp_MSenum_merge_agent_properties
  657.  
  658. IF EXISTS (select * from sysobjects where
  659.    name = 'sp_MSinsert_identity' and type = 'P')
  660.       DROP PROCEDURE sp_MSinsert_identity
  661.  
  662. IF EXISTS (select * from sysobjects where
  663.    name = 'sp_MSadjust_pub_identity' and type = 'P')
  664.       DROP PROCEDURE sp_MSadjust_pub_identity    
  665.  
  666. IF EXISTS (select * from sysobjects where
  667.    name = 'sp_MScheck_pub_identity' and type = 'P')
  668.       DROP PROCEDURE sp_MScheck_pub_identity    
  669.  
  670. IF EXISTS (select * from sysobjects where
  671.    name = 'sp_dropanonymoussubscription' and type = 'P')
  672.       DROP PROCEDURE sp_dropanonymoussubscription
  673.  
  674. IF EXISTS (select * from sysobjects where
  675.    name = 'sp_MSdrop_anonymous_entry' and type = 'P')
  676.       DROP PROCEDURE sp_MSdrop_anonymous_entry
  677.  
  678. IF EXISTS (select * from sysobjects where
  679.    name = 'sp_MSadddynamicsnapshotjobatdistributor' and type = 'P')
  680.       DROP PROCEDURE sp_MSadddynamicsnapshotjobatdistributor
  681.  
  682. IF EXISTS (select * from sysobjects where
  683.    name = 'sp_MSdeleterepljob' and type = 'P')
  684.       DROP PROCEDURE sp_MSdeleterepljob
  685.  
  686. IF EXISTS (select * from sysobjects where
  687.    name = 'sp_MSdeletefoldercontents' and type = 'P')
  688.       DROP PROCEDURE sp_MSdeletefoldercontents
  689.  
  690. IF EXISTS (select * from sysobjects where
  691.    name = 'sp_MSinvalidate_snapshot' and type = 'P')
  692.       DROP PROCEDURE sp_MSinvalidate_snapshot
  693.  
  694. IF EXISTS (select * from sysobjects where
  695.    name = 'sp_MSrepl_init_backup_lsns' and type = 'P')
  696.       DROP PROCEDURE sp_MSrepl_init_backup_lsns
  697.  
  698. IF EXISTS (select * from sysobjects where
  699.    name = 'sp_MSispublicationqueued' and type = 'P')
  700.       DROP PROCEDURE sp_MSispublicationqueued
  701.  
  702. if exists (select * from sysobjects
  703.      where type = 'FN'
  704.             and name = 'fn_MSmask_agent_type')
  705.      drop function dbo.fn_MSmask_agent_type
  706.  
  707. if exists (select * from sysobjects 
  708.         where type = 'P' and
  709.         name = 'sp_MSwritemergeperfcounter')
  710.         drop procedure sp_MSwritemergeperfcounter
  711.  
  712. if exists (select * from sysobjects 
  713.         where type = 'P' and
  714.         name = 'sp_MSlog_agent_cancel')
  715.         drop procedure sp_MSlog_agent_cancel
  716.  
  717. go
  718.  
  719.  
  720. declare @dbname sysname
  721. select  @dbname = db_name()
  722. execute('dump transaction ' +@dbname+ ' with no_log')
  723. go
  724.  
  725. -- This function is used internally by other stored procedures to mark the agent type
  726. -- for anonymous agent before passing it to sp_MSupdate_replication_status, so anonymous
  727. -- agent status can be filtered out from repl monitor. Only distribution agents and merge
  728. -- agents should use this function. 
  729. raiserror(15339,-1,-1,'fn_MSmask_agent_type')
  730. go
  731. create function dbo.fn_MSmask_agent_type(
  732.     @agent_id int,
  733.     @agent_type int
  734.     ) returns int
  735. as
  736. begin
  737.     declare @anonymous_mask int
  738.     select @anonymous_mask = 0x80000000
  739.     if @agent_type = 3 -- If dist agent
  740.     begin
  741.         if exists (select * from MSdistribution_agents where id = @agent_id and 
  742.             subscriber_name is not null)
  743.             select @agent_type = 3 | @anonymous_mask
  744.         else
  745.             select @agent_type = 3 
  746.     end
  747.     else if @agent_type = 4 -- if merge agent
  748.     begin
  749.         if exists (select * from MSmerge_agents where id = @agent_id and 
  750.             subscriber_name is not null)
  751.             select @agent_type = 4 | @anonymous_mask
  752.         else
  753.             select @agent_type = 4 
  754.     end
  755.     -- if other agents, @agent_type will not change.
  756.     return @agent_type
  757. end
  758. go
  759.  
  760. raiserror(15339,-1,-1,'sp_MScheck_pull_access')
  761. GO
  762.  
  763. CREATE PROCEDURE sp_MScheck_pull_access (
  764.     @agent_id int = 0,
  765.     @agent_type int = 0, -- 0 is tran; 1 is merge
  766.     @publication_id int = 0
  767.         ) AS
  768.  
  769.     declare @retcode int
  770.  
  771.     -- sysadmin or db_owner have access
  772.     if is_srvrolemember('sysadmin') = 1 or 
  773.         is_member('db_owner') = 1
  774.         return 0
  775.  
  776.     -- Need login_time to uniquely identify a connection.
  777.     declare @login_time datetime
  778.     select @login_time = login_time from master..sysprocesses where spid = @@spid
  779.  
  780.     -- For merge change to use publication_id
  781.     if @agent_id <> 0 and @agent_type = 1
  782.     begin
  783.         select @publication_id = p.publication_id from
  784.                 MSmerge_agents a, MSpublications p where
  785.                 a.id = @agent_id and
  786.                 a.publisher_id = p.publisher_id and
  787.                 a.publisher_db = p.publisher_db and
  788.                 a.publication = p.publication
  789.         select @agent_id = 0
  790.     end
  791.  
  792.     -- In cache, return success
  793.     if exists (select * from tempdb.dbo.MSdistributor_access where 
  794.         spid = @@spid and
  795.         login_time = @login_time and
  796.         db_id = db_id() and
  797.         (publication_id = @publication_id and
  798.         agent_id = @agent_id and
  799.         agent_type = @agent_type) or
  800.         -- All 0s is used by sp_MSadd_repl_error, which just require the 
  801.         -- login to be in cache regardless of the publication id and agent_id.
  802.         -- This means that once a agent get into the distribution db, it
  803.         -- can add any error.
  804.         (@publication_id = 0 and @agent_id = 0 and @agent_type = 0))
  805.         return (0)
  806.  
  807.     -- Cover sp_MSadd_repl_error case
  808.     if @publication_id = 0 and @agent_id = 0 and @agent_type = 0
  809.     begin
  810.         RAISERROR (14126, 11, -1)
  811.         return (1)
  812.     end
  813.  
  814.     declare @isntname bit
  815.     declare @offensive_pub_id int
  816.  
  817.     -- Check to see if the login is NT login
  818.     select @isntname = isntname from master..syslogins where
  819.         sid = suser_sid()
  820.     -- If the login does not exists, check to see if the login is a NT login that
  821.     -- has access to the server.
  822.     if @isntname is null
  823.     begin
  824.         -- If it is an NT login
  825.         if suser_sid() is not null
  826.             select @isntname = 1
  827.         -- If it is not an NT login
  828.         else
  829.             select @isntname = 0
  830.     end
  831.  
  832.     -- Check security based on agent_id
  833.     -- We know it is distribution agent. See above.
  834.     if @agent_id <> 0 
  835.     begin
  836.         select top 1 @offensive_pub_id = s.publication_id from MSsubscriptions s where 
  837.             s.agent_id = @agent_id and
  838.             not exists (select * from MSpublication_access l where
  839.                 l.publication_id = s.publication_id and
  840.             -- Current login has no access
  841.             (suser_sid(l.login) = suser_sid() or (@isntname = 1 and exists 
  842.                 (select * from master..syslogins where 
  843.                     sid = suser_sid(l.login) and isntgroup = 1 and is_member(l.login) = 1))))
  844.         
  845.         if @offensive_pub_id is not null
  846.             goto NO_ACCESS
  847.     end
  848.     -- Check security based on publication_id
  849.     else
  850.     begin
  851.         declare @publisher_id smallint
  852.     
  853.         if not exists (select * from MSpublication_access l where
  854.             l.publication_id = @publication_id and
  855.             (suser_sid(l.login) = suser_sid() or (@isntname = 1 and exists 
  856.                 (select * from master..syslogins where 
  857.                     sid = suser_sid(l.login) and isntgroup = 1 and is_member(l.login) = 1))))
  858.         begin
  859.             select @offensive_pub_id = @publication_id
  860.             goto NO_ACCESS
  861.         end
  862.     end
  863.  
  864.     -- If we are here, we know that the connection has access and is not in the cache
  865.     -- add it in to the cache.
  866.         
  867.     -- Clear the cache to keep it small.
  868.     exec @retcode = dbo.sp_MSflush_access_cache
  869.     if @retcode <> 0 or @@error <> 0
  870.         return (1)
  871.         
  872.  
  873.     insert tempdb.dbo.MSdistributor_access
  874.         (spid, db_id, agent_id, agent_type, publication_id, login_time) values
  875.         (@@spid, db_id(), @agent_id, @agent_type, @publication_id, @login_time)
  876.  
  877.     if @@error <> 0
  878.         return (1)
  879.  
  880.     return (0)
  881.  
  882. NO_ACCESS:
  883.  
  884.     -- We don't have access if we reach here, return error
  885.     declare @login sysname
  886.     select @login = suser_sname(suser_sid())
  887.     declare @publication sysname
  888.     select @publication = publication from MSpublications where publication_id = @offensive_pub_id
  889.     raiserror(21049, 16, -1, @login, @publication);
  890.     return(1)
  891.  
  892. GO
  893.  
  894.  
  895. raiserror(15339,-1,-1,'sp_MSquery_syncstates')
  896. GO
  897. create procedure sp_MSquery_syncstates
  898. @publisher_id smallint, 
  899. @publisher_db sysname
  900. as
  901.     declare @retcode int
  902.  
  903.     -- note:  obtain publisher_id via call to sp_MSvalidate_distpublisher
  904.  
  905.     select publication_id from MSsync_states 
  906.     where publisher_id = @publisher_id 
  907.     and publisher_db = @publisher_db
  908.  
  909. go
  910.  
  911.  
  912. raiserror(15339,-1,-1,'sp_MSset_syncstate')
  913. GO
  914. create procedure sp_MSset_syncstate
  915. @publisher_id smallint, 
  916. @publisher_db sysname, 
  917. @article_id int, 
  918. @sync_state int,  
  919. @xact_seqno varbinary(16)
  920. as
  921.  
  922. declare @publication_id int
  923.  
  924. select top 1 @publication_id = s.publication_id 
  925. from MSsubscriptions s
  926. where 
  927. s.publisher_id = @publisher_id and
  928. s.publisher_db = @publisher_db and
  929. s.article_id = @article_id     and
  930. s.subscription_seqno < @xact_seqno
  931.  
  932.  
  933. if @publication_id is not null
  934. begin
  935.     if( @sync_state = 1 )
  936.     begin
  937.         if not exists( select * from MSsync_states 
  938.                        where publisher_id = @publisher_id and
  939.                        publisher_db = @publisher_db and
  940.                        publication_id = @publication_id )
  941.         begin
  942.             insert into MSsync_states( publisher_id, publisher_db, publication_id )
  943.             values( @publisher_id, @publisher_db, @publication_id )
  944.         end
  945.     end
  946.     else if @sync_state = 0 
  947.     begin
  948.         
  949.         delete MSsync_states 
  950.         where 
  951.         publisher_id = @publisher_id and
  952.         publisher_db = @publisher_db and
  953.         publication_id = @publication_id 
  954.  
  955.         -- activate the subscription(s) so the distribution agent can start processing
  956.         declare @automatic int
  957.         declare @active int    
  958.         declare @initiated int
  959.  
  960.         select @automatic = 1
  961.         select @active = 2
  962.         select @initiated = 3
  963.  
  964.         -- set status to active, ss_cplt_seqno = commit LSN of xact containing
  965.         -- syncdone token.  
  966.         --
  967.         -- VERY IMPORTANT:  We can only do this because we know that the publisher
  968.         -- tables are locked in the same transaction that writes the SYNCDONE token.
  969.         -- If the tables were NOT locked, we could get into a situation where data
  970.         -- in the table was changed and committed between the time the SYNCDONE token was
  971.         -- written and the time the SYNCDONE xact was committed.  This would cause the
  972.         -- logreader to replicate the xact with no compensation records, but the advance
  973.         -- of the ss_cplt_seqno would cause the dist to skip that command since only commands
  974.         -- with the snapshot bit set will be processed if they are <= ss_cplt_seqno.
  975.         --
  976.         update MSsubscriptions 
  977.         set status = @active,
  978.             subscription_time = getdate(),
  979.             ss_cplt_seqno = @xact_seqno        
  980.         where
  981.             publisher_id = @publisher_id and
  982.             publisher_db = @publisher_db and
  983.             publication_id = @publication_id and
  984.             sync_type = @automatic and
  985.             status in( @initiated )
  986.     end
  987. end
  988. go
  989.  
  990. raiserror(15339,-1,-1,'sp_MSadd_repl_command')
  991. go
  992. CREATE PROCEDURE sp_MSadd_repl_command
  993. @publisher_id smallint = NULL,
  994. @publisher_db sysname,
  995. @xact_id varbinary(16) = 0x0,
  996. @xact_seqno varbinary(16) = 0x0,
  997. @originator sysname = NULL,
  998. @originator_db sysname = NULL,
  999. @article_id int = NULL,
  1000. @command_id int = 1,
  1001. @type int = NULL,
  1002. @partial_command bit = NULL,
  1003. @command varbinary(1024) = NULL,
  1004. @publisher sysname = NULL
  1005.  
  1006.  
  1007. AS
  1008.  
  1009.    SET NOCOUNT ON
  1010.  
  1011.    DECLARE @date datetime
  1012.    DECLARE @publisher_database_id int
  1013.    declare @originator_id int
  1014.  
  1015.    SELECT @date = GETDATE()
  1016.  
  1017.    if @publisher_id is NULL
  1018.         select @publisher_id = srvid from master..sysservers where
  1019.             UPPER(srvname) = UPPER(@publisher)
  1020.  
  1021.     -- Get publisher database id.
  1022.     SELECT @publisher_database_id = id from MSpublisher_databases where publisher_id = @publisher_id and 
  1023.         publisher_db = @publisher_db
  1024.     
  1025.    /* 
  1026.    ** To minimize contention, snapshot does not include this SP call
  1027.    ** inside a transaction. We have to insert to MSrepl_transactions table
  1028.    ** first to ensure clean up stored precedures to work, which only use 
  1029.    ** MSrepl_transactions table but NOT MSrepl_commands table to find transactions
  1030.    ** to be deleted.
  1031.    */
  1032.  
  1033.    IF @command_id = 1
  1034.    BEGIN
  1035.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1036.          @xact_id,  @xact_seqno, @date)
  1037.       IF @@ERROR <> 0
  1038.          RETURN 1
  1039.    END
  1040.  
  1041.    IF @command IS NOT NULL
  1042.    begin
  1043.       if @originator <> N'' and @originator_db <> N'' and @originator is not null and @originator_db is not null 
  1044.       begin
  1045.         set @originator_id = null select @originator_id = id from MSrepl_originators where
  1046.             publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@originator) and
  1047.             dbname = @originator_db
  1048.         if @originator_id is null
  1049.         begin
  1050.             insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  1051.                 (@publisher_database_id, @originator, @originator_db)
  1052.             select @originator_id = @@identity
  1053.         end
  1054.       end
  1055.       else
  1056.         select @originator_id = 0
  1057.       
  1058.  
  1059.       if( @type in( 37,38 ) )
  1060.       begin
  1061.             declare @syncstat int
  1062.           select @syncstat = 38 - @type
  1063.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @article_id, @syncstat, @xact_seqno 
  1064.       end
  1065.  
  1066.       INSERT INTO MSrepl_commands VALUES (@publisher_database_id, @xact_seqno,
  1067.         @type, @article_id, @originator_id, @command_id, @partial_command, @command)
  1068.     end
  1069.  
  1070.     IF @@ERROR <> 0
  1071.       RETURN (1)
  1072.  
  1073. GO  
  1074.  
  1075.  
  1076. raiserror(15339,-1,-1,'sp_MSadd_repl_commands27')
  1077. GO
  1078. CREATE PROCEDURE sp_MSadd_repl_commands27
  1079. @publisher_id smallint,
  1080. @publisher_db sysname,
  1081. @xact_id varbinary(16) = 0x0,
  1082. @xact_seqno varbinary(16) = 0x0,
  1083. @originator sysname,
  1084. @originator_db sysname,
  1085. @article_id int,
  1086. @command_id int,
  1087. @type int = 0,
  1088. @partial_command bit,
  1089. @command varbinary(1024),
  1090.  
  1091. @1xact_id varbinary(16) = 0x0,
  1092.  
  1093. @1xact_seqno varbinary(16) = 0x0,
  1094. @1originator sysname = NULL,
  1095. @1originator_db sysname = NULL,
  1096. @1article_id int = 0,
  1097. @1command_id int = 0,
  1098. @1type int = 0,
  1099. @1partial_command bit = 0,
  1100. @1command varbinary(1024) = NULL,
  1101.  
  1102. @2xact_id varbinary(16) = 0x0,
  1103.  
  1104. @2xact_seqno varbinary(16) = 0x0,
  1105. @2originator sysname = NULL,
  1106. @2originator_db sysname = NULL,
  1107. @2article_id int = 0,
  1108. @2command_id int = 0,
  1109. @2type int = 0,
  1110. @2partial_command bit = 0,
  1111. @2command varbinary(1024) = NULL,
  1112.  
  1113. @3xact_id varbinary(16) = 0x0,
  1114.  
  1115. @3xact_seqno varbinary(16) = 0x0,
  1116. @3originator sysname = NULL,
  1117. @3originator_db sysname = NULL,
  1118. @3article_id int = 0,
  1119. @3command_id int = 0,
  1120. @3type int = 0,
  1121. @3partial_command bit = 0,
  1122. @3command varbinary(1024) = NULL,
  1123.  
  1124. @4xact_id varbinary(16) = 0x0,
  1125.  
  1126. @4xact_seqno varbinary(16) = 0x0,
  1127. @4originator sysname = NULL,
  1128. @4originator_db sysname = NULL,
  1129. @4article_id int = 0,
  1130. @4command_id int = 0,
  1131. @4type int = 0,
  1132. @4partial_command bit = 0,
  1133. @4command varbinary(1024) = NULL,
  1134.  
  1135. @5xact_id varbinary(16) = 0x0,
  1136.  
  1137. @5xact_seqno varbinary(16) = 0x0,
  1138. @5originator sysname = NULL,
  1139. @5originator_db sysname = NULL,
  1140. @5article_id int = 0,
  1141. @5command_id int = 0,
  1142. @5type int = 0,
  1143. @5partial_command bit = 0,
  1144. @5command varbinary(1024) = NULL,
  1145.  
  1146. @6xact_id varbinary(16) = 0x0,
  1147.  
  1148. @6xact_seqno varbinary(16) = 0x0,
  1149. @6originator sysname = NULL,
  1150. @6originator_db sysname = NULL,
  1151. @6article_id int = 0,
  1152. @6command_id int = 0,
  1153. @6type int = 0,
  1154. @6partial_command bit = 0,
  1155. @6command varbinary(1024) = NULL,
  1156.  
  1157. @7xact_id varbinary(16) = 0x0,
  1158.  
  1159. @7xact_seqno varbinary(16) = 0x0,
  1160. @7originator sysname = NULL,
  1161. @7originator_db sysname = NULL,
  1162. @7article_id int = 0,
  1163. @7command_id int = 0,
  1164. @7type int = 0,
  1165. @7partial_command bit = 0,
  1166. @7command varbinary(1024) = NULL,
  1167.  
  1168. @8xact_id varbinary(16) = 0x0,
  1169.  
  1170. @8xact_seqno varbinary(16) = 0x0,
  1171. @8originator sysname = NULL,
  1172. @8originator_db sysname = NULL,
  1173. @8article_id int = 0,
  1174. @8command_id int = 0,
  1175. @8type int = 0,
  1176. @8partial_command bit = 0,
  1177. @8command varbinary(1024) = NULL,
  1178.  
  1179. @9xact_id varbinary(16) = 0x0,
  1180.  
  1181. @9xact_seqno varbinary(16) = 0x0,
  1182. @9originator sysname = NULL,
  1183. @9originator_db sysname = NULL,
  1184. @9article_id int = 0,
  1185. @9command_id int = 0,
  1186. @9type int = 0,
  1187. @9partial_command bit = 0,
  1188. @9command varbinary(1024) = NULL,
  1189.  
  1190. @10xact_id varbinary(16) = 0x0,
  1191.  
  1192. @10xact_seqno varbinary(16) = 0x0,
  1193. @10originator sysname = NULL,
  1194. @10originator_db sysname = NULL,
  1195. @10article_id int = 0,
  1196. @10command_id int = 0,
  1197. @10type int = 0,
  1198. @10partial_command bit = 0,
  1199. @10command varbinary(1024) = NULL,
  1200.  
  1201. @11xact_id varbinary(16) = 0x0,
  1202.  
  1203. @11xact_seqno varbinary(16) = 0x0,
  1204. @11originator sysname = NULL,
  1205. @11originator_db sysname = NULL,
  1206. @11article_id int = 0,
  1207. @11command_id int = 0,
  1208. @11type int = 0,
  1209. @11partial_command bit = 0,
  1210. @11command varbinary(1024) = NULL,
  1211.  
  1212. @12xact_id varbinary(16) = 0x0,
  1213.  
  1214. @12xact_seqno varbinary(16) = 0x0,
  1215. @12originator sysname = NULL,
  1216. @12originator_db sysname = NULL,
  1217. @12article_id int = 0,
  1218. @12command_id int = 0,
  1219. @12type int = 0,
  1220. @12partial_command bit = 0,
  1221. @12command varbinary(1024) = NULL,
  1222.  
  1223. @13xact_id varbinary(16) = 0x0,
  1224.  
  1225. @13xact_seqno varbinary(16) = 0x0,
  1226. @13originator sysname = NULL,
  1227. @13originator_db sysname = NULL,
  1228. @13article_id int = 0,
  1229. @13command_id int = 0,
  1230. @13type int = 0,
  1231. @13partial_command bit = 0,
  1232. @13command varbinary(1024) = NULL,
  1233.  
  1234. @14xact_id varbinary(16) = 0x0,
  1235.  
  1236. @14xact_seqno varbinary(16) = 0x0,
  1237. @14originator sysname = NULL,
  1238. @14originator_db sysname = NULL,
  1239. @14article_id int = 0,
  1240. @14command_id int = 0,
  1241. @14type int = 0,
  1242. @14partial_command bit = 0,
  1243. @14command varbinary(1024) = NULL,
  1244.  
  1245. @15xact_id varbinary(16) = 0x0,
  1246.  
  1247. @15xact_seqno varbinary(16) = 0x0,
  1248. @15originator sysname = NULL,
  1249. @15originator_db sysname = NULL,
  1250. @15article_id int = 0,
  1251. @15command_id int = 0,
  1252. @15type int = 0,
  1253. @15partial_command bit = 0,
  1254. @15command varbinary(1024) = NULL,
  1255.  
  1256. @16xact_id varbinary(16) = 0x0,
  1257.  
  1258. @16xact_seqno varbinary(16) = 0x0,
  1259. @16originator sysname = NULL,
  1260. @16originator_db sysname = NULL,
  1261. @16article_id int = 0,
  1262. @16command_id int = 0,
  1263. @16type int = 0,
  1264. @16partial_command bit = 0,
  1265. @16command varbinary(1024) = NULL,
  1266.  
  1267. @17xact_id varbinary(16) = 0x0,
  1268.  
  1269. @17xact_seqno varbinary(16) = 0x0,
  1270. @17originator sysname = NULL,
  1271. @17originator_db sysname = NULL,
  1272. @17article_id int = 0,
  1273. @17command_id int = 0,
  1274. @17type int = 0,
  1275. @17partial_command bit = 0,
  1276. @17command varbinary(1024) = NULL,
  1277.  
  1278. @18xact_id varbinary(16) = 0x0,
  1279.  
  1280. @18xact_seqno varbinary(16) = 0x0,
  1281. @18originator sysname = NULL,
  1282. @18originator_db sysname = NULL,
  1283. @18article_id int = 0,
  1284. @18command_id int = 0,
  1285. @18type int = 0,
  1286. @18partial_command bit = 0,
  1287. @18command varbinary(1024) = NULL,
  1288.  
  1289. @19xact_id varbinary(16) = 0x0,
  1290.  
  1291. @19xact_seqno varbinary(16) = 0x0,
  1292. @19originator sysname = NULL,
  1293. @19originator_db sysname = NULL,
  1294. @19article_id int = 0,
  1295. @19command_id int = 0,
  1296. @19type int = 0,
  1297. @19partial_command bit = 0,
  1298. @19command varbinary(1024) = NULL,
  1299.  
  1300. @20xact_id varbinary(16) = 0x0,
  1301.  
  1302. @20xact_seqno varbinary(16) = 0x0,
  1303. @20originator sysname = NULL,
  1304. @20originator_db sysname = NULL,
  1305. @20article_id int = 0,
  1306. @20command_id int = 0,
  1307. @20type int = 0,
  1308. @20partial_command bit = 0,
  1309. @20command varbinary(1024) = NULL,
  1310.  
  1311. @21xact_id varbinary(16) = 0x0,
  1312.  
  1313. @21xact_seqno varbinary(16) = 0x0,
  1314. @21originator sysname = NULL,
  1315. @21originator_db sysname = NULL,
  1316. @21article_id int = 0,
  1317. @21command_id int = 0,
  1318. @21type int = 0,
  1319. @21partial_command bit = 0,
  1320. @21command varbinary(1024) = NULL,
  1321.  
  1322. @22xact_id varbinary(16) = 0x0,
  1323.  
  1324. @22xact_seqno varbinary(16) = 0x0,
  1325. @22originator sysname = NULL,
  1326. @22originator_db sysname = NULL,
  1327. @22article_id int = 0,
  1328. @22command_id int = 0,
  1329. @22type int = 0,
  1330. @22partial_command bit = 0,
  1331. @22command varbinary(1024) = NULL,
  1332.  
  1333. @23xact_id varbinary(16) = 0x0,
  1334.  
  1335. @23xact_seqno varbinary(16) = 0x0,
  1336. @23originator sysname = NULL,
  1337. @23originator_db sysname = NULL,
  1338. @23article_id int = 0,
  1339. @23command_id int = 0,
  1340. @23type int = 0,
  1341. @23partial_command bit = 0,
  1342. @23command varbinary(1024) = NULL,
  1343.  
  1344. @24xact_id varbinary(16) = 0x0,
  1345.  
  1346. @24xact_seqno varbinary(16) = 0x0,
  1347. @24originator sysname = NULL,
  1348. @24originator_db sysname = NULL,
  1349. @24article_id int = 0,
  1350. @24command_id int = 0,
  1351. @24type int = 0,
  1352. @24partial_command bit = 0,
  1353. @24command varbinary(1024) = NULL,
  1354.  
  1355. @25xact_id varbinary(16) = 0x0,
  1356.  
  1357. @25xact_seqno varbinary(16) = 0x0,
  1358. @25originator sysname = NULL,
  1359. @25originator_db sysname = NULL,
  1360. @25article_id int = 0,
  1361. @25command_id int = 0,
  1362. @25type int = 0,
  1363. @25partial_command bit = 0,
  1364. @25command varbinary(1024) = NULL,
  1365.  
  1366. @26xact_id varbinary(16) = 0x0,
  1367.  
  1368. @26xact_seqno varbinary(16) = 0x0,
  1369. @26originator sysname = NULL,
  1370. @26originator_db sysname = NULL,
  1371. @26article_id int = 0,
  1372. @26command_id int = 0,
  1373. @26type int = 0,
  1374. @26partial_command bit = 0,
  1375. @26command varbinary(1024) = NULL
  1376.  
  1377. AS
  1378.  
  1379.     SET NOCOUNT ON
  1380.  
  1381.     DECLARE @publisher_database_id int
  1382.     DECLARE @date datetime
  1383.     declare @originator_id int
  1384.     declare @syncstat int
  1385.  
  1386.     SELECT @date = GETDATE()
  1387.  
  1388.     -- Get publisher database id.
  1389.     SELECT @publisher_database_id = id from MSpublisher_databases where publisher_id = @publisher_id and 
  1390.         publisher_db = @publisher_db
  1391.     
  1392.     -- First insert into MS_repl_transactions
  1393.     IF @command_id = 1
  1394.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1395.          @xact_id,  @xact_seqno, @date)
  1396.  
  1397.     IF @1xact_id = 0x0
  1398.       goto INSERT_CMDS
  1399.     IF @1command_id = 1
  1400.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1401.          @1xact_id,  @1xact_seqno, @date)
  1402.  
  1403.     IF @2xact_id = 0x0
  1404.       goto INSERT_CMDS
  1405.     IF @2command_id = 1
  1406.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1407.          @2xact_id,  @2xact_seqno, @date)
  1408.     
  1409.     IF @3xact_id = 0x0
  1410.       goto INSERT_CMDS
  1411.     IF @3command_id = 1
  1412.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1413.          @3xact_id,  @3xact_seqno, @date)
  1414.  
  1415.     IF @4xact_id = 0x0
  1416.       goto INSERT_CMDS
  1417.     IF @4command_id = 1
  1418.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1419.         @4xact_id,  @4xact_seqno, @date)
  1420.  
  1421.     IF @5xact_id = 0x0
  1422.       goto INSERT_CMDS
  1423.  
  1424.     IF @5command_id = 1
  1425.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1426.          @5xact_id,  @5xact_seqno, @date)
  1427.  
  1428.     IF @6xact_id = 0x0
  1429.       goto INSERT_CMDS
  1430.     IF @6command_id = 1
  1431.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1432.          @6xact_id,  @6xact_seqno, @date)
  1433.  
  1434.     IF @7xact_id = 0x0
  1435.       goto INSERT_CMDS
  1436.     IF @7command_id = 1
  1437.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1438.          @7xact_id,  @7xact_seqno, @date)
  1439.  
  1440.     IF @8xact_id = 0x0
  1441.       goto INSERT_CMDS
  1442.     IF @8command_id = 1
  1443.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1444.          @8xact_id,  @8xact_seqno, @date)
  1445.  
  1446.     IF @9xact_id = 0x0
  1447.       goto INSERT_CMDS
  1448.     IF @9command_id = 1
  1449.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1450.          @9xact_id,  @9xact_seqno, @date)
  1451.  
  1452.     IF @10xact_id = 0x0
  1453.       goto INSERT_CMDS
  1454.     IF @10command_id = 1
  1455.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1456.          @10xact_id,  @10xact_seqno, @date)
  1457.  
  1458.     IF @11xact_id = 0x0
  1459.       goto INSERT_CMDS
  1460.     IF @11command_id = 1
  1461.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1462.          @11xact_id,  @11xact_seqno, @date)
  1463.  
  1464.     IF @12xact_id = 0x0
  1465.       goto INSERT_CMDS
  1466.     IF @12command_id = 1
  1467.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1468.          @12xact_id,  @12xact_seqno, @date)
  1469.  
  1470.     IF @13xact_id = 0x0
  1471.       goto INSERT_CMDS
  1472.     IF @13command_id = 1
  1473.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1474.          @13xact_id,  @13xact_seqno, @date)
  1475.  
  1476.     IF @14xact_id = 0x0
  1477.       goto INSERT_CMDS
  1478.     IF @14command_id = 1
  1479.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1480.          @14xact_id,  @14xact_seqno, @date)
  1481.  
  1482.     IF @15xact_id = 0x0
  1483.       goto INSERT_CMDS
  1484.     IF @15command_id = 1
  1485.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1486.          @15xact_id,  @15xact_seqno, @date)
  1487.  
  1488.     IF @16xact_id = 0x0
  1489.       goto INSERT_CMDS
  1490.     IF @16command_id = 1
  1491.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1492.          @16xact_id,  @16xact_seqno, @date)
  1493.  
  1494.     IF @17xact_id = 0x0
  1495.       goto INSERT_CMDS
  1496.     IF @17command_id = 1
  1497.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1498.          @17xact_id,  @17xact_seqno, @date)
  1499.  
  1500.     IF @18xact_id = 0x0
  1501.       goto INSERT_CMDS
  1502.     IF @18command_id = 1
  1503.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1504.          @18xact_id,  @18xact_seqno, @date)
  1505.  
  1506.     IF @19xact_id = 0x0
  1507.       goto INSERT_CMDS
  1508.     IF @19command_id = 1
  1509.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1510.          @19xact_id,  @19xact_seqno, @date)
  1511.  
  1512.     IF @20xact_id = 0x0
  1513.       goto INSERT_CMDS
  1514.     IF @20command_id = 1
  1515.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1516.          @20xact_id,  @20xact_seqno, @date)
  1517.  
  1518.     IF @21xact_id = 0x0
  1519.       goto INSERT_CMDS
  1520.     IF @21command_id = 1
  1521.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1522.          @21xact_id,  @21xact_seqno, @date)
  1523.  
  1524.     IF @22xact_id = 0x0
  1525.       goto INSERT_CMDS
  1526.     IF @22command_id = 1
  1527.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1528.          @22xact_id,  @22xact_seqno, @date)
  1529.  
  1530.     IF @23xact_id = 0x0
  1531.       goto INSERT_CMDS
  1532.     IF @23command_id = 1
  1533.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1534.          @23xact_id,  @23xact_seqno, @date)
  1535.  
  1536.     IF @24xact_id = 0x0
  1537.       goto INSERT_CMDS
  1538.     IF @24command_id = 1
  1539.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1540.          @24xact_id,  @24xact_seqno, @date)
  1541.  
  1542.     IF @25xact_id = 0x0
  1543.       goto INSERT_CMDS
  1544.     IF @25command_id = 1
  1545.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1546.          @25xact_id,  @25xact_seqno, @date)
  1547.  
  1548.     IF @26xact_id = 0x0
  1549.       goto INSERT_CMDS
  1550.     IF @26command_id = 1
  1551.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  1552.          @26xact_id,  @26xact_seqno, @date)
  1553.  
  1554. INSERT_CMDS:
  1555.  
  1556.     -- Get the originator_id for the first command 
  1557.     if @originator <> N'' and @originator_db <> N'' and @originator is not null and @originator_db is not null 
  1558.     begin 
  1559.         set @originator_id = null select @originator_id = id from MSrepl_originators where
  1560.             publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@originator) and
  1561.             dbname = @originator_db
  1562.         if @originator_id is null
  1563.         begin
  1564.             insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  1565.                 (@publisher_database_id, @originator, @originator_db)
  1566.             select @originator_id = @@identity
  1567.         end
  1568.     end
  1569.     else
  1570.         select @originator_id = 0
  1571.  
  1572.     -- Now insert into MSrepl_commands
  1573.     IF @command IS NOT NULL
  1574.     begin
  1575.         if( @type in( 37,38 ) )
  1576.         begin
  1577.           select @syncstat = 38 - @type
  1578.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @article_id, @syncstat, @xact_seqno
  1579.         end
  1580.  
  1581.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  1582.             @xact_seqno,@type, @article_id, 
  1583.             @originator_id, 
  1584.             @command_id, @partial_command, @command)
  1585.     end
  1586.  
  1587.     IF @1xact_id = 0x0
  1588.       return
  1589.  
  1590.     IF @1command IS NOT NULL
  1591.     begin
  1592.             if @1originator <> N'' and @1originator_db <> N'' and @1originator is not null and @1originator_db is not null 
  1593.             begin 
  1594.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  1595.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@1originator) and
  1596.                     dbname = @1originator_db
  1597.                 if @originator_id is null
  1598.                 begin
  1599.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  1600.                         (@publisher_database_id, @1originator, @1originator_db)
  1601.                     select @originator_id = @@identity
  1602.                 end
  1603.             end
  1604.             else
  1605.                 select @originator_id = 0
  1606.     
  1607.         if( @type in( 37,38 ) )
  1608.         begin
  1609.           select @syncstat = 38 - @1type
  1610.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @1article_id, @syncstat, @1xact_seqno
  1611.         end
  1612.  
  1613.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  1614.             @1xact_seqno,@1type, @1article_id, 
  1615.             @originator_id, 
  1616.             @1command_id, @1partial_command, @1command)
  1617.     end
  1618.  
  1619.     IF @2xact_id = 0x0
  1620.       return
  1621.     IF @2command IS NOT NULL
  1622.     begin
  1623.             if @2originator <> N'' and @2originator_db <> N'' and @2originator is not null and @2originator_db is not null 
  1624.             begin 
  1625.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  1626.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@2originator) and
  1627.                     dbname = @2originator_db
  1628.                 if @originator_id is null
  1629.                 begin
  1630.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  1631.                         (@publisher_database_id, @2originator, @2originator_db)
  1632.                     select @originator_id = @@identity
  1633.                 end
  1634.             end
  1635.             else
  1636.                 select @originator_id = 0
  1637.     
  1638.         if( @type in( 37,38 ) )
  1639.         begin
  1640.           select @syncstat = 38 - @2type
  1641.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @2article_id, @syncstat, @2xact_seqno 
  1642.         end
  1643.  
  1644.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  1645.             @2xact_seqno,@2type, @2article_id, 
  1646.             @originator_id, 
  1647.             @2command_id, @2partial_command, @2command)
  1648.     end
  1649.  
  1650.     IF @3xact_id = 0x0
  1651.       return
  1652.     IF @3command IS NOT NULL
  1653.     begin
  1654.             if @3originator <> N'' and @3originator_db <> N'' and @3originator is not null and @3originator_db is not null 
  1655.             begin 
  1656.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  1657.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@3originator) and
  1658.                     dbname = @3originator_db
  1659.                 if @originator_id is null
  1660.                 begin
  1661.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  1662.                         (@publisher_database_id, @3originator, @3originator_db)
  1663.                     select @originator_id = @@identity
  1664.                 end
  1665.             end
  1666.             else
  1667.                 select @originator_id = 0
  1668.  
  1669.         if( @type in( 37,38 ) )
  1670.         begin
  1671.           select @syncstat = 38 - @3type
  1672.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @3article_id, @syncstat, @3xact_seqno 
  1673.         end
  1674.     
  1675.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  1676.             @3xact_seqno,@3type, @3article_id, 
  1677.             @originator_id, 
  1678.             @3command_id, @3partial_command, @3command)
  1679.     end
  1680.  
  1681.     IF @4xact_id = 0x0
  1682.       return
  1683.     IF @4command IS NOT NULL
  1684.     begin
  1685.             if @4originator <> N'' and @4originator_db <> N'' and @4originator is not null and @4originator_db is not null 
  1686.             begin 
  1687.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  1688.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@4originator) and
  1689.                     dbname = @4originator_db
  1690.                 if @originator_id is null
  1691.                 begin
  1692.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  1693.                         (@publisher_database_id, @4originator, @4originator_db)
  1694.                     select @originator_id = @@identity
  1695.                 end
  1696.             end
  1697.             else
  1698.                 select @originator_id = 0
  1699.  
  1700.         if( @type in( 37,38 ) )
  1701.         begin
  1702.           select @syncstat = 38 - @4type
  1703.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @4article_id, @syncstat, @4xact_seqno 
  1704.         end
  1705.     
  1706.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  1707.             @4xact_seqno,@4type, @4article_id, 
  1708.             @originator_id, 
  1709.             @4command_id, @4partial_command, @4command)
  1710.     end
  1711.  
  1712.     IF @5xact_id = 0x0
  1713.       return
  1714.     IF @5command IS NOT NULL
  1715.     begin
  1716.             if @5originator <> N'' and @5originator_db <> N'' and @5originator is not null and @5originator_db is not null 
  1717.             begin 
  1718.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  1719.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@5originator) and
  1720.                     dbname = @5originator_db
  1721.                 if @originator_id is null
  1722.                 begin
  1723.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  1724.                         (@publisher_database_id, @5originator, @5originator_db)
  1725.                     select @originator_id = @@identity
  1726.                 end
  1727.             end
  1728.             else
  1729.                 select @originator_id = 0
  1730.     
  1731.         if( @type in( 37,38 ) )
  1732.         begin
  1733.           select @syncstat = 38 - @5type
  1734.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @5article_id, @syncstat, @5xact_seqno 
  1735.         end
  1736.  
  1737.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  1738.             @5xact_seqno,@5type, @5article_id, 
  1739.             @originator_id, 
  1740.             @5command_id, @5partial_command, @5command)
  1741.     end
  1742.  
  1743.     IF @6xact_id = 0x0
  1744.       return
  1745.     IF @6command IS NOT NULL
  1746.     begin
  1747.             if @6originator <> N'' and @6originator_db <> N'' and @6originator is not null and @6originator_db is not null 
  1748.             begin 
  1749.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  1750.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@6originator) and
  1751.                     dbname = @6originator_db
  1752.                 if @originator_id is null
  1753.                 begin
  1754.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  1755.                         (@publisher_database_id, @6originator, @6originator_db)
  1756.                     select @originator_id = @@identity
  1757.                 end
  1758.             end
  1759.             else
  1760.                 select @originator_id = 0
  1761.  
  1762.         if( @type in( 37,38 ) )
  1763.         begin
  1764.           select @syncstat = 38 - @6type
  1765.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @6article_id, @syncstat, @6xact_seqno 
  1766.         end
  1767.     
  1768.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  1769.             @6xact_seqno,@6type, @6article_id, 
  1770.             @originator_id, 
  1771.             @6command_id, @6partial_command, @6command)
  1772.     end
  1773.  
  1774.     IF @7xact_id = 0x0
  1775.       return
  1776.     IF @7command IS NOT NULL
  1777.     begin
  1778.             if @7originator <> N'' and @7originator_db <> N'' and @7originator is not null and @7originator_db is not null 
  1779.             begin 
  1780.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  1781.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@7originator) and
  1782.                     dbname = @7originator_db
  1783.                 if @originator_id is null
  1784.                 begin
  1785.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  1786.                         (@publisher_database_id, @7originator, @7originator_db)
  1787.                     select @originator_id = @@identity
  1788.                 end
  1789.             end
  1790.             else
  1791.                 select @originator_id = 0
  1792.     
  1793.         if( @type in( 37,38 ) )
  1794.         begin
  1795.           select @syncstat = 38 - @7type
  1796.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @7article_id, @syncstat, @7xact_seqno 
  1797.         end
  1798.  
  1799.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  1800.             @7xact_seqno,@7type, @7article_id, 
  1801.             @originator_id, 
  1802.             @7command_id, @7partial_command, @7command)
  1803.     end
  1804.  
  1805.     IF @8xact_id = 0x0
  1806.       return
  1807.     IF @8command IS NOT NULL
  1808.     begin
  1809.             if @8originator <> N'' and @8originator_db <> N'' and @8originator is not null and @8originator_db is not null 
  1810.             begin 
  1811.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  1812.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@8originator) and
  1813.                     dbname = @8originator_db
  1814.                 if @originator_id is null
  1815.                 begin
  1816.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  1817.                         (@publisher_database_id, @8originator, @8originator_db)
  1818.                     select @originator_id = @@identity
  1819.                 end
  1820.             end
  1821.             else
  1822.                 select @originator_id = 0
  1823.     
  1824.         if( @type in( 37,38 ) )
  1825.         begin
  1826.           select @syncstat = 38 - @8type
  1827.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @8article_id, @syncstat, @8xact_seqno 
  1828.         end
  1829.  
  1830.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  1831.             @8xact_seqno,@8type, @8article_id, 
  1832.             @originator_id, 
  1833.             @8command_id, @8partial_command, @8command)
  1834.     end
  1835.  
  1836.     IF @9xact_id = 0x0
  1837.       return
  1838.     IF @9command IS NOT NULL
  1839.     begin
  1840.             if @9originator <> N'' and @9originator_db <> N'' and @9originator is not null and @9originator_db is not null 
  1841.             begin 
  1842.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  1843.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@9originator) and
  1844.                     dbname = @9originator_db
  1845.                 if @originator_id is null
  1846.                 begin
  1847.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  1848.                         (@publisher_database_id, @9originator, @9originator_db)
  1849.                     select @originator_id = @@identity
  1850.                 end
  1851.             end
  1852.             else
  1853.                 select @originator_id = 0
  1854.     
  1855.         if( @type in( 37,38 ) )
  1856.         begin
  1857.           select @syncstat = 38 - @9type
  1858.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @9article_id, @syncstat, @9xact_seqno 
  1859.         end
  1860.  
  1861.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  1862.             @9xact_seqno,@9type, @9article_id, 
  1863.             @originator_id, 
  1864.             @9command_id, @9partial_command, @9command)
  1865.     end
  1866.  
  1867.     IF @10xact_id = 0x0
  1868.       return
  1869.     IF @10command IS NOT NULL
  1870.     begin
  1871.             if @10originator <> N'' and @10originator_db <> N'' and @10originator is not null and @10originator_db is not null 
  1872.             begin 
  1873.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  1874.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@10originator) and
  1875.                     dbname = @10originator_db
  1876.                 if @originator_id is null
  1877.                 begin
  1878.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  1879.                         (@publisher_database_id, @10originator, @10originator_db)
  1880.                     select @originator_id = @@identity
  1881.                 end
  1882.             end
  1883.             else
  1884.                 select @originator_id = 0
  1885.     
  1886.         if( @type in( 37,38 ) )
  1887.         begin
  1888.           select @syncstat = 38 - @10type
  1889.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @10article_id, @syncstat, @10xact_seqno 
  1890.         end
  1891.  
  1892.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  1893.             @10xact_seqno,@10type, @10article_id, 
  1894.             @originator_id, 
  1895.             @10command_id, @10partial_command, @10command)
  1896.     end
  1897.  
  1898.     IF @11xact_id = 0x0
  1899.       return
  1900.     IF @11command IS NOT NULL
  1901.     begin
  1902.             if @11originator <> N'' and @11originator_db <> N'' and @11originator is not null and @11originator_db is not null 
  1903.             begin 
  1904.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  1905.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@11originator) and
  1906.                     dbname = @11originator_db
  1907.                 if @originator_id is null
  1908.                 begin
  1909.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  1910.                         (@publisher_database_id, @11originator, @11originator_db)
  1911.                     select @originator_id = @@identity
  1912.                 end
  1913.             end
  1914.             else
  1915.                 select @originator_id = 0
  1916.     
  1917.         if( @type in( 37,38 ) )
  1918.         begin
  1919.           select @syncstat = 38 - @11type
  1920.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @11article_id, @syncstat, @11xact_seqno 
  1921.         end
  1922.  
  1923.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  1924.             @11xact_seqno,@11type, @11article_id, 
  1925.             @originator_id, 
  1926.             @11command_id, @11partial_command, @11command)
  1927.     end
  1928.  
  1929.     IF @12xact_id = 0x0
  1930.       return
  1931.     IF @12command IS NOT NULL
  1932.     begin
  1933.             if @12originator <> N'' and @12originator_db <> N'' and @12originator is not null and @12originator_db is not null 
  1934.             begin 
  1935.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  1936.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@12originator) and
  1937.                     dbname = @12originator_db
  1938.                 if @originator_id is null
  1939.                 begin
  1940.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  1941.                         (@publisher_database_id, @12originator, @12originator_db)
  1942.                     select @originator_id = @@identity
  1943.                 end
  1944.             end
  1945.             else
  1946.                 select @originator_id = 0
  1947.     
  1948.         if( @type in( 37,38 ) )
  1949.         begin
  1950.           select @syncstat = 38 - @12type
  1951.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @12article_id, @syncstat, @12xact_seqno 
  1952.         end
  1953.  
  1954.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  1955.             @12xact_seqno,@12type, @12article_id, 
  1956.             @originator_id, 
  1957.             @12command_id, @12partial_command, @12command)
  1958.     end
  1959.  
  1960.  
  1961.     IF @13xact_id = 0x0
  1962.       return
  1963.     IF @13command IS NOT NULL
  1964.     begin
  1965.             if @13originator <> N'' and @13originator_db <> N'' and @13originator is not null and @13originator_db is not null 
  1966.             begin 
  1967.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  1968.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@13originator) and
  1969.                     dbname = @13originator_db
  1970.                 if @originator_id is null
  1971.                 begin
  1972.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  1973.                         (@publisher_database_id, @13originator, @13originator_db)
  1974.                     select @originator_id = @@identity
  1975.                 end
  1976.             end
  1977.             else
  1978.                 select @originator_id = 0
  1979.     
  1980.         if( @type in( 37,38 ) )
  1981.         begin
  1982.           select @syncstat = 38 - @13type
  1983.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @13article_id, @syncstat, @13xact_seqno 
  1984.         end
  1985.  
  1986.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  1987.             @13xact_seqno,@13type, @13article_id, 
  1988.             @originator_id, 
  1989.             @13command_id, @13partial_command, @13command)
  1990.     end
  1991.  
  1992.     IF @14xact_id = 0x0
  1993.       return
  1994.     IF @14command IS NOT NULL
  1995.     begin
  1996.             if @14originator <> N'' and @14originator_db <> N'' and @14originator is not null and @14originator_db is not null 
  1997.             begin 
  1998.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  1999.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@14originator) and
  2000.                     dbname = @14originator_db
  2001.                 if @originator_id is null
  2002.                 begin
  2003.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2004.                         (@publisher_database_id, @14originator, @14originator_db)
  2005.                     select @originator_id = @@identity
  2006.                 end
  2007.             end
  2008.             else
  2009.                 select @originator_id = 0
  2010.     
  2011.         if( @type in( 37,38 ) )
  2012.         begin
  2013.           select @syncstat = 38 - @14type
  2014.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @14article_id, @syncstat, @14xact_seqno 
  2015.         end
  2016.  
  2017.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2018.             @14xact_seqno,@14type, @14article_id, 
  2019.             @originator_id, 
  2020.             @14command_id, @14partial_command, @14command)
  2021.     end
  2022.  
  2023.  
  2024.     IF @15xact_id = 0x0
  2025.       return
  2026.     IF @15command IS NOT NULL
  2027.     begin
  2028.             if @15originator <> N'' and @15originator_db <> N'' and @15originator is not null and @15originator_db is not null 
  2029.             begin 
  2030.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  2031.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@15originator) and
  2032.                     dbname = @15originator_db
  2033.                 if @originator_id is null
  2034.                 begin
  2035.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2036.                         (@publisher_database_id, @15originator, @15originator_db)
  2037.                     select @originator_id = @@identity
  2038.                 end
  2039.             end
  2040.             else
  2041.                 select @originator_id = 0
  2042.     
  2043.         if( @type in( 37,38 ) )
  2044.         begin
  2045.           select @syncstat = 38 - @15type
  2046.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @15article_id, @syncstat, @15xact_seqno 
  2047.         end
  2048.  
  2049.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2050.             @15xact_seqno,@15type, @15article_id, 
  2051.             @originator_id, 
  2052.             @15command_id, @15partial_command, @15command)
  2053.     end
  2054.  
  2055.     IF @16xact_id = 0x0
  2056.       return
  2057.     IF @16command IS NOT NULL
  2058.     begin
  2059.             if @16originator <> N'' and @16originator_db <> N'' and @16originator is not null and @16originator_db is not null 
  2060.             begin 
  2061.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  2062.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@16originator) and
  2063.                     dbname = @16originator_db
  2064.                 if @originator_id is null
  2065.                 begin
  2066.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2067.                         (@publisher_database_id, @16originator, @16originator_db)
  2068.                     select @originator_id = @@identity
  2069.                 end
  2070.             end
  2071.             else
  2072.                 select @originator_id = 0
  2073.     
  2074.         if( @type in( 37,38 ) )
  2075.         begin
  2076.           select @syncstat = 38 - @16type
  2077.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @16article_id, @syncstat, @16xact_seqno 
  2078.         end
  2079.  
  2080.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2081.             @16xact_seqno,@16type, @16article_id, 
  2082.             @originator_id, 
  2083.             @16command_id, @16partial_command, @16command)
  2084.     end
  2085.  
  2086.  
  2087.     IF @17xact_id = 0x0
  2088.       return
  2089.     IF @17command IS NOT NULL
  2090.     begin
  2091.             if @17originator <> N'' and @17originator_db <> N'' and @17originator is not null and @17originator_db is not null 
  2092.             begin 
  2093.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  2094.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@17originator) and
  2095.                     dbname = @17originator_db
  2096.                 if @originator_id is null
  2097.                 begin
  2098.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2099.                         (@publisher_database_id, @17originator, @17originator_db)
  2100.                     select @originator_id = @@identity
  2101.                 end
  2102.             end
  2103.             else
  2104.                 select @originator_id = 0
  2105.     
  2106.         if( @type in( 37,38 ) )
  2107.         begin
  2108.           select @syncstat = 38 - @17type
  2109.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @17article_id, @syncstat, @17xact_seqno 
  2110.         end
  2111.  
  2112.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2113.             @17xact_seqno,@17type, @17article_id, 
  2114.             @originator_id, 
  2115.             @17command_id, @17partial_command, @17command)
  2116.     end
  2117.  
  2118.  
  2119.     IF @18xact_id = 0x0
  2120.       return
  2121.     IF @18command IS NOT NULL
  2122.     begin
  2123.             if @18originator <> N'' and @18originator_db <> N'' and @18originator is not null and @18originator_db is not null 
  2124.             begin 
  2125.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  2126.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@18originator) and
  2127.                     dbname = @18originator_db
  2128.                 if @originator_id is null
  2129.                 begin
  2130.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2131.                         (@publisher_database_id, @18originator, @18originator_db)
  2132.                     select @originator_id = @@identity
  2133.                 end
  2134.             end
  2135.             else
  2136.                 select @originator_id = 0
  2137.     
  2138.         if( @type in( 37,38 ) )
  2139.         begin
  2140.           select @syncstat = 38 - @18type
  2141.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @18article_id, @syncstat, @18xact_seqno 
  2142.         end
  2143.  
  2144.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2145.             @18xact_seqno,@18type, @18article_id, 
  2146.             @originator_id, 
  2147.             @18command_id, @18partial_command, @18command)
  2148.     end
  2149.  
  2150.  
  2151.     IF @19xact_id = 0x0
  2152.       return
  2153.     IF @19command IS NOT NULL
  2154.     begin
  2155.             if @19originator <> N'' and @19originator_db <> N'' and @19originator is not null and @19originator_db is not null 
  2156.             begin 
  2157.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  2158.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@19originator) and
  2159.                     dbname = @19originator_db
  2160.                 if @originator_id is null
  2161.                 begin
  2162.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2163.                         (@publisher_database_id, @19originator, @19originator_db)
  2164.                     select @originator_id = @@identity
  2165.                 end
  2166.             end
  2167.             else
  2168.                 select @originator_id = 0
  2169.     
  2170.         if( @type in( 37,38 ) )
  2171.         begin
  2172.           select @syncstat = 38 - @19type
  2173.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @19article_id, @syncstat, @19xact_seqno 
  2174.         end
  2175.  
  2176.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2177.             @19xact_seqno,@19type, @19article_id, 
  2178.             @originator_id, 
  2179.             @19command_id, @19partial_command, @19command)
  2180.     end
  2181.  
  2182.  
  2183.     IF @20xact_id = 0x0
  2184.       return
  2185.     IF @20command IS NOT NULL
  2186.     begin
  2187.             if @20originator <> N'' and @20originator_db <> N'' and @20originator is not null and @20originator_db is not null 
  2188.             begin 
  2189.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  2190.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@20originator) and
  2191.                     dbname = @20originator_db
  2192.                 if @originator_id is null
  2193.                 begin
  2194.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2195.                         (@publisher_database_id, @20originator, @20originator_db)
  2196.                     select @originator_id = @@identity
  2197.                 end
  2198.             end
  2199.             else
  2200.                 select @originator_id = 0
  2201.     
  2202.         if( @type in( 37,38 ) )
  2203.         begin
  2204.           select @syncstat = 38 - @20type
  2205.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @20article_id, @syncstat, @20xact_seqno 
  2206.         end
  2207.  
  2208.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2209.             @20xact_seqno,@20type, @20article_id, 
  2210.             @originator_id, 
  2211.             @20command_id, @20partial_command, @20command)
  2212.     end
  2213.  
  2214.     IF @21xact_id = 0x0
  2215.       return
  2216.     IF @21command IS NOT NULL
  2217.     begin
  2218.             if @21originator <> N'' and @21originator_db <> N'' and @21originator is not null and @21originator_db is not null 
  2219.             begin 
  2220.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  2221.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@21originator) and
  2222.                     dbname = @21originator_db
  2223.                 if @originator_id is null
  2224.                 begin
  2225.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2226.                         (@publisher_database_id, @21originator, @21originator_db)
  2227.                     select @originator_id = @@identity
  2228.                 end
  2229.             end
  2230.             else
  2231.                 select @originator_id = 0
  2232.     
  2233.         if( @type in( 37,38 ) )
  2234.         begin
  2235.           select @syncstat = 38 - @21type
  2236.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @21article_id, @syncstat, @21xact_seqno 
  2237.         end
  2238.  
  2239.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2240.             @21xact_seqno,@21type, @21article_id, 
  2241.             @originator_id, 
  2242.             @21command_id, @21partial_command, @21command)
  2243.     end
  2244.  
  2245.     IF @22xact_id = 0x0
  2246.       return
  2247.     IF @22command IS NOT NULL
  2248.     begin
  2249.             if @22originator <> N'' and @22originator_db <> N'' and @22originator is not null and @22originator_db is not null 
  2250.             begin 
  2251.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  2252.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@22originator) and
  2253.                     dbname = @22originator_db
  2254.                 if @originator_id is null
  2255.                 begin
  2256.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2257.                         (@publisher_database_id, @22originator, @22originator_db)
  2258.                     select @originator_id = @@identity
  2259.                 end
  2260.             end
  2261.             else
  2262.                 select @originator_id = 0
  2263.         end
  2264.     
  2265.         if( @type in( 37,38 ) )
  2266.         begin
  2267.           select @syncstat = 38 - @22type
  2268.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @22article_id, @syncstat, @22xact_seqno 
  2269.         end
  2270.  
  2271.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2272.             @22xact_seqno,@22type, @22article_id, 
  2273.             @originator_id, 
  2274.             @22command_id, @22partial_command, @22command)
  2275.  
  2276.  
  2277.     IF @23xact_id = 0x0
  2278.       return
  2279.     IF @23command IS NOT NULL
  2280.     begin
  2281.             if @23originator <> N'' and @23originator_db <> N'' and @23originator is not null and @23originator_db is not null 
  2282.             begin 
  2283.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  2284.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@23originator) and
  2285.                     dbname = @23originator_db
  2286.                 if @originator_id is null
  2287.                 begin
  2288.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2289.                         (@publisher_database_id, @23originator, @23originator_db)
  2290.                     select @originator_id = @@identity
  2291.                 end
  2292.             end
  2293.             else
  2294.                 select @originator_id = 0
  2295.     
  2296.         if( @type in( 37,38 ) )
  2297.         begin
  2298.           select @syncstat = 38 - @23type
  2299.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @23article_id, @syncstat, @23xact_seqno 
  2300.         end
  2301.  
  2302.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2303.             @23xact_seqno,@23type, @23article_id, 
  2304.             @originator_id, 
  2305.             @23command_id, @23partial_command, @23command)
  2306.     end
  2307.  
  2308.     IF @24xact_id = 0x0
  2309.       return
  2310.     IF @24command IS NOT NULL
  2311.     begin
  2312.             if @24originator <> N'' and @24originator_db <> N'' and @24originator is not null and @24originator_db is not null 
  2313.             begin 
  2314.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  2315.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@24originator) and
  2316.                     dbname = @24originator_db
  2317.                 if @originator_id is null
  2318.                 begin
  2319.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2320.                         (@publisher_database_id, @24originator, @24originator_db)
  2321.                     select @originator_id = @@identity
  2322.                 end
  2323.             end
  2324.             else
  2325.                 select @originator_id = 0
  2326.     
  2327.         if( @type in( 37,38 ) )
  2328.         begin
  2329.           select @syncstat = 38 - @24type
  2330.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @24article_id, @syncstat, @24xact_seqno 
  2331.         end
  2332.  
  2333.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2334.             @24xact_seqno,@24type, @24article_id, 
  2335.             @originator_id, 
  2336.             @24command_id, @24partial_command, @24command)
  2337.     end
  2338.  
  2339.  
  2340.     IF @25xact_id = 0x0
  2341.       return
  2342.     IF @25command IS NOT NULL
  2343.     begin
  2344.             if @25originator <> N'' and @25originator_db <> N'' and @25originator is not null and @25originator_db is not null 
  2345.             begin 
  2346.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  2347.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@25originator) and
  2348.                     dbname = @25originator_db
  2349.                 if @originator_id is null
  2350.                 begin
  2351.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2352.                         (@publisher_database_id, @25originator, @25originator_db)
  2353.                     select @originator_id = @@identity
  2354.                 end
  2355.             end
  2356.             else
  2357.                 select @originator_id = 0
  2358.     
  2359.         if( @type in( 37,38 ) )
  2360.         begin
  2361.           select @syncstat = 38 - @25type
  2362.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @25article_id, @syncstat, @25xact_seqno 
  2363.         end
  2364.  
  2365.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2366.             @25xact_seqno,@25type, @25article_id, 
  2367.             @originator_id, 
  2368.             @25command_id, @25partial_command, @25command)
  2369.     end
  2370.  
  2371.  
  2372.     IF @26xact_id = 0x0
  2373.       return
  2374.     IF @26command IS NOT NULL
  2375.     begin
  2376.             if @26originator <> N'' and @26originator_db <> N'' and @26originator is not null and @26originator_db is not null 
  2377.             begin 
  2378.                 set @originator_id = null select @originator_id = id from MSrepl_originators where
  2379.                     publisher_database_id = @publisher_database_id and UPPER(srvname) = UPPER(@26originator) and
  2380.                     dbname = @26originator_db
  2381.                 if @originator_id is null
  2382.                 begin
  2383.                     insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2384.                         (@publisher_database_id, @26originator, @26originator_db)
  2385.                     select @originator_id = @@identity
  2386.                 end
  2387.             end
  2388.             else
  2389.                 select @originator_id = 0
  2390.     
  2391.         if( @type in( 37,38 ) )
  2392.         begin
  2393.           select @syncstat = 38 - @26type
  2394.           exec sp_MSset_syncstate @publisher_id, @publisher_db, @26article_id, @syncstat, @26xact_seqno 
  2395.         end
  2396.  
  2397.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2398.             @26xact_seqno,@26type, @26article_id, 
  2399.             @originator_id, 
  2400.             @26command_id, @26partial_command, @26command)
  2401.     end
  2402.  
  2403.  
  2404.     IF @@ERROR <> 0
  2405.       return (1)
  2406. GO
  2407.  
  2408. raiserror(15339,-1,-1,'sp_MSadd_repl_commands27hp6x')
  2409. GO
  2410.  
  2411. CREATE PROCEDURE sp_MSadd_repl_commands27hp6x
  2412. @publisher_id smallint,
  2413. @publisher_db sysname,
  2414. @data varbinary( 1575 ),
  2415. @1data varbinary(1575) = NULL,
  2416. @2data varbinary(1575) = NULL,
  2417. @3data varbinary(1575) = NULL,
  2418. @4data varbinary(1575) = NULL,
  2419. @5data varbinary(1575) = NULL,
  2420. @6data varbinary(1575) = NULL,
  2421. @7data varbinary(1575) = NULL,
  2422. @8data varbinary(1575) = NULL,
  2423. @9data varbinary(1575) = NULL,
  2424. @10data varbinary(1575) = NULL,
  2425. @11data varbinary(1575) = NULL,
  2426. @12data varbinary(1575) = NULL,
  2427. @13data varbinary(1575) = NULL,
  2428. @14data varbinary(1575) = NULL,
  2429. @15data varbinary(1575) = NULL,
  2430. @16data varbinary(1575) = NULL,
  2431. @17data varbinary(1575) = NULL,
  2432. @18data varbinary(1575) = NULL,
  2433. @19data varbinary(1575) = NULL,
  2434. @20data varbinary(1575) = NULL,
  2435. @21data varbinary(1575) = NULL,
  2436. @22data varbinary(1575) = NULL,
  2437. @23data varbinary(1575) = NULL,
  2438. @24data varbinary(1575) = NULL,
  2439. @25data varbinary(1575) = NULL,
  2440. @26data varbinary(1575) = NULL
  2441. AS
  2442.  
  2443.     SET NOCOUNT ON
  2444.  
  2445.     DECLARE @xact_id    varbinary(10)
  2446.     DECLARE @xact_seqno varbinary(10)
  2447.     DECLARE @article_id int
  2448.     DECLARE @command_id int
  2449.     DECLARE @type       int
  2450.     DECLARE @partial_command bit
  2451.     DECLARE @command    varbinary(1024)
  2452.  
  2453.     DECLARE @originator sysname
  2454.     DECLARE @originator_db sysname
  2455.  
  2456.     DECLARE @publisher_database_id int
  2457.     DECLARE @date datetime
  2458.     declare @originator_id int
  2459.  
  2460.     DECLARE @cmd_data_len  smallint
  2461.     DECLARE @orig_srv_len smallint
  2462.     DECLARE @orig_db_len  smallint
  2463.  
  2464.     SELECT @date = GETDATE()
  2465.  
  2466.     -- Get publisher database id.
  2467.     SELECT @publisher_database_id = id from MSpublisher_databases where publisher_id = @publisher_id and 
  2468.         publisher_db = @publisher_db
  2469.  
  2470.     -- First insert into MS_repl_transactions
  2471.     IF convert( int, substring( @data, 25, 4 ) ) = 1
  2472.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2473.          substring( @data, 1, 6 ), substring( @data, 11, 8 ), @date)
  2474.  
  2475.     IF @1data is null
  2476.       goto INSERT_CMDS
  2477.     IF convert( int, substring( @1data, 25, 4 ) ) = 1
  2478.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2479.          substring( @1data, 1, 6 ), substring( @1data, 11, 8 ), @date)
  2480.  
  2481.     IF @2data is null
  2482.       goto INSERT_CMDS
  2483.     IF convert( int, substring( @2data, 25, 4 ) ) = 1
  2484.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2485.          substring( @2data, 1, 6 ), substring( @2data, 11, 8 ), @date)
  2486.     
  2487.     IF @3data is null
  2488.       goto INSERT_CMDS
  2489.     IF convert( int, substring( @3data, 25, 4 ) ) = 1
  2490.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2491.          substring( @3data, 1, 6 ), substring( @3data, 11, 8 ), @date)
  2492.  
  2493.     IF @4data is null
  2494.       goto INSERT_CMDS
  2495.     IF convert( int, substring( @4data, 25, 4 ) ) = 1
  2496.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2497.          substring( @4data, 1, 6 ), substring( @4data, 11, 8 ), @date)
  2498.  
  2499.     IF @5data is null
  2500.       goto INSERT_CMDS
  2501.     IF convert( int, substring( @5data, 25, 4 ) ) = 1
  2502.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2503.          substring( @5data, 1, 6 ), substring( @5data, 11, 8 ), @date)
  2504.  
  2505.     IF @6data is null
  2506.       goto INSERT_CMDS
  2507.     IF convert( int, substring( @6data, 25, 4 ) ) = 1
  2508.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2509.          substring( @6data, 1, 6 ), substring( @6data, 11, 8 ), @date)
  2510.  
  2511.     IF @7data is null
  2512.       goto INSERT_CMDS
  2513.     IF convert( int, substring( @7data, 25, 4 ) ) = 1
  2514.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2515.          substring( @7data, 1, 6 ), substring( @7data, 11, 8 ), @date)
  2516.  
  2517.     IF @8data is null
  2518.       goto INSERT_CMDS
  2519.     IF convert( int, substring( @8data, 25, 4 ) ) = 1
  2520.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2521.          substring( @8data, 1, 6 ), substring( @8data, 11, 8 ), @date)
  2522.  
  2523.     IF @9data is null
  2524.       goto INSERT_CMDS
  2525.     IF convert( int, substring( @9data, 25, 4 ) ) = 1
  2526.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2527.          substring( @9data, 1, 6 ), substring( @9data, 11, 8 ), @date)
  2528.  
  2529.     IF @10data is null
  2530.       goto INSERT_CMDS
  2531.     IF convert( int, substring( @10data, 25, 4 ) ) = 1
  2532.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2533.          substring( @10data, 1, 6 ), substring( @10data, 11, 8 ), @date)
  2534.  
  2535.     IF @11data is null
  2536.       goto INSERT_CMDS
  2537.     IF convert( int, substring( @11data, 25, 4 ) ) = 1
  2538.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2539.          substring( @11data, 1, 6 ), substring( @11data, 11, 8 ), @date)
  2540.  
  2541.     IF @12data is null
  2542.       goto INSERT_CMDS
  2543.     IF convert( int, substring( @12data, 25, 4 ) ) = 1
  2544.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2545.          substring( @12data, 1, 6 ), substring( @12data, 11, 8 ), @date)
  2546.  
  2547.     IF @13data is null
  2548.       goto INSERT_CMDS
  2549.     IF convert( int, substring( @13data, 25, 4 ) ) = 1
  2550.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2551.          substring( @13data, 1, 6 ), substring( @13data, 11, 8 ), @date)
  2552.  
  2553.     IF @14data is null
  2554.       goto INSERT_CMDS
  2555.     IF convert( int, substring( @14data, 25, 4 ) ) = 1
  2556.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2557.          substring( @14data, 1, 6 ), substring( @14data, 11, 8 ), @date)
  2558.  
  2559.     IF @15data is null
  2560.       goto INSERT_CMDS
  2561.     IF convert( int, substring( @15data, 25, 4 ) ) = 1
  2562.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2563.          substring( @15data, 1, 6 ), substring( @15data, 11, 8 ), @date)
  2564.  
  2565.     IF @16data is null
  2566.       goto INSERT_CMDS
  2567.     IF convert( int, substring( @16data, 25, 4 ) ) = 1
  2568.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2569.          substring( @16data, 1, 6 ), substring( @16data, 11, 8 ), @date)
  2570.  
  2571.     IF @17data is null
  2572.       goto INSERT_CMDS
  2573.     IF convert( int, substring( @17data, 25, 4 ) ) = 1
  2574.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2575.          substring( @17data, 1, 6 ), substring( @17data, 11, 8 ), @date)
  2576.  
  2577.     IF @18data is null
  2578.       goto INSERT_CMDS
  2579.     IF convert( int, substring( @18data, 25, 4 ) ) = 1
  2580.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2581.          substring( @18data, 1, 6 ), substring( @18data, 11, 8 ), @date)
  2582.  
  2583.     IF @19data is null
  2584.       goto INSERT_CMDS
  2585.     IF convert( int, substring( @19data, 25, 4 ) ) = 1
  2586.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2587.          substring( @19data, 1, 6 ), substring( @19data, 11, 8 ), @date)
  2588.  
  2589.     IF @20data is null
  2590.       goto INSERT_CMDS
  2591.     IF convert( int, substring( @20data, 25, 4 ) ) = 1
  2592.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2593.          substring( @20data, 1, 6 ), substring( @20data, 11, 8 ), @date)
  2594.  
  2595.     IF @21data is null
  2596.       goto INSERT_CMDS
  2597.     IF convert( int, substring( @21data, 25, 4 ) ) = 1
  2598.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2599.          substring( @21data, 1, 6 ), substring( @21data, 11, 8 ), @date)
  2600.  
  2601.     IF @22data is null
  2602.       goto INSERT_CMDS
  2603.     IF convert( int, substring( @22data, 25, 4 ) ) = 1
  2604.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2605.          substring( @22data, 1, 6 ), substring( @22data, 11, 8 ), @date)
  2606.  
  2607.     IF @23data is null
  2608.       goto INSERT_CMDS
  2609.     IF convert( int, substring( @23data, 25, 4 ) ) = 1
  2610.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2611.          substring( @23data, 1, 6 ), substring( @23data, 11, 8 ), @date)
  2612.  
  2613.     IF @24data is null
  2614.       goto INSERT_CMDS
  2615.     IF convert( int, substring( @24data, 25, 4 ) ) = 1
  2616.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2617.          substring( @24data, 1, 6 ), substring( @24data, 11, 8 ), @date)
  2618.  
  2619.     IF @25data is null
  2620.       goto INSERT_CMDS
  2621.     IF convert( int, substring( @25data, 25, 4 ) ) = 1
  2622.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2623.          substring( @25data, 1, 6 ), substring( @25data, 11, 8 ), @date)
  2624.  
  2625.     IF @26data is null
  2626.       goto INSERT_CMDS
  2627.     IF convert( int, substring( @26data, 25, 4 ) ) = 1
  2628.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  2629.          substring( @26data, 1, 6 ), substring( @26data, 11, 8 ), @date)
  2630.  
  2631. INSERT_CMDS:
  2632.  
  2633.     if datalength( @data ) > 39
  2634.     begin
  2635.         -- Get the originator_id for the first command 
  2636.         select @cmd_data_len = substring( @data, 34, 2 )
  2637.         select @orig_srv_len = substring( @data, 36, 2 )
  2638.         select @orig_db_len = substring( @data, 38, 2 )
  2639.  
  2640.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  2641.         begin 
  2642.             set @originator_id = null 
  2643.             select @originator_id = id from MSrepl_originators where
  2644.                 publisher_database_id = @publisher_database_id 
  2645.                 and UPPER(srvname) = UPPER(convert(sysname, substring( @data, 40 + @cmd_data_len, @orig_srv_len )))
  2646.                 and dbname = substring( @data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  2647.             if @originator_id is null
  2648.             begin
  2649.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2650.                     (@publisher_database_id, substring( @data, 40 + @cmd_data_len, @orig_srv_len ), substring( @data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  2651.                 select @originator_id = @@identity
  2652.             end
  2653.         end
  2654.         else
  2655.             select @originator_id = 0
  2656.  
  2657.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2658.             substring(@data,11,8),
  2659.             substring(@data,29,4), 
  2660.             substring(@data,21,4), 
  2661.             @originator_id, 
  2662.             substring(@data,25,4), 
  2663.             convert(bit,substring(@data,33,1)), 
  2664.             substring(@data,40,@cmd_data_len) )
  2665.     end
  2666.     
  2667.     IF @1data is null
  2668.       return
  2669.     IF datalength( @1data ) > 39
  2670.     begin
  2671.         -- Get the originator_id for the first command 
  2672.         select @cmd_data_len = substring( @1data, 34, 2 )
  2673.         select @orig_srv_len = substring( @1data, 36, 2 )
  2674.         select @orig_db_len = substring( @1data, 38, 2 )
  2675.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  2676.         begin 
  2677.             set @originator_id = null 
  2678.             select @originator_id = id from MSrepl_originators where
  2679.                 publisher_database_id = @publisher_database_id 
  2680.                 and UPPER(srvname) = UPPER(convert(sysname, substring( @1data, 40 + @cmd_data_len, @orig_srv_len )))
  2681.                 and dbname = substring( @1data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  2682.             if @originator_id is null
  2683.             begin
  2684.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2685.                     (@publisher_database_id, substring( @1data, 40 + @cmd_data_len, @orig_srv_len ), substring( @1data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  2686.                 select @originator_id = @@identity
  2687.             end
  2688.         end
  2689.         else
  2690.             select @originator_id = 0
  2691.  
  2692.         -- Now insert into MSrepl_commands
  2693.  
  2694.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2695.             substring(@1data,11,8),
  2696.             substring(@1data,29,4), 
  2697.             substring(@1data,21,4), 
  2698.             @originator_id, 
  2699.             substring(@1data,25,4), 
  2700.             convert(bit,substring(@1data,33,1)), 
  2701.             substring(@1data,40,@cmd_data_len) )
  2702.     end
  2703.  
  2704.     IF @2data is null
  2705.       return
  2706.     IF datalength( @2data ) > 39
  2707.     begin
  2708.         -- Get the originator_id for the first command 
  2709.         select @cmd_data_len = substring( @2data, 34, 2 )
  2710.         select @orig_srv_len = substring( @2data, 36, 2 )
  2711.         select @orig_db_len = substring( @2data, 38, 2 )
  2712.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  2713.         begin 
  2714.             set @originator_id = null 
  2715.             select @originator_id = id from MSrepl_originators where
  2716.                 publisher_database_id = @publisher_database_id 
  2717.                 and UPPER(srvname) = UPPER(convert(sysname, substring( @2data, 40 + @cmd_data_len, @orig_srv_len )))
  2718.                 and dbname = substring( @2data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  2719.             if @originator_id is null
  2720.             begin
  2721.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2722.                     (@publisher_database_id, substring( @2data, 40 + @cmd_data_len, @orig_srv_len ), substring( @2data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  2723.                 select @originator_id = @@identity
  2724.             end
  2725.         end
  2726.         else
  2727.             select @originator_id = 0
  2728.  
  2729.         -- Now insert into MSrepl_commands
  2730.  
  2731.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2732.             substring(@2data,11 ,8),
  2733.             substring(@2data,29 ,4), 
  2734.             substring(@2data,21 ,4), 
  2735.             @originator_id, 
  2736.             substring(@2data,25 ,4), 
  2737.             convert(bit,substring(@2data,33 ,1)), 
  2738.             substring(@2data,40,@cmd_data_len) )
  2739.     end
  2740.  
  2741.     IF @3data is null
  2742.       return
  2743.     IF datalength( @3data ) > 39
  2744.     begin
  2745.         -- Get the originator_id for the first command 
  2746.         select @cmd_data_len = substring( @3data, 34, 2 )
  2747.         select @orig_srv_len = substring( @3data, 36, 2 )
  2748.         select @orig_db_len = substring( @3data, 38, 2 )
  2749.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  2750.         begin 
  2751.             set @originator_id = null 
  2752.             select @originator_id = id from MSrepl_originators where
  2753.                 publisher_database_id = @publisher_database_id 
  2754.                 and UPPER(srvname) = UPPER(convert(sysname, substring( @3data, 40 + @cmd_data_len, @orig_srv_len )))
  2755.                 and dbname = substring( @3data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  2756.             if @originator_id is null
  2757.             begin
  2758.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2759.                     (@publisher_database_id, substring( @3data, 40 + @cmd_data_len, @orig_srv_len ), substring( @3data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  2760.                 select @originator_id = @@identity
  2761.             end
  2762.         end
  2763.         else
  2764.             select @originator_id = 0
  2765.  
  2766.         -- Now insert into MSrepl_commands
  2767.  
  2768.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2769.             substring(@3data,11 ,8),
  2770.             substring(@3data,29 ,4), 
  2771.             substring(@3data,21 ,4), 
  2772.             @originator_id, 
  2773.             substring(@3data,25 ,4), 
  2774.             convert(bit,substring(@3data,33 ,1)), 
  2775.             substring(@3data,40,@cmd_data_len) )
  2776.     end
  2777.  
  2778.     IF @4data is null
  2779.       return
  2780.     IF datalength( @4data ) > 39
  2781.     begin
  2782.         -- Get the originator_id for the first command 
  2783.         select @cmd_data_len = substring( @4data, 34, 2 )
  2784.         select @orig_srv_len = substring( @4data, 36, 2 )
  2785.         select @orig_db_len = substring( @4data, 38, 2 )
  2786.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  2787.         begin 
  2788.             set @originator_id = null 
  2789.             select @originator_id = id from MSrepl_originators where
  2790.                 publisher_database_id = @publisher_database_id 
  2791.                 and UPPER(srvname) = UPPER(convert(sysname, substring( @4data, 40 + @cmd_data_len, @orig_srv_len )))
  2792.                 and dbname = substring( @4data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  2793.             if @originator_id is null
  2794.             begin
  2795.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2796.                     (@publisher_database_id, substring( @4data, 40 + @cmd_data_len, @orig_srv_len ), substring( @4data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  2797.                 select @originator_id = @@identity
  2798.             end
  2799.         end
  2800.         else
  2801.             select @originator_id = 0
  2802.  
  2803.         -- Now insert into MSrepl_commands
  2804.  
  2805.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2806.             substring(@4data,11 ,8),
  2807.             substring(@4data,29 ,4), 
  2808.             substring(@4data,21 ,4), 
  2809.             @originator_id, 
  2810.             substring(@4data,25 ,4), 
  2811.             convert(bit,substring(@4data,33 ,1)), 
  2812.             substring(@4data,40,@cmd_data_len) )
  2813.     end
  2814.  
  2815.     IF @5data is null
  2816.       return
  2817.     IF datalength( @5data ) > 39
  2818.     begin
  2819.         -- Get the originator_id for the first command 
  2820.         select @cmd_data_len = substring( @5data, 34, 2 )
  2821.         select @orig_srv_len = substring( @5data, 36, 2 )
  2822.         select @orig_db_len = substring( @5data, 38, 2 )
  2823.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  2824.         begin 
  2825.             set @originator_id = null 
  2826.             select @originator_id = id from MSrepl_originators where
  2827.                 publisher_database_id = @publisher_database_id 
  2828.                 and UPPER(srvname) = UPPER(convert(sysname, substring( @5data, 40 + @cmd_data_len, @orig_srv_len )))
  2829.                 and dbname = substring( @5data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  2830.             if @originator_id is null
  2831.             begin
  2832.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2833.                     (@publisher_database_id, substring( @5data, 40 + @cmd_data_len, @orig_srv_len ), substring( @5data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  2834.                 select @originator_id = @@identity
  2835.             end
  2836.         end
  2837.         else
  2838.             select @originator_id = 0
  2839.  
  2840.         -- Now insert into MSrepl_commands
  2841.  
  2842.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2843.             substring(@5data,11 ,8),
  2844.             substring(@5data,29 ,4), 
  2845.             substring(@5data,21 ,4), 
  2846.             @originator_id, 
  2847.             substring(@5data,25 ,4), 
  2848.             convert(bit,substring(@5data,33 ,1)), 
  2849.             substring(@5data,40,@cmd_data_len) )
  2850.     end
  2851.  
  2852.     IF @6data is null
  2853.       return
  2854.     IF datalength( @6data ) > 39
  2855.     begin
  2856.         -- Get the originator_id for the first command 
  2857.         select @cmd_data_len = substring( @6data, 34, 2 )
  2858.         select @orig_srv_len = substring( @6data, 36, 2 )
  2859.         select @orig_db_len = substring( @6data, 38, 2 )
  2860.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  2861.         begin 
  2862.             set @originator_id = null 
  2863.             select @originator_id = id from MSrepl_originators where
  2864.                 publisher_database_id = @publisher_database_id 
  2865.                 and UPPER(srvname) = UPPER(convert(sysname, substring( @6data, 40 + @cmd_data_len, @orig_srv_len )))
  2866.                 and dbname = substring( @6data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  2867.             if @originator_id is null
  2868.             begin
  2869.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2870.                     (@publisher_database_id, substring( @6data, 40 + @cmd_data_len, @orig_srv_len ), substring( @6data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  2871.                 select @originator_id = @@identity
  2872.             end
  2873.         end
  2874.         else
  2875.             select @originator_id = 0
  2876.  
  2877.         -- Now insert into MSrepl_commands
  2878.  
  2879.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2880.             substring(@6data,11 ,8),
  2881.             substring(@6data,29 ,4), 
  2882.             substring(@6data,21 ,4), 
  2883.             @originator_id, 
  2884.             substring(@6data,25 ,4), 
  2885.             convert(bit,substring(@6data,33 ,1)), 
  2886.             substring(@6data,40,@cmd_data_len) )
  2887.     end
  2888.  
  2889.     IF @7data is null
  2890.       return
  2891.     IF datalength( @7data ) > 39
  2892.     begin
  2893.         -- Get the originator_id for the first command 
  2894.         select @cmd_data_len = substring( @7data, 34, 2 )
  2895.         select @orig_srv_len = substring( @7data, 36, 2 )
  2896.         select @orig_db_len = substring( @7data, 38, 2 )
  2897.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  2898.         begin 
  2899.             set @originator_id = null 
  2900.             select @originator_id = id from MSrepl_originators where
  2901.                 publisher_database_id = @publisher_database_id 
  2902.                 and UPPER(srvname) = UPPER(convert(sysname, substring( @7data, 40 + @cmd_data_len, @orig_srv_len )))
  2903.                 and dbname = substring( @7data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  2904.             if @originator_id is null
  2905.             begin
  2906.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2907.                     (@publisher_database_id, substring( @7data, 40 + @cmd_data_len, @orig_srv_len ), substring( @7data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  2908.                 select @originator_id = @@identity
  2909.             end
  2910.         end
  2911.         else
  2912.             select @originator_id = 0
  2913.  
  2914.         -- Now insert into MSrepl_commands
  2915.  
  2916.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2917.             substring(@7data,11 ,8),
  2918.             substring(@7data,29 ,4), 
  2919.             substring(@7data,21 ,4), 
  2920.             @originator_id, 
  2921.             substring(@7data,25 ,4), 
  2922.             convert(bit,substring(@7data,33 ,1)), 
  2923.             substring(@7data,40,@cmd_data_len) )
  2924.     end
  2925.  
  2926.     IF @8data is null
  2927.       return
  2928.     IF datalength( @8data ) > 39
  2929.     begin
  2930.         -- Get the originator_id for the first command 
  2931.         select @cmd_data_len = substring( @8data, 34, 2 )
  2932.         select @orig_srv_len = substring( @8data, 36, 2 )
  2933.         select @orig_db_len = substring( @8data, 38, 2 )
  2934.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  2935.         begin 
  2936.             set @originator_id = null 
  2937.             select @originator_id = id from MSrepl_originators where
  2938.                 publisher_database_id = @publisher_database_id 
  2939.                 and UPPER(srvname) = UPPER(convert(sysname, substring( @8data, 40 + @cmd_data_len, @orig_srv_len )))
  2940.                 and dbname = substring( @8data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  2941.             if @originator_id is null
  2942.             begin
  2943.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2944.                     (@publisher_database_id, substring( @8data, 40 + @cmd_data_len, @orig_srv_len ), substring( @8data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  2945.                 select @originator_id = @@identity
  2946.             end
  2947.         end
  2948.         else
  2949.             select @originator_id = 0
  2950.  
  2951.         -- Now insert into MSrepl_commands
  2952.  
  2953.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2954.             substring(@8data,11 ,8),
  2955.             substring(@8data,29 ,4), 
  2956.             substring(@8data,21 ,4), 
  2957.             @originator_id, 
  2958.             substring(@8data,25 ,4), 
  2959.             convert(bit,substring(@8data,33 ,1)), 
  2960.             substring(@8data,40,@cmd_data_len) )
  2961.     end
  2962.  
  2963.     IF @9data is null
  2964.       return
  2965.     IF datalength( @9data ) > 39
  2966.     begin
  2967.         -- Get the originator_id for the first command 
  2968.         select @cmd_data_len = substring( @9data, 34, 2 )
  2969.         select @orig_srv_len = substring( @9data, 36, 2 )
  2970.         select @orig_db_len = substring( @9data, 38, 2 )
  2971.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  2972.         begin 
  2973.             set @originator_id = null 
  2974.             select @originator_id = id from MSrepl_originators where
  2975.                 publisher_database_id = @publisher_database_id 
  2976.                 and UPPER(srvname) = UPPER(convert(sysname, substring( @9data, 40 + @cmd_data_len, @orig_srv_len )))
  2977.                 and dbname = substring( @9data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  2978.             if @originator_id is null
  2979.             begin
  2980.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  2981.                     (@publisher_database_id, substring( @9data, 40 + @cmd_data_len, @orig_srv_len ), substring( @9data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  2982.                 select @originator_id = @@identity
  2983.             end
  2984.         end
  2985.         else
  2986.             select @originator_id = 0
  2987.  
  2988.         -- Now insert into MSrepl_commands
  2989.  
  2990.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  2991.             substring(@9data,11 ,8),
  2992.             substring(@9data,29 ,4), 
  2993.             substring(@9data,21 ,4), 
  2994.             @originator_id, 
  2995.             substring(@9data,25 ,4), 
  2996.             convert(bit,substring(@9data,33 ,1)), 
  2997.             substring(@9data,40,@cmd_data_len) )
  2998.     end
  2999.  
  3000.     IF @10data is null
  3001.       return
  3002.     IF datalength( @10data ) > 39
  3003.     begin
  3004.         -- Get the originator_id for the first command 
  3005.         select @cmd_data_len = substring( @10data, 34, 2 )
  3006.         select @orig_srv_len = substring( @10data, 36, 2 )
  3007.         select @orig_db_len = substring( @10data, 38, 2 )
  3008.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  3009.         begin 
  3010.             set @originator_id = null 
  3011.             select @originator_id = id from MSrepl_originators where
  3012.                 publisher_database_id = @publisher_database_id 
  3013.                 and UPPER(srvname) = upper(convert(sysname, substring( @10data, 40 + @cmd_data_len, @orig_srv_len )))
  3014.                 and dbname = substring( @10data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  3015.             if @originator_id is null
  3016.             begin
  3017.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  3018.                     (@publisher_database_id, substring( @10data, 40 + @cmd_data_len, @orig_srv_len ), substring( @10data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  3019.                 select @originator_id = @@identity
  3020.             end
  3021.         end
  3022.         else
  3023.             select @originator_id = 0
  3024.  
  3025.         -- Now insert into MSrepl_commands
  3026.  
  3027.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  3028.             substring(@10data,11 ,8),
  3029.             substring(@10data,29 ,4), 
  3030.             substring(@10data,21 ,4), 
  3031.             @originator_id, 
  3032.             substring(@10data,25 ,4), 
  3033.             convert(bit,substring(@10data,33 ,1)), 
  3034.             substring(@10data,40,@cmd_data_len) )
  3035.     end
  3036.  
  3037.     IF @11data is null
  3038.       return
  3039.     IF datalength( @11data ) > 39
  3040.     begin
  3041.         -- Get the originator_id for the first command 
  3042.         select @cmd_data_len = substring( @11data, 34, 2 )
  3043.         select @orig_srv_len = substring( @11data, 36, 2 )
  3044.         select @orig_db_len = substring( @11data, 38, 2 )
  3045.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  3046.         begin 
  3047.             set @originator_id = null 
  3048.             select @originator_id = id from MSrepl_originators where
  3049.                 publisher_database_id = @publisher_database_id 
  3050.                 and UPPER(srvname) = upper(convert(sysname, substring( @11data, 40 + @cmd_data_len, @orig_srv_len )))
  3051.                 and dbname = substring( @11data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  3052.             if @originator_id is null
  3053.             begin
  3054.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  3055.                     (@publisher_database_id, substring( @11data, 40 + @cmd_data_len, @orig_srv_len ), substring( @11data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  3056.                 select @originator_id = @@identity
  3057.             end
  3058.         end
  3059.         else
  3060.             select @originator_id = 0
  3061.  
  3062.         -- Now insert into MSrepl_commands
  3063.  
  3064.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  3065.             substring(@11data,11 ,8),
  3066.             substring(@11data,29 ,4), 
  3067.             substring(@11data,21 ,4), 
  3068.             @originator_id, 
  3069.             substring(@11data,25 ,4), 
  3070.             convert(bit,substring(@11data,33 ,1)), 
  3071.             substring(@11data,40,@cmd_data_len) )
  3072.     end
  3073.  
  3074.     IF @12data is null
  3075.       return
  3076.     IF datalength( @12data ) > 39
  3077.     begin
  3078.         -- Get the originator_id for the first command 
  3079.         select @cmd_data_len = substring( @12data, 34, 2 )
  3080.         select @orig_srv_len = substring( @12data, 36, 2 )
  3081.         select @orig_db_len = substring( @12data, 38, 2 )
  3082.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  3083.         begin 
  3084.             set @originator_id = null 
  3085.             select @originator_id = id from MSrepl_originators where
  3086.                 publisher_database_id = @publisher_database_id 
  3087.                 and UPPER(srvname) = upper(convert(sysname, substring( @12data, 40 + @cmd_data_len, @orig_srv_len )))
  3088.                 and dbname = substring( @12data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  3089.             if @originator_id is null
  3090.             begin
  3091.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  3092.                     (@publisher_database_id, substring( @12data, 40 + @cmd_data_len, @orig_srv_len ), substring( @12data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  3093.                 select @originator_id = @@identity
  3094.             end
  3095.         end
  3096.         else
  3097.             select @originator_id = 0
  3098.  
  3099.         -- Now insert into MSrepl_commands
  3100.  
  3101.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  3102.             substring(@12data,11 ,8),
  3103.             substring(@12data,29 ,4), 
  3104.             substring(@12data,21 ,4), 
  3105.             @originator_id, 
  3106.             substring(@12data,25 ,4), 
  3107.             convert(bit,substring(@12data,33 ,1)), 
  3108.             substring(@12data,40,@cmd_data_len) )
  3109.     end
  3110.  
  3111.  
  3112.     IF @13data is null
  3113.       return
  3114.     IF datalength( @13data ) > 39
  3115.     begin
  3116.         -- Get the originator_id for the first command 
  3117.         select @cmd_data_len = substring( @13data, 34, 2 )
  3118.         select @orig_srv_len = substring( @13data, 36, 2 )
  3119.         select @orig_db_len = substring( @13data, 38, 2 )
  3120.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  3121.         begin 
  3122.             set @originator_id = null 
  3123.             select @originator_id = id from MSrepl_originators where
  3124.                 publisher_database_id = @publisher_database_id 
  3125.                 and UPPER(srvname) = upper(convert(sysname, substring( @13data, 40 + @cmd_data_len, @orig_srv_len )))
  3126.                 and dbname = substring( @13data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  3127.             if @originator_id is null
  3128.             begin
  3129.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  3130.                     (@publisher_database_id, substring( @13data, 40 + @cmd_data_len, @orig_srv_len ), substring( @13data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  3131.                 select @originator_id = @@identity
  3132.             end
  3133.         end
  3134.         else
  3135.             select @originator_id = 0
  3136.  
  3137.         -- Now insert into MSrepl_commands
  3138.  
  3139.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  3140.             substring(@13data,11 ,8),
  3141.             substring(@13data,29 ,4), 
  3142.             substring(@13data,21 ,4), 
  3143.             @originator_id, 
  3144.             substring(@13data,25 ,4), 
  3145.             convert(bit,substring(@13data,33 ,1)), 
  3146.             substring(@13data,40,@cmd_data_len) )
  3147.     end
  3148.  
  3149.     IF @14data is null
  3150.       return
  3151.     IF datalength( @14data ) > 39
  3152.     begin
  3153.         -- Get the originator_id for the first command 
  3154.         select @cmd_data_len = substring( @14data, 34, 2 )
  3155.         select @orig_srv_len = substring( @14data, 36, 2 )
  3156.         select @orig_db_len = substring( @14data, 38, 2 )
  3157.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  3158.         begin 
  3159.             set @originator_id = null 
  3160.             select @originator_id = id from MSrepl_originators where
  3161.                 publisher_database_id = @publisher_database_id 
  3162.                 and UPPER(srvname) = upper(convert(sysname, substring( @14data, 40 + @cmd_data_len, @orig_srv_len )))
  3163.                 and dbname = substring( @14data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  3164.             if @originator_id is null
  3165.             begin
  3166.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  3167.                     (@publisher_database_id, substring( @14data, 40 + @cmd_data_len, @orig_srv_len ), substring( @14data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  3168.                 select @originator_id = @@identity
  3169.             end
  3170.         end
  3171.         else
  3172.             select @originator_id = 0
  3173.  
  3174.         -- Now insert into MSrepl_commands
  3175.  
  3176.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  3177.             substring(@14data,11 ,8),
  3178.             substring(@14data,29 ,4), 
  3179.             substring(@14data,21 ,4), 
  3180.             @originator_id, 
  3181.             substring(@14data,25 ,4), 
  3182.             convert(bit,substring(@14data,33 ,1)), 
  3183.             substring(@14data,40,@cmd_data_len) )
  3184.     end
  3185.  
  3186.  
  3187.     IF @15data is null
  3188.       return
  3189.     IF datalength( @15data ) > 39
  3190.     begin
  3191.         -- Get the originator_id for the first command 
  3192.         select @cmd_data_len = substring( @15data, 34, 2 )
  3193.         select @orig_srv_len = substring( @15data, 36, 2 )
  3194.         select @orig_db_len = substring( @15data, 38, 2 )
  3195.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  3196.         begin 
  3197.             set @originator_id = null 
  3198.             select @originator_id = id from MSrepl_originators where
  3199.                 publisher_database_id = @publisher_database_id 
  3200.                 and UPPER(srvname) = upper(convert(sysname, substring( @15data, 40 + @cmd_data_len, @orig_srv_len )))
  3201.                 and dbname = substring( @15data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  3202.             if @originator_id is null
  3203.             begin
  3204.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  3205.                     (@publisher_database_id, substring( @15data, 40 + @cmd_data_len, @orig_srv_len ), substring( @15data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  3206.                 select @originator_id = @@identity
  3207.             end
  3208.         end
  3209.         else
  3210.             select @originator_id = 0
  3211.  
  3212.         -- Now insert into MSrepl_commands
  3213.  
  3214.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  3215.             substring(@15data,11 ,8),
  3216.             substring(@15data,29 ,4), 
  3217.             substring(@15data,21 ,4), 
  3218.             @originator_id, 
  3219.             substring(@15data,25 ,4), 
  3220.             convert(bit,substring(@15data,33 ,1)), 
  3221.             substring(@15data,40,@cmd_data_len) )
  3222.     end
  3223.  
  3224.     IF @16data is null
  3225.       return
  3226.     IF datalength( @16data ) > 39
  3227.     begin
  3228.         -- Get the originator_id for the first command 
  3229.         select @cmd_data_len = substring( @16data, 34, 2 )
  3230.         select @orig_srv_len = substring( @16data, 36, 2 )
  3231.         select @orig_db_len = substring( @16data, 38, 2 )
  3232.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  3233.         begin 
  3234.             set @originator_id = null 
  3235.             select @originator_id = id from MSrepl_originators where
  3236.                 publisher_database_id = @publisher_database_id 
  3237.                 and UPPER(srvname) = upper(convert(sysname, substring( @16data, 40 + @cmd_data_len, @orig_srv_len )))
  3238.                 and dbname = substring( @16data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  3239.             if @originator_id is null
  3240.             begin
  3241.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  3242.                     (@publisher_database_id, substring( @16data, 40 + @cmd_data_len, @orig_srv_len ), substring( @16data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  3243.                 select @originator_id = @@identity
  3244.             end
  3245.         end
  3246.         else
  3247.             select @originator_id = 0
  3248.  
  3249.         -- Now insert into MSrepl_commands
  3250.  
  3251.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  3252.             substring(@16data,11 ,8),
  3253.             substring(@16data,29 ,4), 
  3254.             substring(@16data,21 ,4), 
  3255.             @originator_id, 
  3256.             substring(@16data,25 ,4), 
  3257.             convert(bit,substring(@16data,33 ,1)), 
  3258.             substring(@16data,40,@cmd_data_len) )
  3259.     end
  3260.  
  3261.  
  3262.     IF @17data is null
  3263.       return
  3264.     IF datalength( @17data ) > 39
  3265.     begin
  3266.         -- Get the originator_id for the first command 
  3267.         select @cmd_data_len = substring( @17data, 34, 2 )
  3268.         select @orig_srv_len = substring( @17data, 36, 2 )
  3269.         select @orig_db_len = substring( @17data, 38, 2 )
  3270.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  3271.         begin 
  3272.             set @originator_id = null 
  3273.             select @originator_id = id from MSrepl_originators where
  3274.                 publisher_database_id = @publisher_database_id 
  3275.                 and UPPER(srvname) = upper(convert(sysname, substring( @17data, 40 + @cmd_data_len, @orig_srv_len )))
  3276.                 and dbname = substring( @17data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  3277.             if @originator_id is null
  3278.             begin
  3279.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  3280.                     (@publisher_database_id, substring( @17data, 40 + @cmd_data_len, @orig_srv_len ), substring( @17data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  3281.                 select @originator_id = @@identity
  3282.             end
  3283.         end
  3284.         else
  3285.             select @originator_id = 0
  3286.  
  3287.         -- Now insert into MSrepl_commands
  3288.  
  3289.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  3290.             substring(@17data,11 ,8),
  3291.             substring(@17data,29 ,4), 
  3292.             substring(@17data,21 ,4), 
  3293.             @originator_id, 
  3294.             substring(@17data,25 ,4), 
  3295.             convert(bit,substring(@17data,33 ,1)), 
  3296.             substring(@17data,40,@cmd_data_len) )
  3297.     end
  3298.  
  3299.  
  3300.     IF @18data is null
  3301.       return
  3302.     IF datalength( @18data ) > 39
  3303.     begin
  3304.         -- Get the originator_id for the first command 
  3305.         select @cmd_data_len = substring( @18data, 34, 2 )
  3306.         select @orig_srv_len = substring( @18data, 36, 2 )
  3307.         select @orig_db_len = substring( @18data, 38, 2 )
  3308.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  3309.         begin 
  3310.             set @originator_id = null 
  3311.             select @originator_id = id from MSrepl_originators where
  3312.                 publisher_database_id = @publisher_database_id 
  3313.                 and UPPER(srvname) = upper(convert(sysname, substring( @18data, 40 + @cmd_data_len, @orig_srv_len )))
  3314.                 and dbname = substring( @18data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  3315.             if @originator_id is null
  3316.             begin
  3317.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  3318.                     (@publisher_database_id, substring( @18data, 40 + @cmd_data_len, @orig_srv_len ), substring( @18data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  3319.                 select @originator_id = @@identity
  3320.             end
  3321.         end
  3322.         else
  3323.             select @originator_id = 0
  3324.  
  3325.         -- Now insert into MSrepl_commands
  3326.  
  3327.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  3328.             substring(@18data,11 ,8),
  3329.             substring(@18data,29 ,4), 
  3330.             substring(@18data,21 ,4), 
  3331.             @originator_id, 
  3332.             substring(@18data,25 ,4), 
  3333.             convert(bit,substring(@18data,33 ,1)), 
  3334.             substring(@18data,40,@cmd_data_len) )
  3335.     end
  3336.  
  3337.  
  3338.     IF @19data is null
  3339.       return
  3340.     IF datalength( @19data ) > 39
  3341.     begin
  3342.         -- Get the originator_id for the first command 
  3343.         select @cmd_data_len = substring( @19data, 34, 2 )
  3344.         select @orig_srv_len = substring( @19data, 36, 2 )
  3345.         select @orig_db_len = substring( @19data, 38, 2 )
  3346.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  3347.         begin 
  3348.             set @originator_id = null 
  3349.             select @originator_id = id from MSrepl_originators where
  3350.                 publisher_database_id = @publisher_database_id 
  3351.                 and UPPER(srvname) = upper(convert(sysname, substring( @19data, 40 + @cmd_data_len, @orig_srv_len )))
  3352.                 and dbname = substring( @19data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  3353.             if @originator_id is null
  3354.             begin
  3355.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  3356.                     (@publisher_database_id, substring( @19data, 40 + @cmd_data_len, @orig_srv_len ), substring( @19data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  3357.                 select @originator_id = @@identity
  3358.             end
  3359.         end
  3360.         else
  3361.             select @originator_id = 0
  3362.  
  3363.         -- Now insert into MSrepl_commands
  3364.  
  3365.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  3366.             substring(@19data,11 ,8),
  3367.             substring(@19data,29 ,4), 
  3368.             substring(@19data,21 ,4), 
  3369.             @originator_id, 
  3370.             substring(@19data,25 ,4), 
  3371.             convert(bit,substring(@19data,33 ,1)), 
  3372.             substring(@19data,40,@cmd_data_len) )
  3373.     end
  3374.  
  3375.  
  3376.     IF @20data is null
  3377.       return
  3378.     IF datalength( @20data ) > 39
  3379.     begin
  3380.         -- Get the originator_id for the first command 
  3381.         select @cmd_data_len = substring( @20data, 34, 2 )
  3382.         select @orig_srv_len = substring( @20data, 36, 2 )
  3383.         select @orig_db_len = substring( @20data, 38, 2 )
  3384.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  3385.         begin 
  3386.             set @originator_id = null 
  3387.             select @originator_id = id from MSrepl_originators where
  3388.                 publisher_database_id = @publisher_database_id 
  3389.                 and UPPER(srvname) = upper(convert(sysname, substring( @20data, 40 + @cmd_data_len, @orig_srv_len )))
  3390.                 and dbname = substring( @20data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  3391.             if @originator_id is null
  3392.             begin
  3393.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  3394.                     (@publisher_database_id, substring( @20data, 40 + @cmd_data_len, @orig_srv_len ), substring( @20data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  3395.                 select @originator_id = @@identity
  3396.             end
  3397.         end
  3398.         else
  3399.             select @originator_id = 0
  3400.  
  3401.         -- Now insert into MSrepl_commands
  3402.  
  3403.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  3404.             substring(@20data,11 ,8),
  3405.             substring(@20data,29 ,4), 
  3406.             substring(@20data,21 ,4), 
  3407.             @originator_id, 
  3408.             substring(@20data,25 ,4), 
  3409.             convert(bit,substring(@20data,33 ,1)), 
  3410.             substring(@20data,40,@cmd_data_len) )
  3411.     end
  3412.  
  3413.     IF @21data is null
  3414.       return
  3415.     IF datalength( @21data ) > 39
  3416.     begin
  3417.         -- Get the originator_id for the first command 
  3418.         select @cmd_data_len = substring( @21data, 34, 2 )
  3419.         select @orig_srv_len = substring( @21data, 36, 2 )
  3420.         select @orig_db_len = substring( @21data, 38, 2 )
  3421.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  3422.         begin 
  3423.             set @originator_id = null 
  3424.             select @originator_id = id from MSrepl_originators where
  3425.                 publisher_database_id = @publisher_database_id 
  3426.                 and UPPER(srvname) = upper(convert(sysname, substring( @21data, 40 + @cmd_data_len, @orig_srv_len )))
  3427.                 and dbname = substring( @21data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  3428.             if @originator_id is null
  3429.             begin
  3430.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  3431.                     (@publisher_database_id, substring( @21data, 40 + @cmd_data_len, @orig_srv_len ), substring( @21data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  3432.                 select @originator_id = @@identity
  3433.             end
  3434.         end
  3435.         else
  3436.             select @originator_id = 0
  3437.  
  3438.         -- Now insert into MSrepl_commands
  3439.  
  3440.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  3441.             substring(@21data,11 ,8),
  3442.             substring(@21data,29 ,4), 
  3443.             substring(@21data,21 ,4), 
  3444.             @originator_id, 
  3445.             substring(@21data,25 ,4), 
  3446.             convert(bit,substring(@21data,33 ,1)), 
  3447.             substring(@21data,40,@cmd_data_len) )
  3448.     end
  3449.  
  3450.     IF @22data is null
  3451.       return
  3452.     IF datalength( @22data ) > 39
  3453.     begin
  3454.         -- Get the originator_id for the first command 
  3455.         select @cmd_data_len = substring( @22data, 34, 2 )
  3456.         select @orig_srv_len = substring( @22data, 36, 2 )
  3457.         select @orig_db_len = substring( @22data, 38, 2 )
  3458.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  3459.         begin 
  3460.             set @originator_id = null 
  3461.             select @originator_id = id from MSrepl_originators where
  3462.                 publisher_database_id = @publisher_database_id 
  3463.                 and UPPER(srvname) = upper(convert(sysname, substring( @22data, 40 + @cmd_data_len, @orig_srv_len )))
  3464.                 and dbname = substring( @22data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  3465.             if @originator_id is null
  3466.             begin
  3467.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  3468.                     (@publisher_database_id, substring( @22data, 40 + @cmd_data_len, @orig_srv_len ), substring( @22data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  3469.                 select @originator_id = @@identity
  3470.             end
  3471.         end
  3472.         else
  3473.             select @originator_id = 0
  3474.  
  3475.         -- Now insert into MSrepl_commands
  3476.  
  3477.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  3478.             substring(@22data,11 ,8),
  3479.             substring(@22data,29 ,4), 
  3480.             substring(@22data,21 ,4), 
  3481.             @originator_id, 
  3482.             substring(@22data,25 ,4), 
  3483.             convert(bit,substring(@22data,33 ,1)), 
  3484.             substring(@22data,40,@cmd_data_len) )
  3485.     end
  3486.  
  3487.     IF @23data is null
  3488.       return
  3489.     IF datalength( @23data ) > 39
  3490.     begin
  3491.         -- Get the originator_id for the first command 
  3492.         select @cmd_data_len = substring( @23data, 34, 2 )
  3493.         select @orig_srv_len = substring( @23data, 36, 2 )
  3494.         select @orig_db_len = substring( @23data, 38, 2 )
  3495.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  3496.         begin 
  3497.             set @originator_id = null 
  3498.             select @originator_id = id from MSrepl_originators where
  3499.                 publisher_database_id = @publisher_database_id 
  3500.                 and UPPER(srvname) = upper(convert(sysname, substring( @23data, 40 + @cmd_data_len, @orig_srv_len )))
  3501.                 and dbname = substring( @23data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  3502.             if @originator_id is null
  3503.             begin
  3504.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  3505.                     (@publisher_database_id, substring( @23data, 40 + @cmd_data_len, @orig_srv_len ), substring( @23data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  3506.                 select @originator_id = @@identity
  3507.             end
  3508.         end
  3509.         else
  3510.             select @originator_id = 0
  3511.  
  3512.         -- Now insert into MSrepl_commands
  3513.  
  3514.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  3515.             substring(@23data,11 ,8),
  3516.             substring(@23data,29 ,4), 
  3517.             substring(@23data,21 ,4), 
  3518.             @originator_id, 
  3519.             substring(@23data,25 ,4), 
  3520.             convert(bit,substring(@23data,33 ,1)), 
  3521.             substring(@23data,40,@cmd_data_len) )
  3522.     end
  3523.  
  3524.     IF @24data is null
  3525.       return
  3526.     IF datalength( @24data ) > 39
  3527.     begin
  3528.         -- Get the originator_id for the first command 
  3529.         select @cmd_data_len = substring( @24data, 34, 2 )
  3530.         select @orig_srv_len = substring( @24data, 36, 2 )
  3531.         select @orig_db_len = substring( @24data, 38, 2 )
  3532.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  3533.         begin 
  3534.             set @originator_id = null 
  3535.             select @originator_id = id from MSrepl_originators where
  3536.                 publisher_database_id = @publisher_database_id 
  3537.                 and UPPER(srvname) = upper(convert(sysname, substring( @24data, 40 + @cmd_data_len, @orig_srv_len )))
  3538.                 and dbname = substring( @24data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  3539.             if @originator_id is null
  3540.             begin
  3541.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  3542.                     (@publisher_database_id, substring( @24data, 40 + @cmd_data_len, @orig_srv_len ), substring( @24data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  3543.                 select @originator_id = @@identity
  3544.             end
  3545.         end
  3546.         else
  3547.             select @originator_id = 0
  3548.  
  3549.         -- Now insert into MSrepl_commands
  3550.  
  3551.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  3552.             substring(@24data,11 ,8),
  3553.             substring(@24data,29 ,4), 
  3554.             substring(@24data,21 ,4), 
  3555.             @originator_id, 
  3556.             substring(@24data,25 ,4), 
  3557.             convert(bit,substring(@24data,33 ,1)), 
  3558.             substring(@24data,40,@cmd_data_len) )
  3559.     end
  3560.  
  3561.  
  3562.     IF @25data is null
  3563.       return
  3564.     IF datalength( @25data ) > 39
  3565.     begin
  3566.         -- Get the originator_id for the first command 
  3567.         select @cmd_data_len = substring( @25data, 34, 2 )
  3568.         select @orig_srv_len = substring( @25data, 36, 2 )
  3569.         select @orig_db_len = substring( @25data, 38, 2 )
  3570.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  3571.         begin 
  3572.             set @originator_id = null 
  3573.             select @originator_id = id from MSrepl_originators where
  3574.                 publisher_database_id = @publisher_database_id 
  3575.                 and UPPER(srvname) = upper(convert(sysname, substring( @25data, 40 + @cmd_data_len, @orig_srv_len )))
  3576.                 and dbname = substring( @25data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  3577.             if @originator_id is null
  3578.             begin
  3579.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  3580.                     (@publisher_database_id, substring( @25data, 40 + @cmd_data_len, @orig_srv_len ), substring( @25data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  3581.                 select @originator_id = @@identity
  3582.             end
  3583.         end
  3584.         else
  3585.             select @originator_id = 0
  3586.  
  3587.         -- Now insert into MSrepl_commands
  3588.  
  3589.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  3590.             substring(@25data,11 ,8),
  3591.             substring(@25data,29 ,4), 
  3592.             substring(@25data,21 ,4), 
  3593.             @originator_id, 
  3594.             substring(@25data,25 ,4), 
  3595.             convert(bit,substring(@25data,33 ,1)), 
  3596.             substring(@25data,40,@cmd_data_len) )
  3597.     end
  3598.  
  3599.  
  3600.     IF @26data is null
  3601.       return
  3602.     IF datalength( @26data ) > 39
  3603.     begin
  3604.         -- Get the originator_id for the first command 
  3605.         select @cmd_data_len = substring( @26data, 34, 2 )
  3606.         select @orig_srv_len = substring( @26data, 36, 2 )
  3607.         select @orig_db_len = substring( @26data, 38, 2 )
  3608.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  3609.         begin 
  3610.             set @originator_id = null 
  3611.             select @originator_id = id from MSrepl_originators where
  3612.                 publisher_database_id = @publisher_database_id 
  3613.                 and UPPER(srvname) = upper(convert(sysname, substring( @26data, 40 + @cmd_data_len, @orig_srv_len )))
  3614.                 and dbname = substring( @26data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  3615.             if @originator_id is null
  3616.             begin
  3617.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  3618.                     (@publisher_database_id, substring( @26data, 40 + @cmd_data_len, @orig_srv_len ), substring( @26data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  3619.                 select @originator_id = @@identity
  3620.             end
  3621.         end
  3622.         else
  3623.             select @originator_id = 0
  3624.  
  3625.         -- Now insert into MSrepl_commands
  3626.  
  3627.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  3628.             substring(@26data,11 ,8),
  3629.             substring(@26data,29 ,4), 
  3630.             substring(@26data,21 ,4), 
  3631.             @originator_id, 
  3632.             substring(@26data,25 ,4), 
  3633.             convert(bit,substring(@26data,33 ,1)), 
  3634.             substring(@26data,40,@cmd_data_len) )
  3635.     end
  3636.  
  3637.  
  3638.     IF @@ERROR <> 0
  3639.       return (1)
  3640. GO
  3641. raiserror(15339,-1,-1,'sp_MSadd_repl_commands27hp')
  3642. GO
  3643. CREATE PROCEDURE sp_MSadd_repl_commands27hp
  3644. @publisher_id smallint,
  3645. @publisher_db sysname,
  3646. @data varbinary( 1575 ),
  3647. @1data varbinary(1575) = NULL,
  3648. @2data varbinary(1575) = NULL,
  3649. @3data varbinary(1575) = NULL,
  3650. @4data varbinary(1575) = NULL,
  3651. @5data varbinary(1575) = NULL,
  3652. @6data varbinary(1575) = NULL,
  3653. @7data varbinary(1575) = NULL,
  3654. @8data varbinary(1575) = NULL,
  3655. @9data varbinary(1575) = NULL,
  3656. @10data varbinary(1575) = NULL,
  3657. @11data varbinary(1575) = NULL,
  3658. @12data varbinary(1575) = NULL,
  3659. @13data varbinary(1575) = NULL,
  3660. @14data varbinary(1575) = NULL,
  3661. @15data varbinary(1575) = NULL,
  3662. @16data varbinary(1575) = NULL,
  3663. @17data varbinary(1575) = NULL,
  3664. @18data varbinary(1575) = NULL,
  3665. @19data varbinary(1575) = NULL,
  3666. @20data varbinary(1575) = NULL,
  3667. @21data varbinary(1575) = NULL,
  3668. @22data varbinary(1575) = NULL,
  3669. @23data varbinary(1575) = NULL,
  3670. @24data varbinary(1575) = NULL,
  3671. @25data varbinary(1575) = NULL,
  3672. @26data varbinary(1575) = NULL
  3673. AS
  3674.  
  3675.     SET NOCOUNT ON
  3676.  
  3677.     DECLARE @xact_id    varbinary(10)
  3678.     DECLARE @xact_seqno varbinary(10)
  3679.     DECLARE @artid      int
  3680.     DECLARE @command_id int
  3681.     DECLARE @cmd_type   int
  3682.     DECLARE @partial_command bit
  3683.     DECLARE @command    varbinary(1024)
  3684.  
  3685.     DECLARE @originator sysname
  3686.     DECLARE @originator_db sysname
  3687.  
  3688.     DECLARE @publisher_database_id int
  3689.     DECLARE @date datetime
  3690.     declare @originator_id int
  3691.  
  3692.     DECLARE @cmd_data_len  smallint
  3693.     DECLARE @orig_srv_len smallint
  3694.     DECLARE @orig_db_len  smallint
  3695.  
  3696.     SELECT @date = GETDATE()
  3697.  
  3698.     -- Get publisher database id.
  3699.     SELECT @publisher_database_id = id from MSpublisher_databases where publisher_id = @publisher_id and 
  3700.         publisher_db = @publisher_db
  3701.  
  3702.     -- First insert into MS_repl_transactions
  3703.     IF convert( int, substring( @data, 25, 4 ) ) = 1
  3704.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3705.          substring( @data, 1, 10 ), substring( @data, 11, 10 ), @date)
  3706.  
  3707.     IF @1data is null
  3708.       goto INSERT_CMDS
  3709.     IF convert( int, substring( @1data, 25, 4 ) ) = 1
  3710.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3711.          substring( @1data, 1, 10 ), substring( @1data, 11, 10 ), @date)
  3712.  
  3713.     IF @2data is null
  3714.       goto INSERT_CMDS
  3715.     IF convert( int, substring( @2data, 25, 4 ) ) = 1
  3716.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3717.          substring( @2data, 1, 10 ), substring( @2data, 11, 10 ), @date)
  3718.     
  3719.     IF @3data is null
  3720.       goto INSERT_CMDS
  3721.     IF convert( int, substring( @3data, 25, 4 ) ) = 1
  3722.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3723.          substring( @3data, 1, 10 ), substring( @3data, 11, 10 ), @date)
  3724.  
  3725.     IF @4data is null
  3726.       goto INSERT_CMDS
  3727.     IF convert( int, substring( @4data, 25, 4 ) ) = 1
  3728.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3729.          substring( @4data, 1, 10 ), substring( @4data, 11, 10 ), @date)
  3730.  
  3731.     IF @5data is null
  3732.       goto INSERT_CMDS
  3733.     IF convert( int, substring( @5data, 25, 4 ) ) = 1
  3734.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3735.          substring( @5data, 1, 10 ), substring( @5data, 11, 10 ), @date)
  3736.  
  3737.     IF @6data is null
  3738.       goto INSERT_CMDS
  3739.     IF convert( int, substring( @6data, 25, 4 ) ) = 1
  3740.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3741.          substring( @6data, 1, 10 ), substring( @6data, 11, 10 ), @date)
  3742.  
  3743.     IF @7data is null
  3744.       goto INSERT_CMDS
  3745.     IF convert( int, substring( @7data, 25, 4 ) ) = 1
  3746.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3747.          substring( @7data, 1, 10 ), substring( @7data, 11, 10 ), @date)
  3748.  
  3749.     IF @8data is null
  3750.       goto INSERT_CMDS
  3751.     IF convert( int, substring( @8data, 25, 4 ) ) = 1
  3752.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3753.          substring( @8data, 1, 10 ), substring( @8data, 11, 10 ), @date)
  3754.  
  3755.     IF @9data is null
  3756.       goto INSERT_CMDS
  3757.     IF convert( int, substring( @9data, 25, 4 ) ) = 1
  3758.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3759.          substring( @9data, 1, 10 ), substring( @9data, 11, 10 ), @date)
  3760.  
  3761.     IF @10data is null
  3762.       goto INSERT_CMDS
  3763.     IF convert( int, substring( @10data, 25, 4 ) ) = 1
  3764.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3765.          substring( @10data, 1, 10 ), substring( @10data, 11, 10 ), @date)
  3766.  
  3767.     IF @11data is null
  3768.       goto INSERT_CMDS
  3769.     IF convert( int, substring( @11data, 25, 4 ) ) = 1
  3770.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3771.          substring( @11data, 1, 10 ), substring( @11data, 11, 10 ), @date)
  3772.  
  3773.     IF @12data is null
  3774.       goto INSERT_CMDS
  3775.     IF convert( int, substring( @12data, 25, 4 ) ) = 1
  3776.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3777.          substring( @12data, 1, 10 ), substring( @12data, 11, 10 ), @date)
  3778.  
  3779.     IF @13data is null
  3780.       goto INSERT_CMDS
  3781.     IF convert( int, substring( @13data, 25, 4 ) ) = 1
  3782.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3783.          substring( @13data, 1, 10 ), substring( @13data, 11, 10 ), @date)
  3784.  
  3785.     IF @14data is null
  3786.       goto INSERT_CMDS
  3787.     IF convert( int, substring( @14data, 25, 4 ) ) = 1
  3788.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3789.          substring( @14data, 1, 10 ), substring( @14data, 11, 10 ), @date)
  3790.  
  3791.     IF @15data is null
  3792.       goto INSERT_CMDS
  3793.     IF convert( int, substring( @15data, 25, 4 ) ) = 1
  3794.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3795.          substring( @15data, 1, 10 ), substring( @15data, 11, 10 ), @date)
  3796.  
  3797.     IF @16data is null
  3798.       goto INSERT_CMDS
  3799.     IF convert( int, substring( @16data, 25, 4 ) ) = 1
  3800.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3801.          substring( @16data, 1, 10 ), substring( @16data, 11, 10 ), @date)
  3802.  
  3803.     IF @17data is null
  3804.       goto INSERT_CMDS
  3805.     IF convert( int, substring( @17data, 25, 4 ) ) = 1
  3806.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3807.          substring( @17data, 1, 10 ), substring( @17data, 11, 10 ), @date)
  3808.  
  3809.     IF @18data is null
  3810.       goto INSERT_CMDS
  3811.     IF convert( int, substring( @18data, 25, 4 ) ) = 1
  3812.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3813.          substring( @18data, 1, 10 ), substring( @18data, 11, 10 ), @date)
  3814.  
  3815.     IF @19data is null
  3816.       goto INSERT_CMDS
  3817.     IF convert( int, substring( @19data, 25, 4 ) ) = 1
  3818.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3819.          substring( @19data, 1, 10 ), substring( @19data, 11, 10 ), @date)
  3820.  
  3821.     IF @20data is null
  3822.       goto INSERT_CMDS
  3823.     IF convert( int, substring( @20data, 25, 4 ) ) = 1
  3824.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3825.          substring( @20data, 1, 10 ), substring( @20data, 11, 10 ), @date)
  3826.  
  3827.     IF @21data is null
  3828.       goto INSERT_CMDS
  3829.     IF convert( int, substring( @21data, 25, 4 ) ) = 1
  3830.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3831.          substring( @21data, 1, 10 ), substring( @21data, 11, 10 ), @date)
  3832.  
  3833.     IF @22data is null
  3834.       goto INSERT_CMDS
  3835.     IF convert( int, substring( @22data, 25, 4 ) ) = 1
  3836.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3837.          substring( @22data, 1, 10 ), substring( @22data, 11, 10 ), @date)
  3838.  
  3839.     IF @23data is null
  3840.       goto INSERT_CMDS
  3841.     IF convert( int, substring( @23data, 25, 4 ) ) = 1
  3842.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3843.          substring( @23data, 1, 10 ), substring( @23data, 11, 10 ), @date)
  3844.  
  3845.     IF @24data is null
  3846.       goto INSERT_CMDS
  3847.     IF convert( int, substring( @24data, 25, 4 ) ) = 1
  3848.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3849.          substring( @24data, 1, 10 ), substring( @24data, 11, 10 ), @date)
  3850.  
  3851.     IF @25data is null
  3852.       goto INSERT_CMDS
  3853.     IF convert( int, substring( @25data, 25, 4 ) ) = 1
  3854.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3855.          substring( @25data, 1, 10 ), substring( @25data, 11, 10 ), @date)
  3856.  
  3857.     IF @26data is null
  3858.       goto INSERT_CMDS
  3859.     IF convert( int, substring( @26data, 25, 4 ) ) = 1
  3860.       INSERT INTO MSrepl_transactions VALUES (@publisher_database_id,
  3861.          substring( @26data, 1, 10 ), substring( @26data, 11, 10 ), @date)
  3862.  
  3863. INSERT_CMDS:
  3864.  
  3865.     if datalength( @data ) > 39
  3866.     begin
  3867.         -- Get the originator_id for the first command 
  3868.         select @cmd_data_len = substring( @data, 34, 2 )
  3869.         select @orig_srv_len = substring( @data, 36, 2 )
  3870.         select @orig_db_len = substring( @data, 38, 2 )
  3871.  
  3872.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  3873.         begin 
  3874.             set @originator_id = null 
  3875.             select @originator_id = id from MSrepl_originators where
  3876.                 publisher_database_id = @publisher_database_id 
  3877.                 and UPPER(srvname) = upper(convert(sysname, substring( @data, 40 + @cmd_data_len, @orig_srv_len )))
  3878.                 and dbname = substring( @data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  3879.             if @originator_id is null
  3880.             begin
  3881.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  3882.                     (@publisher_database_id, substring( @data, 40 + @cmd_data_len, @orig_srv_len ), substring( @data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  3883.                 select @originator_id = @@identity
  3884.             end
  3885.         end
  3886.         else
  3887.             select @originator_id = 0
  3888.  
  3889.         select @cmd_type = substring(@data,29,4) 
  3890.         if( @cmd_type in( 37,38 ) )
  3891.         begin
  3892.             select @artid = substring(@data,21,4)
  3893.             select @cmd_type = 38 - @cmd_type
  3894.             select @xact_seqno = substring( @data, 11, 10 )
  3895.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno 
  3896.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  3897.         end
  3898.  
  3899.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  3900.             substring(@data,11,10),
  3901.             @cmd_type, 
  3902.             substring(@data,21,4), 
  3903.             @originator_id, 
  3904.             substring(@data,25,4), 
  3905.             convert(bit,substring(@data,33,1)), 
  3906.             substring(@data,40,@cmd_data_len) )
  3907.  
  3908.     end
  3909.     
  3910.     IF @1data is null
  3911.       return
  3912.     IF datalength( @1data ) > 39
  3913.     begin
  3914.         -- Get the originator_id for the first command 
  3915.         select @cmd_data_len = substring( @1data, 34, 2 )
  3916.         select @orig_srv_len = substring( @1data, 36, 2 )
  3917.         select @orig_db_len = substring( @1data, 38, 2 )
  3918.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  3919.         begin 
  3920.             set @originator_id = null 
  3921.             select @originator_id = id from MSrepl_originators where
  3922.                 publisher_database_id = @publisher_database_id 
  3923.                 and UPPER(srvname) = upper(convert(sysname, substring( @1data, 40 + @cmd_data_len, @orig_srv_len )))
  3924.                 and dbname = substring( @1data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  3925.             if @originator_id is null
  3926.             begin
  3927.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  3928.                     (@publisher_database_id, substring( @1data, 40 + @cmd_data_len, @orig_srv_len ), substring( @1data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  3929.                 select @originator_id = @@identity
  3930.             end
  3931.         end
  3932.         else
  3933.             select @originator_id = 0
  3934.  
  3935.         -- Now insert into MSrepl_commands
  3936.         select @cmd_type = substring(@1data,29,4)
  3937.         if( @cmd_type in( 37,38 ) )
  3938.         begin
  3939.             select @artid = substring(@1data,21,4)
  3940.             select @cmd_type = 38 - @cmd_type
  3941.             select @xact_seqno = substring( @1data, 11, 10 )
  3942.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  3943.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  3944.         end
  3945.  
  3946.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  3947.             substring(@1data,11,10),
  3948.             @cmd_type, 
  3949.             substring(@1data,21,4), 
  3950.             @originator_id, 
  3951.             substring(@1data,25,4), 
  3952.             convert(bit,substring(@1data,33,1)), 
  3953.             substring(@1data,40,@cmd_data_len) )
  3954.     end
  3955.  
  3956.     IF @2data is null
  3957.       return
  3958.     IF datalength( @2data ) > 39
  3959.     begin
  3960.         -- Get the originator_id for the first command 
  3961.         select @cmd_data_len = substring( @2data, 34, 2 )
  3962.         select @orig_srv_len = substring( @2data, 36, 2 )
  3963.         select @orig_db_len = substring( @2data, 38, 2 )
  3964.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  3965.         begin 
  3966.             set @originator_id = null 
  3967.             select @originator_id = id from MSrepl_originators where
  3968.                 publisher_database_id = @publisher_database_id 
  3969.                 and UPPER(srvname) = upper(convert(sysname, substring( @2data, 40 + @cmd_data_len, @orig_srv_len )))
  3970.                 and dbname = substring( @2data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  3971.             if @originator_id is null
  3972.             begin
  3973.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  3974.                     (@publisher_database_id, substring( @2data, 40 + @cmd_data_len, @orig_srv_len ), substring( @2data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  3975.                 select @originator_id = @@identity
  3976.             end
  3977.         end
  3978.         else
  3979.             select @originator_id = 0
  3980.  
  3981.         -- Now insert into MSrepl_commands
  3982.         select @cmd_type = substring(@2data,29,4)
  3983.         if( @cmd_type in( 37,38 ) )
  3984.         begin
  3985.             select @artid = substring(@2data,21,4)
  3986.             select @cmd_type = 38 - @cmd_type
  3987.             select @xact_seqno = substring( @2data, 11, 10 )
  3988.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  3989.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  3990.         end
  3991.  
  3992.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  3993.             substring(@2data,11 ,10),
  3994.             @cmd_type, 
  3995.             substring(@2data,21 ,4), 
  3996.             @originator_id, 
  3997.             substring(@2data,25 ,4), 
  3998.             convert(bit,substring(@2data,33 ,1)), 
  3999.             substring(@2data,40,@cmd_data_len) )
  4000.  
  4001.     end
  4002.  
  4003.     IF @3data is null
  4004.       return
  4005.     IF datalength( @3data ) > 39
  4006.     begin
  4007.         -- Get the originator_id for the first command 
  4008.         select @cmd_data_len = substring( @3data, 34, 2 )
  4009.         select @orig_srv_len = substring( @3data, 36, 2 )
  4010.         select @orig_db_len = substring( @3data, 38, 2 )
  4011.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4012.         begin 
  4013.             set @originator_id = null 
  4014.             select @originator_id = id from MSrepl_originators where
  4015.                 publisher_database_id = @publisher_database_id 
  4016.                 and UPPER(srvname) = upper(convert(sysname, substring( @3data, 40 + @cmd_data_len, @orig_srv_len )))
  4017.                 and dbname = substring( @3data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4018.             if @originator_id is null
  4019.             begin
  4020.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4021.                     (@publisher_database_id, substring( @3data, 40 + @cmd_data_len, @orig_srv_len ), substring( @3data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  4022.                 select @originator_id = @@identity
  4023.             end
  4024.         end
  4025.         else
  4026.             select @originator_id = 0
  4027.  
  4028.         -- Now insert into MSrepl_commands
  4029.         select @cmd_type = substring(@3data,29,4)
  4030.         if( @cmd_type in( 37,38 ) )
  4031.         begin
  4032.             select @artid = substring(@3data,21,4)
  4033.             select @cmd_type = 38 - @cmd_type
  4034.             select @xact_seqno = substring( @3data, 11, 10 )
  4035.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  4036.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  4037.         end
  4038.  
  4039.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  4040.             substring(@3data,11 ,10),
  4041.             @cmd_type, 
  4042.             substring(@3data,21 ,4), 
  4043.             @originator_id, 
  4044.             substring(@3data,25 ,4), 
  4045.             convert(bit,substring(@3data,33 ,1)), 
  4046.             substring(@3data,40,@cmd_data_len) )
  4047.  
  4048.     end
  4049.  
  4050.     IF @4data is null
  4051.       return
  4052.     IF datalength( @4data ) > 39
  4053.     begin
  4054.         -- Get the originator_id for the first command 
  4055.         select @cmd_data_len = substring( @4data, 34, 2 )
  4056.         select @orig_srv_len = substring( @4data, 36, 2 )
  4057.         select @orig_db_len = substring( @4data, 38, 2 )
  4058.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4059.         begin 
  4060.             set @originator_id = null 
  4061.             select @originator_id = id from MSrepl_originators where
  4062.                 publisher_database_id = @publisher_database_id 
  4063.                 and UPPER(srvname) = upper(convert(sysname, substring( @4data, 40 + @cmd_data_len, @orig_srv_len )))
  4064.                 and dbname = substring( @4data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4065.             if @originator_id is null
  4066.             begin
  4067.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4068.                     (@publisher_database_id, substring( @4data, 40 + @cmd_data_len, @orig_srv_len ), substring( @4data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  4069.                 select @originator_id = @@identity
  4070.             end
  4071.         end
  4072.         else
  4073.             select @originator_id = 0
  4074.  
  4075.         -- Now insert into MSrepl_commands
  4076.         select @cmd_type = substring(@4data,29,4)
  4077.         if( @cmd_type in( 37,38 ) )
  4078.         begin
  4079.             select @artid = substring(@4data,21,4)
  4080.             select @cmd_type = 38 - @cmd_type
  4081.             select @xact_seqno = substring( @4data, 11, 10 )
  4082.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  4083.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  4084.         end
  4085.  
  4086.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  4087.             substring(@4data,11 ,10),
  4088.             @cmd_type, 
  4089.             substring(@4data,21 ,4), 
  4090.             @originator_id, 
  4091.             substring(@4data,25 ,4), 
  4092.             convert(bit,substring(@4data,33 ,1)), 
  4093.             substring(@4data,40,@cmd_data_len) )
  4094.  
  4095.     end
  4096.  
  4097.     IF @5data is null
  4098.       return
  4099.     IF datalength( @5data ) > 39
  4100.     begin
  4101.         -- Get the originator_id for the first command 
  4102.         select @cmd_data_len = substring( @5data, 34, 2 )
  4103.         select @orig_srv_len = substring( @5data, 36, 2 )
  4104.         select @orig_db_len = substring( @5data, 38, 2 )
  4105.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4106.         begin 
  4107.             set @originator_id = null 
  4108.             select @originator_id = id from MSrepl_originators where
  4109.                 publisher_database_id = @publisher_database_id 
  4110.                 and UPPER(srvname) = upper(convert(sysname, substring( @5data, 40 + @cmd_data_len, @orig_srv_len )))
  4111.                 and dbname = substring( @5data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4112.             if @originator_id is null
  4113.             begin
  4114.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4115.                     (@publisher_database_id, substring( @5data, 40 + @cmd_data_len, @orig_srv_len ), substring( @5data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  4116.                 select @originator_id = @@identity
  4117.             end
  4118.         end
  4119.         else
  4120.             select @originator_id = 0
  4121.  
  4122.         -- Now insert into MSrepl_commands
  4123.         select @cmd_type = substring(@5data,29,4)
  4124.         if( @cmd_type in( 37,38 ) )
  4125.         begin
  4126.             select @artid = substring(@5data,21,4)
  4127.             select @cmd_type = 38 - @cmd_type
  4128.             select @xact_seqno = substring( @5data, 11, 10 )
  4129.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  4130.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  4131.         end
  4132.  
  4133.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  4134.             substring(@5data,11 ,10),
  4135.             @cmd_type, 
  4136.             substring(@5data,21 ,4), 
  4137.             @originator_id, 
  4138.             substring(@5data,25 ,4), 
  4139.             convert(bit,substring(@5data,33 ,1)), 
  4140.             substring(@5data,40,@cmd_data_len) )
  4141.  
  4142.     end
  4143.  
  4144.     IF @6data is null
  4145.       return
  4146.     IF datalength( @6data ) > 39
  4147.     begin
  4148.         -- Get the originator_id for the first command 
  4149.         select @cmd_data_len = substring( @6data, 34, 2 )
  4150.         select @orig_srv_len = substring( @6data, 36, 2 )
  4151.         select @orig_db_len = substring( @6data, 38, 2 )
  4152.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4153.         begin 
  4154.             set @originator_id = null 
  4155.             select @originator_id = id from MSrepl_originators where
  4156.                 publisher_database_id = @publisher_database_id 
  4157.                 and UPPER(srvname) = upper(convert(sysname, substring( @6data, 40 + @cmd_data_len, @orig_srv_len )))
  4158.                 and dbname = substring( @6data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4159.             if @originator_id is null
  4160.             begin
  4161.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4162.                     (@publisher_database_id, substring( @6data, 40 + @cmd_data_len, @orig_srv_len ), substring( @6data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  4163.                 select @originator_id = @@identity
  4164.             end
  4165.         end
  4166.         else
  4167.             select @originator_id = 0
  4168.  
  4169.         -- Now insert into MSrepl_commands
  4170.         select @cmd_type = substring(@6data,29,4)
  4171.         if( @cmd_type in( 37,38 ) )
  4172.         begin
  4173.             select @artid = substring(@6data,21,4)
  4174.             select @cmd_type = 38 - @cmd_type
  4175.             select @xact_seqno = substring( @6data, 11, 10 )
  4176.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  4177.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  4178.         end
  4179.  
  4180.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  4181.             substring(@6data,11 ,10),
  4182.             @cmd_type, 
  4183.             substring(@6data,21 ,4), 
  4184.             @originator_id, 
  4185.             substring(@6data,25 ,4), 
  4186.             convert(bit,substring(@6data,33 ,1)), 
  4187.             substring(@6data,40,@cmd_data_len) )
  4188.  
  4189.     end
  4190.  
  4191.     IF @7data is null
  4192.       return
  4193.     IF datalength( @7data ) > 39
  4194.     begin
  4195.         -- Get the originator_id for the first command 
  4196.         select @cmd_data_len = substring( @7data, 34, 2 )
  4197.         select @orig_srv_len = substring( @7data, 36, 2 )
  4198.         select @orig_db_len = substring( @7data, 38, 2 )
  4199.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4200.         begin 
  4201.             set @originator_id = null 
  4202.             select @originator_id = id from MSrepl_originators where
  4203.                 publisher_database_id = @publisher_database_id 
  4204.                 and UPPER(srvname) = upper(convert(sysname, substring( @7data, 40 + @cmd_data_len, @orig_srv_len )))
  4205.                 and dbname = substring( @7data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4206.             if @originator_id is null
  4207.             begin
  4208.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4209.                     (@publisher_database_id, substring( @7data, 40 + @cmd_data_len, @orig_srv_len ), substring( @7data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  4210.                 select @originator_id = @@identity
  4211.             end
  4212.         end
  4213.         else
  4214.             select @originator_id = 0
  4215.  
  4216.         -- Now insert into MSrepl_commands
  4217.         select @cmd_type = substring(@7data,29,4)
  4218.         if( @cmd_type in( 37,38 ) )
  4219.         begin
  4220.             select @artid = substring(@7data,21,4)
  4221.             select @cmd_type = 38 - @cmd_type
  4222.             select @xact_seqno = substring( @7data, 11, 10 )
  4223.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  4224.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  4225.         end
  4226.  
  4227.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  4228.             substring(@7data,11 ,10),
  4229.             @cmd_type, 
  4230.             substring(@7data,21 ,4), 
  4231.             @originator_id, 
  4232.             substring(@7data,25 ,4), 
  4233.             convert(bit,substring(@7data,33 ,1)), 
  4234.             substring(@7data,40,@cmd_data_len) )
  4235.  
  4236.     end
  4237.  
  4238.     IF @8data is null
  4239.       return
  4240.     IF datalength( @8data ) > 39
  4241.     begin
  4242.         -- Get the originator_id for the first command 
  4243.         select @cmd_data_len = substring( @8data, 34, 2 )
  4244.         select @orig_srv_len = substring( @8data, 36, 2 )
  4245.         select @orig_db_len = substring( @8data, 38, 2 )
  4246.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4247.         begin 
  4248.             set @originator_id = null 
  4249.             select @originator_id = id from MSrepl_originators where
  4250.                 publisher_database_id = @publisher_database_id 
  4251.                 and UPPER(srvname) = upper(convert(sysname, substring( @8data, 40 + @cmd_data_len, @orig_srv_len )))
  4252.                 and dbname = substring( @8data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4253.             if @originator_id is null
  4254.             begin
  4255.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4256.                     (@publisher_database_id, substring( @8data, 40 + @cmd_data_len, @orig_srv_len ), substring( @8data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  4257.                 select @originator_id = @@identity
  4258.             end
  4259.         end
  4260.         else
  4261.             select @originator_id = 0
  4262.  
  4263.         -- Now insert into MSrepl_commands
  4264.         select @cmd_type = substring(@8data,29,4)
  4265.         if( @cmd_type in( 37,38 ) )
  4266.         begin
  4267.             select @artid = substring(@8data,21,4)
  4268.             select @cmd_type = 38 - @cmd_type
  4269.             select @xact_seqno = substring( @8data, 11, 10 )
  4270.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  4271.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  4272.         end
  4273.  
  4274.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  4275.             substring(@8data,11 ,10),
  4276.             @cmd_type, 
  4277.             substring(@8data,21 ,4), 
  4278.             @originator_id, 
  4279.             substring(@8data,25 ,4), 
  4280.             convert(bit,substring(@8data,33 ,1)), 
  4281.             substring(@8data,40,@cmd_data_len) )
  4282.     end
  4283.  
  4284.     IF @9data is null
  4285.       return
  4286.     IF datalength( @9data ) > 39
  4287.     begin
  4288.         -- Get the originator_id for the first command 
  4289.         select @cmd_data_len = substring( @9data, 34, 2 )
  4290.         select @orig_srv_len = substring( @9data, 36, 2 )
  4291.         select @orig_db_len = substring( @9data, 38, 2 )
  4292.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4293.         begin 
  4294.             set @originator_id = null 
  4295.             select @originator_id = id from MSrepl_originators where
  4296.                 publisher_database_id = @publisher_database_id 
  4297.                 and upper(srvname) = upper(convert(sysname, substring( @9data, 40 + @cmd_data_len, @orig_srv_len )))
  4298.                 and dbname = substring( @9data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4299.             if @originator_id is null
  4300.             begin
  4301.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4302.                     (@publisher_database_id, substring( @9data, 40 + @cmd_data_len, @orig_srv_len ), substring( @9data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  4303.                 select @originator_id = @@identity
  4304.             end
  4305.         end
  4306.         else
  4307.             select @originator_id = 0
  4308.  
  4309.         -- Now insert into MSrepl_commands
  4310.         select @cmd_type = substring(@9data,29,4)
  4311.         if( @cmd_type in( 37,38 ) )
  4312.         begin
  4313.             select @artid = substring(@9data,21,4)
  4314.             select @cmd_type = 38 - @cmd_type
  4315.             select @xact_seqno = substring( @9data, 11, 10 )
  4316.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  4317.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  4318.         end
  4319.  
  4320.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  4321.             substring(@9data,11 ,10),
  4322.             @cmd_type, 
  4323.             substring(@9data,21 ,4), 
  4324.             @originator_id, 
  4325.             substring(@9data,25 ,4), 
  4326.             convert(bit,substring(@9data,33 ,1)), 
  4327.             substring(@9data,40,@cmd_data_len) )
  4328.     end
  4329.  
  4330.     IF @10data is null
  4331.       return
  4332.     IF datalength( @10data ) > 39
  4333.     begin
  4334.         -- Get the originator_id for the first command 
  4335.         select @cmd_data_len = substring( @10data, 34, 2 )
  4336.         select @orig_srv_len = substring( @10data, 36, 2 )
  4337.         select @orig_db_len = substring( @10data, 38, 2 )
  4338.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4339.         begin 
  4340.             set @originator_id = null 
  4341.             select @originator_id = id from MSrepl_originators where
  4342.                 publisher_database_id = @publisher_database_id 
  4343.                 and UPPER(srvname) = upper(convert(sysname, substring( @10data, 40 + @cmd_data_len, @orig_srv_len )))
  4344.                 and dbname = substring( @10data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4345.             if @originator_id is null
  4346.             begin
  4347.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4348.                     (@publisher_database_id, substring( @10data, 40 + @cmd_data_len, @orig_srv_len ), substring( @10data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  4349.                 select @originator_id = @@identity
  4350.             end
  4351.         end
  4352.         else
  4353.             select @originator_id = 0
  4354.  
  4355.         -- Now insert into MSrepl_commands
  4356.         select @cmd_type = substring(@10data,29,4)
  4357.         if( @cmd_type in( 37,38 ) )
  4358.         begin
  4359.             select @artid = substring(@10data,21,4)
  4360.             select @cmd_type = 38 - @cmd_type
  4361.             select @xact_seqno = substring( @10data, 11, 10 )
  4362.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  4363.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  4364.         end
  4365.  
  4366.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  4367.             substring(@10data,11 ,10),
  4368.             @cmd_type, 
  4369.             substring(@10data,21 ,4), 
  4370.             @originator_id, 
  4371.             substring(@10data,25 ,4), 
  4372.             convert(bit,substring(@10data,33 ,1)), 
  4373.             substring(@10data,40,@cmd_data_len) )
  4374.  
  4375.     end
  4376.  
  4377.     IF @11data is null
  4378.       return
  4379.     IF datalength( @11data ) > 39
  4380.     begin
  4381.         -- Get the originator_id for the first command 
  4382.         select @cmd_data_len = substring( @11data, 34, 2 )
  4383.         select @orig_srv_len = substring( @11data, 36, 2 )
  4384.         select @orig_db_len = substring( @11data, 38, 2 )
  4385.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4386.         begin 
  4387.             set @originator_id = null 
  4388.             select @originator_id = id from MSrepl_originators where
  4389.                 publisher_database_id = @publisher_database_id 
  4390.                 and UPPER(srvname) = upper(convert(sysname, substring( @11data, 40 + @cmd_data_len, @orig_srv_len )))
  4391.                 and dbname = substring( @11data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4392.             if @originator_id is null
  4393.             begin
  4394.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4395.                     (@publisher_database_id, substring( @11data, 40 + @cmd_data_len, @orig_srv_len ), substring( @11data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  4396.                 select @originator_id = @@identity
  4397.             end
  4398.         end
  4399.         else
  4400.             select @originator_id = 0
  4401.  
  4402.         -- Now insert into MSrepl_commands
  4403.         select @cmd_type = substring(@11data,29,4)
  4404.         if( @cmd_type in( 37,38 ) )
  4405.         begin
  4406.             select @artid = substring(@11data,21,4)
  4407.             select @cmd_type = 38 - @cmd_type
  4408.             select @xact_seqno = substring( @11data, 11, 10 )
  4409.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  4410.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  4411.         end
  4412.  
  4413.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  4414.             substring(@11data,11 ,10),
  4415.             @cmd_type, 
  4416.             substring(@11data,21 ,4), 
  4417.             @originator_id, 
  4418.             substring(@11data,25 ,4), 
  4419.             convert(bit,substring(@11data,33 ,1)), 
  4420.             substring(@11data,40,@cmd_data_len) )
  4421.     end
  4422.  
  4423.     IF @12data is null
  4424.       return
  4425.     IF datalength( @12data ) > 39
  4426.     begin
  4427.         -- Get the originator_id for the first command 
  4428.         select @cmd_data_len = substring( @12data, 34, 2 )
  4429.         select @orig_srv_len = substring( @12data, 36, 2 )
  4430.         select @orig_db_len = substring( @12data, 38, 2 )
  4431.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4432.         begin 
  4433.             set @originator_id = null 
  4434.             select @originator_id = id from MSrepl_originators where
  4435.                 publisher_database_id = @publisher_database_id 
  4436.                 and UPPER(srvname) = upper(convert(sysname, substring( @12data, 40 + @cmd_data_len, @orig_srv_len )))
  4437.                 and dbname = substring( @12data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4438.             if @originator_id is null
  4439.             begin
  4440.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4441.                     (@publisher_database_id, substring( @12data, 40 + @cmd_data_len, @orig_srv_len ), substring( @12data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  4442.                 select @originator_id = @@identity
  4443.             end
  4444.         end
  4445.         else
  4446.             select @originator_id = 0
  4447.  
  4448.         -- Now insert into MSrepl_commands
  4449.         select @cmd_type = substring(@12data,29,4)
  4450.         if( @cmd_type in( 37,38 ) )
  4451.         begin
  4452.             select @artid = substring(@12data,21,4)
  4453.             select @cmd_type = 38 - @cmd_type
  4454.             select @xact_seqno = substring( @12data, 11, 10 )
  4455.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  4456.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  4457.         end
  4458.  
  4459.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  4460.             substring(@12data,11 ,10),
  4461.             @cmd_type, 
  4462.             substring(@12data,21 ,4), 
  4463.             @originator_id, 
  4464.             substring(@12data,25 ,4), 
  4465.             convert(bit,substring(@12data,33 ,1)), 
  4466.             substring(@12data,40,@cmd_data_len) )
  4467.     end
  4468.  
  4469.  
  4470.     IF @13data is null
  4471.       return
  4472.     IF datalength( @13data ) > 39
  4473.     begin
  4474.         -- Get the originator_id for the first command 
  4475.         select @cmd_data_len = substring( @13data, 34, 2 )
  4476.         select @orig_srv_len = substring( @13data, 36, 2 )
  4477.         select @orig_db_len = substring( @13data, 38, 2 )
  4478.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4479.         begin 
  4480.             set @originator_id = null 
  4481.             select @originator_id = id from MSrepl_originators where
  4482.                 publisher_database_id = @publisher_database_id 
  4483.                 and UPPER(srvname) = upper(convert(sysname, substring( @13data, 40 + @cmd_data_len, @orig_srv_len )))
  4484.                 and dbname = substring( @13data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4485.             if @originator_id is null
  4486.             begin
  4487.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4488.                     (@publisher_database_id, substring( @13data, 40 + @cmd_data_len, @orig_srv_len ), substring( @13data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  4489.                 select @originator_id = @@identity
  4490.             end
  4491.         end
  4492.         else
  4493.             select @originator_id = 0
  4494.  
  4495.         -- Now insert into MSrepl_commands
  4496.         select @cmd_type = substring(@13data,29,4)
  4497.         if( @cmd_type in( 37,38 ) )
  4498.         begin
  4499.             select @artid = substring(@13data,21,4)
  4500.             select @cmd_type = 38 - @cmd_type
  4501.             select @xact_seqno = substring( @13data, 11, 10 )
  4502.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  4503.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  4504.         end
  4505.  
  4506.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  4507.             substring(@13data,11 ,10),
  4508.             @cmd_type, 
  4509.             substring(@13data,21 ,4), 
  4510.             @originator_id, 
  4511.             substring(@13data,25 ,4), 
  4512.             convert(bit,substring(@13data,33 ,1)), 
  4513.             substring(@13data,40,@cmd_data_len) )
  4514.     end
  4515.  
  4516.     IF @14data is null
  4517.       return
  4518.     IF datalength( @14data ) > 39
  4519.     begin
  4520.         -- Get the originator_id for the first command 
  4521.         select @cmd_data_len = substring( @14data, 34, 2 )
  4522.         select @orig_srv_len = substring( @14data, 36, 2 )
  4523.         select @orig_db_len = substring( @14data, 38, 2 )
  4524.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4525.         begin 
  4526.             set @originator_id = null 
  4527.             select @originator_id = id from MSrepl_originators where
  4528.                 publisher_database_id = @publisher_database_id 
  4529.                 and UPPER(srvname) = upper(convert(sysname, substring( @14data, 40 + @cmd_data_len, @orig_srv_len )))
  4530.                 and dbname = substring( @14data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4531.             if @originator_id is null
  4532.             begin
  4533.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4534.                     (@publisher_database_id, substring( @14data, 40 + @cmd_data_len, @orig_srv_len ), substring( @14data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  4535.                 select @originator_id = @@identity
  4536.             end
  4537.         end
  4538.         else
  4539.             select @originator_id = 0
  4540.  
  4541.         -- Now insert into MSrepl_commands
  4542.         select @cmd_type = substring(@14data,29,4)
  4543.         if( @cmd_type in( 37,38 ) )
  4544.         begin
  4545.             select @artid = substring(@14data,21,4)
  4546.             select @cmd_type = 38 - @cmd_type
  4547.             select @xact_seqno = substring( @14data, 11, 10 )
  4548.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  4549.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  4550.         end
  4551.  
  4552.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  4553.             substring(@14data,11 ,10),
  4554.             @cmd_type, 
  4555.             substring(@14data,21 ,4), 
  4556.             @originator_id, 
  4557.             substring(@14data,25 ,4), 
  4558.             convert(bit,substring(@14data,33 ,1)), 
  4559.             substring(@14data,40,@cmd_data_len) )
  4560.     end
  4561.  
  4562.  
  4563.     IF @15data is null
  4564.       return
  4565.     IF datalength( @15data ) > 39
  4566.     begin
  4567.         -- Get the originator_id for the first command 
  4568.         select @cmd_data_len = substring( @15data, 34, 2 )
  4569.         select @orig_srv_len = substring( @15data, 36, 2 )
  4570.         select @orig_db_len = substring( @15data, 38, 2 )
  4571.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4572.         begin 
  4573.             set @originator_id = null 
  4574.             select @originator_id = id from MSrepl_originators where
  4575.                 publisher_database_id = @publisher_database_id 
  4576.                 and UPPER(srvname) = upper(convert(sysname, substring( @15data, 40 + @cmd_data_len, @orig_srv_len )))
  4577.                 and dbname = substring( @15data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4578.             if @originator_id is null
  4579.             begin
  4580.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4581.                     (@publisher_database_id, substring( @15data, 40 + @cmd_data_len, @orig_srv_len ), substring( @15data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  4582.                 select @originator_id = @@identity
  4583.             end
  4584.         end
  4585.         else
  4586.             select @originator_id = 0
  4587.  
  4588.         -- Now insert into MSrepl_commands
  4589.         select @cmd_type = substring(@15data,29,4)
  4590.         if( @cmd_type in( 37,38 ) )
  4591.         begin
  4592.             select @artid = substring(@15data,21,4)
  4593.             select @cmd_type = 38 - @cmd_type
  4594.             select @xact_seqno = substring( @15data, 11, 10 )
  4595.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  4596.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  4597.         end
  4598.  
  4599.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  4600.             substring(@15data,11 ,10),
  4601.             @cmd_type, 
  4602.             substring(@15data,21 ,4), 
  4603.             @originator_id, 
  4604.             substring(@15data,25 ,4), 
  4605.             convert(bit,substring(@15data,33 ,1)), 
  4606.             substring(@15data,40,@cmd_data_len) )
  4607.     end
  4608.  
  4609.     IF @16data is null
  4610.       return
  4611.     IF datalength( @16data ) > 39
  4612.     begin
  4613.         -- Get the originator_id for the first command 
  4614.         select @cmd_data_len = substring( @16data, 34, 2 )
  4615.         select @orig_srv_len = substring( @16data, 36, 2 )
  4616.         select @orig_db_len = substring( @16data, 38, 2 )
  4617.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4618.         begin 
  4619.             set @originator_id = null 
  4620.             select @originator_id = id from MSrepl_originators where
  4621.                 publisher_database_id = @publisher_database_id 
  4622.                 and UPPER(srvname) = upper(convert(sysname, substring( @16data, 40 + @cmd_data_len, @orig_srv_len )))
  4623.                 and dbname = substring( @16data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4624.             if @originator_id is null
  4625.             begin
  4626.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4627.                     (@publisher_database_id, substring( @16data, 40 + @cmd_data_len, @orig_srv_len ), substring( @16data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  4628.                 select @originator_id = @@identity
  4629.             end
  4630.         end
  4631.         else
  4632.             select @originator_id = 0
  4633.  
  4634.         -- Now insert into MSrepl_commands
  4635.         select @cmd_type = substring(@16data,29,4)
  4636.         if( @cmd_type in( 37,38 ) )
  4637.         begin
  4638.             select @artid = substring(@16data,21,4)
  4639.             select @cmd_type = 38 - @cmd_type
  4640.             select @xact_seqno = substring( @16data, 11, 10 )
  4641.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  4642.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  4643.         end
  4644.  
  4645.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  4646.             substring(@16data,11 ,10),
  4647.             @cmd_type, 
  4648.             substring(@16data,21 ,4), 
  4649.             @originator_id, 
  4650.             substring(@16data,25 ,4), 
  4651.             convert(bit,substring(@16data,33 ,1)), 
  4652.             substring(@16data,40,@cmd_data_len) )
  4653.     end
  4654.  
  4655.  
  4656.     IF @17data is null
  4657.       return
  4658.     IF datalength( @17data ) > 39
  4659.     begin
  4660.         -- Get the originator_id for the first command 
  4661.         select @cmd_data_len = substring( @17data, 34, 2 )
  4662.         select @orig_srv_len = substring( @17data, 36, 2 )
  4663.         select @orig_db_len = substring( @17data, 38, 2 )
  4664.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4665.         begin 
  4666.             set @originator_id = null 
  4667.             select @originator_id = id from MSrepl_originators where
  4668.                 publisher_database_id = @publisher_database_id 
  4669.                 and UPPER(srvname) = upper(convert(sysname, substring( @17data, 40 + @cmd_data_len, @orig_srv_len )))
  4670.                 and dbname = substring( @17data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4671.             if @originator_id is null
  4672.             begin
  4673.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4674.                     (@publisher_database_id, substring( @17data, 40 + @cmd_data_len, @orig_srv_len ), substring( @17data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  4675.                 select @originator_id = @@identity
  4676.             end
  4677.         end
  4678.         else
  4679.             select @originator_id = 0
  4680.  
  4681.         -- Now insert into MSrepl_commands
  4682.         select @cmd_type = substring(@17data,29,4)
  4683.         if( @cmd_type in( 37,38 ) )
  4684.         begin
  4685.             select @artid = substring(@17data,21,4)
  4686.             select @cmd_type = 38 - @cmd_type
  4687.             select @xact_seqno = substring( @17data, 11, 10 )
  4688.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  4689.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  4690.         end
  4691.  
  4692.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  4693.             substring(@17data,11 ,10),
  4694.             @cmd_type, 
  4695.             substring(@17data,21 ,4), 
  4696.             @originator_id, 
  4697.             substring(@17data,25 ,4), 
  4698.             convert(bit,substring(@17data,33 ,1)), 
  4699.             substring(@17data,40,@cmd_data_len) )
  4700.     end
  4701.  
  4702.  
  4703.     IF @18data is null
  4704.       return
  4705.     IF datalength( @18data ) > 39
  4706.     begin
  4707.         -- Get the originator_id for the first command 
  4708.         select @cmd_data_len = substring( @18data, 34, 2 )
  4709.         select @orig_srv_len = substring( @18data, 36, 2 )
  4710.         select @orig_db_len = substring( @18data, 38, 2 )
  4711.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4712.         begin 
  4713.             set @originator_id = null 
  4714.             select @originator_id = id from MSrepl_originators where
  4715.                 publisher_database_id = @publisher_database_id 
  4716.                 and UPPER(srvname) = upper(convert(sysname, substring( @18data, 40 + @cmd_data_len, @orig_srv_len )))
  4717.                 and dbname = substring( @18data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4718.             if @originator_id is null
  4719.             begin
  4720.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4721.                     (@publisher_database_id, substring( @18data, 40 + @cmd_data_len, @orig_srv_len ), substring( @18data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  4722.                 select @originator_id = @@identity
  4723.             end
  4724.         end
  4725.         else
  4726.             select @originator_id = 0
  4727.  
  4728.         -- Now insert into MSrepl_commands
  4729.         select @cmd_type = substring(@18data,29,4)
  4730.         if( @cmd_type in( 37,38 ) )
  4731.         begin
  4732.             select @artid = substring(@18data,21,4)
  4733.             select @cmd_type = 38 - @cmd_type
  4734.             select @xact_seqno = substring( @18data, 11, 10 )
  4735.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  4736.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  4737.         end
  4738.  
  4739.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  4740.             substring(@18data,11 ,10),
  4741.             @cmd_type, 
  4742.             substring(@18data,21 ,4), 
  4743.             @originator_id, 
  4744.             substring(@18data,25 ,4), 
  4745.             convert(bit,substring(@18data,33 ,1)), 
  4746.             substring(@18data,40,@cmd_data_len) )
  4747.     end
  4748.  
  4749.  
  4750.     IF @19data is null
  4751.       return
  4752.     IF datalength( @19data ) > 39
  4753.     begin
  4754.         -- Get the originator_id for the first command 
  4755.         select @cmd_data_len = substring( @19data, 34, 2 )
  4756.         select @orig_srv_len = substring( @19data, 36, 2 )
  4757.         select @orig_db_len = substring( @19data, 38, 2 )
  4758.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4759.         begin 
  4760.             set @originator_id = null 
  4761.             select @originator_id = id from MSrepl_originators where
  4762.                 publisher_database_id = @publisher_database_id 
  4763.                 and UPPER(srvname) = upper(convert(sysname, substring( @19data, 40 + @cmd_data_len, @orig_srv_len )))
  4764.                 and dbname = substring( @19data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4765.             if @originator_id is null
  4766.             begin
  4767.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4768.                     (@publisher_database_id, substring( @19data, 40 + @cmd_data_len, @orig_srv_len ), substring( @19data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  4769.                 select @originator_id = @@identity
  4770.             end
  4771.         end
  4772.         else
  4773.             select @originator_id = 0
  4774.  
  4775.         -- Now insert into MSrepl_commands
  4776.         select @cmd_type = substring(@19data,29,4)
  4777.         if( @cmd_type in( 37,38 ) )
  4778.         begin
  4779.             select @artid = substring(@19data,21,4)
  4780.             select @cmd_type = 38 - @cmd_type
  4781.             select @xact_seqno = substring( @19data, 11, 10 )
  4782.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  4783.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  4784.         end
  4785.  
  4786.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  4787.             substring(@19data,11 ,10),
  4788.             @cmd_type, 
  4789.             substring(@19data,21 ,4), 
  4790.             @originator_id, 
  4791.             substring(@19data,25 ,4), 
  4792.             convert(bit,substring(@19data,33 ,1)), 
  4793.             substring(@19data,40,@cmd_data_len) )
  4794.     end
  4795.  
  4796.  
  4797.     IF @20data is null
  4798.       return
  4799.     IF datalength( @20data ) > 39
  4800.     begin
  4801.         -- Get the originator_id for the first command 
  4802.         select @cmd_data_len = substring( @20data, 34, 2 )
  4803.         select @orig_srv_len = substring( @20data, 36, 2 )
  4804.         select @orig_db_len = substring( @20data, 38, 2 )
  4805.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4806.         begin 
  4807.             set @originator_id = null 
  4808.             select @originator_id = id from MSrepl_originators where
  4809.                 publisher_database_id = @publisher_database_id 
  4810.                 and UPPER(srvname) = upper(convert(sysname, substring( @20data, 40 + @cmd_data_len, @orig_srv_len )))
  4811.                 and dbname = substring( @20data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4812.             if @originator_id is null
  4813.             begin
  4814.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4815.                     (@publisher_database_id, substring( @20data, 40 + @cmd_data_len, @orig_srv_len ), substring( @20data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  4816.                 select @originator_id = @@identity
  4817.             end
  4818.         end
  4819.         else
  4820.             select @originator_id = 0
  4821.  
  4822.         -- Now insert into MSrepl_commands
  4823.         select @cmd_type = substring(@20data,29,4)
  4824.         if( @cmd_type in( 37,38 ) )
  4825.         begin
  4826.             select @artid = substring(@20data,21,4)
  4827.             select @cmd_type = 38 - @cmd_type
  4828.             select @xact_seqno = substring( @20data, 11, 10 )
  4829.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  4830.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  4831.         end
  4832.  
  4833.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  4834.             substring(@20data,11 ,10),
  4835.             @cmd_type, 
  4836.             substring(@20data,21 ,4), 
  4837.             @originator_id, 
  4838.             substring(@20data,25 ,4), 
  4839.             convert(bit,substring(@20data,33 ,1)), 
  4840.             substring(@20data,40,@cmd_data_len) )
  4841.     end
  4842.  
  4843.     IF @21data is null
  4844.       return
  4845.     IF datalength( @21data ) > 39
  4846.     begin
  4847.         -- Get the originator_id for the first command 
  4848.         select @cmd_data_len = substring( @21data, 34, 2 )
  4849.         select @orig_srv_len = substring( @21data, 36, 2 )
  4850.         select @orig_db_len = substring( @21data, 38, 2 )
  4851.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4852.         begin 
  4853.             set @originator_id = null 
  4854.             select @originator_id = id from MSrepl_originators where
  4855.                 publisher_database_id = @publisher_database_id 
  4856.                 and UPPER(srvname) = upper(convert(sysname, substring( @21data, 40 + @cmd_data_len, @orig_srv_len )))
  4857.                 and dbname = substring( @21data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4858.             if @originator_id is null
  4859.             begin
  4860.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4861.                     (@publisher_database_id, substring( @21data, 40 + @cmd_data_len, @orig_srv_len ), substring( @21data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  4862.                 select @originator_id = @@identity
  4863.             end
  4864.         end
  4865.         else
  4866.             select @originator_id = 0
  4867.  
  4868.         -- Now insert into MSrepl_commands
  4869.         select @cmd_type = substring(@21data,29,4)
  4870.         if( @cmd_type in( 37,38 ) )
  4871.         begin
  4872.             select @artid = substring(@21data,21,4)
  4873.             select @cmd_type = 38 - @cmd_type
  4874.             select @xact_seqno = substring( @21data, 11, 10 )
  4875.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  4876.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  4877.         end
  4878.  
  4879.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  4880.             substring(@21data,11 ,10),
  4881.             @cmd_type, 
  4882.             substring(@21data,21 ,4), 
  4883.             @originator_id, 
  4884.             substring(@21data,25 ,4), 
  4885.             convert(bit,substring(@21data,33 ,1)), 
  4886.             substring(@21data,40,@cmd_data_len) )
  4887.     end
  4888.  
  4889.     IF @22data is null
  4890.       return
  4891.     IF datalength( @22data ) > 39
  4892.     begin
  4893.         -- Get the originator_id for the first command 
  4894.         select @cmd_data_len = substring( @22data, 34, 2 )
  4895.         select @orig_srv_len = substring( @22data, 36, 2 )
  4896.         select @orig_db_len = substring( @22data, 38, 2 )
  4897.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4898.         begin 
  4899.             set @originator_id = null 
  4900.             select @originator_id = id from MSrepl_originators where
  4901.                 publisher_database_id = @publisher_database_id 
  4902.                 and UPPER(srvname) = upper(convert(sysname, substring( @22data, 40 + @cmd_data_len, @orig_srv_len )))
  4903.                 and dbname = substring( @22data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4904.             if @originator_id is null
  4905.             begin
  4906.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4907.                     (@publisher_database_id, substring( @22data, 40 + @cmd_data_len, @orig_srv_len ), substring( @22data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  4908.                 select @originator_id = @@identity
  4909.             end
  4910.         end
  4911.         else
  4912.             select @originator_id = 0
  4913.  
  4914.         -- Now insert into MSrepl_commands
  4915.         select @cmd_type = substring(@22data,29,4)
  4916.         if( @cmd_type in( 37,38 ) )
  4917.         begin
  4918.             select @artid = substring(@22data,21,4)
  4919.             select @cmd_type = 38 - @cmd_type
  4920.             select @xact_seqno = substring( @22data, 11, 10 )
  4921.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  4922.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  4923.         end
  4924.  
  4925.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  4926.             substring(@22data,11 ,10),
  4927.             @cmd_type, 
  4928.             substring(@22data,21 ,4), 
  4929.             @originator_id, 
  4930.             substring(@22data,25 ,4), 
  4931.             convert(bit,substring(@22data,33 ,1)), 
  4932.             substring(@22data,40,@cmd_data_len) )
  4933.     end
  4934.  
  4935.     IF @23data is null
  4936.       return
  4937.     IF datalength( @23data ) > 39
  4938.     begin
  4939.         -- Get the originator_id for the first command 
  4940.         select @cmd_data_len = substring( @23data, 34, 2 )
  4941.         select @orig_srv_len = substring( @23data, 36, 2 )
  4942.         select @orig_db_len = substring( @23data, 38, 2 )
  4943.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4944.         begin 
  4945.             set @originator_id = null 
  4946.             select @originator_id = id from MSrepl_originators where
  4947.                 publisher_database_id = @publisher_database_id 
  4948.                 and UPPER(srvname) = upper(convert(sysname, substring( @23data, 40 + @cmd_data_len, @orig_srv_len )))
  4949.                 and dbname = substring( @23data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4950.             if @originator_id is null
  4951.             begin
  4952.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4953.                     (@publisher_database_id, substring( @23data, 40 + @cmd_data_len, @orig_srv_len ), substring( @23data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  4954.                 select @originator_id = @@identity
  4955.             end
  4956.         end
  4957.         else
  4958.             select @originator_id = 0
  4959.  
  4960.         -- Now insert into MSrepl_commands
  4961.         select @cmd_type = substring(@23data,29,4)
  4962.         if( @cmd_type in( 37,38 ) )
  4963.         begin
  4964.             select @artid = substring(@23data,21,4)
  4965.             select @cmd_type = 38 - @cmd_type
  4966.             select @xact_seqno = substring( @23data, 11, 10 )
  4967.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  4968.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  4969.         end
  4970.  
  4971.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  4972.             substring(@23data,11 ,10),
  4973.             @cmd_type, 
  4974.             substring(@23data,21 ,4), 
  4975.             @originator_id, 
  4976.             substring(@23data,25 ,4), 
  4977.             convert(bit,substring(@23data,33 ,1)), 
  4978.             substring(@23data,40,@cmd_data_len) )
  4979.     end
  4980.  
  4981.     IF @24data is null
  4982.       return
  4983.     IF datalength( @24data ) > 39
  4984.     begin
  4985.         -- Get the originator_id for the first command 
  4986.         select @cmd_data_len = substring( @24data, 34, 2 )
  4987.         select @orig_srv_len = substring( @24data, 36, 2 )
  4988.         select @orig_db_len = substring( @24data, 38, 2 )
  4989.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  4990.         begin 
  4991.             set @originator_id = null 
  4992.             select @originator_id = id from MSrepl_originators where
  4993.                 publisher_database_id = @publisher_database_id 
  4994.                 and UPPER(srvname) = upper(convert(sysname, substring( @24data, 40 + @cmd_data_len, @orig_srv_len )))
  4995.                 and dbname = substring( @24data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  4996.             if @originator_id is null
  4997.             begin
  4998.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  4999.                     (@publisher_database_id, substring( @24data, 40 + @cmd_data_len, @orig_srv_len ), substring( @24data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  5000.                 select @originator_id = @@identity
  5001.             end
  5002.         end
  5003.         else
  5004.             select @originator_id = 0
  5005.  
  5006.         -- Now insert into MSrepl_commands
  5007.         select @cmd_type = substring(@24data,29,4)
  5008.         if( @cmd_type in( 37,38 ) )
  5009.         begin
  5010.             select @artid = substring(@24data,21,4)
  5011.             select @cmd_type = 38 - @cmd_type
  5012.             select @xact_seqno = substring( @24data, 11, 10 )
  5013.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  5014.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  5015.         end
  5016.  
  5017.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  5018.             substring(@24data,11 ,10),
  5019.             @cmd_type, 
  5020.             substring(@24data,21 ,4), 
  5021.             @originator_id, 
  5022.             substring(@24data,25 ,4), 
  5023.             convert(bit,substring(@24data,33 ,1)), 
  5024.             substring(@24data,40,@cmd_data_len) )
  5025.     end
  5026.  
  5027.  
  5028.     IF @25data is null
  5029.       return
  5030.     IF datalength( @25data ) > 39
  5031.     begin
  5032.         -- Get the originator_id for the first command 
  5033.         select @cmd_data_len = substring( @25data, 34, 2 )
  5034.         select @orig_srv_len = substring( @25data, 36, 2 )
  5035.         select @orig_db_len = substring( @25data, 38, 2 )
  5036.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  5037.         begin 
  5038.             set @originator_id = null 
  5039.             select @originator_id = id from MSrepl_originators where
  5040.                 publisher_database_id = @publisher_database_id 
  5041.                 and UPPER(srvname) = upper(convert(sysname, substring( @25data, 40 + @cmd_data_len, @orig_srv_len )))
  5042.                 and dbname = substring( @25data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  5043.             if @originator_id is null
  5044.             begin
  5045.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  5046.                     (@publisher_database_id, substring( @25data, 40 + @cmd_data_len, @orig_srv_len ), substring( @25data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  5047.                 select @originator_id = @@identity
  5048.             end
  5049.         end
  5050.         else
  5051.             select @originator_id = 0
  5052.  
  5053.         -- Now insert into MSrepl_commands
  5054.         select @cmd_type = substring(@25data,29,4)
  5055.         if( @cmd_type in( 37,38 ) )
  5056.         begin
  5057.             select @artid = substring(@25data,21,4)
  5058.             select @cmd_type = 38 - @cmd_type
  5059.             select @xact_seqno = substring( @25data, 11, 10 )
  5060.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  5061.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  5062.         end
  5063.  
  5064.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  5065.             substring(@25data,11 ,10),
  5066.             @cmd_type, 
  5067.             substring(@25data,21 ,4), 
  5068.             @originator_id, 
  5069.             substring(@25data,25 ,4), 
  5070.             convert(bit,substring(@25data,33 ,1)), 
  5071.             substring(@25data,40,@cmd_data_len) )
  5072.     end
  5073.  
  5074.  
  5075.     IF @26data is null
  5076.       return
  5077.     IF datalength( @26data ) > 39
  5078.     begin
  5079.         -- Get the originator_id for the first command 
  5080.         select @cmd_data_len = substring( @26data, 34, 2 )
  5081.         select @orig_srv_len = substring( @26data, 36, 2 )
  5082.         select @orig_db_len = substring( @26data, 38, 2 )
  5083.         if @orig_srv_len <> 0 and @orig_db_len <> 0 
  5084.         begin 
  5085.             set @originator_id = null 
  5086.             select @originator_id = id from MSrepl_originators where
  5087.                 publisher_database_id = @publisher_database_id 
  5088.                 and UPPER(srvname) = upper(convert(sysname, substring( @26data, 40 + @cmd_data_len, @orig_srv_len )))
  5089.                 and dbname = substring( @26data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len )
  5090.             if @originator_id is null
  5091.             begin
  5092.                 insert into MSrepl_originators (publisher_database_id, srvname, dbname) values
  5093.                     (@publisher_database_id, substring( @26data, 40 + @cmd_data_len, @orig_srv_len ), substring( @26data, 40 + @cmd_data_len + @orig_srv_len, @orig_db_len ))
  5094.                 select @originator_id = @@identity
  5095.             end
  5096.         end
  5097.         else
  5098.             select @originator_id = 0
  5099.  
  5100.         -- Now insert into MSrepl_commands
  5101.         select @cmd_type = substring(@26data,29,4)
  5102.         if( @cmd_type in( 37,38 ) )
  5103.         begin
  5104.             select @artid = substring(@26data,21,4)
  5105.             select @cmd_type = 38 - @cmd_type
  5106.             select @xact_seqno = substring( @26data, 11, 10 )
  5107.             exec sp_MSset_syncstate @publisher_id, @publisher_db, @artid, @cmd_type, @xact_seqno  
  5108.             select @cmd_type = (38 - @cmd_type) | 0x80000000
  5109.         end
  5110.  
  5111.         INSERT INTO MSrepl_commands VALUES (@publisher_database_id, 
  5112.             substring(@26data,11 ,10),
  5113.             @cmd_type, 
  5114.             substring(@26data,21 ,4), 
  5115.             @originator_id, 
  5116.             substring(@26data,25 ,4), 
  5117.             convert(bit,substring(@26data,33 ,1)), 
  5118.             substring(@26data,40,@cmd_data_len) )
  5119.     end
  5120.  
  5121.  
  5122.     IF @@ERROR <> 0
  5123.       return (1)
  5124.  
  5125. go
  5126.  
  5127.  
  5128. raiserror(15339,-1,-1,'sp_MSvalidate_distpublisher')
  5129. go
  5130. CREATE PROCEDURE sp_MSvalidate_distpublisher
  5131. @publisher sysname,
  5132. @publisher_id smallint = NULL OUTPUT
  5133. as
  5134.  
  5135.     set nocount on
  5136.  
  5137.     declare @distribution_db sysname
  5138.     declare @retcode int
  5139.  
  5140.     -- Check if publisher is a defined as a distribution publisher at this distributor
  5141.     select @publisher_id = srvid from master.dbo.sysservers where UPPER(srvname) = UPPER(@publisher) 
  5142.     if @publisher_id is NULL
  5143.     begin
  5144.         raiserror (14080, 11, -1)
  5145.         return (1)
  5146.     end
  5147.  
  5148.     if not exists (select * from msdb..MSdistpublishers where UPPER(name) = UPPER(@publisher))
  5149.     begin
  5150.         raiserror (14080, 11, -1)
  5151.         return (1)
  5152.     end
  5153.  
  5154.  
  5155.     -- Check if client is in the correct distribution database
  5156.     exec @retcode = dbo.sp_helpdistributor @publisher = @publisher, @distribdb = @distribution_db OUTPUT
  5157.     if @@error <> 0 OR @retcode <> 0
  5158.     begin
  5159.         raiserror (14071, 16, -1)
  5160.         return (1)
  5161.     end
  5162.  
  5163.     -- Check if publisher is associated with a distribution database
  5164.     if @distribution_db is NULL
  5165.     begin
  5166.         raiserror (14071, 16, -1)
  5167.         return(1)
  5168.     end
  5169.  
  5170.     -- Check if client is in the distribution database 
  5171.     if @distribution_db <> db_name()
  5172.     begin
  5173.         raiserror(14071, 16, -1)
  5174.         return(1)
  5175.     end
  5176.  
  5177. go
  5178.  
  5179. raiserror(15339,-1,-1,'sp_MSdrop_distribution_agent')
  5180. GO
  5181. CREATE PROCEDURE sp_MSdrop_distribution_agent (
  5182.     @publisher_id smallint,
  5183.     @publisher_db sysname,
  5184.     @publication sysname,
  5185.     @subscriber_id smallint,
  5186.     @subscriber_db sysname,
  5187.     @subscription_type int,
  5188.     @keep_for_last_run          bit = 0
  5189. ) 
  5190. AS
  5191. BEGIN
  5192.  
  5193.     SET NOCOUNT ON
  5194.  
  5195.     /*
  5196.     ** Declarations.
  5197.     */
  5198.     DECLARE @stopcode       int
  5199.             ,@retcode        int
  5200.             ,@job_id         binary(16)
  5201.             ,@is_continuous  bit
  5202.             ,@local_job      bit
  5203.             ,@publisher      sysname
  5204.             ,@schedule_name  sysname
  5205.             ,@job_command    nvarchar(512)
  5206.             ,@name           nvarchar(100)
  5207.             ,@agent_id       int
  5208.             ,@queue_id        sysname
  5209.             ,@qservicestatus int
  5210.             ,@qservername    nvarchar(255)
  5211.  
  5212.     select @stopcode = 1
  5213.             ,@qservername = @@servername
  5214.             ,@job_id = job_id, @local_job = local_job, @name = name, @agent_id = id,
  5215.             @queue_id = queue_id
  5216.     FROM MSdistribution_agents WHERE
  5217.         publisher_id = @publisher_id AND
  5218.         publisher_db = @publisher_db AND
  5219.         publication = @publication and
  5220.         subscriber_id = @subscriber_id and
  5221.         subscriber_db = @subscriber_db and
  5222.         subscription_type = @subscription_type
  5223.     
  5224.     -- Delete Perfmon instance
  5225.     dbcc deleteinstance ("SQL Replication Distribution", @name)
  5226.  
  5227.     select @publisher = srvname from master..sysservers where srvid = @publisher_id
  5228.  
  5229.     -- Return if not exists
  5230.     IF @local_job IS NULL
  5231.         RETURN(0)
  5232.  
  5233.     BEGIN TRAN
  5234.  
  5235.     if ((@queue_id is not null) and (@queue_id != N'mssqlqueue'))
  5236.     begin
  5237.         -- Check if the MSMQ service is running, if not running, return with error
  5238.         exec @retcode = master.dbo.xp_controlqueueservice 
  5239.                             @control_command = 1,
  5240.                             @return_result = @qservicestatus output
  5241.         if (@retcode != 0 or @@error != 0)
  5242.         begin
  5243.             raiserror('sp_MSdrop_distribution_agent(debug): xp_controlqueueservice failed in check mode', 16, 1)
  5244.             GOTO UNDO
  5245.         end
  5246.         
  5247.         if (@qservicestatus != 1)
  5248.         begin
  5249.             raiserror('sp_MSdrop_distribution_agent(debug): MSMQ service not running', 16, 1)
  5250.             GOTO UNDO
  5251.         end
  5252.  
  5253.         --
  5254.         -- delete the local private queue
  5255.         -- If it is a named instance, then just use the MACHINENAME
  5256.         --
  5257.         if (charindex(N'\', @qservername) > 0)
  5258.             select @qservername = substring(@qservername, 1, charindex(N'\', @qservername) - 1)
  5259.             
  5260.         exec @retcode = master.dbo.xp_deleteprivatequeue @qservername, @queue_id
  5261.         IF @@ERROR != 0 or @retcode != 0
  5262.         BEGIN
  5263.             RAISERROR('Debug: xp_deleteprivatequeue failed', -1, -1) WITH NOWAIT
  5264.             GOTO UNDO
  5265.         END
  5266.     end
  5267.  
  5268.     IF @local_job = 1 and @keep_for_last_run = 0
  5269.     BEGIN
  5270.         IF EXISTS (SELECT * FROM msdb..sysjobs_view WHERE job_id = @job_id)
  5271.         BEGIN
  5272.             EXEC @retcode = msdb.dbo.sp_delete_job @job_id = @job_id
  5273.             IF @@ERROR <> 0 or @retcode <> 0
  5274.                 GOTO UNDO
  5275.         END
  5276.     END
  5277.  
  5278.     IF @local_job = 1 and @keep_for_last_run = 1
  5279.     BEGIN
  5280.             select @job_command=command from msdb.dbo.sysjobsteps where job_id=@job_id and step_id=2
  5281.  
  5282.             if PATINDEX('%-[Cc][Oo][Nn][Tt][Ii][Nn][Uu][Oo][Uu][Ss]%', @job_command) > 0
  5283.                 begin
  5284.                     select @is_continuous = 1
  5285.                     create table #sqlstatus(status nvarchar(20))
  5286.                     insert into #sqlstatus (status) exec master.dbo.xp_servicecontrol 'QUERYSTATE', 'SQLServerAgent'
  5287.                     if exists (select * from #sqlstatus where status='Running.') 
  5288.                             exec @stopcode = msdb.dbo.sp_stop_job @job_id = @job_id
  5289.                                  if @@ERROR<>0 GOTO UNDO
  5290.                     drop table #sqlstatus   
  5291.                     if @stopcode=0 
  5292.                         waitfor delay '00:00:30'
  5293.                 end
  5294.             
  5295.             EXEC @retcode = msdb.dbo.sp_update_job @job_id=@job_id, @delete_level=3 -- NOTE: Run once, success or failure!
  5296.             IF @@ERROR <> 0 or @retcode <> 0
  5297.                 GOTO UNDO
  5298.         
  5299.             EXEC @retcode = msdb.dbo.sp_delete_jobstep @job_id=@job_id, @step_id=3
  5300.             IF @@ERROR <> 0 or @retcode <> 0
  5301.                 GOTO UNDO
  5302.             EXEC @retcode = msdb.dbo.sp_delete_jobstep @job_id=@job_id, @step_id=1
  5303.             IF @@ERROR <> 0 or @retcode <> 0
  5304.                 GOTO UNDO
  5305.  
  5306.             select @job_command=command from msdb.dbo.sysjobsteps where job_id=@job_id and step_id=1        
  5307.             select @job_command = @job_command + ' -UnSubscribe 0 '  -- currently the value does not really matter
  5308.             
  5309.             EXEC @retcode = msdb.dbo.sp_update_jobstep @job_id=@job_id, @step_id=1, 
  5310.                                 @on_success_action=1, 
  5311.                                 @on_fail_action=2, 
  5312.                                 @command=@job_command
  5313.             IF @@ERROR <> 0 or @retcode <> 0
  5314.                 GOTO UNDO
  5315.  
  5316.             
  5317.             select @schedule_name = formatmessage(20532)
  5318.             EXEC @retcode = msdb.dbo.sp_update_jobschedule @job_id=@job_id, @name=@schedule_name, @freq_subday_type = 2, @freq_subday_interval=30
  5319.             IF @@ERROR<>0 or @retcode<>0
  5320.                 GOTO UNDO
  5321.             
  5322.             if (@is_continuous  = 1) and (@stopcode = 0)
  5323.                 begin
  5324.                     EXEC @retcode = msdb.dbo.sp_start_job @job_id=@job_id
  5325.                      if @@ERROR<>0 
  5326.                         GOTO UNDO
  5327.                 end
  5328.             /*
  5329.             ** The last run of this job will be as scheduled
  5330.             */
  5331.     END
  5332.  
  5333.     -- Remove agent entry
  5334.     DELETE MSdistribution_agents WHERE id = @agent_id
  5335.     IF @@ERROR <> 0 
  5336.         GOTO UNDO
  5337.  
  5338.     -- Remove associated history 
  5339.     DELETE MSdistribution_history WHERE agent_id = @agent_id
  5340.     IF @@ERROR <> 0 
  5341.         GOTO UNDO
  5342.  
  5343.     -- Update global replication status table
  5344.     EXEC dbo.sp_MSupdate_replication_status
  5345.         @publisher,
  5346.         @publisher_db,
  5347.         @publication,
  5348.         @agent_type = 3,
  5349.         @agent_name = @name,
  5350.         @status = -1    -- delete status
  5351.  
  5352.     COMMIT TRAN
  5353.  
  5354.     RETURN(0)
  5355.  
  5356. UNDO:
  5357.     if @@TRANCOUNT = 1
  5358.         ROLLBACK TRAN
  5359.     else
  5360.         COMMIT TRAN
  5361.     return(1)
  5362. END
  5363. GO
  5364.  
  5365. raiserror(15339,-1,-1,'sp_MSdrop_distribution_agentid')
  5366. GO
  5367. CREATE PROCEDURE sp_MSdrop_distribution_agentid (
  5368.     @agent_id int
  5369. ) AS
  5370.  
  5371.  
  5372.     SET NOCOUNT ON
  5373.  
  5374.     /*
  5375.     ** Declarations.
  5376.     */
  5377.     DECLARE @name           nvarchar(100)
  5378.     DECLARE @publisher      sysname
  5379.     DECLARE @publisher_db   sysname
  5380.     DECLARE @publication    sysname
  5381.  
  5382.     SELECT @name = name, @publisher = srvname, @publisher_db = publisher_db, @publication = publication FROM 
  5383.         MSdistribution_agents, master..sysservers WHERE 
  5384.         id = @agent_id and
  5385.         srvid = publisher_id
  5386.     
  5387.     -- Delete Perfmon instance
  5388.     dbcc deleteinstance ("SQL Replication Distribution", @name)
  5389.  
  5390.     -- Mask agent type, do this before deletion of the row
  5391.     declare @agent_type int
  5392.     set @agent_type = dbo.fn_MSmask_agent_type (@agent_id, 3)
  5393.  
  5394.     -- Remove agent entry
  5395.     DELETE MSdistribution_agents WHERE id = @agent_id
  5396.     IF @@ERROR <> 0 
  5397.         return 1
  5398.  
  5399.  
  5400.     -- Update global replication status table
  5401.     EXEC dbo.sp_MSupdate_replication_status
  5402.         @publisher,
  5403.         @publisher_db,
  5404.         @publication,
  5405.         @publication_type = 1,
  5406.         @agent_type = @agent_type,
  5407.         @agent_name = @name,
  5408.         @status = -1    -- delete status
  5409.  
  5410.     return 0
  5411.  
  5412. GO
  5413.  
  5414. raiserror(15339,-1,-1,'sp_MSdrop_qreader_agent')
  5415. GO
  5416. CREATE PROCEDURE sp_MSdrop_qreader_agent (
  5417.     @agent_id int
  5418. ) AS
  5419. BEGIN
  5420.     SET NOCOUNT ON
  5421.     --
  5422.     -- Declarations.
  5423.     --
  5424.     DECLARE @retcode        int
  5425.     DECLARE @job_id         binary(16)
  5426.     DECLARE @name           nvarchar(100)
  5427.     DECLARE @database        sysname
  5428.  
  5429.     select @database = db_name()
  5430.  
  5431.     -- get the agent and job ids
  5432.     SELECT @job_id = job_id, @name = name
  5433.     FROM MSqreader_agents 
  5434.     WHERE id = @agent_id        
  5435.  
  5436.     if (@agent_id is NULL)
  5437.         return (0)
  5438.                     
  5439.     -- Delete Perfmon instance
  5440.     dbcc deleteinstance ('SQL Replication QueueReader', @name)
  5441.  
  5442.     BEGIN TRAN sp_MSdrop_qreader_agent
  5443.  
  5444.     -- delete job for the agent
  5445.     IF EXISTS (SELECT * FROM msdb..sysjobs_view WHERE job_id = @job_id)
  5446.     BEGIN
  5447.         EXEC @retcode = msdb.dbo.sp_delete_job @job_id = @job_id
  5448.         IF (@@ERROR != 0 or @retcode != 0)
  5449.             GOTO UNDO
  5450.     END
  5451.  
  5452.     -- Remove agent entry
  5453.     DELETE MSqreader_agents WHERE id = @agent_id        
  5454.     IF (@@ERROR != 0)
  5455.         GOTO UNDO
  5456.  
  5457.     -- Remove associated history 
  5458.     DELETE MSqreader_history 
  5459.     WHERE agent_id = @agent_id 
  5460.     IF (@@ERROR != 0)
  5461.         GOTO UNDO
  5462.  
  5463.     -- Update global replication status table
  5464.     EXEC dbo.sp_MSupdate_replication_status
  5465.         @@servername,
  5466.         @database,
  5467.         'ALL',
  5468.         @agent_type = 9,
  5469.         @agent_name = @name,
  5470.         @status = -1    -- delete status
  5471.  
  5472.     COMMIT TRAN sp_MSdrop_qreader_agent
  5473.     RETURN(0)
  5474.  
  5475. UNDO:
  5476.     ROLLBACK TRAN sp_MSdrop_qreader_agent
  5477.     return(1)
  5478. END
  5479. GO
  5480.  
  5481. raiserror(15339,-1,-1,'sp_MSdrop_qreader_history')
  5482. GO
  5483. CREATE PROCEDURE sp_MSdrop_qreader_history (
  5484.     @publication_id int
  5485. ) AS
  5486. BEGIN
  5487.     SET NOCOUNT ON
  5488.  
  5489.     -- Remove associated history 
  5490.     DELETE MSqreader_history 
  5491.     WHERE publication_id = @publication_id 
  5492.     IF (@@ERROR != 0)
  5493.         return (1)
  5494.     else
  5495.         return 0
  5496. END
  5497. GO
  5498.  
  5499. raiserror(15339,-1,-1,'sp_MSdrop_merge_agentid')
  5500. GO
  5501. CREATE PROCEDURE sp_MSdrop_merge_agentid (
  5502.     @agent_id int
  5503. ) AS
  5504.  
  5505.  
  5506.     SET NOCOUNT ON
  5507.  
  5508.     /*
  5509.     ** Declarations.
  5510.     */
  5511.     DECLARE @name           nvarchar(100)
  5512.     DECLARE @publisher      sysname
  5513.     DECLARE @publisher_db   sysname
  5514.     DECLARE @publication    sysname
  5515.  
  5516.     SELECT @name = name, @publisher = srvname, @publisher_db = publisher_db, @publication = publication FROM 
  5517.         MSmerge_agents, master..sysservers WHERE 
  5518.         id = @agent_id and
  5519.         srvid = publisher_id
  5520.     
  5521.     -- Delete Perfmon instance
  5522.     dbcc deleteinstance ("SQL Replication Merge", @name)
  5523.  
  5524.     -- Mask agent type, do this before delete the row.
  5525.     declare @agent_type int
  5526.     set @agent_type = dbo.fn_MSmask_agent_type (@agent_id, 4)
  5527.  
  5528.     -- Remove agent entry
  5529.     DELETE MSmerge_agents WHERE id = @agent_id
  5530.     IF @@ERROR <> 0 
  5531.         return 1
  5532.  
  5533.  
  5534.     -- Update global replication status table
  5535.     EXEC dbo.sp_MSupdate_replication_status
  5536.         @publisher,
  5537.         @publisher_db,
  5538.         @publication,
  5539.         @agent_type = @agent_type,
  5540.         @agent_name = @name,
  5541.         @status = -1    -- delete status
  5542.  
  5543.     return 0
  5544.  
  5545. GO
  5546.  
  5547. raiserror(15339,-1,-1,'sp_MSadd_qreader_agent')
  5548. GO
  5549. CREATE PROCEDURE sp_MSadd_qreader_agent (
  5550.     @name nvarchar(100) = NULL,
  5551.     @agent_id int = NULL OUTPUT,
  5552.     @agent_jobid binary(16) = NULL OUTPUT) 
  5553. AS
  5554. BEGIN
  5555.     SET NOCOUNT ON
  5556.  
  5557.     DECLARE @retcode                int
  5558.             ,@profile_id            int
  5559.             ,@category_name            sysname
  5560.             ,@database                sysname
  5561.  
  5562.     -- these are defaults used for sp_MSadd_repl_job
  5563.             ,@frequency_type int,
  5564.             @frequency_interval int,
  5565.             @frequency_relative_interval int,
  5566.             @frequency_recurrence_factor int,
  5567.             @frequency_subday int,
  5568.             @frequency_subday_interval int,
  5569.             @active_start_time_of_day int,
  5570.             @active_end_time_of_day int,
  5571.             @active_start_date int,
  5572.             @active_end_date int,
  5573.             @retryattempts int,
  5574.             @retrydelay int,
  5575.             @command nvarchar(4000)
  5576.             ,@jobname sysname
  5577.             ,@agent_name nvarchar(100)
  5578.  
  5579.     SELECT
  5580.         @frequency_type = 64,
  5581.         @frequency_interval = 1,
  5582.         @frequency_relative_interval = 1,
  5583.         @frequency_recurrence_factor  = 0,
  5584.         @frequency_subday = 4,
  5585.         @frequency_subday_interval = 5,
  5586.         @active_start_time_of_day = 0,
  5587.         @active_end_time_of_day = 235959,
  5588.         @active_start_date = 0,
  5589.         @active_end_date = 99991231,
  5590.         @retryattempts = 10,
  5591.         @retrydelay = 1
  5592.  
  5593.     --
  5594.     -- initialize
  5595.     --
  5596.     select @database = db_name()
  5597.             ,@agent_id = NULL
  5598.             ,@agent_jobid = NULL
  5599.  
  5600.     --
  5601.     -- Check for Agent entry
  5602.     --
  5603.     select top 1 @agent_id = id, @agent_name = name
  5604.     from dbo.MSqreader_agents
  5605.  
  5606.     --
  5607.     -- Check if we have any queue reader jobs for this database
  5608.     --
  5609.     select @agent_jobid = job.job_id
  5610.             ,@jobname = job.name 
  5611.     from msdb..sysjobs as job join msdb..sysjobsteps as step 
  5612.         on job.job_id = step.job_id 
  5613.             and job.category_id = 19
  5614.             and UPPER(job.originating_server) = UPPER(CONVERT(NVARCHAR(30), SERVERPROPERTY('ServerName')))
  5615.             and step.subsystem = N'QueueReader' 
  5616.             and step.database_name = @database
  5617.  
  5618.     --
  5619.     -- begin tran
  5620.     --
  5621.     BEGIN TRAN sp_MSadd_qreader_agent
  5622.     
  5623.     --
  5624.     -- Check if we need to proceed
  5625.     -- add agent entry and job entry as required
  5626.     --
  5627.     if ((@agent_id IS NOT NULL) and (@agent_jobid IS NOT NULL))
  5628.     begin
  5629.         --
  5630.         -- we have an entry in MSqreader_agents and an entry in 
  5631.         -- msdb..sysjobs, make sure the names and jobid match
  5632.         --
  5633.         if (@agent_name != @jobname)
  5634.         begin
  5635.             --
  5636.             -- Update the agent name to be same as the job name
  5637.             --
  5638.             UPDATE MSqreader_agents SET name = @jobname WHERE id = @agent_id
  5639.             IF (@@ERROR != 0)
  5640.                 GOTO UNDO
  5641.         end
  5642.  
  5643.         if not exists (select * from MSqreader_agents
  5644.             where id = @agent_id and job_id = @agent_jobid)
  5645.         begin
  5646.             --
  5647.             -- Update the agent job_id if necessary
  5648.             --
  5649.             UPDATE MSqreader_agents SET job_id = @agent_jobid WHERE id = @agent_id
  5650.             IF (@@ERROR != 0)
  5651.                 GOTO UNDO
  5652.         end
  5653.  
  5654.         COMMIT TRAN sp_MSadd_qreader_agent
  5655.         RETURN(0)
  5656.     end
  5657.  
  5658.     --
  5659.     -- prepare the command
  5660.     -- Since this will always run on NT, use integrated security
  5661.     --
  5662.     select @command = N'-Distributor ' + quotename(@@SERVERNAME) 
  5663.                     + N' -DistributionDB ' + quotename(@database) 
  5664.                     + N' -DistributorSecurityMode 1 '
  5665.     
  5666.     SELECT @profile_id = profile_id
  5667.     FROM msdb..MSagent_profiles
  5668.     WHERE agent_type = 9
  5669.     AND def_profile = 1
  5670.  
  5671.     IF @profile_id IS NULL
  5672.         GOTO UNDO
  5673.  
  5674.     --
  5675.     -- Set the name
  5676.     --
  5677.     if (@name is NULL)
  5678.     begin
  5679.         select @name = case 
  5680.             when (@agent_name IS NULL and @jobname IS NULL) 
  5681.                 then quotename(@@servername) + '.' + cast(db_id() as nvarchar)
  5682.             when (@jobname IS NOT NULL)
  5683.                 then cast(@jobname as nvarchar(100))
  5684.                 else @agent_name
  5685.             end
  5686.     end
  5687.     else
  5688.     begin
  5689.         --
  5690.         -- we will override the user specified name if
  5691.         -- a job already exists
  5692.         --
  5693.         if (@jobname IS NOT NULL and @jobname != @name)
  5694.             select name = cast(@jobname as nvarchar(100))
  5695.     end
  5696.     
  5697.     --
  5698.     -- Insert row and Add Perfmoon instance only if needed
  5699.     --
  5700.     if (@agent_id IS NULL)
  5701.     begin
  5702.         INSERT INTO MSqreader_agents (name, profile_id) VALUES (@name, @profile_id)
  5703.         IF (@@ERROR != 0)
  5704.             GOTO UNDO
  5705.         SELECT @agent_id = @@IDENTITY
  5706.         dbcc addinstance ('SQL Replication QueueReader', @name)
  5707.     end
  5708.     else
  5709.     begin
  5710.         --
  5711.         -- update Agent name if necessary
  5712.         --
  5713.         if not exists (select * from MSqreader_agents 
  5714.             where id = @agent_id and name = @name) 
  5715.         begin
  5716.             UPDATE MSqreader_agents SET name = @name WHERE id = @agent_id
  5717.             IF (@@ERROR != 0)
  5718.                 GOTO UNDO
  5719.         end
  5720.     end
  5721.  
  5722.     --
  5723.     -- add the job if necessary
  5724.     -- For DMO scripting
  5725.     -- if the corresponding job for this agent does not exist we will 
  5726.     -- proceed and create the job (This is for the case when the user 
  5727.     -- generated the script at the publisher but did not re-create 
  5728.     -- repl jobs at the distributor.)
  5729.     --
  5730.     if (@agent_jobid IS NULL)
  5731.     begin
  5732.         -- Get Qreader category name (assumes category_id = 19)
  5733.         select @category_name = name FROM msdb.dbo.syscategories where category_id = 19
  5734.         
  5735.         EXECUTE @retcode = dbo.sp_MSadd_repl_job
  5736.             @name = @name,
  5737.             @subsystem = 'QueueReader',
  5738.             @server = @@SERVERNAME,
  5739.             @databasename = @database,
  5740.             @enabled = 1,
  5741.             @freqtype = @frequency_type,
  5742.             @freqinterval = @frequency_interval,
  5743.             @freqsubtype = @frequency_subday,
  5744.             @freqsubinterval = @frequency_subday_interval,
  5745.             @freqrelativeinterval = @frequency_relative_interval,
  5746.             @freqrecurrencefactor = 0,
  5747.             @activestartdate = @active_start_date,
  5748.             @activeenddate = @active_end_date,
  5749.             @activestarttimeofday = @active_start_time_of_day,
  5750.             @activeendtimeofday = @active_end_time_of_day,
  5751.             @nextrundate = 0,
  5752.             @nextruntime = 0,
  5753.             @runpriority = 0,
  5754.             @emailoperatorname = NULL,
  5755.             @retryattempts = @retryattempts,
  5756.             @retrydelay = @retrydelay,
  5757.             @command = @command,
  5758.             @loghistcompletionlevel = 0,
  5759.             @emailcompletionlevel = 0,
  5760.             @description = 'Reads queues for Queued updating subscriptions',
  5761.             @category_name = @category_name,
  5762.             @failure_detection = 1,
  5763.             @agent_id = @agent_id,
  5764.             @job_id = @agent_jobid OUTPUT
  5765.  
  5766.         IF (@@ERROR != 0 or @retcode != 0)
  5767.             GOTO UNDO
  5768.     end
  5769.     
  5770.     -- update agents table with the job id
  5771.     UPDATE MSqreader_agents SET job_id = @agent_jobid WHERE id = @agent_id
  5772.     IF (@@ERROR != 0)
  5773.         GOTO UNDO
  5774.  
  5775.     -- Update global replication status table
  5776.     EXEC @retcode = dbo.sp_MSupdate_replication_status
  5777.         @@servername,
  5778.         @database,
  5779.         'ALL',
  5780.         @agent_type = 9,
  5781.         @agent_name = @name,
  5782.         @status = 0     -- not running status
  5783.     IF (@@ERROR != 0 or @retcode != 0)
  5784.         GOTO UNDO
  5785.  
  5786.     COMMIT TRAN sp_MSadd_qreader_agent
  5787.     RETURN(0)
  5788.  
  5789. UNDO:
  5790.     --
  5791.     -- Since this proc is called from other SPs, doing
  5792.     -- a ROLLBACK can roll all the way to the top 
  5793.     -- so check for that and commit and return error code.
  5794.     -- the top level calling SP should do proper rollback
  5795.     -- based on returned error code
  5796.     --
  5797.     if (@@TRANCOUNT = 1)
  5798.         ROLLBACK TRAN sp_MSadd_qreader_agent
  5799.     else
  5800.         COMMIT TRAN sp_MSadd_qreader_agent
  5801.     return(1)
  5802. END
  5803. GO
  5804.  
  5805. raiserror(15339,-1,-1,'sp_MSadd_distribution_agent')
  5806. GO
  5807. CREATE PROCEDURE sp_MSadd_distribution_agent (
  5808.     @name sysname = NULL,
  5809.     @publisher_id smallint,
  5810.     @publisher_db sysname,
  5811.     @publication sysname,  
  5812.     @subscriber_id smallint,
  5813.     @subscriber_db sysname,
  5814.     @subscription_type int, -- have to have it to identify a distribution agent.
  5815.     @local_job bit, 
  5816.  
  5817.     @frequency_type int = 64,
  5818.     @frequency_interval int = 1,
  5819.     @frequency_relative_interval int = 1,
  5820.     @frequency_recurrence_factor int = 0,
  5821.     @frequency_subday int = 4,
  5822.     @frequency_subday_interval int = 5,
  5823.     @active_start_time_of_day int = 0,
  5824.     @active_end_time_of_day int = 235959,
  5825.     @active_start_date int = 0,
  5826.     @active_end_date int = 99991231,
  5827.  
  5828.     @retryattempts int = 10,
  5829.     @retrydelay int = 1,
  5830.     
  5831.     @command nvarchar(4000) = NULL,
  5832.     @agent_id int = NULL OUTPUT,
  5833.     @distribution_jobid binary(16) = NULL OUTPUT,
  5834.     @update_mode int = 0, 
  5835.  
  5836.     -- Agent offload
  5837.     @offloadagent bit = 0,
  5838.     @offloadserver sysname = NULL,
  5839.  
  5840.     @dts_package_name sysname = NULL,
  5841.     @dts_package_password nvarchar(524) = NULL,
  5842.     @dts_package_location int = 0
  5843. ) 
  5844. AS
  5845. BEGIN
  5846.     
  5847.     SET NOCOUNT ON
  5848.  
  5849.     /*
  5850.     ** Declarations.
  5851.     */
  5852.     DECLARE @retcode            int
  5853.     DECLARE @database           sysname
  5854.     DECLARE @profile_id         int
  5855.     DECLARE @distribution_type  int
  5856.     DECLARE @publisher          sysname
  5857.     DECLARE @category_name      sysname
  5858.     DECLARE @subscriber         sysname
  5859.     declare @publisher_database_id int
  5860.     declare @queue_id             sysname
  5861.             ,@qservicestatus    int
  5862.             ,@tries                tinyint
  5863.  
  5864.     /*
  5865.     ** Initializations
  5866.     */
  5867.     select @database = DB_NAME()
  5868.     
  5869.     -- Check the existance of the package if it is at the distributor side.
  5870.     if @dts_package_name is not null and @dts_package_location = 0
  5871.     begin
  5872.         exec @retcode = dbo.sp_MSrepl_validate_dts_package
  5873.             @name = @dts_package_name
  5874.         IF @@ERROR <> 0 or @retcode <> 0
  5875.             return (1)
  5876.     end
  5877.  
  5878.     -- if @name is not null, the proc is from DMO scripting
  5879.     -- check to see if the job is there or not, if not, reset @job_existing and
  5880.     -- @name values. This is for the case when the user generate the script at
  5881.     -- the publisher but did not re-create repl jobs at the distributor.
  5882.     if @local_job = 1 and @name is not null and 
  5883.        @name <> N''
  5884.     begin
  5885.         if not exists (select * from msdb..sysjobs_view where 
  5886.             name = @name and
  5887.             UPPER(originating_server) = UPPER(CONVERT(NVARCHAR(30), SERVERPROPERTY('ServerName'))))
  5888.         begin
  5889.             set @name = null
  5890.         end
  5891.     end
  5892.  
  5893.     BEGIN TRAN
  5894.  
  5895.     -- Try to drop it first
  5896.     EXEC @retcode = dbo.sp_MSdrop_distribution_agent 
  5897.         @publisher_id = @publisher_id,
  5898.         @publisher_db = @publisher_db,
  5899.         @publication = @publication,
  5900.         @subscriber_id = @subscriber_id,
  5901.         @subscriber_db = @subscriber_db,
  5902.         @subscription_type = @subscription_type
  5903.     IF @@ERROR <> 0 or @retcode <> 0
  5904.         GOTO UNDO
  5905.  
  5906.     /* Code for distribution agent type in MSagent_profiles */
  5907.     SELECT @distribution_type = 3
  5908.  
  5909.     SELECT @profile_id = profile_id
  5910.     FROM msdb..MSagent_profiles
  5911.     WHERE agent_type = @distribution_type
  5912.         AND def_profile = 1
  5913.  
  5914.     IF @profile_id IS NULL
  5915.         GOTO UNDO
  5916.  
  5917.     select @publisher = srvname from master..sysservers where srvid = @publisher_id
  5918.     select @subscriber = srvname from master..sysservers where srvid = @subscriber_id
  5919.     select @publisher_database_id = id from MSpublisher_databases where 
  5920.         publisher_id = @publisher_id and
  5921.         publisher_db = @publisher_db
  5922.  
  5923.     -- Create queue if needed. (queued or failover mode)
  5924.     if (@update_mode in (2,3))
  5925.     begin
  5926.         -- Check if the MSMQ service is running
  5927.         exec @retcode = master.dbo.xp_controlqueueservice 
  5928.                             @control_command = 1,
  5929.                             @return_result = @qservicestatus output
  5930.         if (@retcode != 0 or @@error != 0)
  5931.         begin
  5932.             raiserror('sp_MSadd_distribution_agent(debug): xp_controlqueueservice failed in check mode', 16, 1)
  5933.             GOTO UNDO
  5934.         end
  5935.  
  5936.         if (@qservicestatus != 1)
  5937.         begin
  5938.             raiserror('sp_MSadd_distribution_agent(debug): MSMQ service not running. Start MSMQ services and retry subscription creation', 16, 1)
  5939.             GOTO UNDO
  5940.         end
  5941.  
  5942.         /***************************************************
  5943.         ***** For NOW we will not AUTOSTART MSMQ services
  5944.         ****************************************************
  5945.         if (@qservicestatus != 1)
  5946.         begin
  5947.             -- Queue service is not running. Try starting it only if it is
  5948.             -- stopped. Otherwise, return with error (we do not want to 
  5949.             -- handle the cases for Pause/Pending/Continue states)
  5950.             if (@qservicestatus = 2)
  5951.             begin
  5952.                 -- start the service
  5953.                 exec @retcode = master.dbo.xp_controlqueueservice 
  5954.                                     @control_command = 2,
  5955.                                     @return_result = @qservicestatus output
  5956.                 if (@retcode != 0 or @@error != 0)
  5957.                 begin
  5958.                     raiserror('sp_MSadd_distribution_agent(debug): xp_controlqueueservice failed in start mode', 16, 1)
  5959.                     GOTO UNDO
  5960.                 end
  5961.  
  5962.                 -- check status (try 3 times with 2 sec delays)
  5963.                 select @tries = 0
  5964.                 while ((@qservicestatus != 1) and (@tries < 3))
  5965.                 begin
  5966.                     WAITFOR DELAY '00:00:02'
  5967.                     select @tries = @tries + 1
  5968.                     
  5969.                     exec @retcode = master.dbo.xp_controlqueueservice 
  5970.                                         @control_command = 1,
  5971.                                         @return_result = @qservicestatus output
  5972.                     if (@retcode != 0 or @@error != 0)
  5973.                     begin
  5974.                         raiserror('sp_MSadd_distribution_agent(debug): xp_controlqueueservice failed in check mode', 16, 1)
  5975.                         GOTO UNDO
  5976.                     end                    
  5977.                 end
  5978.  
  5979.                 -- Did the service start
  5980.                 if (@qservicestatus != 1)
  5981.                 begin
  5982.                     raiserror('sp_MSadd_distribution_agent(debug): MSMQ service not running (delayed)', 16, 1)
  5983.                     GOTO UNDO
  5984.                 end
  5985.             end
  5986.             else
  5987.             begin
  5988.                 raiserror('sp_MSadd_distribution_agent(debug): MSMQ service not running (in transient state)', 16, 1)
  5989.                 GOTO UNDO
  5990.             end
  5991.         end
  5992.         ***************************************************/
  5993.  
  5994.         /******** 
  5995.         --
  5996.         -- create public queue
  5997.         --
  5998.         exec @retcode = master.dbo.xp_createqueue 
  5999.                             @publisher = @publisher,
  6000.                             @publisher_db = @publisher_db,
  6001.                             @publication = @publication, 
  6002.                             @subscriber = @subscriber,
  6003.                             @subscriber_db = @subscriber_db,
  6004.                             @queue_id = @queue_id output
  6005.         IF @@ERROR <> 0 or @retcode <> 0
  6006.         BEGIN
  6007.             RAISERROR('Debug: xp_createqueue failed', -1, -1) WITH NOWAIT
  6008.             GOTO UNDO
  6009.         END
  6010.         *******/
  6011.         --
  6012.         -- create local private queue
  6013.         --
  6014.         select @queue_id = cast(NEWID() as sysname)
  6015.         exec @retcode = master.dbo.xp_createprivatequeue @queue_id
  6016.         IF @@ERROR != 0 or @retcode != 0
  6017.         BEGIN
  6018.             select @queue_id = NULL
  6019.             RAISERROR('Debug: xp_createprivatequeue failed', -1, -1) WITH NOWAIT
  6020.             GOTO UNDO
  6021.         END
  6022.     end
  6023.     else if (@update_mode in (4,5))
  6024.     begin
  6025.         --
  6026.         -- SQL Queue being used
  6027.         --
  6028.         select @queue_id = N'mssqlqueue'
  6029.     end
  6030.  
  6031.     
  6032.     /* 
  6033.     ** Insert row
  6034.     */
  6035.     INSERT INTO MSdistribution_agents (name, publisher_database_id, publisher_id, publisher_db, publication, 
  6036.             subscriber_id, subscriber_db, subscription_type, local_job, 
  6037.             subscription_guid, profile_id, queue_id, 
  6038.             dts_package_name, dts_package_password, dts_package_location)
  6039.         VALUES ('',@publisher_database_id, @publisher_id, @publisher_db, @publication, 
  6040.             @subscriber_id, @subscriber_db, @subscription_type, @local_job, 
  6041.             newid(), @profile_id, @queue_id, 
  6042.             @dts_package_name, @dts_package_password, @dts_package_location)
  6043.     IF @@ERROR <> 0
  6044.         GOTO UNDO
  6045.     
  6046.     SELECT @agent_id = @@IDENTITY
  6047.  
  6048.     -- Add Perfmoon instance
  6049.     dbcc addinstance ("SQL Replication Distribution", @name)
  6050.  
  6051.     -- Set agent name
  6052.     if @subscriber is NULL select @subscriber = ''
  6053.     if @subscriber_db is NULL select @subscriber_db =''
  6054.     
  6055.     declare @job_existing bit
  6056.     
  6057.     IF @name IS NULL OR @name = N''
  6058.     BEGIN
  6059.         /*
  6060.         ** Sacrifice 1-2 character from each of (@publisher,@publication,
  6061.         ** @publisher_db,subscriber) to allow 4 more indentity digits in
  6062.         ** the distribution agent name. This will hopefully provide better
  6063.         ** guarantee of agent name uniqueness.
  6064.         */
  6065.         if @publication is NOT NULL and (LOWER(@publication)<>'all')
  6066.             SELECT @name = CONVERT(nvarchar(21),@publisher ) + '-' + 
  6067.                 CONVERT(nvarchar(21),@publisher_db) + '-' + 
  6068.                 CONVERT(nvarchar(21),@publication) + '-' + 
  6069.                 CONVERT(nvarchar(21),@subscriber) + '-' +
  6070.                 CONVERT(nvarchar, @@IDENTITY)
  6071.         else
  6072.             SELECT @name = CONVERT(nvarchar(28),@publisher ) + '-' + 
  6073.                 CONVERT(nvarchar(28),@publisher_db) + '-' + 
  6074.                 CONVERT(nvarchar(28),@subscriber) + '-' + 
  6075.                 CONVERT(nvarchar, @@IDENTITY)
  6076.  
  6077.         select @job_existing = 0
  6078.     END
  6079.     else
  6080.         select @job_existing = 1
  6081.  
  6082.     -- If creating a new job and the generated name already exists, re-generate the name with a 
  6083.     -- guid appended
  6084.     IF  @job_existing = 0
  6085.     BEGIN
  6086.         IF EXISTS (SELECT * FROM msdb..sysjobs_view 
  6087.                     WHERE name = @name 
  6088.                       AND UPPER(originating_server) = UPPER(CONVERT(NVARCHAR(30), SERVERPROPERTY('ServerName'))))
  6089.         BEGIN
  6090.             if @publication is NOT NULL and (LOWER(@publication)<>'all')
  6091.                 SELECT @name = fn_repluniquename(newid(), @publisher, @publisher_db, 
  6092.                     @publication, @subscriber)
  6093.             else
  6094.                 SELECT @name = fn_repluniquename(newid(), @publisher, @publisher_db, 
  6095.                     @subscriber, null)
  6096.         END            
  6097.     END
  6098.  
  6099.     IF @local_job = 1
  6100.     BEGIN
  6101.         if @job_existing = 0
  6102.         begin
  6103.     --    *******WORKAROUND*******
  6104.             DECLARE @nullchar nchar(20)
  6105.             SELECT @nullchar = NULL
  6106.     --    *******WORKAROUND*******
  6107.             -- Get Distribution category name (assumes category_id = 10)
  6108.             select @category_name = name FROM msdb.dbo.syscategories where category_id = 10
  6109.  
  6110.             if @frequency_recurrence_factor is null
  6111.                 select @frequency_recurrence_factor = 0
  6112.  
  6113.             EXECUTE @retcode = dbo.sp_MSadd_repl_job
  6114.             @name = @name,
  6115.             @subsystem = 'Distribution',
  6116.             @server = @@SERVERNAME,
  6117.             @databasename = @database,
  6118.             @enabled = 1,
  6119.             @freqtype = @frequency_type,
  6120.             @freqinterval = @frequency_interval,
  6121.             @freqsubtype = @frequency_subday,
  6122.             @freqsubinterval = @frequency_subday_interval,
  6123.             @freqrelativeinterval = @frequency_relative_interval,
  6124.             @freqrecurrencefactor = @frequency_recurrence_factor,
  6125.             @activestartdate = @active_start_date,
  6126.             @activeenddate = @active_end_date,
  6127.             @activestarttimeofday = @active_start_time_of_day,
  6128.             @activeendtimeofday = @active_end_time_of_day,
  6129.             @nextrundate = 0,
  6130.             @nextruntime = 0,
  6131.             @runpriority = 0,
  6132.             @emailoperatorname = NULL,
  6133.             @retryattempts = @retryattempts,
  6134.             @retrydelay = @retrydelay,
  6135.             @command = @command,
  6136.             @loghistcompletionlevel = 0,
  6137.             @emailcompletionlevel = 0,
  6138.             @description = NULL,
  6139.             @category_name = @category_name,
  6140.             @failure_detection = 1,
  6141.             @agent_id = @agent_id,
  6142.             @job_id = @distribution_jobid OUTPUT
  6143.  
  6144.            IF @@ERROR <> 0 or @retcode <> 0
  6145.                 GOTO UNDO
  6146.         end
  6147.         else
  6148.         begin
  6149.             select @distribution_jobid = job_id from msdb..sysjobs_view where 
  6150.                 name = @name and
  6151.                 UPPER(originating_server) = UPPER(CONVERT(NVARCHAR(30), SERVERPROPERTY('ServerName')))
  6152.             if @distribution_jobid IS NULL
  6153.             begin
  6154.                 -- Message from msdb.dbo.sp_verify_job_identifiers
  6155.                 RAISERROR(14262, -1, -1, 'Job', @name)          
  6156.                 GOTO UNDO
  6157.             end
  6158.         end
  6159.     END
  6160.     ELSE 
  6161.     BEGIN
  6162.         -- Generate a job GUID for remote agents. This will be used by the UI to uniquely
  6163.         -- identify rows returned by the enums
  6164.         set @distribution_jobid = newid();
  6165.     END
  6166.  
  6167.     UPDATE MSdistribution_agents SET name = @name,
  6168.         job_id = @distribution_jobid WHERE
  6169.         id = @agent_id
  6170.  
  6171.     IF @@ERROR <> 0
  6172.         GOTO UNDO
  6173.  
  6174.     -- Don't call agent offload stuff for virtual agents.
  6175.     IF @local_job = 1 and @subscription_type = 0
  6176.     BEGIN    
  6177.         -- Add offload parameter to agent command line if necessary
  6178.         IF @offloadagent = 1 
  6179.         BEGIN
  6180.             EXEC @retcode = sp_MSenableagentoffload @job_id = @distribution_jobid,
  6181.                                            @offloadserver = @offloadserver
  6182.         END
  6183.         ELSE
  6184.         BEGIN
  6185.             EXEC @retcode = sp_MSdisableagentoffload @job_id = @distribution_jobid,
  6186.                                             @offloadserver = @offloadserver
  6187.         END
  6188.         IF @@ERROR <> 0 OR @retcode <> 0
  6189.             GOTO UNDO
  6190.  
  6191.     END
  6192.  
  6193.     -- Update global replication status table
  6194.     EXEC @retcode = dbo.sp_MSupdate_replication_status
  6195.         @publisher,
  6196.         @publisher_db,
  6197.         @publication,
  6198.         @agent_type = 3,
  6199.         @agent_name = @name,
  6200.         @status = 0     -- not running status
  6201.  
  6202.     IF @@ERROR <> 0 OR @retcode <> 0
  6203.         GOTO UNDO
  6204.  
  6205.     COMMIT TRAN
  6206.  
  6207.     RETURN(0)
  6208. UNDO:
  6209.     --
  6210.     -- delete the MSMQ queue if necessary
  6211.     --
  6212.     if (@update_mode in (2,3) and @queue_id IS NOT NULL)
  6213.     begin
  6214.         exec master.dbo.xp_deleteprivatequeue @@servername, @queue_id
  6215.     end
  6216.     
  6217.     if @@TRANCOUNT = 1
  6218.         ROLLBACK TRAN
  6219.     else
  6220.         COMMIT TRAN
  6221.     return(1)
  6222. END
  6223. GO
  6224.  
  6225. raiserror(15339,-1,-1,'sp_MSdrop_agent_entry')
  6226. GO
  6227. /*
  6228. ** This one is reserved for future use.
  6229. */
  6230. CREATE PROCEDURE sp_MSdrop_agent_entry (
  6231. @pub_srvid      smallint,
  6232. @pub_db_name    sysname,
  6233. @publication    sysname,
  6234. @sub_srvid      smallint,
  6235. @sub_db_name    sysname
  6236. ) AS
  6237. delete from MSmerge_agents where publisher_id = @pub_srvid AND publisher_db = @pub_db_name AND publication=@publication
  6238.                                     AND subscriber_id = @sub_srvid AND subscriber_db = @sub_db_name
  6239. if @@ERROR<>0 return (1)
  6240. return (0)
  6241. GO
  6242.  
  6243.  
  6244. raiserror(15339,-1,-1,'sp_MSdrop_merge_agent')
  6245. GO
  6246. CREATE PROCEDURE sp_MSdrop_merge_agent (
  6247.     @publisher          sysname,
  6248.     @publisher_db       sysname,
  6249.     @publication        sysname,
  6250.     @subscriber         sysname,
  6251.     @subscriber_db      sysname,
  6252.     @keep_for_last_run  bit = 0 -- if the agent needs to stay to run one more time; default is NO
  6253. ) AS
  6254.  
  6255.  
  6256.     SET NOCOUNT ON
  6257.  
  6258.     /*
  6259.     ** Declarations.
  6260.     */
  6261.     DECLARE @retcode    int
  6262.     DECLARE @job_id     binary(16)
  6263.     DECLARE @local_job  bit
  6264.     DECLARE @publisher_id smallint
  6265.     DECLARE @subscriber_id smallint
  6266.     DECLARE @job_command nvarchar(512)
  6267.     DECLARE @name nvarchar(100)
  6268.     DECLARE @agent_id   int
  6269.  
  6270.     /*
  6271.     ** Initializations
  6272.     */
  6273.     -- Get subscriber info
  6274.     select @subscriber_id = srvid from master..sysservers where UPPER(srvname) = UPPER(@subscriber)
  6275.     select @publisher_id = srvid from master..sysservers where UPPER(srvname) = UPPER(@publisher)
  6276.  
  6277.  
  6278.     SELECT @job_id = job_id, @local_job = local_job, @name = name, @agent_id = id FROM MSmerge_agents (updlock holdlock) 
  6279.     WHERE
  6280.         publisher_id = @publisher_id AND
  6281.         publisher_db = @publisher_db AND
  6282.         publication = @publication and
  6283.         subscriber_id = @subscriber_id and
  6284.         subscriber_db = @subscriber_db 
  6285.  
  6286.     -- Delete Perfmon instance
  6287.     dbcc deleteinstance ("SQL Replication Merge", @name)
  6288.  
  6289.     -- Return if not exists
  6290.     IF @local_job IS NULL
  6291.         RETURN(0)
  6292.  
  6293.     BEGIN TRAN
  6294.  
  6295.     IF @keep_for_last_run = 0
  6296.     BEGIN
  6297.         if @local_job=1
  6298.         begin
  6299.             IF EXISTS (SELECT * FROM msdb..sysjobs_view WHERE job_id = @job_id)
  6300.             begin
  6301.                 EXEC @retcode = msdb.dbo.sp_delete_job @job_id = @job_id
  6302.                 IF @@ERROR <> 0 or @retcode <> 0
  6303.                     GOTO UNDO
  6304.             end
  6305.         end
  6306.     END
  6307.  
  6308.     IF @local_job = 1 and @keep_for_last_run = 1
  6309.     BEGIN
  6310.         IF EXISTS (SELECT * FROM msdb..sysjobs_view WHERE job_id = @job_id)
  6311.         BEGIN
  6312.             EXEC @retcode = msdb.dbo.sp_update_job @job_id=@job_id, @delete_level=3 -- NOTE: Only once, success or failure!
  6313.             IF @@ERROR <> 0 or @retcode <> 0
  6314.                 GOTO UNDO
  6315.             EXEC @retcode = msdb.dbo.sp_delete_jobstep @job_id=@job_id, @step_id=3
  6316.             IF @@ERROR <> 0 or @retcode <> 0
  6317.                 GOTO UNDO
  6318.             EXEC @retcode = msdb.dbo.sp_delete_jobstep @job_id=@job_id, @step_id=1
  6319.             IF @@ERROR <> 0 or @retcode <> 0
  6320.                 GOTO UNDO
  6321.  
  6322.             select @job_command=command from msdb.dbo.sysjobsteps where job_id=@job_id and step_id=1        
  6323.             select @job_command = @job_command + ' -AgentType 4 '
  6324.             
  6325.             EXEC @retcode = msdb.dbo.sp_update_jobstep @job_id=@job_id, @step_id=1, 
  6326.                 @on_success_action = 1,
  6327.                 @on_fail_action = 2,
  6328.                 @command=@job_command
  6329.             IF @@ERROR <> 0 or @retcode <> 0
  6330.                 GOTO UNDO
  6331.         END
  6332.     END
  6333.  
  6334.     DELETE MSmerge_agents WHERE id = @agent_id
  6335.     IF @@ERROR <> 0 
  6336.         GOTO UNDO
  6337.  
  6338.     -- Remove history       
  6339.     DELETE MSmerge_history WHERE agent_id = @agent_id 
  6340.     IF @@ERROR <> 0 
  6341.         GOTO UNDO
  6342.  
  6343.     -- Update global replication status table
  6344.     EXEC dbo.sp_MSupdate_replication_status
  6345.         @publisher,
  6346.         @publisher_db,
  6347.         @publication,
  6348.         @agent_type = 4,
  6349.         @agent_name = @name,
  6350.         @status = -1    -- delete status 
  6351.  
  6352.     COMMIT TRAN
  6353.  
  6354.     RETURN(0)
  6355.  
  6356. UNDO:
  6357.     if @@TRANCOUNT = 1
  6358.         ROLLBACK TRAN
  6359.     else
  6360.         COMMIT TRAN
  6361.     return(1)
  6362. GO
  6363.  
  6364. raiserror(15339,-1,-1,'sp_MSgetagentoffloadinfo')
  6365. GO
  6366. CREATE PROCEDURE sp_MSgetagentoffloadinfo (
  6367.     @job_id     VARBINARY(16)
  6368.     ) AS
  6369.  
  6370.     SET NOCOUNT ON
  6371.     DECLARE @agenttype NVARCHAR(20)
  6372.     DECLARE @offload_enabled bit
  6373.     DECLARE @offload_server  sysname
  6374.     DECLARE @agent_table     sysname  -- For use in error message
  6375.     DECLARE @independent_agent bit
  6376.  
  6377.     SELECT @agenttype = NULL
  6378.     SELECT @agent_table = RTRIM(@@SERVERNAME) + N'.dbo.'
  6379.     SELECT @independent_agent = 0
  6380.         
  6381.     SELECT @agenttype = LOWER(subsystem)
  6382.       FROM msdb..sysjobsteps
  6383.      WHERE job_id = @job_id
  6384.        AND LOWER(subsystem) IN (N'distribution', N'merge')
  6385.  
  6386.     IF @agenttype IS NULL
  6387.     BEGIN
  6388.         RAISERROR(21134, 16, -1)
  6389.         RETURN 1
  6390.     END
  6391.  
  6392.     IF @agenttype = N'distribution'
  6393.     BEGIN
  6394.         SELECT @offload_enabled = offload_enabled, 
  6395.                @offload_server = offload_server 
  6396.           FROM dbo.MSdistribution_agents da
  6397.     INNER JOIN dbo.MSsubscriptions s 
  6398.             ON da.id = s.agent_id
  6399.          WHERE job_id = @job_id        
  6400.         SELECT @agent_table = @agent_table + N'MSdistribution_agents'
  6401.     END
  6402.     ELSE
  6403.     BEGIN
  6404.         SELECT @offload_enabled = offload_enabled, 
  6405.                @offload_server = offload_server
  6406.           FROM dbo.MSmerge_agents
  6407.          WHERE job_id = @job_id 
  6408.         SELECT @agent_table = @agent_table + N'MSmerge_agents'
  6409.     END
  6410.  
  6411.     IF @@ROWCOUNT = 0
  6412.     BEGIN
  6413.         RAISERROR(21135, 16, -1, @agent_table)
  6414.         RETURN 1
  6415.     END
  6416.  
  6417.     IF @agenttype = N'distribution'
  6418.     BEGIN
  6419.         SELECT 'offload_enabled' = @offload_enabled,
  6420.                'offload_server' = @offload_server,
  6421.                'independent_agent' = @independent_agent
  6422.     END
  6423.     ELSE
  6424.     BEGIN
  6425.         SELECT 'offload_enabled' = @offload_enabled,
  6426.                'offload_server' = @offload_server
  6427.     END
  6428.  
  6429.     RETURN 0
  6430. GO
  6431.  
  6432. raiserror(15339,-1,-1,'sp_MSadd_merge_agent')
  6433. GO
  6434. CREATE PROCEDURE sp_MSadd_merge_agent (
  6435. -- not null if from scripting
  6436.     @name                           sysname = NULL,
  6437.     @publisher                      sysname,                    /* Publisher server */
  6438.     @publisher_db                   sysname,                    /* Publisher database */
  6439.     @publication                    sysname,                    /* Publication name */
  6440.     @subscriber                     sysname,                    /* Subscriber server */
  6441.     @subscriber_db                  sysname,                    /* Subscription database */
  6442.     @local_job                      bit,
  6443.     @frequency_type                 int = NULL,
  6444.     @frequency_interval             int = NULL,             
  6445.     @frequency_relative_interval    int = NULL, 
  6446.     @frequency_recurrence_factor    int = NULL, 
  6447.     @frequency_subday               int = NULL,
  6448.     @frequency_subday_interval      int = NULL,    
  6449.     @active_start_time_of_day       int = NULL, 
  6450.     @active_end_time_of_day         int = NULL,         
  6451.     @active_start_date              int = NULL, 
  6452.     @active_end_date                int = NULL,
  6453.     @optional_command_line          nvarchar(255) = '',     /* Optional command line arguments */
  6454.     @merge_jobid                    binary(16) = NULL OUTPUT,
  6455.     -- Agent offload
  6456.     @offloadagent                   bit = 0,
  6457.     @offloadserver                  sysname = NULL,
  6458.     @subscription_type              int = 0 -- 0 = push, 1 = pull
  6459.     ) AS
  6460.  
  6461.     SET NOCOUNT ON
  6462.  
  6463.     /*
  6464.     ** Declarations.
  6465.     */
  6466.     declare @retcode        int
  6467.     DECLARE @publisher_id   smallint
  6468.     DECLARE @subscriber_id  smallint
  6469.     DECLARE @profile_id     int
  6470.     DECLARE @merge_type     int
  6471.     DECLARE @command        nvarchar(4000)
  6472.  
  6473.     DECLARE @subscriber_security_mode       int                 /* 0 standard; 1 integrated */
  6474.     DECLARE @subscriber_login               sysname 
  6475.     DECLARE @subscriber_password            nvarchar(524) 
  6476.     DECLARE @subscriber_datasource_type     int     /* 0 SQL Server, 1 ODBC, 2 Jet, 3 OLEDB */
  6477.     DECLARE @distributor                    sysname 
  6478.     DECLARE @distributor_security_mode      int                     /* 0 standard; 1 integrated */
  6479.     DECLARE @distributor_login              sysname 
  6480.     DECLARE @distributor_password           nvarchar(524)
  6481.     DECLARE @database                       sysname
  6482.     DECLARE @agent_id                       int
  6483.     DECLARE @category_name                  sysname
  6484.     DECLARE @dsn_subscriber                 tinyint
  6485.     DECLARE @jet_subscriber                 tinyint
  6486.     DECLARE @oledb_subscriber               tinyint
  6487.     DECLARE @exchange_subscriber            tinyint
  6488.     DECLARE @oracle_subscriber              tinyint
  6489.     DECLARE @db2universal_subscriber        tinyint
  6490.     DECLARE @platform_nt                    binary
  6491.     DECLARE @provider_name                    sysname
  6492.  
  6493.     set @subscriber_security_mode = 1
  6494.     set @subscriber_login = NULL
  6495.     set @subscriber_password = NULL
  6496.     set @distributor = @@SERVERNAME
  6497.  
  6498.     set @dsn_subscriber = 1    /* Const: subscriber type 'dsn' */ 
  6499.     set @jet_subscriber = 2   
  6500.     set @oledb_subscriber = 3 
  6501.     set @exchange_subscriber = 4
  6502.     set @oracle_subscriber = 5 
  6503.     set @db2universal_subscriber = 6
  6504.  
  6505.     set @platform_nt = 0x1  
  6506.     
  6507.     -- Set null @optional_command_line to empty string to avoid string concat problem
  6508.     if @optional_command_line is null
  6509.         set @optional_command_line = ''
  6510.     else
  6511.         set @optional_command_line = N' ' + LTRIM( RTRIM(@optional_command_line) ) + N' '
  6512.  
  6513.     -- Get subscriber security context
  6514.     select  @subscriber_security_mode = security_mode,
  6515.             @subscriber_login = login,
  6516.             @subscriber_password = password
  6517.         from MSsubscriber_info where
  6518.             UPPER(publisher) = UPPER(@publisher) and
  6519.             UPPER(subscriber) = UPPER(@subscriber)
  6520.             
  6521.     -- Always use integrated security on winNT
  6522.     if (@platform_nt = platform() & @platform_nt )
  6523.         set @distributor_security_mode = 1
  6524.     else
  6525.     begin
  6526.         select  @distributor_security_mode = 0,
  6527.                 @distributor_login  = login,
  6528.                 @distributor_password = password
  6529.             from msdb..MSdistpublishers where UPPER(name) = UPPER(@@servername)
  6530.     end
  6531.     
  6532.     /*
  6533.     ** Initializations
  6534.     */
  6535.     -- Get subscriber info
  6536.     select @subscriber_id = srvid from master..sysservers where UPPER(srvname) = UPPER(@subscriber)
  6537.     select @publisher_id = srvid from master..sysservers where UPPER(srvname) = UPPER(@publisher)
  6538.  
  6539.     select @subscriber_datasource_type = type
  6540.         from MSsubscriber_info 
  6541.         where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber)
  6542.  
  6543.     /*
  6544.     ** Jet and Oracle subscribers are actually added to MSsubscriber_info as OLE DB subscribers,
  6545.     ** since they can be used in transactional replication also.
  6546.     ** Map the type to Jet or Oracle based on OLE DB provider name.
  6547.     */
  6548.     if (@subscriber_datasource_type = @oledb_subscriber) 
  6549.     BEGIN
  6550.         select @provider_name = providername from master..sysservers where UPPER(srvname) = UPPER(@subscriber)
  6551.         if (upper(@provider_name) = 'MICROSOFT.JET.OLEDB.4.0')
  6552.             select @subscriber_datasource_type = @jet_subscriber
  6553.         else if (upper(@provider_name) = 'MSDAORA')
  6554.             select @subscriber_datasource_type = @oracle_subscriber
  6555.         else if (upper(@provider_name) = 'DB2OLEDB')
  6556.             select @subscriber_datasource_type = @db2universal_subscriber
  6557.     END
  6558.     
  6559.     if (@subscriber_datasource_type IS NULL)
  6560.         select @subscriber_datasource_type = 0
  6561.  
  6562.     -- if @name is not null, the proc is from DMO scripting
  6563.     -- check to see if the job is there are not, if not, reset @job_existing and
  6564.     -- @name values. This is for the case when the user generate the script at
  6565.     -- the publisher but did not re-create repl jobs at the distributor.
  6566.     if @local_job = 1 and @name is not null and 
  6567.        @name <> N''
  6568.     begin
  6569.         if not exists (select * from msdb..sysjobs_view where 
  6570.             name = @name and
  6571.             UPPER(originating_server) = UPPER(CONVERT(NVARCHAR(30), SERVERPROPERTY('ServerName'))))
  6572.         begin
  6573.             set @name = null
  6574.         end
  6575.     end
  6576.  
  6577.     BEGIN TRAN
  6578.  
  6579.     -- Try to drop it first
  6580.     EXEC dbo.sp_MSdrop_merge_agent 
  6581.         @publisher = @publisher,
  6582.         @publisher_db = @publisher_db,
  6583.         @publication = @publication,
  6584.         @subscriber = @subscriber,
  6585.         @subscriber_db = @subscriber_db
  6586.           
  6587.     IF @@ERROR <> 0
  6588.         GOTO UNDO
  6589.  
  6590.     /* Code for merge agent type in MSagent_profiles */
  6591.     SELECT @merge_type = 4
  6592.  
  6593.     SELECT @profile_id = profile_id
  6594.     FROM msdb..MSagent_profiles
  6595.     WHERE agent_type = @merge_type
  6596.         AND def_profile = 1
  6597.  
  6598.     IF @profile_id IS NULL
  6599.         RETURN (1)
  6600.  
  6601.     /* 
  6602.     ** Insert row
  6603.     */
  6604.     INSERT INTO MSmerge_agents (name, publisher_id, publisher_db, publication, 
  6605.          subscriber_id, subscriber_db, local_job, profile_id)
  6606.          VALUES ('',@publisher_id, @publisher_db, @publication, 
  6607.          @subscriber_id, @subscriber_db, @local_job, @profile_id)
  6608.     IF @@ERROR <> 0
  6609.         GOTO UNDO
  6610.  
  6611.     set @agent_id = @@IDENTITY
  6612.     
  6613.     if @frequency_type is NULL
  6614.         set @frequency_type = 4     /* Daily */
  6615.     if @frequency_interval is NULL
  6616.         set @frequency_interval = 1
  6617.     if @frequency_relative_interval is NULL
  6618.         set @frequency_relative_interval = 1
  6619.     if @frequency_recurrence_factor is NULL
  6620.         set @frequency_recurrence_factor = 0
  6621.     if @frequency_subday is NULL
  6622.         set @frequency_subday = 8   /* Hour */
  6623.     if @frequency_subday_interval is NULL
  6624.         set @frequency_subday_interval = 1
  6625.     if @active_start_time_of_day is NULL
  6626.         set @active_start_time_of_day = 0
  6627.     if @active_end_time_of_day is NULL
  6628.         set @active_end_time_of_day = 235959
  6629.     if @active_start_date is NULL
  6630.         set @active_start_date = 0
  6631.     if @active_end_date is NULL
  6632.         set @active_end_date = 99991231
  6633.  
  6634.     declare @job_existing bit
  6635.     IF @name IS NULL OR @name = N''
  6636.     begin
  6637.         SELECT @name = CONVERT(nvarchar(21),@publisher ) + '-' + CONVERT(nvarchar(21),@publisher_db) + '-' + 
  6638.                         CONVERT(nvarchar(21),@publication) + '-' + CONVERT(nvarchar(21),@subscriber) + '-' +
  6639.                             CONVERT(nvarchar, @@IDENTITY)
  6640.         select @job_existing = 0
  6641.     end
  6642.     else
  6643.         select @job_existing = 1
  6644.     
  6645.     -- If creating a new job and the generated name already exists, re-generate the name with a 
  6646.     -- guid appended
  6647.     IF  @job_existing = 0
  6648.     BEGIN
  6649.         IF EXISTS (SELECT * FROM msdb..sysjobs_view 
  6650.                     WHERE name = @name 
  6651.                       AND UPPER(originating_server) = UPPER(CONVERT(NVARCHAR(30), SERVERPROPERTY('ServerName'))))
  6652.         BEGIN
  6653.             SELECT @name = fn_repluniquename(newid(), @publisher, @publisher_db, 
  6654.                 @publication, @subscriber)
  6655.         END            
  6656.     END
  6657.  
  6658.     -- Add Perfmoon instance
  6659.     dbcc addinstance ("SQL Replication Merge", @name)
  6660.  
  6661.     IF @local_job = 1
  6662.     BEGIN
  6663.         if @job_existing = 0
  6664.         begin
  6665.  
  6666.             /* Construct task command */
  6667.  
  6668.             select @command = '-Publisher ' + QUOTENAME(@publisher) + ' -PublisherDB ' + QUOTENAME(@publisher_db) + ' '
  6669.             select @command = @command + '-Publication ' + QUOTENAME(@publication) + ' '
  6670.             select @command = @command + '-Subscriber ' + QUOTENAME(@subscriber)  + ' '
  6671.  
  6672.             if (@subscriber_datasource_type = 0)
  6673.                 select @command = @command + '-SubscriberDB ' + QUOTENAME(@subscriber_db) + ' '
  6674.         
  6675.             if (@subscriber_datasource_type <> 0)
  6676.                 select @command = @command + '-SubscriberType ' + convert(nvarchar(10),@subscriber_datasource_type) + ' '
  6677.     
  6678.             select @command = @command + @optional_command_line
  6679.             select @command = @command + '-Distributor ' + QUOTENAME(@distributor) + ' '
  6680.  
  6681.             select @command = @command + '-DistributorSecurityMode ' + 
  6682.                 convert(nvarchar(10),@distributor_security_mode) +  ' ' 
  6683.             if @distributor_security_mode <> 1
  6684.             begin
  6685.                 if @distributor_login is not NULL
  6686.                     select @command = @command + '-DistributorLogin ' + @distributor_login + ' '
  6687.                 if @distributor_password is not NULL
  6688.                     select @command = @command + '-DistributorEncryptedPassword ' + quotename(@distributor_password) + ' '
  6689.             end
  6690.  
  6691.             select @database = db_name()
  6692.  
  6693.             -- Get Merge category name (assumes category_id = 14)
  6694.             select @category_name = name FROM msdb.dbo.syscategories where category_id = 14
  6695.  
  6696.             EXEC @retcode = dbo.sp_MSadd_repl_job
  6697.                     @name = @name,
  6698.                     @subsystem = 'Merge',
  6699.                     @server = @@SERVERNAME,
  6700.                     @databasename = @database,
  6701.                     @enabled = 1,
  6702.                     @freqtype = @frequency_type,
  6703.                     @freqinterval = @frequency_interval,
  6704.                     @freqsubtype = @frequency_subday,
  6705.                     @freqsubinterval = @frequency_subday_interval,
  6706.                     @freqrelativeinterval = @frequency_relative_interval,
  6707.                     @freqrecurrencefactor = @frequency_recurrence_factor,
  6708.                     @activestartdate = @active_start_date,
  6709.                     @activeenddate = @active_end_date,
  6710.                     @activestarttimeofday = @active_start_time_of_day,
  6711.                     @activeendtimeofday = @active_end_time_of_day,
  6712.                     @command = @command,
  6713.                     @category_name = @category_name,
  6714.                     @failure_detection = 1,
  6715.                     @agent_id = @agent_id,
  6716.                     @retryattempts = 10,
  6717.                     @retrydelay = 1,
  6718.                     @job_id = @merge_jobid OUTPUT
  6719.             
  6720.             if @@ERROR <> 0 or @retcode <> 0
  6721.                 goto UNDO
  6722.         end
  6723.         else
  6724.         begin
  6725.             select @merge_jobid = job_id from msdb..sysjobs_view where 
  6726.                 name = @name and
  6727.                 UPPER(originating_server) = UPPER(CONVERT(NVARCHAR(30), SERVERPROPERTY('ServerName')))
  6728.             if @merge_jobid IS NULL
  6729.             begin
  6730.                 -- Message from msdb.dbo.sp_verify_job_identifiers
  6731.                 RAISERROR(14262, -1, -1, 'Job', @name)          
  6732.                 GOTO UNDO
  6733.             end
  6734.         end
  6735.     END /* for local_job = 1 */
  6736.     ELSE 
  6737.     BEGIN
  6738.         -- Generate a job GUID for remote agents. This will be used by the UI to uniquely
  6739.         -- identify rows returned by the enums
  6740.         set @merge_jobid = newid();
  6741.     END
  6742.             
  6743.     UPDATE MSmerge_agents SET name = @name,
  6744.         job_id = @merge_jobid WHERE
  6745.         id = @agent_id
  6746.  
  6747.     IF @@ERROR <> 0
  6748.         GOTO UNDO
  6749.  
  6750.  
  6751.     IF @subscription_type = 0
  6752.     BEGIN
  6753.         -- Add offload parameter to agent command line if necessary
  6754.         IF @offloadagent = 1 
  6755.         BEGIN
  6756.             EXEC @retcode = sp_MSenableagentoffload @job_id = @merge_jobid,
  6757.                                             @offloadserver = @offloadserver
  6758.         END
  6759.         ELSE
  6760.         BEGIN
  6761.             EXEC @retcode = sp_MSdisableagentoffload @job_id = @merge_jobid,
  6762.                                             @offloadserver = @offloadserver 
  6763.         END
  6764.         IF @@ERROR <> 0 OR @retcode <> 0
  6765.             GOTO UNDO
  6766.  
  6767.     END
  6768.  
  6769.     -- Update global replication status table
  6770.     EXEC dbo.sp_MSupdate_replication_status
  6771.         @publisher,
  6772.         @publisher_db,
  6773.         @publication,
  6774.         @publication_type = 1, -- Merge 
  6775.         @agent_type = 4,
  6776.         @agent_name = @name,
  6777.         @status = 0     -- not running status
  6778.  
  6779.     COMMIT TRAN
  6780.  
  6781.     RETURN(0)
  6782.  
  6783. UNDO:
  6784.     if @@TRANCOUNT = 1
  6785.         ROLLBACK TRAN
  6786.     else
  6787.         COMMIT TRAN
  6788.     return(1)
  6789. GO
  6790.  
  6791. raiserror(15339,-1,-1,'sp_MSdrop_subscription')
  6792. GO
  6793. CREATE PROCEDURE sp_MSdrop_subscription
  6794. @publisher sysname,
  6795. @publisher_db sysname,
  6796. @subscriber sysname,
  6797. @article_id int = NULL,
  6798. @subscriber_db sysname = NULL,
  6799. @publication sysname = NULL,
  6800. @article sysname = NULL
  6801.  
  6802. as
  6803.  
  6804.     set nocount on
  6805.  
  6806.     declare @publisher_id smallint
  6807.     declare @subscriber_id smallint
  6808.     declare @name nvarchar (100)
  6809.     declare @retcode int
  6810.     declare @push tinyint
  6811.     declare @anonymous tinyint
  6812.     declare @keep_for_last_run bit
  6813.     declare @virtual smallint
  6814.     declare @virtual_anonymous smallint
  6815.     declare @independent_agent bit
  6816.     declare @publication_id int
  6817.     declare @subscription_type int
  6818.     declare @thirdparty_flag bit
  6819.     declare @id             int
  6820.     declare @publication_name sysname
  6821.     declare @queued_sub_precount int
  6822.  
  6823.     select @push = 0        -- const: push subscription type 
  6824.     select @anonymous = 2   -- const: push subscription type 
  6825.     select @virtual = -1    -- const: virtual subscriber id 
  6826.     select @virtual_anonymous = -2  -- const: virtual anonymous subscriber id 
  6827.  
  6828.     -- Select the current count of the queued subscribers prior to 
  6829.     -- dropping this subscription
  6830.     select @queued_sub_precount = count(*) from dbo.MSsubscriptions where update_mode in (2,3,4,5)
  6831.  
  6832.     -- Save off name for dummy status row
  6833.     select @publication_name = @publication
  6834.  
  6835.     -- Check if publisher is a defined as a distribution publisher in the current database
  6836.     exec @retcode = dbo.sp_MSvalidate_distpublisher @publisher, @publisher_id OUTPUT
  6837.     if @retcode <> 0
  6838.     begin
  6839.         return(1)
  6840.     end
  6841.  
  6842.     -- Check if subscriber exists
  6843.     if @subscriber is null
  6844.     begin
  6845.         select @subscriber_id = @virtual
  6846.         -- hardcoded in sp_MSadd_subscription
  6847.         select @subscriber_db = 'virtual'
  6848.     end
  6849.     else
  6850.         select @subscriber_id = srvid from master..sysservers, MSsubscriber_info where 
  6851.             UPPER(srvname) = UPPER(@subscriber) and
  6852.             UPPER(subscriber) = UPPER(@subscriber) and
  6853.             UPPER(publisher) = UPPER(@publisher)
  6854.     if @subscriber_id is NULL
  6855.     begin
  6856.         raiserror (20032, 16, -1, @subscriber, @publisher) 
  6857.         return (1)
  6858.     end
  6859.  
  6860.     -- If publication exists this is a post 6.x publisher
  6861.     if @publication is not NULL
  6862.     begin
  6863.         select @publication_id = publication_id,
  6864.                @thirdparty_flag = thirdparty_flag
  6865.             from MSpublications where
  6866.             publisher_id = @publisher_id and
  6867.             publisher_db = @publisher_db and
  6868.             publication = @publication
  6869.             
  6870.         -- Get article_id 
  6871.         if @article is not NULL and @article_id = 0
  6872.         begin
  6873.             select @article_id = article_id from MSarticles where 
  6874.                 publisher_id = @publisher_id and
  6875.                 publisher_db = @publisher_db and
  6876.                 publication_id = @publication_id and
  6877.                 article = @article
  6878.         end
  6879.         -- Check that subscription exists
  6880.         -- Only do the check for post 6x publisher
  6881.         if not exists (select * from MSsubscriptions where 
  6882.             publisher_id = @publisher_id and 
  6883.             publisher_db = @publisher_db and 
  6884.             publication_id = @publication_id and
  6885.             subscriber_id = @subscriber_id and
  6886.             subscriber_db = @subscriber_db)
  6887.         begin
  6888.             if @thirdparty_flag = 1
  6889.             begin
  6890.                 raiserror (14050, 16, -1)
  6891.                 return(1)
  6892.             end
  6893.             else
  6894.                 return (0)
  6895.         end
  6896.     end
  6897.  
  6898.     -- get the subscription type
  6899.     -- used when dropping dist agent
  6900.     select @subscription_type = subscription_type, 
  6901.         @independent_agent = independent_agent
  6902.         from MSsubscriptions where
  6903.         publisher_id = @publisher_id and
  6904.         publisher_db = @publisher_db and
  6905.         (publication_id = @publication_id or
  6906.          @publication_id is NULL) and
  6907.         (@article_id is NULL or
  6908.         article_id = @article_id) and
  6909.         (subscriber_id = @subscriber_id and
  6910.         (subscriber_db = @subscriber_db or @subscriber_id = @virtual))
  6911.  
  6912.     begin transaction
  6913.     save transaction MSdrop_subscription
  6914.  
  6915.     -- Delete the subscription 
  6916.     -- For anonymous type, delete virtual anonymous subscription also
  6917.     -- if deleting the  virtual subscription 
  6918.     -- (since there can be only one subscriber_id per article, subscriber_db doesn't matter)
  6919.     delete from MSsubscriptions where
  6920.         publisher_id = @publisher_id and
  6921.         publisher_db = @publisher_db and
  6922.         (publication_id = @publication_id or
  6923.          @publication_id is NULL) and
  6924.         (@article_id is NULL or
  6925.         article_id = @article_id) and
  6926.         ((subscriber_id = @subscriber_id and
  6927.         (subscriber_db = @subscriber_db or @subscriber_id = @virtual)) or
  6928.         -- Delete virtual anonymous subscription 
  6929.         -- if deleting virtual subscription for a anonymous publication
  6930.        (@subscriber_id = @virtual and subscriber_id = @virtual_anonymous))
  6931.  
  6932.     if @@error <> 0
  6933.     begin
  6934.         if @@trancount > 0
  6935.         begin
  6936.             rollback transaction MSdrop_subscription
  6937.             commit transaction  -- to finish off the tran we started in this proc (though 
  6938.                             -- work was rolled back to savepoint)
  6939.         end
  6940.         return 1
  6941.     end
  6942.     
  6943.     -- If it is the last subscription for the distribution agent, drop the dist agent
  6944.     if not exists (select * from MSsubscriptions    where
  6945.         publisher_id = @publisher_id and
  6946.         publisher_db = @publisher_db and
  6947.         (publication_id = @publication_id or
  6948.         @publication_id is NULL or
  6949.          @independent_agent = 0 ) and
  6950.         independent_agent = @independent_agent and
  6951.         subscriber_id = @subscriber_id and
  6952.         subscriber_db = @subscriber_db and
  6953.         subscription_type = @subscription_type)
  6954.     begin
  6955.         -- Harded coded in sp_MSadd_subscription.
  6956.         if @independent_agent = 0
  6957.             select @publication = 'ALL'
  6958.         /*
  6959.         ** Get agentid to check history record
  6960.         */
  6961.         select @id=id from MSdistribution_agents where 
  6962.         publisher_id = @publisher_id and
  6963.         publisher_db = @publisher_db and
  6964.         publication = @publication and
  6965.         subscriber_id = @subscriber_id and
  6966.         subscriber_db = @subscriber_db
  6967.  
  6968.     /*
  6969.     ** If the subscription has not yet been synced, there is no need for subscriber side cleanup 
  6970.     ** therefore no need for the last agent run.
  6971.     */
  6972.     if exists (select * from MSdistribution_history where agent_id = @id)
  6973.         select @keep_for_last_run = 0 -- default is not to do cleanup
  6974.     else 
  6975.         select @keep_for_last_run = 0
  6976.  
  6977.  
  6978.     /*
  6979.     ** Delete distribution task.
  6980.     */
  6981.         execute @retcode = dbo.sp_MSdrop_distribution_agent 
  6982.             @publisher_id = @publisher_id,
  6983.             @publisher_db = @publisher_db,
  6984.             @publication = @publication,
  6985.             @subscriber_id = @subscriber_id,
  6986.             @subscriber_db = @subscriber_db,
  6987.             @subscription_type = @subscription_type,
  6988.             @keep_for_last_run = @keep_for_last_run  
  6989.  
  6990.         if @@error <> 0 or @retcode <> 0
  6991.         begin
  6992.             if @@trancount > 0
  6993.             begin
  6994.                 rollback transaction MSdrop_subscription
  6995.                 commit transaction  -- to finish off the tran we started in this proc (though 
  6996.                                 -- work was rolled back to savepoint)
  6997.             end
  6998.             return 1
  6999.         end
  7000.     end
  7001.  
  7002.     
  7003.     -- Delete anonymous agents that are not in subscription table anymore
  7004.     -- It is due to dropping articles. Don't raise messages
  7005.     if @subscriber_id = @virtual
  7006.     begin
  7007.         delete MSdistribution_agents where
  7008.             anonymous_agent_id is not null and 
  7009.             not exists (select * from MSsubscriptions s where
  7010.                 s.agent_id = anonymous_agent_id)
  7011.  
  7012.  
  7013.         if @@error <> 0
  7014.         begin
  7015.             if @@trancount > 0
  7016.             begin
  7017.                 rollback transaction MSdrop_subscription
  7018.                 commit transaction  -- to finish off the tran we started in this proc (though 
  7019.                                 -- work was rolled back to savepoint)
  7020.             end
  7021.             return 1
  7022.         end
  7023.     end
  7024.  
  7025.  
  7026.     -- delete any rows in syncstate tracking table
  7027.  
  7028.     delete MSsync_states where 
  7029.         publisher_id = @publisher_id and
  7030.         publisher_db = @publisher_db and
  7031.         publication_id = @publication_id 
  7032.  
  7033.     if @@error <> 0
  7034.     begin
  7035.         if @@trancount > 0
  7036.         begin
  7037.             rollback transaction MSdrop_subscription
  7038.             commit transaction  -- to finish off the tran we started in this proc (though 
  7039.                             -- work was rolled back to savepoint)
  7040.         end
  7041.         return 1
  7042.     end
  7043.  
  7044.  
  7045.     commit transaction
  7046.  
  7047.     --  Add dummy distribution aent row entry for publication.  This will allow the status
  7048.     --  for the shared distribution agent to be restricted
  7049.     if @publication_name IS NOT NULL
  7050.     begin
  7051.         EXEC dbo.sp_MSupdate_replication_status
  7052.             @publisher,
  7053.             @publisher_db,
  7054.             @publication_name, 
  7055.             @agent_type = 3,   
  7056.             @agent_name = NULL, 
  7057.             @status = -1    -- delete
  7058.     end
  7059.  
  7060.     -- Refresh global status table. 
  7061.     EXEC dbo.sp_MSupdate_replication_status
  7062.         @publisher,
  7063.         @publisher_db,
  7064.         @publication = '%',    -- refresh the publisher node.
  7065.         @agent_type = NULL,    -- Not used    with @status = -2
  7066.         @agent_name = NULL, -- Not used with @status = -2
  7067.         @status = -2    -- refresh status
  7068.  
  7069.     -- Check to see if we need to drop the qreader agent
  7070.     if (@@error = 0 and @queued_sub_precount = 1 and
  7071.         not exists (select * from dbo.MSsubscriptions where update_mode in (2,3,4,5)))
  7072.     begin
  7073.         declare @agent_id int
  7074.         
  7075.         select top 1 @agent_id = id from dbo.MSqreader_agents
  7076.         if (@agent_id is not null)
  7077.             execute dbo.sp_MSdrop_qreader_agent @agent_id
  7078.     end    
  7079.  
  7080. GO
  7081.  
  7082. raiserror(15339,-1,-1,'sp_MSadd_subscription')
  7083. GO
  7084. CREATE PROCEDURE sp_MSadd_subscription
  7085. @publisher sysname,
  7086. @publisher_db sysname,
  7087. @subscriber sysname,       
  7088. @article_id int = NULL,
  7089. @subscriber_db sysname = NULL,
  7090. @status tinyint,                    -- 0 = inactive, 1 = subscribed, 2 = active 
  7091. @subscription_seqno varbinary(16),  -- publisher's database sequence number 
  7092.  
  7093. -- Post 6.5 parameters
  7094. @publication sysname = NULL,    -- 6.x publishers will not provide this
  7095. @article sysname = NULL,
  7096. @subscription_type tinyint = 0,     -- 0 = push, 1 = pull, 2 = anonymous 
  7097. @sync_type tinyint = 0,             -- 0 = none  1 = automatic snaphot  2 = no intial snapshot
  7098. @snapshot_seqno_flag bit = 0,       -- 1 = subscription seqno is the snapshot seqno
  7099.  
  7100. @frequency_type int = NULL,
  7101. @frequency_interval int = NULL,
  7102. @frequency_relative_interval int = NULL,
  7103. @frequency_recurrence_factor int = NULL,
  7104. @frequency_subday int = NULL,
  7105. @frequency_subday_interval int = NULL,
  7106. @active_start_time_of_day int = NULL,
  7107. @active_end_time_of_day int = NULL,
  7108. @active_start_date int = NULL,
  7109. @active_end_date int = NULL,
  7110. @optional_command_line nvarchar(4000) = '',
  7111.  
  7112. -- synctran
  7113. @update_mode tinyint = 0, -- 0 = read only, 1 = sync tran, 2 = queued tran, 
  7114.                           -- 3 = failover, 4 = sqlqueued tran, 5 = sqlqueued failover
  7115. @loopback_detection bit = 0,
  7116. @distribution_jobid binary(16) = NULL OUTPUT,
  7117.  
  7118. -- agent offload
  7119. @offloadagent  bit = 0,
  7120. @offloadserver sysname = NULL,
  7121.  
  7122. -- If agent is already created, the package name will be ignored.         
  7123. @dts_package_name sysname = NULL,
  7124. @dts_package_password nvarchar(524) = NULL,
  7125. @dts_package_location    int = 0,
  7126. @distribution_job_name sysname = NULL
  7127.  
  7128. as
  7129.  
  7130.     set nocount on
  7131.     declare @publisher_id smallint
  7132.     declare @subscriber_id smallint
  7133.     declare @command nvarchar (4000)
  7134.     declare @type tinyint
  7135.     declare @database sysname
  7136.     declare @long_name nvarchar (255)
  7137.     declare @retcode int
  7138.     declare @login sysname
  7139.     declare @password nvarchar(524)
  7140.     declare @retryattempts int
  7141.     declare @retrydelay int
  7142.     declare @virtual smallint                       -- const: virtual subscriber id 
  7143.     declare @virtual_anonymous smallint                 -- const: virtual anonymous subscriber id 
  7144.     declare @publication_str nvarchar (32)
  7145.     declare @agent_id int
  7146.     declare @publication_id int
  7147.     declare @independent_agent bit
  7148.     declare @allow_pull bit
  7149.     declare @active tinyint
  7150.  
  7151.     declare @flushfrequency int 
  7152.     declare @frequencytype int
  7153.     declare @frequencyinterval int 
  7154.     declare @frequencyrelativeinterval int
  7155.     declare @frequencyrecurrencefactor int 
  7156.     declare @frequencysubday int 
  7157.     declare @frequencysubdayinterval int
  7158.     declare @activestarttimeofday int
  7159.     declare @activeendtimeofday int
  7160.     declare @activestartdate int 
  7161.     declare @activeenddate int 
  7162.     DECLARE @dsn_subscriber tinyint
  7163.     DECLARE @jet_subscriber tinyint
  7164.     DECLARE @oledb_subscriber tinyint
  7165.     declare @thirdparty_flag bit
  7166.  
  7167.     DECLARE @distributor_security_mode      int                     /* 0 standard; 1 integrated */
  7168.     DECLARE @distributor_login              sysname 
  7169.     DECLARE @distributor_password           nvarchar(524)
  7170.     DECLARE @publisher_database_id int
  7171.     DECLARE @platform_nt binary
  7172.     declare @anonymous_agent_id int
  7173.     DECLARE @agent_name nvarchar(100)
  7174.     DECLARE @publication_name sysname
  7175.  
  7176.     -- Store off publication name for dummy monitor row
  7177.     select @publication_name = @publication
  7178.  
  7179.     -- Defined in sqlrepl.h
  7180.     -- Set null @optional_command_line to empty string to avoid string concat problem
  7181.     if @optional_command_line is null
  7182.         set @optional_command_line = ''
  7183.     else
  7184.         set @optional_command_line = N' ' + LTRIM( RTRIM(@optional_command_line) ) + N' '
  7185.  
  7186.     select @dsn_subscriber = 1    /* Const: subscriber type 'dsn' */ 
  7187.     select @jet_subscriber = 2   
  7188.     select @oledb_subscriber = 3   
  7189.  
  7190.     select @virtual = -1
  7191.     select @virtual_anonymous = -2
  7192.  
  7193.     select @active = 2
  7194.  
  7195.     select @platform_nt = 0x1
  7196.  
  7197.     -- Check if publisher is a defined as a distribution publisher in the current database
  7198.     exec @retcode = dbo.sp_MSvalidate_distpublisher @publisher, @publisher_id OUTPUT
  7199.     if @retcode <> 0 or @@error <> 0
  7200.     begin
  7201.         return(1)
  7202.     end
  7203.  
  7204.     -- Check if subscriber exists
  7205.     if @subscriber is null
  7206.     begin
  7207.       select @subscriber_id = @virtual
  7208.       -- The following 2 variables are hardcoded in sp_MSget_repl_cmds_anonymous 
  7209.       select @subscriber_db = 'virtual'
  7210.       select @subscription_type = 0
  7211.     end
  7212.     else
  7213.         select @subscriber_id = srvid from master..sysservers, MSsubscriber_info where 
  7214.             UPPER(srvname) = UPPER(@subscriber) and
  7215.             UPPER(subscriber) = UPPER(@subscriber) and
  7216.             UPPER(publisher) = UPPER(@publisher)
  7217.     if @subscriber_id is NULL
  7218.     begin
  7219.         raiserror (20032, 16, -1, @subscriber, @publisher) 
  7220.         return (1)
  7221.     end
  7222.     -- Special logic for 6.5 publisher.
  7223.     -- If publisher_id, publisher_db pair is not in MSpublisher_databases then add it.  This will be used
  7224.     -- to store a publisher_database_id in the MSrepl_transactions and MSrepl_commands table.
  7225.     if @publication is null
  7226.     begin
  7227.         if not exists (select * from MSpublisher_databases where publisher_id = @publisher_id and
  7228.             publisher_db = @publisher_db)
  7229.         begin
  7230.             insert into MSpublisher_databases (publisher_id, publisher_db) values (@publisher_id, @publisher_db)
  7231.             if @@error <> 0
  7232.                 goto UNDO
  7233.         end
  7234.     end
  7235.     
  7236.     -- Get publisher_database_id
  7237.     select @publisher_database_id = id from MSpublisher_databases where publisher_id = @publisher_id and
  7238.         publisher_db = @publisher_db
  7239.     if @@error <> 0
  7240.         return 1
  7241.  
  7242.     -- If publication exists this is a post 6.x publisher
  7243.     if @publication is not NULL
  7244.     begin
  7245.         select @publication_id = publication_id, 
  7246.             @independent_agent = independent_agent, @allow_pull = allow_pull,
  7247.             @thirdparty_flag = thirdparty_flag from 
  7248.             MSpublications where 
  7249.             publisher_id = @publisher_id and
  7250.             publisher_db = @publisher_db and
  7251.             publication = @publication
  7252.         if @publication_id is NULL
  7253.         begin
  7254.             raiserror (20026, 11, -1, @publication)
  7255.             return (1)
  7256.         end
  7257.  
  7258.         -- Check if article_id exists
  7259.         if @article_id is not NULL 
  7260.         begin
  7261.             if not exists (select * from MSarticles where 
  7262.                 publisher_id = @publisher_id and
  7263.                 publisher_db = @publisher_db and
  7264.                 article_id = @article_id)
  7265.             begin
  7266.                 raiserror (20027, 11, -1, @article) 
  7267.                 return (1)
  7268.             end
  7269.         end
  7270.  
  7271.         -- Check if article exists
  7272.         if @article is not NULL and @article_id is NULL
  7273.         begin
  7274.             select @article_id = article_id from MSarticles where 
  7275.                 publisher_id = @publisher_id and
  7276.                 publisher_db = @publisher_db and
  7277.                 article = @article
  7278.             if @article_id is NULL
  7279.             begin
  7280.                 raiserror (20027, 11, -1, @article) 
  7281.                 return (1)
  7282.             end
  7283.         end
  7284.     end
  7285.     else
  7286.     begin   -- Set 6.x publishing values
  7287.         select @publication_id = 0
  7288.         select @independent_agent = 0
  7289.         select @allow_pull = 0
  7290.         select @thirdparty_flag = 0
  7291.     end
  7292.  
  7293.     -- Make sure subscription does not already exist
  7294.     if exists (select * from MSsubscriptions where 
  7295.         publisher_id = @publisher_id and 
  7296.         publisher_db = @publisher_db and 
  7297.         publication_id = @publication_id and
  7298.         article_id = @article_id and
  7299.         subscriber_id = @subscriber_id and
  7300.         subscriber_db = @subscriber_db)
  7301.     begin
  7302.         if @thirdparty_flag = 1
  7303.         begin
  7304.             raiserror (14058, 16, -1)
  7305.             return(1)
  7306.         end
  7307.         else
  7308.         begin
  7309.             exec @retcode = dbo.sp_MSdrop_subscription
  7310.                 @publisher = @publisher,
  7311.                 @publisher_db = @publisher_db,
  7312.                 @subscriber = @subscriber,
  7313.                 @article_id = @article_id,
  7314.                 @subscriber_db = @subscriber_db,
  7315.                 @publication = @publication,
  7316.                 @article = @article
  7317.             if @retcode <> 0 or @@error <> 0
  7318.             begin
  7319.                 return(1)
  7320.             end
  7321.         end
  7322.     end
  7323.  
  7324.     -- Check to see if we need to add a new distribution agent for the subscription.
  7325.     -- It is database wide for non independent agent publications, and publication wide otherwise.
  7326.     -- Check to see if the distribution agent for this subscription is already added.
  7327.  
  7328.     select @agent_id = NULL
  7329.     select @agent_id = agent_id from 
  7330.         MSsubscriptions where
  7331.         publisher_id = @publisher_id and
  7332.         publisher_db = @publisher_db and
  7333.         subscription_type = @subscription_type and
  7334.         (publication_id = @publication_id or @independent_agent = 0) and
  7335.         independent_agent = @independent_agent and 
  7336.         subscriber_id = @subscriber_id and
  7337.         subscriber_db = @subscriber_db
  7338.  
  7339.     if @subscriber_id = @virtual
  7340.     begin
  7341.         select @anonymous_agent_id = agent_id from 
  7342.             MSsubscriptions where
  7343.             publisher_id = @publisher_id and
  7344.             publisher_db = @publisher_db and
  7345.             subscription_type = @subscription_type and
  7346.             (publication_id = @publication_id or @independent_agent = 0) and
  7347.             independent_agent = @independent_agent and 
  7348.             subscriber_id = @virtual_anonymous and
  7349.             subscriber_db = @subscriber_db
  7350.     end
  7351.     
  7352.     -- Always use integrated security on winNT
  7353.     if (@platform_nt = platform() & @platform_nt )
  7354.         set @distributor_security_mode = 1
  7355.     else
  7356.     begin
  7357.         select  @distributor_security_mode = 0,
  7358.                 @distributor_login  = login,
  7359.                 @distributor_password = password
  7360.             from msdb..MSdistpublishers where UPPER(name) = UPPER(@@servername)
  7361.     end
  7362.  
  7363.     --Get default task parameter values from MSsubscriber_info 
  7364.     select @type = type
  7365.     from MSsubscriber_info 
  7366.     where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber)
  7367.  
  7368.     -- Only SQL Server and OLEDB subscriber support dts
  7369.     if @dts_package_name is not null and @type not in (0, @oledb_subscriber)
  7370.     begin
  7371.         -- Only sqlserver or oledb sub are allowed
  7372.         raiserror(21170, 16, -1)
  7373.         return 1
  7374.     end
  7375.  
  7376.     begin tran
  7377.     save transaction MSadd_subscription
  7378.  
  7379.     if @agent_id is NOT NULL
  7380.     begin
  7381.         select @distribution_jobid = job_id from MSdistribution_agents
  7382.             where id = @agent_id
  7383.     end
  7384.     else
  7385.     begin
  7386.  
  7387.  
  7388.         -- Create distribution agent
  7389.         -- Do not create local job if
  7390.         -- 1. virtual subscription 
  7391.         -- 2. no subscriber information, return (6.x legacy)
  7392.         -- 3. pull (this sp will not be called for anonymous subscription)
  7393.  
  7394.         declare @local_job bit
  7395.  
  7396.         if @subscriber_id = @virtual or 
  7397.             not exists (select * from MSsubscriber_info where
  7398.                 UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber)) OR 
  7399.             @subscription_type = 1 
  7400.  
  7401.             select @local_job = 0
  7402.         else
  7403.             select @local_job = 1
  7404.  
  7405.         -- 'ALL' is reserved for indication all publications
  7406.         -- Hardcoded in sp_MSenum*... 
  7407.         -- Note! @publication is overwritten
  7408.         
  7409.         if @independent_agent = 0
  7410.             select @publication = 'ALL'
  7411.  
  7412.         if @local_job = 1
  7413.         begin
  7414.             select 
  7415.                 @frequencytype = frequency_type,
  7416.                 @frequencyinterval = frequency_interval,
  7417.                 @frequencyrelativeinterval = frequency_relative_interval,
  7418.                 @frequencyrecurrencefactor = frequency_recurrence_factor,
  7419.                 @frequencysubday = frequency_subday,
  7420.                 @frequencysubdayinterval = frequency_subday_interval,
  7421.                 @activestarttimeofday = active_start_time_of_day,
  7422.                 @activeendtimeofday = active_end_time_of_day,
  7423.                 @activestartdate = active_start_date,
  7424.                 @activeenddate = active_end_date
  7425.             from MSsubscriber_schedule 
  7426.             where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = 0    
  7427.  
  7428.             if @frequency_type is null
  7429.                 select @frequency_type = @frequencytype
  7430.  
  7431.             if @frequency_interval  is null
  7432.                 select  @frequency_interval = @frequencyinterval
  7433.  
  7434.             if @frequency_relative_interval is null
  7435.                 select  @frequency_relative_interval = @frequencyrelativeinterval
  7436.  
  7437.             if @frequency_recurrence_factor is null
  7438.                 select  @frequency_recurrence_factor = @frequencyrecurrencefactor
  7439.  
  7440.             if @frequency_subday is null
  7441.                 select  @frequency_subday = @frequencysubday
  7442.  
  7443.             if @frequency_subday_interval is null
  7444.                 select  @frequency_subday_interval = @frequencysubdayinterval
  7445.  
  7446.             if @active_start_time_of_day is null
  7447.                 select  @active_start_time_of_day = @activestarttimeofday
  7448.  
  7449.             if @active_end_time_of_day is null
  7450.                 select  @active_end_time_of_day = @activeendtimeofday
  7451.  
  7452.             if @active_start_date is null
  7453.                 select  @active_start_date = @activestartdate
  7454.  
  7455.             if @active_end_date is null
  7456.                 select  @active_end_date = @activeenddate
  7457.  
  7458.             -- Construct task command 
  7459.             select @command = '-Subscriber ' + QUOTENAME(@subscriber)  + ' '
  7460.  
  7461.             declare @dsn_dbname sysname
  7462.             SELECT @dsn_dbname = formatmessage(20586)
  7463.             -- DSN subscribers don't have a subscriber db name.
  7464.             if @subscriber_db is not NULL --AND @type NOT IN( @dsn_subscriber,@jet_subscriber, @oledb_subscriber)
  7465.             -- 7.0 publisher still uses DSN. 8.0 publisher use localized '(default destination)'
  7466.             -- ActiveX may use unlocalized '(default destination)'
  7467.             AND @subscriber_db NOT IN( N'(default destination)', N'DSN', @dsn_dbname)
  7468.             begin
  7469.                 select @command = @command  + '-SubscriberDB ' + QUOTENAME(@subscriber_db) + ' '
  7470.             end
  7471.             select @command = @command + '-Publisher ' + QUOTENAME(@publisher) + ' '
  7472.             select @command = @command + '-Distributor ' + QUOTENAME(@@SERVERNAME) + ' '
  7473.  
  7474.             select @command = @command + '-DistributorSecurityMode ' + 
  7475.                 convert(nvarchar(10),@distributor_security_mode) +  ' ' 
  7476.             if @distributor_security_mode <> 1
  7477.             begin
  7478.                 if @distributor_login is not NULL
  7479.                     select @command = @command + '-DistributorLogin ' + @distributor_login + ' '
  7480.                 if @distributor_password is not NULL
  7481.                     select @command = @command + '-DistributorEncryptedPassword ' + quotename(@distributor_password) + ' '
  7482.             end
  7483.  
  7484.             if @independent_agent = 1
  7485.                 select @command = @command +'-Publication ' + QUOTENAME(@publication) + ' '
  7486.  
  7487.             if @publisher_db is not NULL
  7488.                 select @command = @command + '-PublisherDB ' + QUOTENAME(@publisher_db) + ' '
  7489.  
  7490.             if @type = @dsn_subscriber or @type = @oledb_subscriber
  7491.               select @command = @command + '-SubscriberType ' + convert (nvarchar(10),@type) + ' '
  7492.             
  7493.             if @dts_package_name is not null
  7494.               select @command = @command + '-UseDTS '
  7495.             
  7496.  
  7497.             -- 64 is auto-start. Agents should be in continuous mode. sp_MSadd_repl_job will append "-Continuous" to the end of command line
  7498.  
  7499.             if datalength(@command) + datalength(@optional_command_line) > 8000
  7500.             begin
  7501.                 RAISERROR(20018, 16, -1)
  7502.                 RETURN(1)
  7503.             end
  7504.             select @command = @command + @optional_command_line
  7505.             
  7506.             execute @retcode = dbo.sp_MSadd_distribution_agent
  7507.                 @publisher_id = @publisher_id,
  7508.                 @publisher_db = @publisher_db,
  7509.                 @publication = @publication,
  7510.                 @subscriber_id = @subscriber_id,
  7511.                 @subscriber_db = @subscriber_db,
  7512.                 @subscription_type = @subscription_type,
  7513.                 @local_job = @local_job,
  7514.                 @frequency_type = @frequency_type,
  7515.                 @frequency_interval = @frequency_interval,
  7516.                 @frequency_subday = @frequency_subday,
  7517.                 @frequency_subday_interval = @frequency_subday_interval,
  7518.                 @frequency_relative_interval = @frequency_relative_interval,
  7519.                 @frequency_recurrence_factor = @frequency_recurrence_factor,
  7520.                 @active_start_date = @active_start_date,
  7521.                 @active_end_date = @active_end_date,
  7522.                 @active_start_time_of_day = @active_start_time_of_day,
  7523.                 @active_end_time_of_day = @active_end_time_of_day,
  7524.                 @command = @command,
  7525.                 @agent_id = @agent_id OUTPUT,
  7526.                 @distribution_jobid = @distribution_jobid OUTPUT,
  7527.                 @update_mode = @update_mode,
  7528.                 @offloadagent = @offloadagent,
  7529.                 @offloadserver = @offloadserver,
  7530.                 @dts_package_name = @dts_package_name,
  7531.                 @dts_package_password = @dts_package_password,
  7532.                 @dts_package_location = @dts_package_location,
  7533.                 @name = @distribution_job_name
  7534.  
  7535.  
  7536.             if @@error <> 0 or @retcode <> 0
  7537.                 goto UNDO
  7538.         end
  7539.         else
  7540.         begin
  7541.             execute @retcode = dbo.sp_MSadd_distribution_agent
  7542.                 @publisher_id = @publisher_id,
  7543.                 @publisher_db = @publisher_db,
  7544.                 @publication = @publication,
  7545.                 @subscriber_id = @subscriber_id,
  7546.                 @subscriber_db = @subscriber_db,
  7547.                 @subscription_type = @subscription_type,
  7548.                 @local_job = @local_job,
  7549.                 @agent_id = @agent_id OUTPUT,
  7550.                 @distribution_jobid = @distribution_jobid OUTPUT,
  7551.                 @update_mode = @update_mode,
  7552.                 @offloadagent = @offloadagent,
  7553.                 @offloadserver = @offloadserver 
  7554.                 
  7555.                 -- Only push has distributor side package.
  7556.  
  7557.             if @@error <> 0 or @retcode <> 0
  7558.                 goto UNDO
  7559.         end
  7560.  
  7561.         if @subscriber_id = @virtual
  7562.         begin
  7563.             execute @retcode = dbo.sp_MSadd_distribution_agent
  7564.                 @publisher_id = @publisher_id,
  7565.                 @publisher_db = @publisher_db,
  7566.                 @publication = @publication,
  7567.                 @subscriber_id = @virtual_anonymous,
  7568.                 @subscriber_db = @subscriber_db,
  7569.                 @subscription_type = @subscription_type,
  7570.                 @local_job = @local_job,
  7571.                 @agent_id = @anonymous_agent_id OUTPUT,
  7572.                 @distribution_jobid = @distribution_jobid OUTPUT,
  7573.                 @update_mode = @update_mode
  7574.                 -- No need to specify offload parameters for virtual agents
  7575.                 -- No need to specify package name for virtual agents
  7576.         end
  7577.     end
  7578.  
  7579.     insert into MSsubscriptions values (@publisher_database_id, @publisher_id, @publisher_db, @publication_id,
  7580.         @article_id, @subscriber_id, @subscriber_db, @subscription_type, @sync_type, @status, 
  7581.         @subscription_seqno, @snapshot_seqno_flag, @independent_agent, getdate(), 
  7582.         -- synctran
  7583.         @loopback_detection, @agent_id, @update_mode, @subscription_seqno, @subscription_seqno)
  7584.     if @@error <> 0
  7585.         goto UNDO
  7586.  
  7587.     -- For shiloh, always add virtual anonymous entry for attach logic
  7588.     -- If anonymous publication, add "virtual anonymous" subscription
  7589.     -- when adding the virtual subscription
  7590.     if @subscriber_id = @virtual
  7591.     begin
  7592.         insert into MSsubscriptions values (@publisher_database_id, @publisher_id, @publisher_db, @publication_id,
  7593.             @article_id, @virtual_anonymous, @subscriber_db, @subscription_type, @sync_type, @status, 
  7594.             @subscription_seqno, @snapshot_seqno_flag, @independent_agent, getdate(), 
  7595.             -- synctran
  7596.             @loopback_detection, @anonymous_agent_id, @update_mode, @subscription_seqno, @subscription_seqno)
  7597.         if @@error <> 0
  7598.             goto UNDO
  7599.     end
  7600.  
  7601.     -- Check to see if we need to add a new qreader agent
  7602.     if (@update_mode in (2,3,4,5))
  7603.     begin
  7604.         --
  7605.         -- we can have only one agent for the distribution database
  7606.         --
  7607.         if not exists (select * from dbo.MSqreader_agents) 
  7608.         begin
  7609.             execute @retcode = dbo.sp_MSadd_qreader_agent
  7610.             if (@retcode != 0 or @@error != 0)
  7611.                 goto UNDO
  7612.         end
  7613.     end
  7614.     
  7615.     commit transaction
  7616.  
  7617.     --  Add dummy distribution aent row entry for publication.  This will allow the status
  7618.     --  for the shared distribution agent to be restricted
  7619.     if @publication_name IS NOT NULL
  7620.     begin
  7621.         select @agent_name = name from MSdistribution_agents where id = @agent_id
  7622.  
  7623.         if @agent_name IS NOT NULL
  7624.             EXEC dbo.sp_MSupdate_replication_status
  7625.                 @publisher,
  7626.                 @publisher_db,
  7627.                 @publication_name, 
  7628.                 @agent_type = 3,   
  7629.                 @agent_name = @agent_name, 
  7630.                 @status = -3    -- Use current agent_status
  7631.     end
  7632.  
  7633.     -- Refresh global status table. 
  7634.     EXEC dbo.sp_MSupdate_replication_status
  7635.         @publisher,
  7636.         @publisher_db,
  7637.         @publication = '%',    -- refresh the publisher node.
  7638.         @agent_type = NULL,    -- Not used    with @status = -2
  7639.         @agent_name = NULL, -- Not used with @status = -2
  7640.         @status = -2    -- refresh status
  7641.  
  7642.     return(0)
  7643.  
  7644. UNDO:
  7645.     if @@TRANCOUNT > 0
  7646.     begin
  7647.         ROLLBACK TRAN MSadd_subscription
  7648.         COMMIT TRAN
  7649.     end
  7650.     return(1)
  7651.  
  7652. GO
  7653.  
  7654. raiserror(15339,-1,-1,'sp_MSupdate_subscription')
  7655. GO
  7656. CREATE PROCEDURE sp_MSupdate_subscription
  7657. @publisher sysname,
  7658. @publisher_db sysname,
  7659. @subscriber sysname,
  7660. @article_id int,
  7661. @status int,
  7662. @subscription_seqno varbinary(16),
  7663. --post 6x
  7664. @destination_db sysname = '%'
  7665.  
  7666. as
  7667.     set nocount on
  7668.     declare @publisher_id smallint  
  7669.     declare @subscriber_id smallint
  7670.     declare @automatic tinyint
  7671.     declare @snapshot_seqno_flag bit
  7672.     declare @virtual smallint 
  7673.     declare @virtual_anonymous smallint 
  7674.     declare @retcode int
  7675.     declare @active tinyint
  7676.     declare @subscribed tinyint
  7677.     declare @agent_id int
  7678.     declare @sync_type tinyint
  7679.     declare @virtual_agent_id int
  7680.     declare @publication_id int
  7681.  
  7682.     select @automatic = 1
  7683.     select @virtual = - 1
  7684.     select @virtual_anonymous = - 2
  7685.     select @active = 2
  7686.     select @subscribed = 1
  7687.  
  7688.     -- Check if publisher is a defined as a distribution publisher in the current database
  7689.     exec @retcode = dbo.sp_MSvalidate_distpublisher @publisher, @publisher_id OUTPUT
  7690.     if @retcode <> 0
  7691.     begin
  7692.         return(1)
  7693.     end
  7694.  
  7695.     -- Check if subscriber exists
  7696.     if @subscriber is null
  7697.     begin
  7698.         select @subscriber_id = @virtual
  7699.         select @destination_db = '%'
  7700.     end
  7701.     else
  7702.         select @subscriber_id = srvid from master..sysservers, MSsubscriber_info where 
  7703.             UPPER(srvname) = UPPER(@subscriber) and
  7704.             UPPER(subscriber) = UPPER(@subscriber) and
  7705.             UPPER(publisher) = UPPER(@publisher)
  7706.     if @subscriber_id is NULL
  7707.     begin
  7708.         raiserror (20032, 16, -1, @subscriber, @publisher) 
  7709.         return (1)
  7710.     end
  7711.  
  7712.     begin tran
  7713.     save transaction MSupdate_subscription
  7714.  
  7715.     if @status = @active
  7716.     begin
  7717.         -- Activating the subscription
  7718.         /*
  7719.         **  It will be used by:
  7720.         **  1. no_sync subscriptions
  7721.         **  2. subscriptions on immediate_sync pub that are activate 
  7722.         **  using virtual subscritpions's snapshots.
  7723.         **  3. snapshot agents for 6.5 publishers
  7724.         */
  7725.         -- Get agent_id etc
  7726.         select @agent_id = agent_id, @sync_type = sync_type,
  7727.             @publication_id = publication_id
  7728.             from MSsubscriptions where
  7729.             publisher_id = @publisher_id and
  7730.             publisher_db = @publisher_db and
  7731.             article_id = @article_id and
  7732.             subscriber_id = @subscriber_id and 
  7733.             -- Use equal so 6.x publisher will get nothing (since @destination_db is '%')
  7734.             subscriber_db = @destination_db
  7735.  
  7736.         -- If immediate_sync publication and sync type is auto_sync
  7737.         -- Set the subscription_seqno and snapshot_seqno to be of the virtual subscription 
  7738.         -- for real subscription when activating the subscription.
  7739.         -- We have to do it for the whole publication to prevent the
  7740.         -- distribution agent from picking up partial snapshot transaction
  7741.         if  @subscriber IS NOT NULL AND
  7742.             @sync_type = @automatic and
  7743.             exists (select * from MSpublications p where
  7744.                 -- publication_id is unique across dist db
  7745.                 p.publication_id = @publication_id and
  7746.                 p.immediate_sync = 1 
  7747.                 )
  7748.         begin
  7749.             -- Get virtual agent_id
  7750.             select @virtual_agent_id = agent_id from MSsubscriptions where
  7751.                 publisher_id = @publisher_id and
  7752.                 publisher_db = @publisher_db and
  7753.                 article_id = @article_id and
  7754.                 subscriber_id = @virtual
  7755.  
  7756.             -- Note it is possible that the virtual subscriptions
  7757.             -- were deactivated during clean up.
  7758.             /* Update the subscription table for the whole publication */
  7759.             -- Note: You need to change sp_MSreset_subscription_seqno when you 
  7760.             -- change this query
  7761.             update MSsubscriptions  set 
  7762.                 snapshot_seqno_flag =  
  7763.                     (select subscription_seqno from MSsubscriptions rs2
  7764.                         where
  7765.                         rs2.agent_id = @virtual_agent_id and
  7766.                         rs2.article_id = rs1.article_id),
  7767.                 status =    
  7768.                     (select status from MSsubscriptions rs2
  7769.                         where
  7770.                         rs2.agent_id = @virtual_agent_id and
  7771.                         rs2.article_id = rs1.article_id),
  7772.                 -- Use current date rather than virtual sub date for the
  7773.                 -- calculation in cleanup 
  7774.                 subscription_time = getdate(),
  7775.                 subscription_seqno = 
  7776.                     (select subscription_seqno from MSsubscriptions rs2
  7777.                         where
  7778.                         rs2.agent_id = @virtual_agent_id and
  7779.                         rs2.article_id = rs1.article_id),
  7780.                 publisher_seqno = 
  7781.                     (select publisher_seqno from MSsubscriptions rs2
  7782.                         where
  7783.                         rs2.agent_id = @virtual_agent_id and
  7784.                         rs2.article_id = rs1.article_id),
  7785.                 ss_cplt_seqno = 
  7786.                     (select ss_cplt_seqno from MSsubscriptions rs2
  7787.                         where
  7788.                         rs2.agent_id = @virtual_agent_id and
  7789.                         rs2.article_id = rs1.article_id)
  7790.                 from MSsubscriptions rs1 where
  7791.                     agent_id = @agent_id and
  7792.                     sync_type = @automatic and
  7793.                     status = @subscribed            
  7794.             if @@ERROR <> 0
  7795.                 goto UNDO
  7796.         end
  7797.         else
  7798.         begin
  7799.             update MSsubscriptions set status = @status, subscription_time = getdate(), 
  7800.                 publisher_seqno = @subscription_seqno, ss_cplt_seqno = @subscription_seqno,
  7801.                 -- Have to do this. Refer to anonymous agent "no init sync" option logic above
  7802.                 -- and sp_MSset_snapshot_seqno.
  7803.                 snapshot_seqno_flag = 0 
  7804.                 where
  7805.                   publisher_id = @publisher_id and
  7806.                   publisher_db = @publisher_db and
  7807.                   article_id = @article_id and
  7808.                   ((@subscriber_id <> @virtual and (subscriber_id = @subscriber_id and ((@destination_db = N'%') or (subscriber_db = @destination_db)) )) or
  7809.                   -- Activate virtual_anonymous but NOT virtual
  7810.                   -- This is for no init option for anonymous agent
  7811.                   -- Refer to sp_addsubscription , sp_MSget_repl_cmds_anonymous
  7812.                   -- and sp_MSset_snapshot_seqno
  7813.                   (@subscriber_id =  @virtual and subscriber_id = @virtual_anonymous))
  7814.             if @@error <> 0
  7815.                 goto UNDO
  7816.         
  7817.             -- For 6.5 publishers.
  7818.             -- Snapshot agents of 6.5 publishers will call sp_changesubstatus which will
  7819.             -- RPC this stored procedure to activate the subscription. The RPC calls are
  7820.             -- not in one transaction.
  7821.             -- We have to do it for the whole publication to prevent the
  7822.             -- distribution agent from picking up partial snapshot transaction
  7823.  
  7824.             -- Get publication_id 
  7825.             -- The publication_id and sync type are set by SNAPSHOT agent 
  7826.             -- calling sp_MSset_snapshot_xact_seqno
  7827.             -- Don't do it if @subscriber_id is virtual to prevent virtual sub
  7828.             -- to be activated.
  7829.             if @destination_db = '%' and @subscriber_id <> @virtual
  7830.             begin
  7831.                 declare @publication_id_6x int
  7832.                 -- Get the publication_id.
  7833.                 -- Note that if the sync_type is not automatic, the publication_id
  7834.                 -- will be null. In this case, we will not do the later
  7835.                 -- update (we don't need to)
  7836.                 select top 1 @publication_id_6x = publication_id from MSsubscriptions 
  7837.                     where   publisher_id = @publisher_id and
  7838.                             publisher_db = @publisher_db and
  7839.                             subscriber_id = @subscriber_id and 
  7840.                             sync_type = @automatic and
  7841.                             article_id = @article_id
  7842.  
  7843.                 if @publication_id_6x <> NULL
  7844.                 begin
  7845.                     update MSsubscriptions set status = @status, subscription_time = getdate() 
  7846.                         where
  7847.                           publisher_id = @publisher_id and
  7848.                           publisher_db = @publisher_db and
  7849.                           subscriber_id = @subscriber_id and 
  7850.                           sync_type = @automatic and
  7851.                           publication_id = @publication_id_6x and
  7852.                           status <> @status
  7853.                     if @@error <> 0
  7854.                         goto UNDO
  7855.                 end
  7856.             end
  7857.         end
  7858.     end -- End activating the subscription
  7859.     else
  7860.     begin -- Deactivating the subscription or change it from 'subscribed' to 'initiated'
  7861.         /*
  7862.         **  If @status is @active, it will be used by:
  7863.         **  sp_reinitsubscription at publisher to reset the subscription status to 'subscribed'
  7864.         **  If @status is @initiated (2), it will be used by snapshot agent with 
  7865.         **  sp_MSactivate_auto_sub => sp_changesubstatus.
  7866.         */
  7867.         update MSsubscriptions set status = @status, 
  7868.                                    publisher_seqno = @subscription_seqno, 
  7869.                                    ss_cplt_seqno = @subscription_seqno
  7870.             where
  7871.             publisher_id = @publisher_id and
  7872.             publisher_db = @publisher_db and
  7873.             article_id = @article_id and
  7874.             ((@subscriber_id <> @virtual and (subscriber_id = @subscriber_id and ((@destination_db = N'%') or (subscriber_db = @destination_db)) )) or
  7875.             -- Deactivating both virtual and virtual anonymous
  7876.             (@subscriber_id =  @virtual and (subscriber_id = @virtual or (subscriber_id = @virtual_anonymous and
  7877.             -- When changing to @initiated, do not change activated virtual_anonymous_subscription.
  7878.             (@status = @subscribed or snapshot_seqno_flag = 0)))))
  7879.  
  7880.         if @@error <> 0
  7881.             goto UNDO
  7882.     end
  7883.  
  7884.     
  7885.     commit transaction
  7886.     return (0)
  7887.  
  7888. UNDO:
  7889.     if @@TRANCOUNT > 0
  7890.     begin
  7891.         ROLLBACK TRAN MSupdate_subscription
  7892.         COMMIT TRAN
  7893.     end
  7894.     return(1)
  7895. GO
  7896.  
  7897.  
  7898. declare @dbname sysname
  7899. select  @dbname = db_name()
  7900. execute('dump transaction ' +@dbname+ ' with no_log')
  7901.  
  7902. go
  7903.  
  7904. /*
  7905. **  Note: sp_MSget_repl_commands and sp_MSget_repl_count have very similar
  7906. **  queries. Any changes to one of them should be applied to all others.
  7907. */
  7908.  
  7909. raiserror(15339,-1,-1,'sp_MSget_repl_commands')
  7910. GO
  7911. CREATE PROCEDURE sp_MSget_repl_commands
  7912. @agent_id int,
  7913. @last_xact_seqno varbinary(16),
  7914. @get_count bit = 0,
  7915. @compatibility_level int = 7000000
  7916. as
  7917.  
  7918.     set nocount on
  7919.  
  7920.     declare @active_status tinyint
  7921.     declare @initiate_status tinyint
  7922.     declare @snapshot_bit int
  7923.     declare @synctran_type int
  7924.     declare @read_only tinyint
  7925.     declare @retcode int
  7926.     declare @publisher_database_id int
  7927.     declare @originator_id int
  7928.     declare @subscriber sysname
  7929.     declare @subscriber_db sysname
  7930.     declare @subscriber_id smallint
  7931.     declare @publisher_db sysname
  7932.     declare @publisher_id smallint
  7933.     declare @max_xact_seqno varbinary(16)
  7934.     declare @concurrent int
  7935.     declare @concurrent_c int
  7936.  
  7937.     select @read_only = 0
  7938.     select @active_status = 2
  7939.     select @initiate_status = 3
  7940.     select @snapshot_bit = 0x80000000
  7941.     -- in sqlrepl.h
  7942.     select @synctran_type = @snapshot_bit | 9
  7943.     select @concurrent = 3
  7944.     select @concurrent_c = 4
  7945.  
  7946.     -- Security Check
  7947.     -- @agent_id might be null when it comes from sp_MSget_repl_cmd_anonymous
  7948.     if @agent_id is not null
  7949.     begin
  7950.         exec @retcode = dbo.sp_MScheck_pull_access
  7951.             @agent_id = @agent_id,
  7952.             @agent_type = 0 -- distribution agent
  7953.         if @@error <> 0 or @retcode <> 0
  7954.             return (1)
  7955.     end
  7956.     
  7957.     -- Get publisher database id etc.
  7958.     SELECT @publisher_database_id = publisher_database_id,
  7959.         @publisher_db = publisher_db,
  7960.         @publisher_id = publisher_id,
  7961.         @subscriber_id = subscriber_id, @subscriber_db = subscriber_db
  7962.         from MSdistribution_agents where id = @agent_id
  7963.  
  7964.     -- Get the last xact_seqno on the pub db FIRST. It will
  7965.     -- be used as the upper bound for differnt queries. We have to do
  7966.     -- this to prevent transactions on new or changed subscriptions or
  7967.     -- with new orignator_id being skipped eigher by preselected query or
  7968.     -- preselected originator_id.
  7969.     -- Have to have readpast here to prevent the query be blocked by logreader
  7970.     -- (even before the first row to the dist agent).
  7971.     --
  7972.     -- Note:  DO NOT consider distcmds inserted for a concurrent snapshot
  7973.     -- These represent 'forward in time' xacts.  Skipping past these xacts
  7974.     -- can cause lost transactions!
  7975.     --
  7976.     -- Note2: consider adding new MSrepl_commands idx with keys:  
  7977.     -- publisher_database_id, command_id, type, xact_seqno
  7978.     --
  7979.     -- Note3: might be able to use replpostcmd + a LSN mapping token to 
  7980.     -- allow SS agent to post sync cmds to log instead of dist db.
  7981.     --
  7982.     select @max_xact_seqno = max(xact_seqno) from MSrepl_commands (READPAST)
  7983.       where 
  7984.          publisher_database_id = @publisher_database_id and
  7985.          command_id = 1 and
  7986.          type <> -2147483611
  7987.  
  7988.     -- If there's nothing to do, return here to avoid more queries.
  7989.     if @max_xact_seqno = @last_xact_seqno
  7990.     begin
  7991.         if @get_count = 1
  7992.         begin
  7993.             select 
  7994.                 'undelivered_commands' = convert(int, 0), 
  7995.                 'undelivered_transactions' = convert(int, 0) 
  7996.         end
  7997.         else
  7998.         begin
  7999.             select rc.xact_seqno, rc.partial_command, rc.type, 
  8000.                 rc.command_id, rc.command
  8001.                 from                
  8002.                     MSrepl_commands rc
  8003.                 where 0 = 1
  8004.             select @max_xact_seqno
  8005.         end
  8006.         return 0
  8007.     end
  8008.  
  8009.     -- Get subscriber name
  8010.     select @subscriber = srvname from master..sysservers where
  8011.         srvid = @subscriber_id
  8012.         
  8013.     -- Note: if no originator id in the table, it will be 0, so that no loop back
  8014.     -- detection will be done!.
  8015.     -- Since the logreader will insert into the MSrepl_originators table,
  8016.     -- this query has to be later then get max seqno query!!!!!
  8017.     --select @originator_id = 0
  8018.     select @originator_id = ISNULL(id, 0) from MSrepl_originators where
  8019.         publisher_database_id = @publisher_database_id and
  8020.         UPPER(srvname) = UPPER(@subscriber) and
  8021.         dbname = @subscriber_db
  8022.  
  8023.     if @get_count = 1
  8024.     begin
  8025.         select 
  8026.             'undelivered_commands' = count(*), 
  8027.             'undelivered_transactions' = count(distinct xact_seqno) from
  8028.  
  8029.         MSrepl_commands rc JOIN MSsubscriptions s
  8030.         ON (rc.article_id = s.article_id AND rc.publisher_database_id=s.publisher_database_id )
  8031.         
  8032.         where
  8033.  
  8034.         s.agent_id = @agent_id and
  8035.         s.status = @active_status and
  8036.         rc.publisher_database_id = @publisher_database_id and
  8037.         s.publisher_database_id = @publisher_database_id and
  8038.         rc.xact_seqno > @last_xact_seqno and
  8039.         rc.xact_seqno <= @max_xact_seqno and
  8040.         -- If log based transaction, we do
  8041.         -- 1. only select tran later than sub pub seqno
  8042.         -- 2. loopback detection
  8043.         (((rc.type & @snapshot_bit) <> @snapshot_bit and
  8044.         rc.xact_seqno > s.publisher_seqno and
  8045.         rc.xact_seqno > s.ss_cplt_seqno and
  8046.         --
  8047.         -- Loopback detection
  8048.         --
  8049.         (s.loopback_detection = 0 or
  8050.             (@originator_id != 0 and rc.originator_id <> @originator_id))) or 
  8051.         -- If snapshot transaction, we do
  8052.         -- 1. filter out the  snapshot transactions that were inserted later that is not
  8053.         -- the subscription's snapshot transaction
  8054.         -- 2. filter out trigger generation command for non synctran subscription.
  8055.         -- Note: don't do loop back detection.
  8056.         ((rc.type & @snapshot_bit) = @snapshot_bit and 
  8057.         rc.xact_seqno >= s.subscription_seqno and 
  8058.         rc.xact_seqno <= s.ss_cplt_seqno and
  8059.         (s.update_mode <> @read_only or rc.type <> @synctran_type))) and
  8060.         -- Filter out the new command types that we have introduced after 7.0
  8061.         (@compatibility_level > 7000000 or
  8062.         (rc.type & ~@snapshot_bit) not in 
  8063.         (25, 40, 45, 50, 51, 52, 53, 54, 55, 56 ,57, 58, 68, 69))
  8064.                 
  8065.         return(0)
  8066.     end
  8067.  
  8068.     -- if this agent is servicing any inactive concurrent sync articles
  8069.     -- then return no rows.  The concurrent sync article will be activated
  8070.     -- when the SYNCDONE token is written to the distribution db by the logreader
  8071.     -- at this point, all log records associated with the sync will be present in 
  8072.     -- MSrepl_commands
  8073.  
  8074.     if exists( SELECT * FROM MSsubscriptions s JOIN MSpublications p 
  8075.                ON(     s.publisher_id = p.publisher_id and
  8076.                     s.publisher_db = p.publisher_db and
  8077.                     s.publication_id = p.publication_id )
  8078.                WHERE
  8079.                 s.agent_id = @agent_id and
  8080.                 s.status = @initiate_status and
  8081.                 (p.sync_method = @concurrent or p.sync_method = @concurrent_c) )
  8082.     begin
  8083.         select rc.xact_seqno, rc.partial_command, rc.type, 
  8084.             rc.command_id, rc.command
  8085.             from                
  8086.                 MSrepl_commands rc
  8087.             where 0 = 1
  8088.         select @last_xact_seqno
  8089.         return 0
  8090.     end
  8091.  
  8092.     -- Decide on a best query method.
  8093.     -- Note: The order of the following queries is important and
  8094.     -- not abitrary.
  8095.     
  8096.     -- Get subscription info
  8097.     declare @num_non_active int
  8098.     declare @num_article int
  8099.     declare @num_loopback int
  8100.     declare @max_sub_seqno varbinary(16)
  8101.     declare @max_pub_seqno varbinary(16)
  8102.  
  8103.  
  8104.     select 
  8105.         @num_non_active = sum(case when status <> @active_status then 1 else 0 end),
  8106.         @num_article = count(*),
  8107.         @num_loopback   = sum(case when loopback_detection <> 0 then 1 else 0 end),
  8108.         @max_sub_seqno  = max(subscription_seqno),
  8109.         @max_pub_seqno = max(publisher_seqno)
  8110.         from MSsubscriptions where
  8111.             agent_id = @agent_id
  8112.  
  8113.     --select @num_non_active, @num_loopback, @max_sub_seqno
  8114.     
  8115.     if  @last_xact_seqno < @max_sub_seqno or  
  8116.         @last_xact_seqno < @max_pub_seqno or 
  8117.         @num_non_active <> 0
  8118.     -- The agent is still working on snapshot transactions. Need a full join in this case
  8119.     begin
  8120.         -- no loopback    
  8121.         if @originator_id = 0
  8122.         begin
  8123.             -- Join with every thing but no loop back
  8124.             select rc.xact_seqno, rc.partial_command, rc.type, 
  8125.                 rc.command_id, rc.command
  8126.                 from                
  8127.                     MSrepl_commands rc JOIN MSsubscriptions s
  8128.                 -- At end, we use the FASTFIRSTROW option which tends to force
  8129.                 -- a nested inner loop join driven from MSrepl_commands
  8130.                 ON (rc.article_id = s.article_id AND rc.publisher_database_id=s.publisher_database_id )
  8131.                 
  8132.                 where
  8133.  
  8134.                 s.agent_id = @agent_id and
  8135.                 s.status = @active_status and
  8136.                 rc.publisher_database_id = @publisher_database_id and
  8137.                 s.publisher_database_id = @publisher_database_id and
  8138.                 rc.xact_seqno > @last_xact_seqno and
  8139.                 rc.xact_seqno <= @max_xact_seqno and
  8140.                 -- If log based transaction, we do
  8141.                 -- 1. only select tran later than sub pub seqno
  8142.                 -- 2. only select tran later than ss_cplt_seqno 
  8143.                 (((rc.type & @snapshot_bit) <> @snapshot_bit and
  8144.                 rc.xact_seqno > s.publisher_seqno and
  8145.                 rc.xact_seqno > s.ss_cplt_seqno ) 
  8146.                 or 
  8147.                 -- If snapshot transaction, we do
  8148.                 -- 1. filter out the  snapshot transactions that were inserted later that is not
  8149.                 -- the subscription's snapshot transaction
  8150.                 -- 2. filter out trigger generation command for non synctran subscription.
  8151.                 -- Note: don't do loop back detection.
  8152.                 ((rc.type & @snapshot_bit) = @snapshot_bit and 
  8153.                 rc.xact_seqno >= s.subscription_seqno and 
  8154.                 rc.xact_seqno <= s.ss_cplt_seqno and
  8155.                 (s.update_mode <> @read_only or rc.type <> @synctran_type))) and
  8156.                 -- Filter out the new command types that we have introduced after 7.0
  8157.                 (@compatibility_level > 7000000 or
  8158.                 (rc.type & ~@snapshot_bit) not in 
  8159.                 (25, 40, 45, 50, 51, 52, 53, 54, 55, 56 ,57, 58, 68, 69))
  8160.                 order by rc.xact_seqno, rc.command_id asc
  8161.                 OPTION (FAST 1)
  8162.         end
  8163.         else
  8164.         begin
  8165.             -- Join with every thing with loop back
  8166.             select rc.xact_seqno, rc.partial_command, rc.type, 
  8167.                 rc.command_id, rc.command
  8168.                 from                
  8169.                     MSrepl_commands rc JOIN MSsubscriptions s
  8170.                 -- At end, we use the FASTFIRSTROW option which tends to force
  8171.                 -- a nested inner loop join driven from MSrepl_commands
  8172.                 ON (rc.article_id = s.article_id AND rc.publisher_database_id=s.publisher_database_id )
  8173.                 
  8174.                 where
  8175.  
  8176.                 s.agent_id = @agent_id and
  8177.                 s.status = @active_status and
  8178.                 rc.publisher_database_id = @publisher_database_id and
  8179.                 s.publisher_database_id = @publisher_database_id and
  8180.                 rc.xact_seqno > @last_xact_seqno and
  8181.                 rc.xact_seqno <= @max_xact_seqno and
  8182.                 -- If log based transaction, we do
  8183.                 -- 1. only select tran later than sub pub seqno
  8184.                 -- 2. loopback detection
  8185.                 (((rc.type & @snapshot_bit) <> @snapshot_bit and
  8186.                 rc.xact_seqno > s.publisher_seqno and
  8187.                 rc.xact_seqno > s.ss_cplt_seqno and
  8188.                 --
  8189.                 -- Loopback detection
  8190.                 --
  8191.                 (s.loopback_detection = 0 or
  8192.                     rc.originator_id <> @originator_id)) or 
  8193.                 -- If snapshot transaction, we do
  8194.                 -- 1. filter out the  snapshot transactions that were inserted later that is not
  8195.                 -- the subscription's snapshot transaction
  8196.                 -- 2. filter out trigger generation command for non synctran subscription.
  8197.                 -- Note: don't do loop back detection.
  8198.                 ((rc.type & @snapshot_bit) = @snapshot_bit and 
  8199.                 rc.xact_seqno >= s.subscription_seqno and 
  8200.                 rc.xact_seqno <= s.ss_cplt_seqno and
  8201.                 (s.update_mode <> @read_only or rc.type <> @synctran_type))) and
  8202.                 -- Filter out the new command types that we have introduced after 7.0
  8203.                 (@compatibility_level > 7000000 or
  8204.                 (rc.type & ~@snapshot_bit) not in 
  8205.                 (25, 40, 45, 50, 51, 52, 53, 54, 55, 56 ,57, 58, 68, 69))
  8206.                 order by rc.xact_seqno, rc.command_id asc
  8207.                 OPTION (FAST 1)
  8208.             end
  8209.     end
  8210.     -- The agent has finished snapshot transactions but it has loopback detection.
  8211.     else if @num_loopback <> 0 and @originator_id <> 0
  8212.     begin
  8213.         -- Join plus loopback
  8214.         select rc.xact_seqno, rc.partial_command, rc.type, 
  8215.             rc.command_id, rc.command
  8216.             from                
  8217.                 MSrepl_commands rc JOIN MSsubscriptions s
  8218.             -- At end, we use the FASTFIRSTROW option which tends to force
  8219.             -- a nested inner loop join driven from MSrepl_commands
  8220.             ON (rc.article_id = s.article_id)
  8221.             
  8222.             where
  8223.  
  8224.             s.agent_id = @agent_id and
  8225.             rc.publisher_database_id = @publisher_database_id and
  8226.             rc.xact_seqno > @last_xact_seqno and
  8227.             rc.xact_seqno <= @max_xact_seqno and
  8228.             (rc.type & @snapshot_bit) <> @snapshot_bit and
  8229.             (rc.type & ~@snapshot_bit) not in ( 37, 38 ) and
  8230.             --
  8231.             -- Loopback detection
  8232.             --
  8233.             (s.loopback_detection = 0 or
  8234.             rc.originator_id <> @originator_id) 
  8235.             order by rc.xact_seqno, rc.command_id asc
  8236.             OPTION (FAST 1)
  8237.     end
  8238.     -- The agent has finished snapshot transactions. It has NO loopback detection.
  8239.     else if @num_article <> (select count(*) from MSarticles  a where
  8240.         publisher_id = @publisher_id and
  8241.         publisher_db = @publisher_db)
  8242.     -- Not a full subscription, do mini join
  8243.     begin
  8244.         -- Mini join along. Only agent_id and article_id columns in MSsubscriptions
  8245.         -- are used. So only index pages are needed for the join.
  8246.         select rc.xact_seqno, rc.partial_command, rc.type, 
  8247.         rc.command_id, rc.command
  8248.         from                
  8249.             MSrepl_commands rc JOIN MSsubscriptions s
  8250.         -- At end, we use the FASTFIRSTROW option which tends to force
  8251.         -- a nested inner loop join driven from MSrepl_commands
  8252.         ON (rc.article_id = s.article_id)
  8253.         where
  8254.         s.agent_id = @agent_id and
  8255.         rc.publisher_database_id = @publisher_database_id and
  8256.         rc.xact_seqno > @last_xact_seqno and
  8257.         rc.xact_seqno <= @max_xact_seqno and
  8258.         (rc.type & @snapshot_bit) <> @snapshot_bit and
  8259.         (rc.type & ~@snapshot_bit) not in ( 37, 38 ) 
  8260.         order by rc.xact_seqno, rc.command_id asc
  8261.         OPTION (FAST 1)
  8262.     end
  8263.     else
  8264.     -- The query will fly if we reach here!! No join is needed.
  8265.     -- It is a full sub to pub db, the dist agent is beyond snapshots, 
  8266.     -- all sub are active and no loopback detection. 
  8267.     begin
  8268.         -- no join.
  8269.         select rc.xact_seqno, rc.partial_command, rc.type, 
  8270.         rc.command_id, rc.command
  8271.         from                
  8272.             MSrepl_commands rc 
  8273.         where
  8274.         rc.publisher_database_id = @publisher_database_id and
  8275.         rc.xact_seqno > @last_xact_seqno and
  8276.         rc.xact_seqno <= @max_xact_seqno and
  8277.         (rc.type & @snapshot_bit) <> @snapshot_bit and
  8278.         (rc.type & ~@snapshot_bit) not in ( 37, 38 ) 
  8279.         order by rc.xact_seqno, rc.command_id asc
  8280.     end 
  8281.  
  8282.     -- Return the max seqno of this batch to distribution agent.
  8283.     select @max_xact_seqno
  8284.  
  8285. GO
  8286.  
  8287.  
  8288.  
  8289. raiserror(15339,-1,-1,'sp_MSget_repl_cmds_anonymous')
  8290. GO
  8291. CREATE PROCEDURE sp_MSget_repl_cmds_anonymous
  8292. @agent_id int,
  8293. @last_xact_seqno varbinary(16),
  8294. @no_init_sync bit = 0,
  8295. @get_count bit = 0,
  8296. @compatibility_level int = 7000000
  8297.  
  8298. as
  8299.  
  8300.    set nocount on
  8301.  
  8302.    declare @virtual_agent_id int    /* virtual sub agent id */
  8303.    declare @anonymous_agent_id int  /* virtual anonymous agent id */
  8304.  
  8305.     -- Note @agent_id will be overwritten later.
  8306.     select  @virtual_agent_id =   virtual_agent_id,
  8307.             @anonymous_agent_id = anonymous_agent_id
  8308.         from MSdistribution_agents where
  8309.             id = @agent_id
  8310.     
  8311.     -- Return error if agent entry does not exists (being deleted).
  8312.     if @virtual_agent_id is null
  8313.     begin
  8314.         raiserror(21072, 16, -1)
  8315.         return(1)
  8316.     end
  8317.  
  8318.     -- If no init sync, use anonymous account to start immediately.
  8319.     -- If first time or right after reinit,  use virtual account. 
  8320.     -- otherwise use virtual anonymous account
  8321.     if  @no_init_sync = 1 
  8322.         select @agent_id = @anonymous_agent_id
  8323.     else if @last_xact_seqno = 0x00 
  8324.         select @agent_id = @virtual_agent_id
  8325.     else
  8326.         select @agent_id = @anonymous_agent_id
  8327.     -- Call main procedure to get commands
  8328.     exec dbo.sp_MSget_repl_commands 
  8329.         @agent_id = @agent_id,
  8330.         @last_xact_seqno = @last_xact_seqno,
  8331.         @get_count = @get_count,
  8332.         @compatibility_level = @compatibility_level
  8333. GO
  8334.  
  8335.  
  8336.  
  8337. raiserror(15339,-1,-1,'sp_MSanonymous_status')
  8338. GO
  8339. CREATE PROCEDURE sp_MSanonymous_status
  8340. @agent_id           int,
  8341. @no_init_sync       int = 0,
  8342. @last_xact_seqno varbinary(16)
  8343. as
  8344.  
  8345.    set nocount on
  8346.  
  8347.    declare @virtual_agent_id int    /* virtual sub agent id */
  8348.    declare @anonymous_agent_id int  /* virtual anonymous agent id */
  8349.  
  8350.     -- Note @agent_id will be overwritten later.
  8351.     select  @virtual_agent_id =   virtual_agent_id,
  8352.             @anonymous_agent_id = anonymous_agent_id
  8353.         from MSdistribution_agents where
  8354.             id = @agent_id
  8355.     
  8356.     -- Return error if agent entry does not exists (being deleted).
  8357.     if @virtual_agent_id is null
  8358.     begin
  8359.         raiserror(21072, 16, -1)
  8360.         return(1)
  8361.     end
  8362.  
  8363.     -- If no init sync, use anonymous account to start immediately.
  8364.     -- If first time, or still working on the first snapshot, or just finished
  8365.     -- the first snapshot, use virtual account. This is to cover the case
  8366.     -- of multiple snapshot transactions (for example, one per article) in the first
  8367.     -- snapshot.
  8368.     -- otherwise use virtual anonymous account
  8369.     if  @no_init_sync = 1 
  8370.         select @agent_id = @anonymous_agent_id
  8371.     else if @last_xact_seqno = 0x00 
  8372.         select @agent_id = @virtual_agent_id
  8373.     else
  8374.         select @agent_id = @anonymous_agent_id
  8375.     
  8376.     -- Call main procedure to get status
  8377.     exec dbo.sp_MSsubscription_status
  8378.         @agent_id = @agent_id
  8379. GO
  8380.  
  8381. raiserror(15339,-1,-1,'sp_MSadd_anonymous_agent')
  8382. GO
  8383. CREATE PROCEDURE sp_MSadd_anonymous_agent
  8384. @publisher_id       smallint,
  8385. @publisher_db       sysname,
  8386. @publication        sysname,
  8387. @subscriber_db      sysname,
  8388. @subscriber_name    sysname,
  8389. @anonymous_subid    uniqueidentifier output,
  8390. @agent_id           int output,
  8391. @reinitanon         bit = 0
  8392.  
  8393. as
  8394.  
  8395. /*
  8396. ** This stored procedure does not really add a job at distribution database;
  8397. ** if add a row in MSdistribution_agent table for anonymous subscription for the 
  8398. ** purpose of history logging
  8399. */
  8400.  
  8401.    set nocount on
  8402.    declare @distribution_type smallint
  8403.    declare @profile_id int
  8404.    declare @subscriber_id smallint
  8405.    declare @retcode int
  8406.    declare @publication_id int
  8407.    declare @virtual_agent_id int
  8408.    declare @anonymous_agent_id int
  8409.    declare @virtual smallint
  8410.    declare @virtual_anonymous smallint
  8411.    declare @new_agent_id int
  8412.    declare @anonymous int
  8413.    declare @publisher_database_id int
  8414.    declare @allow_anonymous bit
  8415.    declare @publication_type int
  8416.    declare @merge_publication_type int
  8417.    
  8418.    select @publication_type = NULL
  8419.    select @merge_publication_type = 2
  8420.    
  8421.    select @virtual = -1
  8422.    select @virtual_anonymous = -2
  8423.    select @anonymous = 2
  8424.    
  8425.     -- Check to see if the publication is valid and allow anonymous
  8426.     select @publication_id = publication_id, @allow_anonymous = allow_anonymous, @publication_type = publication_type
  8427.         from MSpublications where
  8428.         publisher_id = @publisher_id and
  8429.         publisher_db = @publisher_db and
  8430.         publication = @publication 
  8431.  
  8432.     if @publication_id is null
  8433.     begin
  8434.         RAISERROR (21040, 16, -1, @publication)
  8435.         return 1
  8436.     end
  8437.  
  8438.     if @publication_type = @merge_publication_type
  8439.     begin
  8440.         RAISERROR(21132, 16, -1, @publication)
  8441.         return 1
  8442.     end
  8443.  
  8444.     if @allow_anonymous = 0
  8445.     begin
  8446.         RAISERROR (21084, 16, -1, @publication)
  8447.         return 1       
  8448.     end
  8449.  
  8450.     if @subscriber_name is null
  8451.         select @subscriber_name = N''
  8452.  
  8453.     -- Get virtual ids
  8454.     select top 1 @virtual_agent_id = agent_id, 
  8455.         @publisher_database_id = publisher_database_id from MSsubscriptions where
  8456.         publisher_id = @publisher_id and
  8457.         publisher_db = @publisher_db and
  8458.         publication_id = @publication_id and
  8459.         subscriber_id = @virtual
  8460.  
  8461.     select top 1 @anonymous_agent_id = agent_id from MSsubscriptions where
  8462.         publisher_id = @publisher_id and
  8463.         publisher_db = @publisher_db and
  8464.         publication_id = @publication_id and
  8465.         subscriber_id = @virtual_anonymous
  8466.  
  8467.  
  8468.     -- Security check
  8469.     exec @retcode = dbo.sp_MScheck_pull_access
  8470.         @agent_id =  @anonymous_agent_id,
  8471.         @agent_type = 0 -- distribution agent   
  8472.     if @retcode <> 0 or @@error <> 0
  8473.         return (1)
  8474.  
  8475.     /*
  8476.     **  To return two more parameters for the purpose of anonymous monitoring
  8477.     ** 
  8478.     ** If @anonymous_subid is null, this is a new anonymous subscription; A new row would be inserted in MSdistribution_agents.
  8479.     ** And its id (identity) and newly generated ID will be returned; The new ID would be used in subscriber side.
  8480.     */
  8481.     select @subscriber_id = 0   -- for anonymous subscribers, ID is always 0
  8482.  
  8483.     select @agent_id = id from MSdistribution_agents 
  8484.         where anonymous_subid = @anonymous_subid
  8485.         
  8486.     
  8487.     IF @agent_id is null
  8488.         BEGIN
  8489.             if @anonymous_subid is not NULL and @anonymous_subid <> 0x00
  8490.                and @reinitanon = 0
  8491.             begin
  8492.                 -- Agent has be cleaned up, return error.
  8493.                 raiserror(21072, 16, -1)
  8494.                 return(1)
  8495.             end
  8496.             -- Generate a new subid only when the subscription is not 
  8497.             -- reinitialized
  8498.             if @reinitanon = 0
  8499.             begin
  8500.                 select @anonymous_subid = newid()
  8501.             end
  8502.             SELECT @distribution_type = 3
  8503.  
  8504.             SELECT @profile_id = profile_id
  8505.             FROM msdb..MSagent_profiles
  8506.             WHERE agent_type = @distribution_type
  8507.                 AND def_profile = 1
  8508.  
  8509.             IF @profile_id IS NULL
  8510.             RETURN (1)
  8511.  
  8512.             INSERT into MSdistribution_agents (name, publisher_database_id, publisher_id, publisher_db, publication, 
  8513.                         subscriber_id, subscriber_db, subscription_type, local_job, job_id, subscription_guid, profile_id, anonymous_subid, 
  8514.                         subscriber_name, virtual_agent_id, anonymous_agent_id)
  8515.                         
  8516.                  VALUES (convert(nvarchar(40), @anonymous_subid), @publisher_database_id, @publisher_id, @publisher_db, @publication, 
  8517.                             @subscriber_id, @subscriber_db, @anonymous, 0, @anonymous_subid,
  8518.                             @anonymous_subid, @profile_id, @anonymous_subid, @subscriber_name,
  8519.                             @virtual_agent_id, @anonymous_agent_id)
  8520.             select @agent_id = @@identity
  8521.         END
  8522.         
  8523. GO
  8524.  
  8525.  
  8526. raiserror(15339,-1,-1,'sp_MSsubscription_status')
  8527. GO
  8528. CREATE PROCEDURE sp_MSsubscription_status
  8529. @agent_id int
  8530. as
  8531.  
  8532.     set nocount on
  8533.  
  8534.     declare @status tinyint
  8535.     declare @inactive tinyint
  8536.     declare @active tinyint
  8537.     declare @subscribed tinyint
  8538.     declare @initiated tinyint
  8539.     declare @article_id int
  8540.     declare @publication sysname
  8541.     declare @article sysname
  8542.     declare @msg nvarchar(255)
  8543.     declare @automatic tinyint
  8544.     declare @none tinyint
  8545.     declare @success int
  8546.     declare @retention int
  8547.     declare @last_sync datetime
  8548.     declare @publication_id int
  8549.  
  8550.     select @success = 2
  8551.     select @inactive = 0
  8552.     select @subscribed = 1
  8553.     select @active = 2
  8554.     select @initiated = 3
  8555.     SELECT @automatic = 1
  8556.     select @none = 2
  8557.  
  8558.     -- If one article is inactive, and no_sync subscription fail.
  8559.     if exists (select * from MSsubscriptions where
  8560.         status = @inactive and
  8561.         sync_type = @none and
  8562.         agent_id = @agent_id)
  8563.     begin
  8564.         -- The subscription was deactivated.
  8565.         raiserror(21396, 16,-1)
  8566.         return(1)
  8567.     end
  8568.     
  8569.     -- If one article is inactive, fail.
  8570.     if exists (select * from MSsubscriptions where
  8571.         status = @inactive and
  8572.         sync_type = @automatic and
  8573.         agent_id = @agent_id)
  8574.     begin
  8575.         -- The subscription was deactivated.
  8576.         raiserror(21074, 16,-1)
  8577.         return(1)
  8578.     end
  8579.  
  8580.     select top 1 @article_id = article_id,
  8581.         @publication_id = publication_id
  8582.         from MSsubscriptions where
  8583.         agent_id = @agent_id and
  8584.         sync_type = @automatic and
  8585.         status = @subscribed
  8586.  
  8587.     if @publication_id is not null
  8588.     begin
  8589.         -- Get the publication name to use later in the formated message
  8590.         select @publication = publication from MSpublications where
  8591.             publication_id = @publication_id
  8592.  
  8593.         -- If there's more than one article in subscribed state
  8594.         -- Send a general waiting message.
  8595.         -- Otherwise, indicate the article name
  8596.         if exists (select * from MSsubscriptions where
  8597.             agent_id = @agent_id and
  8598.             status = @subscribed and
  8599.             sync_type = @automatic and
  8600.             article_id <> @article_id)
  8601.         begin
  8602.             -- Snapshot not available message
  8603.             if @publication is not null
  8604.                 select @msg = formatmessage(21075, @publication)
  8605.             else -- It is null for 6.5
  8606.                 select @msg = formatmessage(21088)
  8607.         end
  8608.         else
  8609.         begin
  8610.             -- article_id is unique across pub db for tran
  8611.             -- but merge article may use the same id
  8612.             select @article = article from MSarticles where
  8613.                 article_id = @article_id and
  8614.                 publication_id = @publication_id
  8615.             -- It is null for 6.5
  8616.             if @article is not null
  8617.                 select @msg = formatmessage(21076, @article)
  8618.             else
  8619.             begin
  8620.                 -- Snapshot not available message
  8621.                 if @publication is not null
  8622.                     select @msg = formatmessage(21075, @publication)
  8623.                 else -- It is null for 6.5
  8624.                     select @msg = formatmessage(21088)
  8625.             end
  8626.         end
  8627.  
  8628.         -- If one article is active, the status is active
  8629.         if exists ( select * from MSsubscriptions where
  8630.             agent_id = @agent_id and
  8631.             sync_type = @automatic and
  8632.             status = @active)
  8633.             set @status = @active
  8634.         else
  8635.             set @status = @subscribed
  8636.     end
  8637.     else
  8638.     -- For concurrent snapshot, logreader has to run first.
  8639.     begin
  8640.          select top 1 @publication_id = publication_id, @status = status from MSsubscriptions s where
  8641.                 s.status = @initiated and
  8642.                 s.agent_id = @agent_id and
  8643.                 s.sync_type = @automatic
  8644.  
  8645.         if @publication_id is not null
  8646.         begin
  8647.             select @publication = publication from MSpublications where
  8648.                 publication_id = @publication_id
  8649.             select @msg = formatmessage(21388, @publication)
  8650.         end
  8651.     end
  8652.  
  8653.     -- If nothing returned, all articles are active.
  8654.     select 'msg' = @msg, 'status' = @status 
  8655.         where @msg is not null
  8656.  
  8657. GO
  8658.  
  8659.  
  8660.  
  8661.  
  8662. raiserror(15339,-1,-1,'sp_MSget_last_transaction')
  8663. GO
  8664. CREATE PROCEDURE sp_MSget_last_transaction
  8665. @publisher_id int = NULL,
  8666. @publisher_db sysname,
  8667. @publisher sysname = NULL,
  8668. @max_xact_seqno varbinary(16) = NULL output
  8669. ,@for_truncate bit = 0
  8670.  
  8671. AS
  8672.     declare @publisher_database_id int
  8673.     declare @max_xact_id varbinary(16)
  8674.     declare @sync_bit int
  8675.     declare @sync_with_backup bit
  8676.     
  8677.     set nocount on 
  8678.     
  8679.     SELECT @sync_bit = 32
  8680.  
  8681.     if @publisher_id is NULL
  8682.         select @publisher_id = srvid from master..sysservers where
  8683.             UPPER(srvname) = UPPER(@publisher)
  8684.  
  8685.     -- Get publisher database id.
  8686.     SELECT @publisher_database_id = id from MSpublisher_databases where publisher_id = @publisher_id and 
  8687.         publisher_db = @publisher_db
  8688.     
  8689.     if exists ( select * from master.dbo.sysdatabases where 
  8690.             name = db_name() and
  8691.             category & @sync_bit = 0) 
  8692.         select @sync_with_backup = 0
  8693.     else
  8694.         select @sync_with_backup = 1
  8695.  
  8696.  
  8697.  
  8698.     if @for_truncate = 0
  8699.     begin
  8700.         select top 1 @max_xact_id = rt.xact_id, @max_xact_seqno = rt.xact_seqno
  8701.           from
  8702.           MSrepl_transactions rt
  8703.           where 
  8704.              rt.publisher_database_id = @publisher_database_id and
  8705.              not xact_id = 0x0
  8706.              order by xact_seqno desc
  8707.     end
  8708.     -- If (1) requesting truncate lsn (distbackuplsn), (2) sync with backup is set
  8709.     -- query the values from MSrepl_backup_lsn
  8710.     else if    @sync_with_backup = 1
  8711.     begin
  8712.         -- Get the last backed up lsn if available.
  8713.         select top 1 @max_xact_id = valid_xact_id, @max_xact_seqno = valid_xact_seqno
  8714.           from
  8715.           MSrepl_backup_lsns 
  8716.           where 
  8717.              publisher_database_id = @publisher_database_id 
  8718.     end
  8719.     
  8720.     -- If @publisher is not null, we are calling this sp from sp_replrestart
  8721.     -- Don't return result set.
  8722.     if @publisher is null
  8723.         select @max_xact_id, @max_xact_seqno 
  8724.             -- Don't return any result when requsting a truncate lsn and
  8725.             -- the database is not in 'sync with backup' mode, which signal the 
  8726.             -- distribution agent to use last dist lsn to call sp_repldone.
  8727.             where not (@sync_with_backup = 0 and @for_truncate = 1)
  8728.   
  8729. GO
  8730.  
  8731. raiserror(15339,-1,-1,'sp_MSadd_subscriber_info')
  8732. GO
  8733. CREATE PROCEDURE sp_MSadd_subscriber_info
  8734. @publisher sysname,
  8735. @subscriber sysname,
  8736. @type tinyint = 0,
  8737. @login sysname = 'sa',
  8738. @password nvarchar(524) = NULL,
  8739. @commit_batch_size int = 100,
  8740. @status_batch_size int = 100,
  8741. @flush_frequency int = 0,
  8742. @frequency_type int = 4,
  8743. @frequency_interval int = 1,
  8744. @frequency_relative_interval int = 1,
  8745. @frequency_recurrence_factor int = 0,
  8746. @frequency_subday int = 4,
  8747. @frequency_subday_interval int = 5,
  8748. @active_start_time_of_day int = 0,
  8749. @active_end_time_of_day int = 235959,
  8750. @active_start_date int = 0,
  8751. @active_end_date int = 99991231,
  8752. @retryattempts int = 0,    
  8753. @retrydelay int = 0,
  8754. @description nvarchar (255) = NULL,
  8755. @security_mode int = 1, /* 0 standard; 1 integrated */
  8756. @encrypted_password bit = 0
  8757.  
  8758. AS
  8759.    set nocount on
  8760.  
  8761.    declare @retcode int
  8762.    declare @oledbprovider nvarchar(256)
  8763.    declare @platform_nt binary
  8764.  
  8765.    select @platform_nt = 0x1
  8766.  
  8767.     IF (UPPER(@subscriber) = UPPER(@@SERVERNAME) and ( @platform_nt != platform() & @platform_nt ) and @security_mode = 1)
  8768.         BEGIN
  8769.             RAISERROR(21038, 16, -1)
  8770.             RETURN (1)
  8771.         END
  8772.  
  8773. /* Add the subscriber to sysservers as a RPC server, if it does not
  8774.    ** already exist.
  8775.    */
  8776.    if not exists (select * from  master..sysservers where  UPPER(srvname) = UPPER(@subscriber))
  8777.       begin
  8778.           exec @retcode = dbo.sp_addserver @subscriber
  8779.           if @retcode <> 0
  8780.              return 1
  8781.       end
  8782.    
  8783.     -- Encrypt the password
  8784.     IF @encrypted_password = 0
  8785.     BEGIN
  8786.         EXEC @retcode = master.dbo.xp_repl_encrypt @password OUTPUT
  8787.         IF @@error <> 0 OR @retcode <> 0
  8788.             return 1
  8789.     END
  8790.  
  8791.     if (@type = 3)
  8792.     begin
  8793.         select @oledbprovider = providername from master..sysservers where UPPER(srvname) = UPPER(@subscriber)
  8794.         if (@oledbprovider = 'sqloledb')
  8795.             select @security_mode = 1
  8796.         else
  8797.             select @security_mode = 0
  8798.     end
  8799.  
  8800.    /* Delete any existing row */
  8801.    delete from MSsubscriber_info where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber)
  8802.    if @@error <> 0
  8803.      return 1
  8804.    delete from MSsubscriber_schedule where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber)
  8805.    if @@error <> 0
  8806.      return 1
  8807.  
  8808.    begin tran
  8809.    save TRAN addsub_info
  8810.  
  8811.    insert MSsubscriber_info (publisher, subscriber, type, login, password, description, security_mode)
  8812.          values (@publisher, @subscriber, @type, @login, @password, @description, @security_mode)
  8813.     if @@error <> 0
  8814.     goto UNDO
  8815.  
  8816.     /*
  8817.     ** Schedule information is added for backward compartibility reason, agent_type = 0
  8818.     */
  8819.    insert MSsubscriber_schedule values(@publisher, @subscriber, 0, @frequency_type,
  8820.                                         @frequency_interval,
  8821.                                         @frequency_relative_interval,
  8822.                                         @frequency_recurrence_factor ,
  8823.                                         @frequency_subday ,
  8824.                                         @frequency_subday_interval,
  8825.                                         @active_start_time_of_day,
  8826.                                         @active_end_time_of_day ,
  8827.                                         @active_start_date ,
  8828.                                         @active_end_date )
  8829.     if @@error <> 0
  8830.     goto UNDO
  8831.     COMMIT TRAN
  8832.  
  8833.     Return (0)
  8834. UNDO:
  8835.     if @@TRANCOUNT > 0
  8836.     begin
  8837.         ROLLBACK TRAN addsub_info
  8838.         COMMIT TRAN
  8839.     end
  8840.     return (1)
  8841. GO
  8842.  
  8843. raiserror(15339,-1,-1,'sp_MSadd_subscriber_schedule')
  8844. GO
  8845. CREATE PROCEDURE sp_MSadd_subscriber_schedule
  8846. @publisher sysname,
  8847. @subscriber sysname,
  8848. @agent_type smallint = 0,   -- 0 for distribution agent, 1 for merge agent
  8849. @frequency_type int = 4,
  8850. @frequency_interval int = 1,
  8851. @frequency_relative_interval int = 1,
  8852. @frequency_recurrence_factor int = 0,
  8853. @frequency_subday int = 4,
  8854. @frequency_subday_interval int = 5,
  8855. @active_start_time_of_day int = 0,
  8856. @active_end_time_of_day int = 235959,
  8857. @active_start_date int = 0,
  8858. @active_end_date int = 99991231
  8859.  
  8860. AS
  8861.    set nocount on
  8862.  
  8863.    declare @retcode int
  8864.  
  8865.    /* Add the subscriber to sysservers as a RPC server, if it does not
  8866.    ** already exist.
  8867.    */
  8868.    if not exists (select * from  master..sysservers where  UPPER(srvname) = UPPER(@subscriber))
  8869.       begin
  8870.           exec @retcode = dbo.sp_addserver @subscriber
  8871.           if @retcode <> 0
  8872.              return 1
  8873.       end
  8874.  
  8875.    /* Delete any existing row */
  8876.    if exists (select * from MSsubscriber_schedule where
  8877.        UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type=@agent_type)
  8878.        begin
  8879.            delete from MSsubscriber_schedule 
  8880.            where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type=@agent_type
  8881.           if @@error <> 0
  8882.              return 1
  8883.        end
  8884.  
  8885.    insert MSsubscriber_schedule (publisher, subscriber, agent_type, 
  8886.       frequency_type, frequency_interval, frequency_relative_interval,
  8887.       frequency_recurrence_factor, frequency_subday, frequency_subday_interval,
  8888.       active_start_time_of_day, active_end_time_of_day, active_start_date,
  8889.       active_end_date)
  8890.       
  8891.       values (@publisher, @subscriber, @agent_type, 
  8892.       @frequency_type, @frequency_interval, @frequency_relative_interval,
  8893.       @frequency_recurrence_factor, @frequency_subday, @frequency_subday_interval,
  8894.       @active_start_time_of_day, @active_end_time_of_day, @active_start_date,
  8895.       @active_end_date)
  8896.    if @@error <> 0
  8897.       return 1
  8898. GO
  8899.  
  8900.  
  8901.  
  8902. raiserror(15339,-1,-1,'sp_MSupdate_subscriber_info')
  8903. GO
  8904. CREATE PROCEDURE sp_MSupdate_subscriber_info
  8905. @publisher sysname,
  8906. @subscriber sysname,
  8907. @type tinyint = NULL,
  8908. @login sysname = NULL,
  8909. @password nvarchar(524) = '%',
  8910. @commit_batch_size int = NULL,
  8911. @status_batch_size int = NULL,
  8912. @flush_frequency int = NULL,
  8913. @frequency_type int = NULL,
  8914. @frequency_interval int = NULL,
  8915. @frequency_relative_interval int = NULL,
  8916. @frequency_recurrence_factor int = NULL,
  8917. @frequency_subday int = NULL,
  8918. @frequency_subday_interval int = NULL,
  8919. @active_start_time_of_day int = NULL,
  8920. @active_end_time_of_day int = NULL,
  8921. @active_start_date int = NULL,
  8922. @active_end_date int = NULL,
  8923. @retryattempts int = NULL,
  8924. @retrydelay int = NULL,
  8925. @description nvarchar (255) = NULL,
  8926. @security_mode int = NULL
  8927.  
  8928. AS
  8929.    set nocount on
  8930.    
  8931.    declare @cmd1 nvarchar (255)
  8932.    declare @retcode int
  8933.    declare @platform_nt binary
  8934.  
  8935.    select @platform_nt = 0x1
  8936.  
  8937.    IF (UPPER(@subscriber) = UPPER(@@SERVERNAME) and ( @platform_nt != platform() & @platform_nt ) and @security_mode = 1)
  8938.         BEGIN
  8939.             RAISERROR(21038, 16, -1)
  8940.             RETURN (1)
  8941.         END
  8942.  
  8943.  
  8944.    begin transaction
  8945.    save transaction update_subscriber
  8946.    
  8947.    /* Check if subscriber exists */
  8948.    if not exists (select * from MSsubscriber_info 
  8949.                   where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber))
  8950.        goto FAILED
  8951.  
  8952.    if not exists (select * from MSsubscriber_schedule 
  8953.                   where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = 0)
  8954.        goto FAILED    
  8955.    
  8956.    if @type is not NULL
  8957.       update MSsubscriber_info set type = @type 
  8958.         where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber)
  8959.       if @@error <> 0
  8960.          goto FAILED
  8961.    
  8962.    if @security_mode is not NULL
  8963.       update MSsubscriber_info set security_mode = @security_mode 
  8964.         where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber)
  8965.       if @@error <> 0
  8966.          goto FAILED
  8967.   
  8968.    if @login is not NULL
  8969.       update MSsubscriber_info set login = @login 
  8970.         where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber)
  8971.       if @@error <> 0
  8972.          goto FAILED
  8973.    
  8974.    if @password <> '%'
  8975.    begin
  8976.         -- Encrypt the password
  8977.         EXEC @retcode = master.dbo.xp_repl_encrypt @password OUTPUT
  8978.         IF @@error <> 0 OR @retcode <> 0
  8979.             goto FAILED
  8980.         update MSsubscriber_info set password = @password 
  8981.             where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber)
  8982.         if @@error <> 0
  8983.             goto FAILED
  8984.    end
  8985.  
  8986.    
  8987.    if @frequency_type is not NULL
  8988.       update MSsubscriber_schedule set frequency_type = @frequency_type 
  8989.         where  UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = 0
  8990.       if @@error <> 0
  8991.          goto FAILED
  8992.    
  8993.    if @frequency_interval is not NULL
  8994.       update MSsubscriber_schedule set frequency_interval = @frequency_interval 
  8995.         where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = 0
  8996.       if @@error <> 0
  8997.          goto FAILED
  8998.    
  8999.    if @frequency_relative_interval is not NULL
  9000.       update MSsubscriber_schedule set frequency_relative_interval = @frequency_relative_interval 
  9001.       where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = 0
  9002.        if @@error <> 0
  9003.          goto FAILED
  9004.    
  9005.    if @frequency_recurrence_factor is not NULL
  9006.       update MSsubscriber_schedule set frequency_recurrence_factor = @frequency_recurrence_factor 
  9007.         where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = 0
  9008.       if @@error <> 0
  9009.          goto FAILED
  9010.    
  9011.    if @frequency_subday is not NULL
  9012.       update MSsubscriber_schedule set frequency_subday = @frequency_subday 
  9013.         where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = 0
  9014.       if @@error <> 0
  9015.          goto FAILED
  9016.    
  9017.    if @frequency_subday_interval is not NULL
  9018.       update MSsubscriber_schedule set frequency_subday_interval = @frequency_subday_interval 
  9019.         where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = 0
  9020.       if @@error <> 0
  9021.          goto FAILED
  9022.    
  9023.    if @active_start_time_of_day is not NULL
  9024.       update MSsubscriber_schedule set active_start_time_of_day = @active_start_time_of_day 
  9025.         where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = 0
  9026.       if @@error <> 0
  9027.          goto FAILED
  9028.    
  9029.    if @active_end_time_of_day is not NULL
  9030.       update MSsubscriber_schedule set active_end_time_of_day = @active_end_time_of_day 
  9031.         where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = 0
  9032.       if @@error <> 0
  9033.          goto FAILED
  9034.    
  9035.    if @active_start_date is not NULL
  9036.       update MSsubscriber_schedule set active_start_date = @active_start_date 
  9037.         where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = 0
  9038.       if @@error <> 0
  9039.          goto FAILED
  9040.    
  9041.    if @active_end_date is not NULL
  9042.       update MSsubscriber_schedule set active_end_date = @active_end_date 
  9043.       where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = 0
  9044.       if @@error <> 0
  9045.          goto FAILED
  9046.    
  9047.    if @description is not NULL
  9048.       update MSsubscriber_info set description = @description 
  9049.         where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber)
  9050.       if @@error <> 0
  9051.          goto FAILED
  9052.  
  9053.     if @security_mode is not NULL
  9054.       update MSsubscriber_info set security_mode = @security_mode 
  9055.         where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber)
  9056.       if @@error <> 0
  9057.          goto FAILED
  9058.  
  9059.    commit transaction
  9060.    return (0)
  9061.    
  9062. FAILED:
  9063.     if @@trancount > 0
  9064.     begin
  9065.         rollback transaction update_subscriber
  9066.         commit tran -- to finish off the tran we started in this proc (though 
  9067.                     -- work was rolled back to savepoint)
  9068.     end
  9069.    return (1)
  9070. GO
  9071.  
  9072. raiserror(15339,-1,-1,'sp_MScheck_Jet_Subscriber')
  9073. GO
  9074. CREATE PROCEDURE sp_MScheck_Jet_Subscriber
  9075. @subscriber                sysname,
  9076. @is_jet                    int OUTPUT,
  9077. @Jet_datasource_path    sysname OUTPUT
  9078. AS
  9079.  
  9080. select @is_jet = 0
  9081. IF EXISTS (select * from master..sysservers where UPPER(srvname) = UPPER(@subscriber)
  9082.                 and upper(providername) = 'MICROSOFT.JET.OLEDB.4.0')
  9083. begin
  9084.     select @is_jet = 1
  9085.     select @Jet_datasource_path = datasource from master..sysservers where UPPER(srvname) = UPPER(@subscriber)
  9086. end
  9087. return (0)
  9088. GO
  9089.  
  9090. /*
  9091. ** this procedure is to check if merge agent is has expired based on retention
  9092. ** period. Note that if it does, a reinitialization would make it work.
  9093. */
  9094. raiserror(15339,-1,-1,'sp_MScheckretention')
  9095. GO
  9096. CREATE PROCEDURE sp_MScheckretention
  9097. @agent_id                int,
  9098. @schemachangever        int
  9099. AS
  9100. declare     @publisher_id            int
  9101. declare     @publisher_db        sysname
  9102. declare     @publication        sysname
  9103. declare        @expired            int
  9104. declare        @min_valid_day        datetime
  9105. declare        @retention            int
  9106. declare     @success            int
  9107.  
  9108. select @expired  = 0
  9109. select @success = 2
  9110.  
  9111. select @publisher_id=publisher_id, @publisher_db=publisher_db, @publication=publication 
  9112. from MSmerge_agents 
  9113. where id = @agent_id
  9114.  
  9115. select @retention = retention 
  9116. from MSpublications 
  9117. where publisher_id=@publisher_id and publisher_db=@publisher_db and publication=@publication 
  9118.  
  9119. if @retention is not NULL and @retention > 0 and @schemachangever >0
  9120. begin
  9121.     select @min_valid_day = dateadd(day, @retention * (-1), getdate()) 
  9122.     if exists (select * from MSmerge_history where agent_id=@agent_id) 
  9123.             and not exists (select * from MSmerge_history where agent_id=@agent_id and time > @min_valid_day)
  9124.         select @expired = 1
  9125. end
  9126. select @expired 
  9127. GO
  9128.  
  9129. raiserror(15339,-1,-1,'sp_MSupdate_subscriber_schedule')
  9130. GO
  9131. CREATE PROCEDURE sp_MSupdate_subscriber_schedule
  9132. @publisher sysname,
  9133. @subscriber sysname,
  9134. @agent_type tinyint = NULL,
  9135. @frequency_type int = NULL,
  9136. @frequency_interval int = NULL,
  9137. @frequency_relative_interval int = NULL,
  9138. @frequency_recurrence_factor int = NULL,
  9139. @frequency_subday int = NULL,
  9140. @frequency_subday_interval int = NULL,
  9141. @active_start_time_of_day int = NULL,
  9142. @active_end_time_of_day int = NULL,
  9143. @active_start_date int = NULL,
  9144. @active_end_date int = NULL
  9145.  
  9146. AS
  9147.    set nocount on
  9148.    
  9149.    declare @cmd1 nvarchar (255)
  9150.    declare @retcode int
  9151.    
  9152.  
  9153.    begin transaction
  9154.    save transaction update_subscriber_schedule
  9155.    
  9156.    /* Check if subscriber exists */
  9157.    if not exists (select * from MSsubscriber_info 
  9158.             where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber))
  9159.        goto FAILED
  9160.        
  9161.     if not exists (select * from MSsubscriber_schedule 
  9162.         where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = @agent_type)
  9163.        goto FAILED
  9164.     
  9165.    
  9166.    if @frequency_type is not NULL
  9167.       update MSsubscriber_schedule set frequency_type = @frequency_type 
  9168.       where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = @agent_type
  9169.       if @@error <> 0
  9170.          goto FAILED
  9171.    
  9172.    if @frequency_interval is not NULL
  9173.       update MSsubscriber_schedule set frequency_interval = @frequency_interval 
  9174.       where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = @agent_type
  9175.       if @@error <> 0
  9176.          goto FAILED
  9177.    
  9178.    if @frequency_relative_interval is not NULL
  9179.       update MSsubscriber_schedule set frequency_relative_interval = @frequency_relative_interval 
  9180.       where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = @agent_type
  9181.       if @@error <> 0
  9182.          goto FAILED
  9183.    
  9184.    if @frequency_recurrence_factor is not NULL
  9185.       update MSsubscriber_schedule set frequency_recurrence_factor = @frequency_recurrence_factor 
  9186.       where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = @agent_type
  9187.        if @@error <> 0
  9188.          goto FAILED
  9189.    
  9190.    if @frequency_subday is not NULL
  9191.       update MSsubscriber_schedule set frequency_subday = @frequency_subday 
  9192.       where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = @agent_type
  9193.       if @@error <> 0
  9194.          goto FAILED
  9195.    
  9196.    if @frequency_subday_interval is not NULL
  9197.       update MSsubscriber_schedule set frequency_subday_interval = @frequency_subday_interval 
  9198.       where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = @agent_type
  9199.       if @@error <> 0
  9200.          goto FAILED
  9201.    
  9202.    if @active_start_time_of_day is not NULL
  9203.       update MSsubscriber_schedule set active_start_time_of_day = @active_start_time_of_day 
  9204.       where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = @agent_type
  9205.       if @@error <> 0
  9206.          goto FAILED
  9207.    
  9208.    if @active_end_time_of_day is not NULL
  9209.       update MSsubscriber_schedule set active_end_time_of_day = @active_end_time_of_day 
  9210.       where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = @agent_type
  9211.       if @@error <> 0
  9212.          goto FAILED
  9213.    
  9214.    if @active_start_date is not NULL
  9215.       update MSsubscriber_schedule set active_start_date = @active_start_date 
  9216.       where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = @agent_type
  9217.       if @@error <> 0
  9218.          goto FAILED
  9219.    
  9220.    if @active_end_date is not NULL
  9221.       update MSsubscriber_schedule set active_end_date = @active_end_date 
  9222.       where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = @agent_type
  9223.       if @@error <> 0
  9224.          goto FAILED
  9225.  
  9226.    commit transaction
  9227.    return (0)
  9228.    
  9229. FAILED:
  9230.     if @@trancount > 0
  9231.     begin
  9232.         rollback transaction update_subscriber_schedule
  9233.         commit transaction      -- to finish off the tran we started in this proc (though 
  9234.                                 -- work was rolled back to savepoint)
  9235.     end
  9236.    return (1)
  9237. GO
  9238.  
  9239.  
  9240. raiserror(15339,-1,-1,'sp_MSdrop_subscriber_info')
  9241. GO
  9242. CREATE PROCEDURE sp_MSdrop_subscriber_info
  9243. @publisher sysname,
  9244. @subscriber sysname
  9245.  
  9246. AS
  9247.     set nocount on
  9248.  
  9249.     declare @srvid smallint
  9250.     declare @publisher_id smallint
  9251.     declare @publisher_db sysname
  9252.   
  9253.     if exists (select * from MSsubscriber_info where
  9254.         UPPER(subscriber) = UPPER(@subscriber))
  9255.     begin
  9256.  
  9257.         select @srvid = srvid from master..sysservers where lower(srvname) = lower(@subscriber)
  9258.  
  9259.         -- For SQL server publishers, drop the existing subscriptions.
  9260.         -- This has to be done for 65 upgrade.
  9261.         -- For third party, check for error.
  9262.         if exists (select * from msdb..MSdistpublishers where 
  9263.             lower(name) = lower(@publisher) and
  9264.             thirdparty_flag = 0)
  9265.         begin
  9266.             -- This is needed for 6.5 upgrade.
  9267.             -- Remove subscription entries for this publisher and subscriber pair
  9268.             -- Get dist publisher ID
  9269.             exec dbo.sp_MSvalidate_distpublisher @publisher, @publisher_id OUTPUT
  9270.             delete MSsubscriptions where subscriber_id = @srvid and 
  9271.                 publisher_id = @publisher_id
  9272.         end
  9273.         else
  9274.         begin
  9275.             if exists (select * from MSsubscriptions where subscriber_id = @srvid)
  9276.             begin
  9277.                 raiserror(20100, 16, -1, @subscriber)
  9278.                 return (1)
  9279.             end
  9280.         end
  9281.  
  9282.         delete MSsubscriber_info where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber)
  9283.         if @@error <> 0
  9284.             return 1
  9285.         delete MSsubscriber_schedule where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber)
  9286.         if @@error <> 0
  9287.             return 1    
  9288.     end
  9289. GO
  9290.  
  9291. -- delete the agent rows that are orphaned for some external reasons, e.g., publishing database dropped,
  9292. -- the agent entry for anonymous TRAN/MERGE subscriptions. 
  9293. -- Can be called directly by user to explicitly cleanup metadata in distribution database
  9294.  
  9295. raiserror(15339,-1,-1,'sp_MScleanup_agent_entry')
  9296. GO
  9297. CREATE PROCEDURE sp_MScleanup_agent_entry
  9298. AS
  9299.     
  9300.     declare @min_valid_day         datetime
  9301.  
  9302.     declare @publisher_id         int
  9303.     declare @subscriber_id         int
  9304.     declare @publication         sysname
  9305.     declare @publisher_db         sysname
  9306.     declare @subscriber_db         sysname
  9307.     declare @retention             int
  9308.     declare @publication_type     int
  9309.     declare @agent_id            int
  9310.         , @num_dropped    int
  9311.         , @retcode int
  9312.  
  9313.     set nocount on
  9314.     select @num_dropped = 0
  9315.  
  9316.     declare PC CURSOR LOCAL FAST_FORWARD for 
  9317.         select distinct publisher_id, publisher_db, publication, retention, publication_type from MSpublications
  9318.             where retention<>0
  9319.     open PC
  9320.     fetch PC into @publisher_id, @publisher_db, @publication, @retention, @publication_type
  9321.     while (@@fetch_status <> -1)
  9322.     begin    
  9323.         if @publication_type = 2  --merge publication
  9324.         begin
  9325.             select @min_valid_day = dateadd(day, @retention * (-2), getdate()) 
  9326.  
  9327.             declare hC CURSOR LOCAL FAST_FORWARD FOR 
  9328.                 select id from MSmerge_agents where creation_date < @min_valid_day
  9329.                     and not exists (select * from MSmerge_history where agent_id = id and time > @min_valid_day)
  9330.                     and publisher_id=@publisher_id
  9331.                     and publisher_db = @publisher_db
  9332.                     and publication = @publication   
  9333.                     -- Only do this for anonymous agents
  9334.                     and subscriber_name is not null         
  9335.             for read only
  9336.             open hC
  9337.             fetch hC into @agent_id
  9338.             while (@@fetch_status <> -1)
  9339.             begin
  9340.                 exec @retcode = dbo.sp_MSdrop_merge_agentid @agent_id
  9341.                 if @retcode <> 0 or @@error <> 0
  9342.                     return (1)
  9343.                 select @num_dropped = @num_dropped + 1
  9344.                 fetch hC into @agent_id
  9345.             end
  9346.             close hC
  9347.             deallocate hC
  9348.         end
  9349.            else if @publication_type in (0,1) --Tran level publication
  9350.               begin  
  9351.                 select @min_valid_day = dateadd(hour, @retention * (-1), getdate())    
  9352.                 -- Only do this for anonymous agents
  9353.                 declare hC CURSOR LOCAL FAST_FORWARD FOR 
  9354.                     select id from MSdistribution_agents where creation_date < @min_valid_day
  9355.                         and not exists (select * from MSdistribution_history where agent_id = id and time > @min_valid_day)
  9356.                         and publisher_id=@publisher_id
  9357.                         and publisher_db = @publisher_db
  9358.                         and publication = @publication            
  9359.                         -- Only do this for anonymous agents
  9360.                         and subscriber_name is not null                             
  9361.                 for read only
  9362.                 open hC
  9363.                 fetch hC into @agent_id
  9364.                 while (@@fetch_status <> -1)
  9365.                 begin
  9366.                     exec @retcode = dbo.sp_MSdrop_distribution_agentid @agent_id
  9367.                     if @retcode <> 0 or @@error <> 0
  9368.                         return (1)
  9369.                     select @num_dropped = @num_dropped + 1
  9370.                     fetch hC into @agent_id
  9371.                 end
  9372.             close hC
  9373.             deallocate hC
  9374.             end
  9375.           fetch PC into @publisher_id, @publisher_db, @publication, @retention, @publication_type
  9376.     end
  9377.     close PC
  9378.     deallocate PC
  9379.     if @num_dropped > 0
  9380.         RAISERROR(20597, 10, -1, @num_dropped) 
  9381.        return (0)
  9382. FAILURE:
  9383.     close PC
  9384.     deallocate PC
  9385.        return (1)        
  9386. GO
  9387.  
  9388. raiserror(15339,-1,-1,'sp_MShelp_subscription_status')
  9389. GO
  9390. CREATE PROCEDURE sp_MShelp_subscription_status(
  9391. @publisher          sysname,
  9392. @publisher_db       sysname,
  9393. @publication        sysname,
  9394. @subscriber         sysname,
  9395. @subscriber_db      sysname,
  9396. @retention          int,
  9397. @out_of_date        int OUTPUT,
  9398. @independent_agent  bit = 0
  9399. )AS
  9400.  
  9401. declare @subscriber_id          int
  9402. declare @publisher_id           int
  9403. declare @publication_id         int
  9404. declare @retcode                int
  9405. declare @agent_id               int
  9406. declare @min_valid_day          datetime
  9407. declare @subscription_time      datetime
  9408. declare @last_history            datetime
  9409. declare @last_status            int
  9410.  
  9411. select @out_of_date = 0 -- Default value set to in-sync
  9412. select @publisher_id = srvid from master..sysservers where UPPER(srvname) = UPPER(@publisher)
  9413. select @subscriber_id = srvid from master..sysservers where UPPER(srvname)=UPPER(@subscriber)
  9414.  
  9415. select  @publication_id = publication_id
  9416.         from MSpublications where
  9417.         publisher_id = @publisher_id and
  9418.         publisher_db = @publisher_db and
  9419.         publication = @publication
  9420.  
  9421. select @subscription_time = subscription_time
  9422.         from MSsubscriptions where
  9423.             publisher_id = @publisher_id and
  9424.             publisher_db = @publisher_db and
  9425.             publication_id = @publication_id and
  9426.             subscriber_id = @subscriber_id and
  9427.             subscriber_db = @subscriber_db
  9428.             
  9429. select @min_valid_day = dateadd(hour, -@retention, getdate())
  9430.         
  9431. BEGIN TRAN
  9432.     select @agent_id = id from MSdistribution_agents 
  9433.         where   publisher_id = @publisher_id and 
  9434.                 publisher_db = @publisher_db and 
  9435.                 ((publication = @publication and @independent_agent = 1 ) 
  9436.                     or (LOWER(publication) = 'all' and @independent_agent = 0)) and
  9437.                 subscriber_id = @subscriber_id and  
  9438.                 subscriber_db = @subscriber_db
  9439.  
  9440.     if @agent_id is NOT NULL
  9441.         begin
  9442.             select Top 1 @last_status = runstatus, @last_history = time 
  9443.                 from MSdistribution_history where agent_id = @agent_id
  9444.                     order by timestamp DESC
  9445.                     
  9446.             -- if failure then get the last success; if any; else use the existing value                    
  9447.             
  9448.             if @last_status = 6 and EXISTS (select * from MSdistribution_history where agent_id = @agent_id and runstatus = 2) 
  9449.                 select Top 1 @last_history = time 
  9450.                     from MSdistribution_history where agent_id = @agent_id and runstatus = 2
  9451.                         order by timestamp DESC    
  9452.             
  9453.             if EXISTS (select * from MSdistribution_history where agent_id = @agent_id) and (@last_history < @min_valid_day)
  9454.                 and (@retention <> 0)
  9455.                 select @out_of_date = 1
  9456.             else 
  9457.                 if (not EXISTS (select * from MSdistribution_history where agent_id = @agent_id)) and
  9458.                         (@subscription_time < @min_valid_day) and (@retention <> 0)
  9459.                 select @out_of_date = 1
  9460.         end
  9461.         
  9462. COMMIT TRAN
  9463. return (0)
  9464.  
  9465. FAILURE:
  9466.     if @@TRANCOUNT = 1
  9467.         ROLLBACK TRAN
  9468.     else
  9469.         COMMIT TRAN
  9470.     return (1)
  9471. GO
  9472.  
  9473.  
  9474.  
  9475. raiserror(15339,-1,-1,'sp_MShelp_subscriber_info')
  9476. GO
  9477. CREATE PROCEDURE sp_MShelp_subscriber_info
  9478. @publisher sysname = '%',
  9479. @subscriber sysname = '%',
  9480. @found int = NULL    OUTPUT,
  9481. @show_password bit = 1
  9482.  
  9483. AS
  9484.    set nocount on
  9485.    
  9486.    DECLARE @no_rows bit
  9487.  
  9488.     -- push agents (dist or merge) may call this.
  9489.     -- raise an message indicating that users may forget to specify -SubscriptionType
  9490.     if is_member(N'db_owner') <> 1
  9491.     begin
  9492.         raiserror (20604, 16, -1)
  9493.         return 1
  9494.     end
  9495.  
  9496.     /*
  9497.     ** Initializations.
  9498.     */
  9499.     IF @found is NULL
  9500.     BEGIN
  9501.         SELECT @no_rows=0
  9502.     END
  9503.     ELSE
  9504.     BEGIN
  9505.         SELECT @no_rows=1
  9506.     END
  9507.  
  9508.    if exists (select * from MSsubscriber_info 
  9509.                where (@publisher = '%' or UPPER(publisher) = UPPER(@publisher)) 
  9510.                  and (@subscriber = '%' or UPPER(subscriber) = UPPER(@subscriber)))
  9511.    begin
  9512.         select @found = 1
  9513.         if @no_rows <>0 return(0)
  9514.    end
  9515.    else
  9516.    begin
  9517.         select @found = 0
  9518.         if @no_rows <>0 return(0)
  9519.    end
  9520.  
  9521.    if exists (select * from MSsubscriber_schedule 
  9522.                where (@publisher = N'%' or UPPER(publisher) = UPPER(@publisher))
  9523.                  and (@subscriber = N'%' or UPPER(subscriber) = UPPER(@subscriber)))
  9524.     begin
  9525.     
  9526.      select Sinfo.publisher,
  9527.             Sinfo.subscriber,
  9528.             Sinfo.type,
  9529.             Sinfo.login,
  9530.             case when @show_password = 1 then Sinfo.password
  9531.             else convert(sysname, NULL) end,
  9532.             100,  -- commit_batch_size, no longer supported
  9533.             100,  -- status_batch_size, no longer supported
  9534.             1,    -- flush_frequency, no longer supported
  9535.             sch1.frequency_type, 
  9536.             sch1.frequency_interval,
  9537.             sch1.frequency_relative_interval,
  9538.             sch1.frequency_recurrence_factor,
  9539.             sch1.frequency_subday,
  9540.             sch1.frequency_subday_interval,
  9541.             sch1.active_start_time_of_day,
  9542.             sch1.active_end_time_of_day,
  9543.             sch1.active_start_date,
  9544.             sch1.active_end_date,
  9545.             4, -- retryattempt, no longer exist
  9546.             4,  -- retrydelay, no longer exist
  9547.             Sinfo.description,
  9548.             Sinfo.security_mode,
  9549.             sch2.frequency_type, 
  9550.             sch2.frequency_interval,
  9551.             sch2.frequency_relative_interval,
  9552.             sch2.frequency_recurrence_factor,
  9553.             sch2.frequency_subday,
  9554.             sch2.frequency_subday_interval,
  9555.             sch2.active_start_time_of_day,
  9556.             sch2.active_end_time_of_day,
  9557.             sch2.active_start_date,
  9558.             sch2.active_end_date
  9559.             
  9560.     from (MSsubscriber_info as Sinfo LEFT OUTER JOIN MSsubscriber_schedule as sch1 
  9561.         on UPPER(Sinfo.publisher)=UPPER(sch1.publisher) AND UPPER(Sinfo.subscriber)=UPPER(sch1.subscriber) and sch1.agent_type=0)
  9562.         LEFT OUTER JOIN MSsubscriber_schedule as sch2
  9563.             on UPPER(Sinfo.publisher)=UPPER(sch2.publisher) AND UPPER(Sinfo.subscriber)=UPPER(sch2.subscriber) 
  9564.                     and sch2.agent_type=1
  9565.     where (@publisher = N'%' or UPPER(Sinfo.publisher) = UPPER(@publisher)) and 
  9566.           (@subscriber = N'%' or UPPER(Sinfo.subscriber) = UPPER(@subscriber))                 
  9567.     
  9568.     end
  9569. GO
  9570.  
  9571. raiserror(15339,-1,-1,'sp_MSdistribution_counters')
  9572. go
  9573. CREATE PROCEDURE sp_MSdistribution_counters
  9574. @publisher sysname      /* publication server name */
  9575. AS
  9576.  
  9577.     set nocount on
  9578.  
  9579.     declare @publisher_id smallint
  9580.     declare @subscriber_id smallint
  9581.     declare @active_status tinyint
  9582.     declare @snapshot_bit int
  9583.     declare @undelivered_commands int
  9584.     declare @delivered_commands int
  9585.     declare @delivery_rate float
  9586.     declare @delivery_latency int
  9587.     declare @xact_seqno varbinary(16)
  9588.     declare @agent_id int
  9589.     
  9590.     select @active_status = 2
  9591.     select @snapshot_bit = 0x80000000
  9592.  
  9593.  
  9594.     -- Make sure publisher is defined on distributor
  9595.     --
  9596.     select @publisher_id = srvid from master..sysservers where UPPER(srvname) = UPPER(@publisher)
  9597.     if @publisher_id is null
  9598.        return (1)
  9599.  
  9600.     create table #dist_trans (subscriber_id smallint NOT NULL, undelivered_commands int NOT NULL, 
  9601.         delivered_commands int NOT NULL, delivery_rate float NOT NULL, 
  9602.         delivery_latency int NOT NULL)
  9603.  
  9604.     declare hc CURSOR LOCAL FAST_FORWARD FOR select distinct agent_id
  9605.         from MSsubscriptions
  9606.         where
  9607.         publisher_id = @publisher_id and
  9608.         subscriber_id >= 0 and
  9609.         status = 2
  9610.         for read only
  9611.  
  9612.     open hc
  9613.     fetch hc into  @agent_id
  9614.     while (@@fetch_status <> -1)
  9615.     begin
  9616.         -- Get the lastest numbers from distribution_history
  9617.         select  @xact_seqno = NULL
  9618.  
  9619.         -- Get latest seqno, rate and latency
  9620.         set rowcount 1
  9621.         select  @xact_seqno = xact_seqno,
  9622. --              @delivered_commands = delivered_commands,
  9623.                 @delivery_rate = current_delivery_rate,
  9624.                 @delivery_latency = current_delivery_latency
  9625.             -- from MSdistribution_history  (READPAST)
  9626.             from MSdistribution_history 
  9627.             where
  9628.             agent_id = @agent_id and
  9629.             xact_seqno <> 0x0
  9630.             order by timestamp DESC
  9631.         set rowcount 0
  9632.  
  9633.         if @xact_seqno IS NULL
  9634.             select  @xact_seqno = 0x00,
  9635.                     @delivery_rate = 0,
  9636.                     @delivery_latency = 0
  9637.  
  9638.  
  9639.         set rowcount 1
  9640.         select @subscriber_id = subscriber_id FROM MSsubscriptions
  9641.             where agent_id = @agent_id
  9642.         set rowcount 0
  9643.         
  9644.         -- Get the delivered trans number
  9645.         select @delivered_commands = 0
  9646.         select @delivered_commands = isnull(count(*), 0)
  9647.             from
  9648.             -- MSrepl_commands rc (READPAST), MSsubscriptions s
  9649.             MSrepl_commands rc, MSsubscriptions s
  9650.             where
  9651.             /*
  9652.             ** Query from sp_MSget_repl_commands
  9653.             */
  9654.             s.agent_id = @agent_id and
  9655.             s.status = @active_status and
  9656.             rc.publisher_database_id = s.publisher_database_id and
  9657. --          rc.publisher_id = s.publisher_id and
  9658. --          rc.publisher_db = s.publisher_db and
  9659.             rc.xact_seqno <= @xact_seqno and
  9660.             rc.article_id = s.article_id and
  9661.             rc.partial_command = 0
  9662.             and
  9663.             ((rc.xact_seqno >= s.subscription_seqno and (rc.type & @snapshot_bit) <> @snapshot_bit) or
  9664.             rc.xact_seqno = s.subscription_seqno)
  9665.  
  9666.         -- Get the undelivered trans number
  9667.         select @undelivered_commands = 0
  9668.         select @undelivered_commands = isnull(count(*), 0)
  9669.             from
  9670.             -- MSrepl_commands rc (READPAST), MSsubscriptions s
  9671.             MSrepl_commands rc , MSsubscriptions s
  9672.             where
  9673.             /*
  9674.             ** Query from sp_MSget_repl_commands
  9675.             */
  9676.             s.agent_id = @agent_id and
  9677.             s.status = @active_status and
  9678.             rc.publisher_database_id = s.publisher_database_id and
  9679.             rc.xact_seqno > @xact_seqno and
  9680.             rc.article_id = s.article_id and
  9681.             rc.partial_command = 0
  9682.             and
  9683.             ((rc.xact_seqno >= s.subscription_seqno and (rc.type & @snapshot_bit) <> @snapshot_bit) or
  9684.             rc.xact_seqno = s.subscription_seqno)
  9685.  
  9686.         insert into #dist_trans values (@subscriber_id, @undelivered_commands,
  9687.             @delivered_commands, @delivery_rate, @delivery_latency)
  9688.         
  9689.         fetch hc into  @agent_id
  9690.     end
  9691.  
  9692.     close hc
  9693.     deallocate hc
  9694.  
  9695.     select 'subscriber' = srvname, 
  9696.             'delivered commands' = sum(delivered_commands),
  9697.             'undelivered_commands' = sum(undelivered_commands),
  9698.             'delivery_rate' = sum(delivery_rate),
  9699.             'delivery_latency' = (select isnull(avg(delivery_latency), 0) from #dist_trans, master.dbo.sysservers where
  9700.                 srvname = s1.srvname and delivery_latency > 0)
  9701.         from #dist_trans, master.dbo.sysservers s1
  9702.         where subscriber_id = srvid
  9703.         group by srvname
  9704.  
  9705.     drop table #dist_trans
  9706.         
  9707. GO
  9708.  
  9709. raiserror(15339,-1,-1,'sp_MSremove_published_jobs')
  9710. go
  9711. CREATE PROCEDURE sp_MSremove_published_jobs
  9712. @server sysname,
  9713. @database sysname
  9714. AS
  9715.     -- 6.5 publisher and 7.0 publisher will call this
  9716.     -- publisher_database_id will be drop in sp_MSdrop_publication.
  9717.     return(0)
  9718. go
  9719.  
  9720. raiserror(15339,-1,-1,'sp_MSset_snapshot_xact_seqno')
  9721. go
  9722.  
  9723. CREATE PROCEDURE sp_MSset_snapshot_xact_seqno
  9724. @publisher_id int,
  9725. @publisher_db sysname,
  9726. @article_id int, 
  9727. @xact_seqno varbinary(16),
  9728. @reset bit = 0,         /* @reset = 1 is used for Scheduled Snapshot publications by snapshot */
  9729. @publication sysname = NULL,
  9730. @publisher_seqno varbinary(16) = 0x00,
  9731. @ss_cplt_seqno varbinary(16) = NULL
  9732. /* 
  9733. ** Required for 6x publishers!
  9734. */
  9735. AS
  9736.  
  9737.     DECLARE @virtual smallint     /* const: virtual subscriber id */
  9738.     DECLARE @virtual_anonymous smallint /* const: virtual anonymous subscriber id */
  9739.     DECLARE @old_xact_seqno varbinary(16)
  9740.     DECLARE @old_publisher_seqno varbinary(16)
  9741.     DECLARE @subscribed tinyint
  9742.     DECLARE @automatic tinyint
  9743.     DECLARE @old_snapshot_seqno_flag bit
  9744.     DECLARE @publication_id int
  9745.     DECLARE @initiated tinyint
  9746.  
  9747.     SELECT @virtual = -1
  9748.     SELECT @virtual_anonymous = -2
  9749.     SELECT @subscribed = 1
  9750.     SELECT @automatic = 1
  9751.     SELECT @initiated = 3
  9752.     
  9753.     if @ss_cplt_seqno is null 
  9754.     begin
  9755.         select @ss_cplt_seqno = @xact_seqno;
  9756.     end
  9757.  
  9758.     -- 6.5 only!!! @publication is not null only if the publisher is 6.5 sever!
  9759.     -- Set the publication_id and sync_type in MSsubscriptions.
  9760.     -- It will be used in sp_MSupdate_subscriptions 
  9761.     IF @publication IS NOT NULL
  9762.     BEGIN
  9763.         -- Get the publication id
  9764.         SELECT @publication_id = publication_id FROM MSpublications
  9765.             WHERE   publisher_id = @publisher_id AND
  9766.                     publisher_db = @publisher_db AND    
  9767.                     publication  = @publication
  9768.  
  9769.         -- Set the pubid and the sync_type
  9770.         -- Avoid update rows with no change to reduce update locks.
  9771.         
  9772.         UPDATE MSsubscriptions SET publication_id = @publication_id
  9773.             WHERE   publisher_id = @publisher_id AND
  9774.                     publisher_db = @publisher_db AND    
  9775.                     article_id  = @article_id and
  9776.                     status = @subscribed and
  9777.                     publication_id <> @publication_id
  9778.         
  9779.         -- Have to do this to avoid no sync subs from 6.5 publisher being
  9780.         -- updated.
  9781.         UPDATE MSsubscriptions SET sync_type = @automatic
  9782.             WHERE   publisher_id = @publisher_id AND
  9783.                     publisher_db = @publisher_db AND    
  9784.                     article_id  = @article_id and
  9785.                     status = @subscribed and
  9786.                     sync_type <> @automatic
  9787.     END
  9788.  
  9789.     begin tran
  9790.     save TRANSACTION MSset_snapshot_xact_seqno
  9791.  
  9792.     /* 
  9793.     ** Set snapshot_xact_seqno for all new subscriptions,
  9794.     ** plus the virtual subscription or all subscriptions if @reset = 1
  9795.     ** Note virtual anonymous subscription will not be set
  9796.     ** (2 virtual subscriptions of anonymous publication will be activated
  9797.     ** immediately without snapshot
  9798.     ** 
  9799.     ** @reset = 1 is used for Scheduled Snapshot publications by snapshot
  9800.     */
  9801.     UPDATE MSsubscriptions SET subscription_seqno = @xact_seqno,
  9802.         publisher_seqno = @publisher_seqno,
  9803.         snapshot_seqno_flag = 1,
  9804.         subscription_time = getdate(),
  9805.         ss_cplt_seqno = @ss_cplt_seqno
  9806.       WHERE 
  9807.          MSsubscriptions.publisher_id = @publisher_id and
  9808.          MSsubscriptions.publisher_db = @publisher_db and
  9809.          MSsubscriptions.article_id = @article_id and 
  9810.          /* virtual subscriptions are automatic sync type */
  9811.          MSsubscriptions.sync_type = @automatic and 
  9812.          (MSsubscriptions.status in(@subscribed,@initiated) or 
  9813.          MSsubscriptions.subscriber_id = @virtual or
  9814.          -- Set for virtual anonymous account if snapshot_seqno_flag
  9815.          -- is 0.
  9816.          -- The virtual anonymous account is activated immediately at subscription
  9817.          -- time for no init option for anonymous agent.
  9818.          (MSsubscriptions.subscriber_id = @virtual_anonymous and 
  9819.          (MSsubscriptions.snapshot_seqno_flag = 0 or 
  9820.          MSsubscriptions.status in(@subscribed,@initiated))) or
  9821.          @reset = 1) 
  9822.  
  9823.     IF @@ERROR <> 0
  9824.     BEGIN
  9825.         if @@trancount > 0
  9826.         begin
  9827.             ROLLBACK TRANSACTION MSset_snapshot_xact_seqno
  9828.             commit tran
  9829.         end
  9830.         RETURN (1)
  9831.     END
  9832.  
  9833.     COMMIT TRANSACTION
  9834. GO
  9835.  
  9836.  
  9837. raiserror(15339,-1,-1,'sp_MSdrop_article')
  9838. go
  9839. CREATE PROCEDURE sp_MSdrop_article
  9840. @publisher sysname,
  9841. @publisher_db sysname,
  9842. @publication sysname,
  9843. @article sysname
  9844.  
  9845. as
  9846.  
  9847.     set nocount on
  9848.  
  9849.     declare @publisher_id smallint
  9850.     declare @publication_id int
  9851.     declare @article_id int
  9852.     declare @retcode int
  9853.     declare @thirdparty_flag bit
  9854.     declare @immediate_sync bit
  9855.  
  9856.     -- Check if publisher is a defined as a distribution publisher in the current database
  9857.     exec @retcode = dbo.sp_MSvalidate_distpublisher @publisher, @publisher_id OUTPUT
  9858.     if @retcode <> 0
  9859.     begin
  9860.         return(1)
  9861.     end
  9862.  
  9863.     -- Make sure publication exists
  9864.     select @publication_id = publication_id, @thirdparty_flag = thirdparty_flag,
  9865.         @immediate_sync = immediate_sync
  9866.         from MSpublications where 
  9867.         publication = @publication and
  9868.         publisher_id = @publisher_id and 
  9869.         publisher_db = @publisher_db
  9870.     if @publication_id is NULL
  9871.     begin
  9872.         raiserror(20026, 16, -1, @publication)
  9873.         return (1)
  9874.     end
  9875.  
  9876.     -- Make sure article exists
  9877.     declare @source_object sysname
  9878.     select @article_id = article_id, @source_object = source_object
  9879.         from MSarticles where 
  9880.         publication_id = @publication_id and
  9881.         publisher_id = @publisher_id and 
  9882.         publisher_db = @publisher_db and 
  9883.         article = @article
  9884.     if @article_id is NULL
  9885.     begin
  9886.         if @thirdparty_flag = 1
  9887.         begin
  9888.             raiserror(20027, 16, -1, @article)
  9889.             return (1)
  9890.         end
  9891.         else
  9892.             return (0)
  9893.     end
  9894.  
  9895.     -- Check to make sure that there are no subscriptions on the article
  9896.     if exists (select * from MSsubscriptions where 
  9897.         publisher_id = @publisher_id and
  9898.         publisher_db = @publisher_db and
  9899.         publication_id = @publication_id and
  9900.         article_id = @article_id and
  9901.         subscriber_id >= 0)             -- ignore virtual subscriptions
  9902.     begin
  9903.         raiserror(14046, 16, -1)
  9904.         return(1)
  9905.     end
  9906.  
  9907.     begin tran
  9908.     save tran MSdrop_article
  9909.  
  9910.     -- For third party publications drop immediate sync and anonymous virtual subscriptions
  9911.     -- SQL Server publications will do this via RPC calls to sp_MSadd_subscription
  9912.     if @thirdparty_flag = 1 and @immediate_sync = 1
  9913.     begin
  9914.         begin
  9915.             exec @retcode = dbo.sp_MSdrop_subscription
  9916.                 @publisher = @publisher,
  9917.                 @publisher_db = @publisher_db,
  9918.                 @publication = @publication,
  9919.                 @article_id = @article_id,
  9920.                 @subscriber = NULL                  -- virtual subscription
  9921.             if @retcode <> 0 or @@error <> 0
  9922.             begin
  9923.                 if @@trancount > 0
  9924.                 begin
  9925.                     rollback tran MSdrop_article
  9926.                     commit tran
  9927.                 end
  9928.                 return (1)
  9929.             end
  9930.         end
  9931.     end
  9932.  
  9933.     delete from MSarticles where
  9934.         publisher_id = @publisher_id and
  9935.         publisher_db = @publisher_db and
  9936.         publication_id = @publication_id and
  9937.         article_id = @article_id
  9938.     if @@error <> 0
  9939.     begin
  9940.         if @@trancount > 0
  9941.         begin
  9942.             rollback tran MSdrop_article
  9943.             commit tran
  9944.         end
  9945.         return (1)
  9946.     end
  9947.  
  9948.     if not exists (select * from MSarticles  where 
  9949.         publisher_id = @publisher_id and
  9950.         publisher_db = @publisher_db and
  9951.         source_object = @source_object)
  9952.     begin
  9953.         delete MSrepl_identity_range where 
  9954.             publisher = @publisher and
  9955.             publisher_db = @publisher_db and
  9956.             tablename = @source_object
  9957.         if @@ERROR <> 0 begin
  9958.             if @@trancount > 0
  9959.                 ROLLBACK TRAN
  9960.             RETURN (1)
  9961.         end
  9962.     end
  9963.  
  9964.     commit tran
  9965. go
  9966.  
  9967. raiserror(15339,-1,-1,'sp_MSdrop_snapshot_agent')
  9968. GO
  9969. CREATE PROCEDURE sp_MSdrop_snapshot_agent (
  9970.     @publisher sysname,
  9971.     @publisher_db sysname,
  9972.     @publication sysname
  9973. ) AS
  9974.  
  9975.  
  9976.     SET NOCOUNT ON
  9977.  
  9978.     /*
  9979.     ** Declarations.
  9980.     */
  9981.     DECLARE @retcode    int
  9982.     DECLARE @job_id     binary(16)
  9983.     DECLARE @local_job  bit
  9984.     DECLARE @publisher_id smallint
  9985.     DECLARE @name       nvarchar(100)
  9986.     DECLARE @agent_id   int
  9987.  
  9988.     /*
  9989.     ** Initializations
  9990.     */
  9991.     select @publisher_id = srvid from master..sysservers where
  9992.         UPPER(srvname) = UPPER(@publisher)
  9993.  
  9994.  
  9995.  
  9996.     SELECT @job_id = job_id, @local_job = local_job, @name = name, @agent_id = id  FROM MSsnapshot_agents WHERE
  9997.         publisher_id = @publisher_id AND
  9998.         publisher_db = @publisher_db AND
  9999.         publication = @publication
  10000.  
  10001.     -- Delete Perfmon instance
  10002.     dbcc deleteinstance ("SQL Replication Snapshot", @name)
  10003.  
  10004.     -- Return if not exists
  10005.     IF @local_job IS NULL
  10006.         RETURN(0)
  10007.  
  10008.     BEGIN TRAN
  10009.  
  10010.     IF @local_job = 1
  10011.     BEGIN
  10012.         -- Don't drop the job for third party publications.
  10013.         if exists (select * from msdb..MSdistpublishers where 
  10014.             UPPER(name) = UPPER(@publisher) and
  10015.             thirdparty_flag = 0)
  10016.         begin                            
  10017.             IF EXISTS (SELECT * FROM msdb..sysjobs_view WHERE job_id = @job_id)
  10018.             BEGIN
  10019.                 EXEC @retcode = msdb.dbo.sp_delete_job @job_id = @job_id
  10020.                 IF @@ERROR <> 0 or @retcode <> 0
  10021.                     GOTO UNDO
  10022.             END
  10023.         end
  10024.     END
  10025.  
  10026.     DELETE MSsnapshot_agents WHERE id = @agent_id
  10027.     IF @@ERROR <> 0 
  10028.         GOTO UNDO
  10029.  
  10030.     -- Remove history
  10031.     DELETE MSsnapshot_history WHERE agent_id = @agent_id
  10032.     IF @@ERROR <> 0 
  10033.         GOTO UNDO
  10034.  
  10035.     IF @@ERROR <> 0 
  10036.         GOTO UNDO
  10037.  
  10038.     -- Update global replication status table
  10039.     EXEC dbo.sp_MSupdate_replication_status
  10040.         @publisher,
  10041.         @publisher_db,
  10042.         @publication,
  10043.         @agent_type = 1,
  10044.         @agent_name = @name,
  10045.         @status = -1    -- delete status
  10046.  
  10047.     COMMIT TRAN
  10048.  
  10049.     RETURN(0)
  10050.  
  10051. UNDO:
  10052.     if @@TRANCOUNT = 1
  10053.         ROLLBACK TRAN
  10054.     else
  10055.         COMMIT TRAN
  10056.     return(1)
  10057. GO
  10058.  
  10059.  
  10060. raiserror(15339,-1,-1,'sp_MSdrop_logreader_agent')
  10061. GO
  10062. CREATE PROCEDURE sp_MSdrop_logreader_agent (
  10063.     @publisher sysname,
  10064.     @publisher_db sysname,
  10065.     @publication sysname  --Only used by 3rd party publisher
  10066. ) AS
  10067.  
  10068.  
  10069.     SET NOCOUNT ON
  10070.  
  10071.     /*
  10072.     ** Declarations.
  10073.     */
  10074.     DECLARE @retcode    int
  10075.     DECLARE @job_id     binary(16)
  10076.     DECLARE @local_job  bit
  10077.     DECLARE @publisher_id smallint
  10078.     DECLARE @name       nvarchar(100)
  10079.     DECLARE @agent_id   int
  10080.  
  10081.     /*
  10082.     ** Initializations
  10083.     */
  10084.     select @publisher_id = srvid from master..sysservers where
  10085.         UPPER(srvname) = UPPER(@publisher)
  10086.  
  10087.  
  10088.     SELECT @job_id = job_id, @local_job = local_job, @name = name, @agent_id = id FROM MSlogreader_agents WHERE
  10089.         publisher_id = @publisher_id AND
  10090.         publisher_db = @publisher_db AND
  10091.         publication = @publication
  10092.  
  10093.     -- Delete Perfmon instance
  10094.     dbcc deleteinstance ("SQL Replication Logreader", @name)
  10095.  
  10096.     -- Return if not exists
  10097.     IF @local_job IS NULL
  10098.         RETURN(0)
  10099.  
  10100.     BEGIN TRAN
  10101.  
  10102.     IF @local_job = 1
  10103.     BEGIN
  10104.         -- Don't drop the job for third party publications.
  10105.         if exists (select * from msdb..MSdistpublishers where 
  10106.             UPPER(name) = UPPER(@publisher) and
  10107.             thirdparty_flag = 0)
  10108.         begin                            
  10109.             IF EXISTS (SELECT * FROM msdb..sysjobs_view WHERE job_id = @job_id)
  10110.             BEGIN
  10111.                 EXEC @retcode = msdb.dbo.sp_delete_job @job_id = @job_id
  10112.                 IF @@ERROR <> 0 or @retcode <> 0
  10113.                     GOTO UNDO
  10114.             END
  10115.         end
  10116.     END
  10117.  
  10118.     DELETE MSlogreader_agents WHERE id = @agent_id
  10119.     IF @@ERROR <> 0 
  10120.         GOTO UNDO
  10121.  
  10122.     -- Remove history
  10123.     DELETE MSlogreader_history WHERE
  10124.         agent_id = @agent_id
  10125.  
  10126.     IF @@ERROR <> 0 
  10127.         GOTO UNDO
  10128.  
  10129.     -- Update global replication status table
  10130.     EXEC dbo.sp_MSupdate_replication_status
  10131.         @publisher,
  10132.         @publisher_db,
  10133.         @publication,
  10134.         @agent_type = 2,
  10135.         @agent_name = @name,
  10136.         @status = -1    -- delete status
  10137.  
  10138.     COMMIT TRAN
  10139.  
  10140.     RETURN(0)
  10141.  
  10142. UNDO:
  10143.     if @@TRANCOUNT = 1
  10144.         ROLLBACK TRAN
  10145.     else
  10146.         COMMIT TRAN
  10147.     return(1)
  10148. GO
  10149.  
  10150. raiserror(15339,-1,-1,'sp_MSdrop_publication')
  10151. go
  10152. CREATE PROCEDURE sp_MSdrop_publication
  10153. @publisher sysname,
  10154. @publisher_db sysname,
  10155. @publication sysname
  10156. as
  10157.  
  10158.     set nocount on
  10159.  
  10160.     declare @publisher_id smallint
  10161.     declare @publication_id int
  10162.     declare @retcode int
  10163.     declare @article sysname
  10164.     declare @thirdparty_flag bit
  10165.     DECLARE @working_dir nvarchar(255)
  10166.     DECLARE @pub_dir nvarchar(255)
  10167.  
  10168.  
  10169.     -- Check if publisher is a defined as a distribution publisher in the current database
  10170.     exec @retcode = dbo.sp_MSvalidate_distpublisher @publisher, @publisher_id OUTPUT
  10171.     if @retcode <> 0
  10172.     begin
  10173.         return(1)
  10174.     end
  10175.  
  10176.     -- Make sure publication exists
  10177.     select @publication_id = publication_id, @thirdparty_flag = thirdparty_flag 
  10178.         from MSpublications where publication = @publication and
  10179.         publisher_id = @publisher_id and publisher_db = @publisher_db
  10180.     if @publication_id is NULL
  10181.     begin
  10182.         -- We don't know whether or not it is a third party or not so we can not 
  10183.         -- return error.
  10184.         -- raiserror(20026, 16, -1, @publication)
  10185.         -- return (1)
  10186.         return (0)
  10187.     end
  10188.  
  10189.     -- Make sure that there are no subscriptions on the publication.
  10190.     if exists (select * from MSsubscriptions s, MSpublications p where 
  10191.         p.publisher_id = @publisher_id and
  10192.         p.publisher_db = @publisher_db and
  10193.         p.publication = @publication and
  10194.         s.publisher_id = @publisher_id and
  10195.         s.publisher_db = @publisher_db and
  10196.         s.publication_id = p.publication_id and
  10197.         s.subscriber_id >= 0)               -- ignore virtual subscriptions
  10198.     begin
  10199.         raiserror(14005, 16, -1)
  10200.         return(1)
  10201.     end
  10202.  
  10203.     SELECT @working_dir = working_directory FROM msdb..MSdistpublishers
  10204.         where UPPER(name) = UPPER(@publisher)
  10205.  
  10206.     IF @working_dir IS NOT NULL
  10207.     BEGIN
  10208.  
  10209.         -- Remove the pub dir under UNC and FTP if it exists
  10210.         -- Note: sp_MSreplremoveuncdir will convert unc path to local path.
  10211.         -- This is required. Otherwise we will see 'Access denied' error.
  10212.         SELECT @pub_dir = @working_dir + '\unc\' + 
  10213.                     @publisher + '_' +
  10214.                     @publisher_db + '_' +
  10215.                     @publication
  10216.         exec @retcode = sp_MSreplremoveuncdir @pub_dir
  10217.         if @retcode <> 0 or @@error <> 0
  10218.             return(1)
  10219.  
  10220.  
  10221.         SELECT @pub_dir = @working_dir + '\ftp\' + 
  10222.                     @publisher + '_' +
  10223.                     @publisher_db + '_' +
  10224.                     @publication 
  10225.         exec @retcode = sp_MSreplremoveuncdir @pub_dir
  10226.         if @retcode <> 0 or @@error <> 0
  10227.             return(1)
  10228.     END
  10229.  
  10230.     begin tran
  10231.     save tran MSdrop_publication
  10232.  
  10233.     -- Delete all articles if a third party publication
  10234.     if @thirdparty_flag = 1 
  10235.     begin
  10236.         -- Delete all articles in the publication
  10237.         declare hCarticles CURSOR LOCAL FAST_FORWARD FOR select article from MSarticles where 
  10238.             publisher_id = @publisher_id and
  10239.             publisher_db = @publisher_db and
  10240.             publication_id = 
  10241.                 (select publication_id from MSpublications where 
  10242.                     publisher_id = @publisher_id and
  10243.                     publisher_db = @publisher_db and
  10244.                     publication = @publication)
  10245.         open hCarticles
  10246.         fetch hCarticles into @article
  10247.         while (@@fetch_status <> -1)
  10248.         begin
  10249.             exec @retcode = dbo.sp_MSdrop_article @publisher, @publisher_db, @publication, @article
  10250.             if @retcode != 0 or @@error != 0
  10251.             begin
  10252.                 close hCarticles
  10253.                 deallocate hCarticles
  10254.                 if @@trancount > 0
  10255.                 begin
  10256.                     rollback tran MSdrop_publication
  10257.                     commit tran
  10258.                 end
  10259.                 return (1)
  10260.             end
  10261.                 
  10262.             fetch hCarticles into @article
  10263.         end
  10264.         close hCarticles
  10265.         deallocate hCarticles
  10266.     end
  10267.  
  10268.     delete from MSpublications where 
  10269.         publisher_id = @publisher_id and
  10270.         publisher_db = @publisher_db and
  10271.         publication = @publication
  10272.     if @@error <> 0
  10273.     begin
  10274.         if @@trancount > 0
  10275.         begin
  10276.             rollback tran MSdrop_publication
  10277.             commit tran
  10278.         end
  10279.         raiserror (14006, 16, -1)
  10280.         return (1)
  10281.     end
  10282.  
  10283.     -- Drop snapshot agent
  10284.     exec @retcode = dbo.sp_MSdrop_snapshot_agent
  10285.             @publisher = @publisher,
  10286.             @publisher_db = @publisher_db,
  10287.             @publication = @publication
  10288.     if @@ERROR<> 0 or @retcode <> 0
  10289.     begin
  10290.         if @@trancount > 0
  10291.         begin
  10292.             rollback tran MSdrop_publication
  10293.             commit tran
  10294.         end
  10295.         return (1)
  10296.     end
  10297.  
  10298.     -- Drop the logreader agent if
  10299.     -- 1. thirdparty publisher OR 
  10300.     -- 2. no publication left in the publisher database
  10301.     if @thirdparty_flag = 1 OR
  10302.         not exists (select * from MSpublications where 
  10303.             publisher_id = @publisher_id and
  10304.             publisher_db = @publisher_db)
  10305.     begin
  10306.         exec @retcode = dbo.sp_MSdrop_logreader_agent
  10307.                 @publisher = @publisher,
  10308.                 @publisher_db = @publisher_db,
  10309.                 @publication = @publication
  10310.         if @@ERROR<> 0 or @retcode <> 0
  10311.         begin
  10312.             if @@trancount > 0
  10313.             begin
  10314.                 rollback tran MSdrop_publication
  10315.                 commit tran
  10316.             end
  10317.             return (1)
  10318.         end
  10319.     end
  10320.  
  10321.     -- Delete anonymous agents
  10322.     delete MSdistribution_agents where
  10323.         publisher_id = @publisher_id and
  10324.         publisher_db = @publisher_db and
  10325.         publication = @publication
  10326.     if @@ERROR<> 0 or @retcode <> 0
  10327.     begin
  10328.         if @@trancount > 0
  10329.             rollback tran MSdrop_publication
  10330.         return (1)
  10331.     end
  10332.  
  10333.     delete MSmerge_agents where
  10334.         publisher_id = @publisher_id and
  10335.         publisher_db = @publisher_db and
  10336.         publication = @publication
  10337.     if @@ERROR<> 0 or @retcode <> 0
  10338.     begin
  10339.         if @@trancount > 0
  10340.             rollback tran MSdrop_publication
  10341.         return (1)
  10342.     end
  10343.  
  10344.     -- Cleanup publication access list table
  10345.     delete MSpublication_access where
  10346.         publication_id = @publication_id
  10347.     if @@ERROR<> 0 or @retcode <> 0
  10348.     begin
  10349.         if @@trancount > 0
  10350.             rollback tran MSdrop_publication
  10351.         return (1)
  10352.     end
  10353.  
  10354.     -- Remove publisher_id, publisher_db pair if no other publication is using it. 
  10355.     if not exists (select * from MSpublications where publisher_id = @publisher_id and
  10356.         publisher_db = @publisher_db)
  10357.     begin
  10358.         declare @publisher_database_id int
  10359.  
  10360.         select @publisher_database_id = id from MSpublisher_databases where 
  10361.             publisher_id = @publisher_id and 
  10362.             publisher_db = @publisher_db
  10363.  
  10364.         delete from MSrepl_backup_lsns where 
  10365.             publisher_database_id = @publisher_database_id
  10366.  
  10367.         delete from MSpublisher_databases where 
  10368.             publisher_id = @publisher_id and publisher_db = @publisher_db
  10369.         if @@error <> 0
  10370.         begin
  10371.             if @@trancount > 0
  10372.             begin
  10373.                 rollback tran MSdrop_publication
  10374.                 commit tran
  10375.             end
  10376.             return (1)
  10377.         end
  10378.  
  10379.         -- Cleaning up MSrepl_originators
  10380.         delete MSrepl_originators where
  10381.             publisher_database_id = @publisher_database_id
  10382.         if @@error <> 0
  10383.         begin
  10384.             if @@trancount > 0
  10385.                 rollback tran MSdrop_publication
  10386.             return (1)
  10387.         end
  10388.  
  10389.     end
  10390.  
  10391.     commit tran
  10392. go
  10393. raiserror(15339,-1,-1,'sp_MSadd_snapshot_agent')
  10394. GO
  10395. CREATE PROCEDURE sp_MSadd_snapshot_agent (
  10396.     @name nvarchar(100) = NULL,
  10397.     @publisher sysname,
  10398.     @publisher_db sysname,
  10399.     @publication sysname,  
  10400.     @publication_type int = 0,              -- 0 Transactional 1 Snapshot 2 Merge
  10401.     @local_job bit,  
  10402.     @freqtype  int = 4 ,                  /* 4== Daily */
  10403.     @freqinterval int  = 1,             /* Every day */
  10404.     @freqsubtype int =  4,                 /* Sub interval = Minute */
  10405.     @freqsubinterval int = 5,              /* Every five minutes */
  10406.     @freqrelativeinterval int = 1, 
  10407.     @freqrecurrencefactor int = 0, 
  10408.     @activestartdate int = 0,             /* 12:00 am - 11:59 pm */
  10409.     @activeenddate int =99991231 ,         /* No start date */    
  10410.     @activestarttimeofday int = 0,         
  10411.     @activeendtimeofday int = 235959,     /* No end time */    
  10412.     @command nvarchar(4000) = NULL,
  10413.     @job_existing bit = 0,   -- for 6x publisher
  10414.     @snapshot_jobid binary(16) = NULL OUTPUT
  10415. ) AS
  10416.  
  10417.  
  10418.     SET NOCOUNT ON
  10419.  
  10420.     /*
  10421.     ** Declarations.
  10422.     */
  10423.     DECLARE @retcode            int
  10424.     DECLARE @publisher_id       smallint
  10425.     DECLARE @profile_id         int
  10426.     DECLARE @snapshot_type      int
  10427.     DECLARE @databasename       sysname
  10428.     DECLARE @agent_id           int
  10429.  
  10430.     DECLARE @distributor_security_mode      int                     /* 0 standard; 1 integrated */
  10431.     DECLARE @distributor_login              sysname 
  10432.     DECLARE @distributor_password           nvarchar(524)
  10433.     DECLARE @category_name      sysname
  10434.     DECLARE @platform_nt        binary
  10435.  
  10436.     /*
  10437.     ** Initializations
  10438.     */
  10439.     select @platform_nt = 0x1
  10440.  
  10441.     select @publisher_id = srvid from master..sysservers where
  10442.         UPPER(srvname) = UPPER(@publisher)
  10443.  
  10444.     -- Always use integrated security on winNT
  10445.     if (@platform_nt = platform() & @platform_nt)
  10446.         set @distributor_security_mode = 1
  10447.     else
  10448.     begin
  10449.         select  @distributor_security_mode = 0,
  10450.                 @distributor_login  = login,
  10451.                 @distributor_password = password
  10452.             from msdb..MSdistpublishers where UPPER(name) = UPPER(@@servername)
  10453.     end
  10454.  
  10455.     select @command = @command + ' -DistributorSecurityMode ' + 
  10456.         convert(nvarchar(10),@distributor_security_mode) +  ' ' 
  10457.     if @distributor_security_mode <> 1
  10458.     begin
  10459.         if @distributor_login is not NULL
  10460.             select @command = @command + '-DistributorLogin ' + @distributor_login + ' '
  10461.         if @distributor_password is not NULL
  10462.             select @command = @command + '-DistributorEncryptedPassword ' + quotename(@distributor_password) + ' '
  10463.     end
  10464.  
  10465.     -- if @name is not null and @job_existing = 1, the proc is from DMO scripting
  10466.     -- check to see if the job is there or not, if not, reset @job_existing
  10467.     -- value. This is for the case when the user generate the script at
  10468.     -- the publisher but did not re-create repl jobs at the distributor.
  10469.     -- We don't want to reset the @name parameter to null here because 
  10470.     -- the user probably expects us to create a job with the given name.
  10471.     if @local_job = 1 and @job_existing = 1 and @name is not null and 
  10472.        @name <> N''
  10473.     begin
  10474.         if not exists (select * from msdb..sysjobs_view where 
  10475.             name = @name and
  10476.             UPPER(originating_server) = UPPER(CONVERT(NVARCHAR(30), SERVERPROPERTY('ServerName'))))
  10477.         begin
  10478.             set @job_existing = 0
  10479.         end
  10480.     end
  10481.  
  10482.     BEGIN TRAN
  10483.     
  10484.     /* Code for snapshot agent type in MSagent_profiles */
  10485.     SELECT @snapshot_type = 1
  10486.  
  10487.     -- Get the default profile ID for the snapshot agent type. If a third party publication
  10488.     -- no profile is used.
  10489.     if exists (select * from MSpublications where 
  10490.                 publisher_id = @publisher_id and
  10491.                 publisher_db = @publisher_db and
  10492.                 publication = @publication and
  10493.                 thirdparty_flag = 1)
  10494.     begin
  10495.         set @profile_id = 0
  10496.     end
  10497.     else
  10498.     begin
  10499.          SELECT @profile_id = profile_id FROM msdb..MSagent_profiles WHERE 
  10500.             agent_type = @snapshot_type and
  10501.             def_profile = 1
  10502.     end
  10503.  
  10504.  
  10505.     if not exists (select * from MSsnapshot_agents where
  10506.         publisher_id = @publisher_id and
  10507.         publisher_db = @publisher_db and
  10508.         publication = @publication)
  10509.     begin
  10510.         /* 
  10511.         ** Insert row
  10512.         */
  10513.         INSERT INTO MSsnapshot_agents (name, publisher_id, publisher_db, publication, publication_type,
  10514.                                 local_job, profile_id)
  10515.              VALUES ('',@publisher_id, @publisher_db, @publication, @publication_type, @local_job, @profile_id)
  10516.         IF @@ERROR <> 0
  10517.             GOTO UNDO
  10518.  
  10519.         set @agent_id = @@IDENTITY
  10520.     end
  10521.     else
  10522.         select @agent_id = id from MSsnapshot_agents where
  10523.             publisher_id = @publisher_id and
  10524.             publisher_db = @publisher_db and
  10525.             publication = @publication
  10526.  
  10527.     DECLARE @name_is_generated bit
  10528.     SELECT @name_is_generated = 0     
  10529.     IF @name IS NULL OR @name = N''
  10530.     BEGIN
  10531.         SELECT @name_is_generated = 1
  10532.         SELECT @name = CONVERT(nvarchar(28),@publisher ) + '-' + CONVERT(nvarchar(28),@publisher_db) + '-' + 
  10533.                         CONVERT(nvarchar(28),@publication) + '-'  + CONVERT(nvarchar, @agent_id)
  10534.     END
  10535.  
  10536.     -- If the generated name already exists, re-generate the name with a 
  10537.     -- guid appended
  10538.     IF @name_is_generated = 1
  10539.     BEGIN
  10540.         IF EXISTS (SELECT * FROM msdb..sysjobs_view 
  10541.                     WHERE name = @name 
  10542.                       AND UPPER(originating_server) = UPPER(CONVERT(NVARCHAR(30), SERVERPROPERTY('ServerName'))))
  10543.         BEGIN
  10544.             SELECT @name = fn_repluniquename(newid(), @publisher, @publisher_db, 
  10545.                 @publication, null)
  10546.         END            
  10547.     END
  10548.  
  10549.     -- Add Perfmon instance
  10550.     dbcc addinstance ("SQL Replication Snapshot", @name)
  10551.  
  10552.     IF @local_job = 1 and @job_existing = 0
  10553.     BEGIN
  10554.  
  10555.     -- ********WORKAROUND********
  10556.         DECLARE @nullchar nchar(20)
  10557.         SELECT @nullchar = NULL
  10558.     -- ********WORKAROUND********
  10559.  
  10560.         set @databasename = db_name()
  10561.         -- Get Snapshot category name (assumes category_id = 15)
  10562.         select @category_name = name FROM msdb.dbo.syscategories where category_id = 15
  10563.  
  10564.         EXECUTE @retcode = dbo.sp_MSadd_repl_job 
  10565.             @name = @name, 
  10566.             @subsystem = 'Snapshot', 
  10567.             @server = @publisher, 
  10568.             @databasename = @databasename, 
  10569.             @enabled = 1, 
  10570.             @freqtype = @freqtype, 
  10571.             @freqinterval = @freqinterval, 
  10572.             @freqsubtype = @freqsubtype, 
  10573.             @freqsubinterval = @freqsubinterval, 
  10574.             @freqrelativeinterval = @freqrelativeinterval, 
  10575.             @freqrecurrencefactor = @freqrecurrencefactor, 
  10576.             @activestartdate = @activestartdate, 
  10577.             @activeenddate = @activeenddate, 
  10578.             @activestarttimeofday = @activestarttimeofday, 
  10579.             @activeendtimeofday = @activeendtimeofday, 
  10580.             @nextrundate = 0,
  10581.             @nextruntime = 0,
  10582.             @runpriority = 0,
  10583.             @emailoperatorname = @nullchar,
  10584.             @retryattempts = 10, 
  10585.             @retrydelay = 1, 
  10586.             @command = @command, 
  10587.             @loghistcompletionlevel = 0, 
  10588.             @emailcompletionlevel = 0, 
  10589.             @description = @nullchar,
  10590.             @tagadditionalinfo = @nullchar,
  10591.             @tagobjectid = 0, 
  10592.             @tagobjecttype = 0, 
  10593.             @category_name = @category_name,
  10594.             @failure_detection = 1,
  10595.             @agent_id = @agent_id,
  10596.             @job_id = @snapshot_jobid OUTPUT
  10597.  
  10598.   
  10599.        IF @@ERROR <> 0 or @retcode <> 0
  10600.             GOTO UNDO
  10601.     END
  10602.  
  10603.     if @local_job = 1 and @job_existing = 1 
  10604.     begin
  10605.         if @snapshot_jobid is null
  10606.         begin
  10607.             select @snapshot_jobid = job_id from msdb..sysjobs_view where 
  10608.                 name = @name and
  10609.                 UPPER(originating_server) = UPPER(CONVERT(NVARCHAR(30), SERVERPROPERTY('ServerName')))
  10610.             if @snapshot_jobid IS NULL
  10611.             begin
  10612.                 -- Message from msdb.dbo.sp_verify_job_identifiers
  10613.                 RAISERROR(14262, -1, -1, 'Job', @name)          
  10614.                 GOTO UNDO
  10615.             end
  10616.         end
  10617.         else
  10618.         begin
  10619.             if not exists (select * from msdb..sysjobs_view where 
  10620.                 job_id = @snapshot_jobid and
  10621.                 UPPER(originating_server) = UPPER(CONVERT(NVARCHAR(30), SERVERPROPERTY('ServerName'))))
  10622.             begin
  10623.                 -- Message from msdb.dbo.sp_verify_job_identifiers
  10624.                 RAISERROR(14262, -1, -1, 'Job', @name)          
  10625.                 GOTO UNDO
  10626.             end
  10627.         end
  10628.     end
  10629.  
  10630. /* Moved up
  10631.     -- Get the job id if it already exists
  10632.     if @local_job = 1 and @job_existing = 1 
  10633.     begin
  10634.         select @snapshot_jobid = job_id from msdb..sysjobs_view where 
  10635.             job_id = @snapshot_jobid and
  10636.             UPPER(originating_server) = UPPER(CONVERT(NVARCHAR(30), SERVERPROPERTY('ServerName')))
  10637.         if @snapshot_jobid IS NULL
  10638.         begin
  10639.             -- Message from msdb.dbo.sp_verify_job_identifiers
  10640.             RAISERROR(14262, -1, -1, 'Job', @name)          
  10641.             GOTO UNDO
  10642.         end
  10643.     end
  10644. */
  10645.  
  10646.     -- Generate a job GUID for remote agents. This will be used by the UI to uniquely
  10647.     -- identify rows returned by the enums
  10648.     if @local_job = 0
  10649.     begin
  10650.         -- Third party publication will pass in snapshot agent name which is created as
  10651.         -- a SQLServerAgent job.
  10652.         if @name is not null 
  10653.             select @snapshot_jobid = job_id from msdb..sysjobs_view where
  10654.                 name = @name
  10655.         if @snapshot_jobid is null
  10656.             set @snapshot_jobid = newid()
  10657.         -- Reset @local_job to 1 so that repl monitor can start the job.
  10658.         -- In sp_MSdrop_snapshot_agent, we will not drop the job if the publication 
  10659.         -- is from third party.
  10660.         else
  10661.             set @local_job = 1
  10662.     end
  10663.  
  10664.     -- Caution: @local job might be changed from the passed in value.
  10665.     UPDATE MSsnapshot_agents SET 
  10666.         name = @name,
  10667.         job_id = @snapshot_jobid,
  10668.         -- Update the following fields because the row maybe added before this sp call
  10669.         -- by sp_MSadd_publication.
  10670.         publication_type = @publication_type,
  10671.         local_job = @local_job, 
  10672.         profile_id = @profile_id
  10673.         WHERE
  10674.         id = @agent_id
  10675.  
  10676.     IF @@ERROR <> 0
  10677.         GOTO UNDO
  10678.  
  10679.     -- Update global replication status table
  10680.     EXEC dbo.sp_MSupdate_replication_status
  10681.         @publisher,
  10682.         @publisher_db,
  10683.         @publication,
  10684.         @publication_type,
  10685.         @agent_type = 1,
  10686.         @agent_name = @name,
  10687.         @status = 0     -- not running status
  10688.  
  10689.     COMMIT TRAN
  10690.  
  10691.     RETURN(0)
  10692.  
  10693. UNDO:
  10694.     if @@TRANCOUNT = 1
  10695.         ROLLBACK TRAN
  10696.     else
  10697.         COMMIT TRAN
  10698.     return(1)
  10699. GO
  10700.  
  10701. raiserror(15339,-1,-1,'sp_MSadd_logreader_agent')
  10702. GO
  10703. CREATE PROCEDURE sp_MSadd_logreader_agent (
  10704.     @name nvarchar(100) = NULL,
  10705.     @publisher sysname,
  10706.     @publisher_db sysname,
  10707.     @publication sysname,   --Only used by 3rd party publisher
  10708.     @local_job bit,
  10709.     @job_existing bit = 0,
  10710.     @job_id binary(16) = NULL
  10711. ) AS
  10712.  
  10713.  
  10714.     SET NOCOUNT ON
  10715.  
  10716.     /*
  10717.     ** Declarations.
  10718.     */
  10719.     DECLARE @retcode            int
  10720.     DECLARE @agent_args         nvarchar(255)
  10721.     DECLARE @publisher_id       smallint
  10722.     DECLARE @profile_id         int
  10723.     DECLARE @logreader_type     int
  10724.     DECLARE @databasename       sysname
  10725.     DECLARE @agent_id           int
  10726.     DECLARE @distributor_security_mode      int                     /* 0 standard; 1 integrated */
  10727.     DECLARE @distributor_login              sysname 
  10728.     DECLARE @distributor_password           nvarchar(524)
  10729.     DECLARE @category_name      sysname
  10730.     DECLARE @platform_nt binary
  10731.  
  10732.     /*
  10733.     ** Initializations
  10734.     */
  10735.     select @platform_nt = 0x1
  10736.  
  10737.     select @publisher_id = srvid from master..sysservers where
  10738.         UPPER(srvname) = UPPER(@publisher)
  10739.     
  10740.     -- Always use integrated security on winNT
  10741.     if (@platform_nt = platform() & @platform_nt)
  10742.         set @distributor_security_mode = 1
  10743.     else
  10744.     begin
  10745.         select  @distributor_security_mode = 0,
  10746.                 @distributor_login  = login,
  10747.                 @distributor_password = password
  10748.             from msdb..MSdistpublishers where UPPER(name) = UPPER(@@servername)
  10749.     end
  10750.  
  10751.     -- if @name is not null and @job_existing = 1, the proc is from DMO scripting
  10752.     -- check to see if the job is there are not, if not, reset @job_existing and
  10753.     -- @name values. This is for the case when the user generate the script at
  10754.     -- the publisher but did not re-create repl jobs at the distributor.
  10755.     if @local_job = 1 and @job_existing = 1 and @name is not null and 
  10756.        @name <> N''
  10757.     begin
  10758.         if not exists (select * from msdb..sysjobs_view where 
  10759.             name = @name and
  10760.             UPPER(originating_server) = UPPER(CONVERT(NVARCHAR(30), SERVERPROPERTY('ServerName'))))
  10761.         begin
  10762.             set @job_existing = 0
  10763.             set @name = null
  10764.         end
  10765.     end
  10766.  
  10767.     BEGIN TRAN
  10768.  
  10769.     -- If creating locally, try to drop it first
  10770.     IF @local_job = 1 and @job_existing = 0
  10771.     begin
  10772.         EXEC dbo.sp_MSdrop_logreader_agent 
  10773.             @publisher = @publisher,
  10774.             @publisher_db = @publisher_db,
  10775.             @publication = @publication  
  10776.         IF @@ERROR <> 0
  10777.             GOTO UNDO
  10778.     end
  10779.  
  10780.     /* Code for log reader agent type in MSagent_profiles */
  10781.     SELECT @logreader_type = 2
  10782.  
  10783.     -- Get the default profile ID for the logreader agent type. If a third party publication
  10784.     -- no profile is used.
  10785.     if exists (select * from MSpublications where 
  10786.                 publisher_id = @publisher_id and
  10787.                 publisher_db = @publisher_db and
  10788.                 publication = @publication and
  10789.                 thirdparty_flag = 1)
  10790.     begin
  10791.         set @profile_id = 0
  10792.     end
  10793.     else
  10794.     begin
  10795.         SELECT @profile_id = profile_id FROM msdb..MSagent_profiles WHERE 
  10796.             agent_type = @logreader_type and
  10797.             def_profile = 1
  10798.     end
  10799.  
  10800.     /* 
  10801.     ** Insert row
  10802.     */
  10803.     INSERT INTO MSlogreader_agents (name, publisher_id, publisher_db, publication, 
  10804.                     local_job, profile_id)
  10805.          VALUES ('',@publisher_id, @publisher_db, @publication, @local_job, @profile_id)
  10806.     IF @@ERROR <> 0
  10807.         GOTO UNDO
  10808.  
  10809.     set @agent_id = @@IDENTITY
  10810.         
  10811.     DECLARE @name_is_generated bit
  10812.     SELECT @name_is_generated = 0     
  10813.     IF @name IS NULL OR @name = N''
  10814.     BEGIN
  10815.         SELECT @name_is_generated = 1
  10816.         SELECT @name = CONVERT(nvarchar(43),@publisher ) + '-' + CONVERT(nvarchar(43),@publisher_db) + '-' + CONVERT(nvarchar, @@IDENTITY)
  10817.     END
  10818.  
  10819.     -- If the generated name already exists, re-generate the name with a 
  10820.     -- guid appended
  10821.     IF @name_is_generated = 1
  10822.     BEGIN
  10823.         IF EXISTS (SELECT * FROM msdb..sysjobs_view 
  10824.                     WHERE name = @name 
  10825.                       AND UPPER(originating_server) = UPPER(CONVERT(NVARCHAR(30), SERVERPROPERTY('ServerName'))))
  10826.         BEGIN
  10827.             SELECT @name = fn_repluniquename(newid(), @publisher, @publisher_db, null, null)
  10828.         END            
  10829.     END
  10830.     
  10831.     -- Add Perfmon instance
  10832.     dbcc addinstance ("SQL Replication Logreader", @name)
  10833.  
  10834.     IF @local_job = 1 and @job_existing = 0
  10835.     BEGIN            
  10836.         SELECT @agent_args = '-Publisher ' + QUOTENAME(@publisher)
  10837.         SELECT @agent_args = @agent_args + ' -PublisherDB ' + QUOTENAME(@publisher_db)
  10838.         SELECT @agent_args = @agent_args + ' -Distributor ' + QUOTENAME(@@SERVERNAME)
  10839.  
  10840.         select @agent_args = @agent_args + ' -DistributorSecurityMode ' + 
  10841.             convert(nvarchar(10),@distributor_security_mode) +  ' ' 
  10842.         if @distributor_security_mode <> 1
  10843.         begin
  10844.             if @distributor_login is not NULL
  10845.                 select @agent_args = @agent_args + '-DistributorLogin ' + @distributor_login + ' '
  10846.             if @distributor_password is not NULL
  10847.                 select @agent_args = @agent_args + '-DistributorEncryptedPassword ' + quotename(@distributor_password) + ' '
  10848.         end
  10849.  
  10850. --    *******WORKAROUND*******
  10851.         DECLARE @nullchar nchar(20)
  10852.         SELECT @nullchar = NULL
  10853. --    *******WORKAROUND*******
  10854.  
  10855.         set @databasename = db_name()
  10856.         -- Get Logreader category name (assumes category_id = 13)
  10857.         select @category_name = name FROM msdb.dbo.syscategories where category_id = 13
  10858.  
  10859.         EXECUTE @retcode = dbo.sp_MSadd_repl_job
  10860.         @name = @name,
  10861.         @subsystem = 'LogReader',
  10862.         @server = @publisher,
  10863.         @databasename = @databasename,
  10864.         @enabled = 1,
  10865.         @freqtype = 64,       /* Auto-Start */
  10866.         @freqinterval                   = 1,
  10867.         @freqsubtype                    = 1,
  10868.         @freqsubinterval                = 1,
  10869.         @freqrelativeinterval= 1,
  10870.         @freqrecurrencefactor   = 1,
  10871.         @activestartdate                = 0,
  10872.         @activeenddate                  = 0,
  10873.         @activestarttimeofday   = 0,
  10874.         @activeendtimeofday     = 0,
  10875.         @nextrundate                    = 12355,
  10876.         @nextruntime                    = 13423,
  10877.         @runpriority                    = 0,
  10878.         @emailoperatorname              = @nullchar,
  10879.         @retryattempts = 10,            
  10880.         @retrydelay = 1,    
  10881.         @command = @agent_args,
  10882.         @loghistcompletionlevel = 0,
  10883.         @category_name = @category_name,
  10884.         @failure_detection = 1,
  10885.         @agent_id = @agent_id,
  10886.         @job_id = @job_id OUTPUT
  10887.  
  10888.   
  10889.        IF @@ERROR <> 0 or @retcode <> 0
  10890.             GOTO UNDO
  10891.     END
  10892.  
  10893.     if @local_job = 1 and @job_existing = 1 
  10894.     begin
  10895.         if @job_id is null
  10896.         begin
  10897.             select @job_id = job_id from msdb..sysjobs_view where 
  10898.                 name = @name and
  10899.                 UPPER(originating_server) = UPPER(CONVERT(NVARCHAR(30), SERVERPROPERTY('ServerName')))
  10900.             if @job_id IS NULL
  10901.             begin
  10902.                 -- Message from msdb.dbo.sp_verify_job_identifiers
  10903.                 RAISERROR(14262, -1, -1, 'Job', @name)          
  10904.                 GOTO UNDO
  10905.             end
  10906.         end
  10907.         else
  10908.         begin
  10909.             if not exists (select * from msdb..sysjobs_view where 
  10910.                 job_id = @job_id and
  10911.                 UPPER(originating_server) = UPPER(CONVERT(NVARCHAR(30), SERVERPROPERTY('ServerName'))))
  10912.             begin
  10913.                 -- Message from msdb.dbo.sp_verify_job_identifiers
  10914.                 RAISERROR(14262, -1, -1, 'Job', @name)          
  10915.                 GOTO UNDO
  10916.             end
  10917.         end
  10918.     end
  10919.  
  10920.     -- Generate a job GUID for remote agents. This will be used by the UI to uniquely
  10921.     -- identify rows returned by the enums
  10922.     if @local_job = 0
  10923.     begin
  10924.         -- Third party publication will pass in logreader agent name which is created as
  10925.         -- a SQLServerAgent job.
  10926.         if @name is not null 
  10927.             select @job_id = job_id from msdb..sysjobs_view where
  10928.                 name = @name
  10929.         if @job_id is null
  10930.             set @job_id = newid()
  10931.         -- Reset @local_job to 1 so that repl monitor can start the job.
  10932.         -- In sp_MSdrop_logreader_agent, we will not drop the job if the publication 
  10933.         -- is from third party.
  10934.         else
  10935.             set @local_job = 1
  10936.     end
  10937.  
  10938.     UPDATE MSlogreader_agents SET name = @name,
  10939.         job_id = @job_id WHERE
  10940.         id = @agent_id
  10941.     IF @@ERROR <> 0
  10942.         GOTO UNDO
  10943.  
  10944.     -- Update global replication status table
  10945.     EXEC dbo.sp_MSupdate_replication_status
  10946.         @publisher,
  10947.         @publisher_db,
  10948.         @publication,
  10949.         @agent_type = 2,
  10950.         @agent_name = @name,
  10951.         @status = 0     -- not running status
  10952.  
  10953.  
  10954.     COMMIT TRAN
  10955.  
  10956.     RETURN(0)
  10957.  
  10958. UNDO:
  10959.     if @@TRANCOUNT = 1
  10960.         ROLLBACK TRAN
  10961.     else
  10962.         COMMIT TRAN
  10963.     return(1)
  10964. GO
  10965.  
  10966. raiserror(15339,-1,-1,'sp_MSadd_publication')
  10967. go
  10968. CREATE PROCEDURE sp_MSadd_publication (
  10969.     @publisher sysname,
  10970.     @publisher_db sysname,
  10971.     @publication sysname,
  10972.     @publication_id int = 0,                    -- REMOVE
  10973.     @publication_type int = 1,                  -- 0 = Transactional 1 = Snapshot  2 = Merge
  10974.     @independent_agent bit = 0,
  10975.     @immediate_sync bit = 0,
  10976.     @allow_push bit = 1,
  10977.     @allow_pull bit = 0,
  10978.     @allow_anonymous bit = 0,
  10979.     @snapshot_agent nvarchar(100) = NULL,
  10980.     @logreader_agent nvarchar (100) = NULL,
  10981.     @description nvarchar(255) = NULL,
  10982.     @retention int =60,
  10983.     @vendor_name nvarchar(100) = 'Microsoft SQL Server',
  10984.     @sync_method int = 0,
  10985.     @allow_subscription_copy bit = 0,
  10986.     @thirdparty_options int = NULL,
  10987.      @allow_queued_tran bit = 0,
  10988.      @queue_type int = NULL
  10989. )
  10990. as
  10991. BEGIN
  10992.     set nocount on
  10993.  
  10994.     declare @thirdparty_flag bit                    -- 0 = SQL Server 1 = Third Party
  10995.             ,@publisher_id smallint
  10996.             ,@retcode int
  10997.             ,@platform_nt binary
  10998.             ,@platform_desktop int
  10999.             ,@agentname nvarchar(100)
  11000.             ,@max_distretention int
  11001.  
  11002.     select @platform_nt = 0x1
  11003.             ,@platform_desktop = 0x100
  11004.  
  11005.     -- Check if publisher is a defined as a distribution publisher in the current database
  11006.     exec @retcode = dbo.sp_MSvalidate_distpublisher @publisher, @publisher_id OUTPUT
  11007.     if @retcode <> 0
  11008.     begin
  11009.         return(1)
  11010.     end
  11011.  
  11012.     EXEC @retcode = sp_helpdistributor @max_distretention = @max_distretention OUTPUT
  11013.     if @retcode <>0
  11014.     begin
  11015.         return (1)
  11016.     end
  11017.  
  11018.     -- Get third party flag
  11019.     select @thirdparty_flag = thirdparty_flag from msdb..MSdistpublishers
  11020.         where UPPER(name) = UPPER(@publisher)
  11021.     
  11022.     /*
  11023.     ** Parameter Check: @publication. (For 3rd party publications.)
  11024.     ** The @publication name must conform to the rules for identifiers,
  11025.     ** and must not be the keyword 'all'.
  11026.     */
  11027.  
  11028.     IF @publication IS NULL
  11029.         BEGIN
  11030.             RAISERROR (14043, 16, -1, '@publication')
  11031.             RETURN (1)
  11032.         END
  11033.  
  11034.     exec @retcode = dbo.sp_MSreplcheck_name @publication
  11035.     if @@ERROR <> 0 or @retcode <> 0
  11036.         return(1)
  11037.  
  11038.     IF LOWER (@publication) = 'all'
  11039.         BEGIN
  11040.             RAISERROR (14034, 16, -1)
  11041.             RETURN (1)
  11042.         END
  11043.  
  11044.  
  11045.     -- Parameter Check: @publication_type
  11046.     -- Make sure that the publication type is one of the following:
  11047.     -- 0  transactional
  11048.     -- 1  snapshot
  11049.     -- 2  merge
  11050.     if @publication_type not in (0,1,2)
  11051.     begin
  11052.         raiserror(20033, 16, -1)
  11053.         return (1)
  11054.     end
  11055.  
  11056.     -- disable tran/queued publishing on Win9x
  11057.     if (@publication_type = 0 or @allow_queued_tran = 1) and (platform() & @platform_nt != @platform_nt)
  11058.     begin
  11059.         -- Note 21052 was deleted and then changed. This message should go into messages.sql post shiloh
  11060.         --raiserror(21052, 16, -1)
  11061.         raiserror('Distributor for transactional or queued publications has to run on Windows NT platforms only.', 16, 1)
  11062.         return (1)
  11063.     end
  11064.  
  11065.     if (@publication_type = 0) and (platform() & @platform_desktop = @platform_desktop)
  11066.     begin
  11067.         raiserror(21108, 16, -1)
  11068.         return (1)
  11069.     end
  11070.  
  11071.     -- Parameter Check: @immediate_sync
  11072.     -- The publication must support independent_agent to support immediate_sync
  11073.     if @immediate_sync = 1 and @independent_agent != 1
  11074.     begin
  11075.         raiserror(21022, 16, -1)
  11076.         return (1)
  11077.     end
  11078.  
  11079.     -- Parameter Check: @allow_anonymous
  11080.     -- The publication must support immediate_sync to support anonymous.
  11081.     if @allow_anonymous = 1 and @immediate_sync != 1
  11082.     begin
  11083.         raiserror(20011, 16, -1)
  11084.         return (1)
  11085.     end
  11086.     
  11087.     -- Make sure publication does not already exist
  11088.     if exists (select * from MSpublications where publication = @publication and
  11089.         publisher_id = @publisher_id and publisher_db = @publisher_db)
  11090.     begin
  11091.         if @thirdparty_flag = 1
  11092.         begin
  11093.             raiserror(14016, 16, -1, @publication)
  11094.             return (1)
  11095.         end
  11096.         else
  11097.         begin
  11098.             exec @retcode = dbo.sp_MSdrop_publication 
  11099.                 @publisher = @publisher,
  11100.                 @publisher_db = @publisher_db,
  11101.                 @publication = @publication
  11102.             if @@error <> 0 or @retcode <> 0
  11103.                 return (1)
  11104.         end
  11105.     end
  11106.  
  11107.      --
  11108.      -- For MSMQ queue type - Distributor needs to support MSMQ 2.0
  11109.      --
  11110.      if (@queue_type = 1 and @allow_queued_tran = 1)
  11111.      begin
  11112.          --
  11113.          -- Now we use xp_MSver to detect NT OS version
  11114.          -- MSMQ subscription only allowed for platforms that support MSMQ 2.0
  11115.          -- version 5.0.2195 or higher
  11116.          --
  11117.          create table #tosversion ( propid int, propname sysname collate database_default, value int, charvalue nvarchar(255) collate database_default)
  11118.          insert into #tosversion (propid, propname, value, charvalue)
  11119.              exec master.dbo.xp_msver N'WindowsVersion'
  11120.  
  11121.          declare @vervalue int
  11122.              ,@lobyte tinyint
  11123.              ,@hibyte tinyint
  11124.              ,@loword smallint
  11125.              ,@hiword smallint
  11126.  
  11127.          --
  11128.          -- low order byte of low order word = OSmajor, high order byte of low order word = OSminor
  11129.          -- high order word = OSbuild
  11130.          --
  11131.          select @vervalue = value from #tosversion where propname = N'WindowsVersion'
  11132.          select @loword = (@vervalue & 0xffff)
  11133.                  ,@hiword = (@vervalue / 0x10000) & 0xffff
  11134.          select @lobyte = @loword & 0xff
  11135.                  ,@hibyte = (@loword / 100) & 0xff
  11136.          drop table #tosversion
  11137.  
  11138.          --
  11139.          -- check for OS major version
  11140.          --
  11141.          if (@lobyte < 5)
  11142.          begin
  11143.              raiserror(21334, 16, 4, '2.0')
  11144.              return (1)
  11145.          end
  11146.  
  11147.          --
  11148.          -- check for OS build version
  11149.          --
  11150.          if (@lobyte = 5 and @hiword < 2195)
  11151.          begin
  11152.              raiserror(21334, 16, 5, '2.0')
  11153.              return (1)
  11154.          end
  11155.      end
  11156.     
  11157.     begin tran
  11158.     save tran MSadd_publication
  11159.  
  11160.     insert into MSpublications values (@publisher_id, @publisher_db, @publication, 
  11161.         @publication_type, @thirdparty_flag, @independent_agent, @immediate_sync, @allow_push,
  11162.         @allow_pull, @allow_anonymous, @description, @vendor_name, @retention, 
  11163.         @sync_method, @allow_subscription_copy, @thirdparty_options, @allow_queued_tran)
  11164.     if @@error <> 0
  11165.         goto UNDO
  11166.  
  11167.     -- Enable the distribution cleanup agent if transactional or snapshot publicational
  11168.     if @publication_type = 0 or @publication_type = 1
  11169.     begin
  11170.         select @agentname = name from msdb..sysjobs j, msdb..sysjobsteps s where 
  11171.             j.job_id = s.job_id and
  11172.             j.category_id = 11 and
  11173.             s.database_name = db_name()
  11174.  
  11175.         exec @retcode = msdb.dbo.sp_update_job @job_name=@agentname, @enabled=1
  11176.         if @@error <> 0 or @retcode <> 0
  11177.             goto UNDO
  11178.     end
  11179.  
  11180.     -- Add snapshot and logreader agent
  11181.     
  11182.     -- Always add a non local snapshot agent. This is to cover the case
  11183.     -- when there's no SQLServerAgent job for the snapshot agent (For example, in Access).
  11184.     -- The agent entry is needed for initance check.
  11185.     -- sp_addpublication_snapshot will drop the entry and recreat it.
  11186.     exec @retcode = dbo.sp_MSadd_snapshot_agent
  11187.         @name = @snapshot_agent,
  11188.         @publisher = @publisher,
  11189.         @publisher_db = @publisher_db,
  11190.         @publication = @publication,
  11191.         @publication_type = @publication_type,
  11192.         @local_job = 0
  11193.     if @@error <> 0 or @retcode <> 0
  11194.         goto UNDO
  11195.  
  11196.  
  11197.     -- If null is passed in, we know that the agent is created already. (For SQL server).
  11198.     -- If not null is passed in, add the agents without creating local jobs (For third party).
  11199.     if @logreader_agent is not null
  11200.     begin
  11201.         exec @retcode = dbo.sp_MSadd_logreader_agent
  11202.             @name = @logreader_agent,
  11203.             @publisher = @publisher,
  11204.             @publisher_db = @publisher_db,
  11205.             @publication = @publication,
  11206.             @local_job = 0
  11207.         if @@error <> 0 or @retcode <> 0
  11208.             goto UNDO
  11209.     end
  11210.  
  11211.     -- If publisher_id, publisher_db pair is not in MSpublisher_databases then add it.  This will be used
  11212.     -- to store a publisher_database_id in the MSrepl_transactions and MSrepl_commands table.
  11213.     if not exists (select * from MSpublisher_databases where publisher_id = @publisher_id and
  11214.         publisher_db = @publisher_db)
  11215.     begin
  11216.         insert into MSpublisher_databases (publisher_id, publisher_db) values (@publisher_id, @publisher_db)
  11217.         if @@error <> 0
  11218.             goto UNDO
  11219.         insert into MSrepl_backup_lsns (publisher_database_id) values (@@identity)
  11220.         if @@error <> 0
  11221.             goto UNDO
  11222.     end
  11223.  
  11224.     commit tran
  11225.  
  11226.     return(0)
  11227.  
  11228. UNDO:
  11229.     if @@TRANCOUNT > 0
  11230.     begin
  11231.         ROLLBACK TRAN MSadd_publication
  11232.         COMMIT TRAN
  11233.     end
  11234.     return(1)
  11235. END
  11236. GO
  11237.  
  11238. /* 
  11239. **  History runstatus values defined in sqlrepl.h
  11240. **
  11241. **  Start       1
  11242. **  Succeed     2
  11243. **  Inprogress  3
  11244. **  Idle        4
  11245. **  Retry       5
  11246. **  Failure     6
  11247. */
  11248. GO
  11249.  
  11250. raiserror(15339,-1,-1,'sp_MSrepl_raiserror')
  11251. go
  11252. create proc sp_MSrepl_raiserror
  11253. @agent sysname,
  11254. @agent_name nvarchar(100),
  11255. @status int,
  11256. @message nvarchar(255),
  11257. @subscriber sysname = NULL,
  11258. @publication sysname = NULL,
  11259. @article sysname = NULL
  11260. as
  11261.     if @status = 2      --Succeeded
  11262.         raiserror (14150, 10, -1, @agent, @agent_name, @message)
  11263.     else if @status = 5 --Retry Failure
  11264.         raiserror (14152, 10, -1, @agent, @agent_name, @message)
  11265.     else if @status = 6 --Failure
  11266.     begin
  11267.         raiserror (14151, 18, -1, @agent, @agent_name, @message)
  11268.     end
  11269.     else if @status = 7
  11270.     begin
  11271.         raiserror (20574, 10, -1, @subscriber, @article, @publication)
  11272.     end
  11273.     else if @status = 8
  11274.     begin
  11275.         raiserror (20575, 10, -1, @subscriber, @article, @publication)
  11276.     end
  11277.     else if @status = 9
  11278.     begin
  11279.         raiserror (14158, 10, -1, @agent, @agent_name, @message)
  11280.     end
  11281. go
  11282.  
  11283. raiserror(15339,-1,-1,'sp_MSget_new_errorid')
  11284. GO
  11285.  
  11286. CREATE PROCEDURE sp_MSget_new_errorid
  11287. @errorid int OUTPUT,
  11288. @xact_seqno varbinary(16) = NULL,
  11289. @command_id int = NULL
  11290. AS
  11291.     set nocount on
  11292.  
  11293.     SELECT @errorid = NULL
  11294.  
  11295.     BEGIN TRAN sp_MSget_new_errorid
  11296.  
  11297.     SET ROWCOUNT 1
  11298.     SELECT @errorid = id FROM MSrepl_errors (UPDLOCK PAGLOCK)
  11299.         ORDER BY id DESC
  11300.     SET ROWCOUNT 0
  11301.  
  11302.     IF @errorid IS NULL
  11303.         SELECT @errorid = 1
  11304.     ELSE
  11305.         SELECT @errorid = @errorid + 1
  11306.  
  11307.     INSERT INTO MSrepl_errors VALUES (@errorid, 
  11308.         GETDATE(), NULL, /* Error with type NULL is placeholder, refer to sp_MSget_repl_error */
  11309.         NULL, NULL, NULL, NULL, @xact_seqno, @command_id)
  11310.  
  11311.     /* return an 0 error_id if failed to insert the row */
  11312.     IF @@ERROR <> 0
  11313.         SELECT @errorid = 0
  11314.  
  11315.     SELECT @errorid
  11316.  
  11317.     COMMIT TRAN
  11318. GO   
  11319.  
  11320. raiserror(15339,-1,-1,'sp_MSadd_qreader_history')
  11321. go
  11322. CREATE PROCEDURE sp_MSadd_qreader_history (
  11323.     @agent_id int,
  11324.     @pubid int = NULL,
  11325.     @runstatus int, 
  11326.     @comments nvarchar(255) = NULL,
  11327.     @transaction_id nvarchar(40) = NULL,
  11328.     @transaction_status int = 0,
  11329.     @transactions_processed int =0,
  11330.     @commands_processed int = 0,
  11331.     @seconds_elapsed int = 0,
  11332.     @subscriber sysname = NULL,
  11333.     @subscriberdb sysname = NULL,
  11334.     @perfmon_increment bit = 1,
  11335.     @log_error bit = 0,
  11336.     @update_existing_row bit = 0,
  11337.     @do_raiserror bit = 1)
  11338. AS
  11339. BEGIN
  11340.     DECLARE @current_time datetime
  11341.             ,@start_time datetime
  11342.             ,@duration int
  11343.             ,@agent_name nvarchar(100)
  11344.             ,@publisher sysname
  11345.             ,@publisher_db sysname
  11346.             ,@publication sysname
  11347.             ,@lastrow_timestamp timestamp
  11348.             ,@retcode int
  11349.             ,@cmdprocessed_rate float
  11350.             ,@transaction_rate float
  11351.             ,@error_id int
  11352.             ,@idle int
  11353.             ,@succeed int
  11354.             ,@startup int
  11355.             ,@retry int
  11356.             ,@failure int
  11357.             ,@inprogress int
  11358.             ,@database sysname
  11359.             ,@statobjid int
  11360.             ,@agentclassname sysname
  11361.  
  11362.     --
  11363.     -- Status const defined in sqlrepl.h 
  11364.     --
  11365.     select @startup = 1
  11366.             ,@succeed = 2
  11367.             ,@inprogress = 3
  11368.             ,@idle = 4
  11369.             ,@retry = 5
  11370.             ,@failure = 6
  11371.  
  11372.     -- intializations
  11373.     if (@pubid = 0)
  11374.         select @pubid = NULL
  11375.     if (@comments = '')
  11376.         select @comments = NULL
  11377.     if (@transaction_id = '')
  11378.         select @transaction_id = NULL
  11379.     if (@commands_processed is NULL)
  11380.         select @commands_processed = 0
  11381.     if (@subscriber = '')
  11382.         select @subscriber = NULL
  11383.     if (@subscriberdb = '')
  11384.         select @subscriberdb = NULL        
  11385.  
  11386.     SELECT @database = db_name()
  11387.             ,@current_time = GETDATE()
  11388.  
  11389.     -- Get named information
  11390.     select @agent_name = name from MSqreader_agents where id = @agent_id
  11391.     if (@agent_name IS NULL)
  11392.     begin
  11393.         --
  11394.         -- When Queue reader is shutting down due to the last queued subscription
  11395.         -- being dropped it may happen that before the Queue reader logs the shutdown 
  11396.         -- message, the subscription drop process deletes the agent entry from MSqreader_agents
  11397.         --
  11398.         select @agent_name = quotename(@@servername) + '.' + cast(db_id() as nvarchar)
  11399.     end
  11400.     if (@pubid is NULL)
  11401.     begin
  11402.         select @publisher = NULL
  11403.                 ,@publisher_db = NULL
  11404.                 ,@publication = NULL
  11405.     end
  11406.     else
  11407.     begin
  11408.         select @publisher = a.srvname, @publisher_db = b.publisher_db, @publication = b.publication
  11409.         from master..sysservers a, MSpublications b
  11410.         where
  11411.             b.publisher_id= @pubid and
  11412.             b.publisher_id = a.srvid
  11413.     end
  11414.  
  11415.     -- Update Perfmon counter
  11416.     if @perfmon_increment = 1
  11417.     begin
  11418.         if @runstatus = @startup
  11419.             dbcc incrementinstance ("SQL Replication Agents", "Running", "QueueReader", 1)
  11420.         else if (@runstatus = @succeed or @runstatus = @retry or @runstatus = @failure)
  11421.             dbcc incrementinstance ("SQL Replication Agents", "Running", "QueueReader", -1)
  11422.     end
  11423.  
  11424.     -- Get start_time for latest agent run
  11425.     IF (@runstatus = @startup)
  11426.         SELECT @start_time = @current_time
  11427.     ELSE
  11428.     BEGIN
  11429.         SELECT TOP 1 @start_time = start_time, @lastrow_timestamp = timestamp
  11430.         FROM MSqreader_history (rowlock)
  11431.         WHERE 
  11432.         agent_id = @agent_id
  11433.         ORDER BY timestamp DESC
  11434.  
  11435.         if (@start_time is NULL)
  11436.         begin
  11437.             select @runstatus = @startup,
  11438.                 @start_time = @current_time
  11439.         end
  11440.     END
  11441.  
  11442.     -- Calculate agent run duration
  11443.     SELECT @duration = DATEDIFF(second, @start_time, @current_time) 
  11444.  
  11445.     -- Calculate rate of processing
  11446.     IF (@seconds_elapsed IS NOT NULL and @seconds_elapsed > 0)
  11447.     BEGIN
  11448.         SELECT @cmdprocessed_rate = (@commands_processed * 1.0)/@seconds_elapsed
  11449.                 ,@transaction_rate = (@transactions_processed * 1.0)/@seconds_elapsed
  11450.     END
  11451.     ELSE
  11452.     BEGIN
  11453.         SELECT @cmdprocessed_rate = 0.0
  11454.                 ,@transaction_rate = 0.0
  11455.     END
  11456.  
  11457.     -- Set Perfmon counters
  11458.     if @runstatus = @idle or @runstatus = @inprogress
  11459.     begin
  11460.         dbcc addinstance ("SQL Replication QueueReader", @agent_name)
  11461. --        dbcc incrementinstance ("SQL Replication QueueReader", "QueueReader:Delivered Cmds/sec", @agent_name, @cmdprocessed_rate)
  11462. --        dbcc incrementinstance ("SQL Replication QueueReader", "QueueReader:Delivered Trans/sec", @agent_name, @transaction_rate)
  11463.     end
  11464.  
  11465.     --
  11466.     -- Set error id to 0 unless the user want to log errors associate with this 
  11467.     -- history message.
  11468.     --
  11469.     IF (@log_error = 1)
  11470.     begin
  11471.         select @runstatus = @failure
  11472.         EXEC dbo.sp_MSget_new_errorid @error_id OUTPUT
  11473.     end
  11474.     ELSE
  11475.         SELECT @error_id = 0    
  11476.         
  11477.     -- Insert idle record or update if history record is already 'idle'
  11478.     IF (@runstatus = @idle or @update_existing_row = 1)
  11479.     begin
  11480.         -- Attempt to update the last row if it is IDLE
  11481.         UPDATE MSqreader_history 
  11482.         SET     publication_id = @pubid,
  11483.                 runstatus = @runstatus, 
  11484.                 time = @current_time, 
  11485.                 duration = @duration,
  11486.                 comments = @comments,
  11487.                 transaction_id = @transaction_id,
  11488.                 transaction_status = @transaction_status,
  11489.                 transactions_processed = @transactions_processed,
  11490.                 commands_processed = @commands_processed,
  11491.                 delivery_rate = @cmdprocessed_rate,
  11492.                 transaction_rate = @transaction_rate,
  11493.                 subscriber = @subscriber,
  11494.                 subscriberdb = @subscriberdb,
  11495.                 error_id = case @error_id when 0 then error_id else @error_id end
  11496.                 WHERE
  11497.                 agent_id = @agent_id and
  11498.                 timestamp = @lastrow_timestamp and
  11499.                 runstatus = @runstatus
  11500.  
  11501.         -- Insert idle record if there is not one
  11502.         if (@@ROWCOUNT = 0)
  11503.         begin
  11504.             INSERT INTO MSqreader_history(agent_id, publication_id, runstatus, start_time, time, 
  11505.                     duration, comments, transaction_id, transaction_status, 
  11506.                     transactions_processed, commands_processed, delivery_rate, 
  11507.                     transaction_rate, subscriber, subscriberdb, error_id)
  11508.             VALUES(@agent_id, @pubid, @runstatus, @start_time, @current_time, 
  11509.                     @duration, @comments, @transaction_id, @transaction_status,
  11510.                     @transactions_processed, @commands_processed, @cmdprocessed_rate, 
  11511.                     @transaction_rate, @subscriber, @subscriberdb, @error_id)
  11512.         end
  11513.     end
  11514.     else
  11515.     begin
  11516.         INSERT INTO MSqreader_history(agent_id, publication_id, runstatus, start_time, time, 
  11517.                 duration, comments, transaction_id, transaction_status, 
  11518.                 transactions_processed, commands_processed, delivery_rate,
  11519.                 transaction_rate, subscriber, subscriberdb, error_id)
  11520.         VALUES(@agent_id, @pubid, @runstatus, @start_time, @current_time, 
  11521.                 @duration, @comments, @transaction_id, @transaction_status, 
  11522.                 @transactions_processed, @commands_processed, @cmdprocessed_rate, 
  11523.                 @transaction_rate, @subscriber, @subscriberdb, @error_id)
  11524.     end
  11525.  
  11526.     --
  11527.     -- Update global replication agent status table
  11528.     --        
  11529.     exec @retcode = dbo.sp_MSupdate_replication_status 
  11530.         @@servername, 
  11531.         @database,
  11532.         @publication = 'ALL',
  11533.         @agent_type = 9,
  11534.         @agent_name = @agent_name,
  11535.         @status = @runstatus
  11536.     if (@retcode != 0 and @@error != 0)
  11537.         return 1
  11538.  
  11539.     -- Raise the appropriate error
  11540.     if (@do_raiserror = 1)
  11541.     begin
  11542.         select @agentclassname = formatmessage(14581)
  11543.         exec dbo.sp_MSrepl_raiserror @agentclassname, @agent_name, @runstatus, @comments
  11544.     end
  11545.  
  11546.     IF (@@ERROR != 0)
  11547.         RETURN (1)
  11548. END
  11549. GO   
  11550.  
  11551. raiserror(15339,-1,-1,'sp_MSadd_snapshot_history')
  11552. go
  11553. CREATE PROCEDURE sp_MSadd_snapshot_history (
  11554.     @agent_id int,
  11555.     @runstatus int, 
  11556.     @comments nvarchar(255),
  11557.     @delivered_transactions int = 0,    
  11558.     @delivered_commands int = 0,        
  11559.     @log_error bit = 0,
  11560.     @perfmon_increment bit = 1,
  11561.     @update_existing_row bit = 0,
  11562.     @do_raiserror bit = 1,
  11563.     @start_time_string nvarchar(25) = null
  11564. )
  11565. AS
  11566. BEGIN
  11567.  
  11568.     DECLARE @current_time datetime
  11569.             ,@start_time datetime
  11570.             ,@duration int
  11571.             ,@delivery_rate float
  11572.             ,@error_id int
  11573.             ,@retcode int
  11574.             ,@idle int
  11575.             ,@succeed int
  11576.             ,@startup int
  11577.             ,@retry int
  11578.             ,@failure int
  11579.             ,@inprogress int
  11580.             ,@lastrow_timestamp timestamp
  11581.             ,@publisher sysname
  11582.             ,@publisher_db sysname
  11583.             ,@publication sysname
  11584.             ,@agent_name nvarchar(100)
  11585.             ,@perfmon_delivery_rate int
  11586.             ,@agentclassname sysname
  11587.  
  11588.     /* 
  11589.     ** Status const defined in sqlrepl.h 
  11590.     */
  11591.     select @startup = 1
  11592.             ,@succeed = 2
  11593.             ,@inprogress = 3
  11594.             ,@idle = 4
  11595.             ,@retry = 5
  11596.             ,@failure = 6
  11597.             ,@current_time = GETDATE()
  11598.  
  11599.     -- Get named information 
  11600.     select @publisher = srvname, @publisher_db = publisher_db, @publication = publication,
  11601.         @agent_name = name from master..sysservers, MSsnapshot_agents where
  11602.         id = @agent_id and
  11603.         publisher_id = srvid
  11604.  
  11605.     -- Update Perfmon counter
  11606.     if @perfmon_increment = 1
  11607.     begin
  11608.         if @runstatus = @startup
  11609.             dbcc incrementinstance ("SQL Replication Agents", "Running", "Snapshot", 1)
  11610.         else if (@runstatus = @succeed or @runstatus = @retry or @runstatus = @failure)
  11611.             dbcc incrementinstance ("SQL Replication Agents", "Running", "Snapshot", -1)
  11612.     end
  11613.  
  11614.     /* Get start_time for latest agent run */
  11615.     IF @runstatus <> 1  -- Start status
  11616.     BEGIN
  11617.         
  11618.         IF @start_time_string IS NULL OR @start_time_string = N''
  11619.         BEGIN
  11620.             SELECT TOP 1 @start_time = start_time, @lastrow_timestamp = timestamp
  11621.                 FROM MSsnapshot_history (rowlock)
  11622.                 WHERE 
  11623.                 agent_id = @agent_id
  11624.                 ORDER BY timestamp DESC
  11625.         END
  11626.         ELSE
  11627.         BEGIN
  11628.             SELECT @start_time = @start_time_string
  11629.         END
  11630.     END
  11631.     ELSE
  11632.     BEGIN
  11633.         WAITFOR DELAY '000:00:01'
  11634.         SELECT @current_time = DATEADD(ms, CONVERT(INT, 1000.0 * (RAND(@@spid) + RAND() + RAND())/3.0), @current_time)
  11635.         SELECT @start_time = @current_time
  11636.     END
  11637.     /* Calculate agent run duration */
  11638.     SELECT @duration = DATEDIFF(second, @start_time, @current_time) 
  11639.  
  11640.     /* Calculate delivery_rate */
  11641.     IF @duration <> 0 
  11642.        SELECT @delivery_rate = (@delivered_commands * 1.0)/@duration 
  11643.     ELSE
  11644.        SELECT @delivery_rate = 0
  11645.  
  11646.     -- Set Perfmon counters
  11647.     if @runstatus = @idle or @runstatus = @inprogress
  11648.     begin
  11649.         dbcc addinstance ("SQL Replication Snapshot", @agent_name)
  11650.         dbcc incrementinstance ("SQL Replication Snapshot", "Snapshot:Delivered Cmds/sec", @agent_name, @delivered_commands)
  11651.         dbcc incrementinstance ("SQL Replication Snapshot", "Snapshot:Delivered Trans/sec", @agent_name, @delivered_transactions)
  11652.     end
  11653.  
  11654.     /* 
  11655.     ** Set error id to 0 unless the user want to log errors associate with this 
  11656.     ** history message.
  11657.     */
  11658.     SELECT @error_id = 0
  11659.     IF @log_error = 1
  11660.         -- Ignore errors here. @error_id will be set to 0 in case of errors  
  11661.         EXEC dbo.sp_MSget_new_errorid @error_id OUTPUT
  11662.  
  11663.     -- Insert idle record or update if history record is already 'idle'
  11664.     IF @runstatus = @idle or @update_existing_row = 1
  11665.     begin
  11666.         -- Attempt to update the last row if it is IDLE
  11667.         UPDATE MSsnapshot_history SET runstatus = @runstatus, time = @current_time, duration = @duration,
  11668.             comments = @comments,
  11669.             delivered_transactions = @delivered_transactions,
  11670.             delivered_commands = @delivered_commands,
  11671.             delivery_rate = @delivery_rate,
  11672.             error_id = case @error_id when 0 then error_id else @error_id end    
  11673.             WHERE
  11674.             agent_id = @agent_id and
  11675.             timestamp = @lastrow_timestamp and
  11676.             runstatus = @runstatus
  11677.  
  11678.         -- Insert idle record if there is not one
  11679.         if @@ROWCOUNT = 0
  11680.         begin
  11681.             INSERT INTO MSsnapshot_history VALUES (@agent_id, @runstatus, @start_time, 
  11682.             @current_time, @duration, @comments, @delivered_transactions, @delivered_commands, 
  11683.             @delivery_rate, @error_id, NULL)
  11684.         end
  11685.     end
  11686.     else
  11687.     begin
  11688.         INSERT INTO MSsnapshot_history VALUES (@agent_id, @runstatus, @start_time, 
  11689.             @current_time, @duration, @comments, @delivered_transactions, @delivered_commands, 
  11690.             @delivery_rate, @error_id, NULL)
  11691.     end
  11692.  
  11693.     -- Update global replication agent status table
  11694.     exec dbo.sp_MSupdate_replication_status 
  11695.         @publisher, 
  11696.         @publisher_db,
  11697.         @publication,
  11698.         @agent_type = 1,
  11699.         @agent_name = @agent_name,
  11700.         @status = @runstatus
  11701.  
  11702.     -- Raise the appropriate error
  11703.     if @do_raiserror = 1
  11704.     begin
  11705.         select @agentclassname = formatmessage(14551)
  11706.         exec dbo.sp_MSrepl_raiserror @agentclassname, @agent_name, @runstatus, @comments
  11707.     end
  11708.  
  11709.     IF @@ERROR <> 0
  11710.        RETURN (1)
  11711.  
  11712.     if @runstatus = 1
  11713.     begin
  11714.         select 'start_time' = convert(nvarchar(12), @start_time, 112) +
  11715.             substring(convert(nvarchar(24), @start_time, 121), 11, 13)
  11716.     end
  11717. END
  11718. GO   
  11719.  
  11720.  
  11721. raiserror(15339,-1,-1,'sp_MSadd_logreader_history')
  11722. go
  11723. CREATE PROCEDURE sp_MSadd_logreader_history (
  11724.     @agent_id int,
  11725.     @runstatus int,
  11726.     @comments nvarchar(255),
  11727.     @xact_seqno varbinary(16) = NULL,
  11728.     @delivery_time int = 0,                 -- Current delivery time (milliseconds)
  11729.     @delivered_transactions int = 0,        -- Running total of session
  11730.     @delivered_commands int = 0,            -- Running total of session
  11731.     @delivery_latency int = 0,              -- Current latency 
  11732.     @log_error bit = 0,
  11733.     @perfmon_increment bit = 1,
  11734.     @update_existing_row bit = 0,
  11735.     @do_raiserror bit = 1
  11736. )
  11737. AS
  11738. BEGIN
  11739.  
  11740.     DECLARE @current_time datetime
  11741.             ,@start_time datetime
  11742.             ,@duration int
  11743.             ,@average_commands int
  11744.             ,@delivery_rate float
  11745.             ,@error_id int
  11746.             ,@retcode int
  11747.             ,@idle int
  11748.             ,@succeed int
  11749.             ,@startup int
  11750.             ,@retry int
  11751.             ,@inprogress int
  11752.             ,@failure int
  11753.             ,@lastrow_timestamp timestamp
  11754.             ,@publisher sysname
  11755.             ,@publisher_db sysname
  11756.             ,@publication sysname
  11757.             ,@agent_name nvarchar(100)
  11758.             ,@last_delivered_commands int
  11759.             ,@last_delivered_transactions int
  11760.             ,@latest_delivered_commands int
  11761.             ,@latest_delivered_transactions int
  11762.             ,@latest_delivery_rate int
  11763.             ,@last_delivery_rate int             -- int for perfmon
  11764.             ,@last_delivery_latency int
  11765.             ,@last_delivery_time int
  11766.             ,@avg_delivery_rate float
  11767.             ,@avg_delivery_latency int
  11768.             ,@total_delivery_time int
  11769.             ,@agentclassname sysname
  11770.  
  11771.     /* 
  11772.     ** Status const defined in sqlrepl.h 
  11773.     */
  11774.     select @startup = 1
  11775.             ,@succeed = 2
  11776.             ,@inprogress = 3
  11777.             ,@idle = 4
  11778.             ,@retry = 5
  11779.             ,@failure = 6
  11780.             ,@current_time = GETDATE()
  11781.  
  11782.     -- Update Perfmon counter
  11783.     if @perfmon_increment = 1
  11784.     begin
  11785.         if @runstatus = @startup
  11786.             dbcc incrementinstance ("SQL Replication Agents", "Running", "Logreader", 1)
  11787.         else if (@runstatus = @succeed or @runstatus = @retry or @runstatus = @failure)
  11788.             dbcc incrementinstance ("SQL Replication Agents", "Running", "Logreader", -1)
  11789.     end
  11790.  
  11791.     /* Get start_time for latest agent run */
  11792.     IF @runstatus <> 1  -- Startup status
  11793.     BEGIN
  11794.         SELECT TOP 1 @start_time = start_time, 
  11795.             @lastrow_timestamp = timestamp, 
  11796.             @last_delivered_commands = isnull(delivered_commands, 0),
  11797.             @last_delivered_transactions = isnull(delivered_transactions, 0),
  11798.             @last_delivery_latency = isnull(delivery_latency, 0),
  11799.             @last_delivery_time = isnull(delivery_time, 0),
  11800.             @last_delivery_rate = isnull(delivery_rate, 0)
  11801.         FROM MSlogreader_history (rowlock)
  11802.             WHERE agent_id = @agent_id
  11803.                 ORDER BY timestamp DESC
  11804.     END
  11805.     ELSE
  11806.     BEGIN
  11807.         SELECT @start_time = @current_time
  11808.         SET @last_delivered_commands = 0
  11809.         SET @last_delivered_transactions = 0
  11810.         SET @last_delivery_latency = 0
  11811.         SET @last_delivery_time = 0
  11812.         SET @last_delivery_rate = 0
  11813.         SET @last_delivery_latency = 0
  11814.     END
  11815.  
  11816.     /* Use the current time if no corresponding start_up message logged */
  11817.     IF @start_time is NULL
  11818.        SELECT @start_time = @current_time
  11819.  
  11820.     -- Calculate number of transactions in this history
  11821.     set @latest_delivered_commands = @delivered_commands - @last_delivered_commands
  11822.  
  11823.     -- Calculate number of commands in this history
  11824.     set @latest_delivered_transactions = @delivered_transactions - @last_delivered_transactions
  11825.  
  11826.     /* Calculate agent run duration */
  11827.     SELECT @duration = DATEDIFF(second, @start_time, @current_time) 
  11828.  
  11829.     -- Calculate total delivery_time 
  11830.     if @latest_delivered_commands <> 0      -- Work around for Logreader passing in @delivery_time on shutdown.
  11831.         SELECT @total_delivery_time = @delivery_time + @last_delivery_time
  11832.     else
  11833.         SELECT @total_delivery_time = @last_delivery_time
  11834.  
  11835.     -- Calculate average delivery_rate of the session
  11836.     IF @latest_delivered_commands <> 0 and @total_delivery_time <> 0
  11837.     BEGIN
  11838.         SELECT @avg_delivery_rate = (@delivered_commands * 1.0)/(@total_delivery_time/1000.0)
  11839.  
  11840.         -- Current history delivery rate
  11841.         if @delivery_time <> 0
  11842.             SELECT @latest_delivery_rate = (@latest_delivered_commands * 1.0)/(@delivery_time/1000.0)
  11843.         else 
  11844.             SELECT @latest_delivery_rate = 0
  11845.     END
  11846.     ELSE
  11847.     BEGIN
  11848.         SELECT @avg_delivery_rate = @last_delivery_rate
  11849.         SELECT @latest_delivery_rate = 0
  11850.     END
  11851.  
  11852.     -- Calculate the average delivery_latency of the session
  11853.     if @latest_delivered_commands <> 0      -- Work around for Logreader passing in @delivery_latency on shutdown.
  11854.     BEGIN
  11855.         IF @delivery_latency <> 0
  11856.             IF @last_delivery_latency <> 0
  11857.                 SELECT @avg_delivery_latency = (@delivery_latency + @last_delivery_latency)/2
  11858.             ElSE
  11859.                 SELECT @avg_delivery_latency = @delivery_latency
  11860.         ELSE
  11861.             SELECT @avg_delivery_latency = 0
  11862.     END
  11863.     ELSE
  11864.     BEGIN
  11865.         SELECT @avg_delivery_latency = @last_delivery_latency
  11866.  
  11867.         -- Ignore latency value if no commands
  11868.         SELECT @delivery_latency = 0    
  11869.     END
  11870.  
  11871.     /*
  11872.     ** Calculate average number of commands per transaction
  11873.     */
  11874.     IF @delivered_commands <> 0
  11875.        SELECT @average_commands = @delivered_commands/@delivered_transactions
  11876.     ELSE
  11877.  
  11878.        SELECT @average_commands = 0
  11879.  
  11880.     -- Set Perfmon counters
  11881.     select @agent_name = name from MSlogreader_agents where id = @agent_id
  11882.     if @runstatus = @idle or @runstatus = @inprogress
  11883.     begin
  11884.         dbcc addinstance ("SQL Replication Logreader", @agent_name)
  11885.         dbcc incrementinstance ("SQL Replication Logreader", "Logreader:Delivered Trans/sec", @agent_name, @latest_delivered_transactions)
  11886.         dbcc incrementinstance ("SQL Replication Logreader", "Logreader:Delivered Cmds/sec", @agent_name, @latest_delivered_commands)
  11887.         dbcc setinstance ("SQL Replication Logreader", "Logreader:Delivery Latency", @agent_name, @delivery_latency)
  11888.     end
  11889.     else
  11890.     begin
  11891.         dbcc addinstance ("SQL Replication Logreader", @agent_name)
  11892.         dbcc setinstance ("SQL Replication Logreader", "Logreader:Delivery Latency", @agent_name, 0)
  11893.     end
  11894.  
  11895.     /* 
  11896.     ** Set error id to 0 unless the user want to log errors associate with this 
  11897.     ** history message.
  11898.     */
  11899.     SELECT @error_id = 0
  11900.     IF @log_error = 1
  11901.         -- Ignore errors here. @error_id will be set to 0 in case of errors  
  11902.         EXEC dbo.sp_MSget_new_errorid @error_id OUTPUT
  11903.  
  11904.     -- Insert idle record or update if history record is already 'idle'
  11905.     IF @runstatus = @idle or @update_existing_row = 1
  11906.     begin
  11907.         -- Attempt to update the last row if it is IDLE
  11908.         if (@runstatus = @idle)
  11909.         begin
  11910.             UPDATE MSlogreader_history SET runstatus = @runstatus, time = @current_time,
  11911.             duration = @duration,comments = @comments,
  11912.             error_id = case @error_id when 0 then error_id else @error_id end
  11913.             WHERE
  11914.             agent_id = @agent_id and
  11915.             timestamp = @lastrow_timestamp and
  11916.             ( runstatus = @runstatus or 
  11917.             (@update_existing_row = 1 and runstatus in (@idle, @inprogress) and @runstatus in (@idle, @inprogress)) )
  11918.         end
  11919.         else
  11920.         begin
  11921.             UPDATE MSlogreader_history SET runstatus = @runstatus, start_time = @start_time, 
  11922.             time = @current_time,
  11923.             duration = @duration, comments = @comments,
  11924.             xact_seqno = @xact_seqno,
  11925.             delivery_time = @total_delivery_time,
  11926.             delivered_transactions = @delivered_transactions,
  11927.             delivered_commands = @delivered_commands,
  11928.             average_commands = @average_commands,
  11929.             delivery_rate = @avg_delivery_rate,
  11930.             delivery_latency = @avg_delivery_latency,
  11931.             error_id = case @error_id when 0 then error_id else @error_id end
  11932.             WHERE
  11933.             agent_id = @agent_id and
  11934.             timestamp = @lastrow_timestamp and
  11935.             ( runstatus = @runstatus or 
  11936.             (@update_existing_row = 1 and runstatus in (@idle, @inprogress) and @runstatus in (@idle, @inprogress)) )
  11937.         end
  11938.  
  11939.         -- Insert idle record if there is not one
  11940.         if @@ROWCOUNT = 0
  11941.         begin
  11942.             -- Use last values because nothing was done
  11943.             INSERT INTO MSlogreader_history VALUES (@agent_id, @runstatus, @start_time, @current_time, 
  11944.                 @duration, @comments,  
  11945.                 @xact_seqno, @last_delivery_time, @delivered_transactions, @delivered_commands,
  11946.                 @average_commands, @avg_delivery_rate, @last_delivery_latency, @error_id, NULL)
  11947.         end
  11948.     end
  11949.     else
  11950.     begin
  11951.         INSERT INTO MSlogreader_history VALUES (@agent_id, @runstatus, @start_time, @current_time, 
  11952.             @duration, @comments, 
  11953.             @xact_seqno, @total_delivery_time, @delivered_transactions, @delivered_commands,
  11954.             @average_commands, @avg_delivery_rate, @avg_delivery_latency, @error_id, NULL)
  11955.     end
  11956.  
  11957.     -- Get named information 
  11958.     select @publisher = srvname, @publisher_db = publisher_db, @publication = publication,
  11959.         @agent_name = name from master..sysservers, MSlogreader_agents where
  11960.         id = @agent_id and
  11961.         publisher_id = srvid
  11962.  
  11963.     -- Update global replication agent status table
  11964.     exec dbo.sp_MSupdate_replication_status 
  11965.         @publisher, 
  11966.         @publisher_db,
  11967.         @publication = 'ALL',
  11968.         @agent_type = 2,
  11969.         @agent_name = @agent_name,
  11970.         @status = @runstatus
  11971.  
  11972.     -- Raise the appropriate error
  11973.     if @do_raiserror = 1
  11974.     begin
  11975.         select @agentclassname = formatmessage(14552)
  11976.         exec dbo.sp_MSrepl_raiserror @agentclassname, @agent_name, @runstatus, @comments
  11977.     end
  11978.  
  11979.     IF @@ERROR <> 0
  11980.     BEGIN
  11981.        RETURN (1)
  11982.     END
  11983. END
  11984. GO      
  11985.  
  11986. raiserror(15339,-1,-1,'sp_MSadd_distribution_history')
  11987. go
  11988. CREATE PROCEDURE sp_MSadd_distribution_history (
  11989.     @agent_id int,
  11990.     @runstatus int, 
  11991.     @comments nvarchar(255),
  11992.     @xact_seqno binary(16) = 0x00,      -- We use binary(16)to pad it out for the below compare
  11993.     @delivered_transactions int = 0,        -- Running total for the session
  11994.     @delivered_commands int = 0,            -- Running total for the session
  11995.     @delivery_rate float = 0,               -- Last rate (cmds/sec)
  11996.     @log_error bit = 0,
  11997.     @perfmon_increment bit = 1,
  11998.     @xactseq varbinary(16) = NULL,      
  11999.     @command_id int = NULL,
  12000.     @update_existing_row bit = 0,
  12001.     @updateable_row bit = 1,        -- used to override history verbose level to decide
  12002.                                     -- whether the row being added can be updated by another.    
  12003.     @do_raiserror bit = 1
  12004. )
  12005. AS
  12006. BEGIN
  12007.  
  12008.     set nocount on
  12009.  
  12010.     DECLARE @current_time datetime
  12011.             ,@start_time datetime
  12012.             ,@entry_time datetime
  12013.             ,@duration int                   -- milliseconds
  12014.             ,@delivery_latency int
  12015.             ,@average_commands int
  12016.             ,@total_cmds int
  12017.             ,@publisher_id smallint
  12018.             ,@publisher_db sysname
  12019.             ,@publication sysname
  12020.             ,@publisher sysname
  12021.             ,@subscriber_id smallint
  12022.             ,@subscriber sysname
  12023.             ,@subscriber_db sysname
  12024.             ,@article sysname
  12025.             ,@article_id int
  12026.             ,@publication_id int
  12027.             ,@publisher_database_id int
  12028.  
  12029.             ,@agent_name nvarchar(100)
  12030.             ,@error_id int 
  12031.             ,@startup int
  12032.             ,@succeed int
  12033.             ,@inprogress int
  12034.             ,@retry int
  12035.             ,@failure int
  12036.             ,@validation_failure int
  12037.             ,@validation_success int, @error_skipped int
  12038.             ,@requested_shutdown int
  12039.             ,@raiserror_status int
  12040.             ,@idle int
  12041.             ,@lastrow_timestamp timestamp
  12042.             ,@lastrow_xact_seqno binary(16)
  12043.             ,@new_delivered_commands int
  12044.             ,@new_delivered_transactions int
  12045.             ,@retcode int
  12046.             ,@last_delivery_rate float
  12047.             ,@last_delivery_latency int
  12048.             ,@avg_delivery_rate float
  12049.             ,@avg_delivery_latency int
  12050.             ,@perfmon_delivery_rate int
  12051.             ,@existing_row_updateble bit
  12052.             ,@this_row_updateable bit
  12053.             ,@agentclassname sysname
  12054.  
  12055.     /* 
  12056.     ** Status const defined in sqlrepl.h 
  12057.     */
  12058.     select @startup = 1
  12059.             ,@succeed = 2
  12060.             ,@inprogress = 3
  12061.             ,@idle = 4
  12062.             ,@retry = 5
  12063.             ,@failure = 6
  12064.             ,@validation_failure = 7
  12065.             ,@validation_success = 8
  12066.             ,@requested_shutdown = 9
  12067.             ,@error_skipped = 10
  12068.  
  12069.     -- To prevent cleanup up being messed up by invalid history message, only log
  12070.     -- valid history message. 
  12071.     if @runstatus > 10 or @runstatus < 1
  12072.     begin
  12073.         --Invalid history message logged
  12074.         RAISERROR (21079, 16, -1, @runstatus)
  12075.         return (1)
  12076.     end
  12077.  
  12078.     select @existing_row_updateble = 1
  12079.     select @this_row_updateable = 1
  12080.  
  12081.     select @raiserror_status = @runstatus
  12082.     if (@runstatus = @validation_failure or @runstatus = @validation_success 
  12083.         or @runstatus = @requested_shutdown or @runstatus = @error_skipped)
  12084.     begin
  12085.         select @runstatus = @inprogress
  12086.         select @this_row_updateable = 0
  12087.     end
  12088.  
  12089.     if (@updateable_row = 0)
  12090.     begin
  12091.         select @this_row_updateable = 0
  12092.     end
  12093.     
  12094.     -- Security Check
  12095.     exec @retcode = dbo.sp_MScheck_pull_access
  12096.         @agent_id = @agent_id,
  12097.         @agent_type = 0 -- distribution agent
  12098.     if @@error <> 0 or @retcode <> 0
  12099.         return (1)
  12100.  
  12101.     SELECT @current_time = GETDATE()
  12102.  
  12103.     -- Update Perfmon counter
  12104.     if @perfmon_increment = 1
  12105.     begin
  12106.         if @runstatus = @startup
  12107.             dbcc incrementinstance ("SQL Replication Agents", "Running", "Distribution", 1)
  12108.         else if (@runstatus = @succeed or @runstatus = @retry or @runstatus = @failure)
  12109.             dbcc incrementinstance ("SQL Replication Agents", "Running", "Distribution", -1)
  12110.     end
  12111.  
  12112.     -- Get agent name, publisher id and publisher_db
  12113.     select @agent_name = name, 
  12114.         @publisher_database_id = publisher_database_id,
  12115.         @publisher_id = publisher_id, @publisher_db = publisher_db,
  12116.         @publication =  publication, @subscriber_id = subscriber_id, @subscriber_db = subscriber_db
  12117.         from MSdistribution_agents
  12118.         where id = @agent_id
  12119.     select @publisher = srvname from master..sysservers where srvid = @publisher_id
  12120.     select @subscriber = srvname from master..sysservers where srvid = @subscriber_id
  12121.  
  12122.     /* Get start_time and xact_seqno for latest agent run */
  12123.     IF @runstatus <> 1   
  12124.     BEGIN
  12125.           
  12126.         SELECT TOP 1 
  12127.             @lastrow_xact_seqno = xact_seqno,
  12128.             @start_time = start_time, 
  12129.             @total_cmds = total_delivered_commands,
  12130.             @lastrow_timestamp = timestamp, 
  12131.             @new_delivered_transactions = @delivered_transactions - delivered_transactions,
  12132.             @new_delivered_commands = @delivered_commands - delivered_commands,
  12133.             @last_delivery_rate = delivery_rate,
  12134.             @last_delivery_latency = delivery_latency,
  12135.             @existing_row_updateble = updateable_row
  12136.         FROM MSdistribution_history (rowlock)
  12137.             WHERE agent_id = @agent_id 
  12138.             ORDER BY timestamp  DESC
  12139.     END
  12140.     ELSE
  12141.     BEGIN
  12142.         -- At least get running total of commands over all sessions.
  12143.         SELECT TOP 1 
  12144.             @lastrow_xact_seqno = xact_seqno,
  12145.             @total_cmds = total_delivered_commands
  12146.             FROM MSdistribution_history  (rowlock)
  12147.             WHERE agent_id = @agent_id
  12148.             ORDER BY timestamp  DESC
  12149.         SELECT @start_time = @current_time
  12150.         SELECT @new_delivered_commands = @delivered_commands
  12151.         SELECT @new_delivered_transactions = @delivered_transactions
  12152.         SELECT @last_delivery_rate = 0
  12153.         SELECT @last_delivery_latency = 0
  12154.     END
  12155.  
  12156.     IF @total_cmds IS NULL
  12157.         SELECT @total_cmds = 0
  12158.  
  12159.     /* Use the current time if no corresponding start_up message logged */
  12160.     IF @start_time is NULL
  12161.        SELECT @start_time = @current_time
  12162.  
  12163.     /* Calculate agent run duration */
  12164.     SELECT @duration = DATEDIFF(second, @start_time, @current_time) 
  12165.     
  12166.     IF @delivered_commands <> 0
  12167.        SELECT @average_commands = @delivered_commands/@delivered_transactions
  12168.     ELSE
  12169.        SELECT @average_commands = 0
  12170.  
  12171.     -- Get the entry time of the last distributed transaction
  12172.     if @xact_seqno <> 0x00 and @new_delivered_commands <> 0
  12173.         -- SELECT @entry_time = entry_time FROM MSrepl_transactions (READPAST)
  12174.         SELECT @entry_time = entry_time FROM MSrepl_transactions 
  12175.            WHERE xact_seqno = @xact_seqno and
  12176.                 publisher_database_id = @publisher_database_id
  12177.  
  12178.     -- Calculate the latency of the last distributed transaction
  12179.     IF @entry_time IS NOT NULL
  12180.     begin
  12181.        -- Calculte diff in minutes.
  12182.        declare @diff_min int
  12183.        select @diff_min = DATEDIFF(minute, @entry_time, @current_time)
  12184.        if @diff_min > 16666
  12185.             select @delivery_latency = 999999999
  12186.        else 
  12187.             select @delivery_latency = DATEDIFF(millisecond, @entry_time, @current_time)
  12188.     end
  12189.     ELSE
  12190.        SELECT @delivery_latency = 0
  12191.  
  12192.     -- Calculate the average delivery latency of the session
  12193.     IF @last_delivery_latency = 0
  12194.         SET @avg_delivery_latency = @delivery_latency
  12195.     ELSE IF @delivery_latency = 0
  12196.         SET @avg_delivery_latency = @last_delivery_latency
  12197.     ELSE
  12198.         SET @avg_delivery_latency = (@delivery_latency + @last_delivery_latency)/2
  12199.  
  12200.     -- Calculate average delivery rate of the session
  12201.  
  12202.     IF @last_delivery_rate = 0
  12203.         SET @avg_delivery_rate = @delivery_rate
  12204.     ELSE IF @delivery_rate = 0 or @new_delivered_commands = 0
  12205.         SET @avg_delivery_rate = @last_delivery_rate
  12206.     ELSE
  12207.         SET @avg_delivery_rate = (@delivery_rate + @last_delivery_rate)/2.0     
  12208.  
  12209.     /* Calculate grand total of delivered trans across sessions */
  12210.     SELECT @total_cmds = @total_cmds + @new_delivered_commands
  12211.  
  12212.     -- Set Perfmon counters
  12213.     if @runstatus = @idle or @runstatus = @inprogress
  12214.     begin
  12215.         dbcc addinstance ("SQL Replication Distribution", @agent_name)
  12216.         dbcc incrementinstance ("SQL Replication Distribution", "Dist:Delivered Trans/sec", @agent_name, @new_delivered_transactions)
  12217.         dbcc incrementinstance ("SQL Replication Distribution", "Dist:Delivered Cmds/sec", @agent_name, @new_delivered_commands)
  12218.         dbcc setinstance ("SQL Replication Distribution", "Dist:Delivery Latency", @agent_name, @delivery_latency)
  12219.     end
  12220.     else
  12221.     begin /* Reset latency counter */
  12222.         dbcc addinstance ("SQL Replication Distribution", @agent_name)
  12223.         dbcc setinstance ("SQL Replication Distribution", "Dist:Delivery Latency", @agent_name, 0)
  12224.     end
  12225.  
  12226.     /* 
  12227.     ** Set error id to 0 unless the user want to log errors associate with this 
  12228.     ** history message.
  12229.     */
  12230.     SELECT @error_id = 0
  12231.     IF @log_error = 1
  12232.         -- Ignore errors here. @error_id will be set to 0 in case of errors  
  12233.         EXEC dbo.sp_MSget_new_errorid @error_id OUTPUT, @xactseq, @command_id
  12234.     
  12235.     -- @xact_seqno may be uninitialized for the first several messages after
  12236.     -- the start-up of the distribtion agent. Get the correct value in that case. 
  12237.     -- We must do this because distribution cleanup will use the lastest xact_seqno
  12238.     -- as cleanup boundary.
  12239.     -- Note: @last_xact_seqno might be NULL
  12240.     -- Only do this if @xact_seqno is 0, since a smaller xact_seqno might be logged due
  12241.     -- to reinited sub for immediate_sync pub.
  12242.     -- This will prevent history being messed up by one gabage history entry.
  12243.     if @xact_seqno = 0x00 and @lastrow_xact_seqno is not null
  12244.         select @xact_seqno = @lastrow_xact_seqno 
  12245.  
  12246.     -- Insert idle record or update if history record is already 'idle'
  12247.     IF (@existing_row_updateble = 1) and (@runstatus = @idle or @update_existing_row = 1)
  12248.     begin
  12249.  
  12250.         -- Attempt to update the last row if it is IDLE
  12251.         if (@runstatus = @idle)
  12252.         begin
  12253.             UPDATE MSdistribution_history SET runstatus = @runstatus, time = @current_time,
  12254.             duration = @duration, comments = @comments,
  12255.             xact_seqno = @xact_seqno, updateable_row = @this_row_updateable,
  12256.             error_id = case @error_id when 0 then error_id else @error_id end
  12257.             WHERE
  12258.             agent_id = @agent_id and
  12259.             timestamp = @lastrow_timestamp and
  12260.             ( runstatus = @runstatus or 
  12261.             (@update_existing_row = 1 and runstatus in (@idle, @inprogress) and @runstatus in (@idle, @inprogress)) )
  12262.         end
  12263.         else
  12264.         begin
  12265.             -- Attempt to update the last row if it is IDLE
  12266.             UPDATE MSdistribution_history SET runstatus = @runstatus, start_time = @start_time,
  12267.                 time = @current_time,
  12268.                 duration = @duration,
  12269.                 xact_seqno = @xact_seqno,
  12270.                 comments = @comments,
  12271.                 delivered_transactions = @delivered_transactions,
  12272.                 delivered_commands = @delivered_commands,
  12273.                 average_commands = @average_commands,
  12274.                 delivery_rate = @avg_delivery_rate,
  12275.                 delivery_latency = @avg_delivery_latency,
  12276.                 total_delivered_commands = @total_cmds,
  12277.                 current_delivery_rate = @delivery_rate,
  12278.                 current_delivery_latency = @delivery_latency,
  12279.                 updateable_row = @this_row_updateable,
  12280.                 error_id = case @error_id when 0 then error_id else @error_id end
  12281.                 WHERE
  12282.                 agent_id = @agent_id and
  12283.                 timestamp = @lastrow_timestamp and
  12284.                 ( runstatus = @runstatus or 
  12285.                 (@update_existing_row = 1 and runstatus in (@idle, @inprogress) and @runstatus in (@idle, @inprogress)) )
  12286.         end
  12287.     
  12288.         -- Insert idle record if there is not one
  12289.         if @@ROWCOUNT = 0
  12290.         begin
  12291.             INSERT INTO MSdistribution_history (agent_id, runstatus, start_time, time, duration, comments, xact_seqno,
  12292.                 delivered_transactions, delivered_commands, average_commands, delivery_rate, delivery_latency,
  12293.                 total_delivered_commands, error_id, timestamp, current_delivery_rate, current_delivery_latency, updateable_row)
  12294.             VALUES (@agent_id, @runstatus, @start_time, @current_time, 
  12295.                 @duration, @comments, @xact_seqno, @delivered_transactions, 
  12296.                 @delivered_commands, @average_commands, @avg_delivery_rate,
  12297.                 @avg_delivery_latency, @total_cmds, @error_id, NULL, @delivery_rate, @delivery_latency, @this_row_updateable)
  12298.         end
  12299.     end
  12300.     else
  12301.     begin
  12302.         INSERT INTO MSdistribution_history (agent_id, runstatus, start_time, time, duration, comments, xact_seqno,
  12303.                 delivered_transactions, delivered_commands, average_commands, delivery_rate, delivery_latency,
  12304.                 total_delivered_commands, error_id, timestamp, current_delivery_rate, current_delivery_latency, updateable_row)
  12305.         VALUES (@agent_id, @runstatus, @start_time, @current_time, 
  12306.             @duration, @comments, @xact_seqno, @delivered_transactions, 
  12307.             @delivered_commands, @average_commands, @avg_delivery_rate,
  12308.             @avg_delivery_latency, @total_cmds, @error_id, NULL, @delivery_rate, @delivery_latency, @this_row_updateable)
  12309.     end
  12310.  
  12311.     -- Refresh repl monitor
  12312.     declare @agent_type int
  12313.     set @agent_type = dbo.fn_MSmask_agent_type (@agent_id, 3)
  12314.  
  12315.     -- Update global replication agent status table
  12316.     exec dbo.sp_MSupdate_replication_status 
  12317.         @publisher, 
  12318.         @publisher_db,
  12319.         @publication,
  12320.         @agent_type = @agent_type,
  12321.         @agent_name = @agent_name,
  12322.         @status = @runstatus
  12323.  
  12324.     if (@raiserror_status = @validation_failure or @raiserror_status = @validation_success or
  12325.         @raiserror_status = @error_skipped)
  12326.     begin
  12327.         -- Get the "real" publication name (as opposed to 'ALL') and article name
  12328.         select @article_id = article_id from MSrepl_commands
  12329.         where publisher_database_id = @publisher_database_id
  12330.         and xact_seqno = @xactseq
  12331.         and command_id = @command_id
  12332.     
  12333.         select @publication = mp.publication, @publication_id = mp.publication_id
  12334.         from MSpublications as mp, MSsubscriptions as ms
  12335.         where mp.publisher_id = ms.publisher_id
  12336.         and mp.publisher_db = ms.publisher_db
  12337.         and mp.publication_id = ms.publication_id
  12338.         and ms.publisher_id = @publisher_id
  12339.         and ms.publisher_db = @publisher_db
  12340.         and ms.subscriber_id = @subscriber_id
  12341.         and ms.subscriber_db = @subscriber_db
  12342.         and ms.article_id = @article_id
  12343.  
  12344.         select @article = article
  12345.         from MSarticles
  12346.         where article_id = @article_id
  12347.         and publisher_id = @publisher_id
  12348.         and publisher_db = @publisher_db
  12349.         and publication_id = @publication_id
  12350.     end
  12351.  
  12352.     -- Raise the appropriate error
  12353.     if @do_raiserror = 1
  12354.     begin
  12355.         select @agentclassname = formatmessage(14553)
  12356.         exec dbo.sp_MSrepl_raiserror @agentclassname, @agent_name, @raiserror_status, @comments, @subscriber=@subscriber, @publication=@publication, @article=@article
  12357.     end
  12358.     
  12359.     IF @@ERROR <> 0
  12360.        RETURN (1)
  12361. END
  12362. GO   
  12363.  
  12364. raiserror(15339,-1,-1,'sp_MSsubscription_cleanup')
  12365. GO
  12366. CREATE PROCEDURE sp_MSsubscription_cleanup
  12367.     @cutoff_time datetime
  12368.     as
  12369.  
  12370.     declare @max_time datetime
  12371.     declare @active tinyint
  12372.     declare @inactive tinyint
  12373.     declare @subscribed tinyint
  12374.     declare @virtual_anonymous smallint
  12375.     declare @virtual smallint
  12376.     declare @agent_id int
  12377.     declare @retcode int,
  12378.         @num_dropped int
  12379.  
  12380.     set nocount on
  12381.  
  12382.     select @active = 2
  12383.     select @inactive = 0
  12384.     select @subscribed = 1
  12385.     select @virtual = -1
  12386.     select @virtual_anonymous = -2
  12387.  
  12388.     select @max_time = dateadd(hour, 1, getdate())
  12389.  
  12390.     -- Refer to sp_MSmaximun_cleanup_xact_seqno to understand the logic
  12391.     -- in this sp. If you change the logic here, you may need to change
  12392.     -- that sp as well.
  12393.  
  12394.     -- Deactivate real subscriptions for agents that are working on 
  12395.     -- transactions that are older than @retention
  12396.     -- update all the subscriptions for those agents, including
  12397.     -- subscriptions that are in subscribed state!
  12398.     update MSsubscriptions  set status = @inactive where
  12399.         agent_id in (
  12400.         select a.id from 
  12401.             (select s.agent_id, s.subscription_seqno, max(isnull(h.timestamp,0x00))
  12402.                 from 
  12403.                 -- s stores the agent id and min subscription_seqno for
  12404.                 -- active well known subscriptions
  12405.                 (select s2.agent_id, min(s2.subscription_seqno) from
  12406.                     MSsubscriptions s2 
  12407.                     where
  12408.                     s2.status = @active and
  12409.                     -- Only well-known agent
  12410.                     s2.subscriber_id >= 0
  12411.                     group by s2.agent_id)
  12412.                 s (agent_id, subscription_seqno)
  12413.                 left join MSdistribution_history h
  12414.                 on (h.agent_id = s.agent_id)
  12415.                 group by s.agent_id, s.subscription_seqno)
  12416.             sh (agent_id, subscription_seqno, timestamp)
  12417.             left join MSdistribution_history dh 
  12418.             on (dh.agent_id = sh.agent_id and dh.timestamp = sh.timestamp)
  12419.             -- a is for publisher_database_id
  12420.             join MSdistribution_agents a
  12421.             on (a.id = sh.agent_id)
  12422.             where
  12423.             @cutoff_time > = (
  12424.                 -- Get the entry_time of the first tran that cannot be
  12425.                 -- cleaned up normally because of this agent.
  12426.                 -- Use history if it's larger and it is not null (exists)
  12427.                 case  when dh.xact_seqno >= sh.subscription_seqno 
  12428.                 then
  12429.                     -- Have to join with commands table because transactions that
  12430.                     -- does not have commands will not be picked up by
  12431.                     -- sp_MSget_repl_commands
  12432.                     isnull((select top 1 entry_time from MSrepl_transactions t,
  12433.                         MSrepl_commands c where
  12434.                         t.publisher_database_id = a.publisher_database_id and
  12435.                         c.publisher_database_id = a.publisher_database_id and
  12436.                         c.xact_seqno = t.xact_seqno and
  12437.                         -- history xact_seqno can be cleaned up
  12438.                         t.xact_seqno > isnull(dh.xact_seqno,0x0) and
  12439.                         c.xact_seqno > isnull(dh.xact_seqno,0x0)
  12440.                         order by t.xact_seqno asc), @max_time)
  12441.                 else
  12442.                     isnull((select top 1 entry_time from MSrepl_transactions t,
  12443.                         MSrepl_commands c where
  12444.                         t.publisher_database_id = a.publisher_database_id and
  12445.                         c.publisher_database_id = a.publisher_database_id and
  12446.                         c.xact_seqno = t.xact_seqno and
  12447.                         -- sub xact_seqno cannot be cleaned up
  12448.                         t.xact_seqno >= sh.subscription_seqno and
  12449.                         c.xact_seqno >= sh.subscription_seqno                
  12450.                         order by t.xact_seqno asc), @max_time)
  12451.                 end))
  12452.  
  12453.     if @@rowcount <> 0
  12454.         RAISERROR(21011, 10, -1) 
  12455.  
  12456.     -- Dropping all the aonymous agents that are working on
  12457.     -- transactions that are older than @retention
  12458.     -- No message raised.
  12459.     -- Don't drop agents that do not have history (true for new agents).
  12460.     -- For each publisher/publisherdb pair do cleanup
  12461.     declare hC CURSOR LOCAL FAST_FORWARD FOR 
  12462.         select distinct a.id from 
  12463.             (select s.agent_id, s.subscription_seqno, max(isnull(h.timestamp,0x00))
  12464.                 from 
  12465.                 -- s stores the agent id and min subscription_seqno of newest
  12466.                 -- snapshot for
  12467.                 -- active anonymous subscriptions
  12468.                 (select a2.id, min(s2.subscription_seqno) from
  12469.                     MSsubscriptions s2 
  12470.                     join MSdistribution_agents a2
  12471.                     on (a2.virtual_agent_id = s2.agent_id)
  12472.                     where
  12473.                     s2.status = @active 
  12474.                     group by a2.id)
  12475.                 s (agent_id, subscription_seqno)
  12476.                 join MSdistribution_history h
  12477.                 on (h.agent_id = s.agent_id)
  12478.                 group by s.agent_id, s.subscription_seqno)
  12479.             sh (agent_id, subscription_seqno, timestamp)
  12480.             join MSdistribution_history dh 
  12481.             on (dh.agent_id = sh.agent_id and dh.timestamp = sh.timestamp)
  12482.             join MSdistribution_agents a
  12483.             -- a is for publisher_database_id
  12484.             on (a.id = sh.agent_id)
  12485.             where
  12486.             @cutoff_time > = (
  12487.                 -- Get the entry_time of the first tran that cannot be
  12488.                 -- cleaned up normally because of this agent.
  12489.                 -- Use history if it's larger and it is not null (exists)
  12490.                 case  when dh.xact_seqno > 0x00
  12491.                 then
  12492.                     -- does not have commands will not be picked up by
  12493.                     -- sp_MSget_repl_commands
  12494.                     isnull((select top 1 entry_time from MSrepl_transactions t,
  12495.                         MSrepl_commands c where
  12496.                         t.publisher_database_id = a.publisher_database_id and
  12497.                         c.publisher_database_id = a.publisher_database_id and
  12498.                         c.xact_seqno = t.xact_seqno and
  12499.                         -- history xact_seqno can be cleaned up
  12500.                         t.xact_seqno > isnull(dh.xact_seqno,0x0) and
  12501.                         c.xact_seqno > isnull(dh.xact_seqno,0x0)
  12502.                         order by t.xact_seqno asc), @max_time)
  12503.                 else
  12504.                     isnull((select top 1 entry_time from MSrepl_transactions t,
  12505.                         MSrepl_commands c where
  12506.                         t.publisher_database_id = a.publisher_database_id and
  12507.                         c.publisher_database_id = a.publisher_database_id and
  12508.                         c.xact_seqno = t.xact_seqno and
  12509.                         -- sub xact_seqno cannot be cleaned up
  12510.                         t.xact_seqno >= sh.subscription_seqno and
  12511.                         c.xact_seqno >= sh.subscription_seqno
  12512.                         order by t.xact_seqno asc), @max_time)
  12513.                   end)
  12514.     for read only
  12515.     select @num_dropped = 0
  12516.     open hC
  12517.     fetch hC into @agent_id
  12518.     while (@@fetch_status <> -1)
  12519.     begin
  12520.         exec @retcode = dbo.sp_MSdrop_distribution_agentid @agent_id
  12521.         if @retcode <> 0 or @@error <> 0
  12522.             return (1)
  12523.         select @num_dropped = @num_dropped + 1
  12524.         fetch hC into @agent_id
  12525.     end
  12526.     if @num_dropped > 0
  12527.         RAISERROR(20597, 10, -1, @num_dropped) 
  12528.  
  12529.     -- Deactivating subscriptions virtual subscriptions that are older then @retention.
  12530.     update MSsubscriptions  set status = @subscribed
  12531.         where
  12532.         -- Only change active subscriptions!
  12533.         status = @active and 
  12534.         subscriber_id = @virtual and
  12535.                 -- Get the entry_time of the first tran that cannot be
  12536.                 -- cleaned up normally because of this subscription.
  12537.             isnull((select top 1 entry_time from MSrepl_transactions t where
  12538.                 t.publisher_database_id = MSsubscriptions.publisher_database_id and
  12539.                 xact_seqno >= MSsubscriptions.subscription_seqno
  12540.                 order by t.xact_seqno asc), @max_time)
  12541.             <= @cutoff_time
  12542.     if @@rowcount <> 0
  12543.         RAISERROR(21077, 10, -1) 
  12544. GO
  12545.  
  12546. raiserror(15339,-1,-1,'sp_MSreplremoveuncdir')
  12547. GO
  12548. CREATE PROCEDURE sp_MSreplremoveuncdir
  12549. @dir nvarchar(260)
  12550. as
  12551.  
  12552.     set nocount on
  12553.  
  12554.     declare @retcode int
  12555.     declare @local_dir nvarchar(260)
  12556.     declare @cmd nvarchar(1000)
  12557.     declare @machinename sysname
  12558.     /* 
  12559.     ** We have to convert UNC to drive, otherwise will get 'Access denied' error in xp_cmdshell
  12560.     */
  12561.     select @machinename = convert(sysname, SERVERPROPERTY('machinename'))
  12562.     EXEC @retcode = master.dbo.sp_MSunc_to_drive @unc_path = @dir, 
  12563.         @local_server = @machinename, @local_path = @local_dir OUTPUT
  12564.     IF @retcode <> 0 or @@ERROR <> 0 
  12565.         RETURN(1)
  12566.  
  12567.     /*
  12568.     ** Delete directory in the distributor's directory.
  12569.     ** On Win9x, we have to use deltree instead
  12570.     */
  12571.     declare @platform_nt int 
  12572.     select @platform_nt = 0x1
  12573.     IF (( platform() & @platform_nt = @platform_nt))
  12574.     BEGIN 
  12575.         SELECT @cmd = 'if exist "' + @local_dir + '" rmdir /S /Q ' + '"' + @local_dir + '"'
  12576.     END
  12577.     ELSE
  12578.     BEGIN
  12579.         -- Don't need if exists check on Win9x but we do need 
  12580.         -- to remove the trailing slash
  12581.         IF SUBSTRING(@local_dir, LEN(@local_dir), 1) = N'\'
  12582.         BEGIN
  12583.             SELECT @local_dir = LEFT(@local_dir, LEN(@local_dir)-1)
  12584.         END
  12585.         SELECT @cmd = 'deltree /Y ' + '"' + @local_dir + '"'
  12586.     END
  12587.  
  12588.     EXECUTE  @retcode = master..xp_cmdshell @cmd, NO_OUTPUT
  12589.     IF @retcode <> 0 or @@ERROR <> 0 
  12590.     begin
  12591.         raiserror(20015, 16, -1, @dir)
  12592.         RETURN(1)
  12593.     end
  12594. go
  12595.  
  12596. raiserror(15339,-1,-1,'sp_MSdrop_snapshot_dirs')
  12597. GO
  12598. CREATE PROCEDURE sp_MSdrop_snapshot_dirs
  12599. as
  12600.     declare @retcode int
  12601.     declare @snapshot_bit int
  12602.     declare @directory_type int
  12603.     declare @alt_directory_type int
  12604.     declare @publisher_database_id int
  12605.         
  12606.     declare @dir nvarchar(512)
  12607.     declare @command_id int
  12608.     declare @xact_seqno varbinary(16)
  12609.     
  12610.     select @snapshot_bit = 0x80000000
  12611.     select @directory_type = 7
  12612.     select @alt_directory_type = 25
  12613.  
  12614.     declare  hCdirs  CURSOR LOCAL FAST_FORWARD FOR select CONVERT(nvarchar(512), command),
  12615.         xact_seqno, command_id, publisher_database_id
  12616.         from MSrepl_commands where
  12617.         ((type & ~@snapshot_bit) = @directory_type) or
  12618.         ((type & ~@snapshot_bit) = @alt_directory_type)
  12619.     for read only
  12620.  
  12621.     open hCdirs
  12622.     fetch hCdirs into @dir, @xact_seqno, @command_id, @publisher_database_id
  12623.     while (@@fetch_status <> -1)
  12624.     begin
  12625.          -- Need to map unc to local drive for access problem
  12626.         exec @retcode = dbo.sp_MSreplremoveuncdir @dir
  12627.         /* Abort the operation if the delete fails */
  12628.         if (@retcode <> 0 or @@error <> 0)
  12629.             return (1)
  12630.  
  12631.         delete MSrepl_commands where 
  12632.             publisher_database_id = @publisher_database_id and
  12633.             xact_seqno = @xact_seqno and
  12634.             command_id = @command_id
  12635.  
  12636.         fetch hCdirs into @dir, @xact_seqno, @command_id, @publisher_database_id
  12637.     end
  12638.     close hCdirs
  12639.     deallocate hCdirs
  12640. GO
  12641.  
  12642. raiserror(15339,-1,-1,'sp_MSfast_delete_trans')
  12643. GO
  12644. CREATE PROCEDURE sp_MSfast_delete_trans
  12645. as
  12646.     declare @retcode int
  12647.  
  12648.     EXEC @retcode = sp_MSdrop_snapshot_dirs
  12649.     if( @retcode <> 0 or @@error <> 0 )
  12650.         return 1
  12651.  
  12652.     truncate table MSrepl_commands
  12653.     truncate table MSrepl_transactions
  12654.  
  12655. GO
  12656.  
  12657. raiserror(15339,-1,-1,'sp_MSdelete_dodelete')
  12658. go
  12659. -- New delete stored procedure WITH RECOMPILE
  12660. CREATE PROCEDURE sp_MSdelete_dodelete
  12661.     @publisher_database_id int,
  12662.     @max_xact_seqno varbinary(16),
  12663.     @last_xact_seqno varbinary(16),
  12664.     @last_log_xact_seqno varbinary(16)
  12665. WITH RECOMPILE
  12666.     as
  12667.         delete MSrepl_transactions WITH (PAGLOCK) from MSrepl_transactions where
  12668.                 publisher_database_id = @publisher_database_id and
  12669.                 xact_seqno <= @max_xact_seqno and
  12670.                 xact_seqno <> @last_xact_seqno and
  12671.                 xact_seqno <> @last_log_xact_seqno and
  12672.                 -- use nolock to avoid deadlock
  12673.                 not exists (select * from MSrepl_commands c (nolock) where
  12674.                     c.publisher_database_id = @publisher_database_id and
  12675.                     c.xact_seqno = MSrepl_transactions.xact_seqno)
  12676. GO
  12677.  
  12678. raiserror(15339,-1,-1,'sp_MSdelete_publisherdb_trans')
  12679. GO
  12680. CREATE PROCEDURE sp_MSdelete_publisherdb_trans
  12681.     @publisher_database_id int,
  12682.     @max_xact_seqno varbinary(16),
  12683.     @max_cutoff_time datetime,
  12684.     @num_transactions int OUTPUT,
  12685.     @num_commands int OUTPUT
  12686.     as
  12687.  
  12688.     set nocount on
  12689.     
  12690.     declare @snapshot_bit int
  12691.     declare @replpost_bit int
  12692.     declare @directory_type int
  12693.     declare @alt_directory_type int
  12694.     declare @scriptexec_type int
  12695.     declare @last_xact_seqno varbinary(16)
  12696.     declare @last_log_xact_seqno varbinary(16)
  12697.     declare @max_immediate_sync_seqno varbinary(16)
  12698.     declare @dir nvarchar(512)
  12699.     declare @row_count int
  12700.     declare @batchsize int
  12701.     declare @retcode int            /* Return value of xp_cmdshell */
  12702.     declare @has_immediate_sync bit
  12703.     declare @xact_seqno varbinary(16)
  12704.     declare @command_id int
  12705.     declare @type int
  12706.     declare @directory nvarchar(1024)
  12707.  
  12708.     select @snapshot_bit = 0x80000000
  12709. select @replpost_bit = 0x40000000
  12710.     select @directory_type = 7
  12711.     select @alt_directory_type = 25
  12712. select @scriptexec_type = 46
  12713.     select @num_transactions = 0
  12714.     select @num_commands = 0
  12715.  
  12716.     -- If transactions for immediate_sync publications will not be cleanup up until
  12717.     -- they are older that max retention, except for snapshot transactions.
  12718.     -- Snapshot transactions for immediate_sync publication will be cleanup up if it is
  12719.     -- not used by any subscriptions (including virtual and virtual immediate_syncymous
  12720.     -- subscriptions. Both will be reset by snapshot agent every time if the 
  12721.     -- publication is snapshot type.) The special logic for snapshot transactions
  12722.     -- is mostly for snapshop publications. It is to cleaup up the snapshot files 
  12723.     -- ASAP and not to wait for max retention.
  12724.     -- We don't need to do this for non-immediate_syncymous publications since the snapshot
  12725.     -- trans for them will be removed as soon as they are distributed and min '
  12726.     -- retention is reached.
  12727.  
  12728.     -- Detect if there are immediate_syncymous publications in this publishing db.
  12729.     if exists (select * from MSsubscriptions where
  12730.             publisher_database_id = @publisher_database_id and
  12731.             subscriber_id < 0)
  12732.         select @has_immediate_sync = 1
  12733.     else
  12734.         select @has_immediate_sync = 0
  12735.  
  12736.     if @has_immediate_sync = 1
  12737.     begin
  12738.         -- if @max_immediate_sync_seqno is null, not row will be deleted based on that.
  12739.         select @max_immediate_sync_seqno = max(xact_seqno) from MSrepl_transactions where
  12740.             publisher_database_id = @publisher_database_id and
  12741.             entry_time <= @max_cutoff_time
  12742.     end
  12743.  
  12744.     -- Note delete commands first since transaction table will be used for
  12745.     -- geting @max_xact_seqno (see sp_MSmaximum_cleanup_seqno).
  12746.     -- Delete all directories stored in directory command.
  12747.     if @has_immediate_sync = 0
  12748.         declare  hCdirs  CURSOR LOCAL FAST_FORWARD FOR select CONVERT(nvarchar(512), command),
  12749.             xact_seqno, command_id, type
  12750.             from MSrepl_commands where
  12751.             publisher_database_id = @publisher_database_id and
  12752.             xact_seqno <= @max_xact_seqno and   
  12753.             ((type & ~@snapshot_bit) = @directory_type or
  12754.             (type & ~@snapshot_bit) = @alt_directory_type)
  12755.         for read only
  12756.     else
  12757.         declare  hCdirs  CURSOR LOCAL FAST_FORWARD FOR select CONVERT(nvarchar(512), command),
  12758.             xact_seqno, command_id, type
  12759.             from MSrepl_commands c where
  12760.             publisher_database_id = @publisher_database_id and
  12761.             ((type & ~@snapshot_bit) = @directory_type  or
  12762.              (type & ~@snapshot_bit) = @alt_directory_type or
  12763.              (type & ~@replpost_bit) = @scriptexec_type) and
  12764.             xact_seqno <= @max_xact_seqno and  
  12765.             (
  12766.             -- Select the row if it is older than max retention.
  12767.             xact_seqno <= @max_immediate_sync_seqno or 
  12768.             -- Select the row if it is not used by any subscriptions.
  12769.             not exists (select * from MSsubscriptions s where
  12770.                 s.publisher_database_id = @publisher_database_id and
  12771.                 s.subscription_seqno = c.xact_seqno) OR
  12772.             -- Select the row if it is not for immediate_sync publications
  12773.             -- Note: directory command have article id 0 so it is not useful
  12774.             not exists (select * from MSpublications p where
  12775.                 p.publication_id = (select top 1 s.publication_id 
  12776.                     from MSsubscriptions s where
  12777.                     s.publisher_database_id = @publisher_database_id and
  12778.                     s.subscription_seqno = c.xact_seqno) and
  12779.                 p.immediate_sync = 1)
  12780.             )
  12781.         for read only
  12782.  
  12783.     open hCdirs
  12784.     fetch hCdirs into @dir, @xact_seqno, @command_id, @type
  12785.     while (@@fetch_status <> -1)
  12786.     begin
  12787.     if( (@type & ~@replpost_bit) = @scriptexec_type) -- script exec command, need to map to the right path.
  12788.         select @dir = left(@dir,len(@dir) - charindex(N'\', reverse(@dir)))        
  12789.     -- Need to map unc to local drive for access problem
  12790.         exec @retcode = dbo.sp_MSreplremoveuncdir @dir
  12791.         /* Abort the operation if the delete fails */
  12792.         if (@retcode <> 0 or @@error <> 0)
  12793.             return (1)
  12794.  
  12795.         delete MSrepl_commands where 
  12796.             publisher_database_id = @publisher_database_id and
  12797.             xact_seqno = @xact_seqno and
  12798.             command_id = @command_id
  12799.         -- Update output parameter
  12800.         select @num_commands = @num_commands + @@rowcount
  12801.  
  12802.         fetch hCdirs into @dir, @xact_seqno, @command_id, @type
  12803.     end
  12804.     close hCdirs
  12805.     deallocate hCdirs
  12806.  
  12807.  
  12808.     -- Delete all commans less than or equal to the @max_xact_seqno
  12809.     -- Delete in batch to reduce the transaction size
  12810.     set rowcount 2000
  12811.     WHILE 1 = 1
  12812.     BEGIN
  12813.         if @has_immediate_sync = 0
  12814.             DELETE MSrepl_commands WITH (PAGLOCK) where
  12815.                 publisher_database_id = @publisher_database_id and
  12816.                 xact_seqno <= @max_xact_seqno
  12817.         else
  12818.             -- Use nolock hint on subscription table to avoid deadlock
  12819.             -- with snapshot agent.
  12820.             DELETE MSrepl_commands WITH (PAGLOCK) where
  12821.                 publisher_database_id = @publisher_database_id and
  12822.                 xact_seqno <= @max_xact_seqno and
  12823.                 -- Don't delete directory commands. It is deleted ealier.
  12824.                 -- We have to do this because we use (nolock) hint. we have to make sure
  12825.                 -- we don't delete dir command when the file is not cleaned up in the code
  12826.                 -- above.
  12827.                 (type & ~@snapshot_bit) <> @directory_type and
  12828.                 (
  12829.                 -- Select the row if it is older than max retention.
  12830.                 xact_seqno <= @max_immediate_sync_seqno or 
  12831.                 -- Select the row if it is not for immediate_sync article
  12832.                 -- We know the command is for immediate_sync publication if
  12833.                 -- the snapshot tran include articles that has virtual
  12834.                 -- subscritptions. (use subscritpion table to avoid join with
  12835.                 -- article and publication table)
  12836.                 not exists (select * from MSsubscriptions s (nolock) where
  12837.                     s.publisher_database_id = @publisher_database_id and
  12838.                     s.article_id = MSrepl_commands.article_id and
  12839.                     s.subscriber_id < 0) or
  12840.                 -- Select the row if it is snapshot tran and 
  12841.                 -- not used by any subscriptions.
  12842.                 -- Delete the snapshot commands if there's no subscriptions that are not 
  12843.                 -- virtual anonymous have smaller or equal subscription_seqno than 
  12844.                 -- the command's xact_seqno.
  12845.                 ((type & @snapshot_bit) <> 0 and
  12846.                 not exists (select * from MSsubscriptions s (nolock) where
  12847.                     s.publisher_database_id = @publisher_database_id and
  12848.                     s.subscription_seqno <= MSrepl_commands.xact_seqno and
  12849.                     s.subscriber_id <> -2))
  12850.                 )
  12851.  
  12852.         select @row_count = @@rowcount
  12853.         -- Update output parameter
  12854.         select @num_commands = @num_commands + @row_count
  12855.     
  12856.         IF @row_count = 0 -- passed the result set.  We're done
  12857.             BREAK
  12858.     END
  12859.  
  12860.     -- Optimized query to get the max transaction row
  12861.     set rowcount 1
  12862.     select @last_log_xact_seqno = xact_seqno from MSrepl_transactions
  12863.         where
  12864.             publisher_database_id = @publisher_database_id and
  12865.             xact_id <> 0x0  -- not initial sync transaction
  12866.             order by xact_seqno desc
  12867.  
  12868.     select @last_xact_seqno = xact_seqno from MSrepl_transactions
  12869.         where
  12870.             publisher_database_id = @publisher_database_id
  12871.             order by xact_seqno desc
  12872.     set rowcount 0
  12873.  
  12874.     -- Remove all transactions less than or equal to the @max_xact_seqno and leave the 
  12875.     -- last transaction row
  12876.     -- Note @max_xact_seqno might be null, in this case don't do any thing.
  12877.     -- Delete in batchs to reduce the transaction size
  12878.     set rowcount 5000
  12879.     -- Delete all commans less than or equal to the @max_xact_seqno
  12880.     -- Delete  rows to reduce the transaction size
  12881.     WHILE 1 = 1
  12882.     BEGIN
  12883.         if @has_immediate_sync = 0
  12884.             delete MSrepl_transactions WITH (PAGLOCK) from MSrepl_transactions where
  12885.                 publisher_database_id = @publisher_database_id and
  12886.                 xact_seqno <= @max_xact_seqno and
  12887.                 xact_seqno <> @last_xact_seqno and
  12888.                 xact_seqno <> @last_log_xact_seqno
  12889.         else
  12890.             exec dbo.sp_MSdelete_dodelete @publisher_database_id, @max_xact_seqno, 
  12891.                 @last_xact_seqno, @last_log_xact_seqno 
  12892.  
  12893.         select @row_count = @@rowcount
  12894.  
  12895.         -- Update output parameter
  12896.         select @num_transactions = @num_transactions + @row_count
  12897.         if @row_count = 0
  12898.             BREAK
  12899.     END
  12900.     set rowcount 0
  12901. GO
  12902.  
  12903. raiserror(15339,-1,-1,'sp_MSmaximum_cleanup_seqno')
  12904. go
  12905. CREATE PROCEDURE sp_MSmaximum_cleanup_seqno
  12906.     @publisher_database_id int,
  12907.     @min_cutoff_time datetime,
  12908.     @max_cleanup_xact_seqno varbinary(16) OUTPUT
  12909.     as
  12910.  
  12911.     declare @min_sub_xact_seqno varbinary(16)
  12912.     declare @min_history_xact_seqno varbinary(16)
  12913.     declare @active int
  12914.     declare @initiated int
  12915.     declare @max_seqno varbinary(16)
  12916.     
  12917.     -- @max_seqn is to avoid warnging message from server on null values in aggregation.
  12918.     select @max_seqno = 0xffffffffffffffffffffffffffffffff
  12919.  
  12920.     set nocount on
  12921.  
  12922.     select @active = 2
  12923.     select @initiated = 3
  12924.  
  12925.     select  
  12926.         -- Get the min history xact_seqno that are large then or equal to starting
  12927.         -- sub seqno
  12928.         @min_history_xact_seqno = min(seqno.xact_seqno), 
  12929.         -- Get the min starting sub xact_seqno without larger history xact_seqno or without
  12930.         -- any history at all.
  12931.         @min_sub_xact_seqno = min(seqno.subscription_seqno)
  12932.         from
  12933.             -- seqno stores min sub seqno , min history seqno and choose_sub
  12934.             (select 
  12935.                 -- If history is larger and it is not null
  12936.                 -- use history.
  12937.                 case when dh.xact_seqno > = sh.subscription_seqno 
  12938.                 then dh.xact_seqno
  12939.                 -- Don't use dh in else
  12940.                 else @max_seqno
  12941.                 end,
  12942.  
  12943.                 -- If history is larger and it is not null
  12944.                 -- use history.
  12945.                 case when dh.xact_seqno > = sh.subscription_seqno 
  12946.                 -- Don't use sh
  12947.                 then @max_seqno
  12948.                 else sh.subscription_seqno
  12949.                 end
  12950.  
  12951.                 from 
  12952.                     (select s.agent_id, s.subscription_seqno, max(isnull(h.timestamp,0x00))
  12953.                     from 
  12954.                         -- s stores the agent id and min subscription_seqno for
  12955.                         -- active subscriptions on non immediate_sync subscriptions
  12956.                         (select a.id, min(s2.subscription_seqno) from
  12957.                             MSsubscriptions s2 
  12958.                             join MSdistribution_agents a
  12959.                             on (a.id = s2.agent_id) 
  12960.                             where
  12961.                             s2.status in( @active, @initiated ) and
  12962.                             /* Note must filter out virtual anonymous agents !!!
  12963.                                 a.subscriber_id <> @virtual_anonymous and */
  12964.                             -- filter out subscriptions to immediate_sync publications
  12965.                             not exists (select * from MSpublications p where
  12966.                                 s2.publication_id = p.publication_id and
  12967.                                 p.immediate_sync = 1) and
  12968.                             a.publisher_database_id = @publisher_database_id
  12969.                             group by a.id)
  12970.                         s (agent_id, subscription_seqno)
  12971.                         left join MSdistribution_history h
  12972.                         on (h.agent_id = s.agent_id)
  12973.                         group by s.agent_id, s.subscription_seqno)
  12974.                     sh (agent_id, subscription_seqno, timestamp)
  12975.                     left join MSdistribution_history dh 
  12976.                     on (dh.agent_id = sh.agent_id and dh.timestamp = sh.timestamp))
  12977.                     seqno (xact_seqno, subscription_seqno)
  12978.  
  12979.  
  12980.  
  12981. /*  This version might be faster.. Need experiments.
  12982.  
  12983.  
  12984.     -- Get the min history xact_seqno that are large then or equal to starting
  12985.     -- sub seqno
  12986.     select @min_history_xact_seqno = min(dh.xact_seqno) from
  12987.         -- h stores the agent_ids and last xact_seqno for the publisher_db 
  12988.         (select h2.agent_id, max(h2.timestamp) 
  12989.             from MSdistribution_history h2
  12990.             join MSdistribution_agents a
  12991.                 on (a.id = h2.agent_id)
  12992.             where
  12993.                 a.publisher_database_id = @publisher_database_id
  12994.                 group by h2.agent_id)
  12995.         h (agent_id, timestamp) 
  12996.         -- dh stores timestamp and xact_seqno association
  12997.         join MSdistribution_history dh 
  12998.             on (dh.agent_id = h.agent_id and dh.timestamp = h.timestamp)
  12999.         where   
  13000.             -- Only select history xact seqno larger then or equal to
  13001.             -- subscription start up seqno.
  13002.             -- Excluding agents with no active subscriptions. 
  13003.             dh.xact_seqno >=
  13004.                 (select min(s.subscription_seqno) from MSsubscritions s where
  13005.                     -- Including anonymous agents
  13006.                     (s.agent_id = a. agent_id or s.agent_id = a.anonymous_agent_id) and
  13007.                     s.status = @active)
  13008.             
  13009.     -- Get the min starting sub xact_seqno without larger history xact_seqno or without
  13010.     -- any history at all.
  13011.     -- This will happen if the subscription is reinited
  13012.     -- excluding virtual anonymous subscriptions.
  13013.     select @min_sub_xact_seqno = min(s.subscription_seqno) from
  13014.         MSsubscriptions s
  13015.         -- left join so that subscription without history will be included. 
  13016.         left join ((select h2.agent_id, max(h2.timestamp) 
  13017.             from MSdistribution_history h2
  13018.             join MSdistribution_agents a
  13019.                 on (a.id = h2.agent_id)
  13020.             where
  13021.                 a.publisher_database_id = @publisher_database_id
  13022.                 group by h2.agent_id)
  13023.             h (agent_id, timestamp) 
  13024.         -- dh stores timestamp and xact_seqno association
  13025.         join MSdistribution_history dh 
  13026.             on (dh.agent_id = h.agent_id and dh.timestamp = h.timestamp))
  13027.             on (s.agent_id = h.agent_id)
  13028.         where
  13029.         s.status = @active and
  13030.         s.subscriber_id <> @virtual_anonymous and
  13031.         s.publisher_database_id = @publisher_database_id and
  13032.         -- select only subs that has a larger starting seqno than history last seqno
  13033.         -- or with no history
  13034.         s.subscription_seqno > isnull(dh.xact_seqno, 0x0)
  13035. */  
  13036.     
  13037.     /* 
  13038.     ** Optimized query to get the maximum cleanup xact_seqno
  13039.     */
  13040.     /* 
  13041.     ** If the query below returns nothing, nothing can be deleted.
  13042.     ** Reset @max_cleanup_xact_seqno to 0.
  13043.     */
  13044.     select @max_cleanup_xact_seqno = 0x00
  13045.     -- Use top 1 to avoid warning message of "Null in aggregate..." which will make
  13046.     -- sqlserver agent job having failing status
  13047.     select top 1 @max_cleanup_xact_seqno = xact_seqno
  13048.         from MSrepl_transactions
  13049.         where
  13050.             publisher_database_id = @publisher_database_id and
  13051.             (@min_history_xact_seqno IS NULL or
  13052.             -- Delete the history xact since it is distributed already.
  13053.             xact_seqno <= @min_history_xact_seqno) and
  13054.             (@min_sub_xact_seqno IS NULL or
  13055.             -- Don't delete the sub xact since it is not distributed yet.
  13056.             xact_seqno < @min_sub_xact_seqno) and
  13057.             entry_time <= @min_cutoff_time
  13058.             order by xact_seqno desc
  13059.  
  13060. GO
  13061.  
  13062. raiserror(15339,-1,-1,'sp_MSdistribution_delete')
  13063. go
  13064. CREATE PROCEDURE sp_MSdistribution_delete
  13065.     @retention int = 0,
  13066.     -- Used for anon publications.
  13067.     @max_cutoff_time datetime
  13068.     as
  13069.     declare @min_cutoff_time datetime
  13070.     declare @subscriber sysname
  13071.     declare @subscriber_db sysname
  13072.     declare @max_cleanup_xact_seqno varbinary(16)   
  13073.     declare @num_transactions int
  13074.     declare @num_commands int
  13075.     declare @start_time datetime
  13076.     declare @num_seconds int
  13077.     declare @rate int
  13078.     declare @retcode int
  13079.     declare @publisher_database_id int
  13080.  
  13081.     set nocount on
  13082.  
  13083.     select @num_transactions = 0
  13084.     select @num_commands = 0
  13085.  
  13086.     select @start_time = getdate()
  13087.     select @min_cutoff_time = dateadd(hour, -@retention, getdate())
  13088.  
  13089.     -- For each publisher/publisherdb pair do cleanup
  13090.     declare hC CURSOR LOCAL FAST_FORWARD FOR select distinct publisher_database_id
  13091.         from MSrepl_transactions
  13092.         for read only
  13093.     -- With ANSI Defaults ON, the cursor will automatically
  13094.     -- be closed on commit.   Since this proc gets called recursively, 
  13095.     -- this can happen.  So check before opening. 
  13096.     IF CURSOR_STATUS('local','hC') = -1
  13097.     open hC
  13098.  
  13099.     fetch hC into @publisher_database_id 
  13100.     while (@@fetch_status <> -1)
  13101.     begin
  13102.  
  13103.         -- Find the maximum transaction to delete
  13104.         exec @retcode = dbo.sp_MSmaximum_cleanup_seqno @publisher_database_id, @min_cutoff_time, @max_cleanup_xact_seqno OUTPUT
  13105.         if @retcode <> 0
  13106.             goto FAIL           
  13107.  
  13108.         -- Delete transactions and commands
  13109.         exec @retcode = dbo.sp_MSdelete_publisherdb_trans @publisher_database_id, 
  13110.             @max_cleanup_xact_seqno, @max_cutoff_time,
  13111.             @num_transactions OUTPUT, @num_commands OUTPUT
  13112.         if @retcode <> 0
  13113.             goto FAIL
  13114.  
  13115.         IF CURSOR_STATUS('local','hC') = -1
  13116.             open hC
  13117.         
  13118.         fetch hC into @publisher_database_id 
  13119.     end
  13120.     close hC
  13121.     deallocate hC
  13122.  
  13123.     select @num_seconds = datediff(second, @start_time, getdate())
  13124.     if @num_seconds <> 0 
  13125.       select @rate = (@num_transactions+@num_commands)/@num_seconds
  13126.     else
  13127.       select @rate = 0
  13128.  
  13129.    RAISERROR(21010, 10, -1, @num_transactions, @num_commands, @num_seconds, @rate)
  13130.  
  13131.    return 0
  13132.  
  13133. FAIL:
  13134.    close hC
  13135.    deallocate hC
  13136.    return 1
  13137. GO
  13138.  
  13139.  
  13140. raiserror(15339,-1,-1,'sp_MSdistribution_cleanup')
  13141. GO
  13142. CREATE PROCEDURE sp_MSdistribution_cleanup
  13143.     @min_distretention int = 0,
  13144.     @max_distretention int = 24
  13145.     as
  13146.  
  13147.     declare @retcode int
  13148.     declare @agent_name nvarchar(255)
  13149.     declare @agent_type nvarchar(100)
  13150.     declare @message nvarchar(255)
  13151.     declare @cutoff_time datetime
  13152.  
  13153.      -- Check for invalid parameter values 
  13154.     if @min_distretention < 0 or @max_distretention < 0
  13155.     begin
  13156.         RAISERROR(14106, 16, -1)
  13157.         return (1)
  13158.     end
  13159.  
  13160.     -- Note: we need to use the same cut_off time for sp_MSsubscription_cleanup
  13161.     -- and sp_MSdistribution_delete since sp_MSsubscription_cleanup need to disable
  13162.     -- all the dist agents that are lag behind (their pending trans will be removed)
  13163.     select @cutoff_time = dateadd(hour, -@max_distretention, getdate())
  13164.  
  13165.     -- Deactive any subscriptions which have been inactive beyond the maximum retention
  13166.     exec @retcode = dbo.sp_MSsubscription_cleanup @cutoff_time
  13167.     if @retcode <> 0
  13168.         goto FAIL
  13169.  
  13170.     -- Remove transactions and commands
  13171.     exec @retcode = dbo.sp_MSdistribution_delete @min_distretention, 
  13172.         -- used to cleanup trans for anon publications.
  13173.         @cutoff_time
  13174.     if @retcode <> 0
  13175.         goto FAIL
  13176.  
  13177.     -- Update statistics on cleaned tables with norecompute flag
  13178.     -- to both update the statistics periodically and 
  13179.     -- to ensure that they are not updated too frequently
  13180.     -- since this slows performance.
  13181.     --
  13182.     -- Update statistics can only be performed when not in
  13183.     -- not in a tracation so predicate by transaction level
  13184.     -- to avoid error.
  13185.     --
  13186.     if @@trancount = 0
  13187.     begin
  13188.         UPDATE STATISTICS MSrepl_commands WITH NORECOMPUTE
  13189.         UPDATE STATISTICS MSrepl_transactions WITH NORECOMPUTE
  13190.     end
  13191.  
  13192.     return(0)
  13193.  
  13194. FAIL:
  13195.     -- Raise the Agent Failure error
  13196.     set @agent_type  = formatmessage(20543)
  13197.     SELECT @agent_name = db_name() + @agent_type
  13198.     set @message  = formatmessage(20552)
  13199.     exec dbo.sp_MSrepl_raiserror @agent_type, @agent_name, 5, @message
  13200.     return (1)  
  13201.  
  13202. GO
  13203.  
  13204. raiserror(15339,-1,-1,'sp_MShistory_cleanup')
  13205. GO
  13206. CREATE PROCEDURE sp_MShistory_cleanup
  13207. @history_retention int = 24
  13208. as
  13209.     declare @cutoff_time datetime
  13210.     declare @start_time datetime
  13211.     declare @num_snapshot_rows int
  13212.     declare @num_logreader_rows int
  13213.     declare @num_distribution_rows int
  13214.     declare @num_replerror_rows int
  13215.     declare @num_queuereader_rows int
  13216.         ,@num_alert_rows int
  13217.     declare @num_milliseconds int
  13218.     declare @num_seconds float
  13219.     declare @seconds_str nvarchar(10)
  13220.     declare @rate int
  13221.     declare @retcode int
  13222.     declare @total_rows int
  13223.     declare @num_merge_rows int
  13224.     declare @agent_name nvarchar(255)
  13225.     declare @agent_type nvarchar(100)
  13226.     declare @message nvarchar(255)
  13227.     declare @agent_id int
  13228.     declare @temp_error int
  13229.  
  13230.     set nocount on
  13231.  
  13232.     /* Check for invalid parameter values */
  13233.     if @history_retention < 0
  13234.     BEGIN
  13235.         RAISERROR(14106, 16, -1)
  13236.         RETURN (1)
  13237.     END
  13238.     
  13239.     -- Get start time for statistics at the end
  13240.     select @start_time = getdate()
  13241.  
  13242.     select @num_snapshot_rows = 0
  13243.     select @num_logreader_rows = 0
  13244.     select @num_distribution_rows = 0
  13245.     select @num_merge_rows = 0
  13246.     select @num_replerror_rows = 0
  13247.     select @num_queuereader_rows = 0
  13248.  
  13249.     -- Get cutoff time
  13250.     select @cutoff_time = dateadd(hour, -@history_retention, getdate())
  13251.  
  13252.     -- Delete sp_MSsnapshot_history (leave at least one row for monitoring)
  13253.     delete MSsnapshot_history where 
  13254.         time <= @cutoff_time and
  13255.         timestamp not in (select max(timestamp) from MSsnapshot_history 
  13256.             group by agent_id)
  13257.     select @temp_error = @@error, @num_snapshot_rows = @num_snapshot_rows + @@rowcount
  13258.     if @temp_error <> 0
  13259.         goto FAIL
  13260.  
  13261.     -- Delete sp_MSsnapshot_history that no longer has an MSsnapshot_agent entry
  13262.     delete from MSsnapshot_history where not exists (select * from MSsnapshot_agents
  13263.         where id = agent_id)
  13264.     select @temp_error = @@error, @num_snapshot_rows = @num_snapshot_rows + @@rowcount
  13265.     if @temp_error <> 0
  13266.         goto FAIL
  13267.  
  13268.     -- Delete sp_MSlogreader_history (leave at least one row for monitoring)
  13269.     delete MSlogreader_history where 
  13270.         time <= @cutoff_time and
  13271.         timestamp not in (select max(timestamp) from MSlogreader_history 
  13272.             group by agent_id)
  13273.     select @temp_error = @@error, @num_logreader_rows = @num_logreader_rows + @@rowcount
  13274.     if @temp_error <> 0
  13275.         goto FAIL
  13276.  
  13277.     -- Delete sp_MSlogreader_history that no longer has an MSlogreader_agent entry
  13278.     delete from MSlogreader_history where not exists (select * from MSlogreader_agents
  13279.         where id = agent_id)
  13280.     select @temp_error = @@error, @num_logreader_rows = @num_logreader_rows + @@rowcount
  13281.     if @temp_error <> 0
  13282.         goto FAIL
  13283.  
  13284.     -- Delete sp_MSdistribution_history (leave at least one row for monitoring)
  13285.     -- Leave last record ONLY if the agent is not anonymous.  The current logic is to remove all history for anonymous
  13286.     -- subscription, the agent definition will also be removed below.
  13287.     delete MSdistribution_history where 
  13288.         time <= @cutoff_time and
  13289.         timestamp not in (select max(timestamp) from MSdistribution_history group by agent_id)
  13290.     select @temp_error = @@error, @num_distribution_rows = @num_distribution_rows + @@rowcount
  13291.     if @temp_error <> 0
  13292.         goto FAIL
  13293.  
  13294.     -- Delete sp_MSdistribution_history that no longer has an MSdistribution_agent entry
  13295.     delete MSdistribution_history from MSdistribution_history dh where not exists (select * from MSdistribution_agents
  13296.         where id = dh.agent_id)
  13297.     select @temp_error = @@error, @num_distribution_rows = @num_distribution_rows + @@rowcount
  13298.     if @temp_error <> 0
  13299.         goto FAIL
  13300.  
  13301.     -- Delete MSqreader_history (leave at least one row for monitoring)
  13302.     delete MSqreader_history where 
  13303.         time <= @cutoff_time and
  13304.         timestamp not in (select max(timestamp) from MSqreader_history 
  13305.             group by agent_id)
  13306.     select @temp_error = @@error, @num_queuereader_rows = @num_queuereader_rows + @@rowcount
  13307.     if @temp_error <> 0
  13308.         goto FAIL
  13309.  
  13310.     -- Delete sp_MSlogreader_history that no longer has an MSlogreader_agent entry
  13311.     delete from MSqreader_history where not exists (select * from MSqreader_agents
  13312.         where id = agent_id)
  13313.     select @temp_error = @@error, @num_queuereader_rows = @num_queuereader_rows + @@rowcount
  13314.     if @temp_error <> 0
  13315.         goto FAIL
  13316.  
  13317.     -- Delete sp_MSmerge_history (leave at least one row for monitoring)
  13318.     -- Leave last record ONLY if the agent is not anonymous.  The current logic is to remove all history for anonymous
  13319.     -- subscription, the agent definition will also be removed below.
  13320.     delete from MSmerge_history where 
  13321.         time <= @cutoff_time and
  13322.         timestamp not in (select max(timestamp) from MSmerge_history group by agent_id)
  13323.     select @temp_error = @@error, @num_merge_rows = @num_merge_rows + @@rowcount
  13324.     if @temp_error <> 0
  13325.         goto FAIL
  13326.  
  13327.     -- Delete sp_MSmerge_history that no longer has an MSmerge_agent entry
  13328.     delete from MSmerge_history where not exists (select * from MSmerge_agents where id = agent_id)
  13329.     select @temp_error = @@error, @num_merge_rows = @num_merge_rows + @@rowcount
  13330.     if @temp_error <> 0
  13331.         goto FAIL
  13332.  
  13333.     -- Delete MSrepl_error entries
  13334.     delete from MSrepl_errors where time <= @cutoff_time 
  13335.     select @temp_error = @@error, @num_replerror_rows = @@rowcount
  13336.     if @temp_error <> 0
  13337.         goto FAIL
  13338.     
  13339.     -- Delete sysreplicationalerts table
  13340.     delete from msdb..sysreplicationalerts where time <= @cutoff_time 
  13341.     select @temp_error = @@error, @num_alert_rows = @@rowcount
  13342.     if @temp_error <> 0
  13343.         goto FAIL
  13344.  
  13345.     -- Calculate statistics for number of rows deleted
  13346.     select @num_milliseconds = datediff(millisecond, @start_time, getdate())
  13347.     if @num_milliseconds <> 0
  13348.         select @num_seconds = @num_milliseconds*1.0/1000
  13349.     else 
  13350.         select @num_seconds = 0
  13351.  
  13352.     select @total_rows = @num_snapshot_rows + @num_logreader_rows + 
  13353.         @num_distribution_rows +  @num_merge_rows + @num_replerror_rows + @num_alert_rows
  13354.  
  13355.     if @num_seconds <> 0 
  13356.         select @rate = @total_rows/@num_seconds
  13357.     else
  13358.         select @rate = @total_rows
  13359.  
  13360.     select @seconds_str = CONVERT(nchar(10), @num_seconds)
  13361.  
  13362.     RAISERROR(14108, 10, -1, @num_merge_rows, 'MSmerge_history')
  13363.     RAISERROR(14108, 10, -1, @num_snapshot_rows, 'MSsnapshot_history')
  13364.     RAISERROR(14108, 10, -1, @num_logreader_rows, 'MSlogreader_history')
  13365.     RAISERROR(14108, 10, -1, @num_distribution_rows, 'MSdistribution_history')
  13366.     RAISERROR(14108, 10, -1, @num_queuereader_rows, 'MSqreader_history')
  13367.     RAISERROR(14108, 10, -1, @num_replerror_rows, 'MSrepl_errors')
  13368.     RAISERROR(14108, 10, -1, @num_alert_rows, 'sysreplicationalerts')
  13369.     RAISERROR(14149, 10, -1, @total_rows, @seconds_str, @rate)
  13370.     
  13371.     return 0
  13372.  
  13373. FAIL:
  13374.     -- Raise the Agent Failure error
  13375.     set @agent_type  = formatmessage(20544)
  13376.     SELECT @agent_name = db_name() + @agent_type
  13377.     set @message  = formatmessage(20553)
  13378.     exec dbo.sp_MSrepl_raiserror @agent_type, @agent_name, 5, @message
  13379.  
  13380.     return (1)
  13381.  
  13382. GO
  13383.  
  13384. raiserror(15339,-1,-1,'sp_MSget_repl_version')
  13385. GO
  13386. CREATE PROCEDURE sp_MSget_repl_version
  13387. @major_version int = 0 OUTPUT,
  13388. @minor_version int = 0 OUTPUT,
  13389. @revision int = 0 OUTPUT
  13390.  
  13391. as
  13392. SELECT @major_version = major_version,
  13393.        @minor_version = minor_version,
  13394.        @revision = revision FROM MSrepl_version
  13395. GO
  13396.  
  13397. raiserror(15339,-1,-1,'sp_MSenum_subscriptions')
  13398. GO
  13399. create procedure sp_MSenum_subscriptions
  13400. @publisher sysname,
  13401. @publisher_db sysname,
  13402. @publication sysname,
  13403. @exclude_anonymous bit = 0
  13404. as
  13405.  
  13406.     declare @subscriber sysname
  13407.     declare @subscriber_id smallint
  13408.     declare @subscriber_db sysname
  13409.     declare @subscriber_name sysname
  13410.     declare @type int
  13411.     declare @status int
  13412.     declare @distribution_agent nvarchar(100)
  13413.     declare @publisher_id smallint
  13414.     declare @independent_agent bit
  13415.     declare @offload_enabled bit
  13416.     declare @offload_server sysname 
  13417.  
  13418.     declare @start_time nvarchar(24)
  13419.     declare @time nvarchar(24)
  13420.     declare @duration int
  13421.     declare @comments nvarchar(255)
  13422.     declare @delivery_time int
  13423.     declare @delivered_transactions int
  13424.     declare @delivered_commands int
  13425.     declare @average_commands int
  13426.     declare @delivery_rate int
  13427.     declare @delivery_latency int
  13428.     declare @error_id int
  13429.     declare @publication_id int
  13430.     declare @job_id binary(16)
  13431.     declare @agent_id int
  13432.     declare @local_job bit
  13433.     declare @profile_id int
  13434.     declare @last_timestamp binary(8)
  13435.             ,@subscriber_type tinyint
  13436.  
  13437.     set nocount on
  13438.  
  13439.     select @publisher_id = srvid from master..sysservers where
  13440.        UPPER(srvname) = UPPER(@publisher)
  13441.  
  13442.     select @publication_id = publication_id from MSpublications  where 
  13443.             publisher_id = @publisher_id and
  13444.             publisher_db = @publisher_db and
  13445.             publication = @publication and
  13446.             (publication_type = 0 or publication_type = 1)
  13447.  
  13448.     create table #subscriptions (subscriber sysname NOT NULL,  status int NOT NULL, 
  13449.         subscriber_db sysname NOT NULL,
  13450.         type tinyint NOT NULL, distribution_agent nvarchar(100) NOT NULL, last_action nvarchar(255) NULL, 
  13451.         action_time nvarchar(24) NULL, start_time nvarchar(24) NULL, duration int NULL, 
  13452.         delivery_rate float NULL,
  13453.         delivery_latency int NULL, delivered_transactions int NULL, 
  13454.         delivered_commands int NULL,
  13455.         delivery_time int NULL, average_commands int NULL, 
  13456.         error_id int NULL, 
  13457.         job_id binary(16) NULL, local_job bit NULL, profile_id int NOT NULL,
  13458.         agent_id int NOT NULL, last_timestamp binary(8) NOT NULL, offload_enabled bit NOT NULL, 
  13459.         offload_server sysname NULL, subscriber_type tinyint NULL)
  13460.     
  13461.     -- This is to force all queries to return rows ordered by job_id
  13462.     -- Note: There might be dist agents left for cleaning up sub, in this case
  13463.     -- they are not in sub table and we don't want to show them
  13464.     create unique clustered index ucsubscriptions ON #subscriptions (agent_id)
  13465.     declare hC CURSOR LOCAL FAST_FORWARD FOR select id, name, subscriber_id, subscriber_db,
  13466.         job_id, local_job, subscription_type, profile_id, subscriber_name, offload_enabled,
  13467.         offload_server 
  13468.         from MSdistribution_agents a
  13469.         where exists (select * from MSsubscriptions s where
  13470.             (a.id = s.agent_id or a.anonymous_agent_id = s.agent_id) and
  13471.             s.publisher_id = @publisher_id and
  13472.             s.publisher_db = @publisher_db and
  13473.             -- For 6.x publisher, we don't know the association between the publication
  13474.             -- and subscriptions. Show every dist agent under each publication.
  13475.             (s.publication_id = @publication_id or s.publication_id = 0 ) and
  13476.             (a.subscriber_id >= 0  or a.subscriber_id is NULL)) and 
  13477.             (@exclude_anonymous = 0 or a.anonymous_agent_id is null)
  13478.         for read only
  13479.  
  13480.     -- declare hC CURSOR LOCAL FAST_FORWARD FOR select a.id, a.name, a.subscriber_id, ms.subscriber_db,
  13481.     --  a.job_id, a.local_job, ms.subscription_type, a.profile_id, a.subscriber_name
  13482.     --    from MSdistribution_agents a, master..sysservers s, MSsubscriptions ms
  13483.     --    where
  13484.     --    a.publisher_id = @publisher_id and
  13485.     --    a.publisher_db = @publisher_db and
  13486.     --  (a.publication = @publication or a.publication = 'ALL') and
  13487.     --  a.subscriber_id >= 0 and
  13488.     --  ms.publisher_db = @publisher_db and
  13489.     --  ms.publication_id = @publication_id and
  13490.     --  ms.subscriber_id = a.subscriber_id and
  13491.     --  ms.subscriber_db = a.subscriber_db and
  13492.     --  s.srvid = ms.subscriber_id
  13493.     --  for read only
  13494.  
  13495.     open hC
  13496.     fetch hC into  @agent_id, @distribution_agent, @subscriber_id, @subscriber_db,
  13497.         @job_id, @local_job, @type, @profile_id, @subscriber_name, @offload_enabled, 
  13498.         @offload_server
  13499.     while (@@fetch_status <> -1)
  13500.     begin
  13501.         /* Stuff in the values for no history case */
  13502.         select @status = 0, 
  13503.             @start_time = NULL,
  13504.             @time = NULL, @duration = NULL, @comments = NULL,
  13505.             @delivery_time = NULL, @delivered_transactions = NULL,
  13506.             @delivered_commands = NULL, @average_commands = NULL,
  13507.             @delivery_rate = NULL, @delivery_latency = NULL,
  13508.             @error_id = NULL,
  13509.             @last_timestamp = 0x00000000
  13510.  
  13511.         -- Get the status of the agent
  13512.         select @status = runstatus, 
  13513.             @start_time = convert(nvarchar(12), start_time, 112) +
  13514.                           substring(convert(nvarchar(24), start_time, 121), 11, 13),
  13515.             @time = convert(nvarchar(12), time, 112) +
  13516.                     substring(convert(nvarchar(24), time, 121), 11, 13), 
  13517.             @duration = duration, 
  13518.             @comments = comments,
  13519.             @delivery_time = 0, @delivered_transactions = delivered_transactions,
  13520.             @delivered_commands = delivered_commands, @average_commands = average_commands,
  13521.             -- Note: return average rate here !!! delivery_rate column is current rate
  13522.             @delivery_rate = delivery_rate,
  13523.             @delivery_latency = delivery_latency,
  13524.             @error_id = error_id, @last_timestamp = timestamp
  13525.             from MSdistribution_history
  13526.             where
  13527.                 agent_id = @agent_id and
  13528.                 timestamp = (select max(timestamp) from MSdistribution_history 
  13529.                     where 
  13530.                     agent_id = @agent_id)
  13531.  
  13532.         -- For anonymous subscriptions, @subscriber_name is not NULL
  13533.          if @subscriber_name is NULL
  13534.          begin
  13535.             select @subscriber = srvname from master..sysservers where srvid=@subscriber_id
  13536.             select @subscriber_type = type from MSsubscriber_info where
  13537.                 UPPER(publisher) = UPPER(@publisher) and
  13538.                 UPPER(subscriber) = UPPER(@subscriber)
  13539.          end
  13540.          else 
  13541.          begin
  13542.             select @subscriber = @subscriber_name
  13543.             select @subscriber_db = @subscriber_db + '-' + convert(nvarchar(4), @agent_id)
  13544.             -- Don't know the subscriber type for anonymous
  13545.          end
  13546.  
  13547.         insert into #subscriptions values ( @subscriber, @status, @subscriber_db,
  13548.             @type, @distribution_agent, @comments, @time, @start_time, @duration,
  13549.             @delivery_rate, @delivery_latency, @delivered_transactions, 
  13550.             @delivered_commands,  @delivery_time, @average_commands,
  13551.             @error_id, @job_id, @local_job, @profile_id, @agent_id, @last_timestamp,
  13552.             @offload_enabled, @offload_server, @subscriber_type)
  13553.  
  13554.         fetch hC into  @agent_id, @distribution_agent, @subscriber_id, @subscriber_db,
  13555.             @job_id, @local_job, @type, @profile_id, @subscriber_name, @offload_enabled,
  13556.             @offload_server
  13557.       end
  13558.  
  13559.     select * from #subscriptions order by job_id asc 
  13560.  
  13561.     drop table #subscriptions
  13562.     close hC
  13563.     deallocate hC
  13564. go
  13565.  
  13566.  
  13567. raiserror(15339,-1,-1,'sp_MSIfExistsSubscription')
  13568. GO
  13569. create procedure sp_MSIfExistsSubscription
  13570. @publisher sysname,
  13571. @publisher_db sysname,
  13572. @publication sysname,
  13573. @type int /* replication type, 1 - transactional/snapshot, 2 - merge */
  13574. as
  13575.     declare @publisher_id smallint
  13576.     declare @publication_id int
  13577.  
  13578.     if @type not in (1,2)
  13579.     begin
  13580.         RAISERROR(21055, 16, -1, '@type','sp_MSIfExistsSubscription')
  13581.         RETURN (1)
  13582.     end
  13583.  
  13584.     set nocount on
  13585.  
  13586.     select @publisher_id = srvid from master..sysservers where
  13587.        UPPER(srvname) = UPPER(@publisher)
  13588.  
  13589.     if @type = 1
  13590.     begin
  13591.         select @publication_id = publication_id from MSpublications  where 
  13592.                 publisher_id = @publisher_id and
  13593.                 publisher_db = @publisher_db and
  13594.                 publication = @publication and
  13595.                 (publication_type = 0 or publication_type = 1)
  13596.     
  13597.         select TOP 1 1 from MSdistribution_agents a
  13598.             where exists (select * from MSsubscriptions s where
  13599.                 (a.id = s.agent_id or a.anonymous_agent_id = s.agent_id) and
  13600.                 s.publisher_id = @publisher_id and
  13601.                 s.publisher_db = @publisher_db and
  13602.                 -- For 6.x publisher, we don't know the association between the publication
  13603.                 -- and subscriptions. Show every dist agent under each publication.
  13604.                 (s.publication_id = @publication_id or s.publication_id = 0 ) and
  13605.                 (a.subscriber_id >= 0  or a.subscriber_id is NULL))
  13606.     end
  13607.     else
  13608.     begin
  13609.         select @publication_id = publication_id from MSpublications  where 
  13610.                 publisher_id = @publisher_id and
  13611.                 publisher_db = @publisher_db and
  13612.                 publication = @publication and
  13613.                 publication_type = 2 -- Merge 
  13614.     
  13615.         select TOP 1 1 from MSmerge_agents 
  13616.             where publisher_id = @publisher_id and 
  13617.                 publisher_db = @publisher_db and 
  13618.                 publication = @publication
  13619.     end
  13620. go
  13621.  
  13622.  
  13623. raiserror(15339,-1,-1,'sp_MSenum_snapshot')
  13624. go
  13625. create procedure sp_MSenum_snapshot
  13626. @name nvarchar(100) = '%',
  13627. @show_distdb bit = 0
  13628. as
  13629.     set nocount on
  13630.  
  13631.     declare @publisher sysname
  13632.     declare @publisher_db sysname
  13633.     declare @publication sysname
  13634.     declare @publication_id int
  13635.     declare @snapshot_agent nvarchar(100)
  13636.     declare @status int
  13637.     declare @start_time nvarchar(24)
  13638.     declare @time nvarchar(24)
  13639.     declare @duration int
  13640.     declare @comments nvarchar(255)
  13641.     declare @delivered_transactions int
  13642.     declare @delivered_commands int
  13643.     declare @delivery_rate int
  13644.     declare @publisher_id smallint
  13645.     declare @error_id int
  13646.     declare @job_id binary(16)
  13647.     declare @local_job bit
  13648.     declare @profile_id int
  13649.     declare @agent_id int
  13650.     declare @last_timestamp binary(8)
  13651.  
  13652.  
  13653.     create table #snapshot_agent (name nvarchar(100) NOT NULL, status int NOT NULL,
  13654.         publisher sysname NOT NULL, publisher_db sysname NOT NULL, publication sysname NOT NULL,
  13655.         start_time nvarchar(24)  NULL, time nvarchar(24)  NULL, duration int NULL, 
  13656.         comments nvarchar(255) NULL, delivered_transactions int NULL, delivered_commands int NULL,
  13657.         delivery_rate float  NULL, error_id int NULL, job_id binary(16) NULL, local_job bit NOT NULL,
  13658.         profile_id int NOT NULL, agent_id int NOT NULL, last_timestamp binary(8) NOT NULL)
  13659.   
  13660.  
  13661.     declare hC  CURSOR LOCAL FAST_FORWARD FOR
  13662.          select srvname, sa.publisher_db, sa.publication, sa.name, sa.publisher_id,
  13663.             sa.local_job, sa.job_id, sa.profile_id, sa.id
  13664.             from
  13665.             MSsnapshot_agents sa, master..sysservers
  13666.             where 
  13667.             name LIKE @name and
  13668.             srvid = sa.publisher_id
  13669.         for read only
  13670.  
  13671.     OPEN hC
  13672.     FETCH hC INTO @publisher, @publisher_db, @publication, @snapshot_agent, @publisher_id,
  13673.         @local_job, @job_id, @profile_id, @agent_id
  13674.     WHILE (@@fetch_status <> -1)
  13675.         begin
  13676.      
  13677.         -- Get the publication id
  13678.         select @publication_id = isnull(publication_id, 0) from MSpublications where
  13679.             publisher_id = @publisher_id and
  13680.             publisher_db = @publisher_db and
  13681.             publication = @publication
  13682.             
  13683.         -- Stuff in the values for no history case 
  13684.         select @status = 0, 
  13685.             @start_time = NULL,
  13686.             @time = NULL, @duration = NULL, @comments = NULL,
  13687.             @delivered_commands = NULL, 
  13688.             @delivery_rate = NULL, 
  13689.             @error_id = NULL,
  13690.             @last_timestamp = 0x00000000        
  13691.        
  13692.         -- Get the status of the agent
  13693.         select @status = runstatus, 
  13694.             @start_time = convert(nvarchar(12), start_time, 112) + 
  13695.                           substring(convert(nvarchar(24), start_time, 121), 11, 13), 
  13696.             @time = convert(nvarchar(12), time, 112) + 
  13697.                     substring(convert(nvarchar(24), time, 121), 11, 13), 
  13698.             @duration = duration, 
  13699.             @comments = comments,
  13700.             @delivered_transactions = delivered_transactions,
  13701.             @delivered_commands = delivered_commands,
  13702.             @delivery_rate = delivery_rate, 
  13703.             @error_id = error_id, 
  13704.             @last_timestamp = timestamp
  13705.             from MSsnapshot_history
  13706.             where
  13707.             agent_id = @agent_id and
  13708.             timestamp = (select top 1 timestamp from MSsnapshot_history where           
  13709.                 agent_id = @agent_id
  13710.                 order by timestamp DESC) 
  13711.     
  13712.         insert into #snapshot_agent values (@snapshot_agent, @status, @publisher,
  13713.             @publisher_db, @publication, @start_time, @time, @duration, @comments,
  13714.             @delivered_transactions, @delivered_commands, @delivery_rate, @error_id, @job_id, 
  13715.             @local_job, @profile_id, @agent_id, @last_timestamp)
  13716.  
  13717.         FETCH hC INTO @publisher, @publisher_db, @publication, @snapshot_agent,
  13718.             @publisher_id, @local_job, @job_id, @profile_id, @agent_id
  13719.         end
  13720.  
  13721.     if @show_distdb = 0
  13722.         select * from #snapshot_agent 
  13723.     else 
  13724.         select 'dbname' = DB_NAME(), * from #snapshot_agent
  13725.  
  13726.     drop table #snapshot_agent
  13727.     close hC
  13728.     deallocate hC
  13729.  
  13730. GO
  13731.  
  13732. raiserror(15339,-1,-1,'sp_MSenum_snapshot_s')
  13733. go
  13734. create procedure sp_MSenum_snapshot_s
  13735. @name nvarchar(100),
  13736. @hours int = 0, /* @hours < 0 will return TOP 100 */
  13737. @session_type int = 1 /* Return all sessions */
  13738. as
  13739.     set nocount on
  13740.  
  13741.     declare @agent_id int
  13742.     declare @succeed int
  13743.     declare @retry int
  13744.     declare @failure int
  13745.     declare @min_time datetime
  13746.     declare @independent_agent bit
  13747.     declare @publisher_id smallint
  13748.     declare @publisher_db sysname
  13749.     declare @publication sysname
  13750.     declare @start_agent_comment nvarchar(100)
  13751.     declare @initializing int
  13752.     declare @latest_session_timestamps table (timestamp binary(8) primary key, action_count int)
  13753.  
  13754.     /* 
  13755.     ** Status const defined in sqlrepl.h 
  13756.     */
  13757.     select @succeed = 2
  13758.     select @retry = 5
  13759.     select @failure = 6
  13760.     select @initializing = 1
  13761.     select @start_agent_comment = formatmessage(20529)
  13762.  
  13763.  
  13764.     SELECT @publisher_id = publisher_id, @publisher_db = publisher_db, 
  13765.         @publication = publication, @agent_id = id
  13766.         from
  13767.         MSsnapshot_agents 
  13768.         where 
  13769.         name = @name 
  13770.  
  13771.     insert into @latest_session_timestamps 
  13772.         select max(timestamp), count(*)
  13773.           from MSsnapshot_history
  13774.          where (runstatus <> @initializing or
  13775.                 comments <> @start_agent_comment) 
  13776.       group by agent_id, start_time
  13777.         having agent_id = @agent_id
  13778.  
  13779.     /* Get date starting point */
  13780.     IF @hours < 0
  13781.     BEGIN
  13782.         select top 100 sh1.runstatus, 
  13783.             'start_time' = convert(nvarchar(12), sh1.start_time, 112) + 
  13784.                            substring(convert(nvarchar(24), sh1.start_time, 121), 11, 13), 
  13785.             'time' = convert(nvarchar(12), sh1.time, 112) + 
  13786.                      substring(convert(nvarchar(24), sh1.time, 121), 11, 13), 
  13787.             sh1.comments, sh1.duration,
  13788.             sh1.delivery_rate, sh1.delivered_commands,
  13789.             'action_count' = lst.action_count,
  13790.             sh1.error_id
  13791.             from MSsnapshot_history sh1
  13792.             inner join @latest_session_timestamps lst
  13793.             on sh1.timestamp = lst.timestamp
  13794.             where
  13795.             sh1.agent_id = @agent_id and
  13796.             ((@session_type = 1)  or
  13797.             sh1.runstatus = @failure) 
  13798.             order by sh1.timestamp desc
  13799.     END
  13800.     ELSE
  13801.     BEGIN
  13802.         IF @hours = 0
  13803.         BEGIN
  13804.             select @min_time = NULL
  13805.         END
  13806.         ELSE
  13807.         BEGIN
  13808.             select @min_time = dateadd(hour, -@hours, getdate())
  13809.         END
  13810.         select sh1.runstatus, 
  13811.             'start_time' = convert(nvarchar(12), sh1.start_time, 112) + 
  13812.                            substring(convert(nvarchar(24), sh1.start_time, 121), 11, 13), 
  13813.             'time' = convert(nvarchar(12), sh1.time, 112) + 
  13814.                      substring(convert(nvarchar(24), sh1.time, 121), 11, 13), 
  13815.             sh1.comments, sh1.duration,
  13816.             sh1.delivery_rate, sh1.delivered_commands,
  13817.             'action_count' = lst.action_count,
  13818.             sh1.error_id
  13819.             from MSsnapshot_history sh1
  13820.             inner join @latest_session_timestamps lst
  13821.             on sh1.timestamp = lst.timestamp
  13822.             where
  13823.             sh1.agent_id = @agent_id and
  13824.             ((@session_type = 1)  or
  13825.             sh1.runstatus = @failure) and
  13826.             (sh1.time >= @min_time OR @min_time IS NULL)
  13827.             order by sh1.timestamp desc
  13828.     END
  13829.  
  13830. GO
  13831.  
  13832.  
  13833. raiserror(15339,-1,-1,'sp_MSenum_snapshot_sd')
  13834. go
  13835. create procedure sp_MSenum_snapshot_sd
  13836. @name nvarchar(100),
  13837. @time datetime = NULL
  13838. as
  13839.     set nocount on
  13840.  
  13841.     declare @start_time datetime
  13842.     declare @time_up datetime
  13843.     declare @publisher_id smallint
  13844.     declare @publisher_db sysname
  13845.     declare @publication sysname
  13846.  
  13847.     IF @time IS NULL
  13848.         select @time = GETDATE()
  13849.     /* 
  13850.     ** If @name is given, get its publisher and subscriber pair
  13851.     ** Note: param will be overwritten
  13852.     ** If @name is NOT given, use provided param.
  13853.     */
  13854.     SELECT @publisher_id = pub.publisher_id, @publisher_db = pub.publisher_db, 
  13855.         @publication = pub.publication
  13856.         from
  13857.         MSsnapshot_agents agent, MSpublications pub
  13858.         where 
  13859.         name LIKE @name and
  13860.         agent.publisher_id = pub.publisher_id and
  13861.         agent.publication = pub.publication and
  13862.         agent.publisher_db = pub.publisher_db
  13863.     
  13864.     /*
  13865.     ** Minute-approximate @time can be used.
  13866.     **
  13867.     ** Note: The select only return datetime data with minute precisio
  13868.     */
  13869.     IF  DATEPART(second, @time) = 0 AND
  13870.         DATEPART(millisecond, @time) = 0
  13871.     BEGIN
  13872.         SELECT @time_up = DATEADD(second, +59, @time)
  13873.         SELECT @time_up = DATEADD(millisecond, +999, @time)
  13874.     END
  13875.     ELSE
  13876.         SELECT @time_up = @time
  13877.         
  13878.  
  13879.     select top 1 @start_time = sh.start_time            
  13880.          from MSsnapshot_history sh, MSsnapshot_agents sa
  13881.         where
  13882.         sa.publisher_id = @publisher_id and
  13883.         sa.publisher_db = @publisher_db and
  13884.         sa.publication  = @publication and
  13885.         sh.agent_id = sa.id and
  13886.         sh.time <= @time_up 
  13887.         order by sh.timestamp DESC
  13888.  
  13889.     select sh.runstatus, 
  13890.         'time' = convert(nvarchar(12), sh.time, 112) + 
  13891.                  substring(convert(nvarchar(24), sh.time, 121), 11, 13), 
  13892.         sh.comments, 
  13893.         sh.duration, 
  13894.         sh.delivery_rate, 
  13895.         sh.delivered_commands,
  13896.         sa.name, 
  13897.         sh.error_id         
  13898.         from MSsnapshot_history sh, MSsnapshot_agents sa
  13899.         where
  13900.         sa.publisher_id = @publisher_id and
  13901.         sa.publisher_db = @publisher_db and
  13902.         sa.publication = @publication and 
  13903.         sh.agent_id = sa.id and
  13904.         sh.start_time = @start_time 
  13905.         order by sh.timestamp desc
  13906. GO
  13907.  
  13908.  
  13909. raiserror(15339,-1,-1,'sp_MSenum_logreader')
  13910. go
  13911. create procedure sp_MSenum_logreader
  13912. @name nvarchar(100) = '%',
  13913. @show_distdb bit = 0
  13914. as
  13915.     set nocount on
  13916.  
  13917.     declare @publisher sysname
  13918.     declare @publisher_db sysname
  13919.     declare @logreader_agent nvarchar(100)
  13920.     declare @status int
  13921.     declare @start_time nvarchar(24)
  13922.     declare @time nvarchar(24)
  13923.     declare @duration int
  13924.     declare @comments nvarchar(255)
  13925.     declare @delivery_time int
  13926.     declare @delivered_transactions int
  13927.     declare @delivered_commands int
  13928.     declare @average_commands int
  13929.     declare @delivery_rate int
  13930.     declare @delivery_latency int
  13931.     declare @error_id int
  13932.     declare @job_id binary(16)
  13933.     declare @local_job bit
  13934.     declare @profile_id int
  13935.     declare @agent_id int
  13936.     declare @last_timestamp binary(8)
  13937.  
  13938.  
  13939.     create table #logreader_agent (name nvarchar(100) NOT NULL, status int NOT NULL,
  13940.         publisher sysname NOT NULL, publisher_db sysname NOT NULL,
  13941.         start_time nvarchar(24)  NULL, time nvarchar(24)  NULL, duration int  NULL, 
  13942.         comments nvarchar(255) NULL, delivery_time int NULL, 
  13943.         delivered_transactions int  NULL, delivered_commands int NULL, 
  13944.         average_commands int  NULL, delivery_rate int NULL, 
  13945.         delivery_latency int NULL, error_id int NULL, job_id binary(16) NULL,
  13946.         local_job bit NULL, profile_id int NOT NULL, agent_id int NOT NULL, last_timestamp binary(8) NOT NULL)  
  13947.    
  13948.     declare hC  CURSOR LOCAL FAST_FORWARD FOR
  13949.          select server.srvname, agent.publisher_db, name, 
  13950.             local_job, job_id, agent.profile_id, agent.id
  13951.             from
  13952.             MSlogreader_agents agent, master..sysservers server
  13953.             where 
  13954.             name LIKE @name and
  13955.             server.srvid = agent.publisher_id
  13956.         
  13957.         for read only
  13958.  
  13959.     OPEN hC
  13960.     FETCH hC INTO @publisher, @publisher_db, @logreader_agent, 
  13961.         @local_job, @job_id, @profile_id, @agent_id
  13962.     WHILE (@@fetch_status <> -1)
  13963.         begin
  13964.  
  13965.         /* Stuff in the values for no history case */
  13966.         select @status = 0, 
  13967.             @start_time = NULL,
  13968.             @time = NULL, @duration = NULL, @comments = NULL,
  13969.             @delivery_time = NULL, @delivered_transactions = NULL,
  13970.             @delivered_commands = NULL, @average_commands = NULL,
  13971.             @delivery_rate = NULL, @delivery_latency = NULL,
  13972.             @error_id = NULL,
  13973.             @last_timestamp = 0x00000000
  13974.  
  13975.         -- Get the status of the agent
  13976.         select @status = lh.runstatus, 
  13977.             @start_time = convert(nvarchar(12), start_time, 112) +
  13978.                           substring(convert(nvarchar(24), start_time, 121), 11, 13),
  13979.             @time = convert(nvarchar(12), time, 112) +
  13980.                     substring(convert(nvarchar(24),  time, 121), 11, 13), 
  13981.             @duration = duration, 
  13982.             @comments = comments,
  13983.             @delivery_time = delivery_time, @delivered_transactions = delivered_transactions,
  13984.             @delivered_commands = delivered_commands, @average_commands = average_commands,
  13985.             @delivery_rate = delivery_rate, @delivery_latency = delivery_latency,
  13986.             @error_id = error_id, @last_timestamp = timestamp
  13987.             from MSlogreader_history lh
  13988.             where
  13989.             lh.agent_id = @agent_id and
  13990.             lh.timestamp = (select max(timestamp) from MSlogreader_history
  13991.                 where
  13992.                 agent_id = lh.agent_id)
  13993.  
  13994.         insert into #logreader_agent values (@logreader_agent, @status, @publisher,
  13995.             @publisher_db, @start_time, @time, @duration, @comments,
  13996.             @delivery_time, @delivered_transactions, @delivered_commands, @average_commands,
  13997.             @delivery_rate, @delivery_latency, @error_id, @job_id, @local_job,
  13998.             @profile_id, @agent_id, @last_timestamp)
  13999.  
  14000.         FETCH hC INTO @publisher, @publisher_db, @logreader_agent, 
  14001.             @local_job, @job_id, @profile_id, @agent_id
  14002.         end
  14003.  
  14004.     if @show_distdb = 0
  14005.         select * from #logreader_agent 
  14006.     else 
  14007.         select 'dbname' = DB_NAME(), * from #logreader_agent
  14008.  
  14009.     drop table #logreader_agent
  14010.     close hC
  14011.     deallocate hC
  14012. GO
  14013.  
  14014.  
  14015. raiserror(15339,-1,-1,'sp_MSenum_logreader_s')
  14016. go
  14017.  
  14018. create procedure sp_MSenum_logreader_s
  14019. @name nvarchar(100),
  14020. @hours int = 0, /* @hours < 0 will return TOP 100 */
  14021. @session_type int = 1 /* Return all sessions */
  14022. as
  14023.     set nocount on
  14024.  
  14025.     declare @succeed int
  14026.     declare @agent_id int
  14027.     declare @retry int
  14028.     declare @failure int                                 
  14029.     declare @min_time datetime
  14030.  
  14031.     if @session_type  not in (1,2)
  14032.     begin
  14033.         return(1)
  14034.     end 
  14035.  
  14036.     select @agent_id  = (select top 1 id from MSlogreader_agents where name = @name) 
  14037.     /* 
  14038.     ** Status const defined in sqlrepl.h 
  14039.     */
  14040.     select @succeed = 2
  14041.     select @retry = 5
  14042.     select @failure = 6
  14043.  
  14044.     /* Get date starting point */
  14045.     IF @hours < 0
  14046.     BEGIN
  14047.         select top 100 runstatus, 
  14048.                 'start_time' = convert(nvarchar(12), start_time, 112) + 
  14049.                                substring(convert(nvarchar(24), start_time, 121), 11, 13), 
  14050.                 'time' = convert(nvarchar(12), time, 112) +
  14051.                          substring(convert(nvarchar(24), time, 121), 11, 13), 
  14052.                 comments, duration, delivery_rate, delivery_latency,
  14053.             delivery_time,  delivered_transactions, delivered_commands, average_commands, 
  14054.             'action_count' = (select count(*) from MSlogreader_history where
  14055.                 start_time = rh.start_time and agent_id=@agent_id),
  14056.             error_id
  14057.             from MSlogreader_history rh
  14058.             where
  14059.             rh.agent_id = @agent_id and
  14060.             ((@session_type = 1 and (runstatus = @succeed or
  14061.                 runstatus = @retry or
  14062.                 timestamp = (select max(timestamp) from MSlogreader_history rh2 where
  14063.                     rh2.agent_id = rh.agent_id))) or
  14064.             runstatus = @failure) 
  14065.             order by timestamp desc
  14066.     END
  14067.     ELSE
  14068.     BEGIN
  14069.         IF @hours = 0
  14070.         BEGIN
  14071.             select @min_time = NULL
  14072.         END
  14073.         ELSE
  14074.         BEGIN
  14075.             select @min_time = dateadd(hour, -@hours, getdate())
  14076.         END
  14077.         select  runstatus, 
  14078.                 'start_time' = convert(nvarchar(12), start_time, 112) + 
  14079.                                substring(convert(nvarchar(24), start_time, 121), 11, 13), 
  14080.                 'time' = convert(nvarchar(12), time, 112) +
  14081.                          substring(convert(nvarchar(24), time, 121), 11, 13), 
  14082.                 comments, duration, delivery_rate, delivery_latency,
  14083.             delivery_time,  delivered_transactions, delivered_commands, average_commands, 
  14084.             'action_count' = (select count(*) from MSlogreader_history where
  14085.                 start_time = rh.start_time),
  14086.             error_id
  14087.             from MSlogreader_history rh
  14088.             where
  14089.             rh.agent_id = (select top 1 id from MSlogreader_agents where name = @name) and
  14090.             ((@session_type = 1 and (runstatus = @succeed or
  14091.                 runstatus = @retry or
  14092.                 timestamp = (select max(timestamp) from MSlogreader_history rh2 where
  14093.                     rh2.agent_id = rh.agent_id))) or
  14094.             runstatus = @failure) and
  14095.             (time >= @min_time OR @min_time IS NULL)
  14096.             order by timestamp desc
  14097.     END
  14098.  
  14099. GO
  14100.  
  14101. raiserror(15339,-1,-1,'sp_MSenum_logreader_sd')
  14102. go
  14103.  
  14104. create procedure sp_MSenum_logreader_sd
  14105. @name nvarchar(100),
  14106. @time datetime = NULL
  14107. as
  14108.     set nocount on
  14109.  
  14110.     declare @start_time datetime
  14111.     declare @time_up datetime
  14112.  
  14113.     IF @time IS NULL
  14114.         select @time = GETDATE()
  14115.     /*
  14116.     ** Minute-approximate @time can be used.
  14117.     ** Note: The select only return datetime data with minute precision
  14118.     */
  14119.     IF  DATEPART(second, @time) = 0 AND
  14120.         DATEPART(millisecond, @time) = 0
  14121.     BEGIN
  14122.         SELECT @time_up = DATEADD(second, +59, @time)
  14123.         SELECT @time_up = DATEADD(millisecond, +999, @time)
  14124.     END
  14125.     ELSE
  14126.         SELECT @time_up = @time
  14127.         
  14128.  
  14129.     select  top 1 @start_time = start_time          
  14130.          from MSlogreader_history rh
  14131.         where
  14132.         rh.agent_id = (select top 1 id from MSlogreader_agents where name = @name) and
  14133.         time <= @time_up 
  14134.         order by timestamp DESC
  14135.  
  14136.     select  runstatus, 
  14137.             'time' = convert(nvarchar(12), time, 112) +
  14138.                      substring(convert(nvarchar(24), time, 121), 11, 13), 
  14139.             comments,duration, delivery_rate, delivery_latency,
  14140.         delivery_time,  delivered_transactions, delivered_commands, average_commands, 
  14141.         error_id        
  14142.         from MSlogreader_history rh
  14143.         where
  14144.         rh.agent_id = (select top 1 id from MSlogreader_agents where name = @name) and
  14145.         start_time = @start_time 
  14146.         order by timestamp desc
  14147. GO
  14148.  
  14149. raiserror(15339,-1,-1,'sp_MSenum_qreader')
  14150. go
  14151. create procedure sp_MSenum_qreader (
  14152.     @name nvarchar(100) = '%',
  14153.     @show_distdb bit = 0)
  14154. as
  14155. begin
  14156.     set nocount on
  14157.  
  14158.     declare @agent_name nvarchar(100)
  14159.     declare @status int
  14160.     declare @start_time nvarchar(24)
  14161.     declare @time nvarchar(24)
  14162.     declare @duration int
  14163.     declare @comments nvarchar(255)
  14164.     declare @transactions_processed int
  14165.     declare @commands_processed int
  14166.     declare @average_commands int
  14167.     declare @delivery_rate int
  14168.     declare @delivery_latency int
  14169.     declare @error_id int
  14170.     declare @job_id binary(16)
  14171.     declare @agent_id int
  14172.     declare @profile_id int
  14173.     declare @last_timestamp binary(8)
  14174.     declare @first_timestamp binary(8)
  14175.  
  14176.  
  14177.     create table #qreader_agent (name nvarchar(100) NOT NULL, status int NOT NULL,
  14178.         start_time nvarchar(24) NULL, time nvarchar(24) NULL, duration int NULL,
  14179.         comments nvarchar(255) NULL, 
  14180.         transactions_processed int NULL, commands_processed int NULL, 
  14181.         average_commands int NULL, delivery_rate int NULL, delivery_latency int NULL,
  14182.         error_id INT NULL, job_id binary(16) NULL, 
  14183.         profile_id int NULL, agent_id int NOT NULL, local_timestamp binary(8) NOT NULL)
  14184.  
  14185.     declare hC CURSOR LOCAL FAST_FORWARD FOR
  14186.         select id, name, job_id, profile_id
  14187.         from MSqreader_agents 
  14188.         where name = case when ((@name = '%') or (@name is NULL)) then name else @name end
  14189.         for read only
  14190.  
  14191.     OPEN hC
  14192.     FETCH hC INTO @agent_id, @agent_name, @job_id, @profile_id
  14193.     WHILE (@@fetch_status <> -1)
  14194.     begin       
  14195.         --
  14196.         -- Initialize
  14197.         --
  14198.         select @status = 0, 
  14199.             @delivery_latency = 0
  14200.  
  14201.         --
  14202.         -- select the last timestamp
  14203.         --
  14204.         select @last_timestamp = max(timestamp) from MSqreader_history 
  14205.             where agent_id = @agent_id
  14206.  
  14207.         --
  14208.         -- select the last time the agent was started
  14209.         --
  14210.         select @first_timestamp = max(timestamp) from MSqreader_history
  14211.             where agent_id = @agent_id and runstatus = 1
  14212.             
  14213.         --
  14214.         -- Get start time, duration
  14215.         --
  14216.         select @start_time = convert(nvarchar(12), start_time, 112) +
  14217.                             substring(convert(nvarchar(24), start_time, 121), 11, 13)
  14218.         from MSqreader_history
  14219.             where agent_id = @agent_id and timestamp = @first_timestamp
  14220.             
  14221.         --
  14222.         -- Compute the transaction processed, commands processed,
  14223.         -- avg commands, delivery rate
  14224.         --
  14225.         select @transactions_processed = sum(ISNULL(transactions_processed, 0)) 
  14226.                 ,@commands_processed = sum(ISNULL(commands_processed, 0))
  14227.                 ,@average_commands =  avg(ISNULL(commands_processed, 0))
  14228.                 ,@delivery_rate = cast(avg(ISNULL(delivery_rate, 0.0)) as int)
  14229.             from MSqreader_history
  14230.             where agent_id = @agent_id 
  14231.                 and timestamp >= @first_timestamp and timestamp <= @last_timestamp
  14232.                 and transactions_processed > 0
  14233.                 
  14234.         --
  14235.         -- Get the duration, time, status, comments, error from last log
  14236.         --
  14237.         select 
  14238.             @duration = duration,
  14239.             @time = convert(nvarchar(12), time, 112) +
  14240.                             substring(convert(nvarchar(24), time, 121), 11, 13),
  14241.             @status = isnull(runstatus, 0),
  14242.             @comments = comments,
  14243.             @error_id = error_id
  14244.         from MSqreader_history
  14245.         where 
  14246.             agent_id = @agent_id and
  14247.             timestamp = @last_timestamp
  14248.             
  14249.         insert into #qreader_agent values(@agent_name, @status, @start_time, 
  14250.             @time, @duration, @comments, @transactions_processed, @commands_processed, 
  14251.             @average_commands, @delivery_rate, @delivery_latency,
  14252.             @error_id, @job_id, @profile_id, @agent_id, isnull(@last_timestamp,0x00))            
  14253.  
  14254.         FETCH hC INTO @agent_id, @agent_name, @job_id, @profile_id
  14255.     end
  14256.  
  14257.     if @show_distdb = 0
  14258.         select * from #qreader_agent 
  14259.     else 
  14260.         select 'dbname' = DB_NAME(), * from #qreader_agent
  14261.  
  14262.     drop table #qreader_agent
  14263.     close hC
  14264.     deallocate hC
  14265. end
  14266. GO
  14267.  
  14268.  
  14269. raiserror(15339,-1,-1,'sp_MSenum_qreader_s')
  14270. go
  14271. create procedure sp_MSenum_qreader_s (
  14272.     @publication_id int = 0, 
  14273.     @hours int = 0, /* @hours < 0 will return TOP 100 */
  14274.     @session_type int = 1 /* Return all sessions */
  14275. )
  14276. as
  14277. begin
  14278.     set nocount on
  14279.  
  14280.     declare @succeed int
  14281.             ,@retry int
  14282.             ,@failure int
  14283.             ,@min_time datetime
  14284.             ,@agent_id int
  14285.             ,@maxtimestamp timestamp
  14286.             ,@session_start timestamp
  14287.             ,@next_session_start timestamp
  14288.             ,@session_end timestamp
  14289.             ,@final_ts timestamp
  14290.  
  14291.             ,@status int,
  14292.             @start_time nvarchar(24), 
  14293.             @time nvarchar(24), 
  14294.             @comments nvarchar(255), 
  14295.             @duration int, 
  14296.             @delivery_rate int, 
  14297.             @delivery_latency int,
  14298.             @transactions_processed int, 
  14299.             @commands_processed int, 
  14300.             @average_commands int, 
  14301.             @action_count int, 
  14302.             @error_id int,
  14303.             @start_datetime datetime,
  14304.             @end_datetime datetime
  14305.     
  14306.     if @session_type  not in (1,2)
  14307.     begin
  14308.         return(1)
  14309.     end
  14310.     
  14311.     /* 
  14312.     ** Status const defined in sqlrepl.h 
  14313.     */
  14314.     select @succeed = 2
  14315.     select @retry = 5
  14316.     select @failure = 6
  14317.  
  14318.     -- create the table to store sessions
  14319.     create table #qreader_session (status int NOT NULL,
  14320.         start_time nvarchar(24) NOT NULL, time nvarchar(24) NOT NULL, comments nvarchar(255) NULL, 
  14321.         duration int NULL, delivery_rate int NULL, delivery_latency int NULL,
  14322.         publication_id int NULL, transactions_processed int NULL, commands_processed int NULL, 
  14323.         average_commands int NULL, action_count int NULL, error_id INT NULL, local_timestamp binary(8) NOT NULL)
  14324.         
  14325.     -- get the agent id
  14326.     select TOP 1 @agent_id = agent_id from MSqreader_history 
  14327.  
  14328.     --
  14329.     -- If Min time specified, initilialize it
  14330.     --
  14331.     IF (@hours < 1)
  14332.         select @min_time = NULL
  14333.     ELSE
  14334.         select @min_time = dateadd(hour, -@hours, getdate())
  14335.  
  14336.     -- initialize
  14337.     select @delivery_latency = 0
  14338.             ,@next_session_start = NULL
  14339.             ,@session_end = NULL
  14340.             ,@final_ts = max(timestamp) 
  14341.     from MSqreader_history
  14342.     
  14343.     -- Get the session details
  14344.     while (@session_end != @final_ts)
  14345.     begin
  14346.         --
  14347.         -- Mark the beginning of a new session
  14348.         --
  14349.         if (@next_session_start is NULL)
  14350.         begin
  14351.             select @session_start = min(timestamp) from MSqreader_history
  14352.                 where agent_id = @agent_id and runstatus = 1
  14353.         end
  14354.         else
  14355.         begin
  14356.             select @session_start = @next_session_start 
  14357.         end
  14358.  
  14359.         --
  14360.         -- update @next_session_start
  14361.         --
  14362.         select @next_session_start = ISNULL(min(timestamp), @final_ts) 
  14363.         from MSqreader_history
  14364.         where agent_id = @agent_id and timestamp > @session_start and runstatus = 1
  14365.  
  14366.         --
  14367.         -- find session end based on @next_session_start
  14368.         --
  14369.         if (@next_session_start = @final_ts)
  14370.             select @session_end = @final_ts
  14371.         else
  14372.         begin
  14373.             select @session_end = max(timestamp)
  14374.             from MSqreader_history
  14375.             where agent_id = @agent_id and
  14376.                 timestamp > @session_start and 
  14377.                 timestamp < @next_session_start
  14378.         end
  14379.         
  14380.         --
  14381.         -- get start time for this session
  14382.         --
  14383.         select @start_datetime = start_time, 
  14384.             @start_time = convert(nvarchar(12), start_time, 112) +
  14385.                         substring(convert(nvarchar(24), start_time, 121), 11, 13)
  14386.         from MSqreader_history                        
  14387.         where agent_id = @agent_id and timestamp = @session_start                        
  14388.  
  14389.         --
  14390.         -- do we need to process this session 
  14391.         --
  14392.         if (@start_time IS NULL)
  14393.         begin
  14394.             --
  14395.             -- Check if we are done with all sessions
  14396.             --
  14397.             if (@session_end = @final_ts)
  14398.                 break
  14399.             else
  14400.                 continue
  14401.         end
  14402.  
  14403.         --
  14404.         -- get status, end time, comments, error id for this session
  14405.         --
  14406.         select @status = runstatus,
  14407.             @end_datetime = time,
  14408.             @time = convert(nvarchar(12), time, 112) +
  14409.                     substring(convert(nvarchar(24), time, 121), 11, 13), 
  14410.             @comments = comments, 
  14411.             @error_id = ISNULL(error_id, 0) 
  14412.         from MSqreader_history                        
  14413.         where agent_id = @agent_id and timestamp = @session_end                        
  14414.  
  14415.         --
  14416.         -- do we need to continue this session - min time check
  14417.         --
  14418.         if ((@min_time is NOT NULL) and (@min_time > @end_datetime))
  14419.         begin
  14420.             --
  14421.             -- Check if we are done with all sessions
  14422.             --
  14423.             if (@session_end = @final_ts)
  14424.                 break
  14425.             else
  14426.                 continue
  14427.         end
  14428.  
  14429.         --
  14430.         -- get duration, action count, tran processed, cmds processed, avg cmds, etc
  14431.         -- for this session
  14432.         --
  14433.         select @duration = DATEDIFF(second, @start_datetime, @end_datetime)
  14434.         select @action_count = ISNULL(count(*), 0)
  14435.             from MSqreader_history
  14436.             where agent_id = @agent_id 
  14437.                 and timestamp >= @session_start and timestamp <= @session_end
  14438.  
  14439.         select @transactions_processed = sum(ISNULL(transactions_processed, 0)) 
  14440.                 ,@commands_processed = sum(ISNULL(commands_processed, 0))
  14441.                 ,@average_commands =  avg(ISNULL(commands_processed, 0))
  14442.                 ,@delivery_rate = cast(avg(ISNULL(delivery_rate, 0.0)) as int)
  14443.             from MSqreader_history
  14444.             where agent_id = @agent_id 
  14445.                 and timestamp >= @session_start and timestamp <= @session_end
  14446.                 and transactions_processed > 0
  14447.  
  14448.         --
  14449.         -- insert into #qreader_session
  14450.         --
  14451.         insert into    #qreader_session values(@status, @start_time, @time, @comments, 
  14452.             @duration, @delivery_rate, @delivery_latency, NULL, @transactions_processed, 
  14453.             @commands_processed, @average_commands, @action_count, @error_id, @session_end)
  14454.  
  14455.         --
  14456.         -- Check if we are done with all sessions
  14457.         --
  14458.         if (@session_end = @final_ts)
  14459.             break
  14460.     end
  14461.  
  14462.     -- return results
  14463.     
  14464.     if (@hours < 0)
  14465.         select top 100 
  14466.             status,
  14467.             start_time,
  14468.             time, 
  14469.             comments, 
  14470.             duration,
  14471.             delivery_rate,
  14472.             delivery_latency,
  14473.             publication_id,
  14474.             transactions_processed, 
  14475.             commands_processed, 
  14476.             average_commands, 
  14477.             action_count, 
  14478.             error_id
  14479.         from #qreader_session
  14480.         where (@session_type = 2 and (status = @failure)) or 
  14481.                 (@session_type = 1)
  14482.         order by local_timestamp desc
  14483.     else
  14484.         select 
  14485.             status,
  14486.             start_time,
  14487.             time, 
  14488.             comments, 
  14489.             duration,
  14490.             delivery_rate,
  14491.             delivery_latency,
  14492.             publication_id,
  14493.             transactions_processed, 
  14494.             commands_processed, 
  14495.             average_commands, 
  14496.             action_count, 
  14497.             error_id
  14498.         from #qreader_session        
  14499.         where (@session_type = 2 and (status = @failure)) or 
  14500.                 (@session_type = 1)
  14501.         order by local_timestamp desc
  14502. end
  14503. GO
  14504.  
  14505.  
  14506. raiserror(15339,-1,-1,'sp_MSenum_qreader_sd')
  14507. go
  14508. create procedure sp_MSenum_qreader_sd (
  14509.     @publication_id int = 0, 
  14510.     @time datetime = NULL)
  14511. as
  14512. begin
  14513.     set nocount on
  14514.  
  14515.     declare @time_up datetime
  14516.             ,@agent_id int
  14517.             ,@final_ts timestamp
  14518.             ,@initial_ts timestamp
  14519.             ,@session_start timestamp
  14520.             ,@next_session_start timestamp
  14521.             ,@session_end timestamp
  14522.  
  14523.     if (@publication_id = 0)
  14524.         select @publication_id = NULL
  14525.         
  14526.     IF @time IS NULL
  14527.         select @time = GETDATE()
  14528.  
  14529.     /*
  14530.     ** Minute-approximate @time can be used.
  14531.     ** Note: The select only return datetime data with minute precision
  14532.     */
  14533.     IF ( (DATEPART(second, @time) = 0) AND
  14534.             (DATEPART(millisecond, @time) = 0) )
  14535.     BEGIN
  14536.         SELECT @time_up = DATEADD(second, +59, @time)
  14537.         SELECT @time_up = DATEADD(millisecond, +999, @time)
  14538.     END
  14539.     ELSE
  14540.         SELECT @time_up = @time
  14541.  
  14542.     --
  14543.     -- Get the agent id
  14544.     --
  14545.     select TOP 1 @agent_id = agent_id from MSqreader_history 
  14546.  
  14547.     --
  14548.     -- Get the session start, next session start timestamps
  14549.     --
  14550.     select @initial_ts = min(timestamp), @final_ts = max(timestamp) from MSqreader_history
  14551.     
  14552.     select @session_start = ISNULL(max(timestamp), @initial_ts) from MSqreader_history
  14553.             where agent_id = @agent_id and time <= @time_up and runstatus = 1
  14554.             
  14555.     select @next_session_start = ISNULL(min(timestamp), @final_ts) from MSqreader_history
  14556.             where agent_id = @agent_id and timestamp > @session_start and runstatus = 1
  14557.  
  14558.     --
  14559.     -- find session end based on @next_session_start
  14560.     --
  14561.     if (@next_session_start = @final_ts)
  14562.         select @session_end = @final_ts
  14563.     else
  14564.     begin
  14565.         select @session_end = max(timestamp)
  14566.         from MSqreader_history
  14567.         where agent_id = @agent_id and
  14568.             timestamp > @session_start and 
  14569.             timestamp < @next_session_start
  14570.     end
  14571.     
  14572.     --
  14573.     -- Do the select now
  14574.     --
  14575.     select  runstatus, 
  14576.         'time' = convert(nvarchar(12), time, 112) +
  14577.                     substring(convert(nvarchar(24), time, 121), 11, 13), 
  14578.         comments, 
  14579.         transaction_id, 
  14580.         transaction_status,
  14581.         commands_processed,
  14582.         subscriber,
  14583.         subscriberdb,
  14584.         'error_id' = ISNULL(error_id, 0)
  14585.     from MSqreader_history
  14586.     where
  14587.         agent_id = @agent_id and
  14588.         timestamp >= @session_start and
  14589.         timestamp <= @session_end
  14590.     order by timestamp desc
  14591. end
  14592. GO
  14593.  
  14594. raiserror(15339,-1,-1,'sp_MSenum_distribution')
  14595. go
  14596. create procedure sp_MSenum_distribution
  14597. @name nvarchar(100) = '%',
  14598. @show_distdb bit = 0,
  14599. @exclude_anonymous bit = 0
  14600. as
  14601.     set nocount on
  14602.  
  14603.     declare @publisher sysname
  14604.     declare @publisher_id smallint
  14605.     declare @publisher_db sysname
  14606.     declare @publication sysname
  14607.     declare @subscriber sysname
  14608.     declare @subscriber_id smallint
  14609.     declare @subscriber_db sysname
  14610.     declare @subscriber_name sysname
  14611.     declare @distribution_agent nvarchar(100)
  14612.     declare @status int
  14613.     declare @start_time nvarchar(24)
  14614.     declare @time nvarchar(24)
  14615.     declare @duration int
  14616.     declare @comments nvarchar(255)
  14617.     declare @delivery_time int
  14618.     declare @delivered_transactions int
  14619.     declare @delivered_commands int
  14620.     declare @average_commands int
  14621.     declare @delivery_rate int
  14622.     declare @delivery_latency int   
  14623.     declare @subscription_type int
  14624.     declare @error_id int
  14625.     declare @job_id binary(16)
  14626.     declare @local_job bit
  14627.     declare @agent_id int
  14628.     declare @profile_id int
  14629.     declare @last_timestamp binary(8)
  14630.     declare @offload_enabled bit
  14631.     declare @offload_server  sysname
  14632.         ,@subscriber_type tinyint
  14633.  
  14634.  
  14635.     create table #distribution_agent (name nvarchar(100) NOT NULL, status int NOT NULL,
  14636.         publisher sysname NOT NULL, publisher_db sysname NOT NULL, publication sysname NULL,
  14637.         subscriber sysname NULL, subscriber_db sysname NULL,subscription_type int NULL, 
  14638.         start_time nvarchar(24) NULL, time nvarchar(24) NULL, duration int NULL, 
  14639.         comments nvarchar(255) NULL, delivery_time int NULL, 
  14640.         delivered_transactions int NULL, delivered_commands int NULL, 
  14641.         average_commands int NULL, delivery_rate int NULL, delivery_latency int NULL,
  14642.         error_id int NULL, job_id binary(16) NULL, local_job bit NOT NULL,
  14643.         profile_id int NOT NULL, agent_id int NOT NULL, last_timestamp binary(8) NOT NULL, 
  14644.         offload_enabled BIT NOT NULL, offload_server sysname NULL,
  14645.         subscriber_type tinyint NULL)
  14646.  
  14647.     /* excluding virtual subscriptions */
  14648.     declare hC CURSOR LOCAL FAST_FORWARD FOR
  14649.         select id, name, publisher_id, publisher_db, publication, 
  14650.             subscriber_id, subscriber_db, subscription_type, local_job, job_id,
  14651.             profile_id, subscriber_name, offload_enabled, offload_server
  14652.             from
  14653.             MSdistribution_agents 
  14654.             where 
  14655.             --No virtual subscription wanted
  14656.             name LIKE @name and (subscriber_id is NULL or subscriber_id>=0) and
  14657.             (@exclude_anonymous = 0 or anonymous_agent_id is null)
  14658.         for read only
  14659.  
  14660.  
  14661.     OPEN hC
  14662.     FETCH hC INTO @agent_id, @distribution_agent, @publisher_id, @publisher_db, @publication,
  14663.         @subscriber_id, @subscriber_db, @subscription_type, @local_job, @job_id, @profile_id, @subscriber_name, @offload_enabled, @offload_server
  14664.     WHILE (@@fetch_status <> -1)
  14665.         begin
  14666.         
  14667.         /* Stuff in the values for no history case */
  14668.         select @status = 0, 
  14669.             @start_time = NULL,
  14670.             @time = NULL, @duration = NULL, @comments = NULL,
  14671.             @delivery_time = NULL, @delivered_transactions = NULL,
  14672.             @delivered_commands = NULL, @average_commands = NULL,
  14673.             @delivery_rate = NULL, @delivery_latency = NULL,
  14674.             @error_id = NULL,
  14675.             @last_timestamp = 0x00000000
  14676.  
  14677.         select @status = isnull(runstatus, 0),
  14678.             @start_time = convert(nvarchar(12), start_time, 112) +
  14679.                           substring(convert(nvarchar(24), start_time, 121), 11, 13),
  14680.             @time = convert(nvarchar(12), time, 112) +
  14681.                     substring(convert(nvarchar(24), time, 121), 11, 13), 
  14682.             @duration = duration, 
  14683.             @comments = comments,
  14684.             @delivery_time = 0, @delivered_transactions = delivered_transactions,
  14685.             @delivered_commands = delivered_commands, @average_commands = average_commands,
  14686.             @delivery_rate = delivery_rate,
  14687.             @delivery_latency = delivery_latency,
  14688.             @error_id = error_id, @last_timestamp = timestamp   
  14689.             from MSdistribution_history
  14690.             where
  14691.             agent_id = @agent_id and
  14692.             timestamp = (select max(timestamp) from MSdistribution_history 
  14693.                 where agent_id = @agent_id)
  14694.             
  14695.             select @publisher = srvname from master..sysservers where srvid = @publisher_id
  14696.         IF @subscriber_name is NULL
  14697.         begin
  14698.                 select @subscriber = srvname from master..sysservers where srvid=@subscriber_id 
  14699.                 select @subscriber_type = type from MSsubscriber_info where
  14700.                     UPPER(publisher) = UPPER(@publisher) and
  14701.                     UPPER(subscriber) = UPPER(@subscriber)
  14702.  
  14703.         end
  14704.         ELSE 
  14705.             begin
  14706.                 select @subscription_type = 2
  14707.                 select @subscriber = @subscriber_name
  14708.                 select @subscriber_db = @subscriber_db + '-' + convert(nvarchar(4), @agent_id)
  14709.             end
  14710.             
  14711.         insert into #distribution_agent values (@distribution_agent,
  14712.             @status, @publisher,
  14713.             @publisher_db, @publication, @subscriber, @subscriber_db, @subscription_type, 
  14714.             @start_time, @time, @duration, @comments,
  14715.             @delivery_time, @delivered_transactions, @delivered_commands, @average_commands,
  14716.             @delivery_rate, @delivery_latency, @error_id, @job_id, 
  14717.             @local_job, @profile_id, @agent_id, @last_timestamp, @offload_enabled, 
  14718.             @offload_server, @subscriber_type)
  14719.  
  14720.         FETCH hC INTO @agent_id, @distribution_agent, @publisher_id, @publisher_db, @publication,
  14721.             @subscriber_id, @subscriber_db, @subscription_type, @local_job, @job_id, 
  14722.             @profile_id, @subscriber_name, @offload_enabled, @offload_server
  14723.         end
  14724.  
  14725.     if @show_distdb = 0
  14726.         select * from #distribution_agent 
  14727.     else 
  14728.         select 'dbname' = DB_NAME(), * from #distribution_agent
  14729.  
  14730.     drop table #distribution_agent
  14731.     close hC
  14732.     deallocate hC
  14733.  
  14734. GO
  14735.  
  14736.  
  14737. raiserror(15339,-1,-1,'sp_MSenum_distribution_s')
  14738. go
  14739. create procedure sp_MSenum_distribution_s
  14740. @name nvarchar(100), 
  14741. @hours int = 0, /* @hours < 0 will return TOP 100 */
  14742. @session_type int = 1 /* Return all sessions */
  14743. as
  14744.     set nocount on
  14745.  
  14746.     declare @succeed int
  14747.     declare @retry int
  14748.     declare @failure int
  14749.     declare @min_time datetime
  14750.     declare @agent_id int
  14751.  
  14752.     /* 
  14753.     ** Status const defined in sqlrepl.h 
  14754.     */
  14755.     select @succeed = 2
  14756.     select @retry = 5
  14757.     select @failure = 6
  14758.  
  14759.     select @agent_id = id from MSdistribution_agents where
  14760.         name = @name
  14761.  
  14762.  
  14763.     /* Get date starting point */
  14764.     IF @hours < 0
  14765.     BEGIN
  14766.         select top 100 runstatus, 
  14767.             'start_time' = convert(nvarchar(12), start_time, 112) +
  14768.                            substring(convert(nvarchar(24), start_time, 121), 11, 13), 
  14769.             'time' = convert(nvarchar(12), time, 112) +
  14770.                      substring(convert(nvarchar(24), time, 121), 11, 13), 
  14771.             comments, duration, 
  14772.             delivery_rate,
  14773.             delivery_latency,
  14774.             0, /*delivery_time */   
  14775.             delivered_transactions, delivered_commands, average_commands, 
  14776.             'action_count' = (select count(*) from MSdistribution_history where
  14777.                 start_time = rh.start_time and agent_id = @agent_id),
  14778.             error_id
  14779.             from MSdistribution_history rh
  14780.             where
  14781.             agent_id = @agent_id and
  14782.             ((@session_type = 1 and
  14783.             (runstatus = @succeed or
  14784.             runstatus = @retry or
  14785.             timestamp = (select max(timestamp) from MSdistribution_history rh2 where
  14786.                 rh2.agent_id = @agent_id))) or 
  14787.             runstatus = @failure)
  14788.             order by timestamp desc
  14789.     END
  14790.     ELSE
  14791.     BEGIN
  14792.         IF @hours = 0
  14793.         BEGIN
  14794.             select @min_time = NULL
  14795.         END
  14796.         ELSE
  14797.         BEGIN
  14798.             select @min_time = dateadd(hour, -@hours, getdate())
  14799.         END
  14800.         select  runstatus, 
  14801.             'start_time' = convert(nvarchar(12), start_time, 112) +
  14802.                            substring(convert(nvarchar(24), start_time, 121), 11, 13), 
  14803.             'time' = convert(nvarchar(12), time, 112) +
  14804.                      substring(convert(nvarchar(24), time, 121), 11, 13), 
  14805.             comments, duration, 
  14806.             delivery_rate,
  14807.             delivery_latency,
  14808.             0, /*delivery_time */   
  14809.             delivered_transactions, delivered_commands, average_commands, 
  14810.             'action_count' = (select count(*) from MSdistribution_history where
  14811.                 start_time = rh.start_time and agent_id = @agent_id),
  14812.             error_id
  14813.             from MSdistribution_history rh
  14814.             where
  14815.             agent_id = @agent_id and
  14816.             ((@session_type = 1 and
  14817.             (runstatus = @succeed or
  14818.             runstatus = @retry or
  14819.             timestamp = (select max(timestamp) from MSdistribution_history rh2 where
  14820.                 rh2.agent_id = @agent_id))) or 
  14821.             runstatus = @failure) and
  14822.             (time >= @min_time or @min_time IS NULL)
  14823.             order by timestamp desc
  14824.     END
  14825.  
  14826. GO
  14827.  
  14828.  
  14829. raiserror(15339,-1,-1,'sp_MSenum_distribution_sd')
  14830. go
  14831. create procedure sp_MSenum_distribution_sd
  14832. @name nvarchar(100),
  14833. @time datetime = NULL
  14834. as
  14835.     set nocount on
  14836.  
  14837.     declare @start_time datetime
  14838.     declare @time_up datetime
  14839.     declare @agent_id int
  14840.  
  14841.     IF @time IS NULL
  14842.         select @time = GETDATE()
  14843.     
  14844.     select @agent_id = id from MSdistribution_agents where
  14845.         name = @name
  14846.  
  14847.     /*
  14848.     ** Minute-approximate @time can be used.
  14849.     ** Note: The select only return datetime data with minute precision
  14850.     */
  14851.     IF  DATEPART(second, @time) = 0 AND
  14852.         DATEPART(millisecond, @time) = 0
  14853.     BEGIN
  14854.         SELECT @time_up = DATEADD(second, +59, @time)
  14855.         SELECT @time_up = DATEADD(millisecond, +999, @time)
  14856.     END
  14857.     ELSE
  14858.         SELECT @time_up = @time
  14859.         
  14860.  
  14861.     select top 1 @start_time = start_time           
  14862.          from MSdistribution_history rh
  14863.         where
  14864.         rh.agent_id = @agent_id and
  14865.         time <= @time_up
  14866.         order by timestamp DESC
  14867.  
  14868.     select  runstatus, 
  14869.         'time' = convert(nvarchar(12), time, 112) +
  14870.                  substring(convert(nvarchar(24), time, 121), 11, 13), 
  14871.         comments, duration, 
  14872.         delivery_rate,
  14873.         delivery_latency,
  14874.         /* delivery_time */ 0,  
  14875.         delivered_transactions, delivered_commands, average_commands, 
  14876.         error_id            
  14877.         from MSdistribution_history rh
  14878.         where
  14879.         rh.agent_id = @agent_id and
  14880.         start_time = @start_time
  14881.         order by timestamp desc
  14882. GO
  14883.  
  14884.  
  14885. raiserror(15339,-1,-1,'sp_MSadd_merge_history')
  14886. go
  14887. CREATE PROCEDURE sp_MSadd_merge_history (
  14888.     @agent_id       int,        
  14889.     @runstatus      int, 
  14890.     @comments       nvarchar(255),
  14891.     @delivery_time  int = 0,                    /* Milliseconds */
  14892.     @publisher_insertcount  int = 0,
  14893.     @publisher_updatecount  int = 0,
  14894.     @publisher_deletecount  int = 0,
  14895.     @publisher_conflictcount int = 0,
  14896.     @subscriber_insertcount int = 0,
  14897.     @subscriber_updatecount int = 0,
  14898.     @subscriber_deletecount int = 0,
  14899.     @subscriber_conflictcount int = 0,
  14900.     @log_error bit = 0,
  14901.     @perfmon_increment bit = 1,
  14902.     @update_existing_row bit = 0,
  14903.     @updateable_row bit = 1,     -- used to override history verbose level to decide
  14904.                     -- whether the row being added can be updated by another.    
  14905.     @do_raiserror bit = 1
  14906. )
  14907. AS
  14908. BEGIN
  14909.  
  14910.     DECLARE @current_time datetime
  14911.             ,@start_time datetime
  14912.             ,@duration int
  14913.             ,@delivery_rate float
  14914.             ,@perfmon_delivery_rate int
  14915.             ,@perfmon_conflict_count int
  14916.             ,@delivered_rows int
  14917.             ,@changes int
  14918.             ,@delivery_time_old  int
  14919.             ,@delivered_rows_old int
  14920.             ,@publisher_insertcount_old  int 
  14921.             ,@publisher_updatecount_old  int 
  14922.             ,@publisher_deletecount_old  int 
  14923.             ,@publisher_conflictcount_old int 
  14924.             ,@subscriber_insertcount_old int 
  14925.             ,@subscriber_updatecount_old int 
  14926.             ,@subscriber_deletecount_old int 
  14927.             ,@subscriber_conflictcount_old int 
  14928.             ,@publisher_id smallint
  14929.             ,@subscriber_id smallint
  14930.             ,@error_id int 
  14931.             ,@startup int
  14932.             ,@succeed int
  14933.             ,@retry int
  14934.             ,@inprogress int
  14935.             ,@failure int
  14936.             ,@idle int
  14937.             ,@lastrow_timestamp timestamp
  14938.             ,@agent_name nvarchar(100)
  14939.             ,@publisher sysname
  14940.             ,@publisher_db sysname
  14941.             ,@publication sysname
  14942.             ,@retcode int
  14943.             ,@existing_row_updateble bit
  14944.             ,@this_row_updateable bit
  14945.             ,@agentclassname sysname
  14946.  
  14947.     /* 
  14948.     ** Status const defined in sqlrepl.h 
  14949.     */
  14950.     select @startup = 1
  14951.             ,@succeed = 2
  14952.             ,@inprogress = 3
  14953.             ,@idle = 4
  14954.             ,@retry = 5
  14955.             ,@failure = 6
  14956.             ,@delivery_time_old  = 0
  14957.             ,@publisher_insertcount_old   = 0
  14958.             ,@publisher_updatecount_old   = 0
  14959.             ,@publisher_deletecount_old   = 0
  14960.             ,@publisher_conflictcount_old  = 0
  14961.             ,@subscriber_insertcount_old  = 0
  14962.             ,@subscriber_updatecount_old  = 0
  14963.             ,@subscriber_deletecount_old  = 0
  14964.             ,@subscriber_conflictcount_old  = 0
  14965.             ,@existing_row_updateble = 1
  14966.             ,@this_row_updateable = 1
  14967.  
  14968.     if (@updateable_row = 0)
  14969.     begin
  14970.         select @this_row_updateable = 0
  14971.     end
  14972.  
  14973.     if sessionproperty('replication_agent') = 0
  14974.     begin
  14975.         -- Security Check
  14976.         exec @retcode = dbo.sp_MScheck_pull_access
  14977.             @agent_id = @agent_id,
  14978.             @agent_type = 1 -- merge agent
  14979.         if @@error <> 0 or @retcode <> 0
  14980.             return (1)
  14981.     end
  14982.  
  14983.     SELECT @current_time = GETDATE()
  14984.  
  14985.     -- Update Perfmon counter
  14986.     if @perfmon_increment = 1
  14987.     begin
  14988.         if @runstatus = @startup
  14989.             dbcc incrementinstance ("SQL Replication Agents", "Running", "Merge", 1)
  14990.         else if (@runstatus = @succeed or @runstatus = @retry or @runstatus = @failure)
  14991.             dbcc incrementinstance ("SQL Replication Agents", "Running", "Merge", -1)
  14992.     end
  14993.  
  14994.     SELECT @agent_name = name, @publisher_id = publisher_id, @publisher_db = publisher_db, 
  14995.         @publication = publication from MSmerge_agents where id = @agent_id
  14996.     SELECT @publisher = srvname from master..sysservers where srvid = @publisher_id
  14997.  
  14998.     IF @runstatus = @inprogress or @runstatus = @idle
  14999.         BEGIN
  15000.             SELECT TOP 1 @start_time = start_time, 
  15001.                     @lastrow_timestamp = timestamp,
  15002.                     @publisher_insertcount_old = publisher_insertcount ,
  15003.                     @publisher_updatecount_old = publisher_updatecount, 
  15004.                     @publisher_deletecount_old = publisher_deletecount,
  15005.                     @publisher_conflictcount_old = publisher_conflictcount,
  15006.                     @subscriber_insertcount_old = subscriber_insertcount, 
  15007.                     @subscriber_updatecount_old = subscriber_updatecount,
  15008.                     @subscriber_deletecount_old = subscriber_deletecount,
  15009.                     @subscriber_conflictcount_old = subscriber_conflictcount,
  15010.                     @delivery_time_old = delivery_time,
  15011.                     @existing_row_updateble = updateable_row
  15012.             FROM MSmerge_history (rowlock)
  15013.             WHERE  agent_id = @agent_id ORDER BY timestamp DESC
  15014.         
  15015.             select @delivered_rows_old = @publisher_insertcount_old + 
  15016.                              @publisher_updatecount_old +
  15017.                              @publisher_deletecount_old +
  15018.                              @subscriber_updatecount_old +
  15019.                              @subscriber_insertcount_old +
  15020.                              @subscriber_deletecount_old 
  15021.         END
  15022.     ELSE IF @runstatus <> 1 --1 is the Start status
  15023.         BEGIN
  15024.             SELECT TOP 1 @start_time = start_time, 
  15025.                         @lastrow_timestamp = timestamp
  15026.             FROM MSmerge_history (rowlock)
  15027.             WHERE  agent_id = @agent_id ORDER BY timestamp DESC
  15028.         END
  15029.     ELSE
  15030.         BEGIN
  15031.             SELECT @start_time = @current_time
  15032.         END
  15033.  
  15034.     /* Use the current time if no corresponding start_up message logged */
  15035.     IF @start_time IS NULL
  15036.        SELECT @start_time = @current_time
  15037.  
  15038.     /* Calculate agent run duration */
  15039.     SELECT @duration = DATEDIFF(second, @start_time, @current_time) 
  15040.                              
  15041.     select @delivered_rows = @publisher_insertcount + 
  15042.                              @publisher_updatecount +
  15043.                              @publisher_deletecount +
  15044.                              @subscriber_updatecount +
  15045.                              @subscriber_insertcount +
  15046.                              @subscriber_deletecount 
  15047.  
  15048.     -- Set Perfmon counters
  15049.     if @runstatus = @idle or @runstatus = @inprogress
  15050.     begin
  15051.         dbcc addinstance ("SQL Replication Merge", @agent_name)
  15052.  
  15053.         set @changes = @publisher_insertcount + @publisher_updatecount + @publisher_deletecount                             
  15054.         dbcc incrementinstance ("SQL Replication Merge", "Downloaded Changes/sec", @agent_name, @changes)
  15055.  
  15056.         set @changes = @subscriber_updatecount + @subscriber_insertcount + @subscriber_deletecount 
  15057.         dbcc incrementinstance ("SQL Replication Merge", "Uploaded Changes/sec", @agent_name, @changes)
  15058.  
  15059.         set @perfmon_conflict_count = @publisher_conflictcount + @subscriber_conflictcount
  15060.         dbcc incrementinstance ("SQL Replication Merge", "Conflicts/sec", @agent_name, @perfmon_conflict_count)
  15061.     end
  15062.  
  15063.     if @runstatus = @inprogress  or @runstatus = @idle            -- if it is in progress, then do incremental change
  15064.     begin
  15065.         select @publisher_insertcount = @publisher_insertcount_old + @publisher_insertcount
  15066.         select      @publisher_updatecount = @publisher_updatecount_old + @publisher_updatecount
  15067.         select      @publisher_deletecount = @publisher_deletecount_old + @publisher_deletecount
  15068.         select      @publisher_conflictcount = @publisher_conflictcount_old + @publisher_conflictcount
  15069.         select      @subscriber_insertcount = @subscriber_insertcount_old + @subscriber_insertcount
  15070.         select     @subscriber_updatecount = @subscriber_updatecount_old + @subscriber_updatecount
  15071.         select     @subscriber_deletecount = @subscriber_deletecount_old + @subscriber_deletecount
  15072.         select     @subscriber_conflictcount = @subscriber_conflictcount_old + @subscriber_conflictcount
  15073.  
  15074.         select  @delivery_time = @delivery_time_old + @delivery_time
  15075.         select @delivered_rows = @delivered_rows + @delivered_rows_old
  15076.     end
  15077.     
  15078.     IF @duration <> 0 
  15079.        SELECT @delivery_rate = (@delivered_rows * 1.0) / @duration
  15080.     ELSE
  15081.        SELECT @delivery_rate = 0
  15082.  
  15083.     /* 
  15084.     ** Set error id to 0 unless the user want to log errors associate with this 
  15085.     ** history message.
  15086.     */
  15087.     SELECT @error_id = 0
  15088.     IF @log_error = 1
  15089.     BEGIN
  15090.         -- Ignore errors here. @error_id will be set to 0 in case of errors  
  15091.         EXEC dbo.sp_MSget_new_errorid @error_id OUTPUT
  15092.     END
  15093.  
  15094.     -- Insert idle record or update if history record is already 'idle'
  15095.     IF (@existing_row_updateble = 1) and (@runstatus = @idle or @update_existing_row = 1)
  15096.     begin
  15097.         -- Attempt to update the last row if it is IDLE
  15098.         UPDATE MSmerge_history SET runstatus = @runstatus, time = @current_time, duration = @duration,
  15099.             comments = @comments,
  15100.             delivery_time = @delivery_time, 
  15101.             delivery_rate = @delivery_rate, 
  15102.             publisher_insertcount = @publisher_insertcount,
  15103.             publisher_updatecount = @publisher_updatecount,
  15104.             publisher_deletecount = @publisher_deletecount,
  15105.             publisher_conflictcount = @publisher_conflictcount,
  15106.             subscriber_insertcount = @subscriber_insertcount,
  15107.             subscriber_updatecount = @subscriber_updatecount,
  15108.             subscriber_deletecount = @subscriber_deletecount,
  15109.             subscriber_conflictcount = @subscriber_conflictcount,
  15110.             updateable_row = @this_row_updateable,
  15111.             error_id = case @error_id when 0 then error_id else @error_id end    
  15112.             WHERE
  15113.             agent_id = @agent_id and
  15114.             timestamp = @lastrow_timestamp and
  15115.             (runstatus = @runstatus or 
  15116.             (@update_existing_row = 1 and runstatus in (@idle, @inprogress) and @runstatus in (@idle, @inprogress)))
  15117.  
  15118.         -- Insert idle record if there is not one
  15119.         if @@ROWCOUNT = 0
  15120.             INSERT INTO MSmerge_history
  15121.             (
  15122.             agent_id, runstatus, start_time, time, duration, comments, delivery_time, delivery_rate, publisher_insertcount,
  15123.             publisher_updatecount, publisher_deletecount, publisher_conflictcount, subscriber_insertcount, subscriber_updatecount,
  15124.             subscriber_deletecount, subscriber_conflictcount, error_id, timestamp, updateable_row
  15125.             )
  15126.             VALUES 
  15127.             (
  15128.             @agent_id, @runstatus, @start_time, @current_time, 
  15129.             @duration, @comments,  @delivery_time, @delivery_rate, 
  15130.             @publisher_insertcount, @publisher_updatecount, @publisher_deletecount, @publisher_conflictcount, 
  15131.             @subscriber_insertcount, @subscriber_updatecount, @subscriber_deletecount, @subscriber_conflictcount, 
  15132.             @error_id, NULL, @this_row_updateable
  15133.             )
  15134.     end
  15135.     else
  15136.     begin
  15137.         INSERT INTO MSmerge_history 
  15138.         (
  15139.             agent_id, runstatus, start_time, time, duration, comments, delivery_time, delivery_rate, publisher_insertcount,
  15140.             publisher_updatecount, publisher_deletecount, publisher_conflictcount, subscriber_insertcount, subscriber_updatecount,
  15141.             subscriber_deletecount, subscriber_conflictcount, error_id, timestamp, updateable_row
  15142.         )
  15143.         VALUES 
  15144.         (
  15145.         @agent_id, @runstatus, @start_time, @current_time, 
  15146.         @duration, @comments, @delivery_time, @delivery_rate, 
  15147.         @publisher_insertcount, @publisher_updatecount, @publisher_deletecount, @publisher_conflictcount, 
  15148.         @subscriber_insertcount, @subscriber_updatecount, @subscriber_deletecount, @subscriber_conflictcount, 
  15149.         @error_id, NULL, @this_row_updateable
  15150.         )
  15151.     end
  15152.  
  15153.     -- Refresh repl monitor
  15154.     declare @agent_type int
  15155.     set @agent_type = dbo.fn_MSmask_agent_type (@agent_id, 4)
  15156.  
  15157.     -- Update global replication agent status table
  15158.     exec dbo.sp_MSupdate_replication_status 
  15159.         @publisher, 
  15160.         @publisher_db,
  15161.         @publication,
  15162.         @publication_type = 2,
  15163.         @agent_type = @agent_type,
  15164.         @agent_name = @agent_name,
  15165.         @status = @runstatus
  15166.  
  15167.     -- Raise the appropriate error
  15168.     if @do_raiserror = 1
  15169.     begin
  15170.         select @agentclassname = formatmessage(14554)
  15171.         exec dbo.sp_MSrepl_raiserror agentclassname, @agent_name, @runstatus, @comments
  15172.     end
  15173.  
  15174.     IF @@ERROR <> 0
  15175.         RETURN (1)
  15176.  
  15177.     RETURN (0)
  15178. END
  15179. GO   
  15180.  
  15181. raiserror(15339,-1,-1,'sp_MSenum_merge')
  15182. go
  15183. create procedure sp_MSenum_merge
  15184. @name nvarchar(100) = '%',
  15185. @show_distdb bit = 0,
  15186. @exclude_anonymous bit = 0
  15187. as
  15188.     set nocount on
  15189.  
  15190.     declare @publisher sysname
  15191.     declare @publisher_id smallint
  15192.     declare @publisher_db sysname
  15193.     declare @subscriber sysname
  15194.     declare @subscriber_id smallint
  15195.     declare @subscriber_db sysname
  15196.     declare @subscriber_name sysname
  15197.     declare @subscription_type int
  15198.     declare @publication sysname
  15199.     declare @status int
  15200.     declare @start_time nvarchar(24)
  15201.     declare @time nvarchar(24)
  15202.     declare @duration int
  15203.     declare @comments nvarchar(255)
  15204.     declare @publisher_insertcount int
  15205.     declare @publisher_updatecount int
  15206.     declare @publisher_deletecount int
  15207.     declare @publisher_conflictcount int
  15208.     declare @subscriber_insertcount int
  15209.     declare @subscriber_updatecount int
  15210.     declare @subscriber_deletecount int
  15211.     declare @subscriber_conflictcount int
  15212.     declare @delivery_rate int
  15213.     declare @agent_name nvarchar(100)
  15214.     declare @error_id int
  15215.     declare @job_id binary(16)
  15216.     declare @local_job bit
  15217.     declare @profile_id int
  15218.     declare @agent_id int
  15219.     declare @last_timestamp binary(8)
  15220.     declare @offload_enabled bit
  15221.     declare @offload_server  sysname
  15222.         ,@subscriber_type tinyint
  15223.  
  15224.  
  15225.     create table #merge_agent (name nvarchar(100) NOT NULL, status int NOT NULL,
  15226.         publisher sysname NOT NULL, publisher_db sysname NOT NULL, publication sysname NULL,
  15227.         subscriber sysname NOT NULL, subscriber_db sysname NOT NULL, subscription_type int NULL,
  15228.         start_time nvarchar(24) NULL, time nvarchar(24) NULL, duration int NULL, 
  15229.         comments nvarchar(255) NULL, delivery_rate int NULL,
  15230.         publisher_insertcount int NULL, publisher_updatecount int NULL, publisher_deletecount int NULL,
  15231.         publisher_conficts int NULL, 
  15232.         subscriber_insertcount int NULL, subscriber_updatecount int NULL, subscriber_deletecount int NULL,
  15233.         subscriber_conficts int NULL, error_id int NULL, job_id binary(16) NULL,
  15234.         local_job bit NULL, profile_id int NOT NULL, agent_id int NOT NULL, last_timestamp binary(8) NOT NULL,
  15235.         offload_enabled bit NOT NULL, offload_server sysname NULL,
  15236.         subscriber_type tinyint NULL)
  15237.  
  15238.     declare hC CURSOR LOCAL FAST_FORWARD FOR
  15239.         select p.publisher_id, a.subscriber_id, a.publisher_db, a.subscriber_db, 
  15240.             p.publication, a.name, a.local_job, a.job_id, a.profile_id, a.id, a.subscriber_name, 
  15241.             offload_enabled, offload_server
  15242.             from MSmerge_agents a, MSpublications p
  15243.             where 
  15244.             a.name LIKE @name and
  15245.             a.publisher_id = p.publisher_id and
  15246.             a.publisher_db = p.publisher_db and
  15247.             a.publication = p.publication and
  15248.             (@exclude_anonymous = 0 or a.subscriber_name is null)
  15249.  
  15250.         for read only
  15251.  
  15252.  
  15253.     OPEN hC
  15254.     FETCH hC INTO @publisher_id, @subscriber_id, @publisher_db, @subscriber_db,
  15255.         @publication, @agent_name, @local_job, @job_id, @profile_id, @agent_id, @subscriber_name, 
  15256.         @offload_enabled, @offload_server
  15257.  
  15258.     WHILE (@@fetch_status <> -1)
  15259.     begin
  15260.  
  15261.         /* Initialize the values for no history case */
  15262.         select @status = 0,
  15263.             @start_time = NULL,
  15264.             @time = NULL, 
  15265.             @duration = NULL, 
  15266.             @comments = NULL,
  15267.             @publisher_insertcount = 0,
  15268.             @publisher_deletecount = 0,
  15269.             @publisher_updatecount = 0,
  15270.             @publisher_conflictcount = 0,
  15271.             @subscriber_insertcount = 0,
  15272.             @subscriber_deletecount = 0,
  15273.             @subscriber_updatecount = 0,
  15274.             @subscriber_conflictcount = 0,
  15275.             @delivery_rate = 0,
  15276.             @error_id = NULL, 
  15277.             @last_timestamp = 0x00000000
  15278.  
  15279.         select @status = isnull(runstatus,0),
  15280.             @start_time = convert(nvarchar(12), start_time, 112) +
  15281.                           substring(convert(nvarchar(24), start_time, 121), 11, 13),
  15282.             @time = convert(nvarchar(12), time, 112) +
  15283.                     substring(convert(nvarchar(24), time, 121), 11, 13), 
  15284.             @duration = duration, 
  15285.             @comments = comments,
  15286.             @publisher_insertcount = publisher_insertcount,
  15287.             @publisher_deletecount = publisher_deletecount,
  15288.             @publisher_updatecount =  publisher_updatecount,
  15289.             @publisher_conflictcount =  publisher_conflictcount,
  15290.             @subscriber_insertcount = subscriber_insertcount,
  15291.             @subscriber_deletecount = subscriber_deletecount,
  15292.             @subscriber_updatecount =  subscriber_updatecount,
  15293.             @subscriber_conflictcount =  subscriber_conflictcount,
  15294.             -- Note: return average rate here !!! delivery_rate column is current rate
  15295.             @delivery_rate = 
  15296.                 case    when duration <> 0 then 
  15297.                             (publisher_insertcount + publisher_updatecount +
  15298.                             publisher_deletecount + subscriber_insertcount + 
  15299.                             subscriber_updatecount + subscriber_deletecount)/duration
  15300.                         when duration = 0 then 0
  15301.                 end, 
  15302.             @error_id = error_id, @last_timestamp = timestamp
  15303.             from MSmerge_history
  15304.             where
  15305.                 agent_id = @agent_id and
  15306.                 timestamp = (select max(timestamp) from MSmerge_history mh2
  15307.                     where mh2.agent_id = @agent_id)
  15308.  
  15309.         select @publisher = srvname from master..sysservers where srvid = @publisher_id
  15310.  
  15311.         -- For non anonymous agents, @subscriber_name is null 
  15312.         if @subscriber_name is NULL
  15313.             begin
  15314.                 select @subscriber = srvname from master..sysservers where srvid = @subscriber_id
  15315.                 if @local_job = 1 select @subscription_type = 0
  15316.                     else select @subscription_type = 1
  15317.                 select @subscriber_type = type from MSsubscriber_info where
  15318.                     UPPER(publisher) = UPPER(@publisher) and
  15319.                     UPPER(subscriber) = UPPER(@subscriber)
  15320.             end
  15321.         else 
  15322.             begin
  15323.                 select @subscriber = @subscriber_name
  15324.                 select @subscriber_db = @subscriber_db + '-' +  convert(nvarchar(4), @agent_id)
  15325.                 select @subscription_type = 2   -- anonymous type
  15326.             end
  15327.         
  15328.         insert into #merge_agent values (@agent_name, @status, @publisher,
  15329.             @publisher_db, @publication, @subscriber, @subscriber_db, @subscription_type,
  15330.             @start_time, @time, @duration, @comments, @delivery_rate,
  15331.             @publisher_insertcount, @publisher_updatecount, @publisher_deletecount, 
  15332.             @publisher_conflictcount,
  15333.             @subscriber_insertcount, @subscriber_updatecount, @subscriber_deletecount, 
  15334.             @subscriber_conflictcount,
  15335.             @error_id, @job_id, @local_job, @profile_id, @agent_id, @last_timestamp,
  15336.             @offload_enabled, @offload_server, @subscriber_type)
  15337.  
  15338.         FETCH hC INTO @publisher_id, @subscriber_id, @publisher_db, @subscriber_db,
  15339.             @publication, @agent_name, @local_job, @job_id, @profile_id,
  15340.             @agent_id, @subscriber_name, @offload_enabled, @offload_server
  15341.         end
  15342.  
  15343.     if @show_distdb = 0
  15344.         select * from #merge_agent 
  15345.     else 
  15346.         select 'dbname' = DB_NAME(), * from #merge_agent
  15347.  
  15348.     drop table #merge_agent
  15349.     close hC
  15350.     deallocate hC
  15351.  
  15352. GO
  15353.  
  15354.  
  15355. raiserror(15339,-1,-1,'sp_MSenum_merge_s')
  15356. go
  15357.  
  15358. create procedure sp_MSenum_merge_s
  15359. @name nvarchar(100), 
  15360. @hours int = 0, /* @hours < 0 will return TOP 100 */
  15361. @session_type int = 1 /* Return all sessions */
  15362. as
  15363.     set nocount on
  15364.  
  15365.     declare @succeed int
  15366.     declare @agent_id int
  15367.     declare @retry int
  15368.     declare @failure int
  15369.     declare @min_time datetime
  15370.  
  15371.     /* 
  15372.     ** Status const defined in sqlrepl.h 
  15373.     */
  15374.     select @succeed = 2
  15375.     select @retry = 5
  15376.     select @failure = 6
  15377.  
  15378.     select @agent_id = id from MSmerge_agents where name = @name
  15379.  
  15380.     /* Get date starting point */
  15381.     IF @hours < 0
  15382.     BEGIN
  15383.         select top 100 runstatus, 
  15384.             'start_time' = convert(nvarchar(12), start_time, 112) +
  15385.                            substring(convert(nvarchar(24), start_time, 121), 11, 13), 
  15386.             'time' = convert(nvarchar(12), time, 112) +
  15387.                      substring(convert(nvarchar(24), time, 121), 11, 13), 
  15388.             comments, duration, 
  15389.             -- Note: return average rate here !!! delivery_rate column is current rate
  15390.             case    when duration <> 0 then 
  15391.                             (publisher_insertcount + publisher_updatecount +
  15392.                             publisher_deletecount + subscriber_insertcount + 
  15393.                             subscriber_updatecount + subscriber_deletecount)/duration
  15394.                     when duration = 0 then 0
  15395.             end, 
  15396.             publisher_insertcount, publisher_updatecount, publisher_deletecount, publisher_conflictcount,
  15397.             subscriber_insertcount, subscriber_updatecount, subscriber_deletecount, subscriber_conflictcount,
  15398.             'action_count' = (select count(*) from MSmerge_history where
  15399.                 start_time = rh.start_time and agent_id = @agent_id),
  15400.             error_id
  15401.             from MSmerge_history rh
  15402.             where
  15403.             agent_id = @agent_id and
  15404.             ((@session_type = 1 and
  15405.             (runstatus = @succeed or
  15406.             runstatus = @retry or
  15407.             timestamp = (select max(timestamp) from MSmerge_history rh2 where
  15408.                 rh2.agent_id = @agent_id))) or 
  15409.             runstatus = @failure)
  15410.             order by timestamp desc
  15411.     END
  15412.     ELSE
  15413.     BEGIN
  15414.         IF @hours = 0
  15415.         BEGIN
  15416.             select @min_time = NULL
  15417.         END
  15418.         ELSE
  15419.         BEGIN
  15420.             select @min_time = dateadd(hour, -@hours, getdate())
  15421.         END
  15422.         select  runstatus, 
  15423.             'start_time' = convert(nvarchar(12), start_time, 112) +
  15424.                            substring(convert(nvarchar(24), start_time, 121), 11, 13), 
  15425.             'time' = convert(nvarchar(12), time, 112) +
  15426.                      substring(convert(nvarchar(24), time, 121), 11, 13), 
  15427.             comments, duration, 
  15428.             -- Note: return average rate here !!! delivery_rate column is current rate
  15429.             case    when duration <> 0 then 
  15430.                             (publisher_insertcount + publisher_updatecount +
  15431.                             publisher_deletecount + subscriber_insertcount + 
  15432.                             subscriber_updatecount + subscriber_deletecount)/duration
  15433.                     when duration = 0 then 0
  15434.             end, 
  15435.             publisher_insertcount, publisher_updatecount, publisher_deletecount, publisher_conflictcount,
  15436.             subscriber_insertcount, subscriber_updatecount, subscriber_deletecount, subscriber_conflictcount,
  15437.             'action_count' = (select count(*) from MSmerge_history where
  15438.                 start_time = rh.start_time and agent_id = @agent_id),
  15439.             error_id
  15440.             from MSmerge_history rh
  15441.             where
  15442.             agent_id = @agent_id and
  15443.             ((@session_type = 1 and
  15444.             (runstatus = @succeed or
  15445.             runstatus = @retry or
  15446.             timestamp = (select max(timestamp) from MSmerge_history rh2 where
  15447.                 rh2.agent_id = @agent_id))) or 
  15448.             runstatus = @failure) and
  15449.             (time >= @min_time or @min_time IS NULL)
  15450.             order by timestamp desc
  15451.     END
  15452.  
  15453. GO
  15454.  
  15455. raiserror(15339,-1,-1,'sp_MSenum_merge_sd')
  15456. go
  15457.  
  15458. create procedure sp_MSenum_merge_sd
  15459. @name nvarchar(100),
  15460. @time datetime = NULL
  15461. as
  15462.     set nocount on
  15463.  
  15464.     declare @start_time datetime
  15465.     declare @agent_id int
  15466.     declare @time_up datetime
  15467.  
  15468.     select @agent_id = id from MSmerge_agents where name=@name
  15469.     
  15470.     IF @time IS NULL
  15471.         select @time = GETDATE()
  15472.  
  15473.     /*
  15474.     ** Minute-approximate @time can be used.
  15475.     ** Note: The select only return datetime data with minute precision
  15476.     */
  15477.     IF  DATEPART(second, @time) = 0 AND
  15478.         DATEPART(millisecond, @time) = 0
  15479.     BEGIN
  15480.         SELECT @time_up = DATEADD(second, +59, @time)
  15481.         SELECT @time_up = DATEADD(millisecond, +999, @time)
  15482.     END
  15483.     ELSE
  15484.         SELECT @time_up = @time
  15485.         
  15486.  
  15487.     select top 1 @start_time = start_time           
  15488.          from MSmerge_history rh
  15489.         where
  15490.         rh.agent_id = @agent_id and
  15491.         time <= @time_up
  15492.         order by timestamp DESC
  15493.  
  15494.     select  runstatus, 
  15495.             'time' = convert(nvarchar(12), time, 112) + 
  15496.                      substring(convert(nvarchar(24), time, 121), 11, 13),
  15497.             comments, duration, 
  15498.         -- Note: return average rate here !!! delivery_rate column is current rate
  15499.         case    when duration <> 0 then 
  15500.                         (publisher_insertcount + publisher_updatecount +
  15501.                         publisher_deletecount + subscriber_insertcount + 
  15502.                         subscriber_updatecount + subscriber_deletecount)/duration
  15503.                 when duration = 0 then 0
  15504.         end, 
  15505.         publisher_insertcount, publisher_updatecount, publisher_deletecount, publisher_conflictcount,
  15506.         subscriber_insertcount, subscriber_updatecount, subscriber_deletecount, subscriber_conflictcount,
  15507.         error_id            
  15508.         from MSmerge_history rh
  15509.         where
  15510.         rh.agent_id = @agent_id and
  15511.         start_time = @start_time
  15512.         order by timestamp desc
  15513. GO
  15514.  
  15515. raiserror(15339,-1,-1,'sp_MSenableagentoffload')
  15516. GO
  15517. CREATE PROCEDURE sp_MSenableagentoffload (
  15518.     @job_id             VARBINARY(16),
  15519.     @offloadserver      sysname = NULL
  15520.     ) AS
  15521.  
  15522.     SET NOCOUNT ON
  15523.  
  15524.     /*
  15525.     **  Declarations
  15526.     */
  15527.  
  15528.     DECLARE @agent_id          INT
  15529.     DECLARE @subscription_type INT
  15530.     DECLARE @agenttype         NVARCHAR(20)
  15531.     DECLARE @agent_table       sysname 
  15532.     DECLARE @offloadserverwasnull INT
  15533.     DECLARE @retcode           INT
  15534.     
  15535.     SELECT @agent_id = NULL
  15536.     SELECT @subscription_type = 0
  15537.     SELECT @agenttype = NULL    
  15538.     SELECT @agent_table = RTRIM(@@SERVERNAME) + '.' + db_name() + N'.dbo.'
  15539.  
  15540.     -- get the agent type from sysjobsteps table (subsystem) 
  15541.     SELECT @agenttype = LOWER(subsystem) 
  15542.       FROM msdb..sysjobsteps 
  15543.      WHERE job_id = @job_id
  15544.        AND LOWER(subsystem) IN (N'distribution', N'merge') 
  15545.     
  15546.     -- validate the agent type, it has to be non null
  15547.     IF @agenttype IS NULL
  15548.     BEGIN
  15549.         RAISERROR(21134, 16, -1)
  15550.         RETURN 1
  15551.     END
  15552.  
  15553.     -- Make sure that the given offload server does not contain
  15554.     -- invalid characters
  15555.     EXEC @retcode = sp_MSreplcheckoffloadserver @offloadserver
  15556.     IF @retcode <> 0 OR @@error <> 0
  15557.     BEGIN
  15558.         RETURN (1)
  15559.     END
  15560.  
  15561.     -- validate the existence of the job_id in the agent table and get 
  15562.     -- the value of the subscription type and agentid at the same time
  15563.     IF @agenttype = N'distribution'
  15564.     BEGIN
  15565.         SELECT @subscription_type = subscription_type,
  15566.                @agent_id = id  
  15567.           FROM dbo.MSdistribution_agents
  15568.          WHERE job_id = @job_id
  15569.         SELECT @agent_table = @agent_table + 'MSdistribution_agents'
  15570.     END
  15571.     ELSE 
  15572.     BEGIN
  15573.         SELECT @subscription_type = ms.subscription_type,
  15574.                @agent_id = ma.id
  15575.           FROM dbo.MSmerge_agents ma 
  15576.     INNER JOIN dbo.MSpublications mp 
  15577.             ON (ma.publisher_id = mp.publisher_id) 
  15578.            AND (ma.publisher_db = mp.publisher_db) 
  15579.            AND (ma.publication = mp.publication)
  15580.     INNER JOIN dbo.MSmerge_subscriptions ms
  15581.             ON (ma.publisher_id = ms.publisher_id)
  15582.            AND (ma.publisher_db = ms.publisher_db)
  15583.            AND (mp.publication_id = ms.publication_id)
  15584.            AND (ma.subscriber_id = ms.subscriber_id)
  15585.            AND (ma.subscriber_db = ms.subscriber_db)
  15586.      WHERE @job_id = ma.job_id
  15587.         SELECT @agent_table = @agent_table + 'MSmerge_agents'
  15588.     END
  15589.  
  15590.     IF @agent_id IS NULL
  15591.     BEGIN
  15592.         RAISERROR(21135, 16, -1, @agent_table)
  15593.         RETURN 1
  15594.     END 
  15595.     ELSE IF @@ROWCOUNT > 1
  15596.     BEGIN
  15597.         RAISERROR(21136, 16, -1, @agent_table)
  15598.         RETURN 1
  15599.     END
  15600.  
  15601.     -- raise error if subscription type is not push
  15602.     IF @subscription_type <> 0
  15603.     BEGIN
  15604.         RAISERROR(21137, 16, -1)
  15605.         RETURN 1
  15606.     END
  15607.  
  15608.     -- raise error if offload server name is the same as the
  15609.     -- distributor's name
  15610.     IF LOWER(@@SERVERNAME) = LOWER(@offloadserver)
  15611.     BEGIN
  15612.         RAISERROR(21138, 16, -1)
  15613.         RETURN 1
  15614.     END
  15615.  
  15616.     -- if the offload server name is NULL, try to obtain the offload server
  15617.     -- name from the agent table
  15618.     IF (@offloadserver IS NULL) OR (@offloadserver = N'')
  15619.     BEGIN
  15620.         SELECT @offloadserverwasnull = 1
  15621.         IF LOWER(@agenttype) = N'distribution'
  15622.         BEGIN
  15623.             SELECT @offloadserver = offload_server 
  15624.               FROM dbo.MSdistribution_agents
  15625.              WHERE id = @agent_id
  15626.         END
  15627.         ELSE
  15628.         BEGIN
  15629.             SELECT @offloadserver = offload_server
  15630.               FROM dbo.MSmerge_agents
  15631.              WHERE id = @agent_id
  15632.         END
  15633.     END 
  15634.     ELSE
  15635.     BEGIN
  15636.         SELECT @offloadserverwasnull = 0
  15637.     END
  15638.  
  15639.     -- if offload server name is still NULL, use the subscriber as the target 
  15640.     -- server
  15641.     IF (@offloadserver IS NULL) OR (@offloadserver = N'')
  15642.     BEGIN
  15643.         IF LOWER(@agenttype) = N'distribution'
  15644.         BEGIN
  15645.             SELECT @offloadserver = ss.srvname 
  15646.               FROM master.dbo.sysservers ss 
  15647.         INNER JOIN dbo.MSdistribution_agents da 
  15648.                 ON ss.srvid = da.subscriber_id
  15649.              WHERE @agent_id = da.id
  15650.         END
  15651.         ELSE
  15652.         BEGIN
  15653.             SELECT @offloadserver = ss.srvname
  15654.               FROM master.dbo.sysservers ss 
  15655.         INNER JOIN dbo.MSmerge_agents ma
  15656.                 ON ss.srvid = ma.subscriber_id
  15657.              WHERE @agent_id = ma.id
  15658.         END
  15659.     END
  15660.  
  15661.     IF (@offloadserver IS NULL) OR (@offloadserver = N'') 
  15662.     BEGIN
  15663.         RAISERROR(21139, 16, -1)
  15664.         RETURN 1
  15665.     END
  15666.     ELSE IF LOWER(@offloadserver) = LOWER(@@SERVERNAME) 
  15667.     BEGIN
  15668.         IF @offloadserverwasnull = 1
  15669.         BEGIN
  15670.             RAISERROR(21261, 16, -1)
  15671.         END
  15672.         ELSE
  15673.         BEGIN
  15674.             RAISERROR(21140, 16, -1)
  15675.         END
  15676.         RETURN 1
  15677.     END
  15678.  
  15679.     BEGIN TRANSACTION enable_offload
  15680.     
  15681.     -- Update the agent table with the new offload settings
  15682.     IF LOWER(@agenttype) = N'distribution'
  15683.     BEGIN
  15684.         UPDATE MSdistribution_agents
  15685.            SET offload_enabled = 1,
  15686.                offload_server = @offloadserver
  15687.          WHERE id = @agent_id
  15688.         IF @@ERROR <> 0
  15689.             GOTO Failure
  15690.     END
  15691.     ELSE
  15692.     BEGIN
  15693.         UPDATE MSmerge_agents
  15694.            SET offload_enabled = 1,
  15695.                offload_server = @offloadserver
  15696.          WHERE id = @agent_id
  15697.         IF @@ERROR <> 0
  15698.             GOTO Failure
  15699.     END    
  15700.  
  15701.     -- Add the offload parameter
  15702.     EXEC sp_MSaddoffloadparameter @offloadserver = @offloadserver,
  15703.                                   @job_id = @job_id,
  15704.                                   @agenttype = @agenttype
  15705.     
  15706.     IF @@ERROR <> 0
  15707.         GOTO Failure
  15708.     COMMIT TRANSACTION enable_offload
  15709.     RETURN 0
  15710. Failure:
  15711.     ROLLBACK TRANSACTION enable_offload
  15712.     RETURN 1
  15713. GO
  15714.  
  15715. raiserror(15339,-1,-1,'sp_MSdisableagentoffload')
  15716. GO
  15717. CREATE PROCEDURE sp_MSdisableagentoffload (
  15718.     @job_id         VARBINARY(16),
  15719.     @offloadserver  sysname = NULL
  15720.     ) AS
  15721.     
  15722.     SET NOCOUNT ON
  15723.     
  15724.     DECLARE @agent_id    INT
  15725.     DECLARE @agenttype   NVARCHAR(20)
  15726.  
  15727.     SELECT @agent_id = NULL
  15728.     SELECT @agenttype = NULL
  15729.  
  15730.     -- Obtain the agent type from the sysjobssteps table
  15731.     SELECT @agenttype = LOWER(subsystem) 
  15732.       FROM msdb..sysjobsteps
  15733.      WHERE job_id = @job_id
  15734.        AND LOWER(subsystem) IN (N'merge', N'distribution')
  15735.  
  15736.     -- validate the agent type, it has to be either 'merge' or 'distribution'
  15737.     IF @agenttype IS NULL
  15738.     BEGIN
  15739.         RAISERROR(21134, 16, -1)
  15740.         RETURN 1
  15741.     END
  15742.  
  15743.     -- don't check the subscription type 
  15744.     BEGIN TRANSACTION disable_offload
  15745.     
  15746.     -- Update the agent table with the new offload settings
  15747.     IF @agenttype = N'distribution'
  15748.     BEGIN
  15749.         IF @offloadserver IS NULL -- Leave the existing offload server alone
  15750.         BEGIN
  15751.             UPDATE MSdistribution_agents
  15752.                SET offload_enabled = 0
  15753.              WHERE job_id = @job_id
  15754.             IF @@ERROR <> 0
  15755.                 GOTO Failure
  15756.         END
  15757.         ELSE
  15758.         BEGIN
  15759.             UPDATE MSdistribution_agents
  15760.                SET offload_enabled = 0,
  15761.                    offload_server = @offloadserver
  15762.              WHERE job_id = @job_id            
  15763.             IF @@ERROR <> 0
  15764.                 GOTO Failure
  15765.         END    
  15766.  
  15767.  
  15768.     END
  15769.     ELSE
  15770.     BEGIN
  15771.         IF @offloadserver IS NULL -- Leave the existing offload server alone
  15772.         BEGIN
  15773.             UPDATE MSmerge_agents
  15774.                SET offload_enabled = 0
  15775.              WHERE job_id = @job_id
  15776.             IF @@ERROR <> 0
  15777.                 GOTO Failure
  15778.         END
  15779.         ELSE
  15780.         BEGIN
  15781.             UPDATE MSmerge_agents
  15782.                SET offload_enabled = 0,
  15783.                    offload_server = @offloadserver
  15784.              WHERE job_id = @job_id
  15785.             IF @@ERROR <> 0
  15786.                 GOTO Failure
  15787.         END
  15788.     END    
  15789.  
  15790.     -- Call stored procedure to remove -offload parameter from the 
  15791.     -- agent command line
  15792.  
  15793.     EXEC sp_MSremoveoffloadparameter @job_id = @job_id, 
  15794.                                      @agenttype = @agenttype
  15795.     IF @@ERROR <> 0
  15796.         GOTO Failure
  15797.     COMMIT TRANSACTION disable_offload
  15798.  
  15799.     RETURN 0
  15800. Failure:
  15801.  
  15802.     ROLLBACK TRANSACTION disable_offload
  15803.     RETURN (1)
  15804.  
  15805. GO
  15806.     
  15807. raiserror(15339,-1,-1,'sp_MSadd_repl_error')
  15808. GO
  15809.  
  15810. CREATE PROCEDURE sp_MSadd_repl_error (
  15811. @id                 int,
  15812. @error_type_id      int,
  15813. @source_type_id     int,
  15814. @source_name        sysname,
  15815. @error_code         sysname,
  15816. @error_text         ntext
  15817. )
  15818. AS
  15819.     declare @retcode int
  15820.     declare @xact_seqno varbinary(16)
  15821.     declare @command_id int
  15822.  
  15823.     -- Security Check
  15824.     -- require the login to be in cache regardless of the publication id and agent_id.
  15825.     -- This means that once a agent get into the distribution db, it
  15826.     -- can add any error.   
  15827.     exec @retcode = dbo.sp_MScheck_pull_access
  15828.     if @@error <> 0 or @retcode <> 0
  15829.         return (1)
  15830.  
  15831.     select @xact_seqno = xact_seqno, @command_id = command_id from MSrepl_errors where
  15832.         id = @id and xact_seqno is not null
  15833.     
  15834.     INSERT INTO MSrepl_errors VALUES (@id, getdate(), @error_type_id, @source_type_id,
  15835.         @source_name, @error_code, @error_text, @xact_seqno, @command_id)
  15836.  
  15837.     IF @@ERROR <> 0
  15838.     BEGIN
  15839.        RETURN (1)
  15840.     END
  15841.  
  15842.     return (0)
  15843. GO   
  15844.  
  15845.  
  15846. raiserror(15339,-1,-1,'sp_MSadd_repl_alert')
  15847. GO
  15848.  
  15849. CREATE PROCEDURE sp_MSadd_repl_alert (
  15850. @agent_type         int,
  15851. @agent_id           int,
  15852. @error_id           int,
  15853. @alert_error_code   int,
  15854. @xact_seqno         varbinary(16),      
  15855. @command_id         int,
  15856. @publisher          sysname,
  15857. @publisher_db       sysname,
  15858. @subscriber         sysname,
  15859. @subscriber_db      sysname,
  15860. @alert_error_text   ntext
  15861. )
  15862. AS
  15863.     SET NOCOUNT ON
  15864.  
  15865.     declare @retcode int
  15866.     declare @article sysname
  15867.     declare @article_id int
  15868.     declare @destination_object sysname
  15869.     declare @source_object sysname
  15870.     declare @publisher_id int
  15871.     declare @publication sysname
  15872.     declare @publication_id int
  15873.     declare @publication_type int
  15874.     declare @subscriber_id int
  15875.     declare @publisher_database_id int
  15876.     declare @agent_type2 int
  15877.  
  15878.     -- Security Check
  15879.     if @agent_type = 3
  15880.         select @agent_type2 = 0 -- distribution
  15881.     else if @agent_type = 4
  15882.         select @agent_type2 = 1 -- merge
  15883.  
  15884.     if @agent_type2 is not null 
  15885.     begin
  15886.         exec @retcode = dbo.sp_MScheck_pull_access
  15887.                 @agent_id = @agent_id,
  15888.                 @agent_type = @agent_type2
  15889.         if @@error <> 0 or @retcode <> 0
  15890.             return (1)
  15891.     end
  15892.     else
  15893.     begin
  15894.         if is_member('db_owner') = 0
  15895.         begin
  15896.             RAISERROR (14126, 16, -1)
  15897.             return(1)
  15898.         end
  15899.     end
  15900.  
  15901.     select @publisher_id = srvid from master..sysservers where UPPER(srvname) = UPPER(@publisher)
  15902.     select @subscriber_id = srvid from master..sysservers where UPPER(srvname) = UPPER(@subscriber)
  15903.     
  15904.     select @publisher_database_id = id from MSpublisher_databases 
  15905.     where publisher_id = @publisher_id and publisher_db = @publisher_db
  15906.  
  15907.     select @article_id = article_id from MSrepl_commands
  15908.     where publisher_database_id = @publisher_database_id
  15909.     and xact_seqno = @xact_seqno
  15910.     and command_id = @command_id
  15911.  
  15912.     select @publication = mp.publication, @publication_id = mp.publication_id, @publication_type = mp.publication_type
  15913.     from MSpublications as mp, MSsubscriptions as ms
  15914.     where mp.publisher_id = ms.publisher_id
  15915.     and mp.publisher_db = ms.publisher_db
  15916.     and mp.publication_id = ms.publication_id
  15917.     and ms.publisher_id = @publisher_id
  15918.     and ms.publisher_db = @publisher_db
  15919.     and ms.subscriber_id = @subscriber_id
  15920.     and ms.subscriber_db = @subscriber_db
  15921.     and ms.article_id = @article_id
  15922.  
  15923.     select @article = article, @destination_object = destination_object, @source_object = source_object 
  15924.     from MSarticles
  15925.     where article_id = @article_id
  15926.         and publisher_id = @publisher_id
  15927.         and publisher_db = @publisher_db
  15928.         and publication_id = @publication_id
  15929.  
  15930.      INSERT INTO msdb.dbo.sysreplicationalerts (status, agent_type , agent_id, error_id, alert_error_code, time, publisher,
  15931.                                 publisher_db, publication, publication_type, subscriber, subscriber_db,
  15932.                                 article, destination_object, source_object, alert_error_text)
  15933.                 VALUES (0, @agent_type, @agent_id, @error_id, @alert_error_code, getdate(), @publisher, 
  15934.                         @publisher_db, @publication, @publication_type, @subscriber, @subscriber_db, 
  15935.                         @article, @destination_object, @source_object, @alert_error_text)
  15936.     
  15937.     IF @@ERROR <> 0
  15938.     BEGIN
  15939.        RETURN (1)
  15940.     END
  15941.  
  15942.     return (0)
  15943. GO   
  15944.  
  15945. raiserror(15339,-1,-1,'sp_MSadd_replmergealert')
  15946. GO
  15947.  
  15948. CREATE PROCEDURE sp_MSadd_replmergealert (
  15949. @agent_type         int,
  15950. @agent_id           int,
  15951. @error_id           int,
  15952. @alert_error_code   int,
  15953. @publisher          sysname,
  15954. @publisher_db       sysname,
  15955. @publication        sysname,
  15956. @publication_type   int,
  15957. @subscriber         sysname,
  15958. @subscriber_db      sysname,
  15959. @article            sysname,
  15960. @destination_object sysname,
  15961. @source_object      sysname,
  15962. @alert_error_text   ntext
  15963. )
  15964. AS
  15965.     SET NOCOUNT ON
  15966.  
  15967.     INSERT INTO msdb.dbo.sysreplicationalerts (status, agent_type , agent_id, error_id, alert_error_code, time, publisher,
  15968.                                 publisher_db, publication, publication_type, subscriber, subscriber_db,
  15969.                                 article, destination_object, source_object, alert_error_text)
  15970.                 VALUES (0, @agent_type, @agent_id, @error_id, @alert_error_code, getdate(), @publisher, 
  15971.                         @publisher_db, @publication, @publication_type, @subscriber, @subscriber_db, 
  15972.                         @article, @destination_object, @source_object, @alert_error_text)
  15973.     
  15974.     IF @@ERROR <> 0
  15975.     BEGIN
  15976.        RETURN (1)
  15977.     END
  15978.  
  15979.     return (0)
  15980. GO   
  15981.  
  15982.  
  15983. raiserror(15339,-1,-1,'sp_MSget_repl_error')
  15984. GO
  15985.  
  15986. create procedure sp_MSget_repl_error (
  15987. @id int
  15988. )
  15989. as
  15990.     set nocount on
  15991.     select  source_type_id, source_name, error_code, error_text, 
  15992.             convert(nvarchar(12), time, 112) + 
  15993.             substring(convert(nvarchar(24), time, 121), 11, 13),
  15994.             error_type_id, 
  15995.             'has_xact_seqno' = case when xact_seqno is null or xact_seqno = 0x0
  15996.                 then convert(bit, 0) else convert(bit, 1) end,
  15997.             xact_seqno, command_id
  15998.         from MSrepl_errors
  15999.         where
  16000.             id = @id and
  16001.             -- rows with error_type_id are placeholders
  16002.             error_type_id IS NOT NULL
  16003.         order by time ASC
  16004. GO
  16005.  
  16006.  
  16007. raiserror(15339,-1,-1,'sp_MSdist_activate_auto_sub')
  16008. go
  16009. CREATE PROCEDURE sp_MSdist_activate_auto_sub
  16010. @publisher_id int,
  16011. @publisher_db sysname,
  16012. @article_id int
  16013.  
  16014. as
  16015.     
  16016.   declare @automatic tinyint
  16017.   declare @active tinyint
  16018.   declare @subscribed tinyint
  16019.  
  16020.    set nocount on
  16021.  
  16022.     select @automatic = 1
  16023.  
  16024.     select @subscribed = 1
  16025.     select @active = 2
  16026.  
  16027.     begin transaction MSdist_activate_auto_sub
  16028.  
  16029.        update MSsubscriptions set status = @active,
  16030.             subscription_time = getdate()
  16031.            where
  16032.               publisher_id = @publisher_id and
  16033.               publisher_db = @publisher_db and
  16034.               article_id = @article_id and
  16035.               sync_type = @automatic and
  16036.               status in( @subscribed )
  16037.  
  16038.        if @@ERROR <> 0
  16039.           begin
  16040.           if @@trancount > 0
  16041.             rollback transaction MSdist_activate_auto_sub
  16042.           return (1)
  16043.           end
  16044.  
  16045.    commit transaction
  16046.  
  16047. GO
  16048.  
  16049. raiserror(15339,-1,-1,'sp_MSlock_auto_sub')
  16050. go
  16051. CREATE PROCEDURE sp_MSlock_auto_sub
  16052. @publisher_id int,
  16053. @publisher_db sysname,
  16054. @publication sysname,
  16055. @reset bit = 0  /* @reset = 1 is used for Scheduled Snapshot publications by snapshot */
  16056.  
  16057. as
  16058.     
  16059.   /* This sp only work for 7.0 publisher since it use the publication name */  
  16060.    set nocount on
  16061.  
  16062.     DECLARE @virtual smallint     /* const: virtual subscriber id */
  16063.     DECLARE @virtual_anonymous smallint /* const: virtual anonymous subscriber id */
  16064.     DECLARE @subscribed tinyint
  16065.     DECLARE @automatic tinyint
  16066.     DECLARE @publication_id int
  16067.     DECLARE @counter int
  16068.     DECLARE @independent_agent bit
  16069.     DECLARE @active tinyint
  16070.  
  16071.     SELECT @virtual = -1
  16072.     SELECT @virtual_anonymous = -2
  16073.     SELECT @subscribed = 1
  16074.     SELECT @active = 2
  16075.     SELECT @automatic = 1
  16076.  
  16077.     select @publication_id = publication_id , @independent_agent = independent_agent
  16078.         from MSpublications 
  16079.         where 
  16080.         publisher_id = @publisher_id and
  16081.         publisher_db = @publisher_db and
  16082.         publication = @publication 
  16083.  
  16084.  
  16085.     /* 
  16086.     ** Set exclusive lock on the rows that will be updated to prevent deadlock 
  16087.     **      in snapshot agent.
  16088.     ** Note: using UPDATE lock may cause deadlock with sp_MSget_repl_commands as following
  16089.     ** 1. The distribution agent gets shared lock on MSsubscriptions.
  16090.     ** 2. The snapshot agent gets update lock on MSsubscriptions.
  16091.     ** 3. The snapshot agent gets exclusive lock on MSrepl_commands (inserting into the table)
  16092.     ** 4. The distribution agent waits to get shared lock on MSrepl_commands
  16093.     ** 5. The snapshot agent waits to convert update lock to exclusive lock on MSrepl_subscriptions (updating the table).
  16094.     */
  16095.     --SELECT @counter = COUNT(*) FROM MSsubscriptions (ROWLOCK UPDLOCK)
  16096.     -- 1. Avoid defered updates: Don't update fields in the clusted index
  16097.     -- 2. Avoid updating fields in the where clause 
  16098.     UPDATE MSsubscriptions SET update_mode = update_mode 
  16099.       WHERE 
  16100.          publisher_id = @publisher_id and
  16101.          publisher_db = @publisher_db and
  16102.          publication_id = @publication_id and 
  16103.          /* virtual subscriptions are automatic sync type */
  16104.          sync_type = @automatic and 
  16105.          (status = @subscribed or 
  16106.          subscriber_id = @virtual or
  16107.          subscriber_id = @virtual_anonymous or
  16108.          @reset = 1) 
  16109. GO
  16110.  
  16111. raiserror(15339,-1,-1,'sp_MSget_new_xact_seqno')
  16112. go
  16113. CREATE PROCEDURE sp_MSget_new_xact_seqno
  16114. @publisher_id int,
  16115. @publisher_db sysname,
  16116. @len    tinyint
  16117.  
  16118. AS
  16119.    declare @new_xact_seqno varbinary(16)
  16120.    declare @old_xact_seqno varbinary(16)
  16121.    declare @tag int
  16122.    declare @datalen tinyint
  16123.    declare @publisher_database_id int
  16124.  
  16125.    set nocount on 
  16126.    select @old_xact_seqno = NULL
  16127.  
  16128.     -- Get publisher database id.
  16129.     SELECT @publisher_database_id = id from MSpublisher_databases where publisher_id = @publisher_id and 
  16130.         publisher_db = @publisher_db
  16131.  
  16132.    set rowcount 1
  16133.    select @old_xact_seqno = rt.xact_seqno
  16134.       from
  16135.       -- Prevent inserts
  16136.       MSrepl_transactions rt (HOLDLOCK PAGLOCK UPDLOCK)
  16137.       where 
  16138.          rt.publisher_database_id = @publisher_database_id 
  16139.          order by xact_seqno desc
  16140.    set rowcount 0
  16141.  
  16142.    
  16143.    if @old_xact_seqno IS NULL
  16144.    begin
  16145.         /* if nothing got selected, lock the entire table 
  16146.         ** Don't return meta data !!
  16147.         */
  16148.        select @old_xact_seqno = rt.xact_seqno
  16149.           from
  16150.           MSrepl_transactions rt (HOLDLOCK TABLOCKX)
  16151.           where 0 = 1
  16152.  
  16153.         select @old_xact_seqno = subscription_seqno from MSsubscriptions 
  16154.         where
  16155.             publisher_database_id = @publisher_database_id and
  16156.             subscription_seqno = (select MAX(subscription_seqno) from MSsubscriptions rs2
  16157.             where
  16158.                 rs2.publisher_database_id = @publisher_database_id)
  16159.    end
  16160.  
  16161.     select @datalen = datalength(@old_xact_seqno) 
  16162.     /* Plus one to the tag */
  16163.     if @datalen = @len
  16164.     begin
  16165.         select @tag = convert( int, convert( binary(4), substring( convert( nvarchar, @old_xact_seqno ), @datalen/2 - 2 + 1,2 ) ) )
  16166.         
  16167.         if @tag = 0xffffffff
  16168.         begin
  16169.             raiserror(21018, 16, -1)
  16170.             return(1)
  16171.         end
  16172.         /* avoid arithmatic overflow */
  16173.         if @tag = 0x7fffffff
  16174.             select @tag = 0x80000000
  16175.         else 
  16176.             select @tag = @tag + 1
  16177.  
  16178.         select @new_xact_seqno = 
  16179.         convert( varbinary, substring( convert(nvarchar, @old_xact_seqno), 1, @datalen/2-2)) +
  16180.         convert( VARBINARY(4), @tag )
  16181.  
  16182.     end
  16183.     /* Add a tag */
  16184.     else
  16185.     begin
  16186.         if @datalen + 4 <> @len
  16187.         begin
  16188.             -- We are in trouble if we reach here.
  16189.             return(1)
  16190.         end
  16191.         select @tag = 1
  16192.         select @new_xact_seqno = 
  16193.             @old_xact_seqno + CONVERT(VARBINARY(4), @tag) 
  16194.     end
  16195.  
  16196.    select @new_xact_seqno
  16197. GO
  16198.  
  16199.  
  16200.  
  16201. raiserror(15339,-1,-1,'sp_MSchange_publication')
  16202. go
  16203.  CREATE PROCEDURE sp_MSchange_publication (
  16204.      @publisher sysname,
  16205.      @publisher_db sysname,
  16206.      @publication sysname,
  16207.      @property sysname,
  16208.      @value nvarchar(255)
  16209.      )
  16210. as
  16211. BEGIN
  16212.     set nocount on
  16213.     
  16214.      declare @publisher_id smallint
  16215.              ,@publication_type int
  16216.              ,@retcode int
  16217.              ,@max_distretention int
  16218.              ,@retention_value int
  16219.              ,@cmd    nvarchar(255)
  16220.              ,@cmd2   nvarchar(255)
  16221.              ,@cmd3   nvarchar(255)
  16222.  
  16223.     -- Check if publisher is a defined as a distribution publisher in the current database
  16224.     exec @retcode = dbo.sp_MSvalidate_distpublisher @publisher, @publisher_id OUTPUT
  16225.     if @retcode <> 0
  16226.     begin
  16227.         return(1)
  16228.     end
  16229.  
  16230.     /* Charater properties  */
  16231.  
  16232.     begin tran
  16233.  
  16234.     IF LOWER(@property) ='description'
  16235.     BEGIN
  16236.         UPDATE MSpublications SET description = @value
  16237.             WHERE   publisher_id = @publisher_id AND
  16238.                     publisher_db = @publisher_db AND
  16239.                     publication = @publication
  16240.         IF @@ERROR <> 0 
  16241.             goto UNDO
  16242.     END
  16243.     ELSE IF LOWER(@property) IN ('snapshot_agent')
  16244.     BEGIN
  16245.         -- local job name is internal and should not be changed
  16246.         if exists (select * from MSsnapshot_agents where
  16247.             publisher_id = @publisher_id and
  16248.             publication = @publication and
  16249.             publisher_db = @publisher_db and
  16250.             local_job = 1)
  16251.         begin
  16252.             raiserror(21030, 16, -1)
  16253.             goto UNDO
  16254.         end
  16255.  
  16256.         -- Drop and recreate
  16257.         exec @retcode = dbo.sp_MSdrop_snapshot_agent
  16258.             @publisher = @publisher,
  16259.             @publisher_db = @publisher_db,
  16260.             @publication = @publication
  16261.  
  16262.         IF @@ERROR <> 0 or @retcode <> 0
  16263.             goto UNDO
  16264.  
  16265.         exec @retcode = dbo.sp_MSadd_snapshot_agent
  16266.             @name = @value,
  16267.             @publisher = @publisher,
  16268.             @publisher_db = @publisher_db,
  16269.             @publication = @publication,
  16270.             @local_job = 0
  16271.  
  16272.         IF @@ERROR <> 0 or @retcode <> 0
  16273.             goto UNDO
  16274.     END
  16275.     ELSE IF LOWER(@property) IN ('logreader_agent')
  16276.     BEGIN
  16277.         -- local job name is internal and should not be changed
  16278.         if exists (select * from MSlogreader_agents where
  16279.             publisher_id = @publisher_id and
  16280.             publication = @publication and
  16281.             publisher_db = @publisher_db and
  16282.             local_job = 1)
  16283.         begin
  16284.             raiserror(21030, 16, -1)
  16285.             goto UNDO
  16286.         end
  16287.  
  16288.         -- Drop and recreate
  16289.         exec @retcode = dbo.sp_MSdrop_logreader_agent
  16290.             @publisher = @publisher,
  16291.             @publisher_db = @publisher_db,
  16292.             @publication = @publication
  16293.  
  16294.         IF @@ERROR <> 0 or @retcode <> 0
  16295.             goto UNDO
  16296.  
  16297.         exec @retcode = dbo.sp_MSadd_logreader_agent
  16298.             @name = @value,
  16299.             @publisher = @publisher,
  16300.             @publisher_db = @publisher_db,
  16301.             @publication = @publication,
  16302.             @local_job = 0
  16303.  
  16304.         IF @@ERROR <> 0 or @retcode <> 0
  16305.             goto UNDO
  16306.     END
  16307.     ELSE if LOWER(@property) IN ('retention')
  16308.     BEGIN
  16309.         select @retention_value = convert(int, @value)
  16310.         select @publication_type = publication_type
  16311.             from MSpublications
  16312.             WHERE   publisher_id = @publisher_id AND
  16313.                     publisher_db = @publisher_db AND
  16314.                     publication = @publication
  16315.         UPDATE MSpublications set retention=@retention_value 
  16316.         WHERE   publisher_id = @publisher_id AND
  16317.                     publisher_db = @publisher_db AND
  16318.                     publication = @publication
  16319.         if @@ERROR<>0
  16320.                 goto UNDO
  16321.     END
  16322.      ELSE if LOWER(@property) = ('queue_type')
  16323.      BEGIN
  16324.          --
  16325.          -- If we have come here, it is for MSMQ queue type.
  16326.          -- Distributor needs to support MSMQ 2.0 - Just check that
  16327.          --
  16328.          if (convert(int, @value) = 1)
  16329.          begin
  16330.              --
  16331.              -- Now we use xp_MSver to detect NT OS version
  16332.              -- MSMQ subscription only allowed for platforms that support MSMQ 2.0
  16333.              -- version 5.0.2195 or higher
  16334.              --
  16335.              create table #tosversion ( propid int, propname sysname collate database_default, value int, charvalue nvarchar(255) collate database_default)
  16336.              insert into #tosversion (propid, propname, value, charvalue)
  16337.                  exec master.dbo.xp_msver N'WindowsVersion'
  16338.  
  16339.              declare @vervalue int
  16340.                  ,@lobyte tinyint
  16341.                  ,@hibyte tinyint
  16342.                  ,@loword smallint
  16343.                  ,@hiword smallint
  16344.  
  16345.              --
  16346.              -- low order byte of low order word = OSmajor, high order byte of low order word = OSminor
  16347.              -- high order word = OSbuild
  16348.              --
  16349.              select @vervalue = value from #tosversion where propname = N'WindowsVersion'
  16350.              select @loword = (@vervalue & 0xffff)
  16351.                      ,@hiword = (@vervalue / 0x10000) & 0xffff
  16352.              select @lobyte = @loword & 0xff
  16353.                      ,@hibyte = (@loword / 100) & 0xff
  16354.              drop table #tosversion
  16355.  
  16356.              --
  16357.              -- check for OS major version
  16358.              --
  16359.              if (@lobyte < 5)
  16360.              begin
  16361.                  raiserror(21334, 16, 6, '2.0')
  16362.                  goto UNDO
  16363.              end
  16364.  
  16365.              --
  16366.              -- check for OS build version
  16367.              --
  16368.              if (@lobyte = 5 and @hiword < 2195)
  16369.              begin
  16370.                  raiserror(21334, 16, 7, '2.0')
  16371.                  goto UNDO
  16372.              end
  16373.          end
  16374.      END
  16375.     ELSE
  16376.     BEGIN
  16377.         SELECT @cmd = ''
  16378.         SELECT @cmd = @cmd + 'UPDATE MSpublications '
  16379.         SELECT @cmd = @cmd + '   SET ' + LOWER(@property) + ' = '
  16380.         /* @value can be 255 nchars, so don't append it */
  16381.         SELECT @cmd2 = ' WHERE publisher_id = ' + STR(@publisher_id)
  16382.         SELECT @cmd2 =  @cmd2 + ' AND publisher_db = ' + quotename(@publisher_db,'''')
  16383.         SELECT @cmd2 =  @cmd2 + ' AND publication = '  + quotename(@publication, '''')
  16384.         EXECUTE (@cmd + @value + @cmd2)
  16385.         IF @@ERROR <> 0 
  16386.             goto UNDO
  16387.     END
  16388.  
  16389.     COMMIT TRAN
  16390.  
  16391.     RETURN(0)
  16392.  
  16393. UNDO:
  16394.     IF @@TRANCOUNT = 1
  16395.         ROLLBACK TRAN
  16396.     ELSE
  16397.         COMMIT TRAN   
  16398.     RETURN (1)
  16399. END
  16400. go
  16401.  
  16402.  
  16403. raiserror(15339,-1,-1,'sp_MSadd_article')
  16404. go
  16405. CREATE PROCEDURE sp_MSadd_article
  16406. @publisher sysname,
  16407. @publisher_db sysname,
  16408. @publication sysname,
  16409. @article sysname,
  16410. @article_id int = NULL,
  16411. @destination_object sysname = NULL,
  16412. @source_object sysname = NULL,
  16413. @description nvarchar(255) = NULL,
  16414. @source_owner   sysname = NULL
  16415. as
  16416.  
  16417.     set nocount on
  16418.  
  16419.     declare @publisher_id smallint
  16420.     declare @publication_id int
  16421.     declare @retcode int
  16422.     declare @thirdparty_flag bit
  16423.     declare @immediate_sync bit
  16424.     declare @allow_anonymous bit
  16425.     declare @subscription_seqno binary(16)
  16426.     declare @subscribed tinyint
  16427.     declare @active tinyint
  16428.  
  16429.     select @subscribed = 1  
  16430.     select @active = 2
  16431.         
  16432.     -- Check if publisher is a defined as a distribution publisher in the current database
  16433.     exec @retcode = dbo.sp_MSvalidate_distpublisher @publisher, @publisher_id OUTPUT
  16434.     if @retcode <> 0
  16435.     begin
  16436.         return(1)
  16437.     end
  16438.  
  16439.     -- Get publication id
  16440.     select @publication_id = publication_id,  
  16441.         @thirdparty_flag = thirdparty_flag,
  16442.         @immediate_sync = immediate_sync, @allow_anonymous = allow_anonymous 
  16443.         from MSpublications where
  16444.         publisher_id = @publisher_id and 
  16445.         publisher_db = @publisher_db and
  16446.         publication = @publication
  16447.     if @publication_id is NULL
  16448.     begin
  16449.         raiserror (20026, 11, -1, @publication)
  16450.         return (1)
  16451.     end
  16452.  
  16453.     -- Make sure article does not already exist
  16454.     if exists (select * from MSarticles where publication_id = @publication_id and
  16455.         publisher_id = @publisher_id and publisher_db = @publisher_db and article = @article)
  16456.     begin
  16457.         if @thirdparty_flag = 1
  16458.         begin
  16459.             raiserror (14030, 16, -1, @article, @publication)
  16460.             return (1)
  16461.         end
  16462.         else
  16463.         begin
  16464.             exec @retcode = dbo.sp_MSdrop_article
  16465.                 @publisher = @publisher,
  16466.                 @publisher_db = @publisher_db,
  16467.                 @publication = @publication,
  16468.                 @article = @article
  16469.             if @retcode <> 0 or @@error <> 0
  16470.             begin
  16471.                 return (1)
  16472.             end
  16473.         end
  16474.     end
  16475.  
  16476.     -- If it is a third party publication - check if a subscription exists
  16477.     -- for the publication already. If it does then we cannot add any
  16478.     -- articles - the existing subscriptions will have to dropped first and then
  16479.     -- resubscribed
  16480.     -- excluding virtual subscriptions.
  16481.     if (@thirdparty_flag = 1)
  16482.     begin
  16483.         if exists (select * from MSsubscriptions where 
  16484.                 publisher_id = @publisher_id and 
  16485.                 publisher_db = @publisher_db and 
  16486.                 publication_id = @publication_id and
  16487.                 subscriber_id >= 0)
  16488.         begin
  16489.             raiserror(21131, 16, -1, @publication)
  16490.             return (1)
  16491.         end
  16492.     end
  16493.  
  16494.     begin tran
  16495.     save tran MSadd_article
  16496.  
  16497.     -- Generate new article id when one is not provided by a 
  16498.     -- third party publisher or merge publication
  16499.     if @article_id is NULL
  16500.     begin
  16501.         if (@thirdparty_flag = 1)
  16502.         begin
  16503.             -- Generate unique id per publisher
  16504.             select @article_id = max(article_id) + 1 from MSarticles where 
  16505.                 publisher_id = @publisher_id
  16506.         end
  16507.         else
  16508.         begin
  16509.             -- 6.5 behavior : retain for compatibility
  16510.             -- NOTE: article_id is incremented per publisher/publisher_db/publication
  16511.             select @article_id = max(article_id) + 1 from MSarticles where 
  16512.                 publisher_id = @publisher_id and
  16513.                 publisher_db = @publisher_db and
  16514.                 publication_id = @publication_id
  16515.         end
  16516.  
  16517.         if @article_id is null
  16518.             select @article_id = 1
  16519.     end
  16520.     else
  16521.     begin
  16522.         --
  16523.         -- for third party publisher - validate the article id
  16524.         --
  16525.         if (@thirdparty_flag = 1)
  16526.         begin
  16527.             if exists (select * from MSarticles where
  16528.                     article_id = @article_id and
  16529.                     publisher_id = @publisher_id and
  16530.                     publisher_db = @publisher_db and
  16531.                     publication_id = @publication_id)
  16532.             begin
  16533.                 if @@trancount > 0
  16534.                 begin
  16535.                     rollback tran MSadd_article
  16536.                     commit tran
  16537.                 end
  16538.                 raiserror (14155, 16, 2)
  16539.                 return (1)
  16540.             end
  16541.         end
  16542.     end
  16543.  
  16544.     insert into MSarticles values (@publisher_id, @publisher_db, @publication_id,
  16545.         @article, @article_id, @destination_object, @source_owner, @source_object, @description)
  16546.     if @@error <> 0
  16547.     begin
  16548.         if @@trancount > 0
  16549.         begin
  16550.             rollback tran MSadd_article
  16551.             commit tran
  16552.         end
  16553.         return (1)
  16554.     end
  16555.  
  16556.     -- For third party publications create immediate sync and anonymous virtual subscription
  16557.     -- with 'subscribed' status and then change anonymous virtual to 'active' status
  16558.     -- SQL Server publications will do this via RPC calls to sp_MSadd_subscription
  16559.     if @thirdparty_flag = 1 
  16560.     begin
  16561.         select @subscription_seqno = 0x00  
  16562.         if @immediate_sync = 1
  16563.         begin
  16564.             -- @status passed to sp_MSadd_subscription should always be @subscribed.
  16565.             exec @retcode = dbo.sp_MSadd_subscription
  16566.                 @publisher = @publisher,
  16567.                 @publisher_db = @publisher_db,
  16568.                 @publication = @publication,
  16569.                 @article_id = @article_id,
  16570.                 @subscriber = NULL,                 -- virtual subscription
  16571.                 @status = @subscribed,              
  16572.                 @subscription_seqno = @subscription_seqno,
  16573.                 @sync_type = 1  -- virtual subscriptions are automatic sync type 
  16574.             if @retcode <> 0 or @@error <> 0
  16575.             begin
  16576.                 if @@trancount > 0
  16577.                 begin
  16578.                     rollback tran MSadd_article
  16579.                     commit tran
  16580.                 end
  16581.                 return (1)
  16582.             end
  16583.             -- For SQL publications, we have logic to immediately active the 
  16584.             -- virtual anonymous subscription to no_sync subscriptions. However, this
  16585.             -- feature is not exposed (You need to pass undocumented command line arg 
  16586.             -- '-NoInitialSync' to the distribution agent for the anonymous subscription).
  16587.             -- Do the same for 3rd party publications
  16588.  
  16589.             if @allow_anonymous = 1
  16590.             begin
  16591. /*
  16592. @publisher sysname,
  16593. @publisher_db sysname,
  16594. @subscriber sysname,
  16595. @article_id int,
  16596. @status int,
  16597. @subscription_seqno varbinary(16),
  16598. --post 6x
  16599. @destination_db sysname = '%'
  16600. */
  16601.                 exec @retcode = dbo.sp_MSupdate_subscription
  16602.                     @publisher = @publisher,
  16603.                     @publisher_db = @publisher_db,
  16604.                     @subscriber = NULL,                 -- virtual subscription
  16605.                     @article_id = @article_id,
  16606.                     @status = @active,              
  16607.                     @subscription_seqno = @subscription_seqno,
  16608.                     @destination_db = '%' -- For virtual sub, @destination_db is not used. Can pass in anything
  16609.                 if @retcode <> 0 or @@error <> 0
  16610.                 begin
  16611.                     if @@trancount > 0
  16612.                     begin
  16613.                         rollback tran MSadd_article
  16614.                         commit tran
  16615.                     end
  16616.                     return (1)
  16617.                 end
  16618.             end
  16619.         end
  16620.     end
  16621.  
  16622.     commit tran
  16623. go
  16624.  
  16625. raiserror(15339,-1,-1,'sp_MSchange_article')
  16626. go
  16627. CREATE PROCEDURE sp_MSchange_article
  16628. @publisher sysname,
  16629. @publisher_db sysname,
  16630. @publication sysname,
  16631. @article sysname,
  16632. @article_id int,
  16633. @property nvarchar(20) = NULL,
  16634. @value nvarchar(255) = NULL
  16635. AS
  16636.     DECLARE @retcode int
  16637.     DECLARE @publisher_id smallint
  16638.     DECLARE @publication_id int
  16639.     declare @tablename sysname
  16640.  
  16641.     -- Get publisher id
  16642.  
  16643.     exec @retcode = dbo.sp_MSvalidate_distpublisher @publisher, @publisher_id OUTPUT
  16644.     if @retcode <> 0
  16645.     begin
  16646.         return(1)
  16647.     end
  16648.  
  16649.     -- lower case property
  16650.     select @property = lower (@property)
  16651.     
  16652.     -- Get publication id
  16653.  
  16654.     select @publication_id = publication_id
  16655.         from MSpublications where
  16656.         publisher_id = @publisher_id and 
  16657.         publisher_db = @publisher_db and
  16658.         publication = @publication
  16659.     if @publication_id is NULL
  16660.     begin
  16661.         raiserror (20026, 11, -1, @publication)
  16662.         return (1)
  16663.     end
  16664.  
  16665.     if @property = N'description'     
  16666.     begin
  16667.         update MSarticles set description = @value
  16668.         where publisher_id = @publisher_id
  16669.         and publisher_db = @publisher_db
  16670.         and publication_id = @publication_id
  16671.         and article = @article
  16672.         and article_id = @article_id
  16673.         if @@error <> 0
  16674.         begin
  16675.             return 1
  16676.         end
  16677.     end
  16678.     else if @property in( N'dest_table', N'dest_object' )
  16679.     begin
  16680.         update MSarticles set destination_object = @value
  16681.         where publisher_id = @publisher_id
  16682.         and publisher_db = @publisher_db
  16683.         and publication_id = @publication_id
  16684.         and article = @article
  16685.         and article_id = @article_id
  16686.         if @@error <> 0
  16687.         begin
  16688.             return 1
  16689.         end
  16690.     end
  16691.     else if @property = 'identity_range'
  16692.     begin
  16693.         declare @range bigint
  16694.         select @range = convert(bigint, @value)
  16695.         select @tablename = source_object from MSarticles 
  16696.             where publisher_id = @publisher_id
  16697.             and publisher_db = @publisher_db
  16698.             and publication_id = @publication_id
  16699.             and article = @article
  16700.             and article_id = @article_id
  16701.  
  16702.         update MSrepl_identity_range set range = @range where
  16703.             publisher = @publisher and
  16704.             publisher_db = @publisher_db and
  16705.             tablename = @tablename
  16706.         if @@error <> 0
  16707.         begin
  16708.             return 1
  16709.         end
  16710.     end
  16711.     else if @property = 'threshold'
  16712.     begin
  16713.         declare @threshold int
  16714.         select @threshold = convert(int, @value)
  16715.         select @tablename = source_object from MSarticles 
  16716.             where publisher_id = @publisher_id
  16717.             and publisher_db = @publisher_db
  16718.             and publication_id = @publication_id
  16719.             and article = @article
  16720.             and article_id = @article_id
  16721.  
  16722.         update MSrepl_identity_range set threshold = @threshold where
  16723.             publisher = @publisher and
  16724.             publisher_db = @publisher_db and
  16725.             tablename = @tablename
  16726.         if @@error <> 0
  16727.         begin
  16728.             return 1
  16729.         end
  16730.     end
  16731.     else
  16732.     begin
  16733.         return 1
  16734.     end
  16735. go
  16736.  
  16737.  
  16738. raiserror(15339,-1,-1,'sp_MShelp_publication')
  16739. go   
  16740. CREATE PROCEDURE sp_MShelp_publication (
  16741. @publisher sysname,
  16742. @publisher_db sysname = '%',
  16743. @publication sysname = '%')
  16744. as
  16745. BEGIN
  16746.     set nocount on
  16747.     declare    @queued_agent sysname
  16748.  
  16749.     if @publisher_db != '%' and @publication != '%' and not exists (select * from MSpublications where
  16750.         publisher_id = (select srvid from master..sysservers where UPPER(srvname) = UPPER(@publisher)) and
  16751.         ((@publisher_db = N'%') or (publisher_db = @publisher_db)) and
  16752.         publication like @publication)
  16753.     begin
  16754.         raiserror(20026, 16, -1, @publication)
  16755.         return(1)
  16756.     end
  16757.  
  16758.     select @queued_agent = name from MSqreader_agents 
  16759.     select p.publisher_db, p.publication, p.publication_id, p.publication_type, 
  16760.         --thirdparty_flag, 
  16761.         independent_agent,
  16762.         immediate_sync, allow_push, allow_pull, allow_anonymous, 'snapshot_agent' = s.name,
  16763.         'logreader_agent' = l.name, p.description, vendor_name 
  16764.         -- queue reader agent only if we have valid queued subscription
  16765.         ,'queuereader agent' = case 
  16766.             when (exists (select * from MSsubscriptions sub where sub.publisher_id = p.publisher_id and
  16767.                         sub.publisher_db = p.publisher_db and sub.publication_id = p.publication_id and
  16768.                         (sub.update_mode in (2,3,4,5)))) 
  16769.             then @queued_agent else NULL end
  16770.         ,'thirdparty_options' = thirdparty_options
  16771.         ,'snapshot_jobid' = j.job_id
  16772.         from MSpublications p  
  16773.         LEFT OUTER JOIN MSsnapshot_agents s
  16774.         ON
  16775.         s.publisher_id = p.publisher_id and
  16776.         s.publisher_db = p.publisher_db and
  16777.         s.publication = p.publication
  16778.         LEFT OUTER JOIN MSlogreader_agents l
  16779.         ON
  16780.         (l.publisher_id = p.publisher_id and
  16781.         l.publisher_db = p.publisher_db and
  16782.         p.publication_type = 0 and              -- Only Transactional Publication has a  Log Reader
  16783.         (l.publication = p.publication OR
  16784.          thirdparty_flag = 0))
  16785.         LEFT OUTER JOIN msdb..sysjobs_view j
  16786.         ON
  16787.         s.job_id = j.job_id
  16788.       where 
  16789.         p.publisher_id = (select srvid from master..sysservers where UPPER(srvname) = UPPER(@publisher)) and
  16790.         ((@publisher_db = N'%') or (p.publisher_db = @publisher_db)) and
  16791.         p.publication like @publication
  16792. END
  16793. go
  16794.  
  16795. raiserror(15339,-1,-1,'sp_MShelp_article')
  16796. go
  16797. CREATE PROCEDURE sp_MShelp_article 
  16798. @publisher sysname,
  16799. @publisher_db sysname,
  16800. @publication sysname,        
  16801. @article sysname = '%'
  16802. as
  16803.  
  16804.     set nocount on
  16805.  
  16806.     select article, article_id, source_object, description, source_owner from MSarticles a where 
  16807.         a.publisher_id = (select srvid from master..sysservers where UPPER(srvname) = UPPER(@publisher)) and 
  16808.         a.publisher_db = @publisher_db and
  16809.         a.publication_id = (select publication_id from MSpublications where 
  16810.             publisher_id = a.publisher_id and
  16811.             publisher_db = a.publisher_db and
  16812.             publication = @publication) and
  16813.         a.article like @article
  16814. go
  16815.  
  16816. raiserror(15339,-1,-1,'sp_MShelp_subscription')
  16817. go
  16818. CREATE PROCEDURE sp_MShelp_subscription 
  16819. @publisher sysname,
  16820. @publisher_db sysname,
  16821. @publication sysname,        
  16822. @subscriber sysname = '%',              
  16823. @subscriber_db sysname = '%'
  16824. as
  16825. set nocount on
  16826.  
  16827.     select distinct ss.srvname + ':' + s.subscriber_db, ss.srvname, s.subscriber_db, s.subscription_type, 
  16828.         sync_type, status, agent.name, agent.job_id from 
  16829.         MSsubscriptions s, master..sysservers ss, MSdistribution_agents agent where 
  16830.         s.publisher_id = (select srvid from master..sysservers where UPPER(srvname) = UPPER(@publisher)) and 
  16831.         s.publisher_db = @publisher_db and
  16832.         s.publication_id = (select publication_id from MSpublications where 
  16833.             publisher_id = s.publisher_id and
  16834.             publisher_db = s.publisher_db and
  16835.             publication = @publication) and
  16836.         ((@subscriber_db = N'%') or (s.subscriber_db = @subscriber_db)) and
  16837.         s.subscriber_id = ss.srvid and
  16838.         ((@subscriber = N'%') or (UPPER(ss.srvname) = UPPER(@subscriber))) and
  16839.         s.subscriber_id >= 0 and                    -- ignore virtual subscriptions
  16840.         s.agent_id = agent.id
  16841. go
  16842.  
  16843. raiserror(15339,-1,-1,'sp_MSadd_subscription_3rd')
  16844. go
  16845. CREATE PROCEDURE sp_MSadd_subscription_3rd
  16846. @publisher sysname,
  16847. @publisher_db sysname,
  16848. @publication sysname,
  16849. @subscriber sysname,       
  16850. @subscriber_db sysname = NULL,
  16851. @status tinyint,                    -- 0 = inactive, 1 = subscribed, 2 = active 
  16852. @subscription_type tinyint = 0,     -- 0 = push, 1 = pull, 2 = anonymous 
  16853. @sync_type tinyint = 2,             -- 0 = none  1 = automatic snaphot  2 = no intial snapshot
  16854.  
  16855. @frequency_type int = NULL,
  16856. @frequency_interval int = NULL,
  16857. @frequency_relative_interval int = NULL,
  16858. @frequency_recurrence_factor int = NULL,
  16859. @frequency_subday int = NULL,
  16860. @frequency_subday_interval int = NULL,
  16861. @active_start_time_of_day int = NULL,
  16862. @active_end_time_of_day int = NULL,
  16863. @active_start_date int = NULL,
  16864. @active_end_date int = NULL,
  16865.  
  16866. @distribution_jobid binary(8) = NULL OUTPUT
  16867.  
  16868. as
  16869.     set nocount on
  16870.  
  16871.     declare @retcode int
  16872.     declare @publication_id int
  16873.     declare @article_id int
  16874.     declare @virtual_id smallint
  16875.     declare @publisher_id smallint
  16876.     declare @immediate_sync bit
  16877.     declare @allow_push bit
  16878.     declare @allow_pull bit
  16879.     declare @allow_anonymous bit
  16880.     declare @subscription_seqno binary(16)
  16881.  
  16882.     select @virtual_id = -1
  16883.  
  16884.     -- Check if publisher is a defined as a distribution publisher in the current database
  16885.     exec @retcode = dbo.sp_MSvalidate_distpublisher @publisher, @publisher_id OUTPUT
  16886.     if @retcode <> 0
  16887.     begin
  16888.         return(1)
  16889.     end
  16890.  
  16891.     -- Get publication information
  16892.     select @publication_id = publication_id, @immediate_sync = immediate_sync,
  16893.         @allow_push = allow_push, @allow_pull = allow_pull, @allow_anonymous = allow_anonymous
  16894.         from MSpublications where
  16895.         publisher_id = @publisher_id and
  16896.         publisher_db = @publisher_db and
  16897.         publication = @publication
  16898.     if @publication_id is null
  16899.     begin
  16900.         raiserror(14016, 16, -1, @publication)
  16901.         return (1)
  16902.     end
  16903.  
  16904.     -- Check if publication supports subscription type
  16905.     if @subscription_type = 0 and @allow_push != 1
  16906.     begin
  16907.         raiserror(20034, 16, -1, @publication, 'push')
  16908.         return (1)
  16909.     end
  16910.     else if @subscription_type = 1 and @allow_pull != 1
  16911.     begin
  16912.         raiserror(20034, 16, -1, @publication, 'pull')
  16913.         return (1)
  16914.     end
  16915.     else if @subscription_type = 2 and @allow_anonymous != 1
  16916.     begin
  16917.         raiserror(20034, 16, -1, @publication, 'anonymous')
  16918.         return (1)
  16919.     end
  16920.  
  16921.     begin tran
  16922.     save tran MSadd_subscription_3rd
  16923.  
  16924.     -- Add a subscription for each article in the publication
  16925.     declare hCMSadd_subscription_3rd CURSOR LOCAL FAST_FORWARD FOR 
  16926.         select article_id from MSarticles a where
  16927.             a.publisher_id = @publisher_id and
  16928.             a.publisher_db = @publisher_db and
  16929.             a.publication_id = @publication_id
  16930.         for read only
  16931.  
  16932.     open hCMSadd_subscription_3rd
  16933.     fetch hCMSadd_subscription_3rd into @article_id
  16934.         
  16935.     while (@@fetch_status <> -1)
  16936.     begin
  16937.         if @immediate_sync = 1
  16938.             select @subscription_seqno = subscription_seqno from MSsubscriptions where
  16939.                 publisher_id = @publisher_id and
  16940.                 publisher_db = @publisher_db and
  16941.                 article_id = @article_id and
  16942.                 subscriber_id = @virtual_id 
  16943.         else
  16944.             select @subscription_seqno = 0x00 
  16945.  
  16946.         exec @retcode = dbo.sp_MSadd_subscription
  16947.             @publisher = @publisher,
  16948.             @publisher_db = @publisher_db,
  16949.             @publication = @publication,        -- Must provide this
  16950.             @article_id = @article_id,
  16951.             @subscriber = @subscriber,       
  16952.             @subscriber_db = @subscriber_db,
  16953.             @status = @status,
  16954.             @subscription_seqno = @subscription_seqno,
  16955.             @subscription_type = @subscription_type,
  16956.             @sync_type = @sync_type,
  16957.  
  16958.             @frequency_type = @frequency_type,
  16959.             @frequency_interval = @frequency_interval,
  16960.             @frequency_relative_interval = @frequency_relative_interval,
  16961.             @frequency_recurrence_factor = @frequency_recurrence_factor,
  16962.             @frequency_subday = @frequency_subday,
  16963.             @frequency_subday_interval = @frequency_subday_interval,
  16964.             @active_start_time_of_day = @active_start_time_of_day,
  16965.             @active_end_time_of_day = @active_end_time_of_day,
  16966.             @active_start_date = @active_start_date,
  16967.             @active_end_date = @active_end_date,
  16968.  
  16969.             @distribution_jobid = @distribution_jobid output
  16970.         if @retcode != 0 or @@error != 0
  16971.         begin
  16972.             close hCMSadd_subscription_3rd
  16973.             deallocate hCMSadd_subscription_3rd
  16974.             if @@trancount > 0
  16975.             begin
  16976.                 rollback tran MSadd_subscription_3rd
  16977.                 commit tran
  16978.             end
  16979.             return(1)
  16980.         end
  16981.  
  16982.         fetch hCMSadd_subscription_3rd into @article_id
  16983.     end
  16984.  
  16985.     close hCMSadd_subscription_3rd
  16986.     deallocate hCMSadd_subscription_3rd
  16987.  
  16988.     -- If article_id is null, there were no articles defined for the publication
  16989.     if @article_id is NULL
  16990.     begin
  16991.         raiserror(14009, 16, -1, @publication)
  16992.         if @@trancount > 0
  16993.         begin
  16994.             rollback tran MSadd_subscription_3rd
  16995.             commit tran
  16996.         end
  16997.         return (1)
  16998.     end
  16999.  
  17000.     commit tran
  17001.  
  17002. go
  17003.  
  17004. raiserror(15339,-1,-1,'sp_MSdrop_subscription_3rd')
  17005. go
  17006. CREATE PROCEDURE sp_MSdrop_subscription_3rd
  17007. @publisher sysname,
  17008. @publisher_db sysname,
  17009. @publication sysname,
  17010. @subscriber sysname,       
  17011. @subscriber_db sysname = NULL
  17012.  
  17013. as
  17014.     set nocount on
  17015.  
  17016.     declare @retcode int
  17017.     declare @article_id int
  17018.     declare @publisher_id smallint
  17019.     declare @publication_id int
  17020.  
  17021.     -- Check if publisher is a defined as a distribution publisher in the current database
  17022.     exec @retcode = dbo.sp_MSvalidate_distpublisher @publisher, @publisher_id OUTPUT
  17023.     if @retcode <> 0
  17024.     begin
  17025.         return(1)
  17026.     end
  17027.  
  17028.     -- Get publication information
  17029.     select @publication_id = publication_id from MSpublications where
  17030.         publisher_id = @publisher_id and
  17031.         publisher_db = @publisher_db and
  17032.         publication = @publication
  17033.     if @publication_id is null
  17034.     begin
  17035.         raiserror(14016, 16, -1, @publication)
  17036.         return (1)
  17037.     end
  17038.  
  17039.     begin tran
  17040.     save tran MSdrop_subscription_3rd
  17041.  
  17042.     -- Drop the subscription for each article in the publication
  17043.     if lower(@subscriber) = 'all' and lower(@subscriber_db) = 'all'
  17044.     begin
  17045.         declare hCMSdrop_subscription_3rd CURSOR LOCAL FAST_FORWARD FOR 
  17046.             select a.article_id, srv.srvname, sub.subscriber_db 
  17047.                 from MSarticles a, MSsubscriptions sub, master..sysservers srv where
  17048.                 a.publisher_id = @publisher_id and
  17049.                 a.publisher_db = @publisher_db and
  17050.                 a.publication_id = @publication_id and
  17051.                 sub.article_id = a.article_id and
  17052.                 sub.publisher_id = @publisher_id and
  17053.                 sub.publisher_db = @publisher_db and
  17054.                 sub.publication_id = @publication_id and
  17055.                 srv.srvid = sub.subscriber_id and
  17056.                 sub.subscriber_id >= 0
  17057.             union
  17058.             -- For virtual subscriptions
  17059.             select a.article_id, convert(sysname, null), convert(sysname, null)
  17060.                 from MSarticles a where
  17061.                 a.publisher_id = @publisher_id and
  17062.                 a.publisher_db = @publisher_db and
  17063.                 a.publication_id = @publication_id and
  17064.                 exists (select * from MSsubscriptions sub where
  17065.                     sub.article_id = a.article_id and
  17066.                     sub.publisher_id = @publisher_id and
  17067.                     sub.publisher_db = @publisher_db and
  17068.                     sub.publication_id = @publication_id and
  17069.                     sub.subscriber_id <0 )
  17070.             for read only
  17071.     end
  17072.     else
  17073.         declare hCMSdrop_subscription_3rd CURSOR LOCAL FAST_FORWARD FOR 
  17074.             select article_id, @subscriber, @subscriber_db from MSarticles a where
  17075.                 a.publisher_id = @publisher_id and
  17076.                 a.publisher_db = @publisher_db and
  17077.                 a.publication_id = @publication_id
  17078.             for read only
  17079.  
  17080.     open hCMSdrop_subscription_3rd
  17081.     fetch hCMSdrop_subscription_3rd into @article_id, @subscriber, @subscriber_db
  17082.         
  17083.     while (@@fetch_status <> -1)
  17084.     begin
  17085.         exec @retcode = dbo.sp_MSdrop_subscription
  17086.             @publisher = @publisher,
  17087.             @publisher_db = @publisher_db,
  17088.             @publication = @publication,        -- Must provide this
  17089.             @article_id = @article_id,
  17090.             @subscriber = @subscriber,       
  17091.             @subscriber_db = @subscriber_db
  17092.         if @retcode != 0 or @@error != 0
  17093.         begin
  17094.             close hCMSdrop_subscription_3rd
  17095.             deallocate hCMSdrop_subscription_3rd
  17096.             if @@trancount > 0
  17097.             begin
  17098.                 rollback tran MSdrop_subscription_3rd
  17099.                 commit tran
  17100.             end
  17101.             return (1)
  17102.         end
  17103.  
  17104.        fetch hCMSdrop_subscription_3rd into @article_id, @subscriber, @subscriber_db
  17105.     end
  17106.  
  17107.     close hCMSdrop_subscription_3rd
  17108.     deallocate hCMSdrop_subscription_3rd
  17109.     commit tran
  17110. go
  17111.  
  17112. raiserror(15339,-1,-1,'sp_MSactivate_subscriptions')
  17113. go
  17114.  
  17115. CREATE PROCEDURE sp_MSactivate_subscriptions
  17116. @publisher_id int,
  17117. @publisher_db sysname,
  17118. @publication_id int, 
  17119. @xact_seqno varbinary(16),
  17120. @reset bit = 0      /* @reset = 1 is used for Scheduled Snapshot publications by snapshot */
  17121. AS
  17122.  
  17123.     declare @article_id int
  17124.     declare @retcode int
  17125.  
  17126.     declare hCseqno_3rd CURSOR LOCAL FAST_FORWARD FOR 
  17127.         select article_id from MSarticles a where
  17128.             a.publisher_id = @publisher_id and
  17129.             a.publisher_db = @publisher_db and
  17130.             a.publication_id = @publication_id
  17131.         for read only
  17132.  
  17133.     open hCseqno_3rd
  17134.     fetch hCseqno_3rd into @article_id
  17135.         
  17136.     while (@@fetch_status <> -1)
  17137.     begin
  17138.         select @article_id
  17139.         select @xact_seqno
  17140.         exec @retcode = dbo.sp_MSset_snapshot_xact_seqno
  17141.             @publisher_id = @publisher_id,
  17142.             @publisher_db = @publisher_db,
  17143.             @article_id = @article_id,
  17144.             @xact_seqno = @xact_seqno,
  17145.             @reset = @reset
  17146.         if @retcode != 0 or @@error != 0
  17147.         begin
  17148.             close hCseqno_3rd
  17149.             deallocate hCseqno_3rd
  17150.             return(1)
  17151.         end
  17152.  
  17153.         -- Activate the subscriptions
  17154.         exec @retcode = dbo.sp_MSdist_activate_auto_sub
  17155.             @publisher_id = @publisher_id,
  17156.             @publisher_db = @publisher_db,
  17157.             @article_id = @article_id
  17158.         if @retcode != 0 or @@error != 0
  17159.         begin
  17160.             close hCseqno_3rd
  17161.             deallocate hCseqno_3rd
  17162.             return(1)
  17163.         end
  17164.  
  17165.         fetch hCseqno_3rd into @article_id
  17166.     end
  17167.  
  17168.     close hCseqno_3rd
  17169.     deallocate hCseqno_3rd
  17170. GO
  17171. raiserror(15339,-1,-1,'sp_MSdrop_merge_subscription')
  17172. GO
  17173.  
  17174. CREATE PROCEDURE sp_MSdrop_merge_subscription
  17175. @publisher          sysname,
  17176. @publisher_db       sysname,
  17177. @publication        sysname,
  17178. @subscriber         sysname,
  17179. @subscriber_db      sysname,
  17180. @subscription_type  nvarchar(15) = 'push'           /* Subscription type - push, pull, both */ 
  17181.  
  17182. as
  17183.  
  17184.     set nocount on
  17185.  
  17186.     declare @publisher_id smallint
  17187.     declare @subscriber_id smallint
  17188.     declare @retcode int
  17189.     declare @publication_id int
  17190.     declare @job_id binary(16)
  17191.     declare @thirdparty_flag bit
  17192.     declare @id                 int
  17193.     declare @keep_for_last_run  bit
  17194.  
  17195.     -- Check if publisher is a defined as a distribution publisher in the current database
  17196.     exec @retcode = dbo.sp_MSvalidate_distpublisher @publisher, @publisher_id OUTPUT
  17197.     if @retcode <> 0
  17198.     begin
  17199.         return(1)
  17200.     end
  17201.  
  17202.     -- Check if subscriber exists
  17203.     select @subscriber_id = srvid from master..sysservers where UPPER(srvname) = UPPER(@subscriber) 
  17204.     if @subscriber_id is NULL
  17205.     begin
  17206.         raiserror (20032, 16, -1, @subscriber, @publisher) 
  17207.         return (1)
  17208.     end
  17209.  
  17210.     -- Check if the publication exists
  17211.     select @publication_id = publication_id,
  17212.         @thirdparty_flag = thirdparty_flag
  17213.         from MSpublications where
  17214.         publisher_id = @publisher_id and
  17215.         publisher_db = @publisher_db and
  17216.         publication = @publication
  17217.     if @publication_id is NULL
  17218.     begin
  17219.         raiserror (20026, 16, -1, @publication) 
  17220.        return (1)
  17221.     end
  17222.  
  17223.     -- Check that subscription exists
  17224.     if not exists (select * from MSmerge_subscriptions where 
  17225.         publisher_id = @publisher_id and 
  17226.         publisher_db = @publisher_db and 
  17227.         publication_id = @publication_id and
  17228.         subscriber_id = @subscriber_id and
  17229.         subscriber_db = @subscriber_db)
  17230.     begin
  17231.         if @thirdparty_flag = 1
  17232.         begin
  17233.             --UNDONE : Add this back again when we add pull subscriptions metedata at the distributor
  17234.             --raiserror (14050, 10, -1)
  17235.             return(1)
  17236.         end
  17237.         else
  17238.             return (0)
  17239.     end
  17240.  
  17241.     begin tran
  17242.     save transaction MSdrop_merge_subscription
  17243.  
  17244.     -- Delete the subscription 
  17245.     -- For anonymous type, delete virtual anonymous subscription also
  17246.     -- if deleting the  virtual subscription 
  17247.     -- (since there can be only one subscriber_id per article, subscriber_db doesn't matter)
  17248.     delete from MSmerge_subscriptions where
  17249.         publisher_id = @publisher_id and
  17250.         publisher_db = @publisher_db and
  17251.         publication_id = @publication_id and
  17252.         subscriber_id = @subscriber_id and
  17253.         subscriber_db = @subscriber_db
  17254.     if @@error <> 0
  17255.     begin
  17256.         goto FAILURE
  17257.     end
  17258.  
  17259.     /*
  17260.     ** Get agentid to check history record
  17261.     */
  17262.     select @id=id from MSmerge_agents where 
  17263.         publisher_id = @publisher_id and
  17264.         publisher_db = @publisher_db and
  17265.         publication = @publication and
  17266.         subscriber_id = @subscriber_id and
  17267.         subscriber_db = @subscriber_db
  17268.  
  17269.     /*
  17270.     ** If the subscription has not yet been synced, there is no need for subscriber side cleanup 
  17271.     ** therefore no need for the last agent run.
  17272.     */
  17273.     if exists (select * from MSmerge_history where agent_id = @id) and @subscription_type='push'
  17274.         select @keep_for_last_run = 0 -- cleanup code is not activated.
  17275.     else 
  17276.         select @keep_for_last_run = 0
  17277.     
  17278.     /*
  17279.     ** Delete Merge agent and meta data, if it exists
  17280.     */
  17281.     EXECUTE @retcode = dbo.sp_MSdrop_merge_agent 
  17282.         @publisher = @publisher,
  17283.         @publisher_db = @publisher_db,
  17284.         @publication = @publication,
  17285.         @subscriber = @subscriber,
  17286.         @subscriber_db = @subscriber_db,
  17287.         @keep_for_last_run = @keep_for_last_run
  17288.     if @@error <> 0 or @retcode <> 0
  17289.     begin
  17290.         goto FAILURE
  17291.     end
  17292.  
  17293.     commit transaction
  17294.     return 0
  17295. FAILURE:
  17296.     if @@trancount > 0
  17297.     begin   
  17298.         ROLLBACK TRANSACTION MSdrop_merge_subscription
  17299.         COMMIT TRANSACTION
  17300.     end
  17301.     return 1
  17302.         
  17303. GO
  17304.  
  17305. raiserror(15339,-1,-1,'sp_MSadd_merge_subscription')
  17306. GO
  17307. CREATE PROCEDURE sp_MSadd_merge_subscription
  17308. @publisher sysname,
  17309. @publisher_db sysname,
  17310. @publication sysname,
  17311. @subscriber sysname,       
  17312. @subscriber_db sysname,
  17313. @subscription_type tinyint = 0,     -- 0 = push, 1 = pull
  17314. @sync_type tinyint = 1,             -- 0 = none  1 = automatic snaphot  2 = no intial snapshot
  17315. @status tinyint = 1,                -- 0 = inactive, 1 = subscribed, 2 = active 
  17316. @frequency_type int = NULL,
  17317. @frequency_interval int = NULL,
  17318. @frequency_relative_interval int = NULL,
  17319. @frequency_recurrence_factor int = NULL,
  17320. @frequency_subday int = NULL,
  17321. @frequency_subday_interval int = NULL,
  17322. @active_start_time_of_day int = NULL,
  17323. @active_end_time_of_day int = NULL,
  17324. @active_start_date int = NULL,
  17325. @active_end_date int = NULL,
  17326. @optional_command_line nvarchar(4000) = NULL,
  17327. -- Job name, used in scripting.
  17328. @agent_name sysname = NULL,
  17329. @merge_jobid binary(16) = NULL OUTPUT,
  17330. -- Agent offload
  17331. @offloadagent bit = 0,
  17332. @offloadserver sysname = NULL
  17333. as
  17334.  
  17335.     set nocount on
  17336.  
  17337.     declare @publisher_id smallint
  17338.     declare @subscriber_id smallint
  17339.     declare @publication_id int
  17340.     declare @retcode int
  17341.  
  17342.     -- default values 
  17343.     declare @flushfrequency int 
  17344.     declare @frequencytype int
  17345.     declare @frequencyinterval int 
  17346.     declare @frequencyrelativeinterval int
  17347.     declare @frequencyrecurrencefactor int 
  17348.     declare @frequencysubday int 
  17349.     declare @frequencysubdayinterval int
  17350.     declare @activestarttimeofday int
  17351.     declare @activeendtimeofday int
  17352.     declare @activestartdate int 
  17353.     declare @activeenddate int 
  17354.     declare @push int
  17355.     declare @local_job bit
  17356.     declare @thirdparty_flag bit
  17357.  
  17358.     select @push = 0
  17359.  
  17360.     -- Check if publisher is a defined as a distribution publisher in the current database
  17361.     exec @retcode = dbo.sp_MSvalidate_distpublisher @publisher, @publisher_id OUTPUT
  17362.     if @retcode <> 0
  17363.     begin
  17364.         return(1)
  17365.     end
  17366.  
  17367.     -- Get the publication information 
  17368.     select @publication_id = publication_id,
  17369.         @thirdparty_flag = thirdparty_flag from 
  17370.         MSpublications where 
  17371.         publisher_id = @publisher_id and
  17372.         publisher_db = @publisher_db and
  17373.         publication = @publication
  17374.     if @publication_id is NULL
  17375.     begin
  17376.         raiserror (20026, 11, -1, @publication)
  17377.         return (1)
  17378.     end
  17379.  
  17380.     -- Get subscriber info
  17381.     select @subscriber_id = srvid from master..sysservers where UPPER(srvname) = UPPER(@subscriber)
  17382.  
  17383.     -- Make sure subscription does not already exist
  17384.     if exists (select * from MSmerge_subscriptions where 
  17385.         publisher_id = @publisher_id and 
  17386.         publisher_db = @publisher_db and 
  17387.         publication_id = @publication_id and
  17388.         subscriber_id = @subscriber_id and
  17389.         subscriber_db = @subscriber_db)
  17390.     begin
  17391.         if @thirdparty_flag = 1
  17392.         begin
  17393.             raiserror (14058, 16, -1)
  17394.             return(1)
  17395.         end
  17396.         else
  17397.         begin
  17398.             exec @retcode = dbo.sp_MSdrop_merge_subscription 
  17399.                 @publisher = @publisher,
  17400.                 @publisher_db = @publisher_db,
  17401.                 @publication = @publication,
  17402.                 @subscriber = @subscriber,
  17403.                 @subscriber_db = @subscriber_db,
  17404.                 @subscription_type  = @subscription_type
  17405.             if @retcode <> 0 or @@error <> 0
  17406.             begin
  17407.                 return (1)
  17408.             end
  17409.         end
  17410.     end
  17411.  
  17412.     --Get default task parameter values from MSsubscriber_info 
  17413.     
  17414.     select @frequencytype = frequency_type,
  17415.         @frequencyinterval = frequency_interval,
  17416.         @frequencyrelativeinterval = frequency_relative_interval,
  17417.         @frequencyrecurrencefactor = frequency_recurrence_factor,
  17418.         @frequencysubday = frequency_subday,
  17419.         @frequencysubdayinterval = frequency_subday_interval,
  17420.         @activestarttimeofday = active_start_time_of_day,
  17421.         @activeendtimeofday = active_end_time_of_day,
  17422.         @activestartdate = active_start_date,
  17423.         @activeenddate = active_end_date
  17424.     from MSsubscriber_schedule 
  17425.     where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber) and agent_type = 1
  17426.  
  17427.     if @frequency_type is null
  17428.         select @frequency_type = @frequencytype
  17429.  
  17430.     if @frequency_interval  is null
  17431.         select  @frequency_interval = @frequencyinterval
  17432.  
  17433.     if @frequency_relative_interval is null
  17434.         select  @frequency_relative_interval = @frequencyrelativeinterval
  17435.  
  17436.     if @frequency_recurrence_factor is null
  17437.         select  @frequency_recurrence_factor = @frequencyrecurrencefactor
  17438.  
  17439.     if @frequency_subday is null
  17440.         select  @frequency_subday = @frequencysubday
  17441.  
  17442.     if @frequency_subday_interval is null
  17443.         select  @frequency_subday_interval = @frequencysubdayinterval
  17444.  
  17445.     if @active_start_time_of_day is null
  17446.         select  @active_start_time_of_day = @activestarttimeofday
  17447.  
  17448.     if @active_end_time_of_day is null
  17449.         select  @active_end_time_of_day = @activeendtimeofday
  17450.  
  17451.     if @active_start_date is null
  17452.         select  @active_start_date = @activestartdate
  17453.  
  17454.     if @active_end_date is null
  17455.         select  @active_end_date = @activeenddate
  17456.  
  17457.     begin transaction 
  17458.  
  17459.     -- If push and agent name is not passed in, create local job.
  17460.     if @subscription_type = @push
  17461.         select @local_job = 1
  17462.     else
  17463.         select @local_job = 0
  17464.  
  17465.     insert into MSmerge_subscriptions values (@publisher_id, @publisher_db, @publication_id,
  17466.         @subscriber_id, @subscriber_db, @subscription_type, @sync_type, @status, 
  17467.         getdate())  -- need to store GUID?
  17468.     if @@error <> 0
  17469.     begin
  17470.         goto FAILURE
  17471.     end
  17472.  
  17473.     -- Create Merge Agent
  17474.     exec @retcode = dbo.sp_MSadd_merge_agent
  17475.         @name = @agent_name, 
  17476.         @publisher = @publisher,
  17477.         @publisher_db = @publisher_db,
  17478.         @publication = @publication,
  17479.         @subscriber = @subscriber,
  17480.         @subscriber_db = @subscriber_db,
  17481.         @local_job = @local_job,
  17482.         @frequency_type  = @frequency_type,                         
  17483.         @frequency_interval = @frequency_interval, 
  17484.         @frequency_relative_interval = @frequency_relative_interval, 
  17485.         @frequency_recurrence_factor = @frequency_recurrence_factor, 
  17486.         @frequency_subday = @frequency_subday, 
  17487.         @frequency_subday_interval = @frequency_subday_interval,
  17488.         @active_start_time_of_day = @active_start_time_of_day, 
  17489.         @active_end_time_of_day = @active_end_time_of_day,         
  17490.         @active_start_date = @active_start_date, 
  17491.         @active_end_date = @active_end_date,
  17492.         @optional_command_line = @optional_command_line,
  17493.         @merge_jobid = @merge_jobid OUTPUT,
  17494.         @offloadagent = @offloadagent,
  17495.         @offloadserver = @offloadserver,
  17496.         @subscription_type = @subscription_type
  17497.  
  17498.     if @retcode <> 0 or @@error <> 0
  17499.     begin
  17500.         goto FAILURE
  17501.     end
  17502.     
  17503.     commit transaction
  17504.     return (0)
  17505.  
  17506. FAILURE:
  17507.     /* UNDONE : This code is specific to 6.X nested transaction semantics */
  17508.     if @@TRANCOUNT = 1 
  17509.         ROLLBACK TRANSACTION 
  17510.     else
  17511.         COMMIT TRANSACTION 
  17512.     RETURN (1)
  17513.     
  17514. GO
  17515.  
  17516. raiserror(15339,-1,-1,'sp_MSenum_merge_subscriptions')
  17517. GO
  17518. create procedure sp_MSenum_merge_subscriptions
  17519. @publisher sysname,
  17520. @publisher_db sysname,
  17521. @publication sysname,
  17522. @exclude_anonymous bit = 0
  17523.  
  17524. as
  17525.  
  17526.     declare @subscriber sysname
  17527.     declare @subscriber_db sysname
  17528.     declare @subscriber_name sysname
  17529.     declare @type int
  17530.     declare @status int
  17531.     declare @agent_name nvarchar(100)
  17532.     declare @subscriber_id smallint
  17533.     declare @publisher_id smallint
  17534.     declare @start_time nvarchar(24)
  17535.     declare @time nvarchar(24)
  17536.     declare @duration int
  17537.     declare @comments nvarchar(255)
  17538.     declare @delivery_rate float
  17539.     declare @error_id int
  17540.     declare @publication_id int
  17541.     declare @publisher_insertcount int
  17542.     declare @publisher_updatecount int
  17543.     declare @publisher_deletecount int
  17544.     declare @publisher_conflictcount int
  17545.     declare @subscriber_insertcount int
  17546.     declare @subscriber_updatecount int
  17547.     declare @subscriber_deletecount int
  17548.     declare @subscriber_conflictcount int
  17549.     declare @job_id binary(16)
  17550.     declare @local_job bit
  17551.     declare @profile_id int
  17552.     declare @agent_id int
  17553.     declare @last_timestamp binary(8)
  17554.     declare @offload_enabled bit
  17555.     declare @offload_server sysname
  17556.         ,@subscriber_type tinyint
  17557.  
  17558.     set nocount on
  17559.  
  17560.  
  17561.     select @publisher_id = srvid from master..sysservers where
  17562.        UPPER(srvname) = UPPER(@publisher)
  17563.  
  17564.     select @publication_id = publication_id from MSpublications  where 
  17565.             publisher_id = @publisher_id and
  17566.             publisher_db = @publisher_db and
  17567.             publication = @publication and
  17568.             publication_type = 2 -- Merge 
  17569.  
  17570.     create table #merge_subscriptions (subscriber sysname NOT NULL,  status int NOT NULL, 
  17571.         subscriber_db sysname NOT NULL, type int NOT NULL, agent_name nvarchar(100) NOT NULL, last_action nvarchar(255) NULL, 
  17572.         action_time nvarchar(24) NULL, start_time nvarchar(24) NULL, duration int NULL, 
  17573.         delivery_rate float NULL,
  17574.         publisher_insertcount int NULL, publisher_updatecount int NULL, publisher_deletecount int NULL,
  17575.         publisher_conficts int NULL, 
  17576.         subscriber_insertcount int NULL, subscriber_updatecount int NULL, subscriber_deletecount int NULL,
  17577.         subscriber_conficts int NULL, error_id int NULL, job_id binary(16) NULL,
  17578.         local_job bit NULL, profile_id int NOT NULL, 
  17579.         agent_id int NOT NULL, last_timestamp binary(8) NOT NULL, offload_enabled bit NOT NULL, 
  17580.         offload_server sysname NULL, subscriber_type tinyint NULL)
  17581.     
  17582.     -- This is to force all queries to return rows ordered by job_id
  17583.     create unique clustered index ucmerge_subscriptions ON #merge_subscriptions (agent_id)
  17584.  
  17585.     declare hC CURSOR LOCAL FAST_FORWARD FOR select subscriber_id, subscriber_db, name, job_id, local_job, profile_id, id, subscriber_name,
  17586.                                                     offload_enabled, offload_server
  17587.                                 from MSmerge_agents 
  17588.                                  where publisher_id = @publisher_id and publisher_db = @publisher_db and publication = @publication  and 
  17589.                                     (@exclude_anonymous = 0 or subscriber_name is null)
  17590.                             for read only
  17591.     open hC
  17592.     fetch hC into  @subscriber_id, @subscriber_db, @agent_name, @job_id, @local_job, @profile_id, @agent_id, @subscriber_name, @offload_enabled,
  17593.                    @offload_server
  17594.     while (@@fetch_status <> -1)
  17595.     begin
  17596.  
  17597.         if @subscriber_name is not NULL 
  17598.             begin
  17599.                 select @subscriber = @subscriber_name
  17600.                 select @subscriber_db = @subscriber_db + '-' + convert(nvarchar(4), @agent_id)
  17601.                 select @type = 2   --anonymous subscription
  17602.             end
  17603.         else
  17604.             begin
  17605.                 select @subscriber = srvname from master..sysservers where srvid=@subscriber_id
  17606.                 select @type = subscription_type from MSmerge_subscriptions 
  17607.                     where publisher_id = @publisher_id and
  17608.                         publisher_db = @publisher_db and
  17609.                         publication_id = @publication_id and
  17610.                         subscriber_id = @subscriber_id and
  17611.                         subscriber_db = @subscriber_db
  17612.                 select @subscriber_type = type from MSsubscriber_info where
  17613.                     UPPER(publisher) = UPPER(@publisher) and
  17614.                     UPPER(subscriber) = UPPER(@subscriber)
  17615.             end
  17616.             
  17617.         -- Get the status of the agent
  17618.         select @status = 0 
  17619.         select  @start_time = NULL,
  17620.             @time = NULL, 
  17621.             @duration = NULL, 
  17622.             @comments = NULL,
  17623.             @publisher_insertcount = NULL,
  17624.             @publisher_deletecount = NULL,
  17625.             @publisher_updatecount =  NULL,
  17626.             @publisher_conflictcount =  NULL,
  17627.             @subscriber_insertcount = NULL,
  17628.             @subscriber_deletecount = NULL,
  17629.             @subscriber_updatecount =  NULL,
  17630.             @subscriber_conflictcount =  NULL,
  17631.             @delivery_rate = NULL, 
  17632.             @error_id = NULL,
  17633.             @last_timestamp = 0x00000000
  17634.                 
  17635.         select @status = isnull(runstatus,0),
  17636.             @start_time = convert(nvarchar(12), start_time, 112) +
  17637.                           substring(convert(nvarchar(24), start_time, 121), 11, 13),
  17638.             @time = convert(nvarchar(12), time, 112) +
  17639.                     substring(convert(nvarchar(24), time, 121), 11, 13), 
  17640.             @duration = duration, 
  17641.             @comments = comments,
  17642.             @publisher_insertcount = publisher_insertcount,
  17643.             @publisher_deletecount = publisher_deletecount,
  17644.             @publisher_updatecount =  publisher_updatecount,
  17645.             @publisher_conflictcount =  publisher_conflictcount,
  17646.             @subscriber_insertcount = subscriber_insertcount,
  17647.             @subscriber_deletecount = subscriber_deletecount,
  17648.             @subscriber_updatecount =  subscriber_updatecount,
  17649.             @subscriber_conflictcount =  subscriber_conflictcount,
  17650.             -- Note: return average rate here !!! delivery_rate column is current rate
  17651.             @delivery_rate = 
  17652.                 case    when duration <> 0 then 
  17653.                             (publisher_insertcount + publisher_updatecount +
  17654.                             publisher_deletecount + subscriber_insertcount + 
  17655.                             subscriber_updatecount + subscriber_deletecount)/duration
  17656.                         when duration = 0 then 0
  17657.                 end, 
  17658.             @error_id = error_id, @last_timestamp = timestamp
  17659.             from MSmerge_history
  17660.             where
  17661.                 agent_id = @agent_id and
  17662.                 timestamp = (select max(timestamp) from MSmerge_history 
  17663.                     where agent_id = @agent_id)
  17664. /* Not currently working Build 351
  17665.                 timestamp = (select top 1 timestamp from MSmerge_history 
  17666.                     where agent_id = @agent_id
  17667.                     order by timestamp DESC) 
  17668. */
  17669.         
  17670.             insert into #merge_subscriptions values ( @subscriber, @status, @subscriber_db,
  17671.                 @type, @agent_name, @comments, @time, @start_time, @duration,
  17672.                 @delivery_rate, 
  17673.                 @publisher_insertcount, @publisher_updatecount, @publisher_deletecount, 
  17674.                 @publisher_conflictcount,
  17675.                 @subscriber_insertcount, @subscriber_updatecount, @subscriber_deletecount, 
  17676.                 @subscriber_conflictcount,
  17677.                 @error_id, @job_id, @local_job, @profile_id, @agent_id, @last_timestamp,
  17678.                 @offload_enabled, @offload_server, @subscriber_type)
  17679.         
  17680.  
  17681.         fetch hC into  @subscriber_id, @subscriber_db, @agent_name, @job_id, @local_job, @profile_id, @agent_id, @subscriber_name,
  17682.                        @offload_enabled, @offload_server
  17683.       end
  17684.  
  17685.     select * from #merge_subscriptions order by job_id asc
  17686.  
  17687.     drop table #merge_subscriptions
  17688.     close hC
  17689.     deallocate hC
  17690.  
  17691. go
  17692.  
  17693. raiserror(15339,-1,-1,'sp_update_agent_profile')
  17694. GO
  17695.  
  17696. -- Update the profile for an agent
  17697. CREATE PROCEDURE sp_update_agent_profile (
  17698.     @agent_type     int,
  17699.     @agent_id       int,
  17700.     @profile_id int
  17701. )
  17702. AS
  17703.     SET NOCOUNT ON
  17704.  
  17705.     DECLARE @proc               nvarchar(255)
  17706.  
  17707.     DECLARE @snapshot_type          int
  17708.     DECLARE @logreader_type         int
  17709.     DECLARE @distribution_type      int
  17710.     DECLARE @merge_type         int
  17711.     DECLARE    @qreader_type            int
  17712.  
  17713.     SELECT @snapshot_type = 1
  17714.     SELECT @logreader_type = 2
  17715.     SELECT @distribution_type = 3
  17716.     SELECT @merge_type = 4
  17717.     SELECT @qreader_type = 9
  17718.  
  17719.     IF @agent_type NOT IN (@snapshot_type, @logreader_type, @distribution_type, @merge_type, @qreader_type)
  17720.         RETURN (1) 
  17721.  
  17722.     /* The profile must be defined for the agent type in MSagent_profiles table */
  17723.     IF NOT EXISTS ( select * from msdb..MSagent_profiles
  17724.             where profile_id = @profile_id
  17725.             and agent_type = @agent_type )
  17726.         RETURN (1)
  17727.     
  17728.     -- The system 'SkipErrors' profile is for sql subscribers only.
  17729.     if @distribution_type = @agent_type and @profile_id = 14
  17730.     begin
  17731.         declare @subscriber_id int, @publisher_id int
  17732.         select top 1 @publisher_id = publisher_id, @subscriber_id = subscriber_id from
  17733.             MSsubscriptions where agent_id = @agent_id
  17734.         declare @subscriber sysname, @publisher sysname
  17735.         select @publisher = srvname from master..sysservers where srvid = @publisher_id
  17736.         select @subscriber = srvname from master..sysservers where srvid = @subscriber_id
  17737.  
  17738.         -- Use 'exists' not 'not exists' to take care null @publisher or @subscriber
  17739.         if exists (select * from MSsubscriber_info where
  17740.             upper(publisher) = upper(@publisher) and
  17741.             upper(subscriber) = upper(@subscriber) and
  17742.             type <> 0)
  17743.         begin
  17744.             raiserror(20603, 16, -1)
  17745.             return 1
  17746.         end
  17747.     end
  17748.     
  17749.     SELECT @proc = 'UPDATE ' +
  17750.         CASE @agent_type
  17751.            WHEN @snapshot_type THEN 'MSsnapshot_agents'
  17752.            WHEN @logreader_type THEN 'MSlogreader_agents'
  17753.            WHEN @distribution_type THEN 'MSdistribution_agents'
  17754.            WHEN @merge_type THEN 'MSmerge_agents'
  17755.            WHEN @qreader_type THEN 'MSqreader_agents'
  17756.         END
  17757.         + ' SET profile_id = ' + convert(nvarchar(10), @profile_id)
  17758.         + ' WHERE id = ' + convert(nvarchar(10), @agent_id)
  17759.  
  17760.     EXECUTE (@proc)
  17761.  
  17762.     IF @@ERROR <> 0 
  17763.         RETURN (1)
  17764. GO
  17765.  
  17766.  
  17767. raiserror(15339,-1,-1,'sp_MSprofile_in_use')
  17768. GO
  17769.  
  17770. CREATE PROCEDURE sp_MSprofile_in_use (
  17771.     @tablename          nvarchar(255),
  17772.     @profile_id int
  17773. )
  17774. AS
  17775.     DECLARE @usage_count int
  17776.  
  17777.     IF @tablename IS NULL OR @profile_id IS NULL
  17778.         return 1 ;
  17779.  
  17780.     IF @tablename = 'MSsnapshot_agents'
  17781.         SELECT @usage_count = count(*) FROM MSsnapshot_agents
  17782.         WHERE profile_id = @profile_id
  17783.     ELSE IF @tablename = 'MSlogreader_agents'
  17784.             SELECT @usage_count = count(*) FROM MSlogreader_agents
  17785.             WHERE profile_id = @profile_id
  17786.         ELSE IF @tablename = 'MSdistribution_agents'
  17787.                 SELECT @usage_count = count(*) FROM MSdistribution_agents
  17788.                 WHERE profile_id = @profile_id
  17789.             ELSE IF @tablename = 'MSmerge_agents'
  17790.                     SELECT @usage_count = count(*) FROM MSmerge_agents 
  17791.                     WHERE profile_id = @profile_id
  17792.                 ELSE 
  17793.                     SELECT @usage_count = 0
  17794.  
  17795.     IF @usage_count = 0
  17796.         RETURN -1
  17797.     ELSE
  17798.         RETURN 0
  17799. GO
  17800.  
  17801.  
  17802. raiserror(15339,-1,-1,'sp_MSreset_subscription')
  17803. GO
  17804. CREATE PROCEDURE sp_MSreset_subscription (
  17805.     @publisher sysname,
  17806.     @publisher_db sysname,
  17807.     @publication sysname,  
  17808.     @subscriber sysname,
  17809.     @subscriber_db sysname,
  17810.     @subscription_type int  -- have to have it to identify a distribution agent.
  17811. ) AS
  17812.  
  17813.  
  17814.     SET NOCOUNT ON
  17815.  
  17816.     /*
  17817.     ** Declarations.
  17818.     */
  17819.     DECLARE @retcode            int
  17820.     DECLARE @publisher_id       smallint
  17821.     DECLARE @subscriber_id      smallint
  17822.     DECLARE @virtual            smallint
  17823.     declare @publication_id        int
  17824.     declare @immediate_sync        bit
  17825.  
  17826.  
  17827.     /*
  17828.     ** Initializations
  17829.     */
  17830.     select @virtual = -1
  17831.  
  17832.     select @publisher_id = srvid from master..sysservers where 
  17833.         UPPER(srvname) = UPPER(@publisher)
  17834.  
  17835.     select @subscriber_id = srvid from master..sysservers where 
  17836.         UPPER(srvname) = UPPER(@subscriber) 
  17837.  
  17838.     select @publication_id = publication_id, @immediate_sync = immediate_sync
  17839.         from MSpublications where
  17840.         publisher_id = @publisher_id AND
  17841.         publisher_db = @publisher_db AND
  17842.         publication = @publication
  17843.  
  17844.     if @subscriber is NULL
  17845.         select @subscriber_id = @virtual
  17846.  
  17847.     -- No need to have 2 updates in one transaction.
  17848.     if @immediate_sync = 1
  17849.     begin
  17850.         UPDATE MSdistribution_agents SET subscription_guid = newid()
  17851.             WHERE
  17852.             publisher_id = @publisher_id AND
  17853.             publisher_db = @publisher_db AND
  17854.             publication = @publication and
  17855.             subscriber_id = @subscriber_id and
  17856.             subscriber_db = @subscriber_db and
  17857.             subscription_type = @subscription_type
  17858.  
  17859.         IF @@ERROR <> 0
  17860.             GOTO UNDO
  17861.     end
  17862.  
  17863.     UPDATE MSsubscriptions set subscription_time = getdate() 
  17864.         WHERE
  17865.         publisher_id = @publisher_id AND
  17866.         publisher_db = @publisher_db AND
  17867.         publication_id = @publication_id and
  17868.         subscriber_id = @subscriber_id and
  17869.         subscriber_db = @subscriber_db and
  17870.         subscription_type = @subscription_type
  17871.  
  17872.     IF @@ERROR <> 0
  17873.         GOTO UNDO
  17874.  
  17875.     RETURN(0)
  17876.  
  17877. UNDO:
  17878.     return(1)
  17879. GO
  17880.  
  17881. raiserror(15339,-1,-1,'sp_MSget_subscription_guid')
  17882. GO
  17883. CREATE PROCEDURE sp_MSget_subscription_guid (
  17884. @agent_id int )
  17885. as
  17886. begin
  17887.     set nocount on
  17888.  
  17889.     -- You need to make change to sp_MShelp_distribution_agentid when changing
  17890.     -- this.    
  17891.     -- Get subscription_guid
  17892.     select a1.subscription_guid
  17893.     from MSdistribution_agents a1
  17894.     where
  17895.     -- for non anonymous agents
  17896.     ((a1.virtual_agent_id is null and a1.id = @agent_id) or
  17897.     (   -- for anonymous agents
  17898.         a1.id = (select virtual_agent_id from MSdistribution_agents a2 where
  17899.             a2.id = @agent_id)) -- virtual account
  17900.     ) 
  17901. end            
  17902. GO
  17903.  
  17904.  
  17905. raiserror(15339,-1,-1,'sp_MSreset_subscription_seqno')
  17906. GO
  17907. CREATE PROCEDURE sp_MSreset_subscription_seqno (
  17908. @agent_id int,
  17909. @get_snapshot bit )
  17910. as
  17911.     set nocount on
  17912.  
  17913.     declare @publication_id int
  17914.     declare @sub_agent_id int
  17915.     declare @virtual_anonymous smallint
  17916.     declare @virtual smallint
  17917.     declare @retcode int
  17918.     declare @automatic tinyint
  17919.  
  17920.     select @automatic = 1
  17921.     select @virtual = -1
  17922.     select @virtual_anonymous = -2
  17923.  
  17924.     -- Security Check
  17925.     exec @retcode = dbo.sp_MScheck_pull_access
  17926.         @agent_id = @agent_id,
  17927.         @agent_type = 0 -- distribution agent
  17928.     if @@error <> 0 or @retcode <> 0
  17929.         return (1)
  17930.  
  17931.     -- Get version agent_id
  17932.     select top 1 @sub_agent_id = s2.agent_id from MSsubscriptions s1,
  17933.         MSsubscriptions s2 where
  17934.         s1.publisher_id = s2.publisher_id and
  17935.         s1.publisher_db = s2.publisher_db and
  17936.         s1.publication_id = s2.publication_id and
  17937.         s1.agent_id = @agent_id and
  17938.         s2.subscriber_id = 
  17939.             case @get_snapshot when 0 
  17940.                 then @virtual_anonymous
  17941.                 else @virtual
  17942.             end 
  17943.     
  17944.     -- If there are no virtual subscriptions defined. Don't reset.
  17945.     -- This might happen when the distribution agent tries to 
  17946.     -- reset an subscription on a non immediate_sync publication 
  17947.     -- (this can
  17948.     -- only happen when the publication is changed from immediate_sync to non
  17949.     -- immdiate_sync after the distribution agent has queried the immediate_sync
  17950.     -- property)
  17951.     if @sub_agent_id = 0
  17952.         return 0
  17953.  
  17954.     -- 'no_sync' subscriptions are handled differently
  17955.     if exists (select * from MSsubscriptions where agent_id = @agent_id and 
  17956.         sync_type <> @automatic)
  17957.     begin
  17958.         -- If @get_snapshot = 0, the distribution agent is process the attached
  17959.         -- subscription for the first time. Set subscription_seqno to zero so that
  17960.         -- all changes that are not in the subscription copy will be picked up.
  17961.         -- Otherwise, do noting.
  17962.         if @get_snapshot = 0
  17963.         begin
  17964.             update MSsubscriptions  set 
  17965.                 -- Use current date rather than virtual sub date for the
  17966.                 -- calculation in cleanup 
  17967.                 subscription_time = getdate(),
  17968.                 -- lsn should be ten bytes long. We will not be here
  17969.                 -- if the publisher is 6.x since 6x publisher does not
  17970.                 -- support immediate_sync (thus does not support subscription copy as well)
  17971.                 subscription_seqno = 0x00000000000000000000,
  17972.                 publisher_seqno = 0x00000000000000000000,
  17973.                 ss_cplt_seqno = 0x00000000000000000000
  17974.                 from MSsubscriptions rs1 where
  17975.                     agent_id = @agent_id 
  17976.         end        
  17977.         return 0
  17978.     end
  17979.  
  17980.     -- Reset the subscription statue to be that of the virtual_anonymous subscription.
  17981.     -- Thus, only the snapshot transactions that are later than the subscriber transaction
  17982.     -- timestamp will be picked up (i.e., new article or schema change article.)
  17983.     update MSsubscriptions  set 
  17984.         snapshot_seqno_flag =  
  17985.             (select subscription_seqno from MSsubscriptions rs2
  17986.                 where
  17987.                 rs2.agent_id = @sub_agent_id and
  17988.                 rs2.article_id = rs1.article_id),
  17989.         status =    
  17990.             (select status from MSsubscriptions rs2
  17991.                 where
  17992.                 rs2.agent_id = @sub_agent_id and
  17993.                 rs2.article_id = rs1.article_id),
  17994.         -- Use current date rather than virtual sub date for the
  17995.         -- calculation in cleanup 
  17996.         subscription_time = getdate(),
  17997.         subscription_seqno = 
  17998.             (select subscription_seqno from MSsubscriptions rs2
  17999.                 where
  18000.                 rs2.agent_id = @sub_agent_id and
  18001.                 rs2.article_id = rs1.article_id),
  18002.         publisher_seqno = 
  18003.             (select publisher_seqno from MSsubscriptions rs2
  18004.                 where
  18005.                 rs2.agent_id = @sub_agent_id and
  18006.                 rs2.article_id = rs1.article_id),
  18007.         ss_cplt_seqno = 
  18008.             (select ss_cplt_seqno from MSsubscriptions rs2
  18009.                 where
  18010.                 rs2.agent_id = @sub_agent_id and
  18011.                 rs2.article_id = rs1.article_id)
  18012.         from MSsubscriptions rs1 where
  18013.             agent_id = @agent_id
  18014.         
  18015.     if @@ERROR <> 0
  18016.         return 1
  18017. GO
  18018.  
  18019.  
  18020. raiserror(15339,-1,-1,'sp_MShelp_profile')
  18021. GO
  18022.  
  18023. CREATE PROCEDURE sp_MShelp_profile (        
  18024.     @agent_id   int,
  18025.     @agent_type int,
  18026.     @profile_name sysname = NULL
  18027. )
  18028. as
  18029.     declare @profile_id int
  18030.     declare @snapshot_type int
  18031.     declare @logreader_type int
  18032.     declare @distribution_type int
  18033.     declare @merge_type int
  18034.     declare @qreader_type int
  18035.  
  18036.     select @snapshot_type = 1
  18037.     select @logreader_type = 2
  18038.     select @distribution_type = 3
  18039.     select @merge_type = 4
  18040.     select @qreader_type = 9
  18041.  
  18042.     select @profile_id = NULL
  18043.  
  18044.     if (@profile_name is not null) and (rtrim(ltrim(@profile_name)) <> '')
  18045.     begin
  18046.         select @profile_id = profile_id from msdb..MSagent_profiles where
  18047.             agent_type = @agent_type and profile_name = @profile_name
  18048.  
  18049.         /* raise error if profile not found */
  18050.         if (@profile_id is null)
  18051.         begin
  18052.             raiserror(21123, 16, -1, @profile_name)
  18053.             return (1)
  18054.         end
  18055.     end
  18056.     
  18057.     -- if profile name not specified, use default.
  18058.     if (@profile_id is null)
  18059.     begin
  18060.         if @agent_type = @snapshot_type 
  18061.         begin
  18062.             if @agent_id = 0
  18063.                 select @profile_id = profile_id from msdb..MSagent_profiles where
  18064.                     agent_type = @agent_type and def_profile = 1
  18065.             else
  18066.                 select @profile_id = profile_id from MSsnapshot_agents
  18067.                     where id = @agent_id
  18068.         end
  18069.         else if @agent_type = @logreader_type
  18070.         begin
  18071.             if @agent_id = 0
  18072.                 select @profile_id = profile_id from msdb..MSagent_profiles where
  18073.                     agent_type = @agent_type and def_profile = 1
  18074.             else
  18075.                 select @profile_id = profile_id from MSlogreader_agents
  18076.                     where id = @agent_id
  18077.         end
  18078.         else if @agent_type = @distribution_type
  18079.         begin
  18080.             if @agent_id = 0
  18081.                 select @profile_id = profile_id from msdb..MSagent_profiles where
  18082.                     agent_type = @agent_type and def_profile = 1
  18083.             else
  18084.                 select @profile_id = profile_id from MSdistribution_agents
  18085.                     where id = @agent_id
  18086.         end
  18087.         else if @agent_type = @merge_type
  18088.         begin
  18089.             if @agent_id = 0
  18090.                 select @profile_id = profile_id from msdb..MSagent_profiles where
  18091.                     agent_type = @agent_type and def_profile = 1
  18092.             else
  18093.                 select @profile_id = profile_id from MSmerge_agents
  18094.                     where id = @agent_id
  18095.         end
  18096.         else if @agent_type = @qreader_type
  18097.         begin
  18098.             if @agent_id = 0
  18099.                 select @profile_id = profile_id from msdb..MSagent_profiles where
  18100.                     agent_type = @agent_type and def_profile = 1
  18101.             else
  18102.                 select @profile_id = profile_id from MSqreader_agents
  18103.                     where id = @agent_id
  18104.         end
  18105.     end
  18106.     
  18107.     select profile_id, parameter_name, value 
  18108.         from msdb..MSagent_parameters
  18109.         where profile_id = @profile_id
  18110. GO
  18111.  
  18112. raiserror(15339,-1,-1,'sp_MShelp_snapshot_agentid')
  18113. GO
  18114.  
  18115. CREATE PROCEDURE sp_MShelp_snapshot_agentid (
  18116.     @publisher_id       smallint,
  18117.     @publisher_db       sysname,
  18118.     @publication        sysname,
  18119.     @job_id             binary(16) = NULL
  18120. )
  18121. AS
  18122.     set nocount on
  18123.     declare @retcode int
  18124.     declare @publisher sysname
  18125.     declare @description nvarchar(255)
  18126.  
  18127.     -- Check if agent exists, if not and there is an 6.x tasks then create one
  18128.     if @publication is not null and @publication <> '' and not exists (select * from MSsnapshot_agents where
  18129.             publisher_id = @publisher_id and
  18130.             publisher_db = @publisher_db and
  18131.             publication = @publication)
  18132.     begin
  18133.         -- Do it only if the agent name is valid. It will be the case if
  18134.         -- the agent is launched by SQL Server Agent
  18135.         if exists (select * from msdb..sysjobs_view where
  18136.             job_id = @job_id)
  18137.         begin
  18138.             select @publisher = srvname from master..sysservers where srvid = @publisher_id
  18139.             begin tran
  18140.             exec @retcode = dbo.sp_MSadd_snapshot_agent
  18141.                 @publisher = @publisher, 
  18142.                 @publisher_db = @publisher_db,
  18143.                 @publication = @publication,
  18144.                 @local_job = 1,
  18145.                 @job_existing = 1,
  18146.                 @snapshot_jobid = @job_id
  18147.             if @@ERROR<> 0 or @retcode <> 0
  18148.                 goto UNDO
  18149.  
  18150.             -- Add a publication definition so it shows up in monitoring procs
  18151.             set @description = formatmessage(20555)
  18152.             exec @retcode = dbo.sp_MSadd_publication
  18153.                 @publisher = @publisher,
  18154.                 @publisher_db = @publisher_db,
  18155.                 @publication = @publication,
  18156.                 @publication_type = 1,              -- Make all 6.x pubs transactional
  18157.                 @description = @description     -- 6.x publication description
  18158.  
  18159.             if @@ERROR<> 0 or @retcode <> 0
  18160.                 goto UNDO
  18161.             commit tran
  18162.         end
  18163.     end
  18164.  
  18165.     select id, name from MSsnapshot_agents  where 
  18166.         publisher_id = @publisher_id and
  18167.         publisher_db = @publisher_db and
  18168.         publication = @publication
  18169.  
  18170.     return(0)
  18171.  
  18172. UNDO:
  18173.     if @@TRANCOUNT = 1
  18174.         ROLLBACK TRAN
  18175.     else
  18176.         COMMIT TRAN
  18177.     return(1)
  18178. GO
  18179.  
  18180. raiserror(15339,-1,-1,'sp_MShelp_logreader_agentid')
  18181. GO
  18182.  
  18183. CREATE PROCEDURE sp_MShelp_logreader_agentid (
  18184.     @publisher_id       smallint,
  18185.     @publisher_db       sysname
  18186. )
  18187. AS
  18188.     set nocount on
  18189.     declare @retcode int
  18190.     declare @publisher sysname
  18191.     declare @job_id binary(16)
  18192.     declare @qv_package    varchar(20)
  18193.     declare @desk_top        int
  18194.     declare @license_value int
  18195.     declare @qv_value_package int
  18196.  
  18197.     select @qv_package = '845129433'
  18198.     select @license_value = 0 
  18199.     select @desk_top = 3
  18200.             
  18201.     exec @qv_value_package = master..xp_qv @qv_package
  18202.     if @@ERROR<>0 
  18203.         begin
  18204.             raiserror(20089, 16, -1)
  18205.             return (1)
  18206.         end
  18207.     if @qv_value_package = 1         --- 1 means desktop
  18208.         select @license_value = @desk_top   -- to be consistent with all other compenents.
  18209.     
  18210.     -- Check if agent exists, if not and there is an 6.x tasks then create one
  18211.     if not exists (select * from MSlogreader_agents where
  18212.             publisher_id = @publisher_id and
  18213.             publisher_db = @publisher_db)
  18214.     begin
  18215.         select @publisher = srvname from master..sysservers where srvid = @publisher_id
  18216.  
  18217.         -- Do it only if the agent name is valid. It will be the case if
  18218.         -- the agent is launched by SQL Server Agent
  18219.         select @job_id = id.job_id from msdb..systasks_view v,
  18220.             msdb..systaskids id
  18221.             where 
  18222.             v.server = @publisher and           
  18223.             v.databasename = @publisher_db and
  18224.             v.subsystem = 'LogReader' and
  18225.             v.id = id.task_id
  18226.  
  18227.         if @job_id is not NULL
  18228.         begin
  18229.             exec @retcode = dbo.sp_MSadd_logreader_agent
  18230.                 @publisher = @publisher, 
  18231.                 @publisher_db = @publisher_db,
  18232.                 -- 'ALL' is Used in sp_addpublication as well
  18233.                 @publication = 'ALL',
  18234.                 @local_job = 1,
  18235.                 @job_existing = 1,
  18236.                 @job_id = @job_id
  18237.             if @@ERROR<> 0 or @retcode <> 0
  18238.                 return(1)
  18239.         end
  18240.     end
  18241.   
  18242.     select id, name, @license_value from MSlogreader_agents where 
  18243.         publisher_id = @publisher_id and 
  18244.         publisher_db = @publisher_db
  18245.  
  18246.     return(0)
  18247.  
  18248. GO
  18249.  
  18250. /*
  18251. ** This procedure is to add an agent row in MSmerge_agents for an anonymous subscription,
  18252. ** if it is not already there. If it is, return the agentid and agent name for monitoring
  18253. ** purpose.
  18254. */
  18255. raiserror(15339,-1,-1,'sp_MSadd_merge_anonymous_agent')
  18256. GO
  18257.  
  18258. CREATE PROCEDURE sp_MSadd_merge_anonymous_agent (
  18259.     @publisher_id       smallint,
  18260.     @publisher_db       sysname,
  18261.     @publication        sysname,
  18262.     @subscriber_db      sysname,
  18263.     @subscriber_name    sysname,
  18264.     @subid              uniqueidentifier, 
  18265.     @first_anonymous    int        -- 0 means this is the first time for this anonymous agent being ran.
  18266. )
  18267. AS
  18268.     declare @min_valid_day  datetime
  18269.     declare @merge_type     int
  18270.     declare @profile_id     int
  18271.     declare @subscriber_id  smallint
  18272.     declare @agent_name     sysname
  18273.     declare @agent_id       int
  18274.     declare @retcode        int
  18275.     declare @publication_id int
  18276.     declare @not_exist      bit
  18277.     declare @last_status    int
  18278.     declare @last_history    datetime
  18279.     declare @merge_jobid    uniqueidentifier
  18280.     declare @by_pass        bit
  18281.     declare @retention        int
  18282.     declare @success        int
  18283.     declare @expired        int
  18284.     declare @dropped        int
  18285.     declare @allow_anonymous bit
  18286.  
  18287.     select @dropped = 0
  18288.     select @expired = 0
  18289.     select @success = 2
  18290.     select @by_pass = 0
  18291.  
  18292. /*
  18293. ** This stored procedure does not really add a job at distribution database;
  18294. ** if add a row in MSmerge_agent table for anonymous subscription for the 
  18295. ** purpose of history logging
  18296. */
  18297.  
  18298.     -- Check to see if the publication is valid and allow anonymous
  18299.     select @publication_id = publication_id, @allow_anonymous = allow_anonymous, @retention = retention from MSpublications where
  18300.         publisher_id = @publisher_id and
  18301.         publisher_db = @publisher_db and
  18302.         publication = @publication
  18303.  
  18304.     if @publication_id is null
  18305.     begin
  18306.         RAISERROR (21040, 16, -1, @publication)
  18307.         return 1
  18308.     end
  18309.  
  18310.     if @allow_anonymous = 0
  18311.     begin
  18312.         RAISERROR (21084, 16, -1, @publication)
  18313.         return 1
  18314.     end
  18315.  
  18316.     if @subscriber_name is null
  18317.         select @subscriber_name = N''
  18318.  
  18319.     if @retention is NULL or @retention =0
  18320.         select @by_pass = 1
  18321.  
  18322.     -- Security check
  18323.     exec @retcode = dbo.sp_MScheck_pull_access
  18324.         @publication_id = @publication_id, @agent_type = 1
  18325.     if @retcode <> 0 or @@error <> 0
  18326.         return (1)
  18327.  
  18328.     select @not_exist = 0
  18329.     SELECT @merge_type = 4
  18330.     select @subscriber_id = 0  -- For anonymous subscribers, ID is always 0 
  18331.  
  18332.     SELECT @profile_id = profile_id
  18333.     FROM msdb..MSagent_profiles
  18334.     WHERE agent_type = @merge_type
  18335.         AND def_profile = 1
  18336.  
  18337.     IF @profile_id IS NULL
  18338.         RETURN (1)
  18339.  
  18340.     /*
  18341.     ** This is to handle Jet only
  18342.     */
  18343.     IF @subid = '00000000-0000-0000-0000-000000000000'
  18344.     begin
  18345.         select @subid = anonymous_subid from MSmerge_agents 
  18346.                 where publisher_id=@publisher_id and 
  18347.                       publisher_db = @publisher_db and 
  18348.                       publication = @publication and 
  18349.                       subscriber_name = @subscriber_name 
  18350.                       and subscriber_db = @subscriber_db
  18351.         if @subid = '00000000-0000-0000-0000-000000000000'
  18352.             select @subid = newid()
  18353.         else
  18354.             select @first_anonymous = 1   -- for Jet, schemaversion should not be 0 in this path.
  18355.     end
  18356.          
  18357.     IF NOT EXISTS (select * from MSmerge_agents where anonymous_subid=@subid)
  18358.     begin
  18359.  
  18360.         if @first_anonymous <= 0   --only add agent entry for initial subscription only. 
  18361.         begin
  18362.             select @not_exist = 1
  18363.  
  18364.             -- Generate a job GUID for remote agents. This will be used by the UI to uniquely
  18365.             -- identify rows returned by the enums
  18366.             set @merge_jobid = newid();
  18367.  
  18368.             insert into MSmerge_agents (name, publisher_id, publisher_db, publication, 
  18369.                         subscriber_id, subscriber_db, anonymous_subid, job_id, profile_id, subscriber_name)
  18370.                     VALUES (convert(nvarchar(40), @subid), @publisher_id, @publisher_db, @publication, 
  18371.                             @subscriber_id, @subscriber_db, @subid, @merge_jobid, @profile_id, @subscriber_name)
  18372.         end
  18373.         else
  18374.             select @dropped  =1
  18375.     end
  18376.     
  18377.     select @agent_id = id, @agent_name = name from MSmerge_agents 
  18378.         where anonymous_subid=@subid  -- subid guarantees uniqueness
  18379.     
  18380.     if @by_pass = 0 --by pass the checking if retention is NULL or 0
  18381.     begin
  18382.         select @min_valid_day = dateadd(day, -@retention, getdate())
  18383.         
  18384.         select Top 1 @last_status = runstatus, @last_history = time from MSmerge_history where agent_id = @agent_id
  18385.                     order by time DESC
  18386.         if @last_status = 6 and EXISTS (select * from MSmerge_history where agent_id = @agent_id and runstatus = 2) 
  18387.                 select Top 1 @last_history = time from MSmerge_history where agent_id = @agent_id and runstatus = 2
  18388.                         order by time DESC    
  18389.         /*
  18390.         ** This anonymous subscription is gone for too long to be efficiently reconciled. Either reinitialization or
  18391.         ** re-deployment of this subscription is needed. Merge agent will fail.
  18392.         */
  18393.         if @last_history < @min_valid_day and @first_anonymous <> 0    --do not check for re-initialized replicas.
  18394.                     select @expired = 1
  18395.    end
  18396.  
  18397.     select @agent_id, @agent_name, @expired where @dropped = 0 --return empty result set 
  18398.         
  18399. GO
  18400.  
  18401.  
  18402. raiserror(15339,-1,-1,'sp_MShelp_merge_agentid')
  18403. GO
  18404.  
  18405. CREATE PROCEDURE sp_MShelp_merge_agentid (
  18406.     @publisher_id       smallint,
  18407.     @publisher_db       sysname,
  18408.     @publication        sysname,
  18409.     @subscriber_id      smallint,
  18410.     @subscriber_db      sysname
  18411. )
  18412. AS
  18413.     declare @publisher        sysname
  18414.     declare @subscriber        sysname
  18415.     declare @expired        int
  18416.     declare @agent_id         int
  18417.     declare @name             sysname
  18418.     declare @retention         int
  18419.     declare @last_status    int
  18420.     declare @last_history    datetime
  18421.     declare @min_valid_day     datetime
  18422.     declare @reinited         int
  18423.     declare @status         int
  18424.     declare @success        int
  18425.     declare @publication_id    int
  18426.     declare @subscriber_datasource_type int
  18427.     declare @sql_subscriber    int
  18428.     
  18429.     select @expired = 0
  18430.     select @reinited = 4
  18431.     select @success = 2
  18432.  
  18433.     select @subscriber_datasource_type = 0
  18434.     select @sql_subscriber = 0
  18435.  
  18436.     if not EXISTS (select * from MSpublications 
  18437.         where publisher_id=@publisher_id 
  18438.         and publisher_db = @publisher_db
  18439.         and publication = @publication
  18440.         and publication_type = 2) -- merge publication is gone
  18441.     begin
  18442.         select 1, @publication, 1, 0 --third column = 1 means publication is gone, making the other values meanningless.
  18443.         return (1)
  18444.     end
  18445.  
  18446.        select @publication_id = publication_id 
  18447.         from MSpublications
  18448.         where publisher_id = @publisher_id and
  18449.               publisher_db = @publisher_db and
  18450.               publication = @publication
  18451.  
  18452.     -- Get subscriber info
  18453.     select @subscriber = srvname from master..sysservers where srvid = @subscriber_id
  18454.     select @publisher = srvname from master..sysservers where srvid = @publisher_id
  18455.  
  18456.     select @subscriber_datasource_type = type
  18457.         from MSsubscriber_info 
  18458.         where UPPER(publisher) = UPPER(@publisher) and UPPER(subscriber) = UPPER(@subscriber)
  18459.  
  18460.     if (@subscriber_datasource_type = @sql_subscriber)
  18461.     begin
  18462.         select @status = status from MSmerge_subscriptions where
  18463.             publisher_id = @publisher_id and 
  18464.             publisher_db = @publisher_db and 
  18465.             publication_id = @publication_id and
  18466.             subscriber_id = @subscriber_id and
  18467.             subscriber_db = @subscriber_db
  18468.  
  18469.         select @agent_id = id, @name = name from MSmerge_agents 
  18470.             where publisher_id = @publisher_id 
  18471.             and publisher_db = @publisher_db
  18472.             and publication = @publication
  18473.             and subscriber_id = @subscriber_id
  18474.             and subscriber_db = @subscriber_db
  18475.     end
  18476.     else
  18477.     begin
  18478.         select @status = status from MSmerge_subscriptions where
  18479.             publisher_id = @publisher_id and 
  18480.             publisher_db = @publisher_db and 
  18481.             publication_id = @publication_id and
  18482.             subscriber_id = @subscriber_id
  18483.  
  18484.         select @agent_id = id, @name = name from MSmerge_agents 
  18485.             where publisher_id = @publisher_id 
  18486.             and publisher_db = @publisher_db
  18487.             and publication = @publication
  18488.             and subscriber_id = @subscriber_id
  18489.     end
  18490.  
  18491.     -- Security check. Do it here to let the agent fail at the beginning
  18492.     if @agent_id is not null
  18493.     begin
  18494.         exec dbo.sp_MScheck_pull_access @agent_id = @agent_id, @agent_type = 1 -- merge agent
  18495.         select @retention = retention 
  18496.             from MSpublications 
  18497.             where publisher_id=@publisher_id and publisher_db=@publisher_db and publication=@publication 
  18498.  
  18499.         if @retention is not NULL and @retention > 0
  18500.         begin
  18501.             select @min_valid_day = dateadd(day, @retention * (-1), getdate()) 
  18502.             select Top 1 @last_status = runstatus, @last_history = time 
  18503.                     from MSmerge_history where agent_id = @agent_id
  18504.                         order by time DESC
  18505.             if @last_status = 6 and EXISTS (select * from MSmerge_history where  agent_id = @agent_id and runstatus = 2) 
  18506.                 select Top 1 @last_history = time from MSmerge_history where agent_id = @agent_id and runstatus = 2
  18507.                                 order by time DESC    
  18508.             if @last_history < @min_valid_day and @status <> @reinited
  18509.                 select @expired = 1
  18510.         end
  18511.     end
  18512.  
  18513. select @agent_id, @name, 0, @expired where @agent_id is not NULL
  18514. GO
  18515.  
  18516. raiserror(15339,-1,-1,'sp_MSdistpublisher_cleanup')
  18517. GO
  18518.  
  18519. CREATE PROCEDURE sp_MSdistpublisher_cleanup 
  18520. @publisher sysname
  18521. as
  18522.  
  18523.     set nocount on
  18524.     declare @publisher_id smallint
  18525.     declare @job_id binary(16)
  18526.     declare @retcode int
  18527.     
  18528.     -- Delete agents
  18529.     -- Get the publisher id
  18530.     -- Check if publisher is a defined as a distribution publisher in the current database
  18531.     exec @retcode = dbo.sp_MSvalidate_distpublisher @publisher, @publisher_id OUTPUT
  18532.     if @retcode <> 0
  18533.     begin
  18534.         return(1)
  18535.     end
  18536.     
  18537.     -- Dropping local jobs
  18538.     -- Use union in 'select'. Insensitive cursor will be used automatically.
  18539.     DECLARE hCagents CURSOR LOCAL FAST_FORWARD FOR
  18540.             SELECT job_id 
  18541.                 FROM MSsnapshot_agents
  18542.                 WHERE publisher_id = @publisher_id and local_job = 1
  18543.         UNION
  18544.             SELECT job_id
  18545.                 FROM MSlogreader_agents
  18546.                 WHERE publisher_id = @publisher_id and local_job = 1
  18547.         UNION
  18548.             SELECT job_id 
  18549.                 FROM MSdistribution_agents
  18550.                 WHERE publisher_id = @publisher_id and local_job = 1
  18551.         UNION
  18552.             SELECT job_id
  18553.                 FROM MSmerge_agents
  18554.                 WHERE publisher_id = @publisher_id  and local_job = 1
  18555.         FOR READ ONLY
  18556.  
  18557.     OPEN hCagents
  18558.     FETCH hCagents INTO @job_id
  18559.    
  18560.     WHILE (@@fetch_status <> -1)
  18561.     BEGIN
  18562.         IF EXISTS (SELECT * FROM msdb..sysjobs_view WHERE job_id = @job_id)
  18563.         BEGIN
  18564.             exec @retcode = msdb.dbo.sp_delete_job @job_id = @job_id
  18565.             if @retcode <> 0 or @@error <> 0
  18566.                 return(1)
  18567.         END
  18568.         FETCH hCagents INTO @job_id 
  18569.     end
  18570.  
  18571.     -- Clean up the tables, including
  18572.     --  4 Agent tables
  18573.     --  2 subscription tables
  18574.     --  article table
  18575.     --  publication table
  18576.     --  2 subscriber table
  18577.     -- The order is to avoid breaking monitoring
  18578.  
  18579.  
  18580.     delete MSpublisher_databases where publisher_id = @publisher_id
  18581.     if @@error <> 0 
  18582.         return (1) 
  18583.  
  18584.     delete MSpublications where publisher_id = @publisher_id
  18585.     if @@error <> 0 
  18586.         return (1) 
  18587.  
  18588.     delete MSarticles where publisher_id = @publisher_id
  18589.     if @@error <> 0 
  18590.         return (1) 
  18591.  
  18592.     delete MSsubscriptions where publisher_id = @publisher_id
  18593.     if @@error <> 0 
  18594.         return (1) 
  18595.  
  18596.     delete MSmerge_subscriptions where publisher_id = @publisher_id
  18597.     if @@error <> 0 
  18598.         return (1) 
  18599.  
  18600.     delete MSsnapshot_agents where publisher_id = @publisher_id
  18601.     if @@error <> 0 
  18602.         return (1) 
  18603.     
  18604.     delete MSlogreader_agents where publisher_id = @publisher_id
  18605.     if @@error <> 0 
  18606.         return (1) 
  18607.  
  18608.     delete MSdistribution_agents where publisher_id = @publisher_id
  18609.     if @@error <> 0 
  18610.         return (1) 
  18611.  
  18612.     delete MSmerge_agents where publisher_id = @publisher_id
  18613.     if @@error <> 0 
  18614.         return (1) 
  18615.  
  18616.     delete MSsubscriber_info where UPPER(publisher) = UPPER(@publisher)
  18617.     if @@error <> 0 
  18618.         return (1) 
  18619.  
  18620.     delete MSsubscriber_schedule where UPPER(publisher) = UPPER(@publisher)
  18621.     if @@error <> 0 
  18622.         return (1) 
  18623.  
  18624.     delete MSpublication_access where not exists (select * from MSpublications p where
  18625.         p.publication_id = MSpublication_access.publication_id)
  18626.     if @@error <> 0 
  18627.         return (1) 
  18628.  
  18629.     delete MSrepl_originators where 
  18630.         not exists (select * from MSpublisher_databases p
  18631.             where p.id = MSrepl_originators.publisher_database_id )
  18632.     if @@error <> 0 
  18633.         return (1) 
  18634.  
  18635.     -- Force a refresh of the replication status temp table.
  18636.     if (select object_id('tempdb.dbo.MSreplication_agent_status')) is not NULL
  18637.         delete tempdb.dbo.MSreplication_agent_status
  18638. GO
  18639.  
  18640. raiserror(15339,-1,-1,'sp_MSenum_replication_status')
  18641. GO
  18642.  
  18643. create procedure sp_MSenum_replication_status
  18644. as
  18645.     declare @anonymous_mask int
  18646.     select @anonymous_mask = 0x80000000
  18647.  
  18648.     select 'publisher' = srvname, 'publisher_db' = sa.publisher_db, 
  18649.         'publication' = sa.publication, 'publication_type' = sa.publication_type,
  18650.         'agent_type' = 1, 'status' = runstatus, 'agent_name' = sa.name from 
  18651.         MSsnapshot_history sh1, master..sysservers, MSsnapshot_agents sa
  18652.         where 
  18653.         sh1.timestamp = (select max(timestamp) from MSsnapshot_history sh2 where
  18654.             sh2.agent_id = sa.id) and
  18655.         srvid = sa.publisher_id 
  18656.     UNION
  18657.     select srvname, sa.publisher_db, sa.publication, sa.publication_type, 
  18658.         1, 0, sa.name from 
  18659.         master..sysservers, MSsnapshot_agents sa
  18660.         where 
  18661.         srvid = sa.publisher_id and
  18662.         not exists (select * from MSsnapshot_history sh where sh.agent_id = sa.id)
  18663.     UNION
  18664.     select srvname, la.publisher_db, 'ALL', 0, 2, runstatus, la.name from
  18665.         MSlogreader_history lh1, MSlogreader_agents la, master..sysservers
  18666.         where timestamp = (select max(timestamp) from 
  18667.             MSlogreader_history lh2 where
  18668.             lh2.agent_id = la.id) and
  18669.             srvid = la.publisher_id
  18670.     UNION
  18671.     select srvname, la.publisher_db, 'ALL', 0, 2, 0, la.name from
  18672.         MSlogreader_agents la, master..sysservers
  18673.         where
  18674.             srvid = la.publisher_id and
  18675.             not exists (select * from MSlogreader_history lh where lh.agent_id = la.id)
  18676.     UNION
  18677.     select srvname, da.publisher_db, da.publication, p.publication_type, 3, runstatus, da.name from 
  18678.             MSdistribution_history dh1, master..sysservers, 
  18679.             MSdistribution_agents da, MSpublications p, MSsubscriptions s
  18680.             where timestamp = (select max(timestamp) from 
  18681.                 MSdistribution_history dh2 where
  18682.                 dh2.agent_id = da.id) and
  18683.                 srvid = da.publisher_id and
  18684.                 s.agent_id = da.id and
  18685.                 p.publication_id = s.publication_id
  18686.     UNION
  18687.     select srvname, da.publisher_db, da.publication, p.publication_type, 3, 0, da.name from 
  18688.             master..sysservers, 
  18689.             MSdistribution_agents da,
  18690.             MSpublications p,
  18691.             MSsubscriptions s
  18692.             where 
  18693.                 srvid = da.publisher_id and
  18694.                 not exists (select * from MSdistribution_history dh where dh.agent_id = da.id) and
  18695.                 s.agent_id = da.id and
  18696.                 p.publication_id = s.publication_id
  18697.     UNION    -- Load distribution dummy rows
  18698.     -- The select below will return dumplicates but it will be eliminated by union operator.
  18699.     select srvname, da.publisher_db, p.publication, p.publication_type, 
  18700.             case    when da.anonymous_agent_id is not null then 3 | @anonymous_mask
  18701.                     else 3
  18702.             end,
  18703.             runstatus, da.name from 
  18704.             MSdistribution_history dh1, master..sysservers, 
  18705.             MSdistribution_agents da, MSpublications p, MSsubscriptions s
  18706.             where timestamp = (select max(timestamp) from 
  18707.                 MSdistribution_history dh2 where
  18708.                 dh2.agent_id = da.id) and
  18709.                 srvid = da.publisher_id and
  18710.                 s.agent_id = da.id and
  18711.                 p.publication_id = s.publication_id
  18712.     UNION -- Load distrbution dummy_rows
  18713.     select srvname, da.publisher_db, p.publication, p.publication_type, 3, 0, da.name from 
  18714.             master..sysservers, 
  18715.             MSdistribution_agents da,
  18716.             MSpublications p,
  18717.             MSsubscriptions s
  18718.             where 
  18719.                 srvid = da.publisher_id and
  18720.                 not exists (select * from MSdistribution_history dh where dh.agent_id = da.id) and
  18721.                 s.agent_id = da.id and
  18722.                 p.publication_id = s.publication_id
  18723.     UNION
  18724.     select srvname, ma.publisher_db, ma.publication, 2,
  18725.         case    when ma.subscriber_name is not null then 4 | @anonymous_mask
  18726.                 else 4
  18727.         end,
  18728.         runstatus, ma.name from 
  18729.         MSmerge_history mh1, master..sysservers, MSmerge_agents ma
  18730.         where timestamp = (select max(timestamp) from
  18731.             MSmerge_history mh2 where
  18732.             mh2.agent_id = ma.id) and
  18733.             srvid = ma.publisher_id 
  18734.  
  18735.     UNION
  18736.     select srvname, ma.publisher_db, ma.publication, 2, 4, 0, ma.name from 
  18737.         master..sysservers, MSmerge_agents ma
  18738.         where 
  18739.             srvid = ma.publisher_id and
  18740.             not exists (select * from MSmerge_history mh where mh.agent_id = ma.id)
  18741.  
  18742.     UNION -- queue reader        
  18743.     select 'publisher'= @@servername, 'publisher_db' = db_name(), 'publication' = 'ALL', 
  18744.             'publication_type' = 0, 'agent_type' = 9, 'status' = runstatus, 'agent_name' = la.name 
  18745.     from MSqreader_history lh1, MSqreader_agents la
  18746.     where lh1.timestamp = 
  18747.             (select max(timestamp) from MSqreader_history lh2 
  18748.             where lh2.agent_id = la.id) 
  18749.  
  18750.     order by publisher, publisher_db, publication
  18751.  
  18752. go
  18753.  
  18754. raiserror(15339,-1,-1,'sp_MSagent_stethoscope')
  18755. GO
  18756. CREATE PROCEDURE sp_MSagent_stethoscope (
  18757.     @heartbeat_interval int = 10  --minutes
  18758. )
  18759. as
  18760. BEGIN
  18761.     declare @current_time datetime
  18762.             ,@agent_name nvarchar(100)
  18763.             ,@agent_id int
  18764.             ,@job_id binary(16)
  18765.             ,@start_time datetime
  18766.             ,@duration int
  18767.             ,@comments nvarchar(255)
  18768.             ,@publisher_id smallint
  18769.             ,@publisher sysname
  18770.             ,@publisher_db sysname
  18771.             ,@heartbeat_failure bit
  18772.             ,@snapshot_type int
  18773.             ,@logreader_type int
  18774.             ,@distribution_type int
  18775.             ,@merge_type int
  18776.             ,@qreader_type int
  18777.             ,@histverboselevel tinyint
  18778.  
  18779.     --
  18780.     -- initialize
  18781.     --
  18782.     set nocount on
  18783.     select @snapshot_type = 1
  18784.             ,@logreader_type = 2
  18785.             ,@distribution_type = 3
  18786.             ,@merge_type = 4
  18787.             ,@qreader_type = 9
  18788.             ,@heartbeat_failure = 0
  18789.             ,@current_time = getdate()
  18790.             ,@comments = formatmessage(20554, @heartbeat_interval)
  18791.  
  18792.     -- If a running snapshot agent has not logged a history message within the specified
  18793.     -- heartbeat_interval then raise a agent suspect error
  18794.     declare hC_snapshot_suspect CURSOR LOCAL FAST_FORWARD for 
  18795.         select sh1.agent_id, sh1.start_time from MSsnapshot_history sh1 where
  18796.             (sh1.runstatus = 1 or sh1.runstatus = 3 or sh1.runstatus = 4) and
  18797.             dateadd(minute, @heartbeat_interval, sh1.time) < @current_time and
  18798.             sh1.timestamp = (select max(timestamp) from MSsnapshot_history where
  18799.                 agent_id= sh1.agent_id)
  18800.         for read only
  18801.  
  18802.     open hC_snapshot_suspect
  18803.     fetch hC_snapshot_suspect into @agent_id, @start_time
  18804.     while (@@fetch_status <> -1)
  18805.     begin
  18806.  
  18807.         set @heartbeat_failure = 1
  18808.  
  18809.         -- Get the agent name
  18810.         select @agent_name = name, @job_id = job_id from MSsnapshot_agents where id = @agent_id
  18811.  
  18812.         -- Log a "No action" message on behalf of the agent
  18813.         exec dbo.sp_MSadd_snapshot_history
  18814.             @agent_id = @agent_id,
  18815.             @runstatus = 6,     -- Failure status
  18816.             @comments = @comments,
  18817.             @do_raiserror = 0
  18818.  
  18819.         fetch hC_snapshot_suspect into @agent_id, @start_time
  18820.     end
  18821.     close hC_snapshot_suspect
  18822.     deallocate hC_snapshot_suspect
  18823.  
  18824.  
  18825.     -- If a running logreader agent has not logged a history message within the specified
  18826.     -- heartbeat_interval then raise a agent suspect error
  18827.     declare hC_logreader_suspect CURSOR LOCAL FAST_FORWARD for 
  18828.         select la.id, sh1.start_time from MSlogreader_agents la, MSlogreader_history sh1 where
  18829.             (sh1.runstatus = 1 or sh1.runstatus = 3 or sh1.runstatus = 4) and
  18830.             dateadd(minute, @heartbeat_interval, sh1.time) < @current_time and
  18831.             sh1.timestamp = (select max(timestamp) from MSlogreader_history where
  18832.                 agent_id= sh1.agent_id) and
  18833.             la.id = sh1.agent_id
  18834.         for read only
  18835.  
  18836.     open hC_logreader_suspect
  18837.     fetch hC_logreader_suspect into @agent_id, @start_time
  18838.     while (@@fetch_status <> -1)
  18839.     begin
  18840.         set @heartbeat_failure = 1
  18841.  
  18842.         -- Get the agent name
  18843.         select @agent_name = name, @job_id = job_id from MSlogreader_agents where id = @agent_id
  18844.  
  18845.         -- Log a "No action" message on behalf of the agent
  18846.         select @publisher_id = publisher_id, @publisher_db = publisher_db from MSlogreader_agents where id = @agent_id
  18847.         select @publisher = srvname from master..sysservers where srvid = @publisher_id
  18848.         exec dbo.sp_MSadd_logreader_history
  18849.             @agent_id = @agent_id,
  18850.             @runstatus = 6,     -- Failure status
  18851.             @comments = @comments,
  18852.             @do_raiserror = 0
  18853.  
  18854.         fetch hC_logreader_suspect into @agent_id, @start_time
  18855.     end
  18856.     close hC_logreader_suspect
  18857.     deallocate hC_logreader_suspect
  18858.  
  18859.     -- If a running distribution agent has not logged a history message within the specified
  18860.     -- heartbeat_interval then raise a agent suspect error
  18861.     declare hC_distribution_suspect CURSOR LOCAL FAST_FORWARD for 
  18862.         select sh1.agent_id, sh1.start_time from MSdistribution_history sh1 where
  18863.             (sh1.runstatus = 1 or sh1.runstatus = 3 or sh1.runstatus = 4) and
  18864.             dateadd(minute, @heartbeat_interval, sh1.time) < @current_time and
  18865.             sh1.timestamp = (select max(timestamp) from MSdistribution_history where
  18866.                 agent_id= sh1.agent_id)
  18867.         for read only
  18868.  
  18869.     open hC_distribution_suspect
  18870.     fetch hC_distribution_suspect into @agent_id, @start_time
  18871.     while (@@fetch_status <> -1)
  18872.     begin
  18873.         -- Get the agent name
  18874.         select @heartbeat_failure = 1
  18875.         select @agent_name = name, @job_id = job_id from MSdistribution_agents where id = @agent_id
  18876.  
  18877.         -- Log a "No action" message on behalf of the agent
  18878.         exec dbo.sp_MSadd_distribution_history
  18879.             @agent_id = @agent_id,
  18880.             @runstatus = 6,     -- Failure status
  18881.             @comments = @comments,
  18882.             @do_raiserror = 0
  18883.         fetch hC_distribution_suspect into @agent_id, @start_time
  18884.     end
  18885.     close hC_distribution_suspect
  18886.     deallocate hC_distribution_suspect
  18887.  
  18888.     -- If a running merge agent has not logged a history message within the specified
  18889.     -- heartbeat_interval then raise a agent suspect error
  18890.     declare hC_merge_suspect CURSOR LOCAL FAST_FORWARD for 
  18891.         select sh1.agent_id, sh1.start_time from MSmerge_history sh1 where
  18892.             (sh1.runstatus = 1 or sh1.runstatus = 3 or sh1.runstatus = 4) and
  18893.             dateadd(minute, @heartbeat_interval, sh1.time) < @current_time and
  18894.             sh1.timestamp = (select max(timestamp) from MSmerge_history where
  18895.                 agent_id= sh1.agent_id)
  18896.         for read only
  18897.  
  18898.     open hC_merge_suspect
  18899.     fetch hC_merge_suspect into @agent_id, @start_time
  18900.     while (@@fetch_status <> -1)
  18901.     begin
  18902.         set @heartbeat_failure = 1
  18903.  
  18904.         -- Get the agent name
  18905.         select @agent_name = name, @job_id = job_id from MSmerge_agents where id = @agent_id
  18906.  
  18907.         -- Log a "No action" message on behalf of the agent
  18908.         exec dbo.sp_MSadd_merge_history
  18909.             @agent_id = @agent_id,
  18910.             @runstatus = 6,     -- Failure status
  18911.             @comments = @comments,
  18912.             @do_raiserror = 0
  18913.  
  18914.         fetch hC_merge_suspect into @agent_id, @start_time
  18915.     end
  18916.     close hC_merge_suspect
  18917.     deallocate hC_merge_suspect
  18918.  
  18919.     -- If a running queuereader agent has not logged a history message within the specified
  18920.     -- heartbeat_interval then raise a agent suspect error
  18921.     declare hC_qrdr_suspect CURSOR LOCAL FAST_FORWARD for 
  18922.         select sh1.agent_id, sh1.start_time from MSqreader_history sh1 where
  18923.             (sh1.runstatus = 1 or sh1.runstatus = 3 or sh1.runstatus = 4) and
  18924.             dateadd(minute, @heartbeat_interval, sh1.time) < @current_time and
  18925.             sh1.timestamp = (select max(timestamp) from MSqreader_history where
  18926.                 agent_id= sh1.agent_id)
  18927.         for read only
  18928.  
  18929.     open hC_qrdr_suspect
  18930.     fetch hC_qrdr_suspect into @agent_id, @start_time
  18931.     while (@@fetch_status <> -1)
  18932.     begin
  18933.         set @heartbeat_failure = 1
  18934.  
  18935.         -- Get the agent name
  18936.         select @agent_name = name, @job_id = job_id from MSqreader_agents where id = @agent_id
  18937.  
  18938.         -- Log a "No action" message on behalf of the agent
  18939.         exec dbo.sp_MSadd_qreader_history
  18940.             @agent_id = @agent_id,
  18941.             @runstatus = 6,     -- Failure status
  18942.             @comments = @comments,
  18943.             @do_raiserror = 0
  18944.  
  18945.         fetch hC_qrdr_suspect into @agent_id, @start_time
  18946.     end
  18947.     close hC_qrdr_suspect
  18948.     deallocate hC_qrdr_suspect
  18949.  
  18950.     -- Log all is fine message
  18951.     if @heartbeat_failure = 0
  18952.         -- "Detected heartbeat for all running Replication Agents"
  18953.         set @comments = formatmessage(20556)    
  18954.     else
  18955.         -- "Could not detected heartbeat for all running Replication Agents"
  18956.         set @comments = formatmessage(20580)    
  18957.  
  18958.     raiserror (20554, 10, -1, @heartbeat_interval)
  18959. END
  18960. GO
  18961.  
  18962. raiserror(15339,-1,-1,'sp_MSlock_distribution_agent')
  18963. GO
  18964.  
  18965. CREATE PROCEDURE sp_MSlock_distribution_agent (
  18966.     @id int,
  18967.     @mode int = 1 -- 0: shared  1: exclusive
  18968. ) AS
  18969.  
  18970.  
  18971.     SET         NOCOUNT ON
  18972.     DECLARE     @active tinyint
  18973.     declare     @count  int
  18974.     select @active = 2
  18975.     if @mode = 0
  18976.         select @count = count(*) from MSsubscriptions (ROWLOCK REPEATABLEREAD) where agent_id = @id and status = @active
  18977.     else
  18978.         select @count = count(*) from MSsubscriptions (ROWLOCK UPDLOCK) where agent_id = @id and status = @active
  18979. GO
  18980.  
  18981. raiserror(15339,-1,-1,'sp_MSdetect_nonlogged_shutdown')
  18982. GO
  18983. create procedure sp_MSdetect_nonlogged_shutdown
  18984. @subsystem nvarchar(60),
  18985. @agent_id int
  18986. as
  18987.     declare @job_id binary(16)
  18988.     declare @agent_name nvarchar(100)
  18989.     declare @message nvarchar(1024)
  18990.     declare @retcode int
  18991.     declare @runstatus int
  18992.  
  18993.     -- Detect if the agent was shutdown without a logged reason
  18994.     if UPPER(@subsystem) = 'SNAPSHOT'
  18995.     begin
  18996.         if exists (select runstatus from MSsnapshot_history where 
  18997.             agent_id = @agent_id and
  18998.             runstatus <> 2 and 
  18999. --CAC       runstatus <> 5 and 
  19000.             runstatus <> 6 and
  19001.             timestamp = (select max(timestamp) from MSsnapshot_history where agent_id = @agent_id))
  19002.             begin
  19003.                 select @job_id = job_id, @agent_name = name from MSsnapshot_agents where id = @agent_id
  19004.             end
  19005.     end
  19006.     else if UPPER(@subsystem) = 'LOGREADER'
  19007.     begin
  19008.         if exists (select runstatus from MSlogreader_history where 
  19009.             agent_id = @agent_id and
  19010.             runstatus <> 2 and 
  19011. --CAC           runstatus <> 5 and 
  19012.             runstatus <> 6 and
  19013.             timestamp = (select max(timestamp) from MSlogreader_history where agent_id = @agent_id))
  19014.             begin
  19015.                 select @job_id = job_id, @agent_name = name from MSlogreader_agents where id = @agent_id
  19016.             end
  19017.     end
  19018.     else if UPPER(@subsystem) = 'DISTRIBUTION'
  19019.     begin
  19020.         if exists (select runstatus from MSdistribution_history where 
  19021.             agent_id = @agent_id and
  19022.             runstatus <> 2 and 
  19023. --CAC           runstatus <> 5 and 
  19024.             runstatus <> 6 and
  19025.             timestamp = (select max(timestamp) from MSdistribution_history where agent_id = @agent_id))
  19026.             begin
  19027.                 select @job_id = job_id, @agent_name = name from MSdistribution_agents where id = @agent_id
  19028.             end
  19029.     end
  19030.     else if UPPER(@subsystem) = 'MERGE'
  19031.     begin
  19032.         if exists (select runstatus from MSmerge_history where 
  19033.             agent_id = @agent_id and
  19034.             runstatus <> 2 and 
  19035. --CAC           runstatus <> 5 and 
  19036.             runstatus <> 6 and
  19037.             timestamp = (select max(timestamp) from MSmerge_history where agent_id = @agent_id))
  19038.             begin
  19039.                 select @job_id = job_id, @agent_name = name from MSmerge_agents where id = @agent_id
  19040.             end
  19041.     end
  19042.     else if UPPER(@subsystem) = 'QUEUEREADER'
  19043.     begin
  19044.         if exists (select runstatus from MSqreader_history where 
  19045.             agent_id = @agent_id and
  19046.             runstatus <> 2 and 
  19047. --CAC       runstatus <> 5 and 
  19048.             runstatus <> 6 and
  19049.             timestamp = (select max(timestamp) from MSqreader_history where agent_id = @agent_id))
  19050.             begin
  19051.                 select @job_id = job_id, @agent_name = name from MSqreader_agents where id = @agent_id
  19052.             end
  19053.     end
  19054.  
  19055.     -- If no job_id assume shutdown was logged properly
  19056.     if @job_id is null
  19057.         return 0
  19058.  
  19059.     -- Get last message from SQL Agent History table
  19060.     create table #JobHistory (
  19061.         instance_id int NOT NULL, 
  19062.         job_id uniqueidentifier NOT NULL,
  19063.         job_name nvarchar(100) NOT NULL,
  19064.         step_id int NOT NULL,
  19065.         step_name nvarchar(100) NOT NULL, 
  19066.         sql_message_id int NOT NULL,
  19067.         sql_severity int NOT NULL,
  19068.         message nvarchar(1024) NOT NULL,
  19069.         run_status int NOT NULL,
  19070.         run_date int NOT NULL,
  19071.         run_time int NOT NULL,
  19072.         run_duration int NOT NULL,
  19073.         operator_emailed sysname NULL,
  19074.         operator_netsent sysname NULL,
  19075.         operator_paged sysname NULL,
  19076.         retries_attempted int NOT NULL,
  19077.         server sysname NOT NULL
  19078.     )
  19079.     if @@error <> 0
  19080.         return 1
  19081.  
  19082.     -- Insert last history for step_id 2 (Agent running)
  19083.     set rowcount 1
  19084.     insert into #JobHistory exec msdb.dbo.sp_help_jobhistory @job_id = @job_id, @step_id = 2, 
  19085.         @mode = 'FULL'          
  19086.  
  19087.     -- Get the last history
  19088.     select @message = message, @runstatus = run_status from #JobHistory
  19089.  
  19090.     -- Reset rowcount
  19091.     set rowcount 0
  19092.  
  19093.     -- Map SQL Agent runstatus to Replication runstatus
  19094.     set @runstatus = 
  19095.     case @runstatus
  19096.         when 0 then 6   -- Fail mapping
  19097.         when 1 then 2   -- Success mapping
  19098.         when 2 then 5   -- Retry mapping
  19099.         when 3 then 2   -- Shutdown mapping
  19100.         when 4 then 3   -- Inprogress mapping
  19101.         when 5 then 0   -- Unknown is mapped to never run
  19102.     end
  19103.  
  19104.     -- If no message, provide a default message
  19105.     -- Also overwrite all inprogress messages to be "See SQL Agent history log".
  19106.     -- This is to prevent "Agent running. See monitor" to be logged into repl monitor.
  19107.     -- In this case (the last job history message is InProgress), we know that
  19108.     -- there have been failures of SQL Server Agent history logging.
  19109.     -- In fact, the only possible "in progress" msg in SQL Agent job step
  19110.     -- history for push jobs is "Agent running. See monitor". It is confusing that those
  19111.     -- messages showed up in repl monitor.
  19112.     if @message is null or @runstatus = 3
  19113.         select @message = formatmessage(20557, @agent_name)
  19114.  
  19115.     if UPPER(@subsystem) = 'SNAPSHOT'
  19116.         exec @retcode = dbo.sp_MSadd_snapshot_history @agent_id = @agent_id, @runstatus = @runstatus,
  19117.                 @comments = @message
  19118.     else if UPPER(@subsystem) = 'LOGREADER'
  19119.         exec @retcode = dbo.sp_MSadd_logreader_history @agent_id = @agent_id, @runstatus = @runstatus,
  19120.                 @comments = @message
  19121.     else if UPPER(@subsystem) = 'DISTRIBUTION'
  19122.         exec @retcode = dbo.sp_MSadd_distribution_history @agent_id = @agent_id, @runstatus = @runstatus,
  19123.                 @comments = @message
  19124.     else if UPPER(@subsystem) = 'MERGE'
  19125.         exec @retcode = dbo.sp_MSadd_merge_history @agent_id = @agent_id, @runstatus = @runstatus,
  19126.                 @comments = @message
  19127.     else if UPPER(@subsystem) = 'QUEUEREADER'
  19128.         exec @retcode = dbo.sp_MSadd_qreader_history @agent_id = @agent_id, @runstatus = @runstatus,
  19129.                 @comments = @message
  19130.  
  19131.     if @@error <> 0 or @retcode <> 0
  19132.         return 1
  19133.  
  19134.     drop table #JobHistory
  19135.  
  19136. GO
  19137.  
  19138. raiserror(15339,-1,-1,'sp_MSpublication_access')
  19139. GO
  19140.  
  19141. CREATE PROCEDURE sp_MSpublication_access (
  19142.     @publisher sysname,
  19143.     @publisher_db sysname = NULL,
  19144.     @publication sysname = NULL,
  19145.     @login sysname = NULL,
  19146.     @operation nvarchar(20), -- Can be add/drop/check/help/get_publications/get_logins
  19147.     @has_access bit = 0 output, -- Used only in check
  19148.     @skip bit = 0
  19149.         ) AS
  19150. -- This sp can be called repeatedly.
  19151.     
  19152.     declare @publisher_id smallint
  19153.     declare @retcode int
  19154.     declare @publication_id int
  19155.     declare @isntname bit
  19156.     declare @server_access bit
  19157.     declare @privilege nchar(21)
  19158.  
  19159.     -- Check if publisher is a defined as a distribution publisher in the current database
  19160.     exec @retcode = dbo.sp_MSvalidate_distpublisher @publisher, @publisher_id OUTPUT
  19161.     if @retcode <> 0
  19162.     begin
  19163.         return(1)
  19164.     end
  19165.  
  19166.     -- Check to see if the login exists and if the login is NT login
  19167.     select @isntname = isntname from master..syslogins where
  19168.         sid = suser_sid(@login) and
  19169.         hasaccess = 1
  19170.  
  19171.     -- Get the publication id 
  19172.     select @publication_id = publication_id from MSpublications where 
  19173.         publisher_id = @publisher_id and
  19174.         publisher_db = @publisher_db and
  19175.         publication = @publication
  19176.  
  19177.     -- Publication does not exist
  19178.     if @publication_id is null and
  19179.         @operation in ('add','drop','check','help')
  19180.     begin
  19181.         raiserror (20026, 16, -1, @publication)
  19182.         return (1)
  19183.     end
  19184.  
  19185.     if @operation = 'add'
  19186.     begin
  19187.         -- Login does not have access
  19188.         if @isntname is null
  19189.         begin
  19190.             if @skip = 0
  19191.             begin
  19192.                 raiserror(21048, 16, -1, @login, @@servername) 
  19193.                 return (1)
  19194.             end
  19195.             else
  19196.                 return (0)
  19197.         end
  19198.  
  19199.         -- Add login to the access list if it does not exist
  19200.         if not exists (select * from MSpublication_access where
  19201.             publication_id = @publication_id and
  19202.             login = @login)
  19203.         begin
  19204.             insert MSpublication_access (publication_id, login)
  19205.                 values (@publication_id,@login)
  19206.             if  @@error <> 0
  19207.                 return(1)
  19208.         end
  19209.     end
  19210.     else if @operation = 'drop'
  19211.     begin
  19212.         if @isntname is null and not exists (select * from MSpublication_access where
  19213.                 publication_id = @publication_id and
  19214.                 login = @login) 
  19215.         begin
  19216.             raiserror(15007,10,-1,@login)
  19217.             return 1
  19218.         end
  19219.         -- Do check existense when dropping since the login might be dropped
  19220.         -- outside replication already.
  19221.         delete MSpublication_access where
  19222.                 publication_id = @publication_id and
  19223.                 login = @login
  19224.         if  @@error <> 0
  19225.             return(1)
  19226.     end
  19227.     else if @operation = 'check'
  19228.     begin
  19229.         -- Cover the case when
  19230.         -- the NT user is not in syslogins
  19231.         if @isntname is null and suser_sid(@login) is not null
  19232.             select @isntname = 1
  19233.  
  19234.         -- If the login is valid NT login, call set user
  19235.         if @isntname = 1
  19236.         begin
  19237.             setuser @login
  19238.             if @@error <> 0
  19239.             begin
  19240.                 raiserror (21142, 16, -1, @@servername, @login)
  19241.                 return(1)
  19242.             end
  19243.         end
  19244.         if exists (select * from MSpublication_access l where
  19245.             publication_id = @publication_id and
  19246.             (l.login = @login or (@isntname = 1 and exists (select * from master..syslogins
  19247.                 where sid = suser_sid(l.login) and isntgroup = 1 and is_member(l.login) = 1))))
  19248.             set @has_access = 1
  19249.         else
  19250.             set @has_access = 0
  19251.         if @isntname = 1
  19252.         begin
  19253.             setuser
  19254.             if @@error <> 0
  19255.                 return(1)
  19256.         end        
  19257.     end
  19258.     else if @operation = 'help'
  19259.     begin
  19260.         select login from MSpublication_access where
  19261.                     publication_id = @publication_id and
  19262.                     login like @login
  19263.     end
  19264.     else if @operation = 'get_publications'
  19265.     begin
  19266.         -- Avoid setuser failure and cover the case of that 
  19267.         -- the NT user is not in syslogins
  19268.         if @isntname is null and suser_sid(@login) is not null
  19269.         begin
  19270.             exec @retcode = master.dbo.xp_logininfo
  19271.                 @login, N'all', @privilege output
  19272.             if @privilege is not null
  19273.                 select @isntname = 1
  19274.         end
  19275.  
  19276.         -- If the login is valid NT login, call set user
  19277.         if @isntname = 1
  19278.         begin
  19279.             setuser @login
  19280.             -- If the login is invalid, don't return any result.
  19281.             if @@error <> 0
  19282.             begin
  19283.                 raiserror (21142, 16, -1, @@servername, @login)
  19284.                 return(0)
  19285.             end
  19286.         end
  19287.         select p.publisher_db, p.publication from MSpublication_access l,
  19288.             MSpublications p where
  19289.             -- Get all the non default publications that have the login in the access list
  19290.             (
  19291.             -- If login match or there is an NT group in the access list and @login is integrated
  19292.             (l.login = @login or ( @isntname = 1 and exists (select * from master..syslogins
  19293.                 where sid = suser_sid(l.login) and isntgroup = 1 and is_member(l.login) = 1))) and
  19294.             l.publication_id = p.publication_id and
  19295.             p.publisher_id = @publisher_id
  19296.             ) 
  19297.         if @isntname = 1
  19298.         begin
  19299.             setuser
  19300.             if @@error <> 0
  19301.                 return(1)
  19302.         end        
  19303.     end
  19304.     else if @operation = 'get_logins'
  19305.     begin
  19306.         select loginname from master..syslogins where
  19307.             hasaccess = 1
  19308.     end
  19309. GO
  19310.  
  19311.  
  19312. raiserror(15339,-1,-1,'sp_MSdrop_6x_publication')
  19313. GO
  19314.  
  19315. -- This stored procedure is called by sp_droptask when 6.x publications are dropped.
  19316. create procedure sp_MSdrop_6x_publication
  19317. @job_id UNIQUEIDENTIFIER
  19318. as
  19319.     declare @publisher sysname
  19320.     declare @publisher_db sysname
  19321.     declare @publication sysname
  19322.     declare @retcode int
  19323.  
  19324.     -- Get publication information
  19325.     select @publisher = srvname, @publisher_db = publisher_db, @publication = publication from 
  19326.         MSsnapshot_agents, master..sysservers where
  19327.         job_id = @job_id and
  19328.         srvid = publisher_id
  19329.  
  19330.     -- Remove the publication and snapshot agent
  19331.     exec @retcode = dbo.sp_MSdrop_publication
  19332.         @publisher = @publisher,
  19333.         @publisher_db = @publisher_db,
  19334.         @publication = @publication 
  19335.     if @@ERROR <> 0 or @retcode <> 0
  19336.         return 1
  19337. GO
  19338.  
  19339. raiserror(15339,-1,-1,'sp_MShelp_distribution_agentid')
  19340. GO
  19341.  
  19342. CREATE PROCEDURE sp_MShelp_distribution_agentid
  19343. @publisher_id smallint,
  19344. @publisher_db sysname,
  19345. @publication sysname = NULL,
  19346. @subscriber_id smallint,
  19347. @subscriber_db sysname,
  19348. @subscription_type int, /* 0 = push 1 = pull 2=anonymous, */
  19349. -- For anonymous only
  19350. @subscriber_name    sysname = NULL,
  19351. @anonymous_subid    uniqueidentifier = NULL,
  19352. @reinitanon         bit = 0
  19353.  
  19354. as
  19355.  
  19356.     set nocount on
  19357.  
  19358.     declare @independent_agent bit
  19359.     declare @xact_seqno_length int
  19360.     declare @agent_id int
  19361.     declare @third_party_flag bit
  19362.     declare @retcode int
  19363.     declare @anonymous int
  19364.     declare @sub_agent_id int
  19365.     declare @allow_subscription_copy bit
  19366.     declare @immediate_sync bit
  19367.  
  19368.     select @anonymous = 2
  19369.     
  19370.     if @publication is null
  19371.         select @independent_agent = 0
  19372.     else
  19373.         select @independent_agent = 1
  19374.  
  19375.     select  top 1
  19376.         @third_party_flag = thirdparty_flag,
  19377.         @allow_subscription_copy = allow_subscription_copy,
  19378.         @immediate_sync = immediate_sync
  19379.         from MSpublications where
  19380.         publisher_id = @publisher_id and
  19381.         publisher_db = @publisher_db and
  19382.         publication = @publication or 
  19383.         (@publication is null and independent_agent = 0)
  19384.  
  19385.     -- Get agent id
  19386.     if @subscription_type = @anonymous
  19387.     begin
  19388.         exec @retcode = dbo.sp_MSadd_anonymous_agent
  19389.             @publisher_id   = @publisher_id,
  19390.             @publisher_db   = @publisher_db,
  19391.             @publication    = @publication,
  19392.             @subscriber_db  = @subscriber_db,
  19393.             @subscriber_name = @subscriber_name,
  19394.             @anonymous_subid =  @anonymous_subid output,
  19395.             @agent_id = @agent_id output,
  19396.             @reinitanon = @reinitanon
  19397.         if @@error <> 0 or @retcode <> 0
  19398.             return (1)
  19399.  
  19400.         -- Refer to sp_MSget_subscription_guid
  19401.         select @sub_agent_id = virtual_agent_id from
  19402.             MSdistribution_agents where
  19403.             id = @agent_id
  19404.     end 
  19405.     else
  19406.     begin
  19407.         select @agent_id = id
  19408.         from MSdistribution_agents where
  19409.              publisher_id = @publisher_id and
  19410.              publisher_db = @publisher_db and
  19411.              (publication = @publication or
  19412.              (@publication is null and publication = N'ALL')) and
  19413.              subscription_type = @subscription_type and
  19414.              subscriber_id = @subscriber_id and
  19415.              subscriber_db = @subscriber_db
  19416.  
  19417.         -- If cannont find the agent entry, ignore @subscriber_db and try again 
  19418.         -- for non SQL subscribers
  19419.         -- Note that this preserved backward compatibility for 7.0 publisher, 7.0 pull distribution agent or 6.5 pub.
  19420.         -- In 7.0, we hard code name 'DSN'.
  19421.         -- In 6.5 pub, the db name is real database name.
  19422.         -- In 8.0, distribution agent sends in unlocalized '(default destination)' as default db name for 
  19423.         -- non SQL subscribers..
  19424.         if @agent_id is null 
  19425.         begin
  19426.             declare @publisher sysname
  19427.             declare @subscriber sysname
  19428.             select @publisher = srvname from master..sysservers where
  19429.                 srvid = @publisher_id
  19430.             select @subscriber = srvname from master..sysservers where
  19431.                 srvid = @subscriber_id
  19432.             if exists (select * from MSsubscriber_info where
  19433.                 publisher = @publisher and
  19434.                 subscriber = @subscriber and
  19435.                 type <> 0)
  19436.             begin
  19437.                 select @agent_id = id
  19438.                 from MSdistribution_agents where
  19439.                      publisher_id = @publisher_id and
  19440.                      publisher_db = @publisher_db and
  19441.                      (publication = @publication or
  19442.                      (@publication is null and publication = N'ALL')) and
  19443.                      subscription_type = @subscription_type and
  19444.                      subscriber_id = @subscriber_id 
  19445.             end
  19446.         end
  19447.  
  19448.         select @sub_agent_id = @agent_id
  19449.     end
  19450.  
  19451.     -- If cannot find the publication and the agent, raise error
  19452.     -- saying invalid publication.
  19453.     -- Note: can not fail if publication not exists but agent exists
  19454.     -- It is an upgrade case. 
  19455.     if @third_party_flag is null and @agent_id is null
  19456.     begin
  19457.         -- The publication(s) does not exist
  19458.         RAISERROR (21073, 16, -1)
  19459.         return(1)
  19460.     end
  19461.  
  19462.     if @agent_id is null
  19463.     begin
  19464.         -- Raise a special error for a common error case: user specified publication
  19465.         -- name for non independent agent publication.
  19466.         -- If the specified publication name is in MSpublications table then
  19467.         -- the publication is configured to use a non-independent distribution
  19468.         -- agent. Raise a different error if this is the case
  19469.         if @publication is not null and 
  19470.             exists (select * from MSpublications 
  19471.                     where publication = @publication and 
  19472.                           publisher_id = @publisher_id and
  19473.                           publisher_db = @publisher_db and
  19474.                           independent_agent = 0)  
  19475.         begin
  19476.             RAISERROR (21133, 16, -1, @publication)
  19477.         end
  19478.         else
  19479.         begin
  19480.             -- Invalid subscription
  19481.             RAISERROR (21056, 16, -1, @publication)
  19482.         end
  19483.         return(1)
  19484.     end
  19485.  
  19486.     -- Reset null properties
  19487.     -- It is an upgrade case. 
  19488.     if @third_party_flag is null 
  19489.         select @third_party_flag = 0
  19490.     if @allow_subscription_copy is null
  19491.         select @allow_subscription_copy = 0
  19492.  
  19493.     /*
  19494.     ** Get the time when the subscription is active and succeed.
  19495.     */
  19496.     /*
  19497.     select Top 1 @last_status=runstatus, @last_sync = time from MSdistribution_history 
  19498.         where agent_id = @agent_id order by timestamp DESC
  19499.     
  19500.     if @last_status = 6 and EXISTS (select * from MSdistribution_history where agent_id = @agent_id and runstatus = @success) 
  19501.                 select Top 1 @last_sync = time from MSdistribution_history where agent_id = @agent_id and runstatus = @success
  19502.                         order by timestamp DESC    
  19503.  
  19504.     if @last_sync is not NULL and @independent_agent = 1 --by pass the retention check for non-independent agnt
  19505.     begin
  19506.         if (@last_sync < dateadd(hour, -@retention, getdate()))
  19507.            and (@retention <> 0)
  19508.                  select @expired = 1 
  19509.     end
  19510.     */
  19511.  
  19512.     /* 
  19513.     ** Avoid returning a NULL value 
  19514.     ** Otherwise, distribution agent may fail
  19515.     */
  19516.     select @xact_seqno_length = 0
  19517.  
  19518.     /* 
  19519.     **  Get the lengh of xact_seqno
  19520.     **   Currently, unique across the publisher
  19521.     */
  19522.     select top 1 @xact_seqno_length = DATALENGTH(subscription_seqno)
  19523.     from MSsubscriptions s where
  19524.         agent_id = @sub_agent_id
  19525.  
  19526.     /* xact_seqno for snapshot trans are longer for native publishers*/
  19527.     if @third_party_flag = 0
  19528.     begin
  19529.         if @xact_seqno_length = 8 or @xact_seqno_length = 10
  19530.             select @xact_seqno_length = @xact_seqno_length + 4
  19531.     end
  19532.  
  19533.     -- Security check. Do it here to let the agent fail at the beginning
  19534.     exec @retcode = dbo.sp_MScheck_pull_access
  19535.         @agent_id = @sub_agent_id,
  19536.         @agent_type = 0 -- distribution agent
  19537.     if @@error <> 0 or @retcode <> 0
  19538.         return (1)
  19539.     
  19540.     -- Get update_mode
  19541.     declare @update_mode int
  19542.     
  19543.     -- Use max because:
  19544.     -- One agent can have mixed read only (0) and synctran (1) subscriptions. 
  19545.     -- The update mode value
  19546.     -- is used in subscriber triggers. It is ok to set update mode to synctran
  19547.     -- in mixed case because the triggers will not be create for read only.
  19548.     -- Queued mode require independent agent.
  19549.     select @update_mode = max(update_mode) from MSsubscriptions where
  19550.         agent_id = @agent_id
  19551.     
  19552.     -- For anonymous agents, update_mode is read only.
  19553.     if @update_mode is null
  19554.         set @update_mode = 0
  19555.  
  19556.     -- Get attach_version guid
  19557.     declare @attach_version binary(16)
  19558.     if @allow_subscription_copy <> 0
  19559.     begin
  19560.         declare @publication_id int
  19561.         declare @virtual_agent_id int
  19562.         declare @virtual smallint
  19563.         set @virtual = -1
  19564.  
  19565.         -- Get publication_id
  19566.         select @publication_id = publication_id
  19567.             from MSpublications where
  19568.             publisher_id = @publisher_id and
  19569.             publisher_db = @publisher_db and
  19570.             publication = @publication 
  19571.  
  19572.         if @publication_id is null
  19573.         begin
  19574.             RAISERROR (21040, 16, -1, @publication)
  19575.             return 1
  19576.         end
  19577.  
  19578.         -- Get version agent_id
  19579.         select top 1 @virtual_agent_id = agent_id from MSsubscriptions where
  19580.             publisher_id = @publisher_id and
  19581.             publisher_db = @publisher_db and
  19582.             publication_id = @publication_id and
  19583.             subscriber_id = @virtual
  19584.  
  19585.         select @attach_version = subscription_guid from MSdistribution_agents
  19586.             where id = @virtual_agent_id
  19587.     end
  19588.     else
  19589.         -- set a irrelevent guid. It should never be used.
  19590.         select @attach_version = newid()
  19591.  
  19592.     -- Get subscription guid
  19593.     -- Use sub_agent_id so that both anonymous and well-known work.
  19594.     -- Refer to sp_MSget_subscription_guid. You need to make change to that sp when changing
  19595.     -- this.
  19596.     declare @subscription_guid binary(16)
  19597.     select @subscription_guid = subscription_guid from MSdistribution_agents where
  19598.         id = @sub_agent_id
  19599.  
  19600.     select 
  19601.         'xact_seqno_length' = @xact_seqno_length,
  19602.         'agent_id' = @agent_id,
  19603.         'agent_name' = name,
  19604.         'anonymous subid' = anonymous_subid,
  19605.         'expired ' = convert(int, 0),
  19606.         'dts_package_name' = dts_package_name,
  19607.         'dts_package_password' = dts_package_password,
  19608.         'dts_package_location' = dts_package_location,
  19609.         'immediate_sync' = @immediate_sync,
  19610.         'allow_subscription_copy' = @allow_subscription_copy,
  19611.         'queue_id' = queue_id,
  19612.         'update_mode' = @update_mode,
  19613.         'attach_version' = @attach_version,
  19614.         'subscription_guid' = @subscription_guid
  19615.         
  19616.         from MSdistribution_agents where id = @agent_id
  19617.  
  19618. GO
  19619.  
  19620. raiserror(15339,-1,-1,'sp_MScheck_tran_retention')
  19621. GO
  19622.  
  19623. CREATE PROCEDURE sp_MScheck_tran_retention
  19624. @xact_seqno varbinary(16),
  19625. @agent_id int
  19626. as
  19627.  
  19628.     set nocount on
  19629.  
  19630.     declare @date datetime
  19631.     declare @retention int
  19632.     declare    @expired int
  19633.     declare @publisher_database_id int
  19634.  
  19635.     select @publisher_database_id = publisher_database_id from MSdistribution_agents
  19636.         where id = @agent_id
  19637.  
  19638.     select @date = entry_time from MSrepl_transactions where
  19639.         xact_seqno = @xact_seqno and
  19640.         publisher_database_id = @publisher_database_id
  19641.  
  19642.     select @retention = max_distretention from msdb..MSdistributiondbs where
  19643.         name = db_name()
  19644.  
  19645.     if (@date is not null and datediff(minute, @date, getdate()) < @retention*60) or
  19646.         -- For 'sync with backup' dist db where
  19647.         -- the dist db might be restored to a previous version so that the subscriber's
  19648.         -- xact_seqno is larger.
  19649.        (@date is null and not exists (select * from MSrepl_transactions where
  19650.         xact_seqno >= @xact_seqno and
  19651.         publisher_database_id = @publisher_database_id))
  19652.         select @expired = 0
  19653.     else
  19654.         select @expired = 1
  19655.     
  19656.     select N'expired' = @expired
  19657.  
  19658. GO
  19659.  
  19660. raiserror(15339,-1,-1,'sp_MSmarkreinit')
  19661. GO
  19662. CREATE PROCEDURE sp_MSmarkreinit
  19663. @publisher sysname,
  19664. @publisher_db sysname,
  19665. @publication sysname,
  19666. @subscriber sysname,       
  19667. @subscriber_db sysname,
  19668. @reset_reinit    int
  19669. AS
  19670.     set nocount on
  19671.  
  19672.     declare @publisher_id smallint
  19673.     declare @subscriber_id smallint
  19674.     declare @publication_id int
  19675.     declare @retcode int
  19676.     declare @reinited int
  19677.     declare @unreinited int
  19678.     declare @status int
  19679.  
  19680.     select @reinited = 4  -- status=4 means this subscription has been reinited
  19681.     select @unreinited = 1 -- status=1 means this subscription not reinited
  19682.  
  19683.     if @reset_reinit = 1
  19684.         select @status = @reinited
  19685.     else
  19686.         select @status = @unreinited
  19687.     
  19688. -- Check if publisher is a defined as a distribution publisher in the current database
  19689.     exec @retcode = dbo.sp_MSvalidate_distpublisher @publisher, @publisher_id OUTPUT
  19690.     if @retcode <> 0
  19691.     begin
  19692.         return(1)
  19693.     end
  19694.  
  19695.     -- Get the publication information 
  19696.     select @publication_id = publication_id
  19697.         from MSpublications where 
  19698.         publisher_id = @publisher_id and
  19699.         publisher_db = @publisher_db and
  19700.         publication = @publication
  19701.     if @publication_id is NULL
  19702.     begin
  19703.         raiserror (20026, 11, -1, @publication)
  19704.         return (1)
  19705.     end
  19706.  
  19707.     -- Get subscriber info
  19708.     select @subscriber_id = srvid from master..sysservers where UPPER(srvname) = UPPER(@subscriber)
  19709.  
  19710.     update MSmerge_subscriptions set status = @status where
  19711.         publisher_id = @publisher_id and 
  19712.         publisher_db = @publisher_db and 
  19713.         publication_id = @publication_id and
  19714.         subscriber_id = @subscriber_id and
  19715.         subscriber_db = @subscriber_db
  19716.     if @@error<>0 
  19717.         return (1)
  19718. GO        
  19719.  
  19720. raiserror('Creating procedure sp_MSfetchAdjustidentityrange', 0,1)
  19721. GO
  19722.  
  19723. CREATE PROCEDURE sp_MSfetchAdjustidentityrange 
  19724.     @publisher            sysname,
  19725.     @publisher_db        sysname,
  19726.     @tablename            sysname,
  19727.     @adjust_only        bit = 0,
  19728.     @for_publisher        tinyint = 0, --0 for subscriber, 1 for publisher, 2 for republisher
  19729.     @range                bigint = 0 output, -- This parameter is used as input for publisher but output for subscriber
  19730.     @next_seed            bigint = 0 output,
  19731.     @threshold            int = 0 output
  19732. as    
  19733.     if @adjust_only=0
  19734.         select identity_support, next_seed, range, threshold from MSrepl_identity_range
  19735.             where  tablename=@tablename and LOWER(publisher)=LOWER(@publisher) and publisher_db=@publisher_db
  19736.  
  19737.     -- Note: there might be multiple sessions calling this sp at the same time
  19738.     -- Open a transaction so that the update row will be locked so that no one else can
  19739.     -- process this row.
  19740.     begin tran
  19741.     save TRAN sp_MSfetchAdjustidentityrange
  19742.  
  19743.     if @for_publisher=2 --republishing scenario
  19744.     begin
  19745.         update MSrepl_identity_range set max_identity=@next_seed + @range, next_seed=@next_seed
  19746.             where tablename=@tablename and LOWER(publisher)=LOWER(@publisher) and publisher_db=@publisher_db            
  19747.     end
  19748.     else
  19749.     begin    
  19750.         update MSrepl_identity_range set next_seed = case @for_publisher
  19751.             -- use subscriber's range 
  19752.             when 0 then next_seed + range
  19753.             -- use @range sent in by the publisher
  19754.             else next_seed + @range
  19755.             end
  19756.         where tablename=@tablename and LOWER(publisher)=LOWER(@publisher) and publisher_db=@publisher_db
  19757.     end
  19758.  
  19759.     -- for tran pub, max_identity is null
  19760.     if @@ERROR<>0 OR exists (select * from MSrepl_identity_range where ABS(next_seed)>ABS(max_identity))
  19761.     begin
  19762.         raiserror(21195, 16, -1)
  19763.         goto UNDO
  19764.     end
  19765.  
  19766.     select @next_seed = next_seed, @range = range, @threshold = threshold from MSrepl_identity_range
  19767.         where tablename=@tablename and LOWER(publisher)=LOWER(@publisher) and publisher_db=@publisher_db
  19768.     
  19769.     commit tran
  19770.     return 0
  19771.  
  19772. UNDO:
  19773.     if @@TRANCOUNT > 0
  19774.     begin
  19775.         ROLLBACK TRAN sp_MSfetchAdjustidentityrange
  19776.         COMMIT TRAN
  19777.     end
  19778.     return(1)
  19779.  
  19780. go            
  19781. exec dbo.sp_MS_marksystemobject sp_MSfetchAdjustidentityrange 
  19782. go
  19783. grant exec on dbo.sp_MSfetchAdjustidentityrange to public
  19784. go
  19785.  
  19786. raiserror(15339,-1,-1,'sp_MSreinit_subscription')
  19787. GO
  19788. CREATE PROCEDURE sp_MSreinit_subscription
  19789. @publisher_name sysname,
  19790. @publisher_db sysname,
  19791. @publication sysname = 'all',
  19792. @subscriber_name    sysname = 'all',
  19793. @subscriber_db sysname = 'all'
  19794. as
  19795.     set nocount on
  19796.     declare @proc nvarchar(2048)
  19797.     declare @retcode int
  19798.  
  19799.     if @publisher_name IS NULL or NOT EXISTS (select * from master..sysservers as ss, MSpublications as msp
  19800.         where lower(ss.srvname) = lower(@publisher_name) and msp.publisher_id = ss.srvid)
  19801.     begin
  19802.         return (1)
  19803.     end
  19804.  
  19805.     if @publisher_db IS NULL
  19806.         select @publisher_db = ''
  19807.  
  19808.     select @proc = @publisher_name + '.' + @publisher_db + '.dbo.sp_reinitsubscription '
  19809.     exec @retcode = @proc @publication, 'all', @subscriber_name, @subscriber_db
  19810.  
  19811.     return (@retcode)
  19812. go
  19813.  
  19814.    -- View for delivered and undelivered commands.   RHS  6-4-98
  19815.    -- Since the view is likely to change, just recreate it each time.
  19816.    IF EXISTS (SELECT * FROM sysobjects where name='MSdistribution_status' and type='V')
  19817.     DROP VIEW dbo.MSdistribution_status
  19818.  
  19819.     /****************************************************************************/
  19820.     raiserror('Creating view MSdistribution_status', 0,1)
  19821.         /****************************************************************************/    
  19822. go
  19823.  
  19824. CREATE VIEW MSdistribution_status (article_id,agent_id,UndelivCmdsInDistDB,DelivCmdsInDistDB)
  19825. as
  19826. -- Note that this view does not account for (i.e. exclude from counts) commands that do not need to be delivered 
  19827. -- because of loopback or syncronous updating subscribers, nor subscriptions never activated.
  19828. -- It also may not be exact due to use of NOLOCK - so that it does not cause blocking or deadlock issues.
  19829. SELECT t.article_id,s.agent_id,
  19830. 'UndelivCmdsInDistDB'=SUM(CASE WHEN xact_seqno > h.maxseq THEN 1 ELSE 0 END),
  19831. 'DelivCmdsInDistDB'=SUM(CASE WHEN xact_seqno <=  h.maxseq THEN 1 ELSE 0 END)
  19832. FROM    (SELECT    article_id,publisher_database_id, xact_seqno
  19833.     FROM MSrepl_commands (NOLOCK) ) as t
  19834. JOIN (SELECT agent_id,article_id,publisher_database_id FROM MSsubscriptions (NOLOCK) ) AS s 
  19835. ON (t.article_id = s.article_id AND t.publisher_database_id=s.publisher_database_id )
  19836. JOIN (SELECT agent_id,'maxseq'= isnull(max(xact_seqno),0x0) FROM MSdistribution_history (NOLOCK) GROUP BY agent_id) as h
  19837. ON (h.agent_id=s.agent_id)
  19838. GROUP BY t.article_id,s.agent_id
  19839. go
  19840.     
  19841. EXEC dbo.sp_MS_marksystemobject 'MSdistribution_status'
  19842. -- As this view can add considerable overhead when queried, it intentionally is not granted public access by default.
  19843. -- A site may so grant it if it wants to of course>
  19844. GRANT SELECT ON MSdistribution_status to dbo
  19845. go
  19846.  
  19847.  
  19848. raiserror(15339,-1,-1,'sp_browsereplcmds')
  19849. GO
  19850.  
  19851. create procedure sp_browsereplcmds 
  19852. @xact_seqno_start nchar(22) = NULL, 
  19853. @xact_seqno_end nchar(22) = NULL,
  19854. @originator_id int = NULL,
  19855. @publisher_database_id int = NULL,
  19856. @article_id int = NULL,
  19857. @command_id int = NULL,
  19858. @results_table sysname = NULL
  19859. as
  19860. declare @query nvarchar( 4000 )
  19861. declare @dbname sysname
  19862.  
  19863. if( @command_id is not null )
  19864. begin
  19865.     if( @xact_seqno_start is null or @publisher_database_id is null )
  19866.     begin
  19867.         raiserror( 21110, 16, -1 )
  19868.         return 1
  19869.     end
  19870.     else if @xact_seqno_start != @xact_seqno_end 
  19871.     begin
  19872.         raiserror( 21109, 16, -1 )
  19873.         return 1
  19874.     end
  19875. end
  19876.  
  19877. if @results_table is not null
  19878. begin
  19879.     select @query = N'create table ' + @results_table + N'('
  19880.     select @query = @query + N'xact_seqno varbinary(16) null,'
  19881.     select @query = @query + N'originator_id int null,'
  19882.     select @query = @query + N'publisher_database_id int null,'
  19883.     select @query = @query + N'article_id int null,'
  19884.     select @query = @query + N'type int null,'
  19885.     select @query = @query + N'command nvarchar( 1024 ) null )'
  19886.  
  19887.     exec ( @query )
  19888.     if @@error <> 0
  19889.     begin
  19890.         return 1
  19891.     end
  19892. end
  19893.  
  19894. if @xact_seqno_start is null
  19895. begin
  19896.     select @xact_seqno_start = N'0x00000000000000000000'
  19897. end
  19898. if @xact_seqno_end is null
  19899. begin
  19900.     select @xact_seqno_end = N'0xFFFFFFFFFFFFFFFFFFFF'
  19901. end
  19902.  
  19903. select @query = N'select xact_seqno, convert( int, originator_id ), convert( int, publisher_database_id ), convert(int, article_id), convert( int, type ), convert( int, partial_command ), command from MSrepl_commands '
  19904.  
  19905. if @command_id is not null
  19906. begin
  19907.     select @query = @query + N'where xact_seqno = ' + @xact_seqno_start  
  19908. end
  19909. else
  19910. begin
  19911.     select @query = @query + N'where xact_seqno >= ' + @xact_seqno_start + N' and xact_seqno <= ' + @xact_seqno_end 
  19912. end
  19913.  
  19914. if @originator_id is not null
  19915. begin
  19916.     select @query = @query + N' and originator_id = ' + convert( nvarchar, @originator_id )
  19917. end
  19918.  
  19919. if @publisher_database_id is not null
  19920. begin
  19921.     select @query = @query + N' and publisher_database_id = ' + convert( nvarchar, @publisher_database_id )
  19922. end
  19923.  
  19924. if @article_id is not null
  19925. begin
  19926.     select @query = @query + N' and article_id = ' + convert( nvarchar, @article_id )
  19927. end
  19928.  
  19929. if @command_id is not null
  19930. begin
  19931.     -- No need to use article_id and originator_id
  19932.     select @query = @query + N' and command_id >= ' + convert( nvarchar, @command_id )
  19933.     select @query = @query + N' and command_id <= ( select min( command_id ) from MSrepl_commands c '
  19934.     select @query = @query + N' where c.xact_seqno = ' + @xact_seqno_start  
  19935.     select @query = @query + N' and c.publisher_database_id = ' + convert( nvarchar, @publisher_database_id )
  19936.     select @query = @query + N' and c.command_id >= ' + convert( nvarchar, @command_id )
  19937.     select @query = @query + N' and c.partial_command = 0 )'  
  19938. end
  19939.  
  19940. select @query = @query + N' order by originator_id, publisher_database_id, xact_seqno, article_id, command_id asc'
  19941.  
  19942. select @dbname = db_name()
  19943.  
  19944. if @results_table is not null
  19945. begin
  19946.     declare @q2 nvarchar(4000)
  19947.     select @query = replace( @query, '''', '''''' )
  19948.     select @q2 = N'insert into ' + @results_table + N' exec master..xp_printstatements N'''+ @query + N''',N''' + @dbname  +''''
  19949.     exec (@q2)
  19950. end
  19951. else
  19952. begin
  19953.     exec master..xp_printstatements @query, @dbname
  19954. end
  19955. go
  19956.  
  19957.  
  19958.  
  19959. raiserror(15339,-1,-1,'sp_dumpparamcmd')
  19960. GO
  19961.  
  19962. create procedure sp_dumpparamcmd
  19963. @originator_id int,
  19964. @publisher_database_id int,
  19965. @article_id int,
  19966. @xact_seqno nchar(22)
  19967. as
  19968. declare @query nvarchar(2048)
  19969. declare @dbname sysname
  19970.  
  19971. select @query = N'select convert(int, partial_command) , command from MSrepl_commands '
  19972. select @query = @query + 'where type = 30 and xact_seqno = ' + @xact_seqno
  19973. select @query = @query + N' and originator_id = ' + convert( nvarchar, @originator_id )
  19974. select @query = @query + N' and publisher_database_id = ' + convert( nvarchar, @publisher_database_id )
  19975. select @query = @query + N' and article_id = ' + convert( nvarchar, @article_id )
  19976. select @query = @query + N' order by command_id asc'
  19977. select @dbname = db_name()
  19978.  
  19979. exec master..xp_displayparamstmt @query, @dbname, 1
  19980. go
  19981.  
  19982. raiserror(15339,-1,-1,'sp_MSbrowsesnapshotfolder')
  19983. GO
  19984.  
  19985. create procedure sp_MSbrowsesnapshotfolder (
  19986.     @publisher     sysname,
  19987.     @publisher_db  sysname,
  19988.     @article_id    int,
  19989.     @subscriber    sysname = NULL,
  19990.     @subscriber_db sysname = NULL
  19991.     )
  19992. AS
  19993.     SET NOCOUNT ON
  19994.  
  19995.  
  19996.     DECLARE @alt_directory_type     INT
  19997.     DECLARE @directory_type         INT
  19998.     DECLARE @publisher_id           INT
  19999.     DECLARE @publisher_database_id  INT
  20000.     DECLARE @subscriber_id          INT
  20001.     DECLARE @snapshot_bit           INT
  20002.     DECLARE @snapshot_mask          INT
  20003.     DECLARE @xact_seqno             VARBINARY(16)
  20004.     DECLARE @sync_init              INT
  20005.     DECLARE @sync_done              INT
  20006.  
  20007.     SELECT @alt_directory_type = 25
  20008.     SELECT @directory_type = 7
  20009.     SELECT @subscriber_id = NULL
  20010.     SELECT @snapshot_bit = 0x80000000
  20011.     SELECT @snapshot_mask = ~@snapshot_bit
  20012.     SELECT @xact_seqno = NULL
  20013.     SELECT @sync_init = 37
  20014.     SELECT @sync_done = 38
  20015.  
  20016.     SELECT @publisher_id = srvid 
  20017.       FROM master.dbo.sysservers 
  20018.      WHERE UPPER(@publisher) = UPPER(srvname)
  20019.  
  20020.     SELECT @publisher_database_id = publisher_database_id 
  20021.       FROM MSsubscriptions
  20022.      WHERE publisher_id = @publisher_id
  20023.        AND publisher_db = @publisher_db
  20024.        AND article_id = @article_id  
  20025.  
  20026.  
  20027.     -- @subscriber is null implies @subscriber_db is null also because 
  20028.     -- this sp can only be called by sp_browsesnapshotfolder
  20029.     IF @subscriber IS NULL
  20030.     BEGIN
  20031.         SELECT @xact_seqno = MAX(xact_seqno) 
  20032.           FROM MSrepl_commands
  20033.          WHERE publisher_database_id = @publisher_database_id
  20034.            AND article_id = @article_id
  20035.            AND (type & @snapshot_bit) <> 0            
  20036.            AND (type & @snapshot_mask) <> @sync_init
  20037.            AND (type & @snapshot_mask) <> @sync_done
  20038.     END
  20039.     ELSE 
  20040.     BEGIN
  20041.         -- Both @subscriber and @subscriber_db are non-null
  20042.         SELECT @subscriber_id = srvid 
  20043.           FROM master.dbo.sysservers
  20044.          WHERE UPPER(@subscriber) = UPPER(srvname)
  20045.         
  20046.         IF @subscriber_id IS NULL
  20047.         BEGIN
  20048.             RAISERROR(21150, 16, -1)  
  20049.             RETURN 1
  20050.         END
  20051.         
  20052.         SELECT @xact_seqno = subscription_seqno 
  20053.           FROM MSsubscriptions
  20054.          WHERE publisher_database_id = @publisher_database_id
  20055.            AND publisher_id = @publisher_id 
  20056.            AND article_id = @article_id
  20057.            AND subscriber_id = @subscriber_id
  20058.            AND subscriber_db = @subscriber_db
  20059.  
  20060.         IF @xact_seqno IS NULL
  20061.         BEGIN
  20062.             RAISERROR(14055, 16, -1)
  20063.             RETURN 1
  20064.         END                  
  20065.     END
  20066.  
  20067.     SELECT 'snapshot_folder' = CONVERT(NVARCHAR(255), command) 
  20068.       FROM MSrepl_commands 
  20069.      WHERE publisher_database_id = @publisher_database_id
  20070.        AND (type & @snapshot_bit) <> 0
  20071.        AND xact_seqno = @xact_seqno
  20072.        AND (((type & ~@snapshot_bit) = @alt_directory_type) OR
  20073.             ((type & ~@snapshot_bit) = @directory_type))
  20074.   ORDER BY command_id ASC
  20075.     IF @@ERROR <> 0
  20076.     BEGIN
  20077.         RETURN 1
  20078.     END
  20079.     ELSE
  20080.     BEGIN
  20081.         RETURN 0
  20082.     END
  20083. GO
  20084.  
  20085. raiserror(15339,-1,-1,'sp_MSchange_subscription_dts_info')
  20086. GO
  20087.  
  20088. CREATE PROCEDURE sp_MSdist_adjust_identity
  20089.     @agent_id    int,
  20090.     @tablename    sysname
  20091. as    
  20092.     declare @publisher sysname
  20093.     declare @publisher_db sysname
  20094.     declare @publisher_id smallint
  20095.     declare @publication sysname
  20096.     declare @next_seed bigint
  20097.     declare @range bigint
  20098.     declare @threshold int
  20099.     declare @retcode int
  20100.  
  20101.     -- Security check.
  20102.     exec @retcode = dbo.sp_MScheck_pull_access
  20103.         @agent_id = @agent_id,
  20104.         @agent_type = 0 -- distribution agent
  20105.     if @@error <> 0 or @retcode <> 0
  20106.         return (1)
  20107.  
  20108.     select @publication = publication, @publisher_id = publisher_id,
  20109.         @publisher_db = publisher_db from MSdistribution_agents where
  20110.         id = @agent_id
  20111.  
  20112.     select @publisher = srvname from master..sysservers where 
  20113.         srvid = @publisher_id
  20114.     -- Get the publication id.
  20115.     -- Note: auto identity range is only supported for queued tran pub
  20116.     -- which implies independent agent.
  20117.     declare @publication_id int
  20118.     select @publication_id = publication_id from MSpublications    where
  20119.         publication =  @publication and
  20120.         publisher_id = @publisher_id and
  20121.         publisher_db = @publisher_db
  20122.  
  20123.     -- Get the source object name
  20124.     declare @src_object sysname
  20125.     select @src_object = source_object from MSarticles where
  20126.         publication_id = @publication_id and
  20127.         destination_object = @tablename
  20128.  
  20129.     if @src_object is not null
  20130.     begin
  20131.         exec @retcode = dbo.sp_MSfetchAdjustidentityrange
  20132.             @publisher = @publisher,
  20133.             @publisher_db = @publisher_db,
  20134.             @tablename = @src_object,
  20135.             @adjust_only = 1,
  20136.             @for_publisher = 0,
  20137.             @next_seed = @next_seed output,
  20138.             @range = @range output,
  20139.             @threshold = @threshold output
  20140.         if @@error <> 0 or @retcode <> 0
  20141.             return 1
  20142.     end
  20143.  
  20144.     -- Return nothing if the table is not found in the table collection served by
  20145.     -- the distribution agent.
  20146.     select 'next_seed' = @next_seed, 'range' = @range, 'threshold' = @threshold
  20147.         where @next_seed is not null 
  20148. go            
  20149.  
  20150. raiserror(15339,-1,-1,'sp_MSdist_adjust_identity')
  20151. GO
  20152.  
  20153. CREATE PROCEDURE sp_MSchange_subscription_dts_info (
  20154.     @job_id varbinary(16),
  20155.     @dts_package_name sysname,
  20156.     @dts_package_password nvarchar(524),
  20157.     @dts_package_location int,
  20158.     @change_password bit
  20159.  
  20160.     ) AS
  20161.  
  20162.     /*
  20163.     ** Declarations.
  20164.     */
  20165.     declare @subscriber sysname
  20166.     declare @publisher sysname
  20167.     declare @subscriber_id smallint
  20168.     declare @publisher_id smallint
  20169.  
  20170.     /*
  20171.     ** Initializations.
  20172.     */
  20173.     SET NOCOUNT ON
  20174.     
  20175.     select @subscriber_id = subscriber_id, @publisher_id = publisher_id 
  20176.         from MSdistribution_agents where 
  20177.         job_id = @job_id
  20178.     
  20179.     select @subscriber = srvname from master..sysservers where srvid = @subscriber_id
  20180.     select @publisher = srvname from master..sysservers where srvid = @publisher_id
  20181.  
  20182.     declare @oledb_subscriber tinyint
  20183.     select @oledb_subscriber = 3
  20184.     
  20185.     -- Only SQL Server and OLEDB subscriber support dts
  20186.     if not exists (select * from MSsubscriber_info where 
  20187.         UPPER(publisher) = UPPER(@publisher) and 
  20188.         UPPER(subscriber) = UPPER(@subscriber) and
  20189.         (type = 0 or type = @oledb_subscriber))
  20190.     begin
  20191.         raiserror(21170, 16, -1)
  20192.         return 1
  20193.     end
  20194.     
  20195.     
  20196.     update MSdistribution_agents set
  20197.         dts_package_name = case 
  20198.             when @dts_package_name is null then dts_package_name
  20199.             when @dts_package_name = N'' then null
  20200.             else @dts_package_name
  20201.             end, 
  20202.         dts_package_password = case @change_password
  20203.             when 0 then dts_package_password
  20204.             else @dts_package_password
  20205.             end, 
  20206.         dts_package_location = case
  20207.             when @dts_package_location is null then dts_package_location
  20208.             else @dts_package_location
  20209.             end
  20210.         where
  20211.             job_id = @job_id
  20212.  
  20213.     RETURN (0)
  20214. go
  20215.  
  20216. raiserror(15339,-1,-1,'sp_MSrefresh_anonymous')
  20217. GO
  20218. CREATE PROCEDURE sp_MSrefresh_anonymous (
  20219. @publication            sysname,
  20220. @publisher                sysname,
  20221. @publisher_db            sysname
  20222. )AS
  20223.  
  20224. declare @retcode         int
  20225. declare @publisher_id    int
  20226. declare @success        int
  20227. declare @agent_id        int
  20228.  
  20229. SELECT @publisher_id = NULL 
  20230. SELECT @publisher_id = srvid FROM master..sysservers WHERE UPPER(@publisher) = UPPER(srvname)  
  20231. IF @publisher_id IS NULL
  20232.     BEGIN
  20233.         RAISERROR(21169, 16, -1, @publisher, @@SERVERNAME, @publisher)    
  20234.         return (1)
  20235.     END
  20236. select @success = 2 --agent history status
  20237.  
  20238. select @agent_id = id from MSmerge_agents where 
  20239.     anonymous_subid is not NULL and --touch anonymous only
  20240.     publication like @publication and 
  20241.     publisher_id=@publisher_id and 
  20242.     publisher_db=@publisher_db
  20243.  
  20244. set rowcount 1
  20245. update MSmerge_history set time=getdate() where agent_id=@agent_id and runstatus=@success
  20246. if @@ERROR<>0
  20247.     return (1)
  20248. GO
  20249.  
  20250. raiserror(15339,-1,-1,'sp_MScheck_pub_identity')
  20251. GO
  20252. CREATE PROCEDURE sp_MScheck_pub_identity (
  20253. @publisher            sysname,
  20254. @publisher_db        sysname,
  20255. @tablename            sysname, 
  20256. @current_max        bigint  = NULL OUTPUT,
  20257. @pub_range            bigint  = NULL OUTPUT,
  20258. @threshold            int  = NULL OUTPUT,
  20259. @range                bigint  = NULL OUTPUT,
  20260. @next_seed            bigint  = NULL OUTPUT,
  20261. @max_identity        bigint = NULL OUTPUT
  20262. )AS
  20263.  
  20264.     declare @retcode        int
  20265.  
  20266.     if @current_max is not NULL
  20267.     begin
  20268.         select @current_max=current_max from MSrepl_identity_range 
  20269.             where tablename=@tablename and LOWER(publisher)=LOWER(@publisher) and publisher_db=@publisher_db
  20270.         if @@ERROR<>0    
  20271.             return (1)
  20272.     end
  20273.  
  20274.     if @max_identity is not NULL
  20275.     begin
  20276.         select @max_identity=max_identity from MSrepl_identity_range 
  20277.             where tablename=@tablename and LOWER(publisher)=LOWER(@publisher) and publisher_db=@publisher_db
  20278.         if @@ERROR<>0    
  20279.             return (1)
  20280.     end
  20281.  
  20282.     if @pub_range is not NULL
  20283.     begin
  20284.         select @pub_range=pub_range from MSrepl_identity_range 
  20285.             where tablename=@tablename and LOWER(publisher)=LOWER(@publisher) and publisher_db=@publisher_db
  20286.         if @@ERROR<>0    
  20287.             return (1)
  20288.     end
  20289.  
  20290.     if @threshold is not NULL
  20291.     begin
  20292.         select @threshold=threshold from MSrepl_identity_range 
  20293.             where tablename=@tablename and LOWER(publisher)=LOWER(@publisher) and publisher_db=@publisher_db
  20294.         if @@ERROR<>0    
  20295.             return (1)
  20296.     end
  20297.     if @next_seed is not NULL
  20298.     begin
  20299.         select @next_seed=next_seed from MSrepl_identity_range 
  20300.             where tablename=@tablename and LOWER(publisher)=LOWER(@publisher) and publisher_db=@publisher_db
  20301.         if @@ERROR<>0    
  20302.             return (1)
  20303.     end
  20304.     if @range is not NULL
  20305.     begin
  20306.         select @range=range from MSrepl_identity_range 
  20307.             where tablename=@tablename and LOWER(publisher)=LOWER(@publisher) and publisher_db=@publisher_db
  20308.         if @@ERROR<>0    
  20309.             return (1)
  20310.     end
  20311.  
  20312. return (0)
  20313. GO
  20314.  
  20315. raiserror(15339,-1,-1,'sp_MSadjust_pub_identity')
  20316. GO
  20317.  
  20318. CREATE PROCEDURE sp_MSadjust_pub_identity (
  20319. @publisher            sysname,
  20320. @publisher_db        sysname,
  20321. @tablename            sysname,
  20322. @current_max        int  = NULL,
  20323. @threshold            int  = NULL,
  20324. @range                int = NULL,
  20325. @next_seed            int  = NULL
  20326. )AS
  20327.  
  20328.     declare @retcode        int
  20329.     if @current_max is NOT NULL
  20330.     begin
  20331.         update MSrepl_identity_range set current_max=@current_max 
  20332.             where tablename=@tablename and LOWER(publisher)=LOWER(@publisher) and publisher_db=@publisher_db
  20333.         if @@ERROR<>0    
  20334.             return (1)
  20335.         if exists (select * from MSrepl_identity_range where max_identity is not NULL 
  20336.             and ABS(current_max) > ABS(max_identity))
  20337.         begin
  20338.             raiserror(21195, 16, -1)
  20339.             return (1)
  20340.         end
  20341.     end
  20342.     if @threshold is NOT NULL
  20343.     begin
  20344.     update MSrepl_identity_range set threshold=@threshold 
  20345.         where tablename=@tablename and LOWER(publisher)=LOWER(@publisher) and publisher_db=@publisher_db
  20346.     if @@ERROR<>0    
  20347.         return (1)
  20348.     end
  20349.     if @next_seed is NOT NULL
  20350.     begin
  20351.     update MSrepl_identity_range set next_seed=@next_seed 
  20352.         where tablename=@tablename and LOWER(publisher)=LOWER(@publisher) and publisher_db=@publisher_db
  20353.     if @@ERROR<>0
  20354.         return (1)
  20355.     end
  20356.     if @range is NOT NULL
  20357.     begin
  20358.     update MSrepl_identity_range set range=@range 
  20359.         where tablename=@tablename and LOWER(publisher)=LOWER(@publisher) and publisher_db=@publisher_db    
  20360.     if @@ERROR<>0
  20361.         return (1)
  20362.     end
  20363. return (0)
  20364. GO
  20365.  
  20366. raiserror(15339,-1,-1,'sp_MSinsert_identity')
  20367. GO
  20368.  
  20369. CREATE PROCEDURE sp_MSinsert_identity (
  20370.     @publisher             sysname,
  20371.     @publisher_db         sysname,
  20372.     @tablename             sysname,
  20373.     @identity_support    int,
  20374.     @pub_identity_range bigint,
  20375.     @identity_range     bigint,
  20376.     @threshold             int,
  20377.     @next_seed            bigint,
  20378.     @max_identity        bigint
  20379.     ) AS
  20380.     
  20381.     declare @pub_seed         bigint    
  20382.     declare @current_max     bigint
  20383.     if not exists (select * from MSrepl_identity_range 
  20384.             where tablename=@tablename and LOWER(publisher)=LOWER(@publisher) and publisher_db=@publisher_db)
  20385.     begin
  20386.         select @pub_seed = @pub_identity_range + @next_seed
  20387.         select @current_max = @pub_seed - 1
  20388.         insert MSrepl_identity_range(publisher, publisher_db, tablename, identity_support, next_seed, pub_range, range, max_identity, threshold, current_max    )
  20389.                 values (@publisher, @publisher_db, @tablename, @identity_support, @pub_seed,  @pub_identity_range, @identity_range, @max_identity, @threshold, @current_max)
  20390.         if @@ERROR<>0
  20391.             return 1
  20392.     end
  20393.     else if 1 > 1 --disable this segment for now.
  20394.         begin --adjust republisher's resource table
  20395.             select @pub_seed = @pub_identity_range - 1
  20396.             /* update range, threshold at republisher as needed. Max and next_seed has been set already. */
  20397.             update MSrepl_identity_range set    range = @identity_range,
  20398.                                                 pub_range = @pub_identity_range,
  20399.                                                 threshold=@threshold, 
  20400.                                                 next_seed=next_seed + @pub_identity_range,
  20401.                                                 current_max=next_seed + @pub_seed --new next_seed not yet picked up
  20402.             where tablename=@tablename and LOWER(publisher)=LOWER(@publisher) and publisher_db=@publisher_db
  20403.             if @@ERROR<>0
  20404.                 return (1)
  20405.         end
  20406. GO
  20407.  
  20408. raiserror(15339,-1,-1,'sp_MSget_subscription_dts_info')
  20409. GO
  20410.  
  20411. CREATE PROCEDURE sp_MSget_subscription_dts_info (
  20412.     @job_id varbinary(16)
  20413.  
  20414.     ) AS
  20415.  
  20416.     /*
  20417.     ** Declarations.
  20418.     */
  20419.  
  20420.     /*
  20421.     ** Initializations.
  20422.     */
  20423.     SET NOCOUNT ON
  20424.  
  20425.     select dts_package_name, dts_package_location 
  20426.         from MSdistribution_agents where
  20427.         job_id = @job_id
  20428.  
  20429.     RETURN (0)
  20430. go
  20431.  
  20432. raiserror(15339, -1, -1, 'sp_MSenumdistributionagentproperties')
  20433. GO
  20434.  
  20435. CREATE PROCEDURE sp_MSenumdistributionagentproperties (
  20436.     @publisher        sysname,
  20437.     @publisher_db     sysname,
  20438.     @publication      sysname
  20439.     ) AS
  20440.     DECLARE @independent_agent bit 
  20441.     DECLARE @publisher_id int  -- Server id of the Publisher with respect to the Distributor
  20442.    
  20443.     SELECT @publisher_id = NULL 
  20444.     SELECT @publisher_id = srvid 
  20445.       FROM master..sysservers
  20446.      WHERE UPPER(@publisher) = UPPER(srvname)  
  20447.     
  20448.     IF @publisher_id IS NULL
  20449.     BEGIN
  20450.         RAISERROR(21169, 16, -1, @publisher, @@SERVERNAME, @publisher)    
  20451.     END
  20452.  
  20453.     IF @publication <> '%' -- A publication name is specified 
  20454.     BEGIN
  20455.         -- Determine whether the given publication shares an 
  20456.         -- agent with other publicaitons in the same database
  20457.         -- or not
  20458.         SELECT @independent_agent = 0
  20459.         SELECT @independent_agent = independent_agent 
  20460.           FROM MSpublications
  20461.          WHERE publisher_id = @publisher_id
  20462.            AND publisher_db = @publisher_db
  20463.            AND publication = @publication  
  20464.         
  20465.         IF @independent_agent IS NULL
  20466.         BEGIN
  20467.             RAISERROR(20026, 16, -1)
  20468.         END
  20469.  
  20470.         IF @independent_agent = 0 
  20471.         BEGIN
  20472.             -- If the publication shares an agent with 
  20473.             -- other publications, change the publication
  20474.             -- name to 'ALL' before querying the MSdistribution_agents
  20475.             -- table
  20476.             SELECT @publication = N'ALL'                
  20477.         END
  20478.  
  20479.         SELECT job_id, offload_enabled, offload_server, 
  20480.                dts_package_name, dts_package_location,
  20481.                -- status of this agent, only useful in detecting
  20482.                -- whether or not the agent has be deactivated by cleanup
  20483.                -- If so, all the rows in MSsubscriptions will be 0
  20484.                (select top 1 s.status from MSsubscriptions s where
  20485.                     s.agent_id = a.id)
  20486.           FROM MSdistribution_agents a
  20487.          WHERE a.publisher_id = @publisher_id 
  20488.            AND a.publisher_db = @publisher_db
  20489.            AND a.publication = @publication
  20490.     END
  20491.     ELSE
  20492.     BEGIN
  20493.         SELECT job_id, offload_enabled, offload_server, 
  20494.                dts_package_name, dts_package_location,
  20495.                -- status of this agent, only useful in detecting
  20496.                -- whether or not the agent has be deactivated by cleanup
  20497.                -- If so, all the rows in MSsubscriptions will be 0
  20498.                (select top 1 s.status from MSsubscriptions s where
  20499.                     s.agent_id = a.id)
  20500.           FROM MSdistribution_agents a
  20501.          WHERE a.publisher_id = @publisher_id 
  20502.            AND a.publisher_db = @publisher_db
  20503.     END
  20504. GO
  20505.     
  20506. raiserror(15339, -1, -1, 'sp_MSenum_merge_agent_properties')
  20507. GO
  20508. CREATE PROCEDURE sp_MSenum_merge_agent_properties (
  20509.     @publisher        sysname,
  20510.     @publisher_db     sysname,
  20511.     @publication      sysname
  20512.     ) AS
  20513.     
  20514.     DECLARE @publisher_id int  -- Server id of the Publisher with respect to the Distributor
  20515.  
  20516.     SELECT @publisher_id = NULL 
  20517.     SELECT @publisher_id = srvid 
  20518.       FROM master..sysservers
  20519.      WHERE UPPER(@publisher) = UPPER(srvname)  
  20520.  
  20521.     IF @publisher_id IS  NULL
  20522.     BEGIN
  20523.         RAISERROR(21169, 16, -1, @publisher, @@SERVERNAME, @publisher)    
  20524.     END
  20525.  
  20526.     SELECT job_id, offload_enabled, offload_server 
  20527.       FROM MSmerge_agents
  20528.      WHERE publisher_id = @publisher_id 
  20529.        AND publisher_db = @publisher_db
  20530.        AND (@publication = N'%' OR publication = @publication)
  20531. GO
  20532.  
  20533. raiserror(15339, -1, -1, 'sp_dropanonymoussubscription')
  20534. GO
  20535. CREATE PROCEDURE sp_dropanonymoussubscription
  20536. @agent_id int,
  20537. @type int -- 1 tran sub, 2 merge sub
  20538. as
  20539.     declare @retcode int
  20540.     if @type not in (1,2)
  20541.     begin
  20542.         raiserror(20587, 16, -1, '@type', 'sp_dropanonymoussubscription')
  20543.         return (1)
  20544.     end
  20545.     -- If tran
  20546.     if @type = 1
  20547.     begin
  20548.         if not exists (select * from MSdistribution_agents where
  20549.             id = @agent_id and
  20550.             subscriber_name is not null)
  20551.         begin
  20552.             RAISERROR (14055, 11, -1)
  20553.             return(1)
  20554.         end
  20555.         exec @retcode = dbo.sp_MSdrop_distribution_agentid @agent_id
  20556.         if @retcode <> 0 or @@error <> 0
  20557.             return 1
  20558.     end
  20559.     else
  20560.     begin
  20561.         if not exists (select * from MSmerge_agents where
  20562.             id = @agent_id and
  20563.             subscriber_name is not null)
  20564.         begin
  20565.             RAISERROR (14055, 11, -1)
  20566.             return(1)
  20567.         end
  20568.         exec @retcode = dbo.sp_MSdrop_merge_agentid @agent_id
  20569.         if @retcode <> 0 or @@error <> 0
  20570.             return 1
  20571.     end
  20572. go
  20573.  
  20574. raiserror(15339, -1, -1, 'sp_MSdrop_anonymous_entry')
  20575. GO
  20576. CREATE PROCEDURE sp_MSdrop_anonymous_entry
  20577. @subid uniqueidentifier,
  20578. @login sysname,
  20579. @type int -- 1 tran sub, 2 merge sub
  20580. as
  20581.     declare @sid varbinary(85)
  20582.     declare @agent_id int, @retcode int
  20583.     set nocount on 
  20584.     if @type not in (1,2)
  20585.     begin
  20586.         raiserror(20587, 16, -1, '@type', 'sp_MSdrop_anonymous_entry')
  20587.         return (1)
  20588.     end
  20589.     -- If tran
  20590.     if @type = 1
  20591.     begin
  20592.         select @sid = sid from MSdistribution_agents where
  20593.             anonymous_subid = @subid
  20594.     end
  20595.     else
  20596.     begin
  20597.         select @sid = sid from MSmerge_agents where
  20598.             anonymous_subid = @subid
  20599.     end
  20600.     if @sid is null
  20601.     begin
  20602.         RAISERROR (14055, 11, -1)
  20603.         return(1)
  20604.     end
  20605.     -- null login means no security check needed
  20606.     if @login is not null and suser_sid(@login) <> @sid
  20607.     begin
  20608.         set @login = suser_sname(@sid)
  20609.         RAISERROR (20596, 11, -1, @login)
  20610.         RETURN (1)
  20611.     end
  20612.  
  20613.     if @type = 1
  20614.     begin
  20615.         select @agent_id = id from MSdistribution_agents where anonymous_subid = @subid
  20616.         if @agent_id is not null
  20617.         begin
  20618.             exec @retcode = dbo.sp_MSdrop_distribution_agentid @agent_id
  20619.             if @retcode <> 0 or @@error <> 0
  20620.                 return 1
  20621.         end
  20622.     end
  20623.     else
  20624.     begin
  20625.         select @agent_id = id from MSmerge_agents where anonymous_subid = @subid
  20626.         if @agent_id is not null
  20627.         begin
  20628.             exec @retcode = dbo.sp_MSdrop_merge_agentid @agent_id
  20629.             if @retcode <> 0 or @@error <> 0
  20630.                 return 1
  20631.         end
  20632.     end
  20633. go
  20634.  
  20635. raiserror(15339, -1, -1, 'sp_MSadddynamicsnapshotjobatdistributor')
  20636. go
  20637. --
  20638. -- Name: sp_MSadddynamicsnapshotjobatdistributor
  20639. --
  20640. -- Description: This function is called by sp_MSaddmergedynamicsnapshotjob 
  20641. --              at the publisher to set up a dynamic snapshot job in msdb
  20642. --              at the distributor. 
  20643. -- Notes: This procedure will only perform implicit checking for scheduling 
  20644. --        parameters as most parameters are expected to have been checked 
  20645. --        in sp_MSaddmergedynamicsnapshotjob
  20646. --
  20647. -- Parameters: @regular_snapshot_jobid uniqueidentifier (mandatory)
  20648. --             @dynamic_filter_login sysname (optional, default null)
  20649. --             @dynamic_filter_hostname sysname (optional, default null)
  20650. --             @dynamic_snapshot_location nvarchar(255) (mandatory)
  20651. --             @dynamic_snapshot_jobid uniqueidentifier (mandatory)
  20652. --             Scheduling information:
  20653. --             @freqtype int (optional, default 4 == Daily)
  20654. --             @freqinterval int (optional, default 1 == Every day)
  20655. --             @freqsubtype int (optional, default 4 (Sub interval = Minute))
  20656. --             @freqsubinterval int (optional, default 5 == Every five minutes)
  20657. --             @freqrelativeinterval int (optional, default 1) 
  20658. --             @freqrecurrencefactor int (optional, default 0) 
  20659. --             @activestartdate int (optional, default 0 == Today)
  20660. --             @activeenddate int (optional, default 99991231) 
  20661. --             @activestarttimeofday int (optional, default 0 == Now)        
  20662. --             @activeendtimeofday int (optional, default 235959)
  20663. --
  20664. -- Returns: 0 - succeeded
  20665. --          1 - failed
  20666. --
  20667. -- Security: Only members of the 'sysadmin' server role and members of the 
  20668. --           'db_owner' database role at the distributor can call this 
  20669. --           procedure. This procedure is intended to be called through 
  20670. --           the distributor_admin remote login in the case where
  20671. --           the distributor is a different machine from the publisher. 
  20672. --
  20673. create procedure sp_MSadddynamicsnapshotjobatdistributor (
  20674.     @regular_snapshot_jobid uniqueidentifier,
  20675.     @dynamic_filter_login sysname = null,
  20676.     @dynamic_filter_hostname sysname = null,
  20677.     @dynamic_snapshot_location nvarchar(255),
  20678.     @dynamic_snapshot_jobname sysname output,
  20679.     @dynamic_snapshot_jobid uniqueidentifier output,
  20680.  
  20681.     -- Scheduling information
  20682.     @freqtype               int = 4,
  20683.     @freqinterval           int = 1,
  20684.     @freqsubtype            int = 4,
  20685.     @freqsubinterval        int = 5,
  20686.     @freqrelativeinterval   int = 1, 
  20687.     @freqrecurrencefactor   int = 0,
  20688.     @activestartdate        int = 0,
  20689.     @activeenddate          int = 99991231,
  20690.     @activestarttimeofday   int = 0, 
  20691.     @activeendtimeofday     int = 235959
  20692.     )
  20693. as
  20694. begin
  20695.     set nocount on
  20696.  
  20697.     declare @retcode int
  20698.     declare @agent_command_line nvarchar(4000)
  20699.     declare @agent_id int
  20700.     declare @db_name sysname    
  20701.     declare @category_name sysname
  20702.     declare @nullchar nchar(20)
  20703.  
  20704.     declare @dynamicfilterloginparam nvarchar(50)
  20705.     declare @dynamicfilterhostnameparam nvarchar(50)
  20706.     declare @dynamicsnapshotlocationparam nvarchar(50)
  20707.     
  20708.     select @retcode = 0
  20709.     select @agent_command_line = null
  20710.     select @agent_id = null
  20711.     select @db_name = db_name()
  20712.     select @category_name = name 
  20713.       from msdb.dbo.syscategories 
  20714.      where category_id = 15
  20715.     select @nullchar = null
  20716.  
  20717.     select @dynamicfilterloginparam = N' -DynamicFilterLogin '
  20718.     select @dynamicfilterhostnameparam = N' -DynamicFilterHostName '
  20719.     select @dynamicsnapshotlocationparam = N' -DynamicSnapshotLocation '
  20720.  
  20721.     -- Get the regular snapshot agent command line
  20722.     select @agent_command_line = command 
  20723.       from msdb..sysjobsteps
  20724.      where job_id = @regular_snapshot_jobid
  20725.        and subsystem = N'Snapshot'
  20726.        and step_id = 2
  20727.         
  20728.     if @agent_command_line is null
  20729.     begin
  20730.         raiserror(21319, 11, -1)        
  20731.         return 1        
  20732.     end  
  20733.     
  20734.     -- Get the agent id    
  20735.     select @agent_id = id
  20736.       from MSsnapshot_agents
  20737.      where job_id = @regular_snapshot_jobid
  20738.  
  20739.     if @agent_id is null
  20740.     begin
  20741.         raiserror(21325, 11, -1)
  20742.         return 1
  20743.     end
  20744.  
  20745.     if @dynamic_snapshot_jobname is null or @dynamic_snapshot_jobname = N''
  20746.     begin
  20747.         -- Get the job name of the regular snapshot job. This is going to be used
  20748.         -- to derive a uniquefied job name for the dynamic snapshot job
  20749.         select @dynamic_snapshot_jobname = name 
  20750.           from msdb..sysjobs 
  20751.          where job_id = @regular_snapshot_jobid
  20752.     
  20753.         select @dynamic_snapshot_jobname = N'dyn_' + left(@dynamic_snapshot_jobname,88) + convert(nvarchar(36), newid()) 
  20754.     end
  20755.  
  20756.     if @dynamic_filter_login is not null and @dynamic_filter_login <> N''
  20757.     begin
  20758.         select @agent_command_line = @agent_command_line + @dynamicfilterloginparam + N'[' + rtrim(@dynamic_filter_login) + N']' 
  20759.     end
  20760.  
  20761.     if @dynamic_filter_hostname is not null and @dynamic_filter_hostname <> N''
  20762.     begin
  20763.         select @agent_command_line = @agent_command_line + @dynamicfilterhostnameparam + N'[' + rtrim(@dynamic_filter_hostname) + N']' 
  20764.     end
  20765.  
  20766.     -- @dynamic_snapshot_location is assumed to be non-empty
  20767.     select @agent_command_line = @agent_command_line + @dynamicsnapshotlocationparam + N'[' + @dynamic_snapshot_location + N']'
  20768.  
  20769.     -- Add the job
  20770.     exec @retcode = dbo.sp_MSadd_repl_job
  20771.          @name = @dynamic_snapshot_jobname,
  20772.          @subsystem = 'Snapshot',
  20773.          @server = @@servername,
  20774.          @databasename = @db_name,
  20775.          @enabled = 1,
  20776.          @freqtype = @freqtype,
  20777.          @freqinterval = @freqinterval,
  20778.          @freqsubtype = @freqsubtype,
  20779.          @freqsubinterval = @freqsubinterval,
  20780.          @freqrecurrencefactor = @freqrecurrencefactor,
  20781.          @activestartdate = @activestartdate,
  20782.          @activeenddate = @activeenddate,
  20783.          @activestarttimeofday = @activestarttimeofday,
  20784.          @activeendtimeofday = @activeendtimeofday,
  20785.          @nextrundate = 0,
  20786.          @nextruntime = 0,
  20787.          @runpriority = 0,
  20788.          @emailoperatorname = @nullchar,
  20789.          @retryattempts = 10,
  20790.          @retrydelay = 1,
  20791.          @command = @agent_command_line,
  20792.          @loghistcompletionlevel = 0,
  20793.          @emailcompletionlevel = 0,
  20794.          @description = @nullchar,
  20795.          @tagobjectid = 0,
  20796.          @tagobjecttype = 0,
  20797.          @category_name = @category_name,
  20798.          @failure_detection = 1,
  20799.          @agent_id = @agent_id,
  20800.          @job_id = @dynamic_snapshot_jobid output            
  20801.  
  20802.     return @retcode
  20803. end
  20804. go
  20805.  
  20806. raiserror(15339, -1, -1, 'sp_MSdeleterepljob')
  20807. go
  20808. --
  20809. -- Name: sp_MSdeleterepljob
  20810. --
  20811. -- Description: This is a lightweight wrapper of sp_delete_job to be used
  20812. --              by remote publishers.
  20813. --
  20814. -- Parameter: @job_id uniqueidentifier (mandatory)
  20815. --
  20816. -- Returns 0 - succeeded
  20817. --         1 - failed
  20818. -- 
  20819. -- Security: Only members of the sysadmin server role and members of the 
  20820. -- db_owner role of the distribution database can execute this function. This
  20821. -- procedure is intended to be called through the distribution_admin remote 
  20822. -- login from remote publishers
  20823. --
  20824. create procedure sp_MSdeleterepljob (
  20825.     @job_id uniqueidentifier
  20826.     )
  20827. as
  20828. begin
  20829.     set nocount on
  20830.     declare @retcode int
  20831.     declare @job_name sysname 
  20832.  
  20833.     select @retcode = 0
  20834.     exec @retcode = msdb..sp_delete_job @job_id = @job_id
  20835.  
  20836.     return @retcode
  20837. end
  20838. go
  20839.  
  20840. raiserror(15339, -1, -1, 'sp_MSdeletefoldercontents')
  20841. go
  20842. --
  20843. -- Name: sp_MSdeletefoldercontents
  20844. --
  20845. -- Description: This is a lighweight wrapper for deleting all files in the
  20846. --              specified. This procedure is meant to be called by a remote 
  20847. --              publisher for deleting files in the distributor's context.
  20848. --
  20849. -- Parameter: @folder nvarchar(255) (mandatory)
  20850. --
  20851. -- Returns 0 - succeeded
  20852. --         1 - failed
  20853. --
  20854. -- Security: Only members of the sysadmin server role and members of the 
  20855. -- db_owner role of the distribution database can execute this function. This
  20856. -- procedure is intended to be called through the distribution_admin remote 
  20857. -- login from remote publishers
  20858. --
  20859. create procedure sp_MSdeletefoldercontents (
  20860.     @folder nvarchar(255)
  20861.     )
  20862. as
  20863. begin
  20864.     set nocount on
  20865.  
  20866.     declare @command nvarchar(4000)
  20867.     declare @retcode int
  20868.  
  20869.     select @retcode = 0
  20870.     if len(@folder) = 0 or @folder is null
  20871.     begin
  20872.         return 0
  20873.     end
  20874.  
  20875.     -- Append '\*' to the given path 
  20876.     if substring(@folder, len(@folder), 1) <> N'\'
  20877.     begin
  20878.         select @folder = @folder + N'\'
  20879.     end 
  20880.  
  20881.     select @folder = @folder + '*'    
  20882.  
  20883.     if (platform() & 0x1) = 0x1 
  20884.     begin
  20885.         select @command = 'del /q /f "' + @folder + '"'
  20886.     end
  20887.     else
  20888.     begin
  20889.         -- Win9x 'del' command does not support the /q and /f switches
  20890.         select @command = 'del "' + @folder + '.*"'
  20891.     end
  20892.  
  20893.     exec @retcode = master..xp_cmdshell @command, no_output
  20894.     return @retcode
  20895.  
  20896. end
  20897. go
  20898.  
  20899. CREATE PROCEDURE sp_MSinvalidate_snapshot
  20900. @publisher sysname,
  20901. @publisher_db sysname,
  20902. @publication sysname
  20903.  
  20904. as
  20905.     set nocount on
  20906.     declare @publisher_id smallint  
  20907.     declare @automatic tinyint
  20908.     declare @virtual smallint 
  20909.     declare @retcode int
  20910.     declare @active tinyint
  20911.         , @initiated tinyint
  20912.         , @subscribed tinyint
  20913.     declare @publication_id int
  20914.  
  20915.     select @automatic = 1
  20916.     select @virtual = - 1
  20917.     select @active = 2
  20918.         , @initiated = 3
  20919.         , @subscribed = 1
  20920.  
  20921.     -- Check if publisher is a defined as a distribution publisher in the current database
  20922.     exec @retcode = dbo.sp_MSvalidate_distpublisher @publisher, @publisher_id OUTPUT
  20923.     if @retcode <> 0
  20924.     begin
  20925.         return(1)
  20926.     end
  20927.  
  20928.     -- Make sure publication exists
  20929.     select @publication_id = publication_id
  20930.         from MSpublications where publication = @publication and
  20931.         publisher_id = @publisher_id and publisher_db = @publisher_db
  20932.  
  20933.     -- Set the virtual subscription status to be 'subscribed' so that
  20934.     -- new subscription will wait for the next snapshot.
  20935.     update MSsubscriptions set status = @subscribed where 
  20936.         publication_id = @publication_id and
  20937.         sync_type = @automatic and
  20938.         status in (@active, @initiated) and
  20939.         subscriber_id = @virtual
  20940.  
  20941.     return (0)
  20942. GO
  20943.  
  20944. create procedure sp_MSrepl_init_backup_lsns
  20945. as
  20946.     -- The stored procedure is called by sp_replicationoption when changing a dist
  20947.     -- db to 'sync with backup' mode
  20948.     set nocount on
  20949.     
  20950.     -- Set the truncate lsns to null. By doing this
  20951.     -- the distribution agent will stop calling sp_repldone untill a dist db
  20952.     -- backup is done.
  20953.     update MSrepl_backup_lsns set valid_xact_seqno = NULL,
  20954.         valid_xact_id = NULL
  20955.     if @@error <> 0
  20956.         return 1
  20957.     return 0
  20958. go
  20959.  
  20960. --
  20961. -- Name: sp_MSispublicationqueued
  20962. --
  20963. -- Description: This procedure is invoked by sp_MShelp_replication_status 
  20964. --                to find out if the specified publication supports queued
  20965. --                updating subscribers. 
  20966. --
  20967. -- Parameter: 
  20968. --                @publisher sysname (mandatory)
  20969. --                @publisher_db sysname (mandatory)
  20970. --                @publication sysname (mandatory)
  20971. --                @allow_queued_tran bit OUTPUT (mandatory)
  20972. --
  20973. -- Returns 0 - succeeded
  20974. --         1 - failed
  20975. --
  20976. -- Security: Only members of the sysadmin server role and members of the 
  20977. -- db_owner role of the distribution database can execute this function.
  20978. --
  20979. raiserror(15339,-1,-1,'sp_MSispublicationqueued')
  20980. go
  20981. create procedure sp_MSispublicationqueued (
  20982.     @publisher sysname
  20983.     ,@publisher_db sysname
  20984.     ,@publication sysname
  20985.     ,@allow_queued_tran bit OUTPUT
  20986.     )
  20987. as
  20988. begin
  20989.     --
  20990.     -- get the queued tran state for the publication
  20991.     --
  20992.     if exists (select * from dbo.sysobjects where name = N'MSpublications')
  20993.     begin
  20994.         select @allow_queued_tran = pub.allow_queued_tran 
  20995.         from (dbo.MSpublications as pub join master.dbo.sysservers as srv
  20996.                 on pub.publisher_id = srv.srvid)
  20997.         where UPPER(srv.srvname) = UPPER(@publisher)
  20998.             and pub.publisher_db = @publisher_db
  20999.             and pub.publication = @publication
  21000.     end
  21001.     else
  21002.         select @allow_queued_tran = 0
  21003.  
  21004.     --
  21005.     -- all done
  21006.     --
  21007.     return 0
  21008. end
  21009. go
  21010.  
  21011. raiserror(15339,-1,-1,'sp_MSlog_agent_cancel')
  21012. go
  21013. create procedure sp_MSlog_agent_cancel
  21014. @job_id binary(16),
  21015. @category_id int,
  21016. @message nvarchar(1024)
  21017. as
  21018.     -- This stored procedure is called by msdb proc, sp_sqlagent_log_jobhistory to
  21019.     -- log a agent cancel message to repl monitor (agent history tables) when the
  21020.     -- agent fails to log a complete message to repl monitor directly. 
  21021.     -- sp_MSdetect_nonlogged_shutdown would not help in this case, because that step
  21022.     -- will not be executed because the job is canceled before the step.
  21023.     declare @agent_id int
  21024.  
  21025.     if @category_id = 15
  21026.     begin
  21027.         -- Get agent_id
  21028.         select @agent_id = id from MSsnapshot_agents where job_id = @job_id
  21029.         if exists (select runstatus from MSsnapshot_history where 
  21030.             agent_id = @agent_id and
  21031.             runstatus <> 2 and 
  21032.             runstatus <> 5 and 
  21033.             runstatus <> 6 and
  21034.             timestamp = (select max(timestamp) from MSsnapshot_history where agent_id = @agent_id))
  21035.         begin
  21036.             -- Log success message.
  21037.             exec dbo.sp_MSadd_snapshot_history @agent_id = @agent_id, @runstatus = 2,
  21038.                     @comments = @message
  21039.         end
  21040.     end
  21041.     else if @category_id = 13
  21042.     begin
  21043.         -- Get agent_id
  21044.         select @agent_id = id from MSlogreader_agents where job_id = @job_id
  21045.         if exists (select runstatus from MSlogreader_history where 
  21046.             agent_id = @agent_id and
  21047.             runstatus <> 2 and 
  21048.             runstatus <> 5 and 
  21049.             runstatus <> 6 and
  21050.             timestamp = (select max(timestamp) from MSlogreader_history where agent_id = @agent_id))
  21051.             begin
  21052.                 -- Log success message.
  21053.                 exec dbo.sp_MSadd_logreader_history @agent_id = @agent_id, @runstatus = 2,
  21054.                         @comments = @message
  21055.             end
  21056.     end
  21057.     else if @category_id = 10
  21058.     begin
  21059.         -- Get agent_id
  21060.         select @agent_id = id from MSdistribution_agents where job_id = @job_id
  21061.         if exists (select runstatus from MSdistribution_history where 
  21062.             agent_id = @agent_id and
  21063.             runstatus <> 2 and 
  21064.             runstatus <> 5 and 
  21065.             runstatus <> 6 and
  21066.             timestamp = (select max(timestamp) from MSdistribution_history where agent_id = @agent_id))
  21067.             begin
  21068.                 -- Log success message.
  21069.                 exec dbo.sp_MSadd_distribution_history @agent_id = @agent_id, @runstatus = 2,
  21070.                         @comments = @message
  21071.             end
  21072.     end
  21073.     else if @category_id = 14
  21074.     begin
  21075.         -- Get agent_id
  21076.         select @agent_id = id from MSmerge_agents where job_id = @job_id
  21077.         if exists (select runstatus from MSmerge_history where 
  21078.             agent_id = @agent_id and
  21079.             runstatus <> 2 and 
  21080.             runstatus <> 5 and 
  21081.             runstatus <> 6 and
  21082.             timestamp = (select max(timestamp) from MSmerge_history where agent_id = @agent_id))
  21083.             begin
  21084.                 -- Log success message.
  21085.                 exec dbo.sp_MSadd_merge_history @agent_id = @agent_id, @runstatus = 2,
  21086.                         @comments = @message
  21087.             end
  21088.     end
  21089.     else if @category_id = 19
  21090.     begin
  21091.         -- Get agent_id
  21092.         select @agent_id = id from MSqreader_agents where job_id = @job_id
  21093.         if exists (select runstatus from MSqreader_history where 
  21094.             agent_id = @agent_id and
  21095.             runstatus <> 2 and 
  21096.             runstatus <> 5 and 
  21097.             runstatus <> 6 and
  21098.             timestamp = (select max(timestamp) from MSqreader_history where agent_id = @agent_id))
  21099.             begin
  21100.                 -- Log success message.
  21101.                 exec dbo.sp_MSadd_qreader_history @agent_id = @agent_id, @runstatus = 2,
  21102.                         @comments = @message
  21103.             end
  21104.     end
  21105.  
  21106. GO
  21107.  
  21108. create procedure sp_MSwritemergeperfcounter (
  21109.     @agent_id int,
  21110.     @thread_num int,
  21111.     @counter_desc nvarchar(100),
  21112.     @counter_value int
  21113.     )
  21114. AS
  21115.     if (not exists (select * from sysobjects where name = 'MSmerge_perfcounters'))
  21116.     begin
  21117.         create table MSmerge_perfcounters
  21118.         (
  21119.             agent_id int NOT NULL,
  21120.             thread_num int NULL,
  21121.             counter_desc nvarchar(100) NOT NULL,
  21122.             counter_value int NOT NULL,
  21123.             cur_time datetime NOT NULL
  21124.         )
  21125.     end
  21126.  
  21127.     insert into MSmerge_perfcounters values (@agent_id, @thread_num, @counter_desc, @counter_value, getdate())
  21128.  
  21129.     return 0
  21130. go
  21131. EXEC dbo.sp_MS_marksystemobject 'sp_MSwritemergeperfcounter'
  21132. go
  21133. grant execute on sp_MSwritemergeperfcounter to public
  21134. go
  21135.  
  21136. go
  21137.  
  21138. /****************************************************************************/
  21139. print ''
  21140. print 'Adding user ''guest''.'
  21141. print ''
  21142. /****************************************************************************/
  21143. if not exists (select * from sysusers where
  21144.     name = N'guest' and
  21145.     hasdbaccess = 1)
  21146.     EXEC  dbo.sp_adduser 'guest'
  21147.  
  21148. /****************************************************************************/
  21149. print ''
  21150. print 'Adding role ''replmonitor''.'
  21151. print ''
  21152. /****************************************************************************/
  21153. if not exists (select * from sysusers where
  21154.     name = N'replmonitor' and
  21155.     issqlrole = 1)
  21156.     EXEC  dbo.sp_addrole 'replmonitor'
  21157.  
  21158.  
  21159. grant execute on dbo.sp_MSdistribution_counters to public
  21160. GO 
  21161. grant execute on dbo.sp_MShelp_profile to public
  21162. GO
  21163. grant execute on dbo.sp_MShelp_subscriber_info to public
  21164. GO
  21165.  
  21166.  
  21167. /* 
  21168. Stored procedures called by dist publisher.
  21169. distributor_admin will be added to db_owner role. Members of
  21170. db_owner have permission on all the stored procedures. 
  21171.  
  21172. -- Stored procedure used by remote publisher RPC
  21173. grant execute on dbo.sp_MSbrowsesnapshotfolder to db_owner
  21174. grant execute on dbo.sp_MSadd_publication to db_owner
  21175. grant execute on dbo.sp_MSchange_publication to db_owner
  21176. grant execute on dbo.sp_MSdrop_publication to db_owner
  21177. grant execute on dbo.sp_MSadd_article to db_owner
  21178. grant execute on dbo.sp_MSchange_article to db_owner
  21179. grant execute on dbo.sp_MSdrop_article to db_owner
  21180. grant execute on dbo.sp_MSadd_subscriber_info to db_owner
  21181. grant execute on dbo.sp_MSupdate_subscriber_info to db_owner
  21182. grant execute on dbo.sp_MSadd_subscriber_schedule to db_owner
  21183. grant execute on dbo.sp_MSupdate_subscriber_schedule to db_owner
  21184. grant execute on dbo.sp_MShelp_subscriber_info to db_owner
  21185. grant execute on dbo.sp_MSdrop_subscriber_info to db_owner
  21186. grant execute on dbo.sp_MSadd_snapshot_agent to db_owner
  21187. grant execute on dbo.sp_MSdrop_snapshot_agent to db_owner
  21188. grant execute on dbo.sp_MSadd_logreader_agent to db_owner
  21189. grant execute on dbo.sp_MSdrop_logreader_agent to db_owner
  21190. grant execute on dbo.sp_MSreset_subscription to db_owner
  21191. grant execute on dbo.sp_MSenableagentoffload to db_owner
  21192. grant execute on dbo.sp_MSdisableagentoffload to db_owner
  21193. grant execute on dbo.sp_MSinsert_identity to db_owner
  21194. grant execute on dbo.sp_MSadjust_pub_identity to db_owner
  21195. grant execute on dbo.sp_MScheck_pub_identity to db_owner
  21196. grant execute on dbo.sp_MSadddynamicsnapshotjobatdistributor to db_owner
  21197. grant execute on dbo.sp_MSdrop_repl_job to db_owner
  21198. -- Stored procedure used by snapshot and logreader agents
  21199. grant execute on dbo.sp_MSadd_repl_command to db_owner
  21200. grant execute on dbo.sp_MSadd_repl_commands27 to db_owner
  21201. grant execute on dbo.sp_MSadd_repl_commands27hp to db_owner
  21202. grant execute on dbo.sp_MSadd_repl_commands27hp6x to db_owner
  21203. grant execute on dbo.sp_MSget_last_transaction to db_owner
  21204. grant execute on dbo.sp_MSset_snapshot_xact_seqno to db_owner
  21205. grant execute on dbo.sp_MSadd_snapshot_history to db_owner
  21206. grant execute on dbo.sp_MSadd_logreader_history to db_owner
  21207. grant execute on dbo.sp_MSdist_activate_auto_sub to db_owner
  21208. grant execute on dbo.sp_MSlock_auto_sub to db_owner
  21209. grant execute on dbo.sp_MSget_new_xact_seqno to db_owner
  21210. grant execute on dbo.sp_MSactivate_subscriptions to db_owner
  21211. grant execute on dbo.sp_MShelp_snapshot_agentid to db_owner
  21212. grant execute on dbo.sp_MShelp_logreader_agentid to db_owner
  21213. grant execute on dbo.sp_MSadd_subscription to public
  21214. grant execute on dbo.sp_MSupdate_subscription to public
  21215. grant execute on dbo.sp_MSdrop_subscription to public
  21216. grant execute on dbo.sp_MSadd_merge_subscription to public
  21217. grant execute on dbo.sp_MSdrop_merge_subscription to public
  21218. */
  21219.  
  21220.  
  21221.  
  21222. -- Stored procedures used by dist and merge agents. They are granted to public
  21223.  
  21224. grant execute on dbo.sp_MSmarkreinit to public
  21225. go
  21226.  
  21227. -- Procedures to retrieve actual data. Need security check inside
  21228. grant execute on dbo.sp_MSget_repl_commands to public
  21229. GO
  21230. grant execute on dbo.sp_MSget_repl_cmds_anonymous to public
  21231. GO
  21232.  
  21233. -- Procedures to modify meta data. Need security check inside.
  21234. grant execute on dbo.sp_MSadd_distribution_history to public
  21235. grant execute on dbo.sp_MSadd_repl_error to public
  21236. grant execute on dbo.sp_MSadd_repl_alert to public
  21237. grant execute on dbo.sp_MSadd_replmergealert to public
  21238. grant execute on dbo.sp_MSadd_merge_history to public
  21239. grant execute on dbo.sp_MSadd_anonymous_agent to public
  21240. grant execute on dbo.sp_MSadd_merge_anonymous_agent to public
  21241. grant execute on dbo.sp_MSdist_adjust_identity to public
  21242. GO
  21243.  
  21244. -- Procedures to retrieve meta data. No security check inside.
  21245. grant execute on dbo.sp_MSget_subscription_guid to public
  21246. grant execute on dbo.sp_MSreset_subscription_seqno to public
  21247. grant execute on dbo.sp_MSanonymous_status to public
  21248. grant execute on dbo.sp_MSsubscription_status to public
  21249. grant execute on dbo.sp_MShelp_merge_agentid to public
  21250. grant execute on dbo.sp_MScheckretention to public
  21251. grant execute on dbo.sp_MShelp_distribution_agentid to public
  21252. grant execute on dbo.sp_MScheck_tran_retention to public
  21253. grant execute on dbo.sp_MSgetagentoffloadinfo to public
  21254. grant execute on dbo.sp_MSenumdistributionagentproperties to public
  21255. grant execute on dbo.sp_MSenum_merge_agent_properties to public
  21256. grant execute on dbo.sp_MSrepl_raiserror to public
  21257. -- sp_MShelp_publication is used by the distribution control add anonymous
  21258. -- subscription logic to ascertain the existence of a publication 
  21259. grant execute on dbo.sp_MShelp_publication to public
  21260. -- sp_MSenum_replication_status to load repl monitor status table
  21261. -- The status table is global and shared by all users. A user in
  21262. -- replmonitor role in any dist db may load the table, the proc
  21263. -- has to be granted to public.
  21264. grant execute on sp_MSenum_replication_status to public
  21265. go
  21266.  
  21267. -- grant monitoring sps to replmonitor
  21268. GRANT exec on sp_MShelp_publication to replmonitor 
  21269. GRANT exec on sp_MSenum_subscriptions to replmonitor 
  21270. GRANT exec on sp_MSIfExistsSubscription to replmonitor 
  21271. GRANT exec on sp_MSenum_merge_subscriptions to replmonitor 
  21272. GRANT exec on sp_MSenum_distribution to replmonitor 
  21273. GRANT exec on sp_MSenum_merge to replmonitor 
  21274. GRANT exec on sp_MSenum_snapshot to replmonitor 
  21275. GRANT exec on sp_MSenum_logreader to replmonitor
  21276. GRANT exec on sp_MSenum_qreader to replmonitor 
  21277. GRANT exec on sp_MSenum_snapshot_s to replmonitor 
  21278. GRANT exec on sp_MSenum_logreader_s to replmonitor
  21279. GRANT exec on sp_MSenum_distribution_s to replmonitor
  21280. GRANT exec on sp_MSenum_merge_s to replmonitor 
  21281. GRANT exec on sp_MSenum_qreader_s to replmonitor 
  21282. GRANT exec on sp_MSenum_snapshot_sd to replmonitor 
  21283. GRANT exec on sp_MSenum_logreader_sd to replmonitor
  21284. GRANT exec on sp_MSenum_distribution_sd to replmonitor
  21285. GRANT exec on sp_MSenum_merge_sd to replmonitor
  21286. GRANT exec on sp_MSenum_qreader_sd to replmonitor
  21287. GRANT exec on sp_MSget_repl_error to replmonitor
  21288. go
  21289.  
  21290.  
  21291. declare @dbname sysname
  21292. select  @dbname = db_name()
  21293. execute('dump transaction ' +@dbname+ ' with no_log')
  21294. go
  21295. checkpoint
  21296.  
  21297. go
  21298.  
  21299. exec dbo.sp_MS_upd_sysobj_category 2  --Now do catalog updates.
  21300.  
  21301. go
  21302.  
  21303. EXEC dbo.sp_configure 'allow updates', 0
  21304. GO
  21305.  
  21306. reconfigure with override
  21307. GO
  21308. -- - ----
  21309.