IO flags i ClassDef flags

src/wbl/pwrs/src/pwrs_td_classdefflags.wb_load

@@ -143,25 +143,45 @@ SObject pwrs:Type
      EndBody
     EndObject
     !/**
-    !  Object has callbacks.
+    !  Object is IO agent.
     !*/
-    Object HasCallBack $Bit
+    Object IOAgent $Bit
      Body SysBody
-       Attr PgmName = "HasCallBack"
-       Attr Text = "HasCallBack"
+       Attr PgmName = "IOAgent"
+       Attr Text = "IOAgent"
        Attr Value = 4096
      EndBody
     EndObject
     !/**
-    !  Object has casted attributes.
+    !  Object is IO rack.
     !*/
-    Object CastAttr $Bit
+    Object IORack $Bit
      Body SysBody
-       Attr PgmName = "CastAttr"
-       Attr Text = "CastAttr"
+       Attr PgmName = "IORack"
+       Attr Text = "IORack"
        Attr Value = 8192
      EndBody
     EndObject
+    !/**
+    !  Object is IO card.
+    !*/
+    Object IOCard $Bit
+     Body SysBody
+       Attr PgmName = "IOCard"
+       Attr Text = "IOCard"
+       Attr Value = 16384
+     EndBody
+    EndObject
+    !/**
+    !  Object has callbacks.
+    !*/
+    Object HasCallBack $Bit
+     Body SysBody
+       Attr PgmName = "HasCallBack"
+       Attr Text = "HasCallBack"
+       Attr Value = 32768
+     EndBody
+    EndObject
   EndObject
 EndSObject