namespace eval plc {
  proc set_sobj_attributes {} {
    set objlist [sicslist match plc_*];
    foreach v $objlist {
      if { [SplitReply [sicslist $v type]]== "SicsVariable"} {
        ::utility::mkData $v  [string replace $v 0 3] plc privilege user control true data false
      }
    }
  }
}