/*
_DevType "-SERS" found)?
{
}
{
root\
_Msys.Partnership
{

*machmsgq
"msgq" log)(
{
 "Partner" <_Msg.Lookup>
 {
  \_Partner dup !Mach.Partner _Msg.Partner eq$
  {
%
% same partner Ip
%
   _Msys.HasPartner
   {
   }
   {
%%%    *machnavp(
   } ifelse
  }
  {
%
% different report of partner Ip
%
   _Msg.Partner
"curpart" log)(
   *machispb
"hasnew" log)(
   {
%
% proper ip format, update partner setting in tree
%
% new partner Ip
%
"newpart" log)(
    dup !Mach.Partner
    \!Partner
    nod@
    *machnavp(
   }
   {
    _Msys.HasPartner
    {
    }
    {
     *machrepa
    } ifelse
   } ifelse
  } ifelse
 } if
} if

}
{
} ifelse
} ifelse
*/