From b83a3fb57bdf5b15a7024f006a262636b546303d Mon Sep 17 00:00:00 2001 From: "Ouellette Jonathan (CSC FI SPS MESLEO)" Date: Wed, 24 Sep 2025 17:12:27 +0000 Subject: [PATCH] Merged PR 26794: Added increased error checking in CopyRDSLayerParameters service Added increased error checking in CopyRDSLayerParameters service --- LSL2/STPROC/RDS_SERVICES.txt | 67 +++++++++++++++++++++--------------- 1 file changed, 39 insertions(+), 28 deletions(-) diff --git a/LSL2/STPROC/RDS_SERVICES.txt b/LSL2/STPROC/RDS_SERVICES.txt index 5da6980..c59019f 100644 --- a/LSL2/STPROC/RDS_SERVICES.txt +++ b/LSL2/STPROC/RDS_SERVICES.txt @@ -1157,37 +1157,47 @@ Service CopyRDSLayerParameters(RDSNo) CopyRDSLayerKeys = Xlate('RDS', CopyRDSNo, 'RDS_LAYER_KEYS', 'X') If CopyRDSLayerKeys NE '' then For each CopyRDSLayerKey in CopyRDSLayerKeys + Until ErrMsg NE '' // Copy RDS layer records LayerID = Field(CopyRDSLayerKey, '*', 2) DestRDSLayerKey = RDSNo:'*':LayerID - CopyRDSLayerRec = Database_Services('ReadDataRow', 'RDS_LAYER', CopyRDSLayerKey) - DestRDSLayerRec = Database_Services('ReadDataRow', 'RDS_LAYER', DestRDSLayerKey) - - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = CopyRDSLayerRec - DestRDSLayerRec = 'CopyService' - DestRDSLayerRec = DateTime() - Database_Services('WriteDataRow', 'RDS_LAYER', DestRDSLayerKey, DestRDSLayerRec, True$, True$, True$) - + CopyRDSLayerRec = Database_Services('ReadDataRow', 'RDS_LAYER', CopyRDSLayerKey) + if Error_Services('NoError') then + DestRDSLayerRec = Database_Services('ReadDataRow', 'RDS_LAYER', DestRDSLayerKey) + If Error_Services('NoError') then + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = CopyRDSLayerRec + DestRDSLayerRec = 'CopyService' + DestRDSLayerRec = DateTime() + Database_Services('WriteDataRow', 'RDS_LAYER', DestRDSLayerKey, DestRDSLayerRec, True$, True$, True$) + If Error_Services('HasError') then + ErrMsg = Error_Services('GetMessage') + end + end else + ErrMsg = Error_Services('GetMessage') + end + end else + ErrMsg = Error_Services('GetMessage') + end Next CopyRDSLayerKey end end else @@ -3381,3 +3391,4 @@ ClearCursors: return +