phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Copy source RDS_TEST key and context data

Browse Source
This commit is contained in:
Chase Tucker
2025-10-17 10:12:43 -07:00
parent 1b94adb0d1
commit 3d786a7916
2 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
LSL2/STPROC/OBJ_RDS_TEST.txt
View File

@ -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 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 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 $insert LOGICAL
@ -476,7 +476,9 @@ CopyStats:
DestRDSTestRec<RDS_TEST_HGCV1_RES_MAX$> = SourceRDSTestRec<RDS_TEST_HGCV1_RES_MAX$> 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$> = SourceRDSTestRec<RDS_TEST_HGCV1_RES_RANGE$>
DestRDSTestRec<RDS_TEST_HGCV1_RES_RANGE_PCNT$> = SourceRDSTestRec<RDS_TEST_HGCV1_RES_RANGE_PCNT$> 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, 2, 1, LockedRDSTestKey)
RTParms = FieldStore(RTParms, @RM, 4, 1, DestRDSTestRec) RTParms = FieldStore(RTParms, @RM, 4, 1, DestRDSTestRec)
@ -2052,3 +2054,4 @@ END ;* End of STRESS Property
RETURN RETURN

4
LSL2/STPROCINS/RDS_TEST_EQUATES.txt
View File

@ -154,3 +154,7 @@ Equ RDS_TEST_TEST_RUN_HGCV_DTM$ To 146
Equ RDS_TEST_MODIFY_OVERRIDE$ To 147 Equ RDS_TEST_MODIFY_OVERRIDE$ To 147
Equ RDS_TEST_OVERRIDE_USERNAME$ To 148 Equ RDS_TEST_OVERRIDE_USERNAME$ To 148
Equ RDS_TEST_OVERRIDE_DTM$ To 149 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