Time objects stored

src/exp/inc/src/pwr.h

 /* 
- * Proview   $Id: pwr.h,v 1.22 2005-12-14 13:05:51 claes Exp $
+ * Proview   $Id: pwr.h,v 1.23 2006-04-28 04:59:58 claes Exp $
  * Copyright (C) 2005 SSAB Oxelsund AB.
  *
  * This program is free software; you can redistribute it and/or 
@@ -503,6 +503,8 @@ static const pwr_tTid       pwr_cNTid       = 0;	//!< Zero type identity constan
 static const pwr_tVid       pwr_cNVid       = 0;	//!< Zero volume identity constant.
 static const pwr_tNid       pwr_cNNid       = 0;	//!< Zero node identity constant.
 static const pwr_tStatus    pwr_cNStatus    = 0;	//!< Zero status constant.
+static const pwr_tTime      pwr_cNTime      = {0, 0};	//!< Zero time constant.
+static const pwr_tDeltaTime pwr_cNDeltaTime = {0, 0};	//!< Zero deltatime constant.
 
 /* Gereral macro definitions  */
 

src/lib/rt/src/rt_plc_macro.h

 /* 
- * Proview   $Id: rt_plc_macro.h,v 1.3 2005-09-20 13:27:45 claes Exp $
+ * Proview   $Id: rt_plc_macro.h,v 1.4 2006-04-28 04:59:58 claes Exp $
  * Copyright (C) 2005 SSAB Oxelsund AB.
  *
  * This program is free software; you can redistribute it and/or 
@@ -39,5 +39,6 @@
 #include "rt_plc_macro_div.h"
 #include "rt_plc_macro_mps.h"
 #include "rt_plc_macro_string.h"
+#include "rt_plc_macro_time.h"
 #include "ra_plc_user.h"
 

src/lib/rt/src/rt_plc_macro_time.h

+/* 
+ * Proview   $Id: rt_plc_macro_time.h,v 1.1 2006-04-28 04:59:58 claes Exp $
+ * Copyright (C) 2005 SSAB Oxelsund AB.
+ *
+ * This program is free software; you can redistribute it and/or 
+ * modify it under the terms of the GNU General Public License as 
+ * published by the Free Software Foundation, either version 2 of 
+ * the License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful 
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of 
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License 
+ * along with the program, if not, write to the Free Software 
+ * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ */
+
+/*		 Preprocessor routines for time operations	    */
+
+/*_*
+  STOATV
+  store absolute time value			
+  @aref stoatv StoATv
+*/
+#define StoATv_exec(obj,in) \
+  obj->ActualValue = in;
+
+/*_*
+  STODTV
+  store delta time value			
+  @aref stodtv StoDTv
+*/
+#define StoDTv_exec(obj,in) \
+  obj->ActualValue = in;
+
+/*_*
+  CSTOATV								
+  store conditionally into absolute time value		
+  @aref cstoatv CStoATv
+*/
+#define CStoATv_exec(obj,in,cond) \
+  if ( cond ) \
+    obj->ActualValue = in;
+
+/*_*
+  CSTODTV								
+  store conditionally into delta time value		
+  @aref cstodtv CStoDTv
+*/
+#define CStoDTv_exec(obj,in,cond) \
+  if ( cond ) \
+    obj->ActualValue = in;
+
+/*_*
+  STOATP								
+  Store into absolute time attribute			
+  @aref stoatp StoATp
+*/
+#define StoATp_exec(ut,in) \
+  ut = in;
+
+/*_*
+  STODTP								
+  Store into delta time attribute			
+  @aref stodtp StoDTp
+*/
+#define StoDTp_exec(ut,in) \
+  ut = in;
+
+/*_*
+  CSTOATP
+  Store conditionally into absolute time attribute	
+  @aref cstoatp CStoATp
+*/
+#define CStoATp_exec(ut,in,cond) \
+  if ( cond) \
+    ut = in;
+
+/*_*
+  CSTODTP
+  Store conditionally into delta time attribute	
+  @aref cstodtp CStoDTp
+*/
+#define CStoDTp_exec(ut,in,cond) \
+  if ( cond) \
+    ut = in;
+
+/*_*
+  ATADD
+  @aref atadd AtAdd
+*/
+#define AtAdd_exec(obj,t1,t2) \
+  time_Aadd( &obj->ActVal, &t1, &t2);
+
+/*_*
+  DTADD
+  @aref dtadd DtAdd
+*/
+#define DtAdd_exec(obj,t1,t2) \
+  time_Dadd( &obj->ActVal, &t1, &t2);
+
+/*_*
+  ATSUB
+  @aref atsub AtSub
+*/
+#define AtSub_exec(obj,t1,t2) \
+  time_Adiff( &obj->ActVal, &t1, &t2);
+
+/*_*
+  ATDTSUB
+  @aref atdtsub AtDtSub
+*/
+#define AtDtSub_exec(obj,t1,t2) \
+  time_Asub( &obj->ActVal, &t1, &t2);
+
+/*_*
+  DTSUB
+  @aref dtsub DtSub
+*/
+#define DtSub_exec(obj,t1,t2) \
+  time_Dsub( &obj->ActVal, &t1, &t2);
+
+/*_*
+  DTTOA
+  @aref dttoa DtToA
+*/
+#define DtToA_exec(obj,t) \
+  time_DToFloat( &obj->ActVal, &t);
+
+
+
+
+
+
+
+
+
+

src/wbl/pwrb/src/pwrb_c_atadd.wb_load

 ! 
-!  Proview   $Id: pwrb_c_atadd.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
+!  Proview   $Id: pwrb_c_atadd.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
 !  Copyright (C) 2005 SSAB Oxelsund AB.
 !
 !  This program is free software; you can redistribute it and/or 
