RtReadOnly added to flag word

src/wbl/pwrs/src/pwrs_c_system.wb_load

 ! 
-!  Proview   $Id: pwrs_c_system.wb_load,v 1.4 2006-02-23 14:37:20 claes Exp $
+!  Proview   $Id: pwrs_c_system.wb_load,v 1.5 2008-06-24 07:19:16 claes Exp $
 !  Copyright (C) 2005 SSAB Oxelösund AB.
 !
 !  This program is free software; you can redistribute it and/or 
@@ -64,6 +64,7 @@ SObject pwrs:Class
       Object SystemName $Attribute 2
         Body SysBody
           Attr TypeRef = "pwrs:Type-$String80"
+          Attr Flags |= PWR_MASK_CONST
         EndBody
       EndObject
       !/**
@@ -78,6 +79,7 @@ SObject pwrs:Class
       Object SystemGroup $Attribute 9
         Body SysBody
           Attr TypeRef = "pwrs:Type-$String80"
+          Attr Flags |= PWR_MASK_CONST
         EndBody
       EndObject
     EndObject