Casted attributes implemented

src/wbl/pwrs/src/pwrs_t_castid.wb_load

+!  pwrs_t_typeid.wb_load -- Defines the basic type TypeId
+!
+!  PROVIEW/R
+!  Copyright (C) 1996 by Comator Process AB.
+!
+!  <Description>.
+!
+!
+SObject pwrs:Type
+!/**
+!  @Version 1.0
+!  @Code pwr.h
+!  @Group BasicTypes,Types
+!  Type identity of casted attribute. Basic type.
+!
+!*/
+  Object $CastId pwr_eClass_Type pwr_eTix_CastId
+    Body SysBody
+      Attr Type = pwr_eType_CastId
+      Attr Size = 4
+    EndBody
+  EndObject
+EndSObject