@@ -21,7 +21,7 @@
 SObject pwrb:Class
 !/**
 !  @Version 1.0
-!  @Code rt_plc_macro_io.h
+!  @Code rt_plc_macro_time.h
 !  @Group Plc,PlcTime
 !  @Summary Add an absolute time and a delta time.
 !  Add an absolute time and a delta time.
@@ -60,9 +60,9 @@ SObject pwrb:Class
         EndBody
       EndObject
       !/**
-      !  @Summary The second string that is appended to the first string.
-      !  The second string that is appended to the first string.
-      !  The input has to be connected to an output of type String.
+      !  @Summary A delta time that is added to the absolute time.
+      !  A delta time that is added to the absolute time.
+      !  The input has to be connected to an output of type DeltaTime.
       !*/
       Object DTime $Input 2 
         Body SysBody
@@ -114,7 +114,7 @@ SObject pwrb:Class
         Attr traceindex = 0
 	Attr executeordermethod = 2
         Attr objname = "AtAdd"
-        Attr graphname = "AdAdd"
+        Attr graphname = "AtAdd"
       EndBody
     EndObject
   EndObject

src/wbl/pwrb/src/pwrb_c_atdtsub.wb_load

+! 
+!  Proview   $Id: pwrb_c_atdtsub.wb_load,v 1.1 2006-04-28 04:59:58 claes Exp $
+!  Copyright (C) 2005 SSAB Oxelsund AB.
+!
+!  This program is free software; you can redistribute it and/or 
+!  modify it under the terms of the GNU General Public License as 
+!  published by the Free Software Foundation, either version 2 of 
+!  the License, or (at your option) any later version.
+!
+!  This program is distributed in the hope that it will be useful 
+!  but WITHOUT ANY WARRANTY; without even the implied warranty of 
+!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 
+!  GNU General Public License for more details.
+!
+!  You should have received a copy of the GNU General Public License 
+!  along with the program, if not, write to the Free Software 
+!  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+!
+!  pwrb_c_atdtsub.wb_load -- Defines the class AtDtSub.
+!
+SObject pwrb:Class
+!/**
+!  @Version 1.0
+!  @Code rt_plc_macro_time.h
+!  @Group Plc,PlcTime
+!  @Summary Subtracts a delta times from an absolute time.
+!  Subtracts a delta time from an absolute time.
+!  @image orm_atdtsub_fo.gif
+!
+!  AtDtAdd subtracts the second delta time input from the first absolute time
+!  input.
+!
+!  The first input has to be connected to an absolute time, and
+!  the second to a delta time.
+!  The resulting output is an absolute time.
+!*/
+  Object AtDtSub $ClassDef 463 
+    Body SysBody
+      Attr Editor = pwr_eEditor_PlcEd
+      Attr Method = pwr_eMethod_Connections
+      Attr PopEditor = 2
+    EndBody
+    Object RtBody $ObjBodyDef 1 
+      Body SysBody
+         Attr StructName = "AtDtSub"
+      EndBody
+      !/**
+      !  Minuend absolute time.
+      !*/
+      Object ATime $Input 1 
+        Body SysBody
+          Attr TypeRef = "pwrs:Type-$Time"
+	  Attr Flags |= PWR_MASK_STATE
+	  Attr Flags |= PWR_MASK_RTVIRTUAL
+	  Attr Flags |= PWR_MASK_NOEDIT
+	  Attr Flags |= PWR_MASK_NOREMOVE
+          Attr GraphName = "ATim"
+        EndBody
+      EndObject
+      !/**
+      !  Subtrahend absolute time.
+      !*/
+      Object DTime $Input 2 
+        Body SysBody
+	  Attr Flags |= PWR_MASK_STATE
+	  Attr Flags |= PWR_MASK_RTVIRTUAL
+	  Attr Flags |= PWR_MASK_NOEDIT
+	  Attr Flags |= PWR_MASK_NOREMOVE
+          Attr TypeRef = "pwrs:Type-$DeltaTime"
+          Attr GraphName = "DTim"
+        EndBody
+      EndObject
+      !/**
+      !  The result of the subtraction ATime - DTime. The result is an absolute time.
+      !*/
+      Object ActVal $Output 3 
+        Body SysBody
+          Attr Flags |= PWR_MASK_STATE
+          Attr Flags |= PWR_MASK_NOEDIT
+          Attr TypeRef = "pwrs:Type-$Time"
+          Attr GraphName = "Val"
+        EndBody
+      EndObject
+    EndObject
+    Object DevBody $ObjBodyDef 2 
+      Object PlcNode $Buffer 1 
+        Body SysBody
+          Attr Class = pwr_eClass_PlcNode
+	  Attr Flags |= PWR_MASK_INVISIBLE
+        EndBody
+      EndObject
+    EndObject
+    Object GraphPlcNode $GraphPlcNode
+      Body SysBody
+        Attr object_type = 11
+        Attr parameters[0] = 2
+        Attr parameters[1] = 0
+        Attr parameters[2] = 1
+        Attr parameters[3] = 0
+        Attr subwindows = 0
+        Attr graphmethod = 1
+        Attr graphindex = 0
+        Attr default_mask[0] = 3
+        Attr default_mask[1] = 1
+        Attr segname_annotation = 1
+        Attr compmethod = 5
+        Attr compindex = 0
+        Attr tracemethod = 0
+        Attr traceindex = 0
+	Attr executeordermethod = 2
+        Attr objname = "AtDtSub"
+        Attr graphname = "AtDtSub"
+      EndBody
+    EndObject
+  EndObject
+EndSObject
+
+
+
+
+

src/wbl/pwrb/src/pwrb_c_atgreaterthan.wb_load

+! 
+!  Proview   $Id: pwrb_c_atgreaterthan.wb_load,v 1.1 2006-04-28 04:59:58 claes Exp $
+!  Copyright (C) 2005 SSAB Oxelsund AB.
+!
+!  This program is free software; you can redistribute it and/or 
+!  modify it under the terms of the GNU General Public License as 
+!  published by the Free Software Foundation, either version 2 of 
+!  the License, or (at your option) any later version.
+!
+!  This program is distributed in the hope that it will be useful 
+!  but WITHOUT ANY WARRANTY; without even the implied warranty of 
+!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 
+!  GNU General Public License for more details.
+!
+!  You should have received a copy of the GNU General Public License 
+!  along with the program, if not, write to the Free Software 
+!  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+!
+!  pwrb_c_atgreaterthan.wb_load -- Defines the class AtGreaterThan.
+!
+SObject pwrb:Class
+!/**
+!  @Version 1.0
+!  @Code rt_plc_macro_time.h
+!  @Group Plc,PlcTime
+!  @Summary Add an absolute time and a delta time.
+!  Add an absolute time and a delta time.
+!  @image orm_atgreaterthan_fo.gif
+!
+!  AtGreaterThan compares two absolute times and returns true if the first are
+!  greater than the second.
+!
+!  Both inputs have to be connected to absolute times. The result is a digital value.
+!*/
+  Object AtAdd $ClassDef 465 
+    Body SysBody
+      Attr Editor = pwr_eEditor_PlcEd
+      Attr Method = pwr_eMethod_Connections
+      Attr PopEditor = 2
+    EndBody
+    Object RtBody $ObjBodyDef 1 
+      Body SysBody
+         Attr StructName = "AtGreaterThan"
+      EndBody
+      !/**
+      !  An absolute time.      
+      !  The input has to be connected to an output of type Time.
+      !*/
+      Object ATime1 $Input 1 
+        Body SysBody
+          Attr TypeRef = "pwrs:Type-$Time"
+	  Attr Flags |= PWR_MASK_STATE
+	  Attr Flags |= PWR_MASK_RTVIRTUAL
+	  Attr Flags |= PWR_MASK_NOEDIT
+	  Attr Flags |= PWR_MASK_NOREMOVE
+          Attr GraphName = "ATim1"
+        EndBody
+      EndObject
+      !/**
+      !  An absolute time.      
+      !  The input has to be connected to an output of type Time.
+      !*/
+      Object ATime2 $Input 2 
+        Body SysBody
+	  Attr Flags |= PWR_MASK_STATE
+	  Attr Flags |= PWR_MASK_RTVIRTUAL
+	  Attr Flags |= PWR_MASK_NOEDIT
+	  Attr Flags |= PWR_MASK_NOREMOVE
+          Attr TypeRef = "pwrs:Type-$DeltaTime"
+          Attr GraphName = "ATim2"
+        EndBody
+      EndObject
+      !/**
+      !  1 if ATime 1 > ATime 2, else 0..
+      !*/
+      Object Status $Output 3 
+        Body SysBody
+          Attr Flags |= PWR_MASK_STATE
+          Attr Flags |= PWR_MASK_NOEDIT
+          Attr TypeRef = "pwrs:Type-$Boolean"
+          Attr GraphName = "sts"
+        EndBody
+      EndObject
+    EndObject
+    Object DevBody $ObjBodyDef 2 
+      Object PlcNode $Buffer 1 
+        Body SysBody
+          Attr Class = pwr_eClass_PlcNode
+	  Attr Flags |= PWR_MASK_INVISIBLE
+        EndBody
+      EndObject
+    EndObject
+    Object GraphPlcNode $GraphPlcNode
+      Body SysBody
+        Attr object_type = 11
+        Attr parameters[0] = 2
+        Attr parameters[1] = 0
+        Attr parameters[2] = 1
+        Attr parameters[3] = 0
+        Attr subwindows = 0
+        Attr graphmethod = 1
+        Attr graphindex = 0
+        Attr default_mask[0] = 3
+        Attr default_mask[1] = 1
+        Attr segname_annotation = 1
+        Attr compmethod = 5
+        Attr compindex = 0
+        Attr tracemethod = 0
+        Attr traceindex = 0
+	Attr executeordermethod = 2
+        Attr objname = "AtGt"
+        Attr graphname = "AtGt"
+      EndBody
+    EndObject
+  EndObject
+EndSObject
+
+
+
+
+

src/wbl/pwrb/src/pwrb_c_atsub.wb_load

+! 
+!  Proview   $Id: pwrb_c_atsub.wb_load,v 1.1 2006-04-28 04:59:58 claes Exp $
+!  Copyright (C) 2005 SSAB Oxelsund AB.
+!
+!  This program is free software; you can redistribute it and/or 
+!  modify it under the terms of the GNU General Public License as 
+!  published by the Free Software Foundation, either version 2 of 
+!  the License, or (at your option) any later version.
+!
+!  This program is distributed in the hope that it will be useful 
+!  but WITHOUT ANY WARRANTY; without even the implied warranty of 
+!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 
+!  GNU General Public License for more details.
+!
+!  You should have received a copy of the GNU General Public License 
+!  along with the program, if not, write to the Free Software 
+!  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+!
+!  pwrb_c_atsub.wb_load -- Defines the class AtSub.
+!
+SObject pwrb:Class
+!/**
+!  @Version 1.0
+!  @Code rt_plc_macro_time.h
+!  @Group Plc,PlcTime
+!  @Summary Subtract two absolute times.
+!  Subtract two absolute times.
+!  @image orm_atsub_fo.gif
+!
+!  AtAdd subtracts the second absolute time input from the first absolute time
+!  input.
+!
+!  The inputs has to be connected to absolute times.
+!  The resulting output is a delta time.
+!*/
+  Object AtSub $ClassDef 461 
+    Body SysBody
+      Attr Editor = pwr_eEditor_PlcEd
+      Attr Method = pwr_eMethod_Connections
+      Attr PopEditor = 2
+    EndBody
+    Object RtBody $ObjBodyDef 1 
+      Body SysBody
+         Attr StructName = "AtSub"
+      EndBody
+      !/**
+      !  Minuend absolute time.
+      !*/
+      Object ATime1 $Input 1 
+        Body SysBody
+          Attr TypeRef = "pwrs:Type-$Time"
+	  Attr Flags |= PWR_MASK_STATE
+	  Attr Flags |= PWR_MASK_RTVIRTUAL
+	  Attr Flags |= PWR_MASK_NOEDIT
+	  Attr Flags |= PWR_MASK_NOREMOVE
+          Attr GraphName = "ATim1"
+        EndBody
+      EndObject
+      !/**
+      !  Subtrahend absolute time.
+      !*/
+      Object ATime2 $Input 2 
+        Body SysBody
+	  Attr Flags |= PWR_MASK_STATE
+	  Attr Flags |= PWR_MASK_RTVIRTUAL
+	  Attr Flags |= PWR_MASK_NOEDIT
+	  Attr Flags |= PWR_MASK_NOREMOVE
+          Attr TypeRef = "pwrs:Type-$Time"
+          Attr GraphName = "ATim2"
+        EndBody
+      EndObject
+      !/**
+      !  The result of the subtraction ATime1 - ATime2. The result is a deltatime.
+      !*/
+      Object ActVal $Output 3 
+        Body SysBody
+          Attr Flags |= PWR_MASK_STATE
+          Attr Flags |= PWR_MASK_NOEDIT
+          Attr TypeRef = "pwrs:Type-$DeltaTime"
+          Attr GraphName = "Val"
+        EndBody
+      EndObject
+    EndObject
+    Object DevBody $ObjBodyDef 2 
+      Object PlcNode $Buffer 1 
+        Body SysBody
+          Attr Class = pwr_eClass_PlcNode
+	  Attr Flags |= PWR_MASK_INVISIBLE
+        EndBody
+      EndObject
+    EndObject
+    Object GraphPlcNode $GraphPlcNode
+      Body SysBody
+        Attr object_type = 11
+        Attr parameters[0] = 2
+        Attr parameters[1] = 0
+        Attr parameters[2] = 1
+        Attr parameters[3] = 0
+        Attr subwindows = 0
+        Attr graphmethod = 1
+        Attr graphindex = 0
+        Attr default_mask[0] = 3
+        Attr default_mask[1] = 1
+        Attr segname_annotation = 1
+        Attr compmethod = 5
+        Attr compindex = 0
+        Attr tracemethod = 0
+        Attr traceindex = 0
+	Attr executeordermethod = 2
+        Attr objname = "AtSub"
+        Attr graphname = "AtSub"
+      EndBody
+    EndObject
+  EndObject
+EndSObject
+
+
+
+
+

src/wbl/pwrb/src/pwrb_c_cstoatp.wb_load

 ! 
-!  Proview   $Id: pwrb_c_cstoatp.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
+!  Proview   $Id: pwrb_c_cstoatp.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
 !  Copyright (C) 2005 SSAB Oxelsund AB.
 !
 !  This program is free software; you can redistribute it and/or 
@@ -48,7 +48,7 @@ SObject pwrb:Class
     EndBody
     Object RtBody $ObjBodyDef 1 
       Body SysBody
-        Attr StructName = "cstosp"
+        Attr StructName = "CStoATp"
       EndBody
       !/**
       !  The input is connected to an analog signal or left
@@ -60,7 +60,8 @@ SObject pwrb:Class
           Attr PgmName = "In"
           Attr Flags |= PWR_MASK_RTVIRTUAL
           Attr Flags |= PWR_MASK_DEVBODYREF
-          Attr TypeRef = "pwrs:Type-$String80"
+          Attr Flags |= PWR_MASK_NOREMOVE
+          Attr TypeRef = "pwrs:Type-$Time"
           Attr GraphName = "VAL"
           Attr ConPointNr = 0
         EndBody

src/wbl/pwrb/src/pwrb_c_cstoatv.wb_load

 ! 
-!  Proview   $Id: pwrb_c_cstoatv.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
+!  Proview   $Id: pwrb_c_cstoatv.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
 !  Copyright (C) 2005 SSAB Oxelsund AB.
 !
 !  This program is free software; you can redistribute it and/or 
@@ -21,7 +21,7 @@
 SObject pwrb:Class
 !/**
 !  @Version 1.0
-!  @Code rt_plc_macro_io.h
+!  @Code rt_plc_macro_time.h
 !  @Group Plc,PlcTime
 !  @Summary Conditional storage of absolute time value.
 !  Conditional storage of absolute time value.
@@ -63,9 +63,9 @@ SObject pwrb:Class
           Attr PgmName = "ActualValue"
           Attr Flags |= PWR_MASK_RTVIRTUAL
           Attr Flags |= PWR_MASK_DEVBODYREF
+          Attr Flags |= PWR_MASK_NOREMOVE
           Attr TypeRef = "pwrs:Type-$Time"
           Attr GraphName = "VAL"
-          Attr NiNaAnnot = 2
         EndBody
       EndObject
       !/**
@@ -90,7 +90,7 @@ SObject pwrb:Class
       !  Specifies the name of the object where to store the
       !  value.
       !*/
-      Object SvObject $Intern 1 
+      Object ATvObject $Intern 1 
         Body SysBody
           Attr PgmName = "ATvObject"
           Attr TypeRef = "pwrs:Type-$AttrRef"
@@ -124,9 +124,9 @@ SObject pwrb:Class
         Attr parameters[2] = 0
         Attr parameters[3] = 0
         Attr subwindows = 0
-        Attr graphmethod = 8
+        Attr graphmethod = 15
         Attr graphindex = 1
-        Attr default_mask[0] = 2
+        Attr default_mask[0] = 3
         Attr default_mask[1] = 0
         Attr segname_annotation = 0
         Attr devbody_annotation = 1

src/wbl/pwrb/src/pwrb_c_cstodtp.wb_load

 ! 
-!  Proview   $Id: pwrb_c_cstodtp.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
+!  Proview   $Id: pwrb_c_cstodtp.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
 !  Copyright (C) 2005 SSAB Oxelsund AB.
 !
 !  This program is free software; you can redistribute it and/or 
@@ -48,7 +48,7 @@ SObject pwrb:Class
     EndBody
     Object RtBody $ObjBodyDef 1 
       Body SysBody
-        Attr StructName = "cstosp"
+        Attr StructName = "CStoDTp"
       EndBody
       !/**
       !  The input is connected to an analog signal or left
@@ -60,7 +60,8 @@ SObject pwrb:Class
           Attr PgmName = "In"
           Attr Flags |= PWR_MASK_RTVIRTUAL
           Attr Flags |= PWR_MASK_DEVBODYREF
-          Attr TypeRef = "pwrs:Type-$String80"
+          Attr Flags |= PWR_MASK_NOREMOVE
+          Attr TypeRef = "pwrs:Type-$DeltaTime"
           Attr GraphName = "VAL"
           Attr ConPointNr = 0
         EndBody

src/wbl/pwrb/src/pwrb_c_cstodtv.wb_load

 ! 
-!  Proview   $Id: pwrb_c_cstodtv.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
+!  Proview   $Id: pwrb_c_cstodtv.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
 !  Copyright (C) 2005 SSAB Oxelsund AB.
 !
 !  This program is free software; you can redistribute it and/or 
@@ -21,7 +21,7 @@
 SObject pwrb:Class
 !/**
 !  @Version 1.0
-!  @Code rt_plc_macro_io.h
+!  @Code rt_plc_macro_time.h
 !  @Group Plc,PlcTime
 !  @Summary Conditional storage of delta time value.
 !  Conditional storage of delta time value.
@@ -63,9 +63,9 @@ SObject pwrb:Class
           Attr PgmName = "ActualValue"
           Attr Flags |= PWR_MASK_RTVIRTUAL
           Attr Flags |= PWR_MASK_DEVBODYREF
+          Attr Flags |= PWR_MASK_NOREMOVE
           Attr TypeRef = "pwrs:Type-$DeltaTime"
           Attr GraphName = "VAL"
-          Attr NiNaAnnot = 2
         EndBody
       EndObject
       !/**
@@ -90,7 +90,7 @@ SObject pwrb:Class
       !  Specifies the name of the object where to store the
       !  value.
       !*/
-      Object SvObject $Intern 1 
+      Object DTvObject $Intern 1 
         Body SysBody
           Attr PgmName = "DTvObject"
           Attr TypeRef = "pwrs:Type-$AttrRef"
@@ -124,9 +124,9 @@ SObject pwrb:Class
         Attr parameters[2] = 0
         Attr parameters[3] = 0
         Attr subwindows = 0
-        Attr graphmethod = 8
+        Attr graphmethod = 15
         Attr graphindex = 1
-        Attr default_mask[0] = 2
+        Attr default_mask[0] = 3
         Attr default_mask[1] = 0
         Attr segname_annotation = 0
         Attr devbody_annotation = 1

src/wbl/pwrb/src/pwrb_c_dtadd.wb_load

 ! 
-!  Proview   $Id: pwrb_c_dtadd.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
+!  Proview   $Id: pwrb_c_dtadd.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
 !  Copyright (C) 2005 SSAB Oxelsund AB.
 !
 !  This program is free software; you can redistribute it and/or 
@@ -21,7 +21,7 @@
 SObject pwrb:Class
 !/**
 !  @Version 1.0
-!  @Code rt_plc_macro_io.h
+!  @Code rt_plc_macro_time.h
 !  @Group Plc,PlcTime
 !  @Summary Add two delta times.
 !  Add two delta times.
@@ -110,7 +110,7 @@ SObject pwrb:Class
         Attr traceindex = 0
 	Attr executeordermethod = 2
         Attr objname = "DtAdd"
-        Attr graphname = "DdAdd"
+        Attr graphname = "DtAdd"
       EndBody
     EndObject
   EndObject

src/wbl/pwrb/src/pwrb_c_dtsub.wb_load

+! 
+!  Proview   $Id: pwrb_c_dtsub.wb_load,v 1.1 2006-04-28 04:59:58 claes Exp $
+!  Copyright (C) 2005 SSAB Oxelsund AB.
+!
+!  This program is free software; you can redistribute it and/or 
+!  modify it under the terms of the GNU General Public License as 
+!  published by the Free Software Foundation, either version 2 of 
+!  the License, or (at your option) any later version.
+!
+!  This program is distributed in the hope that it will be useful 
+!  but WITHOUT ANY WARRANTY; without even the implied warranty of 
+!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 
+!  GNU General Public License for more details.
+!
+!  You should have received a copy of the GNU General Public License 
+!  along with the program, if not, write to the Free Software 
+!  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+!
+!  pwrb_c_dtsub.wb_load -- Defines the class DtSub.
+!
+SObject pwrb:Class
+!/**
+!  @Version 1.0
+!  @Code rt_plc_macro_time.h
+!  @Group Plc,PlcTime
+!  @Summary Subtract two absolute times.
+!  Subtract two delta times.
+!  @image orm_dtsub_fo.gif
+!
+!  DtSub subtracts the second delta time input from the first delta time
+!  input.
+!
+!  The inputs has to be connected to delta times.
+!  The resulting output is a delta time.
+!*/
+  Object DtSub $ClassDef 462 
+    Body SysBody
+      Attr Editor = pwr_eEditor_PlcEd
+      Attr Method = pwr_eMethod_Connections
+      Attr PopEditor = 2
+    EndBody
+    Object RtBody $ObjBodyDef 1 
+      Body SysBody
+         Attr StructName = "DtSub"
+      EndBody
+      !/**
+      !  Minuend delta time.
+      !*/
+      Object DTime1 $Input 1 
+        Body SysBody
+          Attr TypeRef = "pwrs:Type-$DeltaTime"
+	  Attr Flags |= PWR_MASK_STATE
+	  Attr Flags |= PWR_MASK_RTVIRTUAL
+	  Attr Flags |= PWR_MASK_NOEDIT
+	  Attr Flags |= PWR_MASK_NOREMOVE
+          Attr GraphName = "DTim1"
+        EndBody
+      EndObject
+      !/**
+      !  Subtrahend absolute time.
+      !*/
+      Object DTime2 $Input 2 
+        Body SysBody
+	  Attr Flags |= PWR_MASK_STATE
+	  Attr Flags |= PWR_MASK_RTVIRTUAL
+	  Attr Flags |= PWR_MASK_NOEDIT
+	  Attr Flags |= PWR_MASK_NOREMOVE
+          Attr TypeRef = "pwrs:Type-$DeltaTime"
+          Attr GraphName = "DTim2"
+        EndBody
+      EndObject
+      !/**
+      !  The result of the subtraction DTime1 - DTime2. The result is a deltatime.
+      !*/
+      Object ActVal $Output 3 
+        Body SysBody
+          Attr Flags |= PWR_MASK_STATE
+          Attr Flags |= PWR_MASK_NOEDIT
+          Attr TypeRef = "pwrs:Type-$DeltaTime"
+          Attr GraphName = "Val"
+        EndBody
+      EndObject
+    EndObject
+    Object DevBody $ObjBodyDef 2 
+      Object PlcNode $Buffer 1 
+        Body SysBody
+          Attr Class = pwr_eClass_PlcNode
+	  Attr Flags |= PWR_MASK_INVISIBLE
+        EndBody
+      EndObject
+    EndObject
+    Object GraphPlcNode $GraphPlcNode
+      Body SysBody
+        Attr object_type = 11
+        Attr parameters[0] = 2
+        Attr parameters[1] = 0
+        Attr parameters[2] = 1
+        Attr parameters[3] = 0
+        Attr subwindows = 0
+        Attr graphmethod = 1
+        Attr graphindex = 0
+        Attr default_mask[0] = 3
+        Attr default_mask[1] = 1
+        Attr segname_annotation = 1
+        Attr compmethod = 5
+        Attr compindex = 0
+        Attr tracemethod = 0
+        Attr traceindex = 0
+	Attr executeordermethod = 2
+        Attr objname = "DtSub"
+        Attr graphname = "DtSub"
+      EndBody
+    EndObject
+  EndObject
+EndSObject
+
+
+
+
+

src/wbl/pwrb/src/pwrb_c_dttoa.wb_load

+! 
+!  Proview   $Id: pwrb_c_dttoa.wb_load,v 1.1 2006-04-28 04:59:58 claes Exp $
+!  Copyright (C) 2005 SSAB Oxelsund AB.
+!
+!  This program is free software; you can redistribute it and/or 
+!  modify it under the terms of the GNU General Public License as 
+!  published by the Free Software Foundation, either version 2 of 
+!  the License, or (at your option) any later version.
+!
+!  This program is distributed in the hope that it will be useful 
+!  but WITHOUT ANY WARRANTY; without even the implied warranty of 
+!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 
+!  GNU General Public License for more details.
+!
+!  You should have received a copy of the GNU General Public License 
+!  along with the program, if not, write to the Free Software 
+!  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+!
+!  pwrb_c_dttoa.wb_load -- Defines the class DtToA.
+!
+SObject pwrb:Class
+!/**
+!  @Version 1.0
+!  @Code rt_plc_macro_time.h
+!  @Group Plc,PlcTime
+!  @Summary Convert a delta time to analog value.
+!  Convert a delta time to analog value.
+!  @image orm_dttoa_fo.gif
+!
+!  DtToA converts a delta time to an analog value.
+!*/
+  Object DtToA $ClassDef 464 
+    Body SysBody
+      Attr Editor = pwr_eEditor_PlcEd
+      Attr Method = pwr_eMethod_Connections
+      Attr PopEditor = 2
+    EndBody
+    Object RtBody $ObjBodyDef 1 
+      Body SysBody
+         Attr StructName = "DtToA"
+      EndBody
+      !/**
+      !  Delta time.
+      !*/
+      Object DTime $Input 1 
+        Body SysBody
+          Attr TypeRef = "pwrs:Type-$DeltaTime"
+	  Attr Flags |= PWR_MASK_STATE
+	  Attr Flags |= PWR_MASK_RTVIRTUAL
+	  Attr Flags |= PWR_MASK_NOEDIT
+	  Attr Flags |= PWR_MASK_NOREMOVE
+          Attr GraphName = "DTim"
+        EndBody
+      EndObject
+      !/**
+      !  The time converted to an analog value.
+      !*/
+      Object ActVal $Output 3 
+        Body SysBody
+          Attr Flags |= PWR_MASK_STATE
+          Attr Flags |= PWR_MASK_NOEDIT
+          Attr TypeRef = "pwrs:Type-$Float32"
+          Attr GraphName = "Val"
+        EndBody
+      EndObject
+    EndObject
+    Object DevBody $ObjBodyDef 2 
+      Object PlcNode $Buffer 1 
+        Body SysBody
+          Attr Class = pwr_eClass_PlcNode
+	  Attr Flags |= PWR_MASK_INVISIBLE
+        EndBody
+      EndObject
+    EndObject
+    Object GraphPlcNode $GraphPlcNode
+      Body SysBody
+        Attr object_type = 11
+        Attr parameters[0] = 1
+        Attr parameters[1] = 0
+        Attr parameters[2] = 1
+        Attr parameters[3] = 0
+        Attr subwindows = 0
+        Attr graphmethod = 1
+        Attr graphindex = 0
+        Attr default_mask[0] = 1
+        Attr default_mask[1] = 1
+        Attr segname_annotation = 1
+        Attr compmethod = 5
+        Attr compindex = 0
+        Attr tracemethod = 0
+        Attr traceindex = 0
+	Attr executeordermethod = 2
+        Attr objname = "DtToA"
+        Attr graphname = "DtToA"
+      EndBody
+    EndObject
+  EndObject
+EndSObject
+
+
+
+
+

src/wbl/pwrb/src/pwrb_c_getatgeneric.wb_load

 ! 
-!  Proview   $Id: pwrb_c_getatgeneric.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
+!  Proview   $Id: pwrb_c_getatgeneric.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
 !  Copyright (C) 2005 SSAB Oxelsund AB.
 !
 !  This program is free software; you can redistribute it and/or 
@@ -59,7 +59,7 @@ SObject pwrb:Class
         Attr parameters[3] = 0
         Attr subwindows = 0
         Attr graphmethod = 4
-        Attr graphindex = 36
+        Attr graphindex = 41
         Attr default_mask[0] = 0
         Attr default_mask[1] = 1
         Attr segname_annotation = 0
@@ -67,7 +67,7 @@ SObject pwrb:Class
         Attr compindex = 0
         Attr tracemethod = 1
         Attr traceindex = 1
-        Attr connectmethod = 19
+        Attr connectmethod = 28
 	Attr executeordermethod = 0
         Attr objname = "GetAT"
         Attr graphname = "GetAT"

src/wbl/pwrb/src/pwrb_c_getatp.wb_load

 ! 
-!  Proview   $Id: pwrb_c_getatp.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
+!  Proview   $Id: pwrb_c_getatp.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
 !  Copyright (C) 2005 SSAB Oxelsund AB.
 !
 !  This program is free software; you can redistribute it and/or 
@@ -62,7 +62,7 @@ SObject pwrb:Class
       !  Used by the PLC Editor. Specifies the complete name of
       !  the actual attribute.
       !*/
-      Object SpObject $Intern 1 
+      Object ATpObject $Intern 1 
         Body SysBody
           Attr PgmName = "ATpObject"
           Attr TypeRef = "pwrs:Type-$AttrRef"

src/wbl/pwrb/src/pwrb_c_getdtgeneric.wb_load

 ! 
-!  Proview   $Id: pwrb_c_getdtgeneric.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
+!  Proview   $Id: pwrb_c_getdtgeneric.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
 !  Copyright (C) 2005 SSAB Oxelsund AB.
 !
 !  This program is free software; you can redistribute it and/or 
@@ -59,7 +59,7 @@ SObject pwrb:Class
         Attr parameters[3] = 0
         Attr subwindows = 0
         Attr graphmethod = 4
-        Attr graphindex = 36
+        Attr graphindex = 43
         Attr default_mask[0] = 0
         Attr default_mask[1] = 1
         Attr segname_annotation = 0
@@ -67,7 +67,7 @@ SObject pwrb:Class
         Attr compindex = 0
         Attr tracemethod = 1
         Attr traceindex = 1
-        Attr connectmethod = 19
+        Attr connectmethod = 28
 	Attr executeordermethod = 0
         Attr objname = "GetDT"
         Attr graphname = "GetDT"

src/wbl/pwrb/src/pwrb_c_getdtp.wb_load

 ! 
-!  Proview   $Id: pwrb_c_getdtp.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
+!  Proview   $Id: pwrb_c_getdtp.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
 !  Copyright (C) 2005 SSAB Oxelsund AB.
 !
 !  This program is free software; you can redistribute it and/or 
@@ -62,7 +62,7 @@ SObject pwrb:Class
       !  Used by the PLC Editor. Specifies the complete name of
       !  the actual attribute.
       !*/
-      Object SpObject $Intern 1 
+      Object DTpObject $Intern 1 
         Body SysBody
           Attr PgmName = "DTpObject"
           Attr TypeRef = "pwrs:Type-$AttrRef"

src/wbl/pwrb/src/pwrb_c_stoatgeneric.wb_load

 ! 
-!  Proview   $Id: pwrb_c_stoatgeneric.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
+!  Proview   $Id: pwrb_c_stoatgeneric.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
 !  Copyright (C) 2005 SSAB Oxelsund AB.
 !
 !  This program is free software; you can redistribute it and/or 
@@ -59,7 +59,7 @@ SObject pwrb:Class
         Attr parameters[3] = 0
         Attr subwindows = 0
         Attr graphmethod = 4
-        Attr graphindex = 37
+        Attr graphindex = 42
         Attr default_mask[0] = 1
         Attr default_mask[1] = 0
         Attr segname_annotation = 0
@@ -67,7 +67,7 @@ SObject pwrb:Class
         Attr compindex = 0
         Attr tracemethod = 1
         Attr traceindex = 1
-        Attr connectmethod = 20
+        Attr connectmethod = 29
 	Attr executeordermethod = 0
         Attr objname = "StoAT"
         Attr graphname = "StoAT"

src/wbl/pwrb/src/pwrb_c_stoatv.wb_load

 ! 
-!  Proview   $Id: pwrb_c_stoatv.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
+!  Proview   $Id: pwrb_c_stoatv.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
 !  Copyright (C) 2005 SSAB Oxelsund AB.
 !
 !  This program is free software; you can redistribute it and/or 
@@ -21,7 +21,7 @@
 SObject pwrb:Class
 !/**
 !  @Version 1.0
-!  @Code rt_plc_macro_io.h
+!  @Code rt_plc_macro_time.h
 !  @Group Plc,PlcTime
 !  @Summary Storage of absolute time value
 !  Storage of absolute time value.
@@ -63,7 +63,7 @@ SObject pwrb:Class
       !  Specifies the name of the object where to store the
       !  value.
       !*/
-      Object SvObject $Intern 1 
+      Object ATvObject $Intern 1 
         Body SysBody
           Attr PgmName = "ATvObject"
           Attr TypeRef = "pwrs:Type-$AttrRef"

src/wbl/pwrb/src/pwrb_c_stodtgeneric.wb_load

 ! 
-!  Proview   $Id: pwrb_c_stodtgeneric.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
+!  Proview   $Id: pwrb_c_stodtgeneric.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
 !  Copyright (C) 2005 SSAB Oxelsund AB.
 !
 !  This program is free software; you can redistribute it and/or 
@@ -30,7 +30,7 @@ SObject pwrb:Class
 !  @image orm_stodtgeneric_fo.gif
 !*/
 !
-  Object StodTgeneric $ClassDef 456 
+  Object StoDTgeneric $ClassDef 456 
     Body SysBody
       Attr Editor = pwr_eEditor_AttrEd
       Attr Method = pwr_eMethod_DevBodyOnly
@@ -59,7 +59,7 @@ SObject pwrb:Class
         Attr parameters[3] = 0
         Attr subwindows = 0
         Attr graphmethod = 4
-        Attr graphindex = 37
+        Attr graphindex = 44
         Attr default_mask[0] = 1
         Attr default_mask[1] = 0
         Attr segname_annotation = 0
@@ -67,7 +67,7 @@ SObject pwrb:Class
         Attr compindex = 0
         Attr tracemethod = 1
         Attr traceindex = 1
-        Attr connectmethod = 20
+        Attr connectmethod = 29
 	Attr executeordermethod = 0
         Attr objname = "StoDT"
         Attr graphname = "StoDT"

src/wbl/pwrb/src/pwrb_c_stodtp.wb_load

+! 
+!  Proview   $Id: pwrb_c_stodtp.wb_load,v 1.1 2006-04-28 04:59:58 claes Exp $
+!  Copyright (C) 2005 SSAB Oxelsund AB.
+!
+!  This program is free software; you can redistribute it and/or 
+!  modify it under the terms of the GNU General Public License as 
+!  published by the Free Software Foundation, either version 2 of 
+!  the License, or (at your option) any later version.
+!
+!  This program is distributed in the hope that it will be useful 
+!  but WITHOUT ANY WARRANTY; without even the implied warranty of 
+!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 
+!  GNU General Public License for more details.
+!
+!  You should have received a copy of the GNU General Public License 
+!  along with the program, if not, write to the Free Software 
+!  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+!
+!  pwrb_c_stodtp.wb_load -- Defines the class StoDTp.
+!
+SObject pwrb:Class
+!/**
+!  @Version 1.0
+!  @Code rt_plc_macro_io.h
+!  @Group Plc,PlcTime
+!  @Summary Store delta time attribute
+!  Store delta time attribute. Used in run time to write in
+!  time parameters.
+!  @image orm_stodtp_fo.gif
+!
+!  Stores an absolute time value in specified time
+!  attribute in a local object. The receiving
+!  attribute may not concern a pointer.
+!  The last name segment of the object and the name of the
+!  parameter will be shown in the right empty part of the
+!  StoDTp symbol.
+!*/
+  Object StoDTp $ClassDef 460 
+    Body SysBody
+      Attr Editor = pwr_eEditor_AttrEd
+      Attr Method = pwr_eMethod_RtConnectionsAndDevBodies
+      Attr Flags = pwr_mClassDef_DevOnly
+    EndBody
+    Object RtBody $ObjBodyDef 1 
+      Body SysBody
+        Attr StructName = "StoDTp"
+      EndBody
+      !/**
+      !  The input is connected to an string attribute or left
+      !  open. In the latter case In is default a NULL string and not
+      !  adjustable in the run time system. The In attribute
+      !  specifies which value should be assigned to the
+      !  parameter.
+      !*/
+      Object In $Input 1 
+        Body SysBody
+          Attr PgmName = "In"
+          Attr Flags |= PWR_MASK_RTVIRTUAL
+          Attr Flags |= PWR_MASK_DEVBODYREF
+          Attr TypeRef = "pwrs:Type-$DeltaTime"
+          Attr GraphName = "VAL"
+        EndBody
+      EndObject
+    EndObject
+    Object DevBody $ObjBodyDef 2 
+      !/**
+      !  Used by the PLC Editor. Specifies the complete name of
+      !  the current object.
+      !*/
+      Object Object $Intern 1 
+        Body SysBody
+          Attr PgmName = "Object"
+          Attr TypeRef = "pwrs:Type-$AttrRef"
+          Attr GraphName = "sts"
+          Attr NiNaAnnot = 1
+          Attr NiNaSegments = 1
+        EndBody
+      EndObject
+      !/**
+      !  Specifies how many segments of the actual object name
+      !  that is to be displayed in the symbol of the StoSp
+      !  object. The segments are counted from behind.
+      !  
+      !  0 and 1 both result in displaying the last segment of
+      !  the actual object name.
+      !*/
+      Object ObjectSegments $Intern 3 
+        Body SysBody
+          Attr TypeRef = "pwrs:Type-$Int32"
+        EndBody
+      EndObject
+      Object PlcNode $Buffer 4 
+        Body SysBody
+          Attr Class = pwr_eClass_PlcNode
+          Attr Flags |= PWR_MASK_INVISIBLE
+        EndBody
+      EndObject
+    EndObject
+    Object GraphPlcNode $GraphPlcNode
+      Body SysBody
+        Attr object_type = 288
+        Attr parameters[0] = 1
+        Attr parameters[1] = 0
+        Attr parameters[2] = 0
+        Attr parameters[3] = 0
+        Attr subwindows = 0
+        Attr graphmethod = 7
+        Attr graphindex = 0
+        Attr default_mask[0] = 1
+        Attr default_mask[1] = 0
+        Attr segname_annotation = 0
+        Attr devbody_annotation = 1
+        Attr compmethod = 12
+        Attr compindex = 0
+        Attr tracemethod = 0
+        Attr traceindex = 0
+        Attr connectmethod = 7
+        Attr executeordermethod = 2
+        Attr objname = "StoDTp"
+        Attr graphname = "StoDTp"
+        Attr debugpar = ""
+      EndBody
+    EndObject
+    Object Template StoDTp
+      Body DevBody
+        Attr ObjectSegments = 2
+      EndBody
+    EndObject
+  EndObject
+EndSObject

src/wbl/pwrb/src/pwrb_c_stodtv.wb_load

 ! 
-!  Proview   $Id: pwrb_c_stodtv.wb_load,v 1.1 2006-04-24 13:15:30 claes Exp $
+!  Proview   $Id: pwrb_c_stodtv.wb_load,v 1.2 2006-04-28 04:59:58 claes Exp $
 !  Copyright (C) 2005 SSAB Oxelsund AB.
 !
 !  This program is free software; you can redistribute it and/or 
@@ -21,7 +21,7 @@
 SObject pwrb:Class
 !/**
 !  @Version 1.0
-!  @Code rt_plc_macro_io.h
+!  @Code rt_plc_macro_time.h
 !  @Group Plc,PlcTime
 !  @Summary Storage of delta time value
 !  Storage of delta time value.
@@ -63,7 +63,7 @@ SObject pwrb:Class
       !  Specifies the name of the object where to store the
       !  value.
       !*/
-      Object SvObject $Intern 1 
+      Object DTvObject $Intern 1 
         Body SysBody
           Attr PgmName = "DTvObject"
           Attr TypeRef = "pwrs:Type-$AttrRef"