diff --git a/LSL2/STPROC/OBJ_RDS_TEST.txt b/LSL2/STPROC/OBJ_RDS_TEST.txt
index 34dd7cf..ad9807e 100644
--- a/LSL2/STPROC/OBJ_RDS_TEST.txt
+++ b/LSL2/STPROC/OBJ_RDS_TEST.txt
@@ -18,7 +18,7 @@ Declare subroutine  Memory_Services, Environment_Services, Logging_Services, Dat
 
 DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, Dialog_Box, obj_WO_Log, NextKey, SRP_Encode
 DECLARE FUNCTION obj_Prod_Spec, obj_RDS_Test, obj_Popup, Database_Services, SRP_Array, Memory_Services
-Declare function Environment_Services, Logging_Services, Error_Services
+Declare function Environment_Services, Logging_Services, Error_Services, Datetime
 
 
 $insert LOGICAL
@@ -476,7 +476,9 @@ CopyStats:
             DestRDSTestRec<RDS_TEST_HGCV1_RES_MAX$> 		= SourceRDSTestRec<RDS_TEST_HGCV1_RES_MAX$>
             DestRDSTestRec<RDS_TEST_HGCV1_RES_RANGE$>		= SourceRDSTestRec<RDS_TEST_HGCV1_RES_RANGE$>
             DestRDSTestRec<RDS_TEST_HGCV1_RES_RANGE_PCNT$>	= SourceRDSTestRec<RDS_TEST_HGCV1_RES_RANGE_PCNT$>
-            
+            DestRDSTestRec<RDS_TEST_COPY_FROM_RDS_TEST_ID$> = SourceRDSTestKey
+            DestRDSTestRec<RDS_TEST_COPY_USER$>				= @User4
+            DestRDSTestRec<RDS_TEST_COPY_DTM$>				= Datetime()
             
             RTParms = FieldStore(RTParms, @RM, 2, 1, LockedRDSTestKey)
             RTParms = FieldStore(RTParms, @RM, 4, 1, DestRDSTestRec)
@@ -2052,3 +2054,4 @@ END	;* End of STRESS Property
 	
 	
 RETURN
+
diff --git a/LSL2/STPROCINS/RDS_TEST_EQUATES.txt b/LSL2/STPROCINS/RDS_TEST_EQUATES.txt
index 2561654..8a094d5 100644
--- a/LSL2/STPROCINS/RDS_TEST_EQUATES.txt
+++ b/LSL2/STPROCINS/RDS_TEST_EQUATES.txt
@@ -154,3 +154,7 @@ Equ RDS_TEST_TEST_RUN_HGCV_DTM$      To 146
 Equ RDS_TEST_MODIFY_OVERRIDE$        To 147
 Equ RDS_TEST_OVERRIDE_USERNAME$      To 148
 Equ RDS_TEST_OVERRIDE_DTM$           To 149
+Equ RDS_TEST_COPY_FROM_RDS_TEST_ID$  To 150
+Equ RDS_TEST_COPY_USER$				 To 151
+Equ RDS_TEST_COPY_DTM$				 To 152
+