sp_MSchange_retention (Transact-SQL MetaData) Definition

Please note: that the following source code is provided and copyrighted by Microsoft and is for educational purpose only.
The meta data is from an SQL 2012 Server.

I have posted alot more, find the whole list here.

Goto Definition or MetaData

Definition:

sys.sp_MSchange_retention(uniqueidentifier @pubid
, nvarchar @value)

MetaData:

   
create procedure sys.sp_MSchange_retention (@pubid uniqueidentifier, @value nvarchar(255))  
as  
    declare @re_pubid            uniqueidentifier   
    declare @artid                uniqueidentifier  
    declare @schemaversion      int   
    declare @schemaguid         uniqueidentifier  
    declare @schematype         int  
    declare @schematext         nvarchar(2000)  
    declare @retcode            int  
    declare @SCHEMA_TYPE_RETENTIONCHANGE int  
  
    --  Security check  
    exec @retcode = dbo.sp_MSreplcheck_subscribe  
    if @retcode <> 0 or @@error <> 0  
        return 1  
  
    set @SCHEMA_TYPE_RETENTIONCHANGE= 9  
      
    begin tran  
    save tran change_retention  
  
    update dbo.sysmergepublications set retention = convert(int, @value) where pubid = @pubid  
    if @@ERROR<>0  
        goto UNDO  
          
    --  Declare a cursor that iterates over all publications which originate at this node.  
    declare #change_retention CURSOR LOCAL FAST_FORWARD for   
        select pubid from dbo.sysmergearticles   
            where pubid<>@pubid and   
                  nickname in (select nickname from dbo.sysmergearticles where pubid=@pubid) and  
                  pubid in (select pubid from dbo.sysmergepublications   
                                  where upper(publisher) collate database_default = upper(publishingservername()) collate database_default and  
                                        publisher_db = db_name())  
  
    open #change_retention  
    fetch #change_retention into @re_pubid  
    while (@@fetch_status <> -1)  
    BEGIN  
        update dbo.sysmergepublications set retention = convert(int, @value) where pubid = @re_pubid  
        if @@ERROR<>0  
            goto UNDO  
        set @schematype= @SCHEMA_TYPE_RETENTIONCHANGE  
        set @artid = null  
        select @schematext = 'exec dbo.sp_MSchange_retention '+ '''' + convert(nchar(36),@re_pubid) + '''' + ',' + '''' + @value + ''''            
        select @schemaversion = schemaversion from dbo.sysmergeschemachange  
        if (@schemaversion is NULL)  
            set @schemaversion = 1  
        else  
            select @schemaversion = 1 + max(schemaversion) from dbo.sysmergeschemachange          
        set @schemaguid = newid()  
        exec @retcode=sys.sp_MSinsertschemachange @re_pubid, @artid, @schemaversion, @schemaguid, @schematype, @schematext  
        if @@ERROR<>0 or @retcode<>0   
            goto UNDO  
        fetch #change_retention into @re_pubid  
    END  
    close #change_retention  
    deallocate #change_retention  
      
    COMMIT TRAN  
    return (0)  
UNDO:  
    ROLLBACK tran change_retention  
    COMMIT TRAN  
    return(1)