namespace eval plc {
  proc status_hpath_setup {parent} {
    set plcPath $parent/plc
    hmake $plcPath spy none;
    hsetprop $plcPath type part;
    set objlist [sicslist match plc_*];
    foreach v $objlist {
      if { [SplitReply [sicslist $v type]]== "SicsVariable"} { 
        hattach $plcPath $v [string replace $v 0 3];
      }
    } 
  }
